home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 08-08.BAS < prev    next >
BASIC Source File  |  1995-01-20  |  590b  |  44 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. Status = FGsvgainit(0)
  6. IF (FGsvgastat AND 4) = 0 THEN
  7.    PRINT "Extended pages are not supported."
  8.    STOP
  9. END IF
  10. IF FGmemory < 512 THEN
  11.    PRINT "512K video memory required."
  12.    STOP
  13. END IF
  14.  
  15. OldMode = FGgetmode
  16. FGsetmode 13
  17.  
  18. FGsetcolor 9
  19. FGfillpage
  20. FGsetcolor 15
  21. FGtext "Page 0", 6
  22.  
  23. FGsetpage 15
  24. FGsetcolor 10
  25. FGfillpage
  26. FGsetcolor 15
  27. FGlocate 0, 0
  28. FGtext "Page 15", 7
  29. FGwaitkey
  30.  
  31. FGsetvpage 15
  32. FGwaitkey
  33.  
  34. FGsetvpage 0
  35. FGwaitkey
  36.  
  37. FGdefpages 15, 0
  38. FGcopypage 15, 0
  39. FGwaitkey
  40.  
  41. FGsetmode OldMode
  42. FGreset
  43. END
  44.