home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 09-02.BAS < prev    next >
BASIC Source File  |  1995-01-31  |  738b  |  40 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. IF FGtestmode(19,1) = 0 THEN
  6.    PRINT "This program requires a 320 x 200 MCGA graphics mode."
  7.    STOP
  8. END IF
  9. OldMode = FGgetmode
  10. FGsetmode 19
  11. FGvbinit
  12.  
  13. SetMemStatus& = SETMEM(-(320&*200&+16))
  14. Handle = FGvballoc(320,200)
  15. IF Handle < 0 THEN
  16.    FGsetmode OldMode
  17.    FGreset
  18.    PRINT "Could not create the virtual buffer."
  19.    STOP
  20. END IF
  21. Status = FGvbopen(Handle)
  22.  
  23. Status = FGloadpcx("CORAL.PCX"+CHR$(0),0)
  24. IF Status = 0 THEN
  25.    FGvbpaste 0, 319, 0, 199, 0, 199
  26.    FGwaitkey
  27. END IF
  28.  
  29. FGvbclose
  30. FGvbfree Handle
  31. FGsetmode OldMode
  32. FGreset
  33.  
  34. IF Status = 1 THEN
  35.    PRINT "CORAL.PCX not found."
  36. ELSEIF Status = 2 THEN
  37.    PRINT "CORAL.PCX is not a PCX file."
  38. END IF
  39. END
  40.