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

      PROGRAM MAIN

      INTEGER*2 MAX_X, MAX_Y
      INTEGER*2 MID_X, MID_Y
      INTEGER*2 NEW_MODE, OLD_MODE
      INTEGER*2 FG_AUTOMODE, FG_GETMAXX, FG_GETMAXY, FG_GETMODE

      OLD_MODE = FG_GETMODE()
      NEW_MODE = FG_AUTOMODE()
      CALL FG_SETMODE(NEW_MODE)

      MAX_X = FG_GETMAXX()
      MAX_Y = FG_GETMAXY()
      MID_X = MAX_X / 2
      MID_Y = MAX_Y / 2

      CALL FG_SETCOLOR(15)
      CALL FG_MOVE(MID_X,0)
      CALL FG_DASH(MID_X,MAX_Y,#3333)
      CALL FG_MOVE(0,MID_Y)
      CALL FG_DASH(MAX_X,MID_Y,#3333)
      CALL FG_WAITKEY

      CALL FG_SETMODE(OLD_MODE)
      CALL FG_RESET

      STOP ' '
      END