03:"VIC-DATAOPSLAG : LAST-UPDATE 10-12-82S"BEZIG MET NR: "X:{(142)" VIC-DATAOPSLAG":144X200:N$(X),A$(X),P$(X),W$(X),T$(X),K$(X):2,0196:" VIC-DATAOPSLAG":"WAT IS UW OPDRACHT?"&"1. INVOER":"2. INHOUD":"3. ZOEK":"4. SORTEER"U"5. VERWIJDER":"6. PRINTEN":"7. SAVE{"8. VERANDER":"9. EINDE PGM." X$:X$"1"X$"9"9 (X$)11,43,60,67,93,114,134,155,142 "";:7)"INVOER":"1. NIEUWBESTANDMAKEN"1 "2. OUDBESTANDOPHALEN":"3. BESTANDAANVULLEN":196W X$:(X$"1"X$"3")X$(13)13gX$(13)5{(X$)16,35,21N021"WILTUHETINDE":"COMPUTERSTAANDE":"BESTAND VERNIETIGEN"(J/N)":196X$:X$""19X$"J"N0NN1:X1:N200NN1:146E"U KUNTNUADRESSEN INVOEREN!"OMMETDEINVOERTE EINDIGEN: GEEF":"[RETURN] BIJ NAAM.""<"N">":174::2,X$:X$"*"33N$(N)X$:190176:2,A$(N)::191178:2,P$(N)::192180:2,W$(N)::1932182:2,T$(N)::194O 184:2,K$(N)::195:21p!"EINDEINVOER!":NN1""ER ZIJN NU"N:"ADRESSEN IN 'T BESTAND":143:5#"INLEZEN OUD BESTAND":197:149:F1:212$NN1%1,X$:"LEES DATA VOOR: ":X$!&N200NN1:1:146<'1,N$(N):N$(N)"\"42m(1,A$(N):1,P$(N):1,W$(N):1,T$(N):1,K$(N){)NN1:38*NN1:1:5+"";:7)"INHOUD":N0145,"WELKEADRESSENWILTUZIEN?":188-X$:(X$"1"X$"3")X$(13)45 .X$(13)5!/(X$)48,49,5130T11:T2N:53V1"WELKADRESNUMMER ";:2,X$:m2T1(X$):T2T1:533"VANAFWELKADRESNR ":2,X$::T1(X$)4"TOTWELKADRESNR ":2,X$::T2(X$)5"";:T1NT2N436F0:XT1T2:152:X:HU$:A$(X)'7P$(X)" "W$(X):T$(X):K$(X):B8FF1:(F2)(XT2)59Y9F0:XT2149:59h:149:"";q;:5<"";:4)"ZOEKEN IN NAAM":N0145="GEEF NAAM ";:2,X$::X1>(N$(X),(X$))X$TE1:65?XN147:149:5@XX1:623A"ITEMNR: "X::N$(X):A$(X):P$(X)" "W$(X)NBT$(X):K$(X)::149:oC"";7)"SORTEER":N0145D"SORTERENOP":"1. NAAM":"2. STRAAT"E"3. POSTCODE":"4. WOONPLAATS":"5. KENMERK":196FX$:(X$"1"X$"5")X$(13)70 GX$(13)5$H"EVENGEDULDA.U.B.>I(X$)74,77,80,83,86dJX1N:2:YXN:N$(X)N$(Y)89mKY,XLH$"NAAM":88MX1N:2:YXN:A$(X)A$(Y)89NY,XOH$"STRAAT":88PX1N:2:YXN:P$(X)P$(Y)89QY,XRH$"POSTCODE":88-SX1N:2:YXN:W$(X)W$(Y)896TY,XNUH$"WOONPLAATS":88tVX1N:2:YXN:K$(X)K$(Y)89WY,X:H$"KENMERK"X214,16:"BESTAND GESORTEERD OP":"";H$:143:5YN$N$(X):A$A$(X):P$P$(X):W$W$(X):T$T$(X):K$K$(X);ZN$(X)N$(Y):A$(X)A$(Y):P$(X)P$(Y):W$(X)W$(Y):T$(X)T$(Y)[K$(X)K$(Y):N$(Y)N$:A$(Y)A$:P$(Y)P$:W$(Y)W$:T$(Y)T$:K$(Y)K$\]"";:6)"VERWIJDER":N0145^"WELKEADRESSEN":188_X$:(X$"1"X$"3")X$(13)95`X$(13)5a(X$)98,103,104:b"ZEKER WETEN (J/N) ";:196LcX$:X$"N"5adX$"J"X$:102ie99tfN0:5g"WELKADRESNUMMER ";:2,X$::T1(X$):T2T1:106h"VANAFWELKADRESNR ";:2,X$::T1(X$)i"TOTWELKADRESNR ";:2,X$::T2(X$)jT1NT2N934k"EVENGEDULDA.U.B."LlXT1N:HXT2T11^mHNXN:112nN$(X)N$(H):A$(X)A$(H):K$(X)K$(H)oP$(X)P$(H):W$(X)W$(H):T$(X)T$(H)p:NN(T2T11):" ":""; qT2T11;"NAMENUITHET":"BESTANDVERWIJDERD.":143:5= r"";:8)"PRINTEN":N0145` s"VANWELKEADRESSEN?":188 tX$:(X$"1"X$"3")X$(13)116 uX$(13)5 v(X$)119,120,122 wT11:T2N:124 x"WELKADRESNUMMER ";:2,X$: yT1(X$):T2T1:124*!z"VANAFWELKADRESNR ";:2,X$::T1(X$)X!{"TOTWELKADRESNR ";:2,X$::T2(X$)k!|T1NT2N114!}"1. LABELS":"2. ADRESLIJST!~X$:X$"1"X$"2"126!4,4!X$"2"198!"LABELS PRINTEN"!4,(2):230!XT1T2:152="4," ";HU$:4," ";A$(X):4," ";P$(X);" ";W$(X)^"Q16:4,(10):::4:4:5""";:6)"SAVE.":N0145""WEGSCHRIJVEN NIEUW BESTAND!":197:149:F2:212""SCHRIJF DATA VOOR:":X$:H$(13)"1,X$;H$;:X1N#1,N$(X);H$;-#1,A$(X);H$;:1,P$(X);H$;X#1,W$(X);H$;:1,T$(X);H$;:1,K$(X);H$;o#:1,"\";H$;:1:5|#65511:#X13000::#L$"":X1125:L$L$"-"::#"ER IS GEENBESTANDINDECOMPUTER!!!":143:5!$"AANTAL ITEMS MAX: ";N1:"DAT IS NU BEREIKT":143:5<$TE1TE0:TE$" MEER"}$"'"X$"'":"KOMT NIET"TE$:"IN HET BESTAND VOOR!":TE$"":$PE(214):PO(211):214,21:211,13:58759:"[SHIFT]"$653,1:214,21:211,13:58759:" "%214,PE:211,PO:58759:;%J0:Q1(N$(X)):(N$(X),Q,1)" "JQ:Q(N$(X))H%:J0p%HU$(N$(X),J1)" "(N$(X),J1):%187:"VOOR MENU : [RETURN]"%"WELK ITEMNUMMER * ";:2,X$%X$"*"5%(X$)N:"NUMMER TE HOOG!":149: 155"&(X$)1:"BESTAAT NIET!":149:1553&X(X$):187[&"1. "N$(X):"2. "A$(X):"3. "P$(X)&"4. "W$(X):"5. "T$(X):"6. "K$(X)&"UW KEUZE (1-6) * ";:2,X$&X$"*":5&(X$)1(X$)6155&186:(X$)167,168,169,170,171,172''N$(X):214,18:175:2,N$(X):190:173R'A$(X):214,18:177:2,A$(X):191:173}'P$(X):214,18:179:2,P$(X):192:173'W$(X):214,18:181:2,W$(X):193:173'T$(X):214,18:183:2,T$(X):194:173'K$(X):214,18:185:2,K$(X):195(187:161%("NAAM.......: * ";:>("NAAM.......: ";:\("ADRES......: * ";:u("ADRES......: ";:("POSTCODE...: * ";:("POSTCODE...: ";:("WOONPLAATS.: * ";:("WOONPLAATS.: ";:)"TELEFOON...: * ";:)"TELEFOON...: ";:8)"KENMERK....: * ";:Q)"KENMERK....: ";:n)214,17:211,13:58759:)"";7)"VERANDER":)"1. ALLES":"2. E'E'N ADRES":"3. E'E'N BEREIK")"[RETURN] VOOR MENU!":196:*N$(N)(N$(N),20):&*A$(N)(A$(N),23):=*P$(N)(P$(N),7):U*W$(N)(W$(N),20):m*T$(N)(T$(N),14):*K$(N)(K$(N),20):*198,0:*"PLAATS DATASETTE OF DISKETTE !":*"ADRESLIJST PRINTEN":4,(1);L$ +4,(2);"ADRESSEN OVERZICHT ";7+"GEEF TITEL":H$:"GEEF DE DATUM":HU$W+4,H$;56(H$)(HU$));HU$f+4,(1);L$+4," NR: N A A M A D R E S ";+4,"P C + S T A D TELEFOON KENMERK"+4,L$,XT1T2?,4," ";(" "(X),3);" ";N$(X);21(N$(X)));z,4,A$(X);24(A$(X)));P$(X);" ";W$(X);21(W$(X)));,4,T$(X);15(T$(X)));K$(X),,4,L$:4:4:5," SCHIJF":" OF":" TAPE ?-H$:H$"S"H$"T"213&-"GEEF FILENAAM":X$:H$"T"2196-X$"?"222_-1,8,15,"I":1:F11,8,3,X$",S,R"~-F21,8,3,"@:"X$",S,W"--F11,1,0,X$-F21,1,1,X$--"AANWEZIGE FILES":1,8,15,"I":1:1,8,0,"$0":T0.#1,A$:A$(34)ST0223.ST01:2140.#1,A$:A$""223?.T0"";^.A$;:#1,A$:A$(34)227.:TT1:T15T1:13)"[SHIFT]":653,1:198,0:"".223.T1T2131."HOEVEEL RIJEN (1OF2)?.X$:X$"1"X$"2"232.X$"1"131/XT1T22:152:XT2239N/4," ";HU$;37(HU$));:XX1:152:4,HU$:XX1y/4," ";A$(X);37(A$(X)));A$(X1)/4," ";P$(X);" ";W$(X);35(P$(X))(W$(X)));P$(X1);" ";W$(X1)/Q16:4,(10)::HX1/:HT2241404," ";HU$:4," ";A$(T2):4," ";P$(T2);" ";W$(T2)A04:4:5