home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 13-07.BAS < prev    next >
BASIC Source File  |  1995-01-31  |  720b  |  41 lines

  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM KeyCode AS STRING*1
  6. DIM AuxCode AS STRING*1
  7.  
  8. OldMode = FGgetmode
  9. FGsetmode 13
  10. FGresize 640, 400
  11.  
  12. FGsetcolor 2
  13. FGrect 0, FGgetmaxx, 0, FGgetmaxy
  14. FGsetcolor 15
  15. FGbox 0, FGgetmaxx, 0, FGgetmaxy
  16. FGjustify 0, 0
  17. FGmove 320, 200
  18. FGprint "Press arrow keys to pan.", 24
  19.  
  20. X = 0
  21. Y = 0
  22.  
  23. DO
  24.    FGgetkey KeyCode, AuxCode
  25.    IF AuxCode = CHR$(72) AND Y < 200 THEN
  26.       Y = Y + 1
  27.    ELSEIF AuxCode = CHR$(75) AND X < 320 THEN
  28.       X = X + 1
  29.    ELSEIF AuxCode = CHR$(77) AND X > 0 THEN
  30.       X = X - 1
  31.    ELSEIF AuxCode = CHR$(80) AND Y > 0 THEN
  32.       Y = Y - 1
  33.    END IF
  34.    FGpan X, Y
  35. LOOP WHILE KeyCode <> CHR$(27)
  36.  
  37. FGsetmode OldMode
  38. FGreset
  39.  
  40. END
  41.