CALL AYPSTR(85)
      CALL AYORIG(20.0,30.0)
      CALL MOVETO(10.0,10.0)
      CALL LINETO(65.0,10.0)
      CALL MOVETO(10.0,10.0)
      CALL LINETO(10.0,20.0)
      CALL AWRITE(30,'(ABCDEFG)',9,10.0,10.0,0)
      CALL AYPEND
      STOP
      END