home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 May
/
64er_Magazin_92-05_1992_Markt__Technik_de.d64
/
englisch-trainer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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