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