Directory of image this file is from
This file as a plain text file
#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