home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 July / 64er_Magazin_88-07_1988_Markt__Technik_de_Side_A.d64 / sound-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  907b  |  31 lines
  1. 5 poke56,156:clr
  2. 6 sys57812"tool-basic.obj",8,1:poke780,0:sys65493
  3. 7 sys57812"tool-erw.obj",8,1:poke780,0:sys65493
  4. 10 poke53281,6:poke53280,6:print"[147][158]             sound-demo                 "
  5. 20 print"       druecken sie die tasten 1-9"
  6. 30 sys49152
  7. 40 _user#1,s,1
  8. 50 poke198,0:wait198,1:geta$
  9. 60 a=val(a$)
  10. 70 ifa<1ora>9then50
  11. 80 onagoto1000,2000,3000,4000,5000,6000,7000,8000,9000
  12. 90 goto50
  13. 1000 _user#1,s,0,1000,1001,7950,0,1,0,240,500,15,65
  14. 1010 goto50
  15. 2000 _user#1,s,0,1000,1001,10000,0,1,0,240,2000,15,65
  16. 2010 goto50
  17. 3000 _user#1,s,0,1000,20000,4000,0,1,0,240,2000,15,65
  18. 3010 goto50
  19. 4000 _user#1,s,0,100,10000,2000,1,128,0,240,2000,15,65
  20. 4010 goto50
  21. 5000 _user#1,s,0,100,20000,2000,1,128,0,240,500,15,65
  22. 5010 goto50
  23. 6000 _user#1,s,0,7000,15000,100,0,1,0,240,1000,15,65
  24. 6010 goto50
  25. 7000 _user#1,s,0,8000,57000,4000,0,1,0,240,1000,15,65
  26. 7010 goto50
  27. 8000 _user#1,s,0,3000,30000,2000,1,0,0,240,3000,15,65
  28. 8010 goto50
  29. 9000 _user#1,s,0,3000,6000,1000,0,1,12,12,3000,15,129
  30. 9010 goto50
  31.