home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 11-07.BAS < prev    next >
BASIC Source File  |  1995-01-31  |  644b  |  34 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(-(64000+16))
  15. Handle = FGvballoc(320,200)
  16. Status = FGvbopen(Handle)
  17.  
  18. FGsetcolor 7
  19. FGrect 0, 159, 0, 99
  20. FGsetcolor 9
  21. FGlocate 6, 6
  22. FGtext "quadrant", 8
  23.  
  24. FGvbcopy 0, 159, 0, 99, 160,  99, Handle, Handle
  25. FGvbcopy 0, 319, 0, 99,   0, 199, Handle, Handle
  26. FGvbpaste 0, 319, 0, 199, 0, 199
  27. FGwaitkey
  28.  
  29. FGvbclose
  30. FGvbfree Handle
  31. FGsetmode OldMode
  32. FGreset
  33. END
  34.