36879,25:(14):AR0nVO$(100),NU$(100),VO(100),MV(100),PR(100),LE$(100),LA$(100),LP$(100),LT$(100)z(T$(50)dX(0):" NFO BOEK EELAND OORRAAD BEHEER "n""x"1. PZETTEN VOORRAAD"+"2. OORRAAD CONTROLE"G"3. OORRAAD MUTEREN"e"4. OORRAAD OVERZICHT""5. EWAREN VOORRAAD""6. RINTEN VOORRAAD""7. RTIKEL VERWIJDEREN"" AT IS UW KEUZE"MO$:MO$"1"MO$"7"200&(MO$)1000,2000,3000,4000,5000,6000,7000C OPZETTEN VOORRAAD FILEf"PZETTEN VOORRAAD FILE"" KUNT :":"1. ILE LADEN":"2. ILE MAKEN":"3. OEVOEGEN"" AT IS UW KEUZE"$MO$:MO$"1"MO$"3"1060. MO$"1" 13008"PZETTEN VOORRAAD FILE"YB"OEVEEL ART";HU$:(HU$)((HU$))"":1090LHU(HU$):HUAR0HUAR1100"":1090VIAR1ARHU`"PZETTEN VOORRAAD FILE"e18)" ":18)"";Ij"ART NUMMER";NU$(I) t"ART NAAM ";VO$(I)4~"VOORRAAD ";VO$:VO(I)((VO$))["MIN VOOR ";MV$:MV(I)((MV$))"PRIJS ";PR$:PR(I)(PR$)"LEVER NAAM";LE$(I)"LEV. ADRES";LA$(I)"PLAATS ";LP$(I)"TELEFOON ";LT$(I)" CCOORD /Β"#MO$:MO$"J"MO$"N"12305MO$"N"1120OX(0):I:ARI1:100` LADEN FILE}" ADEN FILE"("FILENAAM";F$2"LADEN VAN :":"1. TAPE":"2. FLOPPY DISK"PMO$:MO$"1"MO$"2"1360Z MO$"2"1600(dD1:649,0:D,1,0,F$:1800:649,10:100N649,0:"GOSUB 5900@D2:FL$"0:"F$",SEQ,READ":D,8,D,FL$:1800:649,10:100D,AR:I1ARD,VO$(I):D,NU$(I):D,VO(I):D,MV(I):D,PR(I)ND,LE$(I):D,LA$(I):D,LP$(I):D,LT$(I) vI:D:! VOORRAAD CONTROLEB" OORRAAD CONTROLE"x"ONTROLE OP SCHERM (S)OF PRINTER.......> (P)"MO$:MO$"S"MO$"P"2030"EEFT U EEN TEKSTFILE MET DE TEKSTVERWERKER GEMAAKT (J/N)" H$:H$"J"H$"N"2050  H$"J"240041,4,7:I1ARFH VO(I)MV(I)MO$"P"2170:2160^RVO(I)MV(I)4700mpI:1:100z1," ":1," ":1," "1,(14)"ARTIKEL NUMMER "NU$(I)(15)1," "1,"ARTIKEL NAAM :"VO$(I)1,"VOORRAAD IS :"VO(I)1,"MIN. VOORRAAD :"MV(I)%1," "=1,"BESTELLEN BIJ:"i1,LE$(I):1,LA$(I):1,LP$(I):1,LT$(I)o` "ESTELFORMULIER LADEN"j "NAAM FILE";F$t "LADEN VAN :":MO50~ "1. TAPE 2. FLOPPY"% 4790:MO$"1"MO$"2"24407 MO$"2"2600b 649,0:"GOSUB 7000 1,1,0,F$:1,AC:1,PL:PLMOPLMO I1PL 1,L:J1L #1,TT$:#1,A$:T$(I)T$(I)TT$ J:I:1:2700( LADEN TEKSTFILE VAN FLOPPY!0 649,0:"GOTO 450082 FL$"0:"F$",S,R"G< 2,8,2,FL$dF 2,PL:2,AC:PLMOPLMOP I1PL1:2,T$(I):I:2 "MUTEREN MET TEKSTFILE":649,10:"" "HOE VAAK MOET U DE MINIMALE VOORRAAD IN BEZIT HEBBEN" Y$:Y(Y$)d "ET ARTIKELEN BESTAND WORDT NU BEKEKEN EN DEBESTELFORMULIEREN GE- MAAKT" "VEN GEDULD .." 1,4,7:I1AR:649,0:"GOSUB 6500 VO(I)MV(I)2800 I:1:649,10:100 J1MO X1(T$(J)) H$(T$(J),X,1), H$""1,NU$(I);L H$""1,(MV(I)YVO(I));c" H$""1,LE$(I);z, H$""1,LA$(I);6 H$""1,LP$(I);@ H$""1,LT$(I);J H$""1,VO$(I); T H$""H$""H$""H$""H$""H$""H$""2950% r X:1," ":J:J14:1," ":J:D 1,(T$(J),X,1);:X:1," "^ J:J14:1," ":J:l MUTEREN " MUTEREN" "1. MET DE HAND" "2. M.B.V FACTURERINGS- FILE" 4790 MO$"1"MO$"2"3050 MO$"2"3500! " MUTEREN"C! "ARTIKEL NAAM OF":"NUMMER ";HU$O! I1AR{!& VO$(I)HU$NU$(I)HU$"":4700:3130!0 I: 3451!: "NAAM "VO$(I):3470!X MO$"N"3180!b "NAAM ";VO$(I)!l "NUMMER "NU$(I):3470! MO$"N"3230" "NUMMER ";NU$(I)-" "VOORRAAD ";VO(I):3470@" MO$"N"3280W" "VOORRAAD ";VO(I)x" "MIN VOORRAAD "MV(I):3470" MO$"N"3330" "MIN VOORRAAD ";MV(I)" "RIJS ";:GPR(I):6500:G$:3470" MO$"N"3380"* "PRIJS ";PR(I)#4 "EVERANCIERSGEGEVENS":3470/#R MO$"N"I:100K#\ "EVERANCIER ";LE$(I)y#f "ADRES ";LA$(I):"PLAATS ";LP$(I)#z "TELEFOON ";LT$(I):I#{ "OG EEN ART. WIJZIGEN J/N":3470# MO$"J"3070# 100# "IJZIGEN /"$ MO$:MO$"J"MO$"N"3480$ ;$ " UTEREN D.M.V. FILE"P$ "FILENAAM";F$i$ "LADEN VAN :"$ "1. TAPE":"2. FLOPPY"$ MO$:MO$"1"MO$"2"3540$ MO$"2"3590$ 649,0:"GOTO 4790 % 2,1,0,F$:3800:649,10:100:"2000)%FL$"0:"F$",SEQ,READ"K%2,8,2,FL$:3800:649,10:100j%2,NU$:NU$"STOP"ST64t%<2,VO%FJ1AR%P NU$(J)NU$MO1:VO(J)VO(J)VO%ZJ%dMO1"NUMMER ";NU$:"KOMT NIET VOOR"%xMO0: 3800&" OORRAAD OVERZICHT",&"1. TOTALE VOORRAAD">&"2. ZOEKEN"]&MO$:MO$"1"MO$"2"4030o&MO$"2"4500&I1AR:4700::100& ZOEKEN&" OEKEN"&"WAAR MOET NAAR GEZOCHTWORDEN"&"";Z$&I1 AR8'VO$(I)Z$NU$(I)Z$LE$(I)Z$LA$(I)Z$LP$(I)Z$LT$(I)Z$4700D'I:100e'\" OORRAAD OVERZICHT"'a""18);" ":""18);I'f"ART NUMMER :";NU$(I)'p"ART NAAM :";VO$(I)'z" VOORRAAD:";VO(I)'"MIN VOORRAAD:";MV(I)#(" PRIJS FL:";:GPR(I):6500:G$=("VAN : ":LE$(I)Y(LA$(I):LP$(I):LT$(I)x(" RUK EEN TOETS"(MO$:MO$""4790(( BEWAREN("EWAREN VOORRAAD FILE"("FILENAAM";F$("BEWAREN OP :"("1. TAPE")"2. FLOPPY DISK"5)MO$:MO$"1"MO$"2"5060H) MO$"2"5200z)649,0:"INFO BOEK ZEELAND)D1:D,1,1,F$:5800:649,10:100)PD2:FL$"0:"F$",SEQ,WRITE")ZD,8,D,FL$)d 5800)n649,10:100)D,AR:I1AR0*D,VO$(I):D,NU$(I):D,VO(I):D,MV(I):D,PR(I)\*D,LE$(I):D,LA$(I):D,LP$(I):D,LT$(I)h*I:D:*p PRINTEN VOORRAAD*z" OORRAAD PRINTEN"*"DATUM ";DT$:649,0*1,4,7*1,(14);"OORRAAD PER : ";DT$;(15):1," "+I173:1,"";::1,""f+1," NUMMER NAAM VOORRAAD PRIJS TOT WAARDE +I173:1,"";::1,""+I1AR+1,"";:G$NU$(I)+(G$)12G$" "G$:6100+1,G$;" ";:G$VO$(I)+(G$)15G$G$" ":6120,1,VO$(I);" ";!,VO$(VO(I))B, (VO$)8VO$" "VO$:6150T,1,VO$;" ";m,GPR(I):6500:PR$G$,$(PR$)9PR$" "PR$:6180,.1,PR$;" ";,8G(VO(I)PR(I)):6500:TW$G$:MOMO(TW$),B (TW$)14TW$" "TW$:6210,L1,TW$;" "-VI:I173:1,"";::1V-`1,(14):1,"":1,"":1,"OTALE VOORRAAD WAARDE FL ";p-jGMO:6500:1,G$:MO0-t1,(15):1:649,10:100-d GETAL ROUTINE-nG$(G):GH$(G$,3)-x(GH$,1,1)"."-(GH$,2,1)"."G$G$"0": .G(G)G$G$".00":.).X ARTIKEL VERWIJDERENI.b"RTIKEL VERWIJDEREN"z.l"ELK BESTANDSNUMMER HEEFT HET ARTIKEL".v"";BN$:BN(BN$).BN(BN)BNARBN1"";:7030.VO$(BN)VO$(AR):VO$(AR)"".NU$(BN)NU$(AR):NU$(AR)""/VO(BN)VO(AR):VO(AR)0./MV(BN)MV(AR):MV(AR)0I/PR(BN)PR(AR):PR(AR)0h/LE$(BN)LE$(AR):LE$(AR)""/LT$(BN)LT$(AR):LT$(AR)""/ARAR1/"IS GEBEURD"/"OG EEN ART VERWIJDE- REN (J/N)":3480/ MO$"N"100/ 7000