RUSS PROG Ù(#ÙÛÿ$ê RUSSISCH-UEBUNGEN <ê  W.E.HINTZE BERLIN NOVEMBER 1984 ì8000@ èJô236066\,88X*LAT:ô236077\,60<+191¿*LAT:ñLAT=ÃLAT:þ Lú¦É""Ëì1100L Qþ °ú¦=""Ëì1200° µþ ÐêEingabe von Vokabeln Ú¶û:õ¬10 ,0;"Eingabe von Vokabeln"''"Neuer Wortschatz (n) oder Fort- setzung alter Wortschatz (a)?"''"Im letzten Falle muss bereits ein Wortschatz geladen worden sein." ä5ítst:ú¦="n"Ëñwoerter=0:éa$(300,,32 ) îñlat=1:í1000è ó1ñn1=woerter+1:úwoerter=0Ëñn1=2 øBëN=n1Ì300,:î"russkij"'"A$(";(N);") = ";I$:úI$=""Ëì2500Ä 9uñwoerter=woerter+1:ñA$(N,1Ì17)=I$:í1000è:î"deutsch "'A$(N,17Ì32 ):í1000è:óN ÄYí1000è:û:õ¬10 ,0;"Soll der Wortschatz aufs Band gesavet werden? (j/n)" Îítst:ú¦="n"Ëþ ØOû:ítut:õ¬10 ,0;"Band zur Aufnahme des Wort- schatzes einlegen." Ýlña$(1,2)=Â(º(woerter/256)):ña$(1,1)=Â(woerter-256*º(woerter/256)) ßIéb$(woerter+1,32 ):ën=1Ìwoerter+1:ñb$(n)=a$(n):ón âø"Vokabeln"äb$() ì`û:õ¬10 ,0;"Wortschatz gesavet. Band stoppen"''"Beliebige Taste druecken":ítut:ítst:þ ¸êVOKABEL-UEBUNG ½Vû:õ¬10 ,7;"VOKABEL-UEBUNG"'''" 1. VOLLST. LISTE"''" 2. UEBUNG" ¿õ'" 3. RETURN"  ítut:íTST Ìú¦="1"Ëí3600:ì3000¸ Ñ ú¦="3"Ëþ Öú¦="2"Ëí3100 :ì3000¸ à ì3020Ì êVokabeluebung &%û:õ¬10 ,8;"VOKABELUEBUNG" 0)î"Bitte Anzahl der Aufgaben entern";aufg : ñr=0 Nën=1Ìaufg XEñind=2+º(¥*woerter):ñlat=º(2*¥):ñi1=1+16*lat ]ñi2=16+16*lat bCñlat=Ãlat:í1000è:õ¬21,0;a$(ind,i1Ìi2):í1000è l3ñi3=1+16*lat:ñi4=16+16*lat qîi$ vbñj$=i$:ëm=±i$+1Ì1+i4-i3:ñj$=j$+" ":óm:új$=a$(ind,i3Ìi4)Ëñr=r+1:ítut:ì3300ä €­ñlat1=Ãlat:ñlat=0:í1000è:õ¬15,0;"FALSCH!":×2,-40(:õ¬15,0;" ":í3400H :ñn=n+1:ñlat=lat1:í1000è:ì3185q ä í3400H îón øŠõ¬21,0;" ":õ#0;¬0,0;"Uebung beendet":õ#0;¬1,0;"Jede Taste setzt fort":ítst:þ Hhñlat=0:í1000è:õ¬15,0;" ":õ¬18,0;n;" Aufgaben",r;" richtig":þ rëN=2ÌWOERTER+1:ñlat=1:í1000è:õA$(N,1Ì16);:í1000è:õA$(N,17Ì32 ) ón $:õ#0;¬1,5;"JEDE TASTE SETZT FORT":íTST:þ  êSCHREIBMASCHINE ¥ítut ª}û:õ¬0,7;"SCHREIBMASCHINE";'''"UMSCHALTEN VON RUSSISCHEN AUF LATEINISCHE ZEICHEN:"''" CAPS SHIFT & 4 ZUGLEICH" ¯õ" (NACH BREAK: GOSUB 1000)" ´^õ''"GRAFIK-MODE UND EXTENDED MODE:"''" NACH CAPS SHIFT & SYMBOL SHIFT"'" ZEICHENKETTE ENTERN" ¶"õ''"ZURUECK ZUM HAUPTMENUE: STOP" ¹Dõ#0;¬0,5;"JEDE TASTE SETZT FORT":íTST:íTUT:û:íLOS »+õ¬21,0;:ô23692Œ\,255ÿ ¾íTST Ãú¦=Â226âËì4300Ì È'ú¦=Â5Ëí1000è:íTUT:ílos:íTST Ò)ú¦=Â14Ŧ=Â15ËîI$:ì4065á ÜñI$=¦ á õI$;:íKLICK ðíLOS ú ì4030¾ ÌúLAT=0Ëí1000è Öþ ˆêWORTSCHATZ LADEN ítut ’(û:õ¬10 ,8;"WORTSCHATZ LADEN" œCõ''"BELIEBIGE TASTE DRUECKEN UND RE-CORDER AUF WIEDERGABE STELLEN" ¦ ï""äA$() «=ñwoerter=¯a$(1,1)+256*¯a$(1,2) °bû:õ¬10 ,5;"WORTSCHATZ IST GELADEN"'''­7;"BITTE BAND STOPPEN":×2,20:þ @ô23658j\,0 !˜6ílos:û:õ¬0,5;Ü1;"RUSSISCH-UEBUNGEN" !¢õ''" 1. SCHREIBMASCHINE" !¬Ÿõ''" 2. LADEN WORTSCHATZ"'''" 3. ERSTELLEN UND SAVEN EINES WORTSCHATZES"'''" 4. VOKABEL-UEBUNG"'''"NACH BREAK:"'"UMSCHALTEN RUSS-LAT : GOSUB 1000" !¶ õ" MENUE : GOTO 0" !Ê9õ#0;¬0,5;"BITTE WAEHLEN SIE":ítut:íTST !Ôú¦="1"Ëí4000 :ì8000@ !Þú¦="2"Ëí5000ˆ:ì8000@ !èú¦="3"Ëí2000Ð:ì8000@ !òú¦="4"Ëí3000¸ :ì8000@ !ü ì8660Ô! "Äâ #(Ký64599Wü:ô23658j\,0:ï""¯64600Xü:ô23796ô\,0 #2-ñLAT=1:ñTST=1200°:ñLOS=1100L #<"ñKLICK=9100Œ#:ñTUT=9110–# #Fô23658j\,0 #Z ì0 #Œ,×.001wn—,30:×.001wn—,65A:þ #–×.2~LÌÌÌ,10 :þ 'Vý:ø"RUSS PROG"Ê9000(#:Ö"":ø"RUSSISCH"¯64600Xü,768:Ö""¯:×2,0 [RUSSISCH Xü€2ÿ$$"">IIIII’’’’’ÿTTTT~>> < >>IIII>~B@@@@B$$BBFJRbBBFJRbBDHpHDB"""BBfZBBBBB~BBBBB>"B|BB|@@8""8DDD8~$$$$"""xDDx@@ >DDD<8Z<