home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D02.D64 / demo3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  377 b   |  17 lines
  1. 5 (null):(null) 15:POKE650,128
  2. 6 PRINT"[147]GLIDE DEMO"
  3. 7 PRINT"USEFUL TECHNIQUE FOR SFX"
  4. 8 PRINT"USE + AND - KEYS TO ALTER FREQUENCY"
  5. 9 PRINT"PRESS SPACE TO RE-RUN"
  6. 10 INPUT"STARTING FREQUENCY";FQ
  7. 12 INPUT"INCREMENT";IC
  8. 13 IFIC>5000THEN12
  9. 15 IFFQ<200THEN10
  10. 20 (null) 1,9*16+8,240
  11. 30 (null) 1,FQ:(null) 1,33
  12. 40 GETA$:IFA$=""THEN40
  13. 50 IFA$="+"ANDFQ+IC<65535THENFQ=FQ+IC
  14. 60 IFA$="-"ANDFQ-IC>200THENFQ=FQ-IC
  15. 65 IFA$=CHR$(32)THENRUN
  16. 70 GOTO30
  17.