home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Graphics / graphics-16000.iso / msdos / animutil / fastgfx / fg303d / exbas.arj / FGDOC / EXAMPLES / BASIC / 06-13.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-09-30  |  280 b   |  22 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. OldMode = FGgetmode
  6. FGsetmode 19
  7. FGsetcolor 9
  8. FGrect 0, 159, 0, 199
  9. FGsetcolor 15
  10. FGrect 160, 319, 0, 199
  11. FGwaitkey
  12.  
  13. FGboxx 80, 239, 50, 149
  14. FGwaitkey
  15. FGboxx 80, 239, 50, 149
  16. FGwaitkey
  17.  
  18. FGsetmode OldMode
  19. FGreset
  20.  
  21. END
  22.