home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 11-09.BAS < prev    next >
BASIC Source File  |  1995-01-31  |  667b  |  37 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. NewMode = FGbestmode(320,200,1)
  6. IF NewMode < 0 OR NewMode = 12 THEN
  7.    PRINT "This program requires a 320 x 200 color graphics mode."
  8.    STOP
  9. END IF
  10. OldMode = FGgetmode
  11. FGsetmode NewMode
  12.  
  13. FGvbinit
  14. SetMemStatus& = SETMEM(-(160*100+16))
  15. Handle = FGvballoc(160,100)
  16. Status = FGvbopen(Handle)
  17.  
  18. FGsetcolor 7
  19. FGfillpage
  20. FGsetcolor 9
  21. FGlocate 6, 6
  22. FGtext "quadrant", 8
  23. FGvbpaste 0, 159, 0, 99, 0, 99
  24. FGwaitkey
  25.  
  26. FGtcdefine 9, 1
  27. FGvbtcxfer 0, 159, 0, 99, 160, 99
  28. FGvbtcxfer 0, 159, 0, 99, 0, 199
  29. FGvbtcxfer 0, 159, 0, 99, 160, 199
  30. FGwaitkey
  31.  
  32. FGvbclose
  33. FGvbfree Handle
  34. FGsetmode OldMode
  35. FGreset
  36. END
  37.