KARTOTEKA Ïk — *** UNIVERSALDATEI ***RC$ô"AGENTUR KOHL,POSTFACH 48,D-2863 RITTERHUDE,(Ÿ)1984":Xôˆz:— ³¡›.KARTEN2– A$(X),B$(X),C$(X),D$(X)B4M1$ô"/MAX. 1 ZEILE(¡°¤–. “,' “;' «’£’°œ’° ¤·°¤– Z’¦¸’°’°œ’)"*6M4$ô"/MAX.4 ZEILEN(©’¦° K·³³¡ «’£.)")8M5$ô"/MAX.4 ZEILEN(©’¦°’ E¦°—¡š’=,)"&9Z0$ô" KOPFZEILE " :— BEZ.KOPFZ.':Z1$ô"1. ZEILE" :— BEZ.1.ZEILE'<Z2$ô"2. ZEILE" :— BEZ.2.ZEILE'>Z3$ô"3. ZEILE" :— BEZ.3.ZEILE"@MU$ô"C,D,C,D,C,D,C,D,C,D,C,D"D›(F:æ(„)"H A U P T - M E N U E"(K:"ES SIND"AA" KARTEN GESPEICHERT""P::" 1 = DATEI NEUANLEGEN"Z:" 2 = DATEI ERWEITERN"!d:" 3 = DATEI BERICHTIGEN"n:" 4 = DATEI EINLESEN"!x:" 5 = DATEI ABSPEICHERN"*‚:" 7 = DATEI DURCHBLAETTERN _ + Æ"!Œ:" 8 = DATEI DURCHSUCHEN"–:" 9 = ENDE"# ::‘"BITTE WAEHLEN SIE ! ";BWCª“(BWö)÷(BWõ„)â "FALSCHE EINGABE - BITTE NEU":€  /´ BW € è, Ð, ¸ ,  , ˆ, p, X, ', (#è— ***AB1000 NEUANLEGEN ***!›:"NEUANLEGEN EINER KARTEI"[“ AAõ â [ƒ@,‚]"ACHTUNG ES SIND NOCH DATEN GESPEICHERT LOESCHEN ? J/N"“ AAõ â ­ JN$$“ AAõ â “ JN$ô"J"â ƒ".“ AAõ â “ JN$ô"N" â 8“ AAõ â € 0B:"BITTE BEZEICHNUNG DER KARTEI EINGEBEN "L:‘"";KN$$V:‘"WIEVIEL KARTEIKARTEN ? ";AA9`“ AAõX â "MAX. X KARTEN MOEGLICH - BITTE NEU":€ Vj›t IôàAA~›,ˆ[ƒ@,‚]Z0$;I;".KARTEIKARTE"M1$-’þ¤ ,‚@:[ƒ@,‚]Z1$;M4$-œþ¤ ,„ :[ƒ@,‚]Z2$;M5$-¦þ¤ ,…:[ƒ@,‚]Z3$;M5$1°þ¤ O,‚:‘"";A$(I):A$(I)ôÿº(A$(I),† )1ºþ¤ O,ƒ:‘"";B$(I):B$(I)ôÿº(B$(I),ˆ )1Äþ¤ O,„0:‘"";C$(I):C$(I)ôÿº(C$(I),ˆ )1Îþ¤ O,…:‘"";D$(I):D$(I)ôÿº(D$(I),ˆ )1Øþ¤ ,…8:"1 = BERICHTIGEN, 2 = OK " â­ JN$ì“ JN$ô"1"â °ö“ JN$ô"2"â  € â Ž IAþ¤ ,…8:[ƒ@,‚]"WEITER MIT DER LEERTEASTE" ­ LS$(“ LS$ï" "â  2€ З ***AB 2000 ERWEITERN***jÚ“(KN$ô"")ü(AAô)â:[ƒ@,‚]"ES IST NOCH KEINE DATEI GESPEICHERT":IôàŒ;€:Ž:€ Qä›:"DATEI ERWEITERN, ES BEFINDEN SICH":"SCHON"AA" KARTEIKARTEN IM SPEICHER"1î:‘"WIEVIEL KARTEIKARTEN ? ";AW : ABôAA÷AW:Gø“ ABõX â "ES SIND NUR FUER"X" KARTEN":"ARRAYS EROEFFNET !":€ î›  I ô(AA÷)à(AA÷AW)›D [ƒ@,‚]Z0$;I;".KARTEIKARTE"M1$:þ¤ ,‚:A$(I)4*þ¤ ,‚@:[ƒ@,‚]Z1$;M4$:B$(I)44þ¤ ,„ :[ƒ@,‚]Z2$;M5$:C$(I)4>þ¤ ,…:[ƒ@,‚]Z3$;M5$:D$(I)1Hþ¤ O,‚:‘"";A$(I):A$(I)ôÿº(A$(I),† )1Rþ¤ O,ƒ:‘"";B$(I):B$(I)ôÿº(B$(I),ˆ )1\þ¤ O,„0:‘"";C$(I):C$(I)ôÿº(C$(I),ˆ )1fþ¤ O,…:‘"";D$(I):D$(I)ôÿº(D$(I),ˆ )1pþ¤ ,…8:"1 = BERICHTIGEN, 2 = OK " z­ JN$„“ JN$ô"1"â H"Ž“ JN$ô"2"â AAôAA÷:€ ¢ ˜€ z¢Ž IA¬þ¤ ,…8:[ƒ@,‚]"WEITER MIT DER LEERTEASTE" ¶­ LS$À“ LS$ï" "â ¶ Ê€ ¸ — **AB 3000 BERICHTIGEN**LÌ ›:"DATEI BERICHTIGEN, ES BEFINDEN SICH":AA" KARTEIKARTEN IM SPEICHER"&Ö :‘"BITTE KARTEN-NR. EINGEBEN ";Ià ›-ê [ƒ@,‚]Z0$;I;".KARTE"M1$:A$(I)4ô þ¤ ,‚@:[ƒ@,‚]Z1$;M4$:B$(I)4þ þ¤ ,„ :[ƒ@,‚]Z2$;M5$:C$(I)4 þ¤ ,…:[ƒ@,‚]Z3$;M5$:D$(I)O þ¤ ,…8:[ƒ@,‚]"1 = BERICHTIG.,2 = NEUE KARTE,M = MENUE"  ­ JN$& “ JN$ô"1"â N 0 “ JN$ô"2"â ¸ : “ JN$ô"M"â D €  1N þ¤ O,‚:‘"";A$(I):A$(I)ôÿº(A$(I),† )1X þ¤ O,ƒ:‘"";B$(I):B$(I)ôÿº(B$(I),ˆ )1b þ¤ O,„0:‘"";C$(I):C$(I)ôÿº(C$(I),ˆ )1l þ¤ O,…:‘"";D$(I):D$(I)ôÿº(D$(I),ˆ ) v € à  — *** AB 4000 EINLESEN ***´›:"DATEN EINLESEN ":X¾“ AAõ â [ƒ@,‚]"ACHTUNG ES SIND NOCH DATEN GESPEICHERT LOESCHEN J/N"È“ AAõ â ­ JN$'Ò“ AAõ â “ JN$ô"J" â þ¦:€ "Ü“ AAõ â “ JN$ô"N" â æ“ AAõ â È>ð[ƒ@,‚]"WENN DATENCASSETTE OK “PLAY' DRUECKEN "úÐ"UNIVERSALDATEI"‘ûT AA,KN$0:KN$","AA" KARTEN":"WERDEN EINGELESEN": I ô  à AA "‘ûT A$(I),B$(I),C$(I),D$(I) '".";,Ž I16Ï@@:"DIE DATEN WURDEN EINGELESEN, WEITER MIT DER LEERTASTE " Eþ¢ MU$ J­ LS$T“ LS$ï" " â J ^€ ˆ— **AB 5000 ABSPEICHERN**œ›:"DATEN ABSPEICHERN"@¦:[ƒ@,‚]"WENN DATENCASSETTE OK “RECORD' DRUECKEN"°Î"UNIVERSALDATEI"ºûT AA,KN$3Ä:KN$","AA" KARTEN":"WERDEN ABGESPEICHERT":Î I ô  à AA ØûT A$(I),B$(I),C$(I),D$(I) Ý".";⎠IçìÏCö:"DIE DATEN WURDEN ABGESPEICHERT, WEITER MIT DER LEERTASTE" ûþ¢ MU$ ­ LS$ “ LS$ï" " â  € p€ #X— ***AB 7000 DURCHBLAETTERN***b›,l"ES SIND"AA" KATREIKARTEN GESPEICHERT"'v‘"DATEI DURCHBLAETTERN AB NR: ";VZ9€“ VZõAAâ "ES SIND NUR"AA" KARTEN GESPEICHERT":€ v8Š›:[ƒ@,‚]KN$;Z0$;VZ;".KARTEIKARTE":A$(VZ)1”þ¤ ,‚@:[ƒ@,‚]Z1$:B$(VZ)1žþ¤ ,„ :[ƒ@,‚]Z2$:C$(VZ)1¨þ¤ ,…:[ƒ@,‚]Z3$:D$(VZ)8²þ¤ ,…8:"V = VOR, Z = ZURUECK, M = MENUE" ¼­ JN$8Æ“ JN$ô"V"â VZôVZ÷:“ VZô(AA÷)â VZô/Г JN$ô"Z"â VZôVZø:“ VZô âVZôAAÚ“(JN$ô"V")÷(JN$ô"Z")â Šä“ JN$ô"M"â î€ ¼#(#— *** AB 9000 ENDANLISTUNG ***V2#“ AAõ â [ƒ@,‚]"ACHTUNG !!! WURDEN DIE DATEN ABGESPEICHERT ? J/N"4#“ AAõ â ­ JN$ 6#“ AAõ â “ JN$ô"J"â F#"8#“ AAõ â “ JN$ô"N" â <#“ AAõ â 4#*F#:"°·Ÿ˜";:ÿµ;:" BYTE ª’¦"::C$:Z#˜ '— **AB 10000 SUCHPROGRAMM**,8'›:"DEN AUS DER KOPFZEILE ZU SUCHENDEN"!B'"(TEIL-)BEGRIFF EINGEBEN": L'‘"";A$V'Aôÿ¬(A$): ZW ô `' I ô  à(† øA)@j'þ¤ ,…8:[ƒ@,‚]"SUCHPROGRAMM LAEUFT "t' X ô  à AA~'“ A$ôÿ¼(A$(X),I,A)â ’' ˆ'€ Ø'B’'›:[ƒ@,‚]KN$;Z0$;X".KARTEIKARTE":A$(X):ZWôZW÷0œ'þ¤ ,‚@:[ƒ@,‚]Z1$:B$(X)0¦'þ¤ ,„ :[ƒ@,‚]Z2$:C$(X)0°'þ¤ ,…:[ƒ@,‚]Z3$:D$(X)1º'þ¤ ,…8:"WEITER MIT DER LEERTASTE" Ä'­ JN$Î'“ JN$ï" "â Ä' Ø'Ž X,IPâ'þ¤ ,…8:[ƒ@,‚]"1 = WEITERE KARTEN, 2 = MENUE("ZW" LIST)" ì'­ JN$ö'“ JN$ô"1"â '(“ JN$ô"2"â (€ ì'