0 PRINT"[153][147]":POKE53280,0:POKE53281,0
1 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
2 PRINT"[159]    [208][207][215][197][210] [196][201][211][203] 64 - [200]AUPTMENU 1/96    "
3 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
4 PRINT"[159]1 = [208]ROGRAMMENU"
5 PRINT"2 = [205]USIK"
6 PRINT"3 = [211]PIELETEILMENU"
7 PRINT"4 = [197]DITORIAL"
8 PRINT"5 = [201]NHALT 1/96"
9 PRINT"6 = [210][197][211][197][212]"
10 INPUT"[215]AS WOLLEN SIE MACHEN";A:PRINT"[145][145][145]"
11 IF A<1 OR A>6 THEN0
12 IF A = 1 THEN GOTO100
13 IF A = 2 THEN GOTO200
14 IF A = 3 THEN GOTO305
15 IF A = 4 THEN GOTO405
16 IF A = 5 THEN GOTO505
17 IF A = 6 THEN GOTO600
100 PRINT"[147]"
101 PRINT"[208][210][207][199][210][193][205][205][197]"
102 PRINT"[211]EITE 2 EINLEGEN UND [212][193][211][212][197]"
103 GETA$:IFA$=""THEN103
105 POKE828,0
106 PRINT CHR$(147) CHR$(17)
107 PRINT "LOAD"CHR$(34);"PROGRAMM*";CHR$(34); ",8
108 [153] [199](17) [199](17) [199](17) [199](17) "RUN"
109 [151]631,13:[151]632,13:[151]198,2
110 [153] [199](19);:[128]
200 [153]"LOAD"
201 [153]"(null)(null)(null)RIGHT$(null)"
202 [153]"(null)EITE 2 EINLEGEN UND (null)ATN(null)(null)VAL"
203 [161]A$:[139]A$[178]""[167]203
205 [151]828,0
206 [153] [199](147) [199](17)
207 [153] "LOAD"[199](34);"MUSIK";[199](34); ",8
208 PRINT CHR$(17) CHR$(17) CHR$(17) CHR$(17) "RUN"
209 POKE631,13:POKE632,13:POKE198,2
210 PRINT CHR$(19);:END
305 POKE828,0
306 PRINT CHR$(147) CHR$(17)
307 PRINT "LOAD"CHR$(34);"SPIELETE*";CHR$(34); ",8
308 [153] [199](17) [199](17) [199](17) [199](17) "RUN"
309 [151]631,13:[151]632,13:[151]198,2
310 [153] [199](19);:[128]
405 [151]828,0
406 [153] [199](147) [199](17)
407 [153] "LOAD"[199](34);"EDITORIA*";[199](34); ",8
408 PRINT CHR$(17) CHR$(17) CHR$(17) CHR$(17) "RUN"
409 POKE631,13:POKE632,13:POKE198,2
410 PRINT CHR$(19);:END
505 POKE828,0
506 PRINT CHR$(147) CHR$(17)
507 PRINT "LOAD"CHR$(34);"INHALT";CHR$(34); ",8
508 [153] [199](17) [199](17) [199](17) [199](17) "RUN"
509 [151]631,13:[151]632,13:[151]198,2
510 [153] [199](19);:[128]
600 [158]64738