%-3000:A1$"HEIMCOMPUTER ROBOTRON Z9001"IA2$"LEHRPROGRAMM":A95\A3$"R+VOKALE"sA4$"LERNPROGRAMM"A5$"FUER ENGLISCH-VOKABELN" VERFASSER:KITTELMANN ANSCHRIFT:MKD,1EKG DATUM 22.11.1984 VERSION 1.0 INITIALWERTE =================IN%A9:8:1:160ZV$(100,1):L$(11," "):IZ1:V1$"LEKTION NR.: "I((31)1):UV528:DE$"DEUTSCH :":EN$"ENGLISCH :"Z100:1000` UNTERPROGRAMME ===============UPb TITELBILD --------------------UPd(2,2);A1$:(4,2);"",(34,""),""9f(5,2);"":(5,37);""Wh(6,2);"",(34,""),""wj(5,3);A2$:3;(5,29);A3$lA9:(8,2);(36,"")nI913:(I,2);"":(I,37);"":Ip(14,2);(36,"")r8:(10,36(A4$));A4$:(12,36(A5$));A5$/t3:(18,2);"VEB ROBOTRON-MESSELEKTRONIK"Wv(20,2);">OTTO SCHOEN< DRESDEN":8}w >ENTER< ---------------------UPx(22,0);(38," "):4;(22,31);">ENTER<"|170:T13(20,27);(11," "):~130:124 WIE BITTE ? -----------------UP%2;(20,27);"WIE BITTE ?":K KENNZIFFER ------------------UPk4;(22,25);"KENNZIFFER :"170:2;(22,37);T$T48KAT48KE130:142TT48:(20,27);(11," "): (J)/N ABFRAGE ---------------UP 4;(22,(32(KY$)));KY$,":(J)/N":(20,27);LS$( 170K T74T13T1:(20,27);LS$:i T78T2:(20,27);LS$:{ 130:10:150 STANDART-WINDOW -------------UP ::175: TASTENABFRAGE ---------------UP T$:T$""170 T(T$): CURSOR BESEITIGEN -----------UP< ((44)1,(43)1);" ":b AUSWAHL VOKABEL -------------UP{ NIZ1:Z(N(5)1) IZN:WE(IUV):WE2VOI:IIZ:I: I I1Z1:WE(IUV):WE2VOI:IZ:I: I:VO0:  HAUPTPROGRAMM ==============HP1 8:1:7:160Z 6;(2,2);"VOKABEL-LERNPROGRAMM":6;(3,2);(20,"")~ (5,2);"1 = VOKABELN EINGEBEN" (7,2);"2 = VOKABELN ABSPEICHERN AUF KASSETTE" (9,2);"3 = VOKABELN EINLESEN VON KASSETTE" (11,2);"4 = VOKABELN LERNEN". $(13,2);"5 = VOKABELN ABFRAGEN"V .(15,2);"6 = VOKABELN KORRIGIEREN"z 8(17,2);"7 = PROGRAMM BEENDEN" LKA1:KE7:140:160:T2000,3000,4000,5000,6000,7000,8000  VOKABELN EINGEBEN =========HP2 6;(2,2);"VOKABELN EINGEBEN":6;(3,2);(17,"")< 5,6,2,37:IZ13;V$(0,1):2010a 3;V1$;:"";V2$:V$(0,1)V1$V2$ IIZ100:9,23,2,37::EN$::V$(I,0):: DE$::V$(I,1):::175 KY$"FORTSETZEN":150:T2IZI1:I101:I:1000 I$IZI1:2;"DATENSPEICHER UEBERFUELLT":175:120:1000I VOKABELN ABSPEICHERN ======HP3 6;(2,2);"VOKABELN ABSPEICHERN":6;(3,2);(20,"") 4;(5,2);"KASSETTEN-TONBAND-AUFNAHME STARTEN" 4;(7,2);"UND TASTE >ENTER< BETAETIGEN!":120 10,23,2,37::V$(0,0)(IZ):"VOKABELN";V$+ 120:1000P VOKABELN EINLESEN =========HP46;(2,2);"VOKABELN EINLESEN":6;(3,2);(17,"")4;(5,2);"KASSETTEN-TONBAND-WIEDERGABE STARTEN"4;(7,2);"UND BEI VORTON >ENTER< BETAETIGEN!":120'10,23,2,37::"VOKABELN";V$:IZ(V$(0,0))6120:1000[ VOKABELN LERNEN ===========HP56;(2,2);"VOKABELN LERNEN":6;(3,2);(15,"")IZ152005,6,2,37:3;V$(0,1)I1IZ1:9,23,2,37::EN$::V$(I,0)::DE$::V$(I,1):::1754KY$"FORTSETZEN":150:T2I101:I:1000AI:1000tP5,8,2,37:2;"BITTE ERST VOKABELN EINGEBEN":Z2;"ODER VON KASSETTE EINLESEN !":175dKY$"VOKABELN VON KASSETTE EINLESEN":150:T21000n160:4000 o VOKABELN ABFRAGEN =========HP6Dp6;(2,2);"VOKABELN ABFRAGEN":6;(3,2);(17,"")SqIZ15200mr5,6,2,37:3;V$(0,1)zIUV1UVIZ1:I,0:I9,23,2,37:1754:(10,2);"1 = ENGLISCH <--> DEUTSCH"(12,2);"2 = ENGLISCH ---> DEUTSCH"(14,2);"3 = DEUTSCH ---> ENGLISCH"HKA1:KE3:TT0:140::T6100,6200,6300lTT1:Z((5)1.5):Z6200,6300r8180:VO01000B:EN$::V$(VO,0)::GDE$::C$::LC$V$(VO,1)4;"RICHTIG":VOUV,WE1:Ԟ2;"FALSCH" V175:120:TT16100:Ԉ6200!180:VO01000<:DE$::V$(VO,1)::OEN$::C$::C$V$(VO,0)4;"RICHTIG":VOUV,WE1:Ԟ2;"FALSCH175:120:TT16100:Ԉ6300W VOKABELN KORRIGIEREN ======HP7X6;(2,2);"VOKABELN KORRIGIEREN":6;(3,2);(20,"")YIZ152000Z5,8,2,37:3;V$(0,1)hb9,23,2,37:I1IZ1::EN$::V$(I,0)::V$(I,0):lDE$::V$(I,1)::V$(I,1)::175vKY$"FORTSETZEN":150:T2IIZI:1000? PROGRAMM BEENDEN ==========HP8@6;(2,2);"ENDE DES PROGRAMMES":6;(3,2);(19,"")OJ(6,2);"BITTE VERGESSEN SIE NICHT, DIE NEU"T(8,2);"EINGEGEBENEN VOKABELN ABZUSPEICHERN!"^KY$"WOLLEN SIE VOKABELN ABSPEICHERN":150hT1:175:3000r:3000:A1$"HEIMCOMPUTER ROBOTRON Z9001"A2$"LEHRPROGRAMM":A95*A3$"R+VOKALE"AA4$"LERNPROGRAMM"bA5$"FUER ENGLISCH-VOKABELN"} VERFASSER:KITTELMANN ANSCHRIFT:MKD,1EKG DATUM 22.11.1984 VERSION 1.0 INITIALWERTE =================INA9:8:1:160(V$(100,1):L$(11," "):IZ1:V1$"LEKTION NR.: "cI((31)1):UV528:DE$"DEUTSCH :":EN$"ENGLISCH :"rZ100:1000` UNTERPROGRAMME ===============UPb TITELBILD --------------------UPd(2,2);A1$:(4,2);"",(34,""),""f(5,2);"":(5,37);""%h(6,2);"",(34,""),""Ej(5,3);A2$:3;(5,29);A3$_lA9:(8,2);(36,"")nI913:(I,2);"":(I,37);"":Ip(14,2);(36,"")r8:(10,36(A4$));A4$:(12,36(A5$));A5$t3:(18,2);"VEB ROBOTRON-MESSELEKTRONIK"%v(20,2);">OTTO SCHOEN< DRESDEN":8Kw >ENTER< ---------------------UPyx(22,0);(38," "):4;(22,31);">ENTER<"|170:T13(20,27);(11," "):~130:124 WIE BITTE ? -----------------UP2;(20,27);"WIE BITTE ?": KENNZIFFER ------------------UP94;(22,25);"KENNZIFFER :"R170:2;(22,37);T$qT48KAT48KE130:142TT48:(20,27);(11," "): (J)/N ABFRAGE ---------------UP4;(22,(32(KY$)));KY$,":(J)/N":(20,27);LS$170T74T13T1:(20,27);LS$:7T78T2:(20,27);LS$:I130:10:150o STANDART-WINDOW -------------UP~::175: TASTENABFRAGE ---------------UPT$:T$""170T(T$): CURSOR BESEITIGEN -----------UP ((44)1,(43)1);" ":0 AUSWAHL VOKABEL -------------UPINIZ1:Z(N(5)1)tIZN:WE(IUV):WE2VOI:IIZ:I:{II1Z1:WE(IUV):WE2VOI:IZ:I:I:VO0: HAUPTPROGRAMM ==============HP18:1:7:160(6;(2,2);"VOKABEL-LERNPROGRAMM":6;(3,2);(20,"")L(5,2);"1 = VOKABELN EINGEBEN"(7,2);"2 = VOKABELN ABSPEICHERN AUF KASSETTE"(9,2);"3 = VOKABELN EINLESEN VON KASSETTE"(11,2);"4 = VOKABELN LERNEN"$(13,2);"5 = VOKABELN ABFRAGEN"$.(15,2);"6 = VOKABELN KORRIGIEREN"H8(17,2);"7 = PROGRAMM BEENDEN"LKA1:KE7:140:160:T2000,3000,4000,5000,6000,7000,8000 VOKABELN EINGEBEN =========HP26;(2,2);"VOKABELN EINGEBEN":6;(3,2);(17,"") 5,6,2,37:IZ13;V$(0,1):2010/ 3;V1$;:"";V2$:V$(0,1)V1$V2$^ IIZ100:9,23,2,37::EN$::V$(I,0)::{ DE$::V$(I,1):::175 KY$"FORTSETZEN":150:T2IZI1:I101:I:1000 I IZI1:2;"DATENSPEICHER UEBERFUELLT":175:120:1000! VOKABELN ABSPEICHERN ======HP3R! 6;(2,2);"VOKABELN ABSPEICHERN":6;(3,2);(20,"")! 4;(5,2);"KASSETTEN-TONBAND-AUFNAHME STARTEN"! 4;(7,2);"UND TASTE >ENTER< BETAETIGEN!":120! 10,23,2,37::V$(0,0)(IZ):"VOKABELN";V$! 120:1000" VOKABELN EINLESEN =========HP4V"6;(2,2);"VOKABELN EINLESEN":6;(3,2);(17,"")"4;(5,2);"KASSETTEN-TONBAND-WIEDERGABE STARTEN""4;(7,2);"UND BEI VORTON >ENTER< BETAETIGEN!":120"10,23,2,37::"VOKABELN";V$:IZ(V$(0,0))#120:1000)# VOKABELN LERNEN ===========HP5_#6;(2,2);"VOKABELN LERNEN":6;(3,2);(15,"")n#IZ15200#5,6,2,37:3;V$(0,1)#I1IZ1:9,23,2,37::EN$::V$(I,0)::#DE$::V$(I,1):::175$KY$"FORTSETZEN":150:T2I101:I:1000$I:1000B$P5,8,2,37:2;"BITTE ERST VOKABELN EINGEBEN":n$Z2;"ODER VON KASSETTE EINLESEN !":175$dKY$"VOKABELN VON KASSETTE EINLESEN":150:T21000$n160:4000$o VOKABELN ABFRAGEN =========HP6%p6;(2,2);"VOKABELN ABFRAGEN":6;(3,2);(17,"")!%qIZ15200;%r5,6,2,37:3;V$(0,1)W%zIUV1UVIZ1:I,0:Ik%9,23,2,37:175%4:(10,2);"1 = ENGLISCH <--> DEUTSCH"%(12,2);"2 = ENGLISCH ---> DEUTSCH"%(14,2);"3 = DEUTSCH ---> ENGLISCH"&KA1:KE3:TT0:140::T6100,6200,6300:&TT1:Z((5)1.5):Z6200,6300@&T&8180:VO01000o&B:EN$::V$(VO,0)::&GDE$::C$::&LC$V$(VO,1)4;"RICHTIG":VOUV,WE1:Ԟ2;"FALSCH"&V175:120:TT16100:Ԉ6200&180:VO01000 ':DE$::V$(VO,1)::'EN$::C$::U'C$V$(VO,0)4;"RICHTIG":VOUV,WE1:Ԟ2;"FALSCHu'175:120:TT16100:Ԉ6300'W VOKABELN KORRIGIEREN ======HP7'X6;(2,2);"VOKABELN KORRIGIEREN":6;(3,2);(20,"")'YIZ15200'Z5,8,2,37:3;V$(0,1)6(b9,23,2,37:I1IZ1::EN$::V$(I,0)::V$(I,0):\(lDE$::V$(I,1)::V$(I,1)::175(vKY$"FORTSETZEN":150:T2IIZ(I:1000(? PROGRAMM BEENDEN ==========HP8(@6;(2,2);"ENDE DES PROGRAMMES":6;(3,2);(19,""))J(6,2);"BITTE VERGESSEN SIE NICHT, DIE NEU"P)T(8,2);"EINGEGEBENEN VOKABELN ABZUSPEICHERN!")^KY$"WOLLEN SIE VOKABELN ABSPEICHERN":150)hT1:175:3000)r:(8,2);"EINGEGEBENEN VOKABELN ABZUSPEICHERN!")^KY$"WOLLEN SIE VOKABELN ABSPEICHERN":150