home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 17-01.BAS < prev    next >
BASIC Source File  |  1995-01-20  |  782b  |  39 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. SetMemStatus& = SETMEM(-2*(64000+16))
  6.  
  7. INPUT "Which video mode"; Mode
  8.  
  9. Status = FGsvgainit(0)
  10. IF FGtestmode(Mode,0) = 0 THEN
  11.    PRINT "Your system does not support that video mode."
  12.    STOP
  13. ELSEIF FGtestmode(Mode,3) = 0 THEN
  14.    PRINT "Your system does not have enough memory."
  15.    STOP
  16. END IF
  17.  
  18. Original& = FGmemavail
  19. OldMode = FGgetmode
  20. FGsetmode Mode
  21. Mem0& = FGmemavail
  22. Status = FGallocate(1)
  23. Mem1& = FGmemavail
  24. Status = FGallocate(2)
  25. Mem2& = FGmemavail
  26.  
  27. Status = FGfreepage(1)
  28. Status = FGfreepage(2)
  29. FGsetmode OldMode
  30. FGreset
  31.  
  32. PRINT "originally     ="; Original&
  33. PRINT "after setmode  ="; Mem0&
  34. PRINT "after 1st page ="; Mem1&
  35. PRINT "after 2nd page ="; Mem2&
  36. PRINT "at end         ="; FGmemavail
  37.  
  38. END
  39.