## 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