));" ":SW0SW}.p(9)SWSW1:(3,15(SW1));" ":SW3SW3A$(13)410:402SW1200,128,110,136jÉgo|gxG>5Jʙ9v" GSљ e͘w>RO  î0"ۈӈ~`ӆw>2bd"d")C$(II)=C$ eeeJ}.}.}.R+RECH K  !==================================!  !PROGRAMM: R+RECH STAND:20.5.85!  !!  !FUNKTION: RECHERCHE U. SORTIEREN !  ! NACH UND VON DATEN !  !!  !AUTOR : WEITZMANN, GABRIELE !  !!  !VEB ROBOTRON - MESSELEKTRONIK !  !8012 DRESDEN, PF 211!  !__________________________________!  !!  !F}r KC85/4 angepa~t:! ! !  ! Mario Leubner!  ! Chemnitztalstra~e 25!  ! Markersdorf!  ! 9114!  !!  !21.01.1990 !  !==================================! T 256z0,31,0,39:5,2::2,30,0,39:0:(4,2);"HEIMCOMPUTER robotron Z9001"((8,3);"DATENVERARBEITUNG":3;(8,31);"R+RECH"27:(11,2);(36,"")<I1216:(I,2);"":(I,37);"":2F(17,2);(36,"")jP2:(13,15);"RECHERCHE":(15,12);"UND SORTIERUNG"Z3;(21,3);"VEB ROBOTRON-MESSELEKTRONIK"d3;(23,3);">OTTO SCHOEN< DRESDEN"n320x2,30,0,39:4:6;(2,25);"PROGRAMMSTART"%---DIMENSIONIERUNG----------------BD(0)1500:D0D32767DL(D120)5:(7,0);"Max. Anzahl der Datensaetze (DIM):?"12,25,0,39:"Fuer eine angenommene Satzlaenge von":"120 Zeichen gilt:" :"1 <= DIM <=";DL;".":(25,22);"ANZAHL:" 25,25,30,39:D. "";DF:DF1210: A$(DF)C 510l ,-UP--------------------------------~ 625,30,0,39: @21;(26,29);">ENTER<" Jյ(13)330 T(26,29);" " ^ ---DATEN EINLESEN------------------ 2,30,0,39:8 (8,1);"Kassettenmagnetband positionieren und"Y (10,1);"Aufnahme starten!"b 310 18,25,1,39:"DATEN";A$  -MAIN---FUNKTIONSAUSWAHL---------- 2,30,0,39::6;(2,22);"FUNKTIONSAUSWAHL" (6,1);"1 - Datensatz vereinbaren"& (8,1);"2 - Daten eingeben"O (10,1);"3 - Datensaetze ergaenzen" &(12,1);"4 - Datensaetze ansehen und korrigieren" 0(14,1);"5 - Recherchieren" :(16,1);"6 - Sortieren" D(18,1);"7 - Datei auf Kassette ausgeben"" N(20,1);"8 - Datei von Kassette einlesen"D X(22,1);"9 - Programmende" b b(25,23);"KENNZIFFER :_"x lAF$:AF$""620 vAF(AF$)48: AF1 AF9 620  AF9 9000 AF1000,2000,3000,4000,5000,6000,7000,8000 510 -UP------------------------------- I1:L1:J1A P1(A$(0)):Z$(A$(0),P,1)] Z$"*"P(A$(0)):790 (Z$)48(Z$)57LL1:790 LL1 D$(I)(A$(0),J,L):L1:JP:PP1 Z$(A$(0),P,1) (Z$)57PP1:770 LL1 L$(I)(A$(0),J,L):L(I)(L$(I)) L1:II1:JP1%PE I19:D$(I)""LII1:I9M*:u4-UP------------------------------->(11,1);"Bitte erst Daten eingeben oder von" H(13,1);"Kassette einlesen!"R30:p-UP--------------------------------zJ0:I1LI:(IJ4,0);D$(I)+JJ1:;LM(D$(1))`I1LI:LM(D$(I))LM(D$(I))ftLMLM2:-UP-------------------------------DIL(1)L(2)L(3)L(4)L(5)L(6)L(7)L(8):---DS VEREINBAREN---------------- 2,30,0,39::6;(2,26);"SATZSTRUKTUR"]A$(0)""(8,1);"Datensatz bereits vereinbart.":1080{19;(13,15);"Warnung !"(16,1);"Bei Neuvereinbarung werden s{mtliche"(18,1);"bereits eingegebenen Daten gel|scht!" $(25,1);"Neuvereinbarung: J/(N)"6.25,25,24,39:JN$"N":"";JN$:JN$"J"s8I18:D$(I)"":L$(I)"":L(I)0::A$(0)"":DI0:LI0:L0B6,25,0,39:L(4,0);"FELD AUFFORDERUNG EINGABE"V(5,0);(40,""):6,25,0,39`I18:I;" Bezeichnung":" Laenge":j(23,1);"max. Laenge : 255":t(24,1);"Rest :"Y~13;(25,28);">^< - Ende"hJ0:I18IJ5,IJ6,17,39::"";D$(I)(D$(I))20D$(I)(D$(I),20):" ";D$(I)D$(I)""1170D$(I)"^"I11170D$(I)"^"I1LII1:D$(I)"":I8::1410@Q0:P1(D$(I)):DT$(I)(D$(I),P,1)p(DT$(I))48(DT$(I))57Q1:P(D$(I))wPQ11170IJ6,IJ7,17,39::"";L$(I)L$(I)""1260(L$(I))72L$(I)"72" " ";L$(I)L(I)(L$(I)):LLL(I)&L255LLL(I):L(I)255L:1330:(L(I):I8:1390d2Q0:P1(L$(I)):LT$(I)(L$(I),P,1)<(LT$(I))48(LT$(I))57Q1:P(L$(I))FPPQ11260ZA$(0)A$(0)D$(I)L$(I)dL(I)(L$(I))n960:(24,14);255DIxJJ1:I A$(0)""1420:A$(0)A$(0)"*":LII1:25,25,19,39:w(25,20);"RICHTIG (J)/N :":25,25,35,37:JN$"J":"";JN$JN$"N"A$(0)"":10102,30,0,39::(10,1);"Bei Auslastung des Speicherplatzes"(12,1);"und dieser Satzstruktur sind";((("")DI)DI)4<(14,1);"Datensaetze moeglich.":1060c---DATEN EINGEBEN----------------2,30,0,39::6;(2,31);"EINGABE":AD1A$(0)""2040(12,1);"Bitte erst den Datensatz vereinbaren!":30:A$(1)""(12,1);"Daten bereits vorhanden.":2080<(25,1);"Ueberschreiben: J/(N)"i 25,25,24,30:JN$"N":"";JN$:JN$"J"I1DF:A$(I)"": 4,25,0,39:*680:890:96047;(2,0);"Satznr.: ">K1DFH13;(25,29);">^<-Ende"R7;(2,9);AD:A$(K)(DI," "):L09\J0:I1LI:IJ4,IJ5,LM,39:"";TK$afTK$"^"A$(K)"":KDF:TK$"":2240p(TK$)L(I)TK$(TK$,L(I))z" ";(TK$,38LM)B$A$(K):LLL(I)TK$TK$(L(I)(TK$)," ")A$(K)(B$,LL(I))TK$(B$,DIL)JJ1:TK$"":I3106ADAD1:5,22,LM,39::ADDFKDF=KCj ---DATENSAETZE ERGAENZEN--------- 2,30,0,39::6;(2,29);"ERGAENZEN" A$(0)""830 4,25,0,39:680:960 7;(2,0);"Satznr.: " I1DF:A$(I)""ADI:IDF ; A$(DF)""3090:Ԟ(12,1);"Keine Eingabe mehr moeglich"E 30:N 890[ KADDFe& 2120---DATEN ANSEHEN UND KORRIGIEREN-2,30,0,39::6;(2,29);"KORREKTUR"A$(1)""830(25,0);"Satznr.:":25,25,10,20:NR1:"";NR NR1NRDF4030#A$(NR)""4080Q(12,1);"Datensatz nicht vorhanden!":30i12,12,0,39::403022,25,0,39::7;(2,0);"Satznr.: ";NRADNR:680:890:960P1KNRDF:7;(2,10);K:P1:A$(K)""KDF:44204610"J0:I1LI:IJ4,IJ5,LM1,39F,Z$(A$(K),P,L(I)):(Z$,38LM):PPL(I)S6JJ1:I_@L0:R0oJJ0:I1LIT(R5,LM);"*" ^R5,R6,LM,LM1hT$rT$(31)A$(K)"":4380|T$(1)4270T$(10)LLL(I):4360T$(11)4440%T$(13)(IJ4,LM);" ":4370>T$(16)4430:4200U"@":21,27,0,39:v"neu: ":21,21,5,39:"";TK$ILI4610(TK$)L(I)TK$(TK$,L(I))21,21,0,39::IJ4,IJ5,LM1,39:(TK$,38LM)B$A$(K):LLL(I)TK$TK$(L(I)(TK$)," ")=A$(K)(B$,LL(I))TK$(B$,DIL)h(IJ4,LM);" ":JJ1:RR2:TK$"":Iq3105,20,LM,39::KDF4420&A$(K)""44200MKDF1:A$(M)A$(M1)::A$(M)"":KK1DKNXTK$"":J04200 b(IJ4,LM);" "+lLLL(I1):JJ1:RR2:II22vIY-UP------------------------------3;(25,0);">< - naechstes Feld" 3;(26,0);">DEL< - Satz loeschen >CLR< - aendern"3;(27,0);">ENTER< - fertig >HOME<- Ende" $ ---RECHERCHE---------------------M 2,30,0,39::6;(2,29);"RECHERCHE"_ A$(1)""830m 680:890 I18:TK$(I)"": R0:J0 I1LI:5710 R5,R6,LM1,LM "*";(16); T$ T$(1)5150 T$(10)5190!T$(11)5340!! T$(13)ILI:5200:!T$(16)5360:5090Q!"@":23,27,0,39:|!("Rech.wort: ":23,24,11,39:"";TK$(I)!223,24,0,39::R5,R6,LM,39:!<TK$(I)!FR5,R6,LM1,LM:JJ1:RR2!P" ":I!Z310!dWINDOW5,25,LM,39:CLS"nK1DF:Q0:P1:26,26,0,24:>"x3;(26,25);"Bitte warten!"f"I1LI:Z$(A$(K),P,L(I)):PPL(I)"TK$(I)""Z$""5280"(TK$(I),Z$)0Q1:Q0:ILI"I"7;(2,0);"Satznr.: ";K:Q05310"26,26,25,39::5,25,LM1,39::5510#K#T$(16)=#23,26,0,39::3;(26,30);"ENDE":30:K#J05090`#(R5,LM1);" "y#JJ1:RR2:II2:I#|-UP-Anzeige-Datensatz------------#P1:J0#I1LI:IJ4,IJ5,LM,39:#Z$(A$(K),P,L(I)):" ";(Z$,38LM):PPL(I) $JJ1:I*$3;(26,0);">HOME<- Ende"F$21;(26,29);">ENTER<"O$T$d$T$(16)KDF:x$T$(13)5570$24,26,29,39:$$D-UP------------------------------$N3;(25,0);">< - naechstes Feld" %X3;(26,0);">CLR< - Recherchefeld"G%b3;(27,0);">ENTER< - fertig >HOME<- Ende"M%lt%p---SORTIERUNG--------------------%z2,30,0,39::6;(2,28);"SORTIERUNG"%A$(1)""830%680:890%R0:J0%I1LI:6910&R5,R6,LM,LM1:(R5,LM);"*" &T$&T$(1)6120.&T$(10)6130A&T$(11)6580Z&T$(16)6570:6070p&HI:ILI:I:6160&(R5,LM);" "&JJ1:RR2&I&"@":23,25,0,39:&V1:(22,0);"Satznr. von: ":22,22,13,17:"";V'$V1VDF6160:Ԟ(22,13);V3'.BDF:(22,25);"bis: ":22,22,30,34:"";B_'8BV6160:ԊB1BDF6190:Ԟ(22,30);B'BP0:I0H1:PPL(I)::PP1:LL(I)'LJ0:K1DF:A$(K)""JK1:KDF'VK:J06260:ԊJBBJ'`BV6160'j310(t3;(26,25);"Bitte warten!"(~M1:IV:JB*(RI:SJ:II((IJ)2)j((A$(I),P,L)(A$(II),P,L)C$A$(I):A$(I)A$(II):A$(II)C$((A$(J),P,L)(A$(II),P,L)6370(C$A$(J):A$(J)A$(II):A$(II)C$((A$(I),P,L)(A$(II),P,L)6370)C$A$(I):A$(I)A$(II):A$(II)C$:63702)C$A$(S):A$(S)A$(R):A$(R)C$:SII6360A)IIR:6370P)RIIIIS{)SS1:(A$(S),P,L)(A$(II),P,L)6370)RR1:(A$(II),P,L)(A$(R),P,L)6380)SR6340)SRSS1:RR1) JRS1IU(M)I:IO(M)S:IR:MM1:6450*IU(M)R:IO(M)J:MM1:JS:6450.*MM1:M06520B*(IIU(M):JIO(M)^*2JI56280:ԊIV6480r*<IJ6280:6430|*FII1*PIJ6430*Z(A$(I),P,L)(A$(I1),P,L)6470:RI*dC$A$(R):A$(R)A$(R1):A$(R1)C$:RR1+n(A$(R1),P,L)(A$(R),P,L)6500:6470/+x25,25,25,39::5,22,LM1,39;+K1DFX+7;(2,0);"Satznr.: ";Kb+5510i+Ko+}+J06070+(R5,LM);" ":JJ1:RR2+II2:I+-UP------------------------------+3;(25,0);">< - naechstes Feld",3;(26,0);">CLR< - Sortierfeld">,3;(27,0);">HOME<- Ende"D,k,X---DATEN AUSGEBEN----------------|,b2,30,0,39:,l(4,1);"Die Datei wird unter dem Namen 'DATEN'",v(6,1);"mit der Dimension";DF;"abgelegt."-(10,1);"Kassettenmagnetband positionieren und"6-(12,1);"Aufnahme starten!"?-310\-18,25,1,39:"DATEN";A$b--@---DATEN EINLESEN------------------J410-(#---PROGRAMMENDE-------------------2#2,30,0,39:.<#JN$"N":(23,1);"Datei extern speichern? J/(N)".F#23,23,31,39:"";JN$,.P#JN$"J"7000X.Z#2,30,0,39::3;(15,16);"E N D E":30u.d#0,31,0,39:7,1:::256{.n#I