home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 December / 1988-12.d64 / printsounds (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  769b  |  25 lines
  1. 10 print"[147]":poke646,6:poke53280,0:poke53281,0
  2. 20 print"the programmer's page"
  3. 30 print"1[146] chord sound"
  4. 40 print"2[146] engine sound"
  5. 50 print"3[146] error sound"
  6. 60 print"4[146] phone sound"
  7. 70 print"5[146] space sound"
  8. 80 geta$:ifa$="" then 80
  9. 81 ifval(a$)=0orval(a$)>5 then80
  10. 82 gosub510
  11. 85 on val(a$) gosub200,210,220,230,240
  12. 90 goto80
  13. 200 poke209,0:poke210,212:poke211,0:print"[161]h[192]i[193]@[176]o[146]j[192][146][204][193]@po[146]l@[188][193]@[176][146]@x[146][199][223]";
  14. 205 return
  15. 210 poke209,0:poke210,212:poke211,0:print"[195][146]a p[146]u@[176][146]la@@@@@[166]a [208]a@[176]@@@_";
  16. 215 return
  17. 220 poke209,0:poke210,212:poke211,0:print"0d h[213][190][184][146]@@@@@@@_u@[192] @@@@@o";
  18. 225 return
  19. 230 poke209,0:poke210,212:poke211,0:print"95[192]@[146]s@[176][146]la@@@@@[209]a [198][192]@[176][146]@@@_";
  20. 235 return
  21. 240 poke209,0:poke210,212:poke211,0:print"[169][146]g 8[146]w@[176][223][146]'@0u@[176][146][176]d@pa@@@[212][177][146]?";
  22. 245 return
  23. 510 poke209,0:poke210,212:poke211,0:print""
  24. 520 forx=54272 to 54296:pokex,0:next:return
  25.