64'er/64ER_CD.iso/92xx/9205.d64/englisch-trainer

Commodore BASIC | 1995-03-30 | 1KB | 21 lines

1 DIMA$(5,500),B$(5,500),C$(500):POKE53280,0:POKE53281,0:PRINTCHR$(14);
2 PRINT"[147]**[197]NGLISH [212]RAINER**":PRINT"[156]1.[204]ADEN":PRINT"[150]2.[211]PEICHERN"
3 PRINT"3.[193]BFRAGEN [197]-[196]":PRINT"[152]4.[193]BFRAGEN [196]-[197]":PRINT"[158]5.[196]RUCKEN":POKE198,0
4 GETZ$:Z=VAL(Z$):ONZGOTO5,7,10,10,17:GOTO4
5 INPUT"[147][149][196]ATEINAME";U$:OPEN2,8,2,U$+",S,R":INPUT#2,A:FORI=1TOA:INPUT#2,A$(0,I)
6 INPUT#2,A$(1,I):PRINT"";A$(0,I),"[153]";A$(1,I):NEXTI:CLOSE2:WAIT198,1:GOTO2
7 INPUT"[147][150][196]ATEINAME";U$:OPEN2,8,2,+U$+",S,W":INPUT"[193]NZAHL [215]OERTER";A:FORI=1TOA
8 PRINTI;"[159].[215]ORT([197])";:INPUTA$(0,I):PRINTI;"[156].[215]ORT([196])";:INPUTA$(1,I):NEXTI
9 PRINT#2,A:FORI=1TOA:PRINT#2,A$(0,I):PRINT#2,A$(1,I):NEXTI:CLOSE2:GOTO2
10 P=Z-3:B=ABS(P-1):INPUT"[147][218]UFAELLIGE [193]BFRAGE(J[146]/N[146])";F$:IFF$="J"THENGOSUB14
11 FORI=1TOA:PRINT"[129]"A$(P,I)"=",:INPUTC$:IFC$=""THENC$=A$(B,I):PRINT"[154]"C$:F=F+1
12 IFA$(B,I)<>C$THENPRINT"[198]ALSCH[146]!!![155][214]ERSUCH NOCH EINMAL!":F=F+1:I=I-1
13 C$="":NEXT:PRINT"[198]ERTIG MIT[150]"F"[156][198]EHLER":PRINT"[156][212][193][211][212][197][146]":WAIT198,1:F=0:GOTO2
14 FORI=1TOA:B$(0,I)=A$(0,I):B$(1,I)=A$(1,I):NEXT:FORI=1TOA
15 D=INT(A*RND(1))+1:IFB$(0,D)=""THEN15
16 A$(0,I)=B$(0,D):A$(1,I)=B$(1,D):B$(0,D)="":B$(1,D)="":NEXTI:RETURN
17 PRINT"[147][159][196]RUCKEN":INPUT"[150][218]UFAELLIG DRUCKEN(J[146]/N[146])";F$:IFF$="J"THENGOSUB14
18 INPUT"1:[197]NGLISCH [153]2:[196]EUTSCH [129]3:ALLES DRUCKEN";V:V=V-1:N=V:IFV=2THENV=0
19 OPEN2,4,7:CMD2:FORI=1TOA:PRINTA$(V,I);"=";:IFN=2THENPRINTA$(1,I);
20 PRINT:NEXTI:PRINT#2:CLOSE2:GOTO2