A863,1758:""Puu4!bQ"EJK@""!""$%"r p3"DUUR5Q$GQ!RUqFQRFUR""U%RU1R "0BB@Q"BRUuUUeVDDCUUVDtGDtDDUSUuU""'RUeUDDGwUUUUUUUWUdDUUSUeUT!R"""UUWUURUWuU%UUR"$G"""P USFUVDCUSVC"r"SFUU""EVU""!wUUUURVDSTDB"r!USURWuRUSGP5SP%RPUSVUd[ ;:8?({'28$Ϳ8_ O:GH :@ I>!= ! ~@ #W:8G ozggzo !84FgSW:u= ɯ_$:Gw#:g͞͵(͵ɯ_ :G:OЀؒ_zOhͿ:˻˫A14276,152:14277,5 ---PROGRAMM >MINIDAT<0 GUENTER HEMPEL LEIPZIGT NOVEMBER 1989 - VERSION 2.8_(500 q2(17):10000Z---UP >SCHNELL<dW(509):W13W74100::nW(509):W13W78110::xW(509):WWAWWB120::WW48:180W(509):W64W94130::CW(509):W10W64W94140::yW(509):W8W9W10W11W65150::180W(509):W72W81160:::W(509):W10W11W65170:1;(30,24);15):0,0:: W(509):W11W13190 W11#2:W13190:ԍ9 23,2;(30,37);""::W B(Z(I))0WB(Z(I)):W8 (B$(0,Z(I)))WZZ1(B$(0,Z(I))):ZZ1W I1B(13)B1S(I2)Z:S(I1)Z OJ:B1I8 Z1(B$(0,Z(I)1))79Z1B(Z(I)1)79QI1:S(I1)T:IJ:OQ1 M X((B$(1,I),1))1:Y((B$(1,I),1))1:X$(B$(1,I),2,1)^ "B(I)1360 ,A(M,D(1,X))1.70141E38A(M,D(1,Y))1.70141E38 6A(M,D(1,Y))0330 @X$"/"A(M,D(1,I))(A(M,D(1,X))A(M,D(1,Y))100.5)100:, JX$"*"A(M,D(1,I))(A(M,D(1,X))A(M,D(1,Y))100.5)100:^ TX$"+"A(M,D(1,I))A(M,D(1,X))A(M,D(1,Y)): ^A(M,D(1,I))A(M,D(1,X))A(M,D(1,Y)): hA(M,D(1,Y))0A(M,D(1,I))0: rA(M,D(1,I))(A(M,D(1,X))A(M,D(1,Y))10000.5)100: |JKS1:C0:I0J:W(B$(0,I)):WCCW := B(I)1XD(1,I)::YD(0,I):w WA(Q,S1):A(Q,S1)A(J,S1):A(J,S1)W:QQ1:JJ1: V0:T0:Z0:D0:R0:O((P)(2)1):WO1:L2O2: I0SK1:B(I)1D(1,I)A:AA1:D(0,I)B:BB1 :A0:B0: ---SUCHE 400:420:EY$ W01200; WW1:LP1LP1g B$A$(A(LV,S1),E)T1:Z1:Q11:4200 T1T0:VV1:LVP1030 Z1DD1:DL1200 $B$A$(A(LD,S1),E)R1:Z1:VD:4200 .R1R0:1040 8Z1Z0:1200%BB$A$(A(L,S1),E)LL2W:1010:LL2W:1010?LG(B$):400:420:EXMVW01200d`WW1:LP1LP1jGA(A(LV,S1),E)T1:Z1:Q12:4200tT1T0:VV1:LVP1130~Z1DD1:DL1200GA(A(LD,S1),E)R1:Z1:VD:4200R1R0:1140Z1Z0:1200HGA(A(L,S1),E)LL2W:1110:LL2W:1110YQ14Q10:23;(5,9);" >> NICHT VORHANDEN <<":Q10:30:---SORTIEREN6000:Z7:6080:380:6490I9(72I,C);I1"- "U$:Ԟ(72I,C1);": - "U$ 6160:6150:WA49:WBJ50:120:6060:WI1IB(13):IW1k(4,3);"SORTIERUNG ERFOLGT NACH DEM FELD :"B(13)I:12,3;(5,20(B$(0,I))2);B$(0,I):Z7:6180 (10,11);"POSITIONSANZAHL:":4;(11,17);P1:Z14 400:6180:(22,9);"SORTIERT BIS NR.: 1"8 V0:T(0,0)1:T(0,1)P1:TG0:B(I)12250T*UT(V,0):TT(V,1):VV14QU:JT:LA(((TU)2),S1):TGTG1.1:(22,26);(TG)>A$(A(Q,S1),Y)A$(L,Y)QTQQ1:2110HA$(A(J,S1),Y)A$(L,Y)JUJJ1:2120RQJ410:QJ2110,\TQJU2170:ԊUJVV1:V182080GfUJT(V,0)U:T(V,1)JUpUQ:2190ozQTVV1:V182080QTT(V,0)Q:T(V,1)T:TJ:TJTU2100:ԊV02090QP1:WP101:A$(A(W,S1),Y)"zzzz"PP1QP12240:ԁWPQ:L0K:A$(A(W,S1),L)"":9L0S:A(A(W,S1),L)0:L,WY3:A4065D:5000:11000uUT(V,0):TT(V,1):VV1QU:JT:LA(((TU)2),S1):TGTG1.1:(22,26);(TG)A(A(Q,S1),X)A(L,X)QTQQ1:2270A(A(J,S1),X)A(L,X)JUJJ1:2280QJ410:QJ2270ITQJU2330:ԊUJVV1:V182080d UJT(V,0)U:T(V,1)Jr UQ:2350 QTVV1:V182080$ QTT(V,0)Q:T(V,1)T:TJ:TJ. TU2260:ԊV022508 QP1:WP101:A(A(W,S1),X)1.70141E38PP1 B :2220 ---EINGABEL PN11000:Z4:6080:T3:6500:Z25:6180 6200:(30,8);"*Akt.Satz:":(30,23);"*Max.Satzz.:"N 6160:Z0:MPN:DA(M,S1):7,2;(30,18);D:6030 A0:B0:H0:I0J:C1B(I)38B(I)13050, 1;(3H2I,C1);(B(I),"["):7;(3H2I,CB(I)1);"<"h B(I)0280:7,1;(H32I,C);A(D,D(1,I)):AA1:3140 13,1:B(I)0(H32I,C);A(D,A):W$(A(D,A)):3080 W0:6450:W$A$(D,B) 0,5:H2I,0:"";W$:7,1:W$""3080  L02:(LH32I,C);40C):1 I0W$"^"PM:2000:ԊW$"@"3030V& B(I)0A(D,A)(W$):AA1:3130}0 (W$)B(I)3080:A$(D,B)W$:BB1: B(I)0(H32I,C);A(D,A1):W1:6450D B(I)39CHH1N :6190:1:23;(26,1);"":140:(26,1);" "X (27,14);10):W643030&b W94PM1:2000<l 6030::PM:2000U---AENDERN/LOESCHENtP011000:Z5:Z11:6080(8,6);"1 - FELDNAMEN AENDERN":(11,6);"2 - FELDINHALT "U$Z12:6070:(18,6);"3 - "U$:6160:6150:WA49:WB51120:6000:W4040,4110,2000H11)1;"FELDNAMEN AENDERN":Z1:6180:JKS1:I0J(42I,0);I1". BEZEICHNUNG: "B$(0,I)::Z24:61806200:6160:4,22,17,39I0J:13;(42I,18);B$(0,I):2I,0W$"":"";W$:(42I,17);22):W$""B$(0,I)W$*(42I,18);B$(0,I)::23;(26,1);""X130:(26,1);" ":W644060:Ԍ6000:4000Z5:Z11:6080:(2,5);"DATEI IST SORTIERT NACH FELD :"12,3;(3,20(B$(0,B(13)))2);B$(0,B(13)):Z4:6180"Z6:6180:T8:6500:6160,0;(30,10);"(LSCHEN DURCH EINGABE"@60;(31,10);"VON '---' IM SUCHFELD)"v@B$"":(5,0);"GESUCHT:":(5,9);30):5,8:"";B$JIB(13):B$""6000:2040:Ԟ12,3;(5,9);B$TB(B(13))04360^F0:B(B(13))01100:4160:Ԍ1000:4160hF1:A0:B0:H0:MA(LV,S1):I0JBrB(I)1(H82I,C);A(M,A):AA1:4230d|(H82I,C1);A$(M,B):BB1yB(I)38CHH1:A0:B0:H0:I0JB(I)0280:6410:4330B(I)0A$(A(M,A)):4300A$A$(M,B):H82I,C:"";A$:(H82I,C);38C)>A$(M,B)A$:A$"---"A$(M,B)"zzzz":Ԋ(A$)B(I)4270a(H82I,C1);A$:BB1:4330H82I,C:"";A$:(H82I,C);38C)A$"---"A(M,A)1.70141E38:A(M,A)(A$)(H82I,C);(A$):AA1B(I)39CHH1:210:7,1:(30,37);" ":7,27,C,39:65DF0,31,0,39:Q111040:ԊQ121140:ԍw23;(5,9);">FORMELFELD - KEINE KORREKTUR<"30:6000:2000~---ANZEIGE/AUSDRUCKF1:Z8:Z11:6080:Z8:6070(8,12);"1 - "U$:Z9:6070:(11,12);"2 - "U$:Z7$6070:(14,12);"3 - "U$:Z12:6070\(21,12);"4 - "U$:6160:6150:A40:I09:Z(I)I:WA49:WB52:120:JKS1:6000:W5050,5270,2000,11000P05000:Z8:6080:6160:6040:A0:C0:D0:IB(13) #3(12,6);"Anzeigen ab":#312,1;(12,12);B$(0,I)":". #3(14,6);"-> ??"32):Q0:T0J B$"":Q14:12,7:"";B$_ B$""L1:5120x B(I)11100:Ԍ1000 Q10L1 6040:Z0:IB(13):220:TZ:S(0)T:#3B$(0,I);:400 ICJ:IB(13)#3S(I))B$(0,I);:220!:Z3:6180:IB(13)!!6050:L1L1:ԊLP15230.!(DLP1`!2B(I)1#3A(A(D,S1),X);:Ԟ#3A$(A(D,S1),Y);u!<GCO:GI5210!FB(G)1#3S(G))A(A(D,S1),D(1,G));!PB(G)0#3S(G))A$(A(D,S1),D(0,G));!Z:#3:AA1:A255230!dDP1"nA0:Q06370:170:Ԍ6360:150="xW656000:5000:ԊW10LD1:5150P"W9CQ:5120w"W8C0:5120:ԊW11LL25:5150"B1:Z9:6080:380:6490:6160:Z25:6180"(27,0);"DRUCKFORMAT (H-OCH/Q-UER):":(27,26);13)#23;(27,27);"?":160:(27,0);39)0#W72D$"A4-HOCHFORMAT":Q260:Q380Z#W81D$"A4-QUERFORMAT":Q235:Q3120#IB(13):(27,0);"REIHENFOLGE: "I1:Z0:220:TZ:Z(0)I#ZT:W$"":(27,15);22):27,14:"";W$:M(W$)#W$""M85330$I1M:Z(I)((W$,I,1))1:Z(I)0Z(I)J5330&$220::ZQ35280f$6060:(11,2);"WELCHE BERSCHRIFT FR DEN AUSDRUCK ?":0,7|$11,2:"";C$:7,1$23,7:"HEUTIGES DATUM : ";E$:(E$)8(E$)05390$6060:(8,2);"Feld ist sortiert nach :""%"12,0;(10,2);B$(0,B(13)):B$"":(14,2);"Ausdrucken ab :"N%,0,7:13,1:"";B$:7,1:B$""G1:5450x%6Q14:IB(13):B(B(13))11100:Ԍ1000%@Q10G1:GL%JB$"":(19,2);"Ausdrucken bis :":0,7:18,1:"";B$%T7,1:B$""LP1:5500&^Q14:B(B(13))11100:Ԍ1000&hQ10LP1>&rLG(14,24);15):(16,24);15):5410y&|6010:(5,1);"DRUCKERROUTINE MUSS VORBEREITET WERDEN"&(8,1);"IST DIESE SCHON INITIALISIERT ? (J/)":100&W745540:Ԟ(14,1);"WELCHE ADRESSE HAT DIE ROUTINE :""'11,34:"";ST:(25,10);"RECORDER STARTEN !":N'6010:0;(5,10);"DRUCKER EINSCHALTEN"{'(14,1);"(ES WIRD AUF "D$" GEDRUCKT !)"'(25,1);"WENN ALLES FERTIG, DANN DRUCK MIT DER"'(26,10);"( )-TASTE BEGINNEN !":23;(26,11);""::ST$(5680:WQ32(C$)23:#2W)C$:#2W)((C$),"=")5(5690:DGLq(I0M:B(Z(I))1#2S(I))A(A(D,S1),D(1,Z(I)));:5620(#2S(I))A$(A(D,S1),D(0,Z(I)));(:#2:AA1:AQ25660(DL(6010:(10,1);"NOCH EINEN AUSDRUCK GEWNSCHT ? (J/)":100()W13B0:6010:5000:Ԍ6430:190:5580b)(10,5);"SEITE VOLL - DRUCK UNTERBROCHEN":6430:190)&DL5680:5690:5630:5640)06010:2;(10,13);"DRUCK LAEUFT !":):#2E$Q315)"MINIDAT":#2:A0:Z0:S(0)0:I0M:220*D#2S(I))B$(0,Z(I));::#2:#2(S(I),"-"):+*f---UP >LANGSAM<G*p0,31,0,39:7,1:65D:^*z3,31,0,39:65D:x*4,29,1,38:7:65D:*3,24,C,39:7,1:65D:*2,28,0,39:0,7:65D:*4,28,0,39:65D:*3,27,0,39:65D:*12020:W1Z:U$::+6070:Z11S$:U$U$"/"S$E+0;(0,20(U$)2);U$:Z10:Z1:6180:+(13,5);"WIRKLICH DATEI BEARBEITEN (J/) ?":6150:100+6010:W1311000:W0:(12,9);"KENNZAHL :":14242,3+9,19:"";W:14242,0:(12,6);"RECORDER POSITIONIEREN UND"4,(14,8);"DANN MIT > < STARTEN !":23;(14,18);"":@,6020:h,23,2;(30,24);"BITTE WAEHLEN :":,Z29:6180:14249,186:12010:D501:Z$,32,0,32,0,31,1:(30,D);Z$::14249,254:,$14249,186:(Z,0);(40,"b"):14249,254:-.12;(27,14);" - Weiter"B-812;(26,6);"^ - Ende"18)"@ - Aendern":|-BW$(B(I)):7,1:(42I,30);"Lnge:":(42I,36);W$-L0,7:12I,19:"";W$:B(I)(W$)-VB(I)1B(I)401;(42I,36);4):6220-`7,1;(42I,36);B(I):LLB(I):0.jW$"":7,1:(32I,30);"Formel:":(42I,32);B$(1,I)N.t12I,14:"";W$:W$""v.~(W$)0((W$,1))0(W$)36340.M$(W$,2,1):C$(I)"F%"M$"/"6340.M$"+"M$"-"M$"*"M$"/"6340.(W$)I(B((W$)1)0B((W$)1)8)6340/((W$,1))I6340C/B(((W$,1))1)0B(((W$,1))1)86340s/B$(1,I)W$:C$(I)"F%"B(I)1::B(I)8:/(52I,31);9):6260/(504)2((504)2)504,(504)1::ԍ/28,4;(30,34);"":28,4;(30,38);""023,3;(30,35);"":0,6;(30,36);"A",023,3;(30,37);"":C01;(27,0);39):e0180:23;(30,33);"MOMENT":0 (H82I,C);38C):(H82I,C);A(M,D(1,I)):AA1:0I0N:A(I,S1)I::0(18,8);"PAPIERVORSCHUB = ( )":(20,8);"WEITERDRUCK = ( )"(1(23;(18,26);"":23;(20,26);"":S12LBW:(H32I,C1);(A$(D,L),39C);1<(A$(M,L))38C(H42I,C1);(A$(M,L),40C,39C);1F(A$(M,L))2(38C)(H52I,C1);(A$(M,L),2(40C)1);1P2ZC17C2:I0J:(42I,C);I1"- "B$(0,I)::Z12:6070:K2d380:CC22:H0:I0J:#30,7;(HT2I,0);B$(0,I)t2n#3(HT2I,C);":":B(I)38CHH12x:CC1:2N---DATEI LADEN/SATZ DEFINIEREN2XN011000:Z2:Z11:6080:Z2:60703b(9,12);"1 = "U$:Z3:6070:(12,12);"2 = "U$:Z12;3l6070:(19,12);"3 = "U$:6160:6150:WB51:120X3v6000:W7040,7110,110003Z2:6080:6100:2;(30,10);"DATEI WIRD GELADEN !"3CL(1):M(A)(A$):M0M326763"UR";CL:CLCL(0):512,CL:CLM6010:74303CL(1)W7460-4CL:B(13):"PARA";B:I013:5142I,B(I)::_49000:"WERTE";A:"FOR/NAM";B$:"TEXTE";A$o4430:110004Z3:6080:I08:(32I,0);I1". BEZEICHNUNG:"4(42I,3);"TYP(T/Z/F/F%):":4Z25:6180:6200:6160:E0:C17:6030.5F0:K0:L0:S0:V$"":I08:Z0:0,7:2I,0:"";B$(0,I)b57,1:(32I,17);23):(32I,18);B$(0,I):Z15I0B$(0,I)"^"7260:ԊB$(0,I)"@"714050,7:12I,0:"";C$(I):7,1:(42I,17);23)5 (42I,18);C$(I):C$(I)"@"7140 6C$(I)"T"6210:KK1:724026 C$(I)"Z"SS1:FF1:B(I)0:7240W6*(C$(I)"F"C$(I)"F%")F2717064C$(I)"F"C$(I)"F%"SS1:6250:B(I)07240:71706>:1;(42I,17);23):C$(I)"":71706H:23,1;(26,1);"":1306RW641;(26,1);" ":71407\7,1:6060:S0K011000:Ԍ6400\7fN0I1:V$V$""B$(0,N)::V$V$"":O(V$):0,O:I1O7p0I,((V$,I,1))::536,S1:538,K1:I087z5142I,B(I):R$R$""B$(1,I)::R$R$"":C(R$):256,C7I1C:256I,((R$,I,1)):8M(A)(A$):M0M65536(A$)(A)V8N(((M1652)(L.654(SK1)))1):CLMN(4(SK1))11488532,(N):534,1:540,0:CL32676CL326768512,CL:CL:Z3:6080:N(532)8(12,9);"Maximale Satzzahl :"N:Z25:61809(27,7);"Neu definieren ? (J/)":6150:100)96390:W74500:65D:7110X9(27,7);"Satzzahl begrenzen ? (J/)":10096390:W136400:9000:9080:6420:110009(27,12);"Auf wieviel :"924,25:"";I:INI17410:Ԍ64009532,(I):9000:9080:6420:11000#:(12,3);"SPEICHERPLATZ IST FR DIESE DATEI"T:(14,3);"ZU GERING !!! ERST DURCH MODULE":(16,3);"ERWEITERN. COMPUTER AUSSCHALTEN !":80:11000:$:(12,4);"FR DIESE DATEI KEINEN ZUGRIFF !":50:11000:6---DATEI SICHERN;@Z10:6080:6100:2;(30,9);"DATEI WIRD GESICHERT !"Q;JB(9)N:B(10)P:B(11)S:B(12)K:CL(0)CL:CL(1)We;O6350:"UR";CL;T6350:"PARA";B:6350::"WERTE";A:6350:;^"FOR/NAM";B$:6350::"TEXTE";A$:6350:;h4;(2,1);"NICHT NOCH EINMAL !";r50:65D<|11000<#---INITIALISIERUNGU<(#C(256):CL(512):K(538):N(532):O(0):P(534)<2#S(536):A0:B0:D0:E0:F0:G0:H0:I0:J0<<#L0:M0:Q0:Q10:Q20:Q30:R0:ST0:T0:U0:V0:W0:WA0:WB0:X0:Y0=F#Z0:Z10:A$"":C$"":B$"":D$"":M$"":R$"":S$"":U$"":V$"":W$""O=P#X$"":Z$"":CL(1),B(13),S(9),Z(9),D(1,8),T(18,1)q=Z#S1A(N,S1),C(S):ԅA(N,0)=d#K1A$(N,K):ԅA$(0):A$(0)"LEER"=n#B$(1,9):I08:B(I)(5142I)::B(13)(540)::C$(8=x#I2O:((I))(255)LL1:L89100,>#((I))(255)B$(0,L)B$(0,L)((I))a>#:L0:I2C:((256I))(255)LL1:L89120>#((256I))(255)B$(1,L)B$(1,L)((256I))>#:430:>'---VORPROGRAMM>'6000:I1511215127:J:I,J::12:Z0:6180:Z13?'6180:A$(10,"["):2,11,1,1:A$:(3,2);"["^?$'(4,3);"[":(5,3);"[":(6,3);"[":(7,4);"[":(6,5);"["?.'(5,5);"[":(4,5);"[":(3,6);"[":2,11,7,7:A$:2,11,9,9?8'A$:2,11,11,11:A$:(3,12);"[":(4,13);"[":(5,13);"["$@B'(6,13);;"[":(7,14);"[":(8,14);"[":(9,14);"[":(10,15);"["X@L'2,11,16,16:A$:2,11,18,18:A$:2,11,20,20:A$@V'(2,21);"[[":(11,21);"[[":3,10,23,23:A$:(11,25);"["@`'(10,25);"[":(9,25);"[":(8,26);"[":(7,26);"[":(6,26);"[""Aj'(5,27);"[":(4,27);"[":(3,27);"[":(2,28);"[":(3,29);"["gAt'(4,29);"[":(5,29);"[":(6,30);"[":(7,30);"[":(8,30);"["A~'(9,31);"[":(10,31);"[":(11,31);"[":(8,27);"[[["A'2,11,35,35:A$:2,2,32,38:A$:7:15,30,4,35B'"- EIN DATENBANKSYSTEM IN BASIC -";:::"EIN PROGRAMM VON":ZB'8)"GNTER HEMPEL":6)"AM SCHWALBENNEST 18":5)"L E I ";B'"P Z I G - 7066":7)"TELEFON: 4781358"::"HINWEISE, KRITIKEN";B'" UND VOR-";:"SCHLAEGE BITTE AN VORGENANNTE";:8)"ADRESSE ";C'"SENDEN.":6160:I512540:I,0:CC'6380:534,1:J0300:(509)10:11000WC'J1501:6160mC':7:6160:10180zC*---MENUC*6000:14276,152:14277,5:A0:Z1:6080:12020C+U$,U$:(6,9);"1 = "U$" /":U$:(7,13);U$:U$D +(9,9);"2 = "U$:U$,S$:(11,9);"3 = "U$" / "S$:U$PD+(13,9);"4 = "U$:U$,S$:(15,9);"5 = "U$" / "S$D +U$:(17,9);"6 = "U$:U$:(24,9);"7 = "U$:6160D*+6150:N0WA49:WB49:WA50:WB56D4+120:6000:W7000,3000,4000,2000,5000,8000D>+12;(15,16);"E N D E": E.---DATA