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 / 15-07.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  573 b   |  34 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. CONST Esc = 27
  6.  
  7. DIM KeyCode AS STRING*1
  8. DIM AuxCode AS STRING*1
  9.  
  10. OldMode = FGgetmode
  11. FGsetmode FGautomode
  12. RectColor = 0
  13.  
  14. FGmusicb "O4 L16 CC#DD#EFF#GG#AA#B O+ CC#DD#EFF#GG#AA#B$", -1
  15.  
  16. WHILE FGplaying
  17.    RectColor = (RectColor + 1) AND 15
  18.    FGsetcolor RectColor
  19.    FGrect 0, FGgetmaxx, 0, FGgetmaxy
  20.  
  21.    FGwaitfor 4
  22.    FGintkey KeyCode, AuxCode
  23.    IF KeyCode = CHR$(Esc) THEN
  24.       FGhush
  25.    ELSEIF ASC(KeyCode)+ASC(AuxCode) <> 0 THEN
  26.       FGhushnext
  27.    END IF
  28. WEND
  29.  
  30. FGsetmode OldMode
  31. FGreset
  32.  
  33. END
  34.