1 Q=PEEK(186):QA=PEEK(821):ONQAGOTO4,5,8
2 REM ---- KHTIRQMUSIK01---230602 ----
3 PRINT"[147]":POKE53280,0:POKE53281,11:GOTO10
4 POKE821,2:LOAD"KHTIRQMSX01*",Q,1
5 POKE821,3:LOADF$+"*",Q,1
8 POKE55,135:POKE56,144:CLR:GOTO80
10 PRINT"[158]KHTIRQMUSIK01"
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