home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 December
/
1988-12.d64
/
printsounds
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
769b
|
25 lines
10 print"[147]":poke646,6:poke53280,0:poke53281,0
20 print"the programmer's page"
30 print"1[146] chord sound"
40 print"2[146] engine sound"
50 print"3[146] error sound"
60 print"4[146] phone sound"
70 print"5[146] space sound"
80 geta$:ifa$="" then 80
81 ifval(a$)=0orval(a$)>5 then80
82 gosub510
85 on val(a$) gosub200,210,220,230,240
90 goto80
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]";
205 return
210 poke209,0:poke210,212:poke211,0:print"[195][146]a p[146]u@[176][146]la@@@@@[166]a [208]a@[176]@@@_";
215 return
220 poke209,0:poke210,212:poke211,0:print"0d h[213][190][184][146]@@@@@@@_u@[192] @@@@@o";
225 return
230 poke209,0:poke210,212:poke211,0:print"95[192]@[146]s@[176][146]la@@@@@[209]a [198][192]@[176][146]@@@_";
235 return
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]?";
245 return
510 poke209,0:poke210,212:poke211,0:print""
520 forx=54272 to 54296:pokex,0:next:return