$INCLUDE: 'C:\FG\INTRFACE.FOR'

      PROGRAM MAIN

      CHARACTER STRING*16
      INTEGER*2 ANGLE
      INTEGER*2 OLD_MODE
      INTEGER*2 FG_GETMODE

      OLD_MODE = FG_GETMODE()
      CALL FG_SETMODE(16)
      CALL FG_SETCOLOR(10)
      CALL FG_INITW
      CALL FG_SETWORLD(0.0,6.39,0.0,3.49)
      CALL FG_SETSIZEW(0.21)

      DO 10 ANGLE = 0,345,15
         CALL FG_MOVEW(3.2,1.75)
         CALL FG_SETANGLE(DBLE(ANGLE))
         WRITE(STRING,1000) ANGLE
         CALL FG_SWTEXT(STRING,16,-1)
10    CONTINUE
      CALL FG_WAITKEY

      CALL FG_SETMODE(OLD_MODE)
      CALL FG_RESET

      STOP ' '
1000  FORMAT(5X,I3,' degrees')
      END
