& I#1: 1 B INITIALWERTE =================INa0,31,0,39:7,1: V$(100,1):L$(11," "):IZ1:V1$"LEKTION NR.: "I((31)1):UV528:DE$"DEUTSCH :":EN$"ENGLISCH :"Z100:1000` UNTERPROGRAMME ===============UP.b TITELBILD --------------------UPfd1,30,1,38:6::2:(5,9);">>> ENGLISCHTAINER <<<"i4:(15,2);"UEBERARBEITET FUER DEN ** KC 85/3 **"s5:(17,18);"von":2 t(19,5);"R E I N H A R D G I T T E R":13u(22,8);"JOH.-R.-BECHER-STR. 64"nv(24,11);"8600 BAUTZEN /SA.":0:(29,29);"> ENTER <"wQ$"":Q$:Q$""120:Ԉ119x7,1:0,31,0,39::~130:124 WIE BITTE ? -----------------UP10;(20,27);"WIE BITTE ?":$ KENNZIFFER ------------------UPD7;(22,25);"KENNZIFFER :"^170:14;(22,37);T$}T48KAT48KE130:142TT48:(20,27);(11," "): (J)/N ABFRAGE ---------------UPPRINTINK4;AT(22,31);":(J)/N":PRINTAT(20,20);LS$1703T74T13T1:: PRINTAT(20,27);LS$:RETURNQT78T2:(20,27);LS$:c130:10:150 STANDART-WINDOW -------------UP0,31,0,39:: TASTENABFRAGE ---------------UPT$:T$""170T(T$):: CURSOR BESEITIGEN -----------UPF : PRINTAT(PEEK(44)-1,PEEK(43)-1);" ":RETURN m AUSWAHL VOKABEL -------------UPW NIZ1:Z(N(5)1) IZN:WE(IUV):WE2VOI:IIZ:I: I I1Z1:WE(IUV):WE2VOI:IZ:I: I:VO0:  HAUPTPROGRAMM ==============HP1' 7:1:160m 6;(2,2);"VOKABEL-LERNPROGRAMM"::PRINTINK6;AT(3,2);STRING$(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"A $(13,2);"5 = VOKABELN ABFRAGEN"i .(15,2);"6 = VOKABELN KORRIGIEREN" 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,"")O 5,6,2,37:IZ14;V$(0,1):2010u 10;V1$;:"";V2$:V$(0,1)V1$V2$ IIZ100:9,23,2,37::EN$::" ";V$(I,0): :DE$::" ";V$(I,1)::  (25,2);"FORTSETZEN ? (J/N)":150:T2T87IZI1:I101 E T2(25,2);" ":: 1000 p (25,2);" ":I IZI1:10;"DATENSPEICHER UEBERFUELLT":120:1000 VOKABELN ABSPEICHERN ======HP3 6;(2,2);"VOKABELN ABSPEICHERN" , 10;(3,2);(20," ")` 4;(5,2);"KASSETTEN-TONBAND-AUFNAHME STARTEN" 4;(7,2);"UND TASTE >ENTER< BETAETIGEN!":170 10,23,2,37::V$(0,0)(IZ):"VOKABELN";V$ 120:1000 VOKABELN EINLESEN =========HP406;(2,2);"VOKABELN EINLESEN":6;(3,2);(17,"")f4;(5,2);"KASSETTEN-TONBAND-WIEDERGABE STARTEN"4;(7,2);"UND BEI VORTON >ENTER< BETAETIGEN!":17010,23,2,37::"VOKABELN";V$:IZ(V$(0,0))120:1000 VOKABELN LERNEN ===========HP596;(2,2);"VOKABELN LERNEN":6;(3,2);(15,"")HIZ15200b5,6,2,37:4;V$(0,1)I1IZ1:9,23,2,37::EN$::V$(I,0)::DE$::V$(I,1):: (25,2);"FORTSETZEN ? (J/N)":150:T2I101:I T2(25,2);" ":1000V(25,2);" ":I:1000P5,8,2,37:10;"BITTE ERST VOKABELN EINGEBEN":Z10;"ODER VON KASSETTE EINLESEN !" d(25,2);"VOKABELN VON KASSETTE EINLESEN ? (J/N)":150 eT2 1000n160:4000=o VOKABELN ABFRAGEN =========HP6up6;(2,2);"VOKABELN ABFRAGEN":6;(3,2);(17,"")qIZ15200r5,6,2,37:4;V$(0,1)zIUV1UVIZ1:I,0:I9,23,2,37:1754:(10,2);"1 = ENGLISCH <--> DEUTSCH"#(12,2);"2 = ENGLISCH ---> DEUTSCH"M(14,2);"3 = DEUTSCH ---> ENGLISCH"|7:KA1:KE3:TT0:140::T6100,6200,6300TT1:Z((5)1.5):Z6200,63008180:VO01000B7::EN$::" ";V$(VO,0)::G7:DE$::" ";C$::1LC$V$(VO,1)4;"RICHTIG":VOUV,WE1:6230:6221 LM10;"FALSCH" pV8,29,2,39:7:TT16100:Ԉ6200180:VO01000:DE$::" ";V$(VO,1)::EN$::" ";C$::C$V$(VO,0)4;"RICHTIG":VOUV,WE1:6330:6321 10;"FALSCH"/8,29,2,39:7:20:TT16100:Ԉ6300YW VOKABELN KORRIGIEREN ======HP7 X6;(2,2);"VOKABELN KORRIGIEREN" Y6;(3,2);(20," "): IZ1 5200Z5,8,2,37:4;V$(0,1)b9,23,2,37:I1IZ1::EN$::V$(I,0) %c:" ";DE$TlDE$::V$(I,1)::" ";V$(I,1): fm8,29,2,39:7v(25,2);" "(25,2);" ":I:1000? PROGRAMM BEENDEN ==========HP8"@6;(2,2);"ENDE DES PROGRAMMES" ;A6:(3,2);(19," ")lJ(6,2);"BITTE VERGESSEN SIE NICHT, DIE NEU"T(8,2);"EINGEGEBENEN VOKABELN ABZUSPEICHERN!"^4:(20,2);"WOLLEN SIE VOKABELN ABSPEICHERN ?(J/N)":150 hT2 :3000:0,31,0,39:7,1:: r:=3000:A1$"HEIMCOMPUTER ROBOTRON Z9001"YA2$"LEHRPROGRAMM":A95lA3$"R+VOKALE"A4$"LERNPROGRAMM"A5$"FUER ENGLISCH-VOKABELN" VERFASSER:KITTELMANN ANSCHRIFT:MKD,1EKG DATUM 22.11.1984 VERSION 1.0" INITIALWERTE =================IN5A9:8:1:160jV$(100,1):L$(11," "):IZ1:V1$"LEKTION NR.: "I((31)1):UV528:DE$"DEUTSCH :":EN$"ENGLISCH :"Z100:1000` UNTERPROGRAMME ===============UPb TITELBILD --------------------UP,d(2,2);A1$:(4,2);"",(34,""),""If(5,2);"":(5,37);""gh(6,2);"",(34,""),""j(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"gv(20,2);">OTTO SCHOEN< DRESDEN":8w >ENTER< ---------------------UPx(22,0);(38," "):4;(22,31);">ENTER<"|170:T13(20,27);(11," "):~130:124 WIE BITTE ? -----------------UP52;(20,27);"WIE BITTE ?":[ KENNZIFFER ------------------UP{4;(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$8170[T74T13T1:(20,27);LS$:yT78T2:(20,27);LS$:130:10:150 STANDART-WINDOW -------------UP::175: TASTENABFRAGE ---------------UPT$:T$""170T(T$):. CURSOR BESEITIGEN -----------UPL((44)1,(43)1);" ":r AUSWAHL VOKABEL -------------UPNIZ1:Z(N(5)1)IZN:WE(IUV):WE2VOI:IIZ:I:II1Z1:WE(IUV):WE2VOI:IZ:I:I:VO0: HAUPTPROGRAMM ==============HP1/8:1:7:160j6;(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"f .(15,2);"6 = VOKABELN KORRIGIEREN" 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,"")L!5,6,2,37:IZ13;V$(0,1):2010q!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!I4"IZI1:2;"DATENSPEICHER UEBERFUELLT":175:120:1000Y" 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:1000`# VOKABELN EINLESEN =========HP4#6;(2,2);"VOKABELN EINLESEN":6;(3,2);(17,"")#4;(5,2);"KASSETTEN-TONBAND-WIEDERGABE STARTEN"$4;(7,2);"UND BEI VORTON >ENTER< BETAETIGEN!":1207$10,23,2,37::"VOKABELN";V$:IZ(V$(0,0))F$120:1000k$ VOKABELN LERNEN ===========HP5$6;(2,2);"VOKABELN LERNEN":6;(3,2);(15,"")$IZ15200$5,6,2,37:3;V$(0,1)$I1IZ1:9,23,2,37::EN$::V$(I,0)::%DE$::V$(I,1):::175D%KY$"FORTSETZEN":150:T2I101:I:1000Q%I:1000%P5,8,2,37:2;"BITTE ERST VOKABELN EINGEBEN":%Z2;"ODER VON KASSETTE EINLESEN !":175%dKY$"VOKABELN VON KASSETTE EINLESEN":150:T21000%n160:4000&o VOKABELN ABFRAGEN =========HP6T&p6;(2,2);"VOKABELN ABFRAGEN":6;(3,2);(17,"")c&qIZ15200}&r5,6,2,37:3;V$(0,1)&zIUV1UVIZ1:I,0:I&9,23,2,37:175&4:(10,2);"1 = ENGLISCH <--> DEUTSCH"'(12,2);"2 = ENGLISCH ---> DEUTSCH",'(14,2);"3 = DEUTSCH ---> ENGLISCH"X'KA1:KE3:TT0:140::T6100,6200,6300|'TT1:Z((5)1.5):Z6200,6300''8180:VO01000'B:EN$::V$(VO,0)::'GDE$::C$::'LC$V$(VO,1)4;"RICHTIG":VOUV,WE1:Ԟ2;"FALSCH"(V175:120:TT16100:Ԉ62001(180:VO01000L(:DE$::V$(VO,1)::_(EN$::C$::(C$V$(VO,0)4;"RICHTIG":VOUV,WE1:Ԟ2;"FALSCH(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)x)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"*T(8,2);"EINGEGEBENEN VOKABELN ABZUSPEICHERN!"*^KY$"WOLLEN SIE VOKABELN ABSPEICHERN":150*hT1:175:3000*r:(8,2);"EINGEGEBENEN VOKABE