36879,25:(142)a " VIC BASE":""::RM100:R$(RM),D$(RM)nN$(20),B$(20),B(20):"WELKE OPTIE:":"1.NIEUW BESTAND"FR(O):"2.LAAD VAN CASSETTE"MO$:MO$""(MO$"1"MO$"2")140 WM%(MO$):WM%170,1900\N0:B$"":B1$" ":"* BESTANDS DEFINITIE *VOER IN :":"VELD NAAM ','"VELD TYPE (A OF N)":"STOPPEN _,_":""N$(0)"LEEG ":I110:T$"":T1$"":I". _,_";:T$,T1$T$"_"I1420"T1$"A"T1$"N"330,350*J"";:2103T270q^T$T$B1$:T$(T$,4):T$T$","T1$:2480:N$(I)T$:I:430N$(I)"STOP0""BESTANDS DEFINITIE COMPLEET":"DE VELDEN ZIJN:":44505402100"UW KEUZE:H";T$:"":N10::DZ$,T:Z$"##"530;X(Z$,2,1)(T$,3)580xbT760,1120,1120,1120,2100,3350,1310,1220,3200,1120,2620l540v"HELP",5,"TOEVOEGEN",1,"WIJZIGEN",3,"UITVEGEN",10,"SORTEREN",11!{"ZOEKEN",7,"OPTELLEN",8,"LIJSTEN",2,"ETIKETTEN",4,"BEWAREN",9<"AFSLUITEN",6,##,-1NNN1:N1N11lNRM((O)FR250)1060 T$"":"";N;5)"":""*I110:(N$(I),4)"STOP"9804(N$(I),4)"STOP"980>N$(I);": _";:T1$" "RT1$:T1$""T1$" "fT1$"_"10601p(N$(I),6,1)"N"950Nz(T1$)43(T1$)58950}"**ALLEEN NUMERIEKE INFORMATIE**":850(T$)(T1$)2451010T$T$(126)T1$:IN$(N):T$N$T$(126):1040"RECORD LENGTE OVER- SCHREDEN":7807R$(N)T$::NRM"*** FILE VOL ***":540@760$"** EINDE TOEVOEGEN **":NN1:N1N11:N1;" RECORDS":"TOEGEVOEGD":`2180:T101465jT41360tI13 ~I13:"PLAATS LABELS IN DE PRINTER EN DRUK EEN WILLEKEURIGE TOETS"A$:A$""1152^1,4:J15:1,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":Jq1:1:I:1360"WELK VELD MOET GESOM- MEERD WORDEN"SM$(SM$)21230SM%(SM$):SM%1SM%101230(N$(SM%),6,1)"N"12705305"WILT U EEN SOM OVER ALLE RECORDS (J/N)":S1$HS1$"J"1310W S%0:1330"":4450:"WELK VELD MOET VERGE- LEKEN WORDEN":S%("WELKE EXPRESSIE MOET VERGELEKEN WORDEN":S$2T11:T2N:SM0PIT1T2:T1$R$(I):T$(T1$,5):T3(T$):T$T1$:T1$(126):3060$1490ZFDT2T11:IT21N1:R$(IFD)R$(I):I:NNFD:iT41570xS%01520B$(S%)S$1850T71650"(";I;")";:T3(B$(SM%)):SMSMT3:1850T3(B$(SM%))"T11650,1650,158511,4:J15:1,B$(J):J::1:1850Dm"RECORD LENGTE OVER- SCHREDEN"r"";I;5)"":"":J110:(N$(J),4)"STOP"1760N$(J);": ";B$(J):T31740T1$:T1$"-"1740B$(J)T1$JT31850N$B$(0):N$:T$N$(126):J110:(T$)(B$(J))2451645FT$T$B$(J)(126):N$(J)"STOP0"1840M&JZ0R$(I)T$l:I:T81880N"SOM VAN ";N$(SM%);" = ";SMXl1:J1:"WELKE FILENAAM";F$:1,1,0,F$JJ1:1,T$:T$:R$(J)T$:(ST)(64)20001940'T$R$(0):T1$(126):3060:I010:N$(I)B$(I)D (N$(I),4)"STOP"2070K IdN(B$(I1)):1:540k1t 5404"GOEDE COMMANDO'S ZIJN":HZ$,T:Z$"##"2160\Z$:2120p"";:N0"*** FILE IS LEEG ***":540@"WELKE OPTIE:":"E VOOR EEN":"B VOOR BEREIK":"A VOOR ALLE"W"T VOOR TERUG"T$:T$""(T$"A"T$"B"T$"E"T$"T")2210T$"T"530T$"A"2260T11:T2N:2430T$"E"2310"WELKE";T1:T1N2440 T2T1:2430  T$"B"2340  2200B $ "WELKE ONDERGRENS":T1:T11T11] L "WELKE BOVENGRENS";T2l V T2N2440} ` T2T12430 j "FOUT:BOVENGRENS" ";NF$l)H2,8,2:2:ST020)R2,8,2,"0:"NF$",SEQ,READ")\2,MO:MOAV2210)fI1AV:2,HU$:HU$NV$(I,1)2210)p2,HU$:HU$NV$(I,2)2210*zI:2,HU:ARHU1002200-*IAR1ARHU:J1AV:2,RE$(I,J)G*J:I:ARARHU:2:20*ME$;Q4$;" TE MERGEN BESTAND IS TE GROOT":2:2700:20*ME$;" ESTANDS DEFENITIE ":S7$;"ONGELIJK"*2:2700:20*AR1AV120*PR$:" WAT WILT U PRINTEN"+S6$;"1. ALLES"(+S6$ "2. BEREIK"=+S6$"3. ZOEKEN"U+1,4,7:1:ST020o+2700:MO1M032290+"DATUM ";DT$:1,4,7:1:ST020+ 1,4,7:1,"GEPRINT OP : ";DT$+ 1,"OM : "(TI$,2)" UUR "(TI$,3,2)" MINUTEN", 1,"":1,"":1,"":1,"":1+,$ MO2350,2370,24208,. B1:EARP,8 IBE:2510:I:20r,B PR$;Q3$;S7$;"EREIK PRINTEN",L "ET EERSTE NUMMER ";B$:B(B$),V "ET LAATSTE NUMMER ";E$:E(E$),` B1BARE1EAR2370,j IBE:2510:I:20-t " OEKEN EN PRINTEN "I-~ Q5$" AAR MOET NAAR GEZOCHT WORDEN"Z-S4$;T9$;T5${- MO0:" ";HU$:L(HU$)- I1AR:J1AV- MO12490- HU$(RE$(I,J),L)MO1- J:MO12510- MO0:I:20- PRINTEN. 1,4,7:1:ST020$. 1,4,7:1," RECORD : ";IG. 1," =============":1," "t. J1AV:1," "NV$(J,1)" : ";RE$(I,J). J:1,"":1:. EINDE. " EINDE ". " EEFT U HET BESTAND AL BEWAART".( S8$"1. JA"/2 S8$"2. NEE":2700:MO$"1"20>/< 64802:"GOSUB30000M/F AFRONDEN~/P G$(((G100))100):(G$,1)"."G$G$"00"/Z GH$(G$,3):(GH$,1,1)"."/d (GH$,2,1)"."G$G$"0":/n G(G)G$G$".00"/x 0 I1AV:NV$(I,1),NV$(I,2)::0 MO$:MO$""2700'0 MO(MO$):Y0 DA$"":(14):36879,25|0 TS$" Š"0 IN$"INFOBOEK ZEELAND"0 FO$""DA$TS$IN$DA$0 ER$" INVOER "1 EN$" TONEN "'1 ZO$" ZOEKEN "K1 SO$" SORTEREN "o1 VE$" VERANDEREN "1 BE$" BEWAREN "1 PR$" PRINTEN "1 ME$" MERGEN VAN BESTANDEN "1 WI$" WISSEN "#2" RI$" REKENEN "F26 FI$"DEFINITIE IS ALS VOLGT"2@ T2$"":T3$"":T4$"":T5$"":T6$"":T7$""2J T9$""2T S3$" ":S4$" ":S5$" ":S6$" ":S7$" "3^ S8$" ":S9$" "U3h Q3$"":Q4$"":Q5$"":Q6$"":Q7$"":Q8$""3r AN$Q4$S4$"ELKE FILENAAM"S8$T5$T9$3| AP$Q3$S8$"1. TAPE"S6$S9$S5$S9$S8$"2. DISK":3 2,8,2:2:ST0204 2,8,2,"0:"NF$",SEQ,READ":2,AV:NV$(AV,2)?4 I1AV:2,NV$(I,1):2,NV$(I,2):I:2,AR:RE$(100,AV)l4 I1AR:J1AV:2,RE$(I,J):J:I:2:204 2,8,2:2:ST0204 2,8,2,"0:"NF$",SEQ,WRITE":2,AV4 I1AV:2,NV$(I,1):2,NV$(I,2):I:2,AR5 I1AR:J1AV:2,RE$(I,J):J:I:2:20E5 "ATABASE VOOR IC-20";e5 " DOOR ";5 " NFO OEK EELAND ";5 "":5 2700:5 AV1AR1205 PR$:" WAT WILT U PRINTEN"5 S6$;"1. ALLES"6& S6$"2. ZOEKEN"+60 1,4,7:1:ST020C6: 2700:MO1MO220Z6D MO3150,3170,3130m6N 3320:B1:EAR6X IBE:3260:I:206b 3320:" OEKEN EN PRINTEN "6l Q5$" AAR MOET NAAR GEZOCHT WORDEN"6v S4$;T9$;T5$7 MO0:" ";HU$:L(HU$)%7 I1AR:J1AV47 MO13240P7 HU$(RE$(I,J),L)MO1c7 J:MO13260s7 MO0:I:207 PRINTEN7 1,4,7:1:ST0207 1,4,77 J14:1," "RE$(I,J)7 J:J12:1," ":7 1:7 1,4,78 QQ13:J15:1,"XXXXXXXXXX":J:1," ":2700+8 QQ:1: