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 2/95    "
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 2/95"
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 GOTO105
13 IF A = 2 THEN GOTO205
14 IF A = 3 THEN GOTO300
15 IF A = 4 THEN GOTO400
16 IF A = 5 THEN GOTO505
17 IF A = 6 THEN GOTO600
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]
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
300 PRINT"[147]"
301 PRINT"[211][208][201][197][204][197][212][197][201][204]"
302 PRINT"[211]EITE 1 EINLEGEN UND [212][193][211][212][197]"
303 GETA$:IFA$=""THEN303
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]
400 [153]"LOAD"
401 [153]"VALSTR$RIGHT$(null)(null)(null)RIGHT$ATN(null)"
402 [153]"(null)EITE 1 EINLEGEN UND (null)ATN(null)(null)VAL"
403 [161]A$:[139]A$[178]""[167]403
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