C++ Games Programming/CPPGAMES.ISO/fgl/fglight/fglight.arj/FASTGRAF.FI

Text File | 1995-01-20 | 31KB | 1,189 lines

C*****************************************************************************
C
C  FASTGRAF.FI
C
C  This file contains the FORTRAN interface statements for Fastgraph V4.00.
C
C  Copyright (c) 1991-1995 Ted Gruber Software.  All rights reserved.
C
C*****************************************************************************

      INTERFACE TO INTEGER FUNCTION FG_ALLOCATE[C](PAGE)
      INTEGER PAGE
      END

      INTERFACE TO INTEGER FUNCTION FG_ALLOCCMS[C](PAGE)
      INTEGER PAGE
      END

      INTERFACE TO INTEGER FUNCTION FG_ALLOCEMS[C](PAGE)
      INTEGER PAGE
      END

      INTERFACE TO INTEGER FUNCTION FG_ALLOCXMS[C](PAGE)
      INTEGER PAGE
      END

      INTERFACE TO INTEGER FUNCTION FG_AUTOMODE[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_BESTMODE[C](HORIZ,VERT,PAGES)
      INTEGER HORIZ,VERT,PAGES
      END

      INTERFACE TO SUBROUTINE FG_BOX[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_BOXDEPTH[C](XDEPTH,YDEPTH)
      INTEGER XDEPTH,YDEPTH
      END

      INTERFACE TO SUBROUTINE FG_BOXW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO SUBROUTINE FG_BOXX[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_BOXXW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO INTEGER FUNCTION FG_BUTTON[C](N)
      INTEGER N
      END

      INTERFACE TO INTEGER FUNCTION FG_CAPSLOCK[C]()
      END

      INTERFACE TO SUBROUTINE FG_CHGATTR[C](N)
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_CHGTEXT[C](STRING,N)
      CHARACTER STRING[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_CIRCLE[C](RADIUS)
      INTEGER RADIUS
      END

      INTERFACE TO SUBROUTINE FG_CIRCLEF[C](RADIUS)
      INTEGER RADIUS
      END

      INTERFACE TO SUBROUTINE FG_CIRCLEFW[C](RADIUS)
      REAL*8 RADIUS
      END

      INTERFACE TO SUBROUTINE FG_CIRCLEW[C](RADIUS)
      REAL*8 RADIUS
      END

      INTERFACE TO SUBROUTINE FG_CLIPMAP[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_CLIPMASK[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_CLPIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_CLPRECT[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_CLPRECTW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO INTEGER FUNCTION FG_COLORS[C]()
      END

      INTERFACE TO SUBROUTINE FG_COPYPAGE[C](SOURCE,DEST)
      INTEGER SOURCE,DEST
      END

      INTERFACE TO SUBROUTINE FG_CURSOR[C](STATE)
      INTEGER STATE
      END

      INTERFACE TO SUBROUTINE FG_DASH[C](IX,IY,PATTERN)
      INTEGER IX,IY,PATTERN
      END

      INTERFACE TO SUBROUTINE FG_DASHREL[C](IX,IY,PATTERN)
      INTEGER IX,IY,PATTERN
      END

      INTERFACE TO SUBROUTINE FG_DASHRW[C](X,Y,PATTERN)
      REAL*8 X,Y
      INTEGER PATTERN
      END

      INTERFACE TO SUBROUTINE FG_DASHW[C](X,Y,PATTERN)
      REAL*8 X,Y
      INTEGER PATTERN
      END

      INTERFACE TO SUBROUTINE FG_DEFCOLOR[C](NUMBER,VALUE)
      INTEGER NUMBER,VALUE
      END

      INTERFACE TO SUBROUTINE FG_DEFPAGES[C](SOURCE,DEST)
      INTEGER SOURCE,DEST
      END

      INTERFACE TO SUBROUTINE FG_DISPFILE[C](FILENAME,WIDTH,PACKED)
      CHARACTER FILENAME[REFERENCE]
      INTEGER WIDTH,PACKED
      END

      INTERFACE TO SUBROUTINE FG_DISPLAY[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_DISPLAYP[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_DRAW[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_DRAWMAP[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_DRAWMASK[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_DRAWREL[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_DRAWRELX[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_DRAWRW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_DRAWRXW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_DRAWW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_DRAWX[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_DRAWXW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_DRECT[C](MINX,MAXX,MINY,MAXY,MATRIX)
      INTEGER MINX,MINY,MAXX,MAXY
      INTEGER*1 MATRIX[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_DRECTW[C](XMIN,XMAX,YMIN,YMAX,MATRIX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      INTEGER*1 MATRIX[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_DRWIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO INTEGER FUNCTION FG_EGACHECK[C]()
      END

      INTERFACE TO SUBROUTINE FG_ELLIPSE[C](HORIZ,VERT)
      INTEGER HORIZ,VERT
      END

      INTERFACE TO SUBROUTINE FG_ELLIPSEF[C](HORIZ,VERT)
      INTEGER HORIZ,VERT
      END

      INTERFACE TO SUBROUTINE FG_ELLIPSEW[C](HORIZ,VERT)
      REAL*8 HORIZ,VERT
      END

      INTERFACE TO SUBROUTINE FG_ELLIPSFW[C](HORIZ,VERT)
      REAL*8 HORIZ,VERT
      END

      INTERFACE TO SUBROUTINE FG_ERASE[C]()
      END

      INTERFACE TO SUBROUTINE FG_FADEIN[C](DELAY)
      INTEGER DELAY
      END

      INTERFACE TO SUBROUTINE FG_FADEOUT[C](DELAY)
      INTEGER DELAY
      END

      INTERFACE TO SUBROUTINE FG_FILLPAGE[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_FINDPAGE[C]()
      END

      INTERFACE TO SUBROUTINE FG_FLICDONE[C](CONTEXT)
      INTEGER*1 CONTEXT[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_FLICHEAD[C](FILENAME,HEADER)
      CHARACTER FILENAME[REFERENCE]
      INTEGER*1 HEADER[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_FLICMODE[C](HEADER)
      INTEGER*1 HEADER[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_FLICOPEN[C](FILENAME,CONTEXT)
      CHARACTER FILENAME[REFERENCE]
      INTEGER*1 CONTEXT[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_FLICPLAY[C](CONTEXT,COUNT,FLAGS)
      INTEGER*1 CONTEXT[REFERENCE]
      INTEGER COUNT,FLAGS
      END

      INTERFACE TO SUBROUTINE FG_FLICSIZE[C](HEADER,WIDTH,HEIGHT)
      INTEGER*1 HEADER[REFERENCE]
      INTEGER WIDTH[REFERENCE]
      INTEGER HEIGHT[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_FLICSKIP[C](CONTEXT,COUNT)
      INTEGER*1 CONTEXT[REFERENCE]
      INTEGER COUNT
      END

      INTERFACE TO SUBROUTINE FG_FLIPMASK[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_FLOOD[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_FLOODW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_FLPIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_FONTSIZE[C](SIZE)
      INTEGER SIZE
      END

      INTERFACE TO INTEGER FUNCTION FG_FREEPAGE[C](PAGE)
      INTEGER PAGE
      END

      INTERFACE TO INTEGER FUNCTION FG_GETADDR[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETATTR[C](ROW,COLUMN)
      INTEGER ROW,COLUMN
      END

      INTERFACE TO SUBROUTINE FG_GETBANKS[C](READ_BANK,WRITE_BANK)
      INTEGER READ_BANK[REFERENCE]
      INTEGER WRITE_BANK[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_GETBLOCK[C](BUFFER,MINX,MAXX,MINY,MAXY)
      INTEGER*1 BUFFER[REFERENCE]
      INTEGER MINX,MAXX,MINY,MAXY
      END

      INTERFACE TO INTEGER FUNCTION FG_GETCHAR[C](ROW,COLUMN)
      INTEGER ROW,COLUMN
      END

      INTERFACE TO SUBROUTINE FG_GETCLIP[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX[REFERENCE]
      INTEGER MAXX[REFERENCE]
      INTEGER MINY[REFERENCE]
      INTEGER MAXY[REFERENCE]
      END

      INTERFACE TO INTEGER*4 FUNCTION FG_GETCLOCK[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETCOLOR[C]()
      END

      INTERFACE TO SUBROUTINE FG_GETDACS[C](START,COUNT,VALUES)
      INTEGER START,COUNT
      INTEGER*1 VALUES[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_GETENTRY[C](NUMBER,ADDR,TYPE)
      INTEGER NUMBER
      INTEGER ADDR[REFERENCE]
      INTEGER TYPE[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_GETHPAGE[C]()
      END

      INTERFACE TO SUBROUTINE FG_GETIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO INTEGER FUNCTION FG_GETINDEX[C](INDEX)
      INTEGER INDEX
      END

      INTERFACE TO SUBROUTINE FG_GETKEY[C](KEY,AUX)
      INTEGER*1 KEY[REFERENCE]
      INTEGER*1 AUX[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_GETLINES[C]()
      END

      INTERFACE TO SUBROUTINE FG_GETMAP[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO INTEGER FUNCTION FG_GETMAXX[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETMAXY[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETMODE[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETPAGE[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETPIXEL[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_GETRGB[C](NUMBER,RED,GREEN,BLUE)
      INTEGER NUMBER
      INTEGER RED[REFERENCE]
      INTEGER GREEN[REFERENCE]
      INTEGER BLUE[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_GETVIEW[C](XMIN,XMAX,YMIN,YMAX,
     +                                      MINX,MAXX,MINY,MAXY)
      INTEGER XMIN[REFERENCE]
      INTEGER XMAX[REFERENCE]
      INTEGER YMIN[REFERENCE]
      INTEGER YMAX[REFERENCE]
      INTEGER MINX[REFERENCE]
      INTEGER MAXX[REFERENCE]
      INTEGER MINY[REFERENCE]
      INTEGER MAXY[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_GETVPAGE[C]()
      END

      INTERFACE TO SUBROUTINE FG_GETWORLD[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN[REFERENCE]
      REAL*8 XMAX[REFERENCE]
      REAL*8 YMIN[REFERENCE]
      REAL*8 YMAX[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_GETXBOX[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETXJOY[C](N)
      INTEGER N
      END

      INTERFACE TO INTEGER FUNCTION FG_GETXJUST[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETXPOS[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETYBOX[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETYJOY[C](N)
      INTEGER N
      END

      INTERFACE TO INTEGER FUNCTION FG_GETYJUST[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GETYPOS[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_GIFHEAD[C](FILENAME,HEADER)
      CHARACTER FILENAME[REFERENCE]
      INTEGER*1 HEADER[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_GIFMODE[C](HEADER)
      INTEGER*1 HEADER[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_GIFPAL[C](FILENAME,PAL_ARRAY)
      CHARACTER FILENAME[REFERENCE]
      INTEGER*1 PAL_ARRAY[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_GIFRANGE[C](HEADER,MINX,MAXX,MINY,MAXY)
      INTEGER*1 HEADER[REFERENCE]
      INTEGER MINX[REFERENCE]
      INTEGER MAXX[REFERENCE]
      INTEGER MINY[REFERENCE]
      INTEGER MAXY[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_HUSH[C]()
      END

      INTERFACE TO SUBROUTINE FG_HUSHNEXT[C]()
      END

      INTERFACE TO SUBROUTINE FG_IMAGEBUF[C](BUFFER,SIZE)
      INTEGER*1 BUFFER[REFERENCE]
      INTEGER SIZE
      END

      INTERFACE TO INTEGER*4 FUNCTION FG_IMAGESIZ[C](WIDTH,HEIGHT)
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO INTEGER FUNCTION FG_INITEMS[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_INITJOY[C](N)
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_INITPM[C]()
      END

      INTERFACE TO SUBROUTINE FG_INITW[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_INITXMS[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_INSIDE[C](VERTEX_ARRAY,N,IX,IY)
      INTEGER VERTEX_ARRAY[REFERENCE]
      INTEGER N,IX,IY
      END

      INTERFACE TO SUBROUTINE FG_INTJOY[C](N,KEY,AUX)
      INTEGER N
      INTEGER*1 KEY[REFERENCE]
      INTEGER*1 AUX[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_INTKEY[C](KEY,AUX)
      INTEGER*1 KEY[REFERENCE]
      INTEGER*1 AUX[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_INVERT[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_JUSTIFY[C](XJUST,YJUST)
      INTEGER XJUST,YJUST
      END

      INTERFACE TO SUBROUTINE FG_KBINIT[C](STATE)
      INTEGER STATE
      END

      INTERFACE TO INTEGER FUNCTION FG_KBLAST[C]()
      END

      INTERFACE TO SUBROUTINE FG_KBRESET[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_KBTEST[C](SCAN_CODE)
      INTEGER SCAN_CODE
      END

      INTERFACE TO INTEGER FUNCTION FG_LOADPCX[C](FILENAME,FLAGS)
      CHARACTER FILENAME[REFERENCE]
      INTEGER FLAGS
      END

      INTERFACE TO SUBROUTINE FG_LOCATE[C](ROW,COLUMN)
      INTEGER ROW,COLUMN
      END

      INTERFACE TO INTEGER FUNCTION FG_MAKEGIF[C](MINX,MAXX,MINY,MAXY,
     +                                              FILENAME)
      INTEGER MINX,MAXX,MINY,MAXY
      CHARACTER FILENAME[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_MAKEPCX[C](MINX,MAXX,MINY,MAXY,
     +                                              FILENAME)
      INTEGER MINX,MAXX,MINY,MAXY
      CHARACTER FILENAME[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_MAKEPPR[C](MINX,MAXX,MINY,MAXY,
     +                                              FILENAME)
      INTEGER MINX,MAXX,MINY,MAXY
      CHARACTER FILENAME[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_MAKESPR[C](MINX,MAXX,MINY,MAXY,
     +                                              FILENAME)
      INTEGER MINX,MAXX,MINY,MAXY
      CHARACTER FILENAME[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_MAPRGB[C](RED,GREEN,BLUE)
      INTEGER RED,GREEN,BLUE
      END

      INTERFACE TO INTEGER FUNCTION FG_MEASURE[C]()
      END

      INTERFACE TO INTEGER*4 FUNCTION FG_MEMAVAIL[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_MEMORY[C]()
      END

      INTERFACE TO SUBROUTINE FG_MOUSEBUT[C](NUMBER,COUNT,LASTX,LASTY)
      INTEGER NUMBER
      INTEGER COUNT[REFERENCE]
      INTEGER LASTX[REFERENCE]
      INTEGER LASTY[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_MOUSECUR[C](SCREEN,CURSOR)
      INTEGER SCREEN,CURSOR
      END

      INTERFACE TO SUBROUTINE FG_MOUSEFIN[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_MOUSEINI[C]()
      END

      INTERFACE TO SUBROUTINE FG_MOUSELIM[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX,MAXX,MINY,MAXY
      END

      INTERFACE TO SUBROUTINE FG_MOUSEMOV[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_MOUSEPOS[C](IX,IY,BUTTONS)
      INTEGER IX[REFERENCE]
      INTEGER IY[REFERENCE]
      INTEGER BUTTONS[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_MOUSEPTR[C](MASKS,XOFFSET,YOFFSET)
      INTEGER*2 MASKS[REFERENCE]
      INTEGER XOFFSET,YOFFSET
      END

      INTERFACE TO SUBROUTINE FG_MOUSESPD[C](XMICKEYS,YMICKEYS)
      INTEGER XMICKEYS,YMICKEYS
      END

      INTERFACE TO SUBROUTINE FG_MOUSEVIS[C](STATE)
      INTEGER STATE
      END

      INTERFACE TO SUBROUTINE FG_MOVE[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_MOVEREL[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_MOVERW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_MOVEW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_MUSIC[C](STRING)
      CHARACTER STRING[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_MUSICB[C](STRING,NTIMES)
      CHARACTER STRING[REFERENCE]
      INTEGER NTIMES
      END

      INTERFACE TO INTEGER FUNCTION FG_NUMLOCK[C]()
      END

      INTERFACE TO SUBROUTINE FG_PACK[C](SOURCE,DEST,WIDTH,HEIGHT)
      INTEGER*1 SOURCE[REFERENCE]
      INTEGER*1 DEST[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO INTEGER*4 FUNCTION FG_PAGESIZE[C]()
      END

      INTERFACE TO SUBROUTINE FG_PAINT[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_PAINTW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_PALETTE[C](NUMBER,COLOR)
      INTEGER NUMBER,COLOR
      END

      INTERFACE TO SUBROUTINE FG_PALETTES[C](COLOR_ARRAY)
      INTEGER COLOR_ARRAY[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_PAN[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_PANW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_PATTERN[C](NUMBER,DASH_PATTERN)
      INTEGER NUMBER,DASH_PATTERN
      END

      INTERFACE TO INTEGER FUNCTION FG_PCXHEAD[C](FILENAME,HEADER)
      CHARACTER FILENAME[REFERENCE]
      INTEGER*1 HEADER[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_PCXMODE[C](HEADER)
      INTEGER*1 HEADER[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_PCXPAL[C](FILENAME,PAL_ARRAY)
      CHARACTER FILENAME[REFERENCE]
      INTEGER*1 PAL_ARRAY[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_PCXRANGE[C](HEADER,MINX,MAXX,MINY,MAXY)
      INTEGER*1 HEADER[REFERENCE]
      INTEGER MINX[REFERENCE]
      INTEGER MAXX[REFERENCE]
      INTEGER MINY[REFERENCE]
      INTEGER MAXY[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_PLAYING[C]()
      END

      INTERFACE TO SUBROUTINE FG_POINT[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_POINTW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_POINTX[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_POINTXW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_POLYFILL[C](VERTEX_ARRAY,WORK_ARRAY,N)
      INTEGER VERTEX_ARRAY[REFERENCE]
      INTEGER WORK_ARRAY[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_POLYGON[C](IX_ARRAY,IY_ARRAY,N)
      INTEGER IX_ARRAY[REFERENCE]
      INTEGER IY_ARRAY[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_POLYGONW[C](X_ARRAY,Y_ARRAY,N)
      REAL*8 X_ARRAY[REFERENCE]
      REAL*8 Y_ARRAY[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_POLYLINE[C](VERTEX_ARRAY,N)
      INTEGER VERTEX_ARRAY[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_POLYOFF[C](IX,IY)
      INTEGER IX,IY
      END

      INTERFACE TO SUBROUTINE FG_PRINT[C](STRING,N)
      CHARACTER STRING[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_PRINTC[C](STRING,N)
      CHARACTER STRING[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_PUTBLOCK[C](BUFFER,MINX,MAXX,MINY,MAXY)
      INTEGER*1 BUFFER[REFERENCE]
      INTEGER MINX,MAXX,MINY,MAXY
      END

      INTERFACE TO SUBROUTINE FG_PUTIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_QUIET[C]()
      END

      INTERFACE TO SUBROUTINE FG_RECT[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_RECTW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO SUBROUTINE FG_RESET[C]()
      END

      INTERFACE TO SUBROUTINE FG_RESIZE[C](WIDTH,HEIGHT)
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_RESTORE[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_RESTOREW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO SUBROUTINE FG_RESUME[C]()
      END

      INTERFACE TO SUBROUTINE FG_REVIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_REVMASK[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_SAVE[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_SAVEW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO SUBROUTINE FG_SCALE[C](SOURCE,DEST,SW,SH,DW,DH)
      INTEGER*1 SOURCE[REFERENCE]
      INTEGER*1 DEST[REFERENCE]
      INTEGER SW,SH,DW,DH
      END

      INTERFACE TO INTEGER FUNCTION FG_SCRLOCK[C]()
      END

      INTERFACE TO SUBROUTINE FG_SCROLL[C](MINX,MAXX,MINY,MAXY,
     +                                     JUMP,WRAP)
      INTEGER MINX,MAXX,MINY,MAXY,JUMP,WRAP
      END

      INTERFACE TO SUBROUTINE FG_SETANGLE[C](ANGLE)
      REAL*8 ANGLE
      END

      INTERFACE TO SUBROUTINE FG_SETATTR[C](FORE,BACK,BLINK)
      INTEGER FORE,BACK,BLINK
      END

      INTERFACE TO SUBROUTINE FG_SETBANKS[C](RBANK,WBANK)
      INTEGER RBANK,WBANK
      END

      INTERFACE TO SUBROUTINE FG_SETCAPS[C](STATE)
      INTEGER STATE
      END

      INTERFACE TO SUBROUTINE FG_SETCLIP[C](MINX,MAXX,MINY,MAXY)
      INTEGER MINX,MAXX,MINY,MAXY
      END

      INTERFACE TO SUBROUTINE FG_SETCLIPW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO SUBROUTINE FG_SETCOLOR[C](COLOR)
      INTEGER COLOR
      END

      INTERFACE TO SUBROUTINE FG_SETDACS[C](START,COUNT,VALUES)
      INTEGER START,COUNT
      INTEGER*1 VALUES[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_SETENTRY[C](NUMBER,ADDR,TYPE)
      INTEGER NUMBER,ADDR,TYPE
      END

      INTERFACE TO SUBROUTINE FG_SETFUNC[C](MODE)
      INTEGER MODE
      END

      INTERFACE TO SUBROUTINE FG_SETHPAGE[C](PAGE)
      INTEGER PAGE
      END

      INTERFACE TO SUBROUTINE FG_SETLINES[C](LINES)
      INTEGER LINES
      END

      INTERFACE TO SUBROUTINE FG_SETMODE[C](MODE)
      INTEGER MODE
      END

      INTERFACE TO SUBROUTINE FG_SETNUM[C](STATE)
      INTEGER STATE
      END

      INTERFACE TO SUBROUTINE FG_SETPAGE[C](PAGE)
      INTEGER PAGE
      END

      INTERFACE TO SUBROUTINE FG_SETRATIO[C](RATIO)
      REAL*8 RATIO
      END

      INTERFACE TO SUBROUTINE FG_SETRGB[C](NUMBER,RED,GREEN,BLUE)
      INTEGER NUMBER,RED,GREEN,BLUE
      END

      INTERFACE TO SUBROUTINE FG_SETSIZE[C](ISIZE)
      INTEGER ISIZE
      END

      INTERFACE TO SUBROUTINE FG_SETSIZEW[C](SIZE)
      REAL*8 SIZE
      END

      INTERFACE TO SUBROUTINE FG_SETVIEW[C](XMIN,XMAX,YMIN,YMAX,
     +                                      MINX,MAXX,MINY,MAXY)
      INTEGER XMIN,XMAX,YMIN,YMAX,MINX,MAXX,MINY,MAXY
      END

      INTERFACE TO SUBROUTINE FG_SETVPAGE[C](PAGE)
      INTEGER PAGE
      END

      INTERFACE TO SUBROUTINE FG_SETWORLD[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO SUBROUTINE FG_SHEAR[C](SOURCE,DEST,WIDTH,HEIGHT,
     +                                    NEW_SIZE,SHEAR_TYPE)
      INTEGER*1 SOURCE[REFERENCE]
      INTEGER*1 DEST[REFERENCE]
      INTEGER WIDTH,HEIGHT,NEW_SIZE,SHEAR_TYPE
      END

      INTERFACE TO INTEGER FUNCTION FG_SHOWFLIC[C](FILENAME,COUNT,FLAGS)
      CHARACTER FILENAME[REFERENCE]
      INTEGER COUNT,FLAGS
      END

      INTERFACE TO INTEGER FUNCTION FG_SHOWGIF[C](FILENAME,FLAGS)
      CHARACTER FILENAME[REFERENCE]
      INTEGER FLAGS
      END

      INTERFACE TO INTEGER FUNCTION FG_SHOWPCX[C](FILENAME,FLAGS)
      CHARACTER FILENAME[REFERENCE]
      INTEGER FLAGS
      END

      INTERFACE TO INTEGER FUNCTION FG_SHOWPPR[C](FILENAME,WIDTH)
      CHARACTER FILENAME[REFERENCE]
      INTEGER WIDTH
      END

      INTERFACE TO INTEGER FUNCTION FG_SHOWSPR[C](FILENAME,WIDTH)
      CHARACTER FILENAME[REFERENCE]
      INTEGER WIDTH
      END

      INTERFACE TO SUBROUTINE FG_SOUND[C](FREQUENCY,DURATION)
      INTEGER FREQUENCY,DURATION
      END

      INTERFACE TO SUBROUTINE FG_SOUNDS[C](ARRAY,NTIMES)
      INTEGER ARRAY[REFERENCE]
      INTEGER NTIMES
      END

      INTERFACE TO SUBROUTINE FG_SPLIT[C](IY)
      INTEGER IY
      END

      INTERFACE TO SUBROUTINE FG_STALL[C](DELAY)
      INTEGER DELAY
      END

      INTERFACE TO SUBROUTINE FG_SUSPEND[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_SVGAINIT[C](METHOD)
      INTEGER METHOD
      END

      INTERFACE TO INTEGER FUNCTION FG_SVGASTAT[C]()
      END

      INTERFACE TO SUBROUTINE FG_SVGAVER[C](MAJOR,MINOR)
      INTEGER MAJOR[REFERENCE]
      INTEGER MINOR[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_SWCHAR[C](STRING,N,JUSTIFY)
      CHARACTER STRING[REFERENCE]
      INTEGER N,JUSTIFY
      END

      INTERFACE TO REAL*8 FUNCTION FG_SWLENGTH[C](STRING,N)
      CHARACTER STRING[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_SWTEXT[C](STRING,N,JUSTIFY)
      CHARACTER STRING[REFERENCE]
      INTEGER N,JUSTIFY
      END

      INTERFACE TO SUBROUTINE FG_TCDEFINE[C](INDEX,ATTRIBUTE)
      INTEGER INDEX,ATTRIBUTE
      END

      INTERFACE TO SUBROUTINE FG_TCMASK[C](MASK)
      INTEGER MASK
      END

      INTERFACE TO SUBROUTINE FG_TCXFER[C](MINX,MAXX,MINY,MAXY,
     +                                  NEWX,NEWY,SOURCE,DEST)
      INTEGER MINX,MAXX,MINY,MAXY,NEWX,NEWY,SOURCE,DEST
      END

      INTERFACE TO INTEGER FUNCTION FG_TESTMODE[C](MODE,PAGES)
      INTEGER MODE,PAGES
      END

      INTERFACE TO SUBROUTINE FG_TEXT[C](STRING,N)
      CHARACTER STRING[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_TEXTC[C](STRING,N)
      CHARACTER STRING[REFERENCE]
      INTEGER N
      END

      INTERFACE TO SUBROUTINE FG_TRANSFER[C](MINX,MAXX,MINY,MAXY,
     +                                       NEWX,NEWY,SOURCE,DEST)
      INTEGER MINX,MAXX,MINY,MAXY,NEWX,NEWY,SOURCE,DEST
      END

      INTERFACE TO SUBROUTINE FG_UNPACK[C](SOURCE,DEST,SIZE)
      INTEGER*1 SOURCE[REFERENCE]
      INTEGER*1 DEST[REFERENCE]
      INTEGER SIZE
      END

      INTERFACE TO INTEGER*4 FUNCTION FG_VBADDR[C](HANDLE)
      INTEGER HANDLE
      END

      INTERFACE TO INTEGER FUNCTION FG_VBALLOC[C](WIDTH,HEIGHT)
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_VBCLOSE[C]()
      END

      INTERFACE TO SUBROUTINE FG_VBCOPY[C](MINX,MAXX,MINY,MAXY,
     +                                     NEWX,NEWY,SOURCE,DEST)
      INTEGER MINX,MAXX,MINY,MAXY,NEWX,NEWY,SOURCE,DEST
      END

      INTERFACE TO SUBROUTINE FG_VBCUT[C](MINX,MAXX,MINY,MAXY,NEWX,NEWY)
      INTEGER MINX,MAXX,MINY,MAXY,NEWX,NEWY
      END

      INTERFACE TO INTEGER FUNCTION FG_VBDEFINE[C](BUFFER,WIDTH,HEIGHT)
      INTEGER*1 BUFFER[REFERENCE]
      INTEGER WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_VBFREE[C](HANDLE)
      INTEGER HANDLE
      END

      INTERFACE TO INTEGER FUNCTION FG_VBHANDLE[C]()
      END

      INTERFACE TO SUBROUTINE FG_VBINIT[C]()
      END

      INTERFACE TO INTEGER FUNCTION FG_VBOPEN[C](HANDLE)
      INTEGER HANDLE
      END

      INTERFACE TO SUBROUTINE FG_VBPASTE[C](MINX,MAXX,MINY,MAXY,
     +                                      NEWX,NEWY)
      INTEGER MINX,MAXX,MINY,MAXY,NEWX,NEWY
      END

      INTERFACE TO SUBROUTINE FG_VBTCCOPY[C](MINX,MAXX,MINY,MAXY,
     +                                       NEWX,NEWY,SOURCE,DEST)
      INTEGER MINX,MAXX,MINY,MAXY,NEWX,NEWY,SOURCE,DEST
      END

      INTERFACE TO SUBROUTINE FG_VBTCXFER[C](MINX,MAXX,MINY,MAXY,
     +                                       NEWX,NEWY)
      INTEGER MINX,MAXX,MINY,MAXY,NEWX,NEWY
      END

      INTERFACE TO SUBROUTINE FG_VBUNDEF[C](HANDLE)
      INTEGER HANDLE
      END

      INTERFACE TO SUBROUTINE FG_VERSION[C](MAJOR,MINOR)
      INTEGER MAJOR[REFERENCE]
      INTEGER MINOR[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_VGASTATE[C](OPTION)
      INTEGER OPTION
      END

      INTERFACE TO SUBROUTINE FG_VOICE[C](NUMBER,FREQ,VOLUME,DURATION)
      INTEGER NUMBER,FREQ,VOLUME,DURATION
      END

      INTERFACE TO SUBROUTINE FG_VOICES[C](ARRAY,NTIMES)
      INTEGER ARRAY[REFERENCE]
      INTEGER NTIMES
      END

      INTERFACE TO SUBROUTINE FG_WAITFOR[C](NCYCLES)
      INTEGER NCYCLES
      END

      INTERFACE TO SUBROUTINE FG_WAITKEY[C]()
      END

      INTERFACE TO SUBROUTINE FG_WAITVR[C](STATE)
      INTEGER STATE
      END

      INTERFACE TO SUBROUTINE FG_WHERE[C](ROW,COLUMN)
      INTEGER ROW[REFERENCE]
      INTEGER COLUMN[REFERENCE]
      END

      INTERFACE TO INTEGER FUNCTION FG_XALPHA[C](IX)
      INTEGER IX
      END

      INTERFACE TO INTEGER FUNCTION FG_XCONVERT[C](COLUMN)
      INTEGER COLUMN
      END

      INTERFACE TO INTEGER FUNCTION FG_XSCREEN[C](X)
      REAL*8 X
      END

      INTERFACE TO INTEGER FUNCTION FG_XVIEW[C](VX)
      INTEGER VX
      END

      INTERFACE TO REAL*8 FUNCTION FG_XWORLD[C](IX)
      INTEGER IX
      END

      INTERFACE TO INTEGER FUNCTION FG_YALPHA[C](IY)
      INTEGER IY
      END

      INTERFACE TO INTEGER FUNCTION FG_YCONVERT[C](ROW)
      INTEGER ROW
      END

      INTERFACE TO INTEGER FUNCTION FG_YSCREEN[C](Y)
      REAL*8 Y
      END

      INTERFACE TO INTEGER FUNCTION FG_YVIEW[C](VY)
      INTEGER VY
      END

      INTERFACE TO REAL*8 FUNCTION FG_YWORLD[C](IY)
      INTEGER IY
      END