home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 08-17.BAS < prev    next >
BASIC Source File  |  1995-01-31  |  668b  |  43 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. OldMode = FGgetmode
  6. FGsetmode 22
  7. FGvbinit
  8.  
  9. SetMemStatus& = SETMEM(-(320&*240&+16))
  10. Handle = FGvballoc(320,240)
  11. IF Handle < 0 THEN
  12.    FGsetmode OldMode
  13.    FGreset
  14.    PRINT "Could not create the virtual buffer."
  15.    STOP
  16. END IF
  17.  
  18. FGsetcolor 9
  19. FGfillpage
  20. FGsetcolor 15
  21. FGbox 0, 319, 0, 239
  22. Status = FGvbopen(Handle)
  23. FGvbcut 0, 319, 0, 239, 0, 239
  24. FGvbclose
  25. FGwaitkey
  26.  
  27. FGsetmode OldMode
  28. FGcursor 0
  29. FGsetcolor 15
  30. FGtext "Press any key.", 14
  31. FGwaitkey
  32.  
  33. FGsetmode 22
  34. Status = FGvbopen(Handle)
  35. FGvbpaste 0, 319, 0, 239, 0, 239
  36. FGwaitkey
  37.  
  38. FGvbclose
  39. FGvbfree Handle
  40. FGsetmode OldMode
  41. FGreset
  42. END
  43.