+ A10000:20: unregelm. Verben VTVE:VN(VT.5):HTHO:AN0:FS0 AX(5):6030 L V -- Ausschrift Vorgabe -- ` !jVEZN(0):HO3:110:"dt. : ";3!tAX(0)0 1160@!~V$(V,0)d!VEZN(1):HO1:110:"pres. : ";w!AX(1)0 1190!V$(V,1)!VEZN(2):110:"pret. : ";!AX(2)0 1220!V$(V,2)!VEZN(3):110:"p. p. : ";!AX(3)0 "V$(V,3):"%" -- Antwort richtig ? --+"(F"2R1:A$(X)V$(V,X)R0L"<R"xr" -- Ausschrift "FALSCH" --x""VEZN(X):HO25:110:SR$"FALSCH":150:"" -- Ausschrift "RICHTIG" --""VEVN7:HO13:I0 4:110:SR$"RICHTIG"'#150:SD2:450:110:" ":#SD2:450:I:@#@^#J -- "FALSCH" loeschen --d#T#^HO25:I0 4:VEVNI:110#h" ";:I:## -- Fragen loeschen --##HO0:I0 4:VEVNI:110$" ";$I:%$I$ -- Leerzeichen am Ende weg --O$d$&(A$,1)" " $0A$(A$,(A$)1):1830$l$v -- "TASTE" --$$SR$"TASTE":HO11:VEVN10:110:150$210:110:" ":$% -- Eingaben und Auswertung --%<%F10:HO7:I0 3:AX(I)1 2070X%VEZN(I):110:A$"":A$y%(A$,1)"0" F11:I3:2070% 1830:A$(I)A$%I:F11 % F0:X0 3:AX(X)1 2110%*1330:R0 2110%4FF1:ZZ(F)X:250:1430 &>X:F0 250:1530:21401&H1930:1630:I1 F:VEZN(ZZ(I))K&R110:V$(V,ZZ(I));:Im&\FSFSF:1930:1730:ANAN1:s& & -- deutsch -> englisch --& & 100:VEVN10:HO0:110& " Der Computer wuerfelt ein deutsches" ' " Verb aus. Die englischen Vokabeln"&' " sind einzugeben.":@' " Mit";:SR$"0":150d' "kommt man ins Menue zurueck."' AX(0)1:I1 3:AX(I)0:I' 260:V(RVAA):1130'& 2030:F11 6150'0 3100'' -- englisch -> deutsch --'(100:VEVN10:HO0:1102(" Der Computer wuerfelt ein englisches"_(" Verb aus. Die deutsche Vokabel sowie"(" die unregelmaessigen Zeiten sind"(" einzugeben."(" Mit";:SR$"0":150("kommt man ins Menue zurueck."(I0 3:AX(I)0:I:AX(1)1)260:V(RVAA):1130))2030:F11 61503)"41109)L) -- Zufall --R)n)100:VEVN10:HO0:110)" Der Computer wuerfelt irgendeine")" Verbform aus. Die fehlenden Vokabeln")" (deutsch oder englisch) und die"*" Zeiten sind zu ergaenzen."(*" Mit";:SR$"0":150L*"kommt man ins Menue zurueck."p*260:V(RVAA):260:V1(RV4)*I0 3:AX(I)0:I:AX(V1)1:1130*2030:F11 6150* 5100*p*z -- Main --**V$(200,3):A$(3):ZZ(3):ZN(3):AN0!+I1 3:ZN(I)VN1I:I:ZN(0)VN5+VEVN:HO2:110h+"Bitte Computer in Kleinschriftmodus":VEVN1+110:"bringen!":VEVN3:110+"Schriftprobe";:A$(0):100+I0:AA0:VEVN:HO0:110+"Etwas Geduld, ich muss mich vorbereiten" ,J0 3:V$(I,J)',V$(I,J)"0" AAI:J3;,J:AA0 6150K,II1:6110m,100:VEVN6:HOHT.510:110,SR$"===============":150:VEVE1:110,SR$" A U S W A H L ":150:VEVE1,$110:SR$"===============":150:VEVE4-.110:SR$"1":150:"Deutsch":VEVE2?-8110:SR$"2":150:"Englisch":VEVE2g-B110:SR$"3":150:"Zufall":VEVE2-L110:SR$"E":150:"Ende"-V210:IN49 3030-`IN50 4030-jIN51 5030-tIN69 7030-~6230-X-b -- Ende ---l.v100:VEVN4:HO3:1102.AN;" Fragen wurden gestellt"\.VEVN:HO4:110:"Du hast dabei ";FS;t." Fehler gemacht!".VEVN4:110:"Findest Du das gut (j/n) ?".210:IN74 950.IN78 7080.VEVN8:HO6:110/SR$"Na dann uebe weiter !":150$/SD50:450:AN0:FS0:6150Q/a"sich erheben","arise","arose","arisen"z/a"erwachen","awake","awoke","awoken"/a"sein","be","was","been"/a"gebaeren","bear","bore","born"/a"schlagen","beat","beat","beat" 0a"werden","become","became","become"40a"zeugen","beget","begot","begotten"\0a"anfangen","begin","began","begun"0a"beugen","bend","bent","bent"0b"berauben","bereave","bereft","bereft"0 b"dringend bitten","beseech","besought","besought"1b"wetten","bet","bet","bet"(1 b"gebieten","bid","bade","bidden"N1*b"abwarten","bide","bode","bidet"s14b"binden","bind","bound","bound"1>b"beissen","bite","bit","bitten"1Hb"bluten","bleed","bled","bled"1Rb"preisen","bless","blest","blest"2\b"blasen","blow","blew","blown"/2fb"brechen","break","broke","broken"V2pb"aufziehen","breed","bred","bred"2zb"bringen","bring","brought","brought"2b"bauen","build","built","built"2b"brennen","burn","burnt","burnt"2b"bersten","burst","burst","burst"3b"kaufen","buy","bought","bought"<3b"werfen","cast","cast","cast"d3b"fangen","catch","cought","cought"3b"waehlen","choose","chose","chosen"3b"sich anklammern","cling","clung","clung"3b"kleiden","clothe","clad","clad"4b"kommen","come","came","come"(4b"kosten","cost","cost","cost"P4b"kriechen","creep","crept","crept"v4b"kraehen","crow","crew","crowed"4c"schneiden","cut","cut","cut"4c"handeln","deal","dealt","dealt"4c"graben","dig","dug","dug"4$c"machen","do","did","done"#5.c"ziehen","draw","drew","drawn"M58c"traeumen","dream","dreamt","dreamt"t5Bc"trinken","drink","drank","drunk"5Lc"fahren","drive","drove","driven"5Vc"wohnen","dwell","dwellt","dwellt"5`c"essen","eat","ate","eaten" 6jc"fallen","fall","fell","fallen",6tc"fuettern","feed","fed","fed"P6~c"fuehlen","feel","felt","felt"z6c"kaempfen","fight","fought","fought"6c"finden","find","found","found"6c"fliehen","flee","fled","fled"6c"schleudern","fling","flung","flung"7c"fliegen","fly","flew","flown"A7c"verbieten","forbid","forbade","forbidden"p7c"vergessen","forget","forgot","forgotten"7c"verzeihen","forgive","forgave","forgiven"7c"verlassen","forsake","forsook","forsaken"7c"frieren","freeze","froze","frozen"8c"bekommen","get","got","got">8c"geben","give","gave","given"^8d"gehen","go","went","gone"8 d"mahlen","grind","ground","ground"8d"wachsen","grow","grew","grown"8d"haengen","hang","hung","hung"8(d"haben","have","had","had"92d"hoeren","hear","heard","heard"79e"vekaufen","sell","sold","sold"F>e"senden","send","sent","sent"f>e"setzen","set","set","set">e"naehen","sew","sewed","sewn">e"schuetteln","shake","shook","shaken">e"rasieren","shave","shaved","shaven"?e"scheren","shear","sheard","shorn"-?e"ausgiessen","shed","shed","shed"U?e"scheinen","shine","shone","shone"{?e"scheissen","shit","shit","shit"?e"beschuhen","shoe","shod","shod"?f"schiessen","shoot","shot","shot"?f"zeigen","show","showed","shown"@f"schrumpfen","shrink","shrank","shrunk"B@&f"schliessen","shut","shut","shut"e@0f"singen","sing","sang","sung"@:f"sinken","sink","sank","sunk"@Df"sitzen","sit","sat","sat"@Nf"erschlagen","slay","slew","slain"@Xf"schlafen","sleep","slept","slept"Abf"gleiten","slide","slid","slid"GAlf"schleudern","sling","slung","slung"qAvf"schleichen","slink","slunk","slunk"Af"schlitzen","slit","slit","slit"Af"riechen","smell","smelt","smelt"Af"saeen","sow","sowed","sown" Bf"sprechen","speake","spoke","spoken"-Bf"eilen","speed","sped","sped"ZBf"buchstabieren","spell","spelt","spelt"Bf"ausgeben","spend","spent","spent"Bf"verschuetten","spill","spilt","spilt"Bf"spinnen","spin","spun","spun"Bf"spucken","spit","spat","spat"Cf"spalten","split","split","split"HCf"verderben","spoil","spoilt","spoilt"uCf"verbreiten","spread","spread","spread"Cg"springen","spring","sprang","sprung"C g"stehen","stand","stood","stood"Cg"stehlen","steal","stole","stolen"D g"stecken","stick","stuck","stuck"g"bestreuen","strew","strewed","strewn"DHg"ueberschreiten","stride","strode","stridden"DRg"stossen","strike","struck","struck"E\g"spannen","string","strung","strung"AEfg"streben","strive","strove","striven"jEpg"schwoeren","swear","swore","sworn"Ezg"schwitzen","sweat","sweat","sweat"Eg"fegen","sweep","swept","swept"Eg"anschwellen","swell","swelled","swollen" Fg"schwimmen","swim","swam","swum"6Fg"schwingen","swing","swung","swung"ZFg"nehmen","take","took","taken"Fg"lehren","teach","taught","taught"Fg"ziehen","tear","tore","torn"Fg"sagen","tell","told","told"Fg"denken","think","thought","thought"Gg"gedeihen","thrive","throve","thriven"DGg"werfen","throw","threw","thrown"oGg"schieben","thrust","thrust","thrust"Gg"treten","tread","trod","trodden"Gh"wachen","wake","woke","woke"Gh"weben","weave","wove","woven"Hh"weinen","weep","wept","wept"!H$h"naessen","wet","wet","wet"CH.h"gewinnen","win","won","won"hH8h"winden","wind","wound","wound"HBh"auswringen","wring","wrung","wrung"HLh"schreiben","write","wrote","written"HVh"0"H0u -----------------------------I:u Das Vokabular kann durch Er-0IDu gaenzen oder weglassen vonSINu DATA-Zeilen veraendert wer-uIXu den. Der Abschluss erfolgtIbu mit DATA"0". Werden mehr alsIlu 200 Vokabeln eingegeben, istIvu in Zeile 6030 das Feld V$Ju groesser zu dimensionieren.%Ju -----------------------------IJy +++++++++++++++++++++++++++++kJ"y Das Woerterverzeichnis istJ,y Langenscheidts Schulwoerter-J6y buch, 10. Auflage, 1990J@y entnommen.JJy +++++++++++++++++++++++++++++K} *****************************K }-K} Gert LautenschlaegerCK} Erlenhof 26\K(} O-1585 Potsdam{K2} KC 85/4 901117K<}KF} *****************************KP}KZ} Erstausstrahlung: Deutschlandsender KulturKd} Computermagazin 901218K<}KF} *****************************KP}KZ} Erstausstrahlung: Deutschlandsender KulturKd} Computermagazin 90121