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

      PROGRAM MAIN

      INTEGER*2 SOLID(32), HOLLOW(32)
      INTEGER*2 OLD_MODE
      INTEGER*2 COLUMN, ROW, LAST_ROW
      INTEGER*2 FG_AUTOMODE, FG_GETMAXX, FG_GETMAXY, FG_GETMODE
      INTEGER*2 FG_MOUSEINI, FG_XALPHA, FG_YALPHA

      DATA SOLID /
     +   #E03F,#E03F,#E03F,#0007,#0007,#0007,#0007,#0007,
     +   #0007,#0007,#E03F,#E03F,#E03F,#FFFF,#FFFF,#FFFF,
     +   #0000,#0F80,#0F80,#0F80,#7FF0,#7FF0,#7FF0,#7FF0,
     +   #7FF0,#0F80,#0F80,#0F80,#0000,#0000,#0000,#0000/

      DATA HOLLOW /
     +   #E03F,#EFBF,#EFBF,#0F87,#7FF7,#7FF7,#7FF7,#7FF7,
     +   #7FF7,#0F87,#EFBF,#EFBF,#E03F,#FFFF,#FFFF,#FFFF,
     +   #0000,#0000,#0000,#0000,#0000,#0000,#0200,#0000,
     +   #0000,#0000,#0000,#0000,#0000,#0000,#0000,#0000/

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

      IF (FG_MOUSEINI() .LT. 0) THEN
         CALL FG_SETMODE(OLD_MODE)
         CALL FG_RESET
         STOP ' '
      END IF

      CALL FG_SETCOLOR(15)
      CALL FG_RECT(0,FG_GETMAXX(),0,FG_GETMAXY())

      CALL FG_SETCOLOR(12)
      COLUMN = FG_XALPHA(FG_GETMAXX()/2) - 6
      LAST_ROW = FG_YALPHA(FG_GETMAXY())

      DO 10 ROW = 0,LAST_ROW
         CALL FG_LOCATE(ROW,COLUMN)
         CALL FG_TEXT('example 14-10',13)
10    CONTINUE

      CALL FG_MOUSEVIS(1)
      CALL FG_WAITKEY
      CALL FG_MOUSEPTR(SOLID,6,6)
      CALL FG_WAITKEY
      CALL FG_MOUSEPTR(HOLLOW,6,6)
      CALL FG_WAITKEY

      CALL FG_SETMODE(OLD_MODE)
      CALL FG_RESET

      STOP ' '
      END
