13.7 Examples

            PROGRAM EX13_1

            CALL DISINI
            CALL PAGERA
            CALL COMPLX

            CALL FRAME(3)
            CALL AXSPOS(400,1850)
            CALL AXSLEN(2400,1400)

            CALL NAME('Longitude','X')
            CALL NAME('Latitude','Y')
            CALL TITLIN('World Coastlines and Lakes',3)

            CALL LABELS('MAP','XY')
            CALL GRAFMP(-180.,180.,-180.,90.,-90.,90.,-90.,30.)
            CALL GRIDMP(1,1)
            
            CALL HEIGHT(50)
            CALL TITLE

            CALL COLOR('GREEN')
            CALL WORLD
            CALL DISFIN
            END

Figure 13.1: World Coastlines and Lakes