home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #2 / Commodore_Disk_User_Vol.3_2_1989_-.d64 / demo3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  377b  |  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.