0 POKE46,21:POKE48,21:POKE50,21:POKE52,160:S2=3428:S1=2610:DIMO$(4,6):POKE2053,137:V=53248
1 DIMA$(255),B(12):FORR=0TO11:READB(R):NEXT:FORR=0TO23:FORT=0TO11:P=R*72+S2-16+T:W=B(T)
2 POKEP,W:NEXTT:POKEP-4,65+R:FORT=1TO60:POKEP+T,48:NEXTT:POKEP-8,20+R:Q=S2+57+R*72:W=Q/256
3 W=INT(W):POKEP-9,W:POKEP-10,(Q/256-W)*256:NEXTR:POKE2040,13:FORR=0TO94:POKER+832,0
4 A$(R)=CHR$(R):NEXTR:POKEV+32,0:POKEV+21,1:POKEV+29,1:A$(94)="[174]":A$(45)="[171]":A$(42)="[172]"
5 A$(43)="[170]":A$(47)="[173]":A$(61)="[178]":POKE2054,55:FORR=65TO88:A$(R)="[165]"+CHR$(R)+"(X)":NEXT
6 POKEV+39,1:FORR=0TO8:READH:POKE5101+R,H:NEXT:POKE2055,58:DATA,,,,,150,165,,40,88,41,178,
7 GOSUB20:PRINT"[147][154]":FORJ=0TO5:FORD=0TO3:POKES1,65+J*4+D:A$=STR$(FNX(X)):POKEV+33,6:DATA125
8 PRINTMID$(A$,1,9),"[157][157][157][157][157][157][157][157][145]  "CHR$(65+J*4+D)"  [146]",:NEXTD:PRINT"":NEXTJ:DATA28,44,,142,,,
9 GETG$:ON-(G$=" ")GOTO12:X=3AND(X+(G$="[157]")-(G$="")+4):POKE834,31:S=(G$="[145]"):POKEV+21,1
10 Y=Y+S-(G$=""):Y=Y-(Y<0)+(Y>5):POKE53248,15+80*X:ON-(G$="D")GOTO19:IFG$="L"THEN18
11 POKEV+1,Y*24+61:PRINT"[145]                    "SPC(20)"[145]"O$(X,Y):ON-(G$="S")GOTO17:GOTO9
12 INPUT"WERT/FORMEL ";F$:L=LEN(F$):ON-(L<1)-(L>20)GOTO7:K$=""
13 FORR=1TOL:K$=K$+A$(ASC(MID$(F$,R,1))):NEXT:FORR=1TOLEN(K$):D=S2-5+72*X+288*Y
14 O$(X,Y)=F$:POKED+R,ASC(MID$(K$,R,1)):NEXT:POKED+R,58:POKED+1+R,143
15 POKE198,5:POKE631,71:POKE632,207:POKE633,49:POKE634,54:POKE635,13:GOTO7
16 K$="":L=1:F$="0":PRINT"[147]FEHLER !!!":POKE198,0:WAIT 198,1:GETGE$:GOTO13
17 SAVE"C",8,1:OPEN1,8,2,"D,S,W":FORR=0TO3:FORT=0TO5:PRINT#1,O$(R,T)+" ":NEXTT,R:CLOSE1:GOTO7
18 OPEN1,8,2,"D,S,R":FORR=0TO3:FORT=0TO5:INPUT#1,O$(R,T):NEXTT,R:CLOSE1:LOAD"C",8,1
19 OPEN4,4,4:FORR=65TO88:POKE3382,R:I$=STR$(FNX(X)):PRINT#4,I$SPC(20-LEN(I$));:NEXT:CLOSE4:GOTO7