1 DATA120,165,1,72,41,251,133,1,169,208,160,0,133,252,132,251,169,32,133,254,132
2 DATA253,162,16,177,251,145,253,200,208,249,230,252,230,254,202,208,242,104,133
3 DATA1,88,96:FORX=0TO42:READA:POKE49152+X,A:NEXTX:SYS49152:POKE53272,27
4 PRINT"[147][153]   [218]EICHENSATZ-[197]DITOR BY [211]TEPHAN [203]OCH   ":FORX=0TO9:POKE1199+X,160
5 POKE1559+X,160:POKE1199+40*X,160:POKE1208+40*X,160:NEXTX:FORX=0TO7:FORY=0TO31
6 POKE1708+X*40+Y,X*32+Y:NEXTY:NEXTX:F=10240:P=1240:Z=PEEK(P):C=7:A$="N":GOTO 9
7 FORX=0TO40:GETA$:ONLEN(A$)GOTO8:NEXTX:Z=PEEK(P):POKEP,(ZOR128)-(ZAND128):GOTO7
8 Z=PEEK(P)AND127:IFC=7ANDA$="[157]"ORC=0ANDA$=""ORD=0ANDA$="[145]"ORD=7ANDA$=""THEN 7
9 IFA$=""ORA$="[145]"THENPOKEP,Z:A=(ASC(A$)-17)/64-1:P=P+A*-40:D=D-A:GOTO7
10 IF A$=""ORA$="[157]" THEN POKEP,Z:A=(ASC(A$)-29)/64-1:P=P-A:C=C+A:GOTO7
11 IF A$=" "THENPOKEP,(PEEK(P)OR10)-(PEEK(P)AND10):K=PEEK(F+D):L=(2^C)
12 IF A$=" "THEN POKEF+D,(KORL)-(KANDL):GOTO7
13 IFA$="L"THENGOSUB20:CLOSE1:SYS57812N$,8,1:POKE780,0:SYS65493:A$="N":GOTO17
14 IF A$<>"S" THEN 16
15 GOSUB20:PRINT#1,CHR$(0);"(";:FORX=10240TO12288:PRINT#1,CHR$(PEEK(X));:NEXT
16 IFA$="[147]"THENFORX=0TO7:FORY=0TO7:POKE1240+X*40+Y,32:NEXTY:POKEF+X,0:NEXTX
17 IF A$<>"N"THENCLOSE1:GOTO7
18 INPUT"[194]ILDSCHIRMCODE DES [218]EICHENS     [157][157][157]";R:F=10240+R*8:FORX=0TO7:FORY=0TO7
19 POKE1247-Y+X*40,(PEEK(F+X)AND2^Y)/2^Y*10+32:NEXTY:NEXTX:GOTO7
20 INPUT"     [206]AME               [157][157][157][157][157][157][157][157][157][157][157][157][157]";N$:OPEN1,8,2,N$+",P,W":RETURN