0 POKE53280,0:POKE53281,0:DIMW(12):PRINTCHR$(14):Q=119:BA=1825
1 PRINT"[152][147]":RESTORE:FORI=1TO7:READM$:PRINT""M$:NEXT:READY$,W$,L$
2 GETT$:T=VAL(T$):IFT$=""GOTO2:DATA"[205]INI-[195][200][193][210][212]"
3 IFT<1ORT>5GOTO2:DATA"[157][157][157][157]BY [200]AUKE VON [200]AEFEN","1. [196]ATEN"
4 ONTGOTO5,7,9,11:END:DATA"2. [211]PEICHERN","3. [204]ADEN","4. [196]IAGRAMM","5. [197]NDE"
5 INPUT"[147][206]AME: ";N$:PRINT"":FORI=1TO12:PRINT""I"[157]. [215]ERT: ";:INPUTW(I)
6 NEXT:INPUT"10 [197]INH. = ";E:INPUT"[197]INHEIT: ";E$:GOTO1
7 PRINTY$;W$:INPUT"[198]ILENAME: ";F$:OPEN1,8,2,F$+",S,W"
8 PRINT#1,N$:PRINT#1,E:PRINT#1,E$:FORI=1TO12:PRINT#1,W(I):NEXT:CLOSE1:GOTO1
9 PRINTY$;L$:INPUT"[198]ILENAME: ";F$:OPEN1,8,2,F$+",S,R"
10 INPUT#1,N$:INPUT#1,E:INPUT#1,E$:FORI=1TO12:INPUT#1,W(I):NEXT:CLOSE1:GOTO1
11 PRINT"[147]";:M=E/10:L=160:C=40:R=54272:Z=115:X=1067:V=1827:H=1867:FORI=HTO1903
12 POKEI,Q:NEXT:FORI=XTOVSTEPC:POKEI,Z:NEXT:FORI=1TO12:B=BA+3*I:IFW(I)<=0GOTO15
13 FORJ=1TO2*W(I)/M:POKEB-C+1,L:POKEB-C+2,L:POKER+B-C+2,11:DATA"[147]  [205][207][196][213][211]: "
14 POKEB,L:POKEB+1,L:B=B-C:NEXT:POKER+B+1,11:DATA"[211]PEICHERN","[204]ADEN"
15 NEXT:FORI=1TO(C-LEN(N$))/2:PRINT" ";:NEXT:PRINTN$:FORI=10TO1STEP-1
16 PRINTI;"":NEXT:PRINT"    ";:FORI=1TO12:PRINTI;:IFI>8THENPRINT"[157]";
17 NEXT:PRINT"   10 [197]INHEITEN ENTSPRECHEN"E;E$""
18 GETA$:IFA$=""GOTO18
19 GOTO1