3030:2720:2700 FO$9" OGELIJKHEDEN"[("I INVOER"," M MERGEN"|2"T TONEN"," R REKENEN"<"Z ZOEKEN"," P PRINTEN"F"S SORTEREN"," G GEHEUGEN"P"V VERANDER"," B BEWAREN"Z"W WISSEN"," E EINDE" d" L LABELS"8n2700:MO$"I"250JxMO$"T"530\MO$"Z"740nMO$"S"810MO$"V"980MO$"B"1240MO$"R"1280MO$"W"1740MO$"M"2070MO$"P"2230MO$"E"2570MO$"G"920MO$"L"308020+ INVOERGER$:"1. FILE LADEN"\"2. TOEVOEGEN"y"3. NIEUWE FILE MAKEN""2700:MO1MO3290,MO490,470,3106:2720:ER$;Q5$;S4$"OEVEEL ELDEN ( MAX 10 )@S4$;T9$;T4$J"";AV$:AV(AV$):"";5TAV1AV10"";:330f^NV$(AV,2):ER$:" ILE DEFENITIE "hI1AV:"NAAM,AARD";NV$(I,1),NV$(I,2)rNV$(I,1)(NV$(I,1),10):NV$(I,2)"A"NV$(I,2)"N""";:360|I" DEFENITIE COMPLEET ":2700/""17)"INVOER":AR0:RE$(100,AV)KARAR1:HU0:AR10020f" "AR" ":I1AV""NV$(I,1)" , "NV$(I,2);:RE$(AR,I)RE$(AR,I)"STOP"HU1HU1RE$(AR,I)"STOP":I:ARAR1:20I:410 TOEVOEGENER$;FI$:2690:2700:410# BESTAND LADEN8:2720:ER$;AN$H" ";NF$R2950dAR1AV120EN$:" WAT WILT U ZIEN"&S7$;"1. ALLES"0S7$;"2. BEREIK":2700:MO1M03570DMO590,600NI1AR:670:I:20XEN$;S4$;Q3$;"EREIK PRINTEN"3b"ET EERSTE NUMMER IS"Ql" ";B$:B(B$)pv"ET LAATSTE NUMMER IS"" ";E$:E(E$)B1BARE1EAR600IBE:670:I:20 OP SCHERM TONENEN$:"RECORD : ";I"============="J1AV:NV$(J,1)" : ";RNV$(J,2)"N"G(RE$(I,J)):2630: ""G$:730`RE$(I,J)sJ:"":2700:AR1AV120HU0:ZO$:S5$;"OEKEN NAAR:"" ";HU$:L(HU$):HU0I1AR:J1AV:HU1790 HU$(RE$(I,J),L)HU1J:HU1670:HU0$ I:206*AR1AV120Z4SO$:"":I1AV:I,NV$(I,1):y>"OP WELK VELD SORTEREN"H"";HU$:HU(HU$)RHU1HUAVHU(HU)20\SO$"ORTEREN KOST ZELFS EEN COMPUTER TIJD"aS1:ST(1,0)1:ST(1,1)AR%fIST(S,0):RST(S,1):SS1FkJI:KR:S$RE$(((IR)2),HU)cpRE$(J,HU)S$JJ1:880uV11E6:RE$(K,HU)S$KK1:zJKJJ1:KK1:880{JK894|JKMO1AV:TE$RE$(J,MO):RE$(J,MO)RE$(K,MO):RE$(K,MO)TE$ }MO:JJ1:KK1:880,~JRSS1:ST(S,0)J:ST(S,1)R=RK:IR875JS0870R20p OPVRAGEN VRIJE GEHEUGEN"OPVRAGEN VRIJ GEHEUGEN"Q3$;S5$;"U HEEFT NOG"Q3$;S8$;"";(0);""Q3$;" GEHEUGEN PLAATSEN."2700:20AR1AV120VE$:"WILT U :"<"1. BEP NUMMER WIJZIGEN"Z"2. ZOEKEN EN WIJZIGEN"t2700:MO1MO21020MO21110VE$;Q4$;S5$;"WELK NUMMER"S5$;S6$;T5$;T6$:" ";HU$:HU(HU$)HU1HUARHU(HU)20$IHU:670$."WELK VELD VERANDEREN";HU$:HU(HU$)A8HU1HUARHU(HU)20lBNV$(HU,1);" , "NV$(HU,2)" :"RE$(I,HU)L"WORDT :";RE$(I,HU):20VHU0:"WAARNAAR ZOEKEN";HH$`L(HH$):I1AR:J1AVjHU11150tHH$(RE$(I,J),L)HU1~JHU1670HU11230D"ELK VELD VERANDEREN";HU$:HU(HU$)\HUAVHU(HU)20kHU01230NV$(HU,1);" , "NV$(HU,2)" :"RE$(I,HU)"WORDT :";RE$(I,HU)HU0:I:20AR1AV120BE$;AN$" ";NF$2990 AR1AV120 RI$;FI$0 2690:2700:RI$""W "1. SOMMATIE OVER ALLE VELDEN"} ("2. VELDEN VERMENIGVUL- DIGEN" 2"3. VELDEN DELEN" <"4. VELDEN OPTELLEN" F"5. VELDEN AFTREKKEN" P"6. VELD * CONSTANTE" Z"7. VELD / CONSTANTE"!d"8. VELD + CONSTANTE"5!n"9. VELD - CONSTANTE"P!x 2700:MO1MO91400c!RI$:2690:""w!MO1MO51500!"ELK VELD GAAT DE UITKOMST BEVATTEN":TA$:TA((TA$))!TA1TAAVQ4$:1430""ELK VELD BEVAT DE EERSTE VARIABELE":V$:V((V$))."V1VAVQ4$1450o""ELK VELD BEVAT DE TWEEDE VARIABELE":V1$:V1((V1$))"V11V1AVQ4$: 1470"1630:20"MO51560""OTAAL BEREK""TT0:"TOTAAL OVER WELK VELD" #"";V$:V((V$)):V1VAVQ4$:1530 #1630:GTT:2630?#"TOTAAL IS ";G$:2700:20f#"VELD BEWERKT MET CONSTANTE"#""ELK VELD GAAT DE UITKOMST BEVATTEN":TA$:TA((TA$))#,TA1TAAVQ4$:1570#6"WAT IS DE CONSTANTE": CO$:CO(CO$):CO0201$@"ELK VELD BEVAT DE VARIABELE":V$:V((V$))J$JV1VAVQ4$:1600X$T1630:20d$^I1AR$hMO1TTTT(RE$(I,V))$rMO2RE$(I,TA)((RE$(I,V))(RE$(I,V1)))$|MO3RE$(I,TA)((RE$(I,V))((RE$(I,V1))0.00000001))%MO4RE$(I,TA)((RE$(I,V))(RE$(I,V1)))M%MO5RE$(I,TA)((RE$(I,V))(RE$(I,V1)))s%MO6RE$(I,TA)((RE$(I,V))CO)%MO7RE$(I,TA)((RE$(I,V))CO)%MO8RE$(I,TA)((RE$(I,V))CO)%MO9RE$(I,TA)((RE$(I,V))CO)%I:&AR1AV120&WI$:Q3$;S4$;"AT WILT U"<&"1. 1 RECORD WISSEN"[&"2. ALLE RECORDS WISSEN"q&"3. ZOEK EN WIS"&2700:MO1MO31790&MO31930&MO2AR0:20&WI$;Q4$;" WELK RECORD NUMMER"&&" ";MO$:MO(MO$)'0MO1MOARMO(MO)20"':IMO:WI$:680;'DS6$;"VERWIJDEREN"L'NS6$;T6$;T5$]'XS9$"JA/NEEc'bz'l2700:MO$"J"20'vJ1AV'RE$(I,J)RE$(AR,J):RE$(AR,J)""::ARAR1:20'" ZOEK EN WIS "'" ZOEKEN NAAR"(" ";HU$:HU0:I1AR:J1AV,(RE$(I,J)HU$HU1?(J:HU11990O(HU0:I:20X(680q(S6$;"VERWIJDEREN"(S6$;T6$;T5$(S9$"JA/NEE(2700:MO$"J"MO$"N"2030(MO$"N"(J1AV:RE$(I,J)RE$(AR,J): J ) J1AV:RE$(AR,J)""::ARAR1:)AR1AV120/) AR10021007)*20D)4ME$;AN$T)>" ";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: