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

      PROGRAM MAIN

      INTEGER*2 MID_X, MID_Y
      INTEGER*2 OLD_MODE
      INTEGER*2 X, Y
      INTEGER*2 FG_AUTOMODE, FG_GETMAXX, FG_GETMAXY, FG_GETMODE

      OLD_MODE = FG_GETMODE()
      CALL FG_SETMODE(FG_AUTOMODE())
      CALL FG_SETCOLOR(15)

      MID_X = FG_GETMAXX() / 2
      MID_Y = FG_GETMAXY() / 2
      X = MID_X / 8
      Y = MID_Y / 8

      CALL FG_MOVE(MID_X,MID_Y)
      CALL FG_ELLIPSE(X,Y)
      CALL FG_CIRCLE(X)
      CALL FG_WAITKEY

      CALL FG_SETMODE(OLD_MODE)
      CALL FG_RESET

      STOP ' '
      END