#3
1312 FOR I=0 TO VAL(A$(0))
1314 PRINT #1:A$(I)
1316 NEXT I
1317 CLOSE #1 \FILEV#1:"TV:"
1318 GOTO 1300
1320 PRINT #1:"TIERE WELCHE ICH ZUR ZEIT KENNE:"
1322 FOR I=1 TO 200
1324 IF SEG$(A$(I),1,2)<>"*A" THEN 1327
1326 PRINT#1: SEG$(A$(I),3,72)
1327 NEXT I
1328 PRINT#1:
1329 GOTO 1300
1330 PRINT #1:"BITTE ANTWORTE 'J','N','SAVE','ODER 'LIST'"
1340 GOTO 1300
1350 K=1
1375 D=1
1400 IF SEG$(A$(K),D,D)<>"*" THEN 1407
1405 D=D+2
1407 PRINT#1: SEG$(A$(K),D,D);
1408 D=D+1
1410 IF SEG$(A$(K),D,D)<>"*" THEN 1407
1411 CLOSE #1 \ FILE#2:"TV:"
1415 INPUT#2: Z9$  \CLOSE #2 \FILEV#1:"TV:" \PRINT#1:
1417 Z9$=SEG$(Z9$,1,1)
1420 IF Z9$="J" THEN 1424
1422 Z9$="N"
1424 D=D+1
1426 IF SEG$(A$(K),D,D)<>Z9$ THEN 1424  \ D=D+1
1427 X=VAL(SEG$(A$(K),D,D)) \ GOTO 1429
1428 X=(X*10)+VAL(SEG$(A$(K),D,D))
1429 D=D+1 \ IF SEG$(A$(K),D,D)<> "*" THEN 1428 \K=X
1430 REM   PRINT A$(K)
1431 IF LEN (A$(K))<>0 THEN 1440
1432 GOSUB 1400
1433 GOTO 1460
1440 IF SEG$(A$(K),1,2)="*Q" THEN 1375
1442 PRINT #1: "IST ES EIN ";
1444 PRINT#1: SEG$(A$(K),3,72);   \ D=D+1
1445 CLOSE #1 \ FILE#2:"TV:"
1446 INPUT #2: Z7$ \CLOSE #2 \FILEV#1:"TV:" \PRINT#1:
1448 Z7$=SEG$(Z7$,1,1)
1450 IF Z7$<>"J" THEN 2000
1460 PRINT#1: "WARUM PROBIERST DU KEIN ANDERES TIER ?"
1470 GOTO 1300
2000 PRINT #1:"WAS IST DAS FUR EIN SELTSAMES TIER ";
2010 CLOSE #1 \  FILE#2:"TV:"
2020 INPUT#2:Z9$ \CLOSE #2 \ FILEV#1:"TV:" \PRINT#1:
2050 PRINT#1:"BITTE SCHREIBE IN EINER FRAGE WAS UNTERSCHEIDET EIN ";
2052 PRINT #1:Z9$;" VON EINEM ";SEG$(A$(K),3,72)
2053 CLOSE #1 \  FILE#2:"TV:"
2060 INPUT#2: Z8$  \CLOSE #2 \FILEV#1:"TV:" \PRINT#1:
2100 PRINT#1: "FUER EIN ";Z9$;" DIE ANTWORT WAERE ";
2105 CLOSE #1 \  FILE#2:"TV:"
2110 INPUT#2: Z7$ \CLOSE #2 \FILEV#1:"TV:" \PRINT#1:
2120 Z7$=SEG$(Z7$,1,1)
2130 IF Z7$="J" THEN 2160
2140 IF Z7$="N" THEN 2180
2150 PRINT#1: "BITTE ANTWORTE 'J' ODER 'N'"  \ GOTO 2100
2160 Z6$="N"
2170 GOTO 2200
2180 Z6$="J"
2200 Z1=VAL (A$(0))
2220 A$(0)=STR$(Z1+2)
2240 A$(Z1)=A$(K)
2260 A$(Z1+1)="*A"&Z9$
2280 A$(K)="*Q"&Z8$&"*"&Z7$&STR$(Z1+1)&"*"&Z6$&STR$(Z1)&"*"
2300 GOTO 1300
2305 CLOSE #1
2310 END