ÿ3€ :æ Datenbanksystem unter RBASIC Stand:1.6.89;€:æH€:æ InitR€(’ ¼4b€2¬AòZ:FSï¼4o€<Å :Ÿ:Åz€F (:Ìë…€P•¦‰‚¡€Z†DP(),DB$(),DS$(,–)°€d :‘:‘:‘¹€n‰à¿€x:×€‚‹âï Ú¥DB$,DS$,DP:§ê€ŒFEï:†:§ôð€–: DC$ï"DATENBANK-SYSTEM":Ü:Žª:0´‘:‘" = Ende"6¾Ž<È:OÒ:æ TitelzeileaÜŸ:‘ã((,"-");æ‘Ûÿ…(((òÿ’(DC$))ô));DC$“ðØ,$:‘ä"###";S¢ú‘ã((,"-")¨Ž®:Æ:æ Tastaturabfrageè‘"Bitte eine Taste drcken.";ü"A$ïì:‹A$ï""Ú"‚,Ž‚6:'‚@:æ Druckpositions-AusgabeR‚J‘"Feld-Nr","Feld-Name Druckpo."]‚T‚IïÙ ‚^‹DB$(I)ðî""Ú‘ä"###";I;:‘" ",DB$(I);Û );:‘ä"#####";DP(I):¡Iï ©‚hƒI:Ž¯‚r:µ‚|:Ü‚†DC$ï"Interne Fehlermeldungen":Üå‚Ø, ƒš‹FEïÚ‘"Keine Feldnamen definiert."5ƒ¤‹FEïÚ‘"Feldname bereits vergeben."Uƒ®‹FEïÚ‘"Speicher ist voll."}ƒ¸‹FEïÚ‘"Datensatz nicht vorhanden."¦ƒÂ‹FEïÚ‘"keine Datens„tze vorhanden."ÏƒÌ‹FEïÚ‘"Systemfehler";â;"in Zeile";áàƒÖØ,::Žæƒà:ìƒê:ùƒô:æ Men„þ :Iï,„ØI,I:‘ÛI)"N - Dateiname eingeben"T„ ‘ÛI)"1 - Feldnamen eingeben/„ndern"w„‘ÛI)"2 - Druckposition „ndern"”„‘ÛI)"3 - Daten eingeben"¯„&‘ÛI)"4 - Daten „ndern"Ë„0‘ÛI)"5 - Daten l”schen"è„:‘ÛI)"6 - Daten anzeigen"…D‘ÛI)"7 - Daten suchen"…N‘ÛI)"8 - Daten drucken"H…X‘ÛI)"9 - Information ber Datenbank"[…b‘ÛI)"0 - ENDE"w…l‘:‘ÛI)"L - Daten laden"•…v‘ÛI)"S - Daten speichern"¼…€‘ÛI)"D - Disketteninhalt anzeigen"Ü…ŠØ,:‘"Bitte w„hlen Sie:";å…”"ü…ž‹A$ï"L"÷A$ï"l"Úª †¨‹A$ï"S"÷A$ï"s"Ú *†²‹A$ï"D"÷A$ï"d"Ú6d†·‹A$ï"n"ÚØ,:…" Dateiname: ";DB$:‚IïÙô:ƒ:‰ô‰†¼‹A$ï"0"ÚŸ:DC$ïDC$ñ" ENDE":Ü:£†ÆAïÿ”(A$):‹Að÷AîÚ”Ñ†Ð• A ‰ ø,¶,L,2,ú,Ì,”,8 ,hÚ†Ú‰”à†ä:æ†î:‡øDC$ï"Feldnamen „ndern":Ü4‡‘"Verwerfen der Datei im Speicher? (J/N)"P‡":‹A$ï"n"÷A$ï"N"Ú …‡‹A$ï"j"÷A$ï"J"Ú‚IïÙ:DB$(I)ï"":DP(I)ï:ƒI::¡ø‡Sï‡ ‚IïÙ:ÜÜ‡*‘:‘" Feldname gltig":‘:‘"^ als Feldname Abbruch"ä‡4‘:‘ù‡>‘"Feld-Nr.:";IñˆH‘:‘"Alter Feldname: ";DB$(I)AˆRDA$ïDB$(I):…"Neuer Feldname: ";DA$Sˆ\‹DA$ï"^"ÚIï ˆˆf:æIFDB$(I)=""THENFORJ=ITO9:DB$(I)="":NEXTJ:I=10•ˆp‹IîÚ˜ÇˆzFEï:‚JïÙ:‹DB$(J)ïDA$Ú ‹IðîJÚFEï:†:Jï Îˆ„ƒJ÷ˆŽ‹FEÚDC$ï"Feldnamen „ndern":Ü:‰*‰“DB$(I)ïDA$‰˜ƒI:‰ô‰¢:æ"‰¬:æF‰¶DC$ï"Druckposition „ndern":Üd‰À‹DB$()ï""ÚFEï:†:‰ôm‰ÊJv‰Ô´‹‰Þ‘:‘"Feld-Nr.: ";”‰è"§‰ò‹A$ïÿ–( )ÚôÁ‰üAïÿ”(A$):‹Að÷AîÚèÖ‰‹AïöA$ðî"0"Úèé‰‹DB$(A)ï""Úèð‰‘AAŠ$‘:‘"Jede Erh”hung der Position um 1000 ent- spricht einem Zeilenvorschub.":‘mŠ.…"absolute Druckposition: ";DP(A):‰ ¶sŠ8:yŠB:™ŠLDC$ï"Daten hinzufgen":Ü·ŠV‹DB$()ï""ÚFEï:†:‰ôÅŠ`‹SðZÚtéŠj‹ÿ("")ðè÷Sî–ÚFEï:†:‰ô‹t‘"Neuer Satz: ";Sñ;ß);" = Ende"‹~‘$‹ˆIï;‹’A$ï"":‘DB$(I),:…A$J‹œ‹A$ï""Úô\‹¦DS$(I,Sñ)ïA$o‹°IïIñ:‹IîÚØ‚‹º‹DB$(I)ï""ÚØš‹ÄA$ï"":‘ DB$(I),:…A$±‹ÎDS$(I,Sñ)ïA$:‰°¹‹Ø‘:‘Ú‹â‘"Alles in Ordnung? (J/N) ";ã‹ì"ú‹ö‹A$ï"n"÷A$ï"N"ÚLŒ‹A$ðî"j"öA$ðî"J"ÚìŒ SïSñHŒ‚IïÙ:DS$(I,S)ïÿ(DS$(I,S),):ƒ:‰LPŒ:æXŒ(:ætŒ2DC$ï"Daten „ndern":Ü|Œ<‘:‘„ŒFDï£ŒP…"Datensatz (0 = Ende) ";D°ŒZ‹DïÚôÌŒd‹Dð÷DîSÚFEï:†:‰2ÒŒn‘ÝŒx‚IïÙ‚‹DB$(I)ðî""Ú‘I;" ";DB$(I);Û);DS$(I,D)Œƒ–´- ‘"Feld-Nr.: ";Eª":‹A$ïÿ–( )Ú2c´Fïÿ”(A$):‹FïöA$ðî"0"Úª{¾‹DB$(F)ï""Úª:¡‘F;¡ÈDS$(F,D)ï"":‘:‘ DB$(F),:…DS$(F,D)ÃÒDS$(F,D)ïÿ(DS$(F,D),):ÜáÜ‘:‘:‘"Datensatz: ";D:‰nçæ:íð:ŽúDC$ï"Datensatz l”schen":ÜŽ‘:‘:Dï9Ž…"Datensatz (0 = Ende) ";DFŽ‹DïÚôbŽ"‹Dð÷DîSÚFEï:†:‰úhŽ,‘sŽ6‚IïÙ†Ž@‹DB$(I)ï""ÚT¡ŽJ‘ DB$(I);Û);DS$(I,D)§ŽTƒËŽ^‘:‘"Datensatz l”schen? (J/N) ";ÔŽh"ëŽr‹A$ï"n"÷A$ï"N"Úú|‹A$ðî"j"öA$ðî"J"Úh†‘"Ja";:‚JïDÙS!‚IïÙ9šDS$(I,J)ïDS$(I,Jñ)B¤ƒI,JQ®SïSò:‰úW¸:]Â:{ÌDC$ï"Daten anzeigen":ÜªÖDï:…"Ab Datensatz (0 = Ende) ";D:‹DïÚôÆà‹Dð÷DîSÚFEï:†:‰ÌÐê Üçô‘:‘"Datensatz: ";Díþ‘ø‚IïÙ‹DB$(I)ðî""Ú‘DB$(I);Û);DS$(I,D)$ƒ,&‘:‘]0‘"<- Zurck -> Vor Ende";o:":Aïÿ”(A$)‚D‹A$ïÿ–( )ÚôœN‹A$ïÿ–()ÚDïDò:‰l¶X‹A$ïÿ–()ÚDïDñ:‰l¿b‰:Ñl‹DðÚDï:‰bèv‹DîSÚDïS:‰b:¡êî€:ôŠ:‘”DC$ï"Daten suchen":Ü(‘ž‹SðÚFEï:†:‰ô3‘¨‘:´N‘²S$ï"":…"Suchwort: ";S$]‘¼‹S$ï""Úô†‘Æ Ü:‘:J:‘:‘" A ","Alle Felder"‘Ð‘:‘"Suchwort: ";S$¯‘Ú‘"In Feld: ";æ‘ä":‹A$ï"A"ÚFïc:‰ø :¡Fïÿ”(A$):‹FïöA$ðî"0"Úäù‘î‹DB$(F)ï""Úä’øÜ ’Iï(’‹FïcöIðïSÚŽ:¡‹FïcÚ”M’‹ IðïS Ú Pïå(DS$(F,I),S$) :¡ ”a’ ‹PïÚIïIñ:‰j’*Üƒ’4‘:‘"Datensatz: ";I:‘Ž’>‚JïÙ´’H‹DB$(J)ðî""Ú‘DB$(J);Û);DS$(J,I)º’RƒÛ’\‘:‘:‘"Weitersuchen? (J/N) ";ä’f"û’p‹A$ï"n"÷A$ï"N"Ú”“z‹A$ðî"j"öA$ðî"J"Úf#“„IïIñ:‰+“ŽPï7“˜‚IZïÙZ“¢‹DB$(IZ)ðî""ÚPïå(DS$(IZ,I),S$)h“¬‹PîÚIZïs“¶ƒ:‰ y“À:“Å:æUp Neue SeiteÚ“ÊSEITEïSEITEñ:ZEILEï:ÿ–()ñ"R2": Û)DB$;Û<)"Seite:";SEITE::DMïô“Ô‚IïÙ:‹DB$(I)ï""Úü”Þ‹DP(I)ïÚü”èDPïDP(I).”í‹DPîèÚ:ZEILEïZEILEñc”ò‹DPîèÚDMïDMñ:DPïDPòè:‰í:¡ÛDPñ );DB$(I);”üƒ::Û );ã(<,"-")::ZEILEïZEILEñ:Ž“” :½” ZEILEïZEILEñ:‹ZEILEî;òDMÚ:::ÊÃ” ŽÉ”$ :Ï”. :ñ”8 DC$ï"Daten drucken":Ü:J •B ‹SðÚFEï:†:‰ô•L ´•V ‘0•` Vï:…"Von Satz: ";V=•j ‹VïÚôU•t Bï:…"Bis Satz: ";Bb•~ ‹BïÚôs•ˆ ‹BðV÷BîSÚ8 „•’ SEITEï:Ê•œ ‚LBïVÙB¦•¦ Û);:ä"###";LB;±•° ‚IïÙÄ•º ‹DB$(I)ï""Úì Õ•Ä ‹DP(I)ïÚì â•Î DPïDP(I) –Ø ‹DPîèÚZEILEïZEILEñ::DPïDPòè:‰Ø &–â ÛDPñ );DS$(I,LB);.–ì ƒ IR–ö :ZEILEïZEILEñ: :ƒLB:‰ ôX– :^– :}– DC$ï"Daten speichern":Ü•– ‹SðÚFEï:†:‰ô¬–( ‘:‘:‘"Datei: ";DB$ÿ–2 ‘" Falls Spei- cherung auf Kassette erfolgt, bitte Recorder vorbereiten." —< DZ$ï"":‘:…"Ger„t:Datei ";DZ$@—F ‹DZ$ï""Úô:¡DB$ïDZ$:DZ$ï""T—P ° DB$ ‚ œ³ AS#l—Z ‚IïÙ:‘#,DB$(I):ƒ|—d ‘#,ÿ“(Sò)Ž—n ‚JïÙS:‚IïÙ¤—x ‘#,DS$(I,J):ƒI,J¿—‚ ‚IïÙ:‘#,ÿ“(DP(I)):ƒÊ—Œ ´:‰ôÐ—– :Ö— :ñ—ª DC$ï"Daten laden":Üù—´ ‘:‘m˜¾ DB$ï"":‘"Neuen Dateinamen eingeben. Falls Spei- cherung auf Kassette erfolgte, bitte Recorder vorbereiten."‡˜È ‘:…"Ger„t:Datei ";DB$—˜Ò ‹DB$ï""Úôª˜Ü ° DB$ ‚ … AS#Â˜æ ‚IïÙ:…#,DB$(I):ƒÖ˜ð …#,A$:Sïÿ”(A$)è˜ú ‚JïÙS:‚IïÙþ˜…#,DS$(I,J):ƒI,J™‚IïÙ:…#,A$:DP(I)ïÿ”(A$):ƒ*™´:‰ô0™":6™,:U™6DC$ï"Disketteninhalt":Ü[™@·k™J‘::‰ôq™T:w™^:š™hDC$ï"System-Information": Ü¼™rØ ,:‘"Bitte etwas Geduld."Î™|Aïÿ(""):ÜØ™†‘:‘:‘š‘"Zugewiesener Stringspeicher: ";:‘ä"#####";FS;:‘" Byte"Qšš‘"Freier Stringspeicher: ";:‘ä"#####";A;:‘" Byte"‘š¤‘"Freier Variablenspeicher: ";:‘ä"#####";ÿ(I);:‘" Byte"—š®‘Æš¸‘"Maximale Anzahl Datens„tze: ";:‘"150"øšÂ‘"Belegte Datens„tze: ";:‘ä"#####";S<›Ì‘"Freie Datens„tze: ";:‘ä"###.#";(–òS)ódô–;:‘" %"a›Ö‘:‘"Aktueller Dateiname: ";DB$‡›à‘"Aktuelle Anzahl Datenfelder: ";¨›êAï:‚IïÙ:‹DB$(I)ðî""ÚAïAñº›ôƒ:‘ä"#####";AÎ›þØ,::‰ôeiname: ";DB$‡›à‘"Aktuelle Anzahl Datenfeld