’). œ ************************************[œ Dateiverwaltung *ˆœ Anpassung durch Generierung *µ(œ Aktuell: Literaturdatei *â2œ *<œ S. Schachtzabel/Dr.H. Schachtzabel *<Fœ WB Mathematikmethodik *iPœ PH Potsdam *–Zœ September 1987 *Âdœ ************************************ÈnœÓx¡ 1500å‚LE$´×(21," ")÷ŒÝ 0,31,0,39:™ý–œ Œ 15000: Ž Generierungªœ:´Ž RAHMEN UND HAUPTMENUER¾Ý 0,31,0,39:â 7,0:™jÈÝ 2,4,11,27:â 0,7:™ŠÒž á(2,11);"Dateiverwaltung"¦Üž á(4,14);"Hauptmenue";¼æÝ 0,31,0,39:â 7,0Âðžôúž á(6,4);"Eingabe ueber Tastatur";¥27);": E"ž á(8,4);"Recherche";¥27);": R"Cž á(10,4);"Aktualisieren";¥27);": A"nž á(12,4);"Laden vom Band";¥27);": L"›"ž á(14,4);"Sichern auf Band";¥27);": S"Ä,ž á(16,4);"Break (ENDE)";¥27);": B"Ú6Ý 0,31,0,39:â 7,0 @ž á(19,4);"Gewuenschte Programmleistung :"Jé19,33:„ ME$@TŠ ME$´"E" ² ME$´"e" © Œ9010: ˆ180n^Š ME$´"R" ² ME$´"r" © Œ8010: Œ 7010: ˆ180”hŠ ME$´"A" ² ME$´"a" © Œ6000: ˆ180ºrŠ ME$´"L" ² ME$´"l" © Œ5000: ˆ180à|Š ME$´"S" ² ME$´"s" © Œ5500: ˆ180 †Š ME$´"B" ² ME$´"b" © :Ž ENDE DER ARBEIT+ ˆ310: Ž FALSCHE EINGABE1 ˆœ7 ’œ^ œœ ..............................ƒ ¦Ž . LADEN EINER DATEI VON BAND .ª °œ ..............................² ºÝ:™¸ Ğ٠Ξ"Band positioniert und auf"õ Øž"Wiedergabe gestellt?" âž"Band laueft??"6 ìž"Bitte";:ž â 16,7;" J ";:ž "druecken!"S öŒ 16000: Ž WarteschleifeY žn ¢®"QUEDATEI";LT$œ AL´Ê(LT$(0,0)): Ž Anzahl der Eintragungen·  : Ž ENDE Laderoutine½ 2œÞ |œ ........................ý †Ž . UP SICHERN DER DATEI . œ ........................S •LT$(0,0)´É(AL): Ž Retten Anzahl der Eintragungenf šÝ 22,25,6,39:™‰ ¤ž "Recorder aufnahmebereit ??"  ®ž "Band laeuft ?!"Ë ¸ž "Bitte";:ž â16,7;" J ";:ž "druecken"è ÂŒ 16000: Ž Warteschleifeð ÌÝ:™ Öž:ž:ž "Aufnahme laueft."- àž â 23,0;" R U H E bitte!"B ꣮"QUEDATEI";LT$Y ô : Ž ENDE Sichern_ pœe zœk „œŠ Žœ ......................§ ˜Ž . UP Aktualisierung .Æ ¢œ ......................ç ¬Ž STEUERUNG DURCH UNTERMENUEù ¶Ý 0,31,0,39:™ Àž á(2,11);"AENDERUNGSDIENST"N Êž á(4,4);"Neuer Datensatz (Insert)";¥27);": I"| Ôž á(6,4);"Streichen (Delete)";¥27);": D"¨ Þž á(8,4);"Aendern (Change)";¥27);": C"Ò èž á(10,4);"==>Hauptmenue";¥27);": H"Ý òé 12,2üž â 0,6;"Gewuenschte Programmleistung :";:„ E$5Š E$´"I" ² E$´"i" © Œ9010: ˆ6000]Š E$´"H" ² E$´"h" © : Ž HAUPTMENUE‰Š E$´"D" ² E$´"d" © E$´"D":Œ6300: ˆ6000º$Š E$µ³"C" ± E$µ³"c" ©6130: Ž Falsche EingabeÅ.E$´"C"ó8Œ6300: Ž Datensatzauswahl und BearbeitungBˆ6000: Ž Weiter im Aenderungsdienst!œœ'¦œ-°œsºŽ UP Auswahl zu bearbeitender Datensaetze (Streichen und Aendern)¨ÄŽ Aussuchen ==> Streichen/Aendern ==> VerdichtenºÎÝ 0,31,0,39:™öØž á(1,0);â 0,7;"Auswahl von zu aenderenden Datensatzen"&âž á(3,0);"Kennen Sie die Satznummer (J/N)";6ìé 3,33:„ A$RöŠ A$´"N" ² A$´"n" ©6470pŠ A$µ³"J" ± A$µ³"j" ©6370’ Ž Datensatznummer ist bekannt¤Ý 7,12,0,39:™Æ„" Nummer des Datensatzes:";Eï(Š Eµ1 ² E³AL ©6420: Ž Falsche Nummer/2RI(1)´E:RA´1: Ž Eintragung des Satzes ins RechercheregisterQ<ˆ6500: Ž Vorzeigen des SatzespFŽ Satznummer ist unbekannt‚PÝ 3,31,0,39:™¼ZŒ8100: Ž Recherche nach Datensatz gemaess SuchmerkmalÎdÝ 0,31,0,39:™ònŠ RA³0 ©6640: Ž Saetze gefundenxž "Keinen Satz mit der vorgegebenen";‚ž "Datenstruktur gefunden!"cŒž: ž "Weiter mit beliebiger Taste";–Œ 16000: Ž Warteschleife ž  : Ž ENDE Aktualisieren¤ÈœªÒœ°ÜœÐæŽ Vorzeigen der DatensaetzeÚðé 3,0éú I´1 ¦ RA E´RI(I): Ž Nummer des Datensatzes% Ý 0,31,0,39:™M ž á(2,1);â 0,7;"Datensatz-Nr.:";Ew" ž á(2,23);â 15,3;"Verschluesselung"ˆ, J´1 ¦ KA½6 ž á(J¬3,0);BD$(J);":";¥È(BD$(J))¬3);LT$(E,J)Ç@ ‚ JëJ Š E$µ³"C" ©6760: Ž StreichungT ZW´AL:AL´E:Œ10000: Ž Aenderng8^ AL´ZW:ˆ6940: Ž Naechster Datensatzeh ž á(18,0);"Datensatz streichen (J/N)";“r ž á(0,2);â16,7;"Streichung (Vorsicht!)"­| A$´Õ:Š A$´"" © 6780̆ Š A$´"N" ² A$´"n" © 6940í Š A$µ³"J" ± A$µ³"j" © 6760šœ ...............¤ Ž . STREICHUNG .9®œ ...............|¸ Ž Letzter Datensatz wird auf zustreichenden umgespeichert ±Â Š E´AL © ˆ6930: Ž Letzter Satz wird gestrichenÂÌ J´1 ¦ KAÝÖ LT$(E,J)´LT$(AL,J)çà ‚ Jê Ž Aktualisierung der Recherchezeiger%ô J´I¬1 ¦ RAHþ Š RI(J)´AL © RI(J)´E:ˆ6930R ‚ J` AL´AL­1h‚ I‚& : Ž ENDE Streichungˆ0œŽ:œ«Xœ ....................ÇbŽ . UP LISTENAUSGABE . älœ .................... vŽ INPUT: RA ANZAHL DER DATENSAETZE8€Ž RI(*) INDEXFELD DER DATENSAETZEQŠŽ OUTPUT: DRUCKLISTEd”Ž VORBEREITUNG‹žŠ RAµ1 ©7820: Ž Kein Satz gefunden¨Ý 0,31,0,39:™£²žÅ¼„"Geordnete Ausgabe (J/N)";A$ÔÆ E´1 ¦ KAûÐ AS(E)´1: Ž DrucksteuerungsvektorÚ‚ E'äŠ A$´"N" ² A$´"n" © LI´­1:ˆ7250EîŠ A$µ³"J" ± A$µ³"j" ©7080bøž á(2,2);" Nr. Merkmal"q E´1 ¦ KAŒ  ž á(3¬E,0);E;BD$(E) ’‚¥ Ý 22,30,0,39:™Ö*Ž Nach welchem Merkmal soll sortiert werden?ù4ž"Anordnung nach Merkmal Nr.";>„ LIHŠ LIµ1 ² LI³KA ©7200LRŽ DRUCKSTEUERUNG (Was soll gedruckt werden?)r\„"Druckliste gestalten (J/N)";DL$fŠ DL$´"N" ² DL$´"n" ©7730°pŠ DL$µ³"J" ± DL$µ³"j" ©7260ÁzŽ DRUCKLISTEÒ„Ý0,31,0,39:™ìŽž"Drucksteuerzeichen"˜ž:ž" 0 Keine Ausgabe des Merkmals"A¢ž" 1 Ausgabe des Merkmals (alte Zeile)"n¬ž"-1 Ausgabe des Merkmals (neue Zeile)"”¶ž:ž "Merkmal Drucksteurung"£À E´1 ¦ KAºÊ žBD$(E);:„ AS(E)ÂÔ‚ EæÞž:„"Drucksteuerung ok (J/N)";O$èŠ O$´"N" ² O$´"n" ©7300 òŠ O$µ³"J" ± O$µ³"j" ©7300&üœ=Lœ ..............RVŽ . SORTIERUNG .i`œ ..............zjŠ LIµ1 ©7730‹t E´1 ¦ RA­1ž~ F´E¬1 ¦ RAäˆ Š LT$(RI(E),LI)³LT$(RI(F),LI) © ZS´RI(E):RI(E)´RI(F):RI(F)´ZSî’ ‚ Föœ‚ Eü¦œœ .......... Ž . DRUCK .3(œ ..........D2Ý0,31,0,39:™S< B´1 ¦ RAdF E´1 ¦ KA|P Š AS(E)´0 ©7790’Z Š AS(E)µ0 © ž°d ž LT$(RI(B),E);" ";ºn ‚ EÄx ž:žÌ‚‚ BûŒž" WEITER ? ==> Beliebige Taste druecken!"–Œ 16000: Ž Warteschleife3  : Ž ENDE LISTENDRUCK9ªœ?´œE¾œ^@œ .............uJŽ UP . RECHERCHE .ŽTœ .............¶^Ž INPUT: DATEI UND GLOBALE GROESSENàhŽ OUTPUT: RA ANZAHL GEFUNDENER SAETZErŽ RI(*) INDIZES DER GEFUNDENEN SAETZE;|Ž N NUMMER DES SUCHMERKMALSƒ†Ž SM$ STRUKTUR DES SUCHMERKMALS (GEMAESS VERSCHLUESSELUNG)•Ý 0,31,0,39:™´šž á(1,10);â7,0;"RECHERCHE"Ѥž á(3,2);"Nr. Merkmal" à® E´1 ¦ KAÿ¸ ž á(4¬E,0);E;" ";BD$(E)‚ EÌÝ 20,25,0,39:™<Ö„ "Nummer des Suchmerkmals";NSàŠ Nµ1 ² N³KA ©8140têž á(3,21);"Verschluesselung"ôŠ VS(N)µ1 © ž á(5,21);"DIREKT":ˆ8220¯þ E´1 ¦ VS(N)Î ž á(3¬2®E,21);E;SW$(N,E)Ö ‚ Eé Ý 21,23,0,39:™ & „ "Struktur des Suchmerkmals";SM$3 0 Ž Eigentliche Recherche beginnt< : RA´0K D E´1 ¦ ALs N Š SM$´LT$(E,N) © RA´RA¬1:RI(RA)´E{ X ‚ EŒ b Ý 20,31,0,39´ l ž á(23,3);RA;"Datensaetze gefunden"ß v : Ž ENDE DER SUCHE NACH EINEM MERKMALå Š œ!(#œ ..................!2#Ž UP . Ersteintragung .=!<#œ ..................€!F#AL´AL¬1: Ž Aktualisierung Anzahl der eingetragenen Datensaetze¸!P#Ž Input: AL (Anzahl der erfassten Literaturstellen)ê!Z#Ž Globale Felder (gemaess Generierung)"d#Ž Output: AL (aktuell)"n#Ž Datei+"x#Ý 0,31,0,39:™R"‚#ž á(2,1);â0,7;"Datensatz Nr.: ";ALy"Œ#ž á(2,23);â15,3;"Verschluesselung"Š"–#Ý 4,19,22,39™" # E´1 ¦ KA¢"ª# ™ ¿"´# ž á(E¬3,0);BD$(E);":";ë"¾# Š VS(E)µ1 © ž á(4,24);"Direkt": ˆ9200õ"È# Z´4 #Ò# S´1 ¦ VS(E)B#Ü# Š SW$(E,S)µ³"" © ž á(Z,21);S;" ";SW$(E,S): Z´Z¬2L#æ# ‚ Sp#ð# Ý 0,31,0,39:é E¬3,È(BD$(E))¬1‚#ú# „ LT$(AL,E)•#$ Ý 4,19,22,39#$‚ E°#$Ý 16,18,0,20:™Ì#"$„ "Korrektur (J/N):";E$è#,$Š E$´"N" ² E$´"n" ©9300$6$Š E$µ³"J" ± E$µ³"j" ©9240$@$Œ10000: Ž KORREKTUR($J$ˆ9240E$T$Ž Weitere Datensaetze ??X$^$Ý 16,19,0,23:™y$h$„ "Neuer Datensatz (J/N)";E$¥$r$Š E$´"N" ² E$´"n" © : Ž EINGABE FERTIG×$|$Š E$µ³"J" ± E$µ³"j" ©9310:œ --------------é$†$Ý 4,20,0,39:™õ$$AL´AL¬1%š$ˆ9090: Ž Neuer Datensatz%¤$œ3%®$œ .............K%'Ž UP . Korrektur .e%'œ .............x%$'Ý 18,19,0,21:™‡%.' E´1 ¦ KAœ%8' Ý 4,19,22,39:™É%B' Š VS(E)µ1 © ž á(4,24);"DIREKT": ˆ10100Ó%L' Z´4ç%V' S´1 ¦ VS(E)&`' Š SW$(E,S)µ³"" © ž á(Z,21);S;" "SW$(E,S):Z´Z¬2(&j' ‚ S=&t' Ý 18,29,0,20:™Y&~' ž á(18,0);BD$(E);":";o&ˆ' CZ´È (BD$(E))¬1|&’' é 0,CZŽ&œ' „ LT$(AL,E)¡&¦'ž á(E¬3,0);LE$É&°' ž á(E¬3,0);BD$(E);": ";LT$(AL,E)Ñ&º'‚ Eí&Ä' : Ž ENDE UP Korrekturó&Î'œù&Ø'œÿ&â'œ'ì'œ1'˜:œ ................................['¢:Ž UP . Generierung des Dateiprogr. .‡'¬:œ ................................º'¶:† KA: Ž Anzahl der Komponenten (Info. Gruppen)ú'À:LM´50: Ž MAXIMALE LITERATURSTELLENZAHL (Bei Bedarf aendern)(Ê:œ(Ô:Ž Vereinbarung der FelderL(Þ:… LT$(LM,KA),BD$(KA),VS(KA),AS(KA),RI(LM)R(è:œ(ò:Ž Auslesen der Bedeutungen der Komponenten(ü: I´1 ¦ KAŸ(; † BD$(I)§(;‚ I­(;œÖ($;Ž Auslesen des Verschluesselungstypsß(.;MA´0î(8; I´1 ¦ KAü(B; † VS(I))L; Š MAµVS(I) © MA´VS(I) )V;‚ IM)`;Š MAµ1 © ˆ15310:Ž Keine VerschluesselungS)j;œd)t;… SW$(KA,MA)j)~;œ)ˆ;Ž Auslesen der Schluesselwoerterž)’; I´1 ¦ KA·)œ; Š VS(I)µ1 © ˆ15300Ë)¦; J´1 ¦ VS(I)Þ)°; † SW$(I,J)è)º; ‚ Jð)Ä;‚ I *Î; : Ž ENDE Generierung*Ø;œ*â;œ=*€>Ž Warteschleife - TastaturabfrageC*Š>œI*”>œc*ž>W$´Õ: Š W$´"" © 16030i*¨>œ†*²> : Ž ENDE WarteschleifeŒ* Nœ¤**NŽ GENERIERUNGSDATENÆ*4Nœ .........................æ*>NŽ . LITERATURSTELLENDATEI .+HNœ .........................+RN ƒ 105+\NŽ Bedeutungen der KomponentenV+fN ƒ "Zeitschrift","Jahrgang"x+pN ƒ "Autor","Militaertechnik"š+zN ƒ "HF-Technik","NF-technik"¼+„N ƒ "Schaltplaene","Hardware"×+ŽN ƒ "Software","Seite"ú+˜NŽ Verschluesselung der Kompon.,¢N ƒ 4,0,0,2,2,2,2,2,2,0,,¬NŽ SchluesselworteI,¶N ƒ "Urania","Technikus"e,ÀN ƒ "JU+Technik","WiFo"‹,ÊN ƒ "Nicht vorhanden","vorhanden"±,ÔN ƒ "Nicht vorhanden","vorhanden"Ø,ÞN ƒ "Nicht vorhanden","vorhanden" þ,èN ƒ "Nicht vorhanden","vorhanden"$-òN ƒ "Nicht vorhanden","vorhanden"J-üN ƒ "Nicht vorhanden","vorhanden"p-O ƒ "Nicht vorhanden","vorhanden"‘-OŽ Ende der Generierungsdatenen","vorhanden"J-üN ƒ "Nicht vorhanden","vorhanden"p-O ƒ "Nicht vorhanden","vorhanden"‘-OŽ Ende der