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

      PROGRAM MAIN

      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_SETRATIO(2.0)
      CALL FG_SETSIZEW(0.21)

      CALL FG_MOVEW(3.2,3.0)
      CALL FG_SWCHAR('cos\^2\h\ + sin\^2\h\ = 1',25,0)

      CALL FG_MOVEW(3.2,2.0)
      CALL FG_SWCHAR('H\v2O   U\v2\v3\v2',18,0)

      CALL FG_MOVEW(3.2,1.0)
      CALL FG_SETRATIO(1.0)
      CALL FG_SWCHAR('One _word_ is underlined.',25,0)
      CALL FG_WAITKEY

      CALL FG_SETMODE(OLD_MODE)
      CALL FG_RESET

      STOP ' '
      END