1 GOTO1991
21 IFX<2ORQ<>1ORI>XTHEN2110
22 IFX>ITHENB=1
23 KL=1:SYSIN:SYSW:IFI>0THEN60
40 T=B:I=I+1:H=I:IFH>XTHENI=X:H=0:J(B)=J(B)-1
50 SYSVE,R(T)-1,W(T):J(T)=J(T)+1:POKEW(T),H
60 H=PEEK(R(T)):IFH=0THEN40
65 IFSC=1THEN195
70 N1=INT(RND(TI)*14):N2=INT(RND(TI)*6):N3=INT(RND(TI)*6):N4=INT(RND(TI)*14)
80 SYSW:RECLOWN2,N1,27,12,4:WOUTN1+1,N2+1,N1+25,N2+10,F$(H):J=0
81 J=J+1:GETA$:IFJ=OTHEN90
82 IFA$=CHR$(135)THENWAIT203,64:GOTO90
83 GOTO81
90 FL=9:RECLOWN3+8,N4,27,12,4:WOUTN4+1,N3+9,N4+25,N3+18,A$(H)
100 KEY160,32,140,136,210,133,110,134
110 IFFL=9THENFL=8:RECLOWN2,N1,27,12,4:WOUTN1+1,N2+1,N1+25,N2+10,F$(H):GOTO100
120 GOTO90
140 J(T)=J(T)-1:IFJ(T)=0THENB=B+1:IFB=Z+1THEN190
150 T=B:GOTO50
160 J(T)=J(T)-1:T=T+1:IFT=Z+1THEN190
170 IFJ(B)<>0THEN50
180 B=B+1:GOTO50
190 G=G+1:IFJ(Z)<>0THEN40
191 I=0:G=0:KL=0:SYSW:RECLOW3,2,35,3,4
192 WOUT4,4,34,4,"[211]IE HABEN ALLE [203]ARTEN GELERNT !":GOSUB1030:GOTO2050
195 RECLOW0,1,27,12,4:WOUT2,1,26,10,F$(H):RECLOW13,12,27,12,4
196 WINP13,14,37,23,"",C$,1;H$:D$=H$:IFST=1THEN210
197 IFH$<>A$(H)THEN199
198 WOUT3,17,10,17,"[210]ICHTIG.":FORA=1TO500:NEXT:WOUT3,17,10,17,"":GOTO160
199 WOUT3,17,9,17,"[198]ALSCH.":FORA=1TO500:NEXT
200 WOUT1,17,9,17,"RICHTIG":WOUT1,19,6,19,"IST..."
201 WOUT13,14,37,23,A$(H)
202 KEY209,32,209,13,203,136,201,135,210,133
203 WOUT13,14,37,23,D$:GOTO202
209 WOUT1,17,9,19,"":GOTO140
210 GOSUB1056:PRINT"[147] [201]NFORMATIONEN":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
211 PRINT"[196]ER [203]ARTEIKASTEN."
220 K=0:S1=0:FORA=1TOZ*2STEP2:K=K+1:S1=S1+J(K)
230 S2=A+5:WOUT1,S2,10,S2,STR$(K)+". "+STR$(U(K)):WOUT10,S2,13,S2,STR$(J(K))
240 WLINEA+6,6,9,4:NEXT:RECLOW5,5,11,Z*2+1,4
250 WOUT22,6,32,6,"[211]UMME :"+STR$(X)
251 WOUT22,8,32,8,"IM [203]. :"+STR$(S1)
252 WOUT20,10,32,10,"GELERNT :"+STR$(G)
253 WOUT20,12,32,12,"[218]EITVOR :"+STR$(O/16)
254 WOUT22,14,32,14,"[197]BENE :"+STR$(T)
255 WOUT20,19,36,19,"F 3  WEITERLERNEN"
256 WOUT20,21,35,21,"F 5  [200]AUPTMENUE"
257 WOUT20,23,37,23,"F 7  [218]EITVORGABE"
260 KEY264,134,2050,135,261,136
261 WOUT20,23,37,23,"[218]EITVORGABE ? :  :":WINP35,23,36,23,"","[133] ",1;H$
262 D=VAL(H$):IFST=0ANDD<>0THENO=16*D
263 GOTO253
264 GOSUB1055:SYSW:GOTO65
280 PRINT"[147] [196]ATEN":PRINT"[163][163][163][163][163][163][163]":RECLOW0,12,27,12,4:RECLOW13,12,27,12,4
281 SYS49338:GOSUB1055:WOUT0,4,10,10,E$:WOUT0,14,11,22,F$
282 WOUT39,0,39,23,"[214]ORDERSEITE    [210]@CKSEITE"
285 IFY>255THENY=255:C=0
286 WOUT13,1,37,10,F$(Y):WOUT13,14,37,23,A$(Y)
287 WOUT2,2,10,2,"":PRINT"/";Y;"#";X
288 IFY<>X+1ANDC=0THEN300
290 A=0:WINP13,1,37,10,F$(Y),C$,8;H$:F$(Y)=H$:GOTO296
295 WINP13,14,37,23,A$(Y),C$,8;H$:A$(Y)=H$:A=1:C=0
296 IFF$(Y)<>""ANDA$(Y)<>""ANDY=X+1THENX=X+1
297 F=ST+1:ONFGOTO301,367,330,338,350,361,363,309,365
300 KEY301,13,367,F1,330,F3,338,F5,350,F7,361,F2,363,F4,309,F6,N,F8,P,69,304,78
301 IFF$(Y)=""THEN290
302 IFA$(Y)=""THEN295
303 Y=Y+1:C=0:GOTO285
304 Y=0:C=1
305 Y=Y+1:WOUT13,1,37,10,F$(Y):WOUT13,14,37,23,A$(Y):IFF$(Y)=""THEN285
306 GETA$:IFA$(Y)=""ORA$="/"THEN285
307 IFY<255THEN305
308 C=0:GOTO285
309 IFX=0ORY=X+1ORX=255THEN285
310 WOUT15,12,28,12,"AUFSCHIEBEN..."
311 FORA=XTOYSTEP-1:SYS(SW)F$(A+1),F$(A):SYS(SW)A$(A+1),A$(A):NEXT
315 F$(Y)="":A$(Y)="":X=X+1:C=1:WOUT15,12,28,12,"":GOTO285
330 IFY=X+1ORY=255THENY=1:C=0:GOTO285
335 Y=X+1:GOTO285
338 IFX=0ORY=X+1THEN285
339 WOUT15,12,24,12,"L:SCHEN..."
340 FORA=YTOX:SYS(SW)F$(A),F$(A+1):SYS(SW)A$(A),A$(A+1):NEXT:F$(A)="":A$(A)=""
345 X=X-1:C=0:WOUT15,12,24,12,"":GOTO285
350 IFY=1THEN288
360 Y=Y-1:C=0:GOTO285
361 IFY+9>XORY>245THENY=X:GOTO286
362 Y=Y+10:GOTO285
363 IFY<11THENY=1:GOTO286
364 Y=Y-10:GOTO285
365 IFA=1THEN290
366 GOTO295
367 GOSUB1056:PRINT"[147][204][146]OAD   [211][146]AVE  [198][146]REE"
368 PRINT"[212][146]AUSCH [197][146]RASE [205][146]ISCHEN":C=0
369 PRINT"[200][146]AUPTMENUE   [195][146]ANCEL"
370 RECLOW11,7,27,7,4:RECLOW10,8,25,9,4
371 GETA$:IFA$=""THEN377
376 IFA$="F"THENPRINT" FREE:";FRE(0)
377 IFA$="H"THEN2050
378 IFA$="C"THEN280
379 IFA$="L"THENF=5:SYSW:WOUT1,8,4,8,"[204]OAD":D$="":GOTO399
380 IFA$="S"ANDX>0THENF=7:SYSW:WOUT1,8,4,8,"[211]AVE":GOTO399
381 IFA$="T"ANDX>0THENSYSW:WOUT1,8,8,8,"[212]AUSCHEN":RECLOW7,0,10,3,4:GOTO385
382 IFA$="E"ANDX>0THENSYSW:WOUT1,8,5,8,"[197]RASE":RECLOW7,0,7,3,4:GOTO387
383 IFA$="M"ANDX>0THENSYSW:WOUT1,8,7,8,"[205]ISCHEN":RECLOW7,0,9,3,4:GOTO542
384 GOTO371
385 WOUT5,12,26,12,"[205]OMENT, ICH TAUSCHE..."
386 FORA=1TOX:SYS(SW)F$(A),A$(A):NEXT:WOUT1,12,26,12,"":GOSUB1030:GOTO280
387 RECLOW11,0,30,3,4:WOUT1,12,28,12,"LOESCHEN VON :   : BIS :   :"
388 WOUT13,15,19,15,"F1 UNDO"
389 WINP15,12,17,12,"","[133] ",1;H$:A=VAL(H$):IFST=1THEN280
390 IFA=0ORA>XTHEN389
391 WINP25,12,27,12,"","[133] ",1;H$:A2=VAL(H$):IFST=1THEN280
392 IFA2<AORA2>XTHEN391
393 WOUT0,11,29,13,"":WOUT13,15,19,15,"":WOUT6,12,27,12,"[205]OMENT, ICH LOESCHE..."
394 FORY=1TOX-A2:SYS(SW)F$(A+Y-1),F$(A2+Y):SYS(SW)A$(A+Y-1),A$(A2+Y):NEXT
395 A4=X-A2+A:FORY=A4TOX+1:F$(Y)="":A$(Y)="":NEXT:X=A4-1:Y=1:WOUT6,12,39,12,""
396 GOSUB1030:GOTO280
399 RECLOW11,0,28,3,4:RECLOW7,0,6,3,4:WOUT13,15,28,15,"F1 UNDO   F3 DIR"
405 WOUT1,12,26,12,"[196]ATEINAME ? :            :"
410 WINP14,12,25,12,"",J$,2;H$:D$=H$:IFST=2ANDD$=""THEND$="*"
425 IFST=1ORD$=""THEN280
426 IFST=2THENSYSW:SYS(CA)0,"$:DAT."+D$+"=SEQ",24:GOSUB1030:GOTO379
440 OPEN1,8,15:CLOSE1
441 IFST<>0THEN:WOUT1,12,26,12,"[196]EVICE NOT PRESENT ERROR":GOSUB1030:GOTO280
442 IFF=7THEN490
450 OPEN2,8,2,"0:DAT."+D$+",S,R":OPEN1,8,15:GOSUB1000:IFV<>0THEN470
455 WOUT1,12,26,12,"LOADING...":INPUT#2,D:IFX+D<256THEN457
456 WOUT1,12,39,12,"ZU VIELE [203]ARTEN...":CLOSE1:CLOSE2:GOSUB1030:GOTO280
457 PRINT"[156]CARDS TO LOAD FROM [159]";D:PRINT"[156][211]UMME:[159]";X+D
458 F$(X+1)="":A$(X+1)="":FORL=DTO1STEP-1
460 PRINT"[158]";L;"[157] ";:X=X+1:SYS(IP),2,F$(X):SYS(IP),2,A$(X):NEXT
465 PRINT"0 [159]":GOSUB1000
470 WOUT1,12,26,12,V$:CLOSE1:CLOSE2:GOSUB1030:GOTO280
490 WOUT1,12,26,12,"SAVING..."
500 OPEN1,8,15:OPEN2,8,2,"0:DAT."+D$+",S,R":INPUT#1,A:CLOSE2:CLOSE1
501 IFA<>0THEN520
505 WOUT5,18,31,18,"ALTE [196]ATEI LOESCHEN (J/N) ?"
506 KEY510,74,379,78
510 OPEN1,8,15,"S:DAT."+D$:CLOSE1:WOUT5,18,31,18,"":CLOSE1
520 OPEN1,8,15,"I0":OPEN2,8,2,"0:DAT."+D$+",S,W":GOSUB1000:IFV<>0THEN470
525 PRINT"[156]CARDS TO SAVE FROM [159]";X:PRINT#2,X
526 FORA=1TOX:IFF$(A)=""THENF$(A)="."
527 IFA$(A)=""THENA$(A)="."
530 PRINT"[158]";X+1-A;"[157] ";:PRINT#2,F$(A);CR$;A$(A);CR$;:NEXT
541 PRINT"0 [159]":GOSUB1000:GOTO470
542 WOUT5,12,24,12,"[205]OMENT, ICH MISCHE..."
543 FORA=1TOX:A1=INT(RND(0)*X)+1:SYS(SW)F$(A1),F$(A):SYS(SW)A$(A),A$(A1):NEXT
544 WOUT5,12,24,12,"":GOSUB1030:GOTO280
600 SYSIN:PRINT"[147] [203]ONFIGURATION":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
601 WOUT5,24,35,24,"F1 [206]EUEINGABE     F3 [200]AUPTMEN@"
610 PRINT"[215]IEVIELE [198];CHER ?        (MAX. - 9)":RECLOW3,20,3,3,4
620 WINP21,4,21,4,"","[133] ",2;H$:Z=VAL(H$):IFST=2THEN2050
621 IFST=1ORZ=0ORZ>9THEN620
622 A=0
630 FORL=0TOZ-1:RECLOW8,L*4,5,3,4:WOUTL*4+1,11,L*4+3,11,STR$(L+1)+".":NEXT:L=1
640 WINPL*4-3,9,L*4-1,9,"","[133] ",2;H$:U(L)=VAL(H$):IFST=1THEN600
641 IFST=2THEN2050
645 IFU(L)<2ORU(L)>255THEN640
650 A=A+U(L):IFA<1660THEN654
651 WOUT3,15,26,15,"LEIDER NICHT M:GLICH...":A=A-U(L):KEY652,32
652 WOUT3,15,26,15,"":GOTO640
654 IFL<ZTHENL=L+1:GOTO640
655 WOUT1,16,13,16,"[218]EITVORGABE ?":RECLOW15,16,4,3,4
660 WINP17,16,18,16,"","[133] ",2;H$:O=16*VAL(H$):IFST=1THEN600
670 IFST=2THEN2050
680 IFO=0THEN660
840 GOSUB1050:FORL=1TOZ:POKEU+L,U(L):J(L)=0:NEXT:G=0
850 SYS49267,U+24,R(Z)+2,0:I=0:GOTO2050
900 SYSIN:GOSUB1056:PRINT"[147][196]ISK [207]PERATIONS":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
950 WLINE5,0,27,4:WLINE18,0,27,4:WOUT1,20,8,20,"[211]TATUS :"
960 WOUT1,3,32,3,"F1 DIR    F3 [195]OMMAND    F5 [205]ENUE"
970 KEY971,133,984,134,2050,135
971 A=1:GOSUB993
972 WOUT0,6,22,16,"":WOUT23,6,26,16,""
973 PRINT"":DIR7,17:GOSUB1010:CLOSE1:GOTO970
984 A=0
993 OPEN1,8,15:CLOSE1:IFST=0THEN995
994 WOUT10,20,33,20,"[196]EVICE NOT PRESENT ERROR":GOTO970
995 OPEN1,8,15:WOUT10,20,38,20,"":IFA=1THENRETURN
996 WOUT1,23,6,23,"[195]OM. ?":RECLOW22,8,30,3,4:WINP9,23,36,23,"",C$,1;H$
997 IFH$=""ORST=1THEN999
998 PRINT#1,H$:GOSUB1010
999 CLOSE1:WOUT1,22,37,24,"":GOTO970
1000 INPUT#1,V,V1$:V$=STR$(V)+" "+V1$:RETURN
1010 GOSUB1000:WOUT10,20,38,20,V$:RETURN
1030 RECLOW22,11,17,3,4:WOUT13,23,25,23,"PRESS <SPACE>":KEY1031,32
1031 WOUT10,22,27,24,"":RETURN
1050 A=0:FORL=0TOZ-1:A=A+U(L):W(L+1)=A:R(L+1)=A+U(L+1)-1:NEXT:Q=1:RETURN
1055 POKEZS,(PEEK(ZS)AND240)OR14:RETURN
1056 POKEZS,(PEEK(ZS)AND240)OR6:RETURN
1060 SYS49853:GOSUB1055:RETURN
1070 SYS49784:READA:FORE=1TOA:READAN:FORBN=0TO7:READMN:POKEAN+BN,MN:NEXT:NEXT
1071 RESTORE:GOTO1060
1072 DATA7,14336,0,102,0,102,102,102,62,0
1073 DATA14552,195,60,102,102,102,102,60,0
1074 DATA14560,60,102,108,102,98,102,108,96
1075 DATA 14568,102,24,60,102,126,102,102,0
1076 DATA 14800,0,102,0,60,102,102,60,0
1077 DATA 14808,102,0,60,6,62,102,62,0
1078 DATA15312,102,0,102,102,102,102,60,0
1100 SYSIN:PRINT"[147][159][204]ERNKARTEI / [218]EICHENSATZ":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1110 GOSUB1056:PRINT"F 1  [204]ERNKARTEI LADEN":CA$="LK."
1120 PRINT"F 3  [204]ERNKARTEI SPEICHERN"
1130 PRINT"F 5  [218]EICHENSATZ LADEN"
1135 PRINT"F 7  [200]AUPTMENUE":IFWE=1ANDFL=1THEN1155
1136 IFWE=1ANDFL=0THEN1156
1137 IFWE=1ANDFL=2THEN1145
1138 WOUT11,22,38,24,"":WOUT0,13,25,20,"":CA$="LK.":FL=0
1140 KEY1150,134,2050,136,1156,133,1145,135
1145 CA$="ZS.":FL=2:RECLOW13,0,11,3,4:WOUT1,14,9,14,"[218][211]. LADEN":GOTO1157
1150 IFQ<>1THEN1140
1155 FL=1:RECLOW13,0,15,3,4:WOUT1,14,13,14,"[204]K. SPEICHERN":GOTO1157
1156 RECLOW13,0,11,3,4:WOUT1,14,9,14,"[204]K. LADEN"
1157 RECLOW17,0,24,3,4:WE=0
1160 WOUT1,18,22,18,"[206]AME ? :             :":WOUT8,20,23,20,"F1 UNDO   F3 DIR"
1170 WINP9,18,21,18,"",J$,2;H$:D$=H$:IFST=2ANDD$=""THEND$="*"
1171 IFST=1ORD$=""THEN1138
1172 IFST=2THENSYSW:SYS(CA)0,"$:"+CA$+D$+"=PRG",24:GOSUB1030:WE=1:GOTO1100
1180 OPEN1,8,15:CLOSE1:POKEU+10,I:POKEU+11,O/16:A$="LK."+D$
1185 IFST<>0THEN:WOUT1,18,22,18,"[196]EV. NOT PRESENT ERROR":GOSUB1030:GOTO1138
1188 OPEN1,8,15:IFFL<>1THEN1220
1189 FORL=1TOZ:POKEU+11+L,J(L):NEXT:POKEU+21,T:POKEU+22,B:POKEU+23,G:POKEU,Z
1190 WOUT1,18,22,18,"SAVING...":OPEN2,8,2,A$:INPUT#1,A
1191 CLOSE2:IFA<>0THEN1209
1200 WOUT1,23,27,23,"ALTE [196]ATEI LOESCHEN (J/N) ?"
1201 KEY1208,74,1215,78
1208 PRINT#1,"S:"+A$
1209 WOUT1,23,27,23,"":SAVPRGA$,8,U,R(Z):GOSUB1000
1210 WOUT1,18,22,18,V$
1215 WOUT1,23,27,23,"":CLOSE1:GOSUB1030:IFFL<>2THEN1138
1216 GOTO1100
1220 WOUT1,18,22,18,"LOADING...":LODPRGCA$+D$,8:GOSUB1000:IFV<>0THEN1210
1221 IFFL<>2THEN1228
1222 GOSUB1060:GOTO1210
1228 Z=PEEK(U):FORL=1TOZ:U(L)=PEEK(U+L):J(L)=PEEK(U+11+L):NEXT:O=PEEK(U+11)*16
1229 I=PEEK(U+10):B=PEEK(U+22):T=PEEK(U+21):G=PEEK(U+23):GOSUB1050
1230 IFX>=IANDI>0THENKL=1
1240 GOSUB1030:SYSW:PRINT"[193]NZAHL [198]AECHER :";Z
1250 FORL=0TOZ-1:WOUTL*4+1,7,L*4+3,7,MID$(STR$(U(L+1)),2,3):RECLOW6,L*4,5,3,4
1260 WOUTL*4+1,9,L*4+3,9,STR$(L+1)+".":NEXT:PRINT:PRINT"[218]EITVORGABE :";O/16
1270 PRINT"[205]INDESTKARTENMENGE :";I:GOSUB1030:CLOSE1:GOTO1100
1300 WOUT4,22,32,22,"([195])ANCEL  ([207])RIG. [218][211]  ([205])ODUS":KEY1310,79,1320,67,1330,77
1310 WOUT4,22,32,22,"KOMMT SOFORT...":GOSUB1070
1320 WOUT4,22,32,22,"":GOTO2110
1330 IFSC=0THENSC=1:WOUT4,22,32,22,"[197]INGABE-[205]ODUS EINGESCHALTET.":GOTO1350
1340 SC=0:WOUT4,22,32,22,"[197]INGABE-[205]ODUS AUSGESCHALTET."
1350 FORA=1TO1500:NEXT:GOTO1320
1500 IFKL<>1THEN2110
1501 GOSUB1056:PRINT"[147] [193]USWAHL":PRINT"[163][163][163][163][163][163][163][163][163]":WOUT20,9,32,9,"F1 [200]AUPTMENUE"
1510 PRINT"[196]ATEN BEHALTEN VON [198]ACH 1 BIS : : ?":RECLOW5,1,37,3,4
1520 WINP33,6,33,6,"","[133] ",1;H$:R=VAL(H$):IFST=1THEN2050
1529 IFR=0ORR>ZORB>RTHEN1520
1530 IFI=XTHENA$="N":PRINT:GOTO1540
1531 PRINT:PRINT"NICHT GELERNTE [203]ARTEN BEHALTEN (J/N) ?"
1532 GETA$:IFA$=""THEN1532
1533 IFA$=CHR$(133)THEN2050
1534 IFA$<>"N"ANDA$<>"J"THEN1532
1540 PRINT"[205]OMENT, ICH RECHNE..."
1545 IFH<>PEEK(R(R))THENPOKE(R(R)),0
1550 L=0:FORA=1TOX:SYS49297,U(0),R(R)+1,A:IFPEEK(2)=0THENNEXT:GOTO1570
1560 L=L+1:SYS(SW)F$(L),F$(A):SYS(SW)A$(L),A$(A):NEXT
1570 IFA$="N"THEN1590
1580 FORA=I+1TOX:L=L+1:SYS(SW)F$(L),F$(A):SYS(SW)A$(L),A$(A):NEXT
1590 FORA=L+1TOX:F$(A)="":A$(A)="":NEXT:X=L:GOSUB1030:Y=1:GOTO840
1991 POKE53280,14:POKE53281,0:POKE46,64:POKE45,1:CLR:POKE650,128
1995 F1=133:F3=134:F5=135:F7=136:F2=137:F4=138:F6=139:F8=140:P=290:N=365
1996 POKE207,0:POKE204,1
1999 CR$=CHR$(13):U=51578:U(0)=U+24:VE=49152:IN=49771:IP=49930:CA=49495
2000 SYS50020:DIMF$(256),A$(256):Y=1:SW=49448:ZS=53272:W=58692
2010 C$="[133][134][135] [160]_!#$%&'()+-\^*@:;=/.,_[219][221][169][255][192][186]][?><[166][220][168][223][164][175][185][162][184][183][163][178][177][179][171][176][174][172][187][165][180][181][161][182][167][170][191][190][188][189][173]"
2020 E$="F1 [204]/[211]/ETC.           F3 [193]NF/[197]NDE           F5 L:SCHEN   "
2030 E$=E$+"         F7 ZUR@CK":F$="F2 10 VOR               F4 10 ZUR.     "
2040 F$=F$+"         F6 AUFSCH.              F8 [215]ECHSEL              (RET) (E)"
2041 J$="[133][134] +-_!#$%&'()\^@;:[]/.,<>?*"
2042 GOSUB1070
2050 PRINT"[159][147][156][205]ANFRED [211]CH;FER":PRINT"[205]AINZER [211]TR. 7":PRINT"6501 [211]AULHEIM"
2052 GOSUB1055:PRINT"[159][200]YPRA - [204]ERNKARTEI V 1.4"
2060 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2070 PRINT"F 1  [196]ATEN     F 2  [204][203]/[218][211]"
2080 PRINT"F 3  [203]ONF.     F 4  [218][211]/[205]OD."
2090 PRINT"F 5  LERNEN    F 6  [193]USWAHL"
2100 PRINT"F 7  [196]ISK      F 8  [210]ESET":SYS49338
2105 WLINE11,5,29,4:RECLOW7,4,31,15,4
2110 KEY280,F1,21,F5,600,F3,900,F7,2121,F8,1100,F2,1500,F6,1300,F4
2121 WOUT4,22,25,22,"[194]IST DU SICHER (J/N) ?":KEY2130,74,2125,78
2125 WOUT4,22,25,22,"":GOTO2110
2130 SYSIN:WOUT4,22,25,22,"ZUR@CK MIT GOTO 2050...":PRINT:PRINT