home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 55
/
Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_B.d64
/
irq-musikprg_kah
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
743b
|
28 lines
1 q=peek(186):qa=peek(821):onqagoto4,5,8
2 rem -- irqmusikprogramm---010502 --
3 print"[147]":poke53280,0:poke53281,11:goto10
4 poke821,2:load"assirqmsx03*",q,1
5 poke821,3:loadf$+"*",q,1
8 poke55,135:poke56,144:clr:goto80
10 print"[158]irqmusikprog"
20 print"[159]von kahate"
30 print"[155]bitte musiktitel eingeben:"
40 print"[158][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
50 poke19,1:input"[145][145]";f$:poke19,0:print
60 printtab(24)"[152]bitte warten"
70 poke821,1:goto1
80 printtab(17)"[158]und nun viel spass![152]"
82 fori=1101to1103:pokei,32:next
90 sys39000
100 r1=peek(1101):ifr1<>5then100
110 print"[152]repeat <return[152]> / ende <e[152]>"
112 print"[152]oder neue melodie laden? <n[152]>"
120 r$="":getr$:ifr$=""then120
122 ifr$="e"thensys64738
124 ifr$=chr$(13)then150
126 ifr$="n"then140
128 goto120
140 sys39796:poke821,0:goto1
150 forx=18to24:poke781,x:sys59903:next
152 poke211,0:poke214,16:sys58640:goto80