home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l291 / 6.ddi / ARC.FO$ / ARC.bin
Encoding:
Text File  |  1991-05-03  |  611 b   |  21 lines
  1.        INCLUDE   'FGRAPH.FI'
  2.        INCLUDE   'FGRAPH.FD'
  3.  
  4.        INTEGER*2          status
  5.        RECORD / xycoord / xystart, xyend, xyfill
  6.  
  7.        status = setvideomode( $MRES16COLOR )
  8.        status = arc( 80, 50, 240, 150, 80, 50, 240, 150 )
  9.  
  10.        status = getarcinfo( xystart, xyend, xyfill )
  11.        CALL moveto( xystart.xcoord, xystart.ycoord, xyfill )
  12.        status = lineto( xyend.xcoord, xyend.ycoord )
  13.        status = floodfill( xyfill.xcoord, xyfill.ycoord, getcolor() )
  14.  
  15.        READ( *, * )     ! Press ENTER to exit
  16.        status = setvideomode( $DEFAULTMODE )
  17.  
  18.        END 
  19.  
  20.  
  21.