10 IFA=0THENGOSUB10000
20 IFA=0THENA=1:LOAD"Z.E.T1",8,1
30 IFA=4THENTHEN1510
40 POKE53265,11:POKE56576,PEEK(56576)AND252:POKE53272,56:POKE648,204:SYS49152+18
50 SYS49152+24:SYS49152+9:PRINT"";
1000 SYS49152+3
1510 POKE198,0:WAIT198,1:GETX$:IFX$=""THENSYS49152+18:GOTO1510
1512 IFX$=""THENPRINTCHR$(142);:GOTO1510
1514 IFX$=""THENPRINTCHR$(14);:GOTO1510
1516 IFX$=""THENSYS49152+27:GOTO1510
1520 WA=ASC(X$)-133:IFWA<0ORWA>7THEN1510
1530 IFWA=0GOTO1000
1540 ONWAGOSUB 2000,4000,7000,9000,3000,5000,8000
1550 SYS49152+9:GOTO1510
2000 GOSUB20000
2010 FORI=0TO7:POKE828+I,USR(TN+I):NEXT
2020 RETURN
3000 GOSUB20000
3010 FORI=0TO7:POKE828+I,USR(TN-4096+I):NEXT
3020 RETURN
4000 GOSUB60000:PRINT"   [218] [197] [201] [195] [200] [197] [206] [211] [193] [212] [218]   [204] [193] [196] [197] [206]    [146]"
4010 PRINT" [206]AME DES [218]EICHENSATZES ('E' ZURUECK)"
4015 PRINT""DN$:PRINT"[145]";
4020 INPUTDN$:IFDN$="E"THENRETURN
4030 OPEN1,8,0,DN$:OPEN15,8,15:INPUT#15,ER,ER$,TT,SS:IFER<>0THEN63000
4040 GET#1,X$,X$:SYS49152+15:CLOSE1:CLOSE15:RETURN
5000 GOSUB60000:PRINT" [218] [197] [201] [195] [200] [197] [206] [211] [193] [212] [218]   [211] [208] [197] [201] [195] [200] [210] [206][146]"
5010 PRINT" [206]AME DES [218]EICHENSATZES ('E' ZURUECK)
5015 [153]""DN$:[153]"ON";
5020 [133]DN$:[139]DN$[178]"E"[167][142]
5030 [159]1,8,1,DN$:[159]15,8,15:[132]15,ER,ER$,TT,SS:[139]ER[178]63[167][137]62000
5040 [139]ER[179][177]0[167]63000
5050 [157]1,[199](0)[199](112);:[158]49152[170]12:[160]1:[160]15:[142]
7000 [158]49152[170]30:[142]
8000 [158]49152[170]27:[158]49152[170]30:[158]49152[170]27:[142]
9000 [141]20000
9010 [129]I[178]0[164]7:[151]TN[170]I,[194](828[170]I):[151]TR[170]I,255[171][194](828[170]I):[130]:[142]
10000 [151]53265,11:[151]53281,0:[151]53280,11:[153]"LOADPRINT#";
10010 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
10020 [153]"(null)WAIT+ + + (null)CLOSEVALCLOSERIGHT$CLOSELENCLOSELEFT$CLOSEVALCLOSE(null)CLOSEVALCLOSESTR$CLOSERIGHT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSE+ + + PRINT#(null)";
10030 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
10040 [153]"      PEEKCLOSERIGHT$CLOSE(null)CLOSE(null)CLOSEVALCLOSECLOSECLOSE(null)CLOSEATNCLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)CLOSE. . ."
10050 [153]"PRINT#   ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
10055 [153]"   (null) LENOPYRIGHT (C) 1986              (null)
10060 PRINT"   [221]                                 [221]
10065 [153]"   (null)    SYS(null)ARKT & (null)ECHNIK (null)ERLAG ATNCHR$PRINT#    (null)
10070 PRINT"   [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
10075 PRINT"   [221]      1985 WRITTEN BY            [221]"
10080 PRINT"   [221]                                 [221]"
10085 PRINT"   [221]      *********************      [221]"
10090 PRINT"   [221]      * [158][205]ARTIN [208]AHL[152]       *      [221]"
10100 PRINT"   [221]      * [158][197]NTRUPER [215]EG 44[152]   *      [221]"
10110 PRINT"   [221]      * [158]4920 [204]EMGO[152]        *      [221]"
10120 PRINT"   [221]      * [158][212]EL.: 05261/10431[152] *      [221]"
10130 PRINT"   [221]      *********************      [221]"
10140 PRINT"   [221]                                 [221]"
10150 PRINT"   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
10160 POKE53265,27
10170 RETURN
20000 PRINT"[215]ELCHE [212]ASTE ? ";:POKE52492,160
20010 POKE198,0:WAIT198,1:GETX$:X=ASC(X$):IFX<32OR(X>128ANDX<160)THEN20010
20020 PRINTX$;:IFPEEK(52492)=160THENPRINT"[157]";:GOTO20010
20030 TN=57344+(PEEK(53272)AND2)*1024+PEEK(52492)*8:TR=TN+1024
20040 PRINT:RETURN
60000 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60010 PRINT"[168][146]+ + + [218] [197] [201] [195] [200] [197] [206] [197] [196] [201] [212] [207] [210] + + + [152][168]";
60020 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]"
60030 RETURN
62000 GOSUB63000:PRINT"[196]ATEI SCRATCHEN ?":POKE198,0:WAIT198,1
62010 GETX$:IFX$="N"THENRETURN
62020 IFX$="J"THENOPEN15,8,15,"S0:"+DN$:CLOSE15:GOTO5000
62030 GOTO62010
63000 PRINT""ER","ER$","TT","SS:CLOSE1:CLOSE15:POKE198,0:WAIT198,1:RETURN