DAT64/K KCC?*@~ ۈӈ# ۈӈ#"@*@>?#ۈӈ#"@ۈӈ˿2;u;{|}~REBASIC RUN !>2>2Égo|gxޠG>5Jʙ9v" GSљ e͘w>RO î92.9./90(15192)8EK(15192)+8)0)6640230XT:C99H4`4`40 250000  *** DAT64/n ***#D Autor: J. Werner, VCC e.V.J[ V: 2.9./90ay A$(Q)=VERZEICHNIS C$(Q)=LESEVARIABLE (0)1(0)512,0:4,3:0,1 255,14848:0,31,0,39:7,0:255 (16384)123800::" *** DAT64/n ***"3KY$"Datei laden?":150^T1M$(1)"DATEN EINLESEN":200:3150|:" ANZAHL DER ELEMENTE"EZ1:4,4:"DES DATENSATZES:";EZ:EZ1EZ252516389,EZ:16392,1:EZ20300,14848:EZ(16389)C$(EZ),A$(EZ),TB(EZ1),LA(EZ)&:" DATENBANK NR.";(0):J" NAME:";A$:A$""A$"-"m 190:C$(0)A$:16385,16394:52$AA16394(C$(0))(EZ8)EZ:16387,AA&Q1EZ:A$(Q)".":A$A$(Q):52:16385,(16385)7:'16385,AA:NAAEZAA1:N,1:(9001 UP2 SCHREIBEN"4A(16385)/8XE(A$);:X1XE]<XXEA,128((A$,X,1)):64q>A,((A$,X,1))}@AA1:B16385,A:E LESENFB(16390):C$(N)""G((N64),KA$)Y74,77,81H22B:JZ(TB(N)40):STB(N)(Z40):14240,S:200:!M#2TB(N));"";HNC(B):C128CC128:#2(C);:83_OBB1:#2(C);:78wPB(16390):C$(N)""QC(B):C128CC128:C$(N)C$(N)(C):83RBB1:C$(N)C$(N)(C):81S16390,B1:TBB1:83U16390,B1: Y COPY+ Z16323,BC:16326,DE:16329,HL:3FBF:D \16332,176:90: VOR_ ^16332,184:90: RUECKj c TAB. dTB6:TB(1)6:N1EZ fTB(N1)TB(N) h((N64),KA$)TBTB(AAN)1:TB(N1)TB j: m DEZ>HEX nH$"" pI(N16):RN16I:R9C48:C55, rH$(RC)H$:I0NI:1122 t> w ENTERa x(30,5);(18," ")">ENTER< "u zT$:T$""122 |T$(13) ~130:122 FEHLER (31,18);"EINGABEFEHLER!";: (31,0);(39," ");: (30,0);(39," "): KENNZIFFER6 (28,25);(15," "):(28,20);"KENNZIFFER:"J T$:T$""141[ (28,31);T$v (T$)64T(T$)55: (T$)48KA(T$)48KE130:141 T(T$)48: (J)/N ? (30,(25(KY$)));KY$:(30,27);"(J)/N" T$:T$""151 (T$)13(T$)74T1:135:7 (T$)78T2:135:E 130:150S J/(N) ? (30,(25(KY$)));KY$:(30,27);"J/(N)" T$:T$""161 (T$)13(T$)78T2:135: (T$)74T1:135: 130:160 VERZ. Q1EZ:(4Q,2);A$(Q)(8(A$(Q)),".") :* MOM.S (30,0);(19," ")"MOMENT BITTE!":l (30,0);(39," "):} UEBERSCHR. :" ";M$(T):" ";((M$(T)),"="): + KORR.> ,(A$)(AAN)AAN,(A$).AE(16385):BCAELA(N):HLAE:AEAED:DEAE:16385,AE:401 KORR.<ZAE(16385):DELA(N):HLDED:BCAELA(N)D:16385,AEDfNEZMN1EZ:LA(M)LA(M)D:: NR.4,5,8,31::EA1:"ab Nr.:";EAEA216390,(16387):EA(16392)50016348,(EA1)EZ:3FD2:(4,8);(12," "):6(1,26);"Nr. "(EA):D BIS NR.v4,5,8,31::EF0:EE(16392)1:"bis Nr.:";EF EF0EEEF EE(16392)1EEEA 520 W NR.X(1,26);"NR.":(1,29);(16392)Z(16392)216384,123\"b(2,19);(32768(16385))" bytes"(d4k VERZ.MlN1EZ:A$(N);" =";hmN9" ";(N55),::tnN,:: DR.-SELEKT.:" WAS SOLL GEDRUCKT WERDEN?"::620KZ$"":KA$""::" KENNZIFFERN (ALLE=ENTER):";KZ$KZ$""665*N1(KZ$):KZ((KZ$,N,1))16:KZ73KZKZ7@KA$KA$(KZ)::`N1EZ:KA$KA$(64N)::l PRUEF(16392)2:" BITTE ERST DATEN EINGEBEN!":704T0:120:T1: RESTART EZ(16389):EZ20300,14848:EZ(16389):16390,163942*C$(EZ),A$(EZ),TB(EZ1),LA(EZ):AA(16387)J/N0:80:A$(0)C$(0)4N1EZ:80:A$(N)C$(N):16390,(16390)8(A$(N)): MENU0,31,0,39::(2,2);"Datenbank Nr."((0))(4,2);C$(0):(5,2);((C$(0)),"=")M$(1)"Daten eingeben":M$(2)"Datei abspeichern"aM$(3)"Datei wechseln (l|schen)":M$(4)"Verzeichnis eintragen"M$(5)"Daten korrigieren":M$(6)"Daten suchen"M$(7)"Datenliste einsehen":M$(8)"Daten ausdrucken"M$(9)"Daten bearbeiten":M$(0)"Programm beenden"/527,4084:539,4084:N1EZ:TB(N)0:aQ19:Q$(Q)" = "M$(Q):(5(Q2),1);Q$:(23,27);"0 = Ende":(25,2);"RESTART MIT 'RUN'"KA0:KE9:140:T10T0:200T1000,2000,3000,4000,5000,6000,7000,8000,9000 ENDE$::" ";M$(0):" ";((M$(0)),"=")J:"Bitte vergessen Sie nicht,":x"Ihre aktuelle Datenbank abzuspeichern!"KY$"ABSPEICHERN?":160:T1900: EINGABE170:5,31,10,31600:610Q1EZ:A$"":"";A$Q1A$""QEZ:900A$""A$"-"9(A$)(AAQ)AAQ,(A$)C$52:a.:16392,(16392)1:1010l SAVE~700:T1900N(16385):110::"%SAVE 4000 ";H$L(14241):L1,0: LOAD :" 1-5 = Datenbank wechseln (Nr.)" :" 6 = Neue Datei er|ffnen"A " (Daten werden gel|scht!":^ KA1:KE6:140:T60,T T3060,3070,3080,3090,3100,3140 900 12,0:4,3: 4,0:12,3: 4,0:12,67: 4,0:12,131: 4,0:12,195:& D 16384,0:HL16384:DE16385:BC16282:92:GN :" Recorder starten und...":120:195VX ::190:b VERZ.170:5,31,0,15:AE(16385):16385,(16387)(8EZ)EZQ1EZ:A$(Q)(A$(Q))7A$(Q)(A$(Q),8)(A$(Q))(AAQ)AAQ,(A$(Q))$A$A$(Q):52:16385,(16385)8(A$(Q)): <16385,AE:120:900H KORR.Z700:T1900y500:507:170:5,31,11,39509N1EZ:LA(N)(16390):80:C$(N):N1EZ4N,31,10,39:A$"":"";A$A$""5110D(A$)(C$(N))D0300:94:5100$D0400:92QAE(16385):(16385),LA(N):52:16385,AEWwKY$"WEITER?":150:T2900 5,31,11,31::EAEA1:EA(16392)900505:5020o SUCHENp700:T1900zEA1:501:170(3,2);"BITTE SUCHBEGRIFFE EINTRAGEN!":5,31,11,39:K$"":QEZ11:A$"":A$PA$""A$(Q)A$lK$K$A$::K$K$(255)K$(255)900N1(K$):16047N,((K$,N,1)):(3,0);(32," ")::" ANZAHL = 1"::" ANZEIGE = 2": " DRUCK = 3":KA1:KE3:140:UT;2,(16392):U6120,6210,6210nME0:SN0:KY$"ADDITION VON ME?":160:VT:195|V261603,28,0,39:::"Addition der Mengeneinheiten von:":620:661190:4,0:3EF0:((4))((2)1)6180::" Anzahl:";SN;" ME:";ME:120:9001$SNSN1:V26200V.Y3:N1EZ:70:MEME(C$(N)):v816390,(5):2,(2)1:6160BKY$"TABELLENFORM ?":150:T1:6310L4,0:3EF0:(4)((2)1)6240V(28,15);"Keine Daten vorhanden!":120:7,0:900$`2,(2)1:SN(16392)(2):U36280;j(1,26);"Nr.:";SNSt:N1EZ:74:"":t~KY$"WEITER?":150:T16220KY$"KORRIGIEREN?":150:T16277137:EASN:501:5,31,11,39:5030KY$"DS L|SCHEN?":160:T1900EASN:505:EF0:9340#2(13):#2"Nr.:";SNLN1EZ:80:#2A$(N);(8(A$(N)),".");": ";a#2C$(N)::6220:4EZ,0:660:100:U3:6340KY$"80 ZEICHEN/ZEILE?":150:T16500:ԙU26380:" Daten werden ausgedruckt!" #2".":#2"Nr. ";:N1EZ. ((N64),KA$)#2TB(N));A$(N);M :#2(13);(TB,"-"):6410f :"Nr. ";:N1EZ ((N64),KA$)TB(N));A$(N); :(13);(40,"-") 4,0:3EF0:(4)((2)1)6420:6230 2,(2)1:SN(16392)(2):U36480!SN;:Y1!(N1EZ:70::""-!2(14241)246410M!<KY$"WEITER?":150:T2900Y!F:6380h!P#2SN;:Y2!ZN1EZ:70::#2" ":6410!d0,7::15191,0:15192,16:A$(0)" Nr.":KA$"@"KA$!nTZ0:N0EZ:((N64),KA$)6530!x:15191,0:6560"TYTZ:TZ(TB(N)80):X(A$(N))O"15191,TB(N)(TZ80):TZTY15192,(15192)8z"M1X:15231,((A$(N),M,1)):3B75:"6520"15192,(15192)8:15231,45:N180:3B75:"527,588:539,588"4,0:3EF0:(4)((2)1)6590:6230#2,(2)1:SN(16392)(2)9#TZ0:15191,0:SN$(SN):X(SN$)b#N1X:15231,((SN$,N,1)):3B75:#A$(0)SN$:N1EZ:((N64),KA$)6640#22B:6650#TYTZ:TZ(TB(N)80):15191,TB(N)(TZ80)#TZTY15192,(15192)8#200#!$15192,(15192)8:(15192)2206580G$KY$"WEITER?":150:T27,0:900Q$6500]$W LISTEo$X700:T1900$b500:KY$"TABELLENFORM ?":150:T17070$l507:195:170:N1EZ:TB(N)0:$v5,31,11,39:509$N1EZ:74:(28(14240)," "):%KY$"WEITER?":150:T2900?%EAEA1:EA(16392)900:7030Z%5,31,0,39:660::100%KY$"80 ZEICHEN/ZEILE ?":150:T17180%: :"Nr. ";%N1EZ:((N64),KA$)TB(N));A$(N);%:(13);(40,"-")%EA;:Y1%N1EZ:70:(&"":EAEA1:EA(16392)EA1:120:900>&(14241)247120^&KY$"WEITER?":150:T2900h&7090& 0,7::15191,0:15192,16&A$(0)" Nr.":KA$"@"KA$& TZ0:N0EZ:((N64),KA$)7220&*:15191,0:7250'4TYTZ:TZ(TB(N)80):X(A$(N))4'915191,TB(N)(TZ80):TZTY15192,(15192)8_'>M1X:15231,((A$(N),M,1)):3B75:i'H7210'R15192,(15192)8:15231,45:N180:3B75:'\527,588:539,588'fTZ0:15191,0:EA$(EA):X(EA$)'pN1X:15231,((EA$,N,1)):3B75:+(zA$(0)(EA):N1EZ:((N64),KA$)7310;(22B:7320i(TYTZ:TZ(TB(N)80):15191,TB(N)(TZ80)(TZTY15192,(15192)8(200((EAEA1:EA(16392)EA1:120:7,0:900(15192,(15192)8:(15192)2207270)KY$"WEITER?":150:T27,0:900)7180()? DRUCK:)@700:T1900r)J500:DNEA:520:KY$"TABELLENFORM ?":150:T18080)T5,31,0,39::" DATEN WERDEN AUSGEDRUCKT!")^#2".":#2" Datei: ";A$(0))hMEA EE)r#2" ":#2"Nr.:";M:Y3*|N1EZ:80:#2A$(N);": ";C$(N):N,M,*#2(10,(13)):900E*5,31,0,39:660:100k*ZA48::" ZEILEN PRO SEITE:";ZA*:" DATEN WERDEN AUSGEDRUCKT!"*#2".":#2" Listenausdruck der Datei: ";C$(0)*#2" ":NR0:SZ1:Z0*195:SZ1#230);"- ";SZ;" -"+#2" ":#2" ":#2"Nr. ";L+N1EZ:((N64),KA$)#2TB(N));A$(N);f+:#2" ":#2(TB,"-")u+#2EA;:Y2+N1EZ:70:+#2(13);:EAEA1:ZZ1+ ZZA SZSZ1:Z0:#2(5,(13)):120:8130+ EAEE8230+ 8170,& #2(10,(13)):1950,0 KY$"DRUCK WIEDERHOLEN?":150:T2900E,: EADN:501:8100R,'# BEARB.z,(#::" 1 = Datens{tze erg{nzen":,2#" 2 = Datens{tze l|schen":,<#" 3 = Codieren":,F#" 4 = Decodieren":,P#" 5 = Arithmetik": -Z#" 6 = Dateiname {ndern":--d#" 7 = Tabulation {ndern"@-n#KA1:KE7:140j-x#T9240,9320,9110,9170,9410,9590,9690s-#900y-#-#ZC9:CO$"":9500:190-#N1C(0):X(CZ)-#X128CZ,X128:9150-#CZ,XC(N)-#CZCZ1:CZ(16385)NC(0):900.#:9120!.#ZC11:CO$"":9500:1907.#N1C(0):X(CZ)R.#X128CZ,X128:9210a.#CZ,XC(N).#CZCZ1:CZ(16385)NC(0):900.$:9180.$.$3,7,0,39:."$(1,20);"=> DS einf}gen":500:520.,$EF0EEEA/6$EEEE1:NREEEA:HL(16385)1:DEEZNRHLA/@$MC(16390):BCHLMC1:94:16392,(16392)NRj/J$MC,173:HLMC:DEMC1:BCEZNR1:92/T$16385,(16385)(EZNR):900/^$/h$3,7,0,39:/r$(1,20);"=> DS l|schen":500:520/|$EF0EEEA0$EEEE1:NREEEA:EE(16392)EEEA10$EA1501:Ԍ505-0$DE(16390):EAEE^0$505:HL(16390):BC(16385)DE:DCHLDE:920$16385,(16385)DC:16392,(16392)NR:9000$0$3,31,0,39::500:520:7,31,0,390$" Summe/arithm. Mittel/% von:"0$:620:661$1$:PR1:" 100%=";PR:Y3:SU0:AM(EEEA1)(KA$) W1$190:MEA EE:N1EZ:70:SUSU(C$(N)):N,M1$AM(SUAM10.5)10:PR(SU100PR10.5)101$:" Summe=";SU;" =>";PR;"%"::" arithm. Mittel=";AM1%120:9001%1%(ZC,19);"CODE:":ZC,25 2&%A$:A$""9510"20%"*";:A$(13)954072:%CO$CO$A$:9510G2D%CO$""900d2N%CO$(CO$,6):C(0)(CO$)2X%N1C(0):C(N)((CO$,N,1))50::CZAA2b%2l%2v%::A$"":" Name:";A$:A$""9002%D(C$(0))(A$):D0K1:K22%D09670 3%BC(16385)163943%K9640,9650>3%DE16394:HL16394D:92:9660`3%DE(16385)D:HL(16385):943%16385,(16385)D:16387,(16387)D3%S(16385):16385,16394:52:16385,S:3%3%::N1EZ3%20,2:TX(AAN):(N);".";" Element =";TX;" ",4%"neu:";TX:(20,33);" "24%TX1TX799700F4&AAN,TX::900K T:TZEAC8Q Q8AKEKT8TK CW999999999999999999999AW999999999999999999999BT[ALWM/  )Jl M/  )Jl ؉׊:2FSΆԏֆԏԏԆԏԞ:1F*l؀+"؀m"VWefԏԆԏ أԏԆԏԞ:1F]:`TRABCDEFG RABCDEFGHIJKLMNOPQQABCDEFGHIJKLMNOPPABCDEFGHIJKLMNOOABCDEFGHIJKLMNNABCDEFGHIJKLMMABCDEFGHIJKLLABCDEFGHIJKKABCDEFGHIJJABCDEFGHIIABCDEFGHHABCDEFGGABCDEFFABCDEEABCDDABCCABBAA 2111111 N0 9 = Daten bearbeiten 9 = 9 8 = Daten ausdrucken 8 = 8 7 = Datenliste einsehen 7 N0 9 = Daten bearbeiten 9ekԆԏԩ aaݨ ] _bmBcT = 7 6 = Daten suchen 6 = 6 5 = Daten korrigieren 5 = 5 4 = Verzeichnis eintragen 4 = 4 3 = Datei wechseln (l|schen) 3 = 3 2 = Datei abspeichern 2 = 2 1 = Daten eingeben 1 = 1 1................................ Nn 5 = 5 4 = Verzeichnis eintragen 4 = 4 3 = Datei wechseln (l|schen) 3 = 3 2 = Datei abspeichern 2 = 2 1 = N0 9 = Daten bearbeiten1 6 ,*=:@ %X!P<''O "`;*W;=}ƀlg;go o>3_|̳g*`;N@ yO#"`;:P;G(y/O8oyggyo:X;<2X;2X;:W;( 9}( 9}( 9}( 9}( 9}( 9}( 9}( 9}( 9}( 9}""Puu4!bQ"EJK@""!""$%"r p3"DUUR5Q$GQ!RUqFQRFUR""U%RU1R "0BB@Q"BRUuUUeVDDCUUVDtGDtDDUSUuU"""RUeUDDGwUUUUUUUWUdDUUSUeUT!R"""UUWUURUWuU%UUR"$G%WU%URUWPUSFUVDCUSVC"r"SFUU""EVU""!wUUUURVDSTDB"r!USURWuRUSGP5SP%RPSVUdwwwwWW1GWGGWqtuptqpEqqqpqtpuupF@&  wwwwfff1*@>:@G(#># ?[( S"@~#M?O(MU?(꯰( ~#H? ?˿+~j?#>8?# 8?>>2( >#?" ??@!@*@?>? "@