home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 08-12.BAS < prev    next >
BASIC Source File  |  1995-01-20  |  501b  |  36 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. SetMemStatus& = SETMEM(-(153600+16))
  6.  
  7. OldMode = FGgetmode
  8. FGsetmode 18
  9.  
  10. Status = FGalloccms(2)
  11. FGgetentry 2, PageAddr, PageType
  12.  
  13. FGsetcolor 9
  14. FGfillpage
  15. FGsetcolor 15
  16. FGbox 0, 639, 0, 479
  17. FGwaitkey
  18.  
  19. FGcopypage 0, 2
  20. FGsetmode OldMode
  21. FGcursor 0
  22. FGsetcolor 15
  23. FGtext "Press any key.", 14
  24. FGwaitkey
  25.  
  26. FGsetmode 18
  27. FGsetentry 2, PageAddr, PageType
  28. FGcopypage 2, 0
  29. FGwaitkey
  30.  
  31. Status = FGfreepage(2)
  32. FGsetmode OldMode
  33. FGreset
  34.  
  35. END
  36.