I#110Z FLOPDAT - Dateiprogramm - KC85/4 f}r Diskettenbetrieb V1.2 Druckroutine ist jeweils den Feldna men und Feldzahlen anzupassen. Ruthart Riehl Gotzkowskystr.20 Leipzig O-7033(2000:Z162(Z,7);(26,"*")C<(Z1,7);"* *"nF(Z2,7);"* UNIVERSELLE DATEI V1.2 *"P(Z3,7);"* *"Z(Z4,7);"* F}r Diskettenbetrieb *"d(Z5,7);"* *"n(Z6,7);(26,"*")2x(29,37);23;(138):(27);"1"::170L0,31,0,39:6,1:::e3,30,1,38:14,0::}6,29,2,37:7,5::6,29,2,37:7,5:::NE;"Saetze belegt":130:(1,10);" * F L O P D A T *" :140 :" D a t e i e i n r i c h t e n":1506:" Hinweis: Gespeicherte Daten werden"a" nur mit der Speichergr|~e geladen,"" mit der sie ausgelagert wurden!"::14,2:" Modul darf nur bei ausgeschaltetem ";" Computer gesteckt werden! ";::7,4:2" Arbeiten Sie mit RAM-Modul (J/N)? ";AA$jAA$"J"14000:A1900:A22000:ԡ4000:A1350:A2800vFI$(2)"7,5:::" Wollen Sie ...",:" <1> Datei von Diskette laden?"6:" <2> Neue Datei einrichten?"@::" Kennzahl: "; JAA$:AA$""330& TAA$"1"4907 ^AA$"2"370@ h330` r:::" Dateiname:";FI$(0) |::" Anzahl der Felder pro Satz:";NI: A$(NI) NI3NMA1:420 NM(A2NI) IT$(NM,NI):NE0 I1NI " Feldname";I;":";:"";IT$(0,I) I7 :AA$"":" Eingabe korrekt (J/N)?";AA$K AA$"N":370T 650 140::" D a t e n v o n D i s k e t t e":150 :" Dateiname ":" Datenname " :" Dateiname:";FE$ (FE$)8::" Name zu lang!":30:::500$ " Datenname:";FD$:V (FD$)8::" Name zu lang!":30:::500 w &" Eingabe korrekt(J/N)?";W$ 0W$""::" 'J' oder 'N'!"::550 :W$"N"::500 D""FE$;FI$ NNI(FI$(1)):NE(FI$(2)) XNI3NMA1:620 bNM(A2NI) lIT$(NM,NI),A$(NI)0 v""FD$;IT$U :" Datei ";FE$;" geladen!":30 130:" * F L O P D A T * ";FI$(0);" *" ****** H A U P T M E N U E ****** 140::" D a t e i H a u p t m e n u":160 :" W o l l e n S i e ..."( :" <1> Neue Daten eingeben"U :" <2> Daten suchen/loeschen/drucken"r :" <3> Daten aendern" :" <4> Daten ausgeben/drucken" :" <5> Daten auf Disk speichern" :" <6> Speicherplatz pruefen" :" <7> Ende"20,2:"Kennzahl: "20,10T AA$"":"";AA$:AA(AA$):AA(AA):AA1AA7760AA7::" Sind die Daten gesichert (J/N)?";:"";AA$ AA7AA$"J"1720*AA860,1020,1380,1610,1720,820,18904140::" S p e i c h e r T e s t":160A>(10,5);"Es sind maximal";NM;"Saetze":(11,5);"moeglich.nH(14,5);"Es stehen noch";(X$);"Bytes" R(15,5);"zur Verfuegung.":;(27,35);(138)::670\140::" N e u e D a t e n" :160:Z0fNENM:(15,9);"Datei ist voll!":900!p(27,35);(138)::6700z160:ZZ18:DI1NIuIT$(0,I);" ";:"";A$(I):A$(I)""A$(I)"*"I::AA$"":" Sind die Daten korrekt (J/N)?";AA$AA$"N"0,0:::900I1NIIT$(NE1,I)A$(I):A$(I)"*":INENE1:NENM.5Z5820H::AA$"":" Noch mehr Daten (J/N)?";AA$ZAA$"N"890c670qNE0670140::" Daten suchen / loeschen / drucken":160:I1NI" (";I;") ";IT$(0,I):I$:" Welche Felder sollen durch-"*.B$"":" sucht werden (0 = alle) ?";:"";B$ K8B(B$):B(B):B0BNIB0tB:" Geben Sie den Suchbegriff ein:"LT$"["::"";T$VZ0`FL0jB0B1:FL1tI1~(T$,IT$(I,B))01280AA$"N"670::" Satz";I::J1NIIT$(0,J);" ";:IT$(I,J)'J:ZZ1X::" Wollen Sie den Satz loeschen (J/N)?";mAA$"":"";AA$ AA$"J":" Sind Sie sicher (J/N)?";:"";AA$AA$"J"1340" Ausdrucken (J/N)?";:AA$"":"";AA$AA$"J"2090 :" Suche fortsetzen (J/N)?";:AA$"":"";AA$1AA$"N"670GINEII1:1150b FL1BNIBB1:1140:(12,5);"E n d e d e r S u c h e!"(17,2);Z;"Eintragung(en) gefunden":(19,3);"fuer ";T$((27,35);(138)::6702 Eintrag loeschen<KINE1:L1NI.FIT$(K,L)IT$(K1,L)@PL:K:NENE1dZ:" Eintrag geloescht!":1260rdNE0670n140::" D a t e n a e n d e r n":160:Z0xZZ1::" Welcher Satz soll geaendert werden?"AA$"":" (0 = durchblaettern)";AA$"AA(AA$):AANEAA0AA0+IAA=AA0I1NECV:" Satz";I:bJ1NIIT$(0,J);" ";:" ";IT$(I,J)J0,0:" Satz";I:J1NIIT$(0,J);" ";:"";IT$(I,J):IT$(I,J)""IT$(I,J)" " J#AA$""::" Aenderung korrekt (J/N)?";AA$5AA$"N"1500K"NENM.5Z8820|,:AA$"":" Weiter (J/N)?";AA$:AA$"N"6706AA0I:670@:1400JNE0670T140::" Daten ausgeben / drucken" ^160:A1::" Ausgabe von Satznr.:";A:A1ANEA1/hBNE::" bis:";B:BNEBA BNEWrIA B::3,2:" Satz";I::J1NIs|IT$(0,J);" ";IT$(I,J)J::" Weiter (J/N)?";A$:A$"J"I" Ausdrucken(J/N)?";:"";AA$AA$"J"2090A$"N" BA BA 670NE06708140::" D a t e n a u f D i s k e t t e":160n:" Dateiname ":" Datenname ":" Dateiname:";FE$(FE$)8::" Name zu lang!":30::1740" Datenname:";FD$:(FD$)8::" Name zu lang!":30::1740" Eingabe korrekt(J/N)?";A$HA$""::" 'J' oder 'N'!"::1790\A$"N":1730zFI$(1)(NI):FI$(2)(NE)&""FE$;FI$0""FD$;IT$::" Datei ";FE$;" ausgelagert!":DA$"":" Sicherheitskopie (J/N)?";A$ NA$"J":1790:Ԉ670,X ------------------------------Bb0,31,0,39:7,1:Hli0,31,0,39:6,1::(27);"4"" [[[[ [ [[ [[[ [[[ [[ [[[[["" [ [ [ [ [ [ [ [ [ [ ["" [ [ [ [ [ [ [ [ [ [ ["" [[[ [ [ [ [[[ [ [ [[[[ ["B" [ [ [ [ [ [ [ [ [ ["m " [ [[[ [[ [ [[[ [ [ ["10,30,1,38:7,2: 4:(8,1);">>>> RR-SOFT KC85/4 07/91 <<<<":* 4---------- DRUCKERROUTINE -K6313- Vorname,Name,Stra~e,Ort,PLZ>17,29,2,37:<H6::" Ausdruck:";L1:nR5;" K";:6;"ouvert";:5;" L";:6;"iste";\5;" M";:6;"en} ?";:5:"";L$:6f L$"L"2470p L$"M"650z:" HERRN <1>":" FRAU <2>":" ANGABE <3>"22,27,15,35." MIT ABSENDER <4>":" OHNE ABSENDER <5>"?23,29,12,15M:"";EN$u EN$"3"28,29,2,21:7:"";AN$:6 EN$"1"AN$"HERRN" EN$"2"AN$"FRAU"23,25,33,37:"";AB$:6,29,2,37:22;(15,16);"D R U C K" AB$"5"2320 AB$"4"#2:#2=#2;(27);"!";(20);"Ruthart Riehl"f#2;"Gotzkowskystr.20":#2;"Leipzig"| #2;"O -7033":#2 #2:#2:#2:#2:#2:#2:#2:#2:#2 #2:#2:#2:#2:#2$ #2;(27);"$";. #2;(27);"!";(24);37);AN$:#2 8 J1 5 : I=Satznr. J=Text8 B J1 #2;35);IT$(I,J);" ";T L J2 #2;IT$(I,J):#2u V J3 #2;35);IT$(I,J):#2 ` J4 #2;35);IT$(I,J):#2 j J5 #2;35);(27);"!";(56);IT$(I,J) t J:#2:#2:#2:#2:#2:#2:#2:#2 ~ #2;(27);"$";! INE BB1:7:1170,! IB :6707! 5::a! -------- LISTENDRUCK ------------- t! #2;(27);"$";! #2;(27);"!";(0);! Z0 L:LZ1:! Z10#2;10);" ";Z;" ";! Z9#2;10);" ";Z;" ";! Z99#2;10);Z;" ";" J1 5 : I=Satznr. J=TextG" J1 #2;(27);"!";(0);IT$(I,J);" ";e" J2 #2;IT$(I,J);", ";" J3 #2;IT$(I,J);", ";" J4 #2;IT$(I,J);", ";" J5 #2;IT$(I,J)"( J"2 INE BB1:150:1170"< IB :670#F --------- PROGRAMMENDE ---------);", ";" J5 #2;IT$(I,J)"( J"2 INE BB1:150:1170"< IB :670#F ---------