PROGRAM TEST
      CALL PLOTS( 0.0, 0.0, 16 )
      CALL WINDOW( 0.0, 200.0, 320.0, 0.0 )
      CALL NEWPEN( 2 )
      CALL PLOT(  30.0,  30.0, 3 )
      CALL PLOT(  30.0, 130.0, 2 )
      CALL PLOT( 130.0, 130.0, 2 )
      CALL PLOT( 130.0,  30.0, 2 )
      CALL PLOT(  30.0,  30.0, 2 )
      CALL PLOT( 130.0, 130.0, 2 )
      CALL NEWPEN( 4 )
      CALL PLOT(  40.0,  40.0, 3 )
      CALL PLOT(  40.0, 140.0, 2 )
      CALL PLOT( 140.0, 140.0, 2 )
      CALL PLOT( 140.0,  40.0, 2 )
      CALL PLOT(  40.0,  40.0, 2 )
      CALL NEWPEN( 3 )
      CALL PLOT(  50.0,  50.0, 3 )
      CALL PLOT(  50.0, 150.0, 2 )
      CALL PLOT( 150.0, 150.0, 2 )
      CALL PLOT( 150.0,  50.0, 2 )
      CALL PLOT(  50.0,  50.0, 2 )
      CALL NEWPEN( 5 )
      CALL PLOT(  60.0,  60.0, 3 )
      CALL PLOT(  60.0, 160.0, 2 )
      CALL PLOT( 160.0, 160.0, 2 )
      CALL PLOT( 160.0,  60.0, 2 )
      CALL PLOT(  60.0,  60.0, 2 )
      CALL NEWPEN( 6 )
      CALL PLOT(  70.0,  70.0, 3 )
      CALL PLOT(  70.0, 170.0, 2 )
      CALL PLOT( 170.0, 170.0, 2 )
      CALL PLOT( 170.0,  70.0, 2 )
      CALL PLOT(  70.0,  70.0, 2 )
      CALL NEWPEN( 7 )
      CALL PLOT(  80.0,  80.0, 3 )
      CALL PLOT(  80.0, 180.0, 2 )
      CALL PLOT( 180.0, 180.0, 2 )
      CALL PLOT( 180.0,  80.0, 2 )
      CALL PLOT(  80.0,  80.0, 2 )
      CALL NEWPEN( 1 )
      CALL PLOT(  90.0,  90.0, 3 )
      CALL PLOT(  90.0, 190.0, 2 )
      CALL PLOT( 190.0, 190.0, 2 )
      CALL PLOT( 190.0,  90.0, 2 )
      CALL PLOT(  90.0,  90.0, 2 )
      CALL NEWPEN( 1 )
      CALL GWPUTMRK(IR, 100.0, 100.0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',  0.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  7.0, 'ABC',  0.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ', 30.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  6.0, 'def',  30.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ', 60.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  5.0, 'GHI', 60.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ', 90.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  4.0, 'jkl', 90.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',120.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  5.0, 'MNO',120.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',150.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  6.0, 'pqr',150.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',180.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  7.0, 'STU',180.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',210.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  8.0, 'vwx',210.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',240.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  9.0, 'YZ.',240.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',270.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(), 10.0, 'abc',270.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',300.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  9.0, 'DEF',300.0, 0)
      CALL SYMBOL( 100.0, 100.0, 8.0, '      ',330.0, 0)
      CALL SYMBOL( GWFMAX(), GWFMAX(),  8.0, 'GHI',330.0, 0)
      CALL SYMBOL(30.0,20.0,8.0,'ABCDEFGHIJKLMNOPQRSTUVWXYZ',0.0,26)
      CALL SYMBOL(30.0,5.0,8.0,'abcdefghijklmnopqrstuvwxyz',0.0,26)
      CALL NEWPEN( 1 )
      CALL PLOT( 240.000, 160.000, 3 )
      CALL PLOT( 188.038,  70.000, 2 )
      CALL PLOT( 291.962,  70.000, 2 )
      CALL PLOT( 240.000, 160.000, 2 )
      CALL PLOT( 240.000,  40.000, 3 )
      CALL PLOT( 188.038, 130.000, 2 )
      CALL PLOT( 291.962, 130.000, 2 )
      CALL PLOT( 240.000,  40.000, 2 )
      CALL NUMBER( 250.0, 100.0, 5.0, 12345.67,    0.0, -1)
      CALL NUMBER( 248.5,  95.0, 5.0, 12345.67,  -30.0, -1)
      CALL NUMBER( 245.0,  91.5, 5.0, 12345.67,  -60.0, 0)
      CALL NUMBER( 240.0,  90.0, 5.0, 123.456,   -90.0, 3)
      CALL NUMBER( 235.0,  91.5, 5.0, 0.123456, -120.0, 6)
      CALL NUMBER( 231.5,  95.0, 5.0, 0.987654, -150.0, 6)
      CALL NUMBER( 230.0, 100.0, 5.0, 0.987654, -180.0, 3)
      CALL NUMBER( 240.0, 100.0, 5.0, 123456789.0,90.0, 0)
      CALL PLOTE( 16 )
      STOP
      END