home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 03-10.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  488 b   |  29 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. OldMode = FGgetmode
  6. Status = FGsvgainit(1)
  7.  
  8. IF FGtestmode(27,1) THEN
  9.    FGsetmode 27
  10. ELSEIF FGtestmode(26,1) THEN
  11.    FGsetmode 26
  12. ELSEIF FGtestmode(25,1) THEN
  13.    FGsetmode 25
  14. ELSE
  15.    PRINT "This program requires an SVGA with at least 512K video memory."
  16.    STOP
  17. END IF
  18.  
  19. FGsetcolor 15
  20. FGtext "I'm running in mode", 19
  21. FGtext STR$(FGgetmode), LEN(STR$(FGgetmode))
  22. FGtext ".", 1
  23. FGwaitkey
  24.  
  25. FGsetmode OldMode
  26. FGreset
  27.  
  28. END
  29.