Skip to main content

Full text of "Newell Industries SBMST source code?"

See other formats


100 Dim Cl$(3>, C2$(3),Dt(7),8$(7),Nt(40), At(40), Al$(40),Hisct(20!,T$(13),Fl$<32!, (71(10), #ltc$(lQ>,Triit(12) 
200 Dim Pn$(12),De5$(30),Vn$(35),Valt(35!,Va2t(35),Loc$(10),Cnt(35),Calt(35),Ca2$(35),Pon$(12) 

400 Trap 700:0pen #1,4,0, “D1 : SETUP, DAT“ : Rget #l,Ci*,C2*,N*,At,Al*,Misc$,Ptl,Pt2,Pt3,Pt4,H3,H4,H5,H6 
450 Close fliOpen #1 , 4 , 0, “D1 s SETUP2.BAT": Rget #l,Dt,Dtot,In,Ytd,Ptd,Ttd,Nac , Tr, Ml , H2, H7, US, H9, HiO 


460 Max=22000:Dia S$C5) , (4 ) , Acptf (Max *M1 ) 

500 Close #1 : Open #1,4,0, "Dl:ACCPT.DAT":Rget tl.Acptt 
700 Close #1 


800 Graphics 2: Poke 710, Cl ; Poke 712, C2: Poke 755,l:Poke 82,2 

850 Position 5,2:? #6; “invoicing'iPosition 3,6:? 16; “COPYRIGHT 1983 

900 Position 5,7:? #6; “NEWELL IND“ 

1000 Cl=Val (Clti :C2-Val (C2$) 


I! 


1100 Poke 710,Cl:Poke 712,C2:Poke 755,1 
1200 Poke 657,20-(Len(Nt)/2):? N$ 

1300 Poke 657,20- (Len < A*> /2> : ? At 
1400 Poke 657,20-(Len(Al$)/2);? Alt 
1500 Poke 657, 20- (Len (Mi set) /2) : ? Misct; 

1600 Del 100, 700: Del 850, 1500: Dim Pnptf CMaxtH2) : Trap 1610: Basub 16000 
1610 Trap 1700: Del 1600,1610 
1700 ? 16:”)“ 


1800 Position 1,1:? #6;“Sale“:Position 1,2:? #6;“Inventory“;Position 1,3:? #6; “Exit to aenu" 

1900 Position 1,4:? #6;"Return to stock” : Position 1,5:? #6; “Total s“ : Position 1,6:? #6s “Close out day" 
1910 Position 1,7:? #6; “Quote" 

2000 ? "IENTER FIRST LETTER OF YOUR CHOICE." 

2100 Gosub 12800 


2200 Position 0,9 

2300 Suote=0: If Key=AscPS"! Then 2900 
2400 If Kev=Asc!"l“) Then 8700 

2500 If Kev=AscPE"! Then ? #6; “LOADINS MENU": Run “D:HENU“ 

2600 If Key=AscPfi") Then 9000 

2700 If Key=Asc!"T") Then 9900 

2750 If Key=Asc ( “C" ) Then 15000 

2760 If Key=AscP8") Then 8uote=l:Goto 2900 

2765 If Key=AscP*) Then Run “D: INVENTOR" 

2770 If Key=AscP"> Then Run "D: REPORTS" 
2775 If Key=Asc<" 

"> Then Run "D: MAILLIST" 


2780 If Key=Asc ( "") Then Run “D: 0RDERREC* 
2800 Goto 1700 


2900 Graphics OsPoke 710,Cl:Poke 712,C2:Position 14,0:? "INVOICE SALE“:Position 13,1:? "RETURN TO QUIT" 
2910 If Quote >0 Then Position 14,0:? “SALES QUOTE ":? 

3000 Trap 800:? "ENTER SALESPERSON t“; : Input Spn:? “ENTER ACCOUNT #“| : Input Acct:St=0:Ttoi=0 
3100 Gosub 10700: Test=0:Tr«t=*CASH“ 

3200 If Acc$="“ Then Acc=0:6oto 3600 
3300 If Acc$="NEW" Then Acc=Nac:Acct=Strt(Acc):Test=l 
3400 Gosub 13000: If F>0 Then Gosub 14000: Goto 3600 
3500 Goto 2900 


3600 Gosub 11000 

3700 FI $=“#### $####. ## i##### , ## " : F2 1= " t ##### . ## “ 

3800 ? "IS THIS INFORMATION CORRECT (Y OR NP 


3900 

4000 

4100 

4200 

4210 

4300 

4400 

4500 

4600 

4700 

4800 

4900 

5000 

5100 

5200 


a ■ 


Gosub 12800: If KeyOAscPY") And KeyOAscPy") Then 2900 
Trap 4100:Close #7:0pen #7,8,0, "P: ":6oto 4200 

TURN ON PRINTER AND PRESS RETURN) ":Gosub 12800:6oto 4000 
#7;N$: ? I7;A$:? #7;A1$:? #7;Misct:If Quotefl Then In=In+l:Goto 4300 
#7:? #7:? #7;Tab(35);Chr$(Ptl);*8UQTE";? #7:? #7:? #7:6oto 4400 
#7:? 17:? #7?Tab (33) ; Chr$ fPt 1 ),*“ INVOICE" : ? #7; Tab (33) ; Chr*<Pt 1 ) ; ; In: ? 17:? #7:? #7 

#7; •=r=:==== :::::: rr :::::::::: :r: :: rrrr:r.-= 

l7;Chr$!Ptl);"T0:";Tab(21) ;"ACC# “;Acc 
*7;Cnt;Tab!40);"DATE:";Dt(l,2);*/";Dt(3,4);“/";Dt(5,6) 

# 7 ; Ca 1 i ; Tab ( 40 >;" SALESPERSON Spn 
? #7;Ca2t;Tab<40);"P.0. OR AUTH:“;Pon$ 

? *7; "=============”=======================»•? #7;? #7 

? #7; “PART #“;Tab(14) ; "DESCRIPTION" ; Tab (52) ; “8UAN"; Tab (58); “PRICE EA";Tab(68i;“EXT. PRICE' 


n u 


}":Po5itipn 15,0:? "INVOICING": If 8uote>0 Then ? "PiPosition 17,0:? "QUOTE 1 



3OU0 bosub 11300: it Pn*= END Then 6600 

5350 If Pn$="NEXT" Then Gosub 16000:6oto 5200 
5400 If F=Q Then 5200 
5500 Gosub 10100 

5600 Trap 5600: Position 2,19:? “HOW MANY';: Input Hu: If Ha<=0 Then 5200 
5700 Trap 5900:Position 2,20:? “PRICE EACH"; : Input Pe: If Pe<0 Then 5700 
5300 Goto 6000 


5900 Pe=Pri 

6000 Position 11,19:? Ha;” "sPosition 13,20:? Pe; “ ":? 

6100 if KeyOAscCY") And KeyOAsc(“y“! Then ? ”}“:Goto 5500 

6200 Ep=0:Ep=HalPe:If Pg>4999 Then Ttol=Ttol+Ep 

6300 ? #7; Pn$; Tab ( 14i ; Des$; Tab (52) ; ; ? 17; Using Fl$,Ha,Pe,Ep 

6310 If Guote>0 Then St=St+Ep:6oto 5200 

6400 Sold=Sold+Hs:Tds=Tds+Ep:Qoh=Qoh-H®:St=St+Ep 

6500 Gosub 12400: Dtot=Dtot+Ep: Goto 5200 

6600 ? #7; “ ===========================================rr=====; 


"IS THIS CORRECT (Y OR N)";:6osub 12800 


u 


6700 ? “HS SALE TAXABLE"; : Input T$:Tax=0 
6710 If T*<>"Y" And TIO"y“ Then 6900 

6720 Trap 6720:Position 2,2:? "TAX RATE X ";Trtl00:Position 12,2: Input Temp: Tr=Te»p/ 100 
6800 If T*="Y“ Or T$=“y“ Then Tax=Int((TrtTtol) *1001/100: If Tax<TrlTtol Then Tax=Tax+0,01 
6900 Trap 6900:Position 2,3:? "SHIPPING CHARGE";: Input Sc 
7000 Total =St+Sc+Tax 

7100 Position 2,5:? "AMOUNT DUE $";Total:If 0uote>0 Then 7300 

7200 Trap 7000: Positi on 2,7:? ‘AMOUNT RECEIVED"; : Input Aat 

7300 Position 2,9:? “TERMS"; : Position 8,9:? Tr®$; Position 7, 9: Input Tra$ 

7400 ? "IS THIS CORRECT (Y OR N)“:6osub 12800: If KeyOAscCY") And KeyOAsci“y"! Then 6700 

7500 ? #7; "TERMS: " ; Trat; Tab (52) ; "SUB-TOTAL"; Tab (68) ; : ? #7; Using F2$,St 

7550 If Tax>0 Then ? 17; Tab (52); "TAXABLE T0T.";Tab(68);:? 17; Using F2f,Ttol:Ttd=Ttd+Ttcl 

7600 ? #7;Tab(52);"TAX";Tab<68);:? #7; Using F2$,Tax 

7700 ? #7; Tab (52) ; “SHIP/HANDL ING"; Tab (68) ; : ? *7; Using F2$,Sc 

7800 ? #7; Tab (52) ; “TOTAL" ; Tab (68) ; ; ? #7; Using F2$,Total:If Quote>0 Then 8250 

7900 ? #7; Tab (52); "AMOUNT PAID"; Tab (68) ; :? #7; Using F2$,Aat:If Aat>=Total And Tax>0 Then M7=M7+Ttol:M9=M9+Tax 
8000 If A®t)Total Then ? *7;Tab(52) ; “REFUND" ; Tab (68) ; :? 17; Using F2$, Amt-Total 
8100 Bal =0: If Aat<=Total Then Bal=Total-Aat 


8200 ? #7; Tab (52); "BAL DUE" ; Tab (68) ; : ? 17; Using F2$,Bal 

8250 If Acc>0 Then ? #7; "Please use account nuaber when placing orders." 

8300 ? #7; Chrt (Pt 1 ) ; "THANK YOU" ; Chr$ (Pt4) : If 0uote>0 Then 800 ’ 

8400 Tdt=Tdt+Total:Pd=Pd+Aat:Bd=Tdt-Pd:Ytd=Ytd+Total-Tax:Ptd=Ptd+Total-Tax:M8=M8+Aat 
8500 If Acc>0 Then Gosub 13700: If Test>0 Then Nac=Nac+l 
8600 Gosub 12100:Goto 800 


8700 Graphics 0:Poke 710,Cl:Poke 712,C2:Position 13,0:? "INVENTORY CHECK":Position 11,1:? “ENTER ’END’ TO QUIT 

8800 Gosub 11300: If Pnt="END" Then 800 

8850 If Pn$=“NEXT“ Then Gosub 16000: Goto 8700 

8860 If F=0 Then 8700 

8900 ? "I":Gosub 10100: Gosub 12300: Goto 800 

9000 Graphics OiPoke 710,Cl:Poke 712,C2:Position 17,0:? "RETURN" 

9100 Gosub 11300: If F=Q Then 800 

9200 Gosub 10100:Position 2,19:? "IS THIS IT?“;:Gosub 12800: If KeyOAsc("Y") And KeyOAscCy") Then 800 
9300 Trap 9300: Posi ti on ‘2,19:? "HOW MANY Input Ha: If Ha<=0 Then 800 

9400 Trap 9400:Position 2,20:? "PRICE EACH";: Input Pe: If Pe<0 Then 9400 

9500 Position 11,19:? Ha;" ":Position 13,20:? Pe:" ’:? "IS THIS CORRECT (Y OR N)"::Gosub 12800 
9600 If KeyOAscCY") And KeyOAscCy") Then 800 

9700 Qoh=Qoh+Ha:Soid=Sold-Ha:T7=Ha»Pe:Tds=Tds-T7:Ytd=Ytd-T7:? "TAXABLE"; :Gosub 12800: Tax=0:Ptd=Ptd-T7 
9710 If Key=Asc("Y") Or Key=Asc("y") Then Ttd=Ttd-T7:Tax=Int((Tr»T7)»100)/100;If Tax<Tr*T7 Then Tax=Tax+0.01 
9720 Ytd=Ytd-Tax : Pt d=Ptd-Tax : Dtot=Dtot-T7 
9800 Gosub 12100: Gosub 12400: Goto 800 

9900 Fl$="mt*««.t» $***#*.#»":? " YEAR PERIOD TODAY" 

9950 ? Using FI$, Ytd, Ptd, Dtot 
10000 Goto 2100 


10100 Position 2,2:? "PART NUMBER: “;Pn$ 


10200 ? 
10300 ? 
10400 ? 
10500 ? 
10550 ? 


"DESCRIPTION;":? Desl 
"VENDOR;":? Vn$:? Val$:? Va2$ 

“8QH: ";Goh:? "LOCATION: ";Loc$:? "REORDER POINT: “;Reo:? 
"QUANITY SOLD: “;Sold:? "TOTAL DOLLAR VALUE SOLD; $ n ; Tds: ? 
"GROUP: *;Pg 


10600 Return 


’COST :$“;Cost:? 
■QTY ON ORDER: 1 


"SALE PRICE: $”;Pri 
;Qoo 



iu/uu ' -rjmiuon "LUSlUMtK NAMfc":Position 2,3:? "CUSTOMER ADDRESS": Position 2,5:? 
10800 Position 2,7:? “P.O. NUMBER" 

10900 Return 

11000 Position 1,2: Input CniiPosition 1,4: Input Cali:Position 1,6: Input Ca2t 
11100 Position 1,8: Input Poni 
11200 Return 

11300 ? :? "PART NUMBER": Input Pni:If Pnt*"END" Or Pn$=“NEXT“ Then Return 
11400 Tt="#",Pni,"i" 

11500 F=Find(Pnpti,Tt,Q) :T=F:If F=0 Then ? * PART NUMBER NOT IN INVENTORY}}}": For W=1 Ti 
11600 F=Find(Pnpt$,”i",F):S=Val (Pnpti(F+l)) 

11700 F=Find (Pnptl, "4“ ,F) :B=Val (Pnptf (F+l i ) 

11800 Trap 12000:0pen #1,4,0, "D2: INVFIL.DAT" 

11900 Point #l,S,B:Rget #l,Pni,Desi,Vni,Valt,Va2i,Soh, Loci, Rea, Cost, Pri, Sold, Tds.Ooo.Pg 
12000 Close ll:Return 
12100 Trap 12600: Close #1 

12200 Open 11,8,0, ”D1 : SETUP2.DAT " : Rput #l,D$,Dtot, In,Ytd,Ptd,Ttd,Nac,Tr,Ml,M2,M7,M8,M9,M10 
12300 Close #l:Return 

12400 Trap 12600:Close #l:0pen #1, 12,0, "D2: INVFIL.DAT" 

12500 Point #l,S,B:Rput #l,Pnf,Desi,Vni,Vali,Va2i,0oh, Loci, Reo, Cost, Pri, Sold, Tds,Qoo,Pg 
12600 Close #l:Return 

12800 Close #2:0pen #2,4,0, "K: *:Get #2,Key:Close #2 

12900 Sound 0,100,10,14: For W=1 To 4: Next Sound 0,0,0,0:Return 

13000 Tt="#",Acct,“8" 

13100 F=Find(Acpti,Tt,0):T=F: If F=0 Then ? " ACCOUT NUMBER NOT ON FILE }}}": For W=1 Tc 
13200 F=Find (Acpti, "l“,F):Sa=Val ( Acptt (F+l ) ) 

13300 F=Find < Acpti, “&“,F):Ba=Val (Acpti (F+l) ) 

13400 Close #l:Trap 13600:0pen #1 , 4, 0, "D1 : ACCOUNT. DAT“ 

13500 Point #l,Sa,8a:Rget #l,Cni,Cali,Ca2i,Tdt,Pd,Bd,Acc,Tr«i 
13600 Close #1 : Return 

13700 Trap 139GO:0pen #1, 12,0, "Dl: ACCOUNT. DAT" 

13800 Point tl,Sa,Ba:Rput #l,Cnt,Calt,Ca2t,Tdt,Pd,Bd,Acc,Tr*i 
13900 Close #l:Return 

14000 Position 2,2:? Cni:Position 2,4:? CalisPosition 2,6:? Ca2i 
14100 Return 

15000 ? "} ARE YOU SURE ?";:Sosub 12800: If KeyOAscfY") Then 2000 

15100 Trap 8000:Close #7:0pen #7,8,0, “P":? #7;Chr$(Ptl);'DAILY SALES ";Di(l,2);“/ n ;Di(3,4);" 
15200 F2t=‘t######.##":? #7:? #7;“CASH SALES ";:? #7; Using F2i,M8 
15300 ? #7; "TAXABLE SALES";:? #7; Using F2i,M7 

15400 ? #7; "TAX COLLECTED";:? #7; Using F2i,M9:M7=0:M8=0:M9=0:6osub 12100 
15900 Run "D:SBM" 

16000 Close # 1 : Open #l,4,0,"D2:INVPT.DAT“:Rget #l,Pnpti:Close #l:Return 


"CITY, ST. ZIP 


100: Next NsReturn 


100: Next W:Return 


/*;Di!5) 




900 Position 5,7 
1000 Cl=Val (Clt) 
1100 Poke 710, Cl 



100 Diit Clt{3),C2$(3),D*(7),Q$(7),N*!40),A*(40),Al$C40),Hisc$(20),T4(38),Fl$il20) 

150 F 1 $= B ! !!!!!!!!!!!!!!*!! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 * * 1 1 Niimiiiiim $ 1 ##### ##“ 

200 Di® Act* ( 10) , Cn$ (35) , Cal $ i 35) , Ca2$ 

400 Trap 700 

500 Open #1,4,0, “Dl: SETUP. DAT" i Rget «1 ,rif ,f?f , Hf , Af ) | f , fli sr 1 , Pt 1 , Pt ? , ,-Tt 1 ,H3,H1 , fl"), ftfi-H mr #1 
550 Open #1 , 4, 0, “Dl : SETUP2. DAT” : Rget il,D$,Dtot, In,¥td,Ptd,Ttd,Nac,Tr,Ml,M2,H7,M8,M9,M10 
560 Max=22000: Di at St (5) , B# (4) , Acptf (Max t«l ) 

600 Close #1 : Open #1,4,0, "Dl : ACCPT. DAT" : Rget il.Acptt 
700 Close #1 

800 Graphics 2:Poke 710,Cl:Poke 712,C2:Poke 755, 1 : Poke 82,2 
850 Position 3,2:? #6; "account reports“:Position 3,6:? 16; “COPYRIGHT 1983“ 

? #6; "NEWELL IND" 

C2=Val (C2$l 

Poke 712,C2:Poke 755, IsPoke 82,2 
1200 Poke 657,20-(Len!Nt)/2):? N$ 

1300 Poke 657,20-(len(A$)/21:? A$ 

1400 Poke 657, 20-(Len (Alt) /2) :? Alt 
1500 Poke 657,20-(Lend1isct)/2) :? Mi set; 

1600 Del 0,560 
1625 Del 850,1600 
1700 Trap 1700:? #6;"}' 

1800 Position 1,0:? #6;"All":Position 1,1:? #6;“0utstanding“:Pasition 1,2:? #6; "Exit to ®enu* 

1900 Position 1,3:? #6; “Sel ected“: Posi ti on 1,4:? 16; "Recover Piles" 

1950 Position 1,5:? #6: "Credit accounts":Position 1,6:? #6:"New accounts":Position 1,7:? #6; "List accounts 
1960 Position 1,8:? #6; "Update/edit" 

2000 ? “1ENTER FIRST LETTER OF YOUR CHOICE." 

2100 Gosub 11100 


2200 Position 0,9 

2300 IP Key=Asc("A‘) Then 2900 

2400 IP Key=Asc("0") Then 4800 

2500 IP Key=Asc("E") Then ? 16; "LOADING MENU": Run “D:MENU" 

2600 IP Key=Asc("S") Then 6900 
2700 IP Key=Asc("R") Then 8100 
2750 IP Key=Asc("C") Then 5400 
2770 IP Key=Asc(*N") Then 9300 
2780 IP Key=Asc("L"> Then 3900 

2790 IP Key=Asc("U") Then 9600 

2791 IP Key=Asc(“") Then Run "D: INVENTOR" 

2792 IP Key=Asc ( " ") Then Run "D:INVOICIN“ 

2793 IP Key=AscC“) Then Run "DsORDERREC" 

2794 IP Key=Asc(" 

") Then Run "D:MAILLIST" 

2800 Goto 1700 

2900 Graphics 0:Poke 710,Cl:Poke 712, 02: Fosi ti on 16,0:? “ALL ACCOUNTS" :Rc=0 
3000 Trap 8000:6osub 15000: Gosub 14900:? #7; Chrt (Pt 1 ) ; “ALL ACCOUNTS" 

3300 Gosub 16500: IP Cn$="" And Acc>Nac Then ? #7;Chrt (Pt4) : Goto 8000 
3400 Gosub 10000 
3800 Goto 3300 

3900 Graphics OiPoke 710,Cli Poke 712,C2:Position 16,0:? "ACCOUNTS LIST“:Rc=0 
3910 ? "NUMERICAL":? “ALPHABETICALLY":? :? “ENTER FIRST LETTER OF YOUR CHOICE"; 
3920 Gosub 11100: IP Key=Asc("N") Then 4000 
3930 IP Key=Asc("A") Then 4400 
3950 Goto 8000 

4000 Trap 8000:6osub 15000:Gosub 14900:? #7;Chr$!Ptl) ; "ACCOUNTS LIST" 

4100 Gosub 16500; IP Cn$="" And Acc>=Nac Then ? #7;Chr$(Pt3t:Chr$!Pt4):6oto 8000 
4200 Gosub 20000 
4300 Goto 4100 


4400 Trap 8000:Gosub 15000:Gosub 14900:? #7; Chrt (Pt 1 ) ; "ACCOUNTS LIST":Acpt$="“ 
4420 Trap 4600:Gosub 16500: IP Cn$="“ Then 4600 
4440 Cnt(5)="":Acpt$=Acptt,"#",Cn$,"8",StrtiSa),"&",Str$(Ba):Goto 4420 
4600 T$="zzz:zz":F=0 

4620 F=Find(Acptt,“#",F):IP F=0 Then 4700 

4640 IP Acptt !F,F+4KT$ Then T$=Acpt$(F,F+4):Fl=F:6ota 4620 

4660 Goto 4620 



4/uu h=nna(ficpt», e“,H):sia=vai(ftcpti(h+i)) 

4710 F=Find(Acpti,"V , ,F):Ba=Val(Acpt$(F+l)) 

4720 Acpt$(Fi,Fl)="X*:6osub liOOOsSpsub 20000 

4730 F=Find(Acpt$,"#\0):If F=0 Then ? #7; Chr$ (Pt4) : Close li:Close #7:&oto 600 
4799 Goto 4600 

4300 Graphics 0:Poke 710,Cl:Poke 712,C2:Position 10,0:7 “OUTSTANDING ACCOUNTS": 6to=0: Rc=0 
4900 Trap 8000:Gosub 15000:Gosub 14900:7 #7; Chr$ (Ptl ) ; “OUTSTANDING ACCOUNTS' 

5000 Gosub 16500: IF Acc)Nac Then 5350 
5100 If Bd<=0 Then 5000 
5200 Gosub 10000: Gto=Gto+Bd 
5300 Goto 5000 

5350 7 17:7 #7; "TOTAL QUSTANDING i ";Gto:7 #7; Chr$ (Pt4) : Goto 8000 
5400 Graphics 0:Poke 710,Cl:Poke 712, 2: Posi ti on 13,0:7 "CREDIT ACCOUNTS" 

5500 Gosub 12100 

5700 Trap 6500: Acc=Val (T$) :Acc$=T$:T$=“#",Acct, “8" 

5800 F=Find(Acpt$,T$,0):If F=0 Then 7 “ACCOUNT NOT ON FILE}}}': For N=1 To 100:Next H:6oto 5400 
5900 Gosub 12000 

6100 Gosub 18000: Gosub 19700: Gosub 21000: Gosub 21100 

6110 7 “IS THIS THE 0NE":6osub 11100 

6200 If KeyOAsc!"Y“) And KeyOAsci'y') Then 8000 

6210 7 “ENTER AMOUNT OF PAYMENT"; : Input Pat 

6220 7 “IS THIS CORRECT" :Gosub 11100 

6230 If KeyOAsc("Y“) And KeyOAsci'y") Then 6210 

6300 Pd=Pd+Pat:Bd=Bd-P®t 

6400 Gosub 17500: Gosub 17000: Goto 8000 

6500 Trap 8000: Gosub 15000 

6600 Gosub 16500: If Tt=Cn$(l,Len(T$) ) Then 6100 

6700 If Acc>*Nac Then 8000 

6710 Goto 6600 

6900 Graphics 0:Poke 710,Cl:Poke 712, 2: Posi tian 12,0:7 "SELECTED ACCOUNTS" 

7000 Gosub 12100 

7200 Trap 7500: Acc=Val (Tt) :Acct=T$:T$=“#*,Acc$, “8“ 

7210 F=FindiAcpt$,T$,0) : If F=0 Then 7 “ACCOUNT NOT ON FILE}}}": For H=1 To 100:Next H:6oto 6900 
7220 Gosub 12000 
7260 Goto 7600 

7270 Gosub 14900: Gosub 10000: Goto 8000 
7500 Trap 8000:Gosub 15000 

7510 Trap 7520:Gosub 16500: If T$=Cnl!l,LeniT$!) Then 7600 
7520 If Acc)=Nac Then 8000 
7530 Goto 7510 

7600 Gosub 18000: Gosub 19700: Gosub 21000:Gosub 21 100: Gosub 11100 

7605 If Key=Asc(“^) Then 7510 

7610 If KeyOAsci'P') And KeyOAscCp") Then 8000 

7700 Goto 7270 

8000 Close #l:Close #7 : Goto 300 

8100 7 “THIS FUCNTI0N HILL REINDEX ALL OF THE":? "ACCOUNT FILES. PRESS Y TO START,':? “N TO ABORT. 
8200 Gosub 11100 

8300 If KeyOAsci'Y") And KeyOAsc("y"> Then 800 
8400 Close #l:0pen #1,4,0, "Dl: ACCOUNT. OAT" 

8500 Acpt$="": Trap 9000 
8600 Gosub 16500 

8700 S$=Str$ (Sa) : B$=Str# (Ba) : Acct=Str$ ( Acc) 

8800 Acpt$=Acpt$,“#",Acc$, “8",S$, “i",B$ 

8900 Goto 8600 

9000 Close #l:Poke 1913,80:0pen #1,8,0, “Dl: ACCPT.DAT" 

9100 Rput #l,Acpt$ 

9200 Close #l:Poke 1913,87:Goto 800 

9300 Graphics 0:Poke 710,Cl:Poke 712, C2: Posi ti on 16,0:7 “NEW ACCOUNTS* 

9310 Acc*=Str$(Nac): Gosub 18700: If F=0 Then 8000 

9315 Gosub 18000: Gosub 18200:Gosub 19700 

9320 Position 2,18:7 "IS THIS CORRECT?"; :6osub 11100 

9330 If KeyOAsc!"Y") And KeyOAsc(“y") Then 8000 

9400 Tdt=0:Pd=0:Bd=0:Gosub 17500: Gosub 17000:Nac=Nac+l:Gcsub 18400 

9500 Goto 8000 

9600 Graphics 0:Poke 710,Cl:Poke 712, 2: Posi ti on 15,0:7 "UPDATE/EDIT" 

9610 Gosub 12100 



Y6 30 trap Y/5U:Acc=val ( J$):Acc$=T$:T$- # ,Acc$, 8 

9640 F=Find!Acpt$,TM): If F=G Then ? “ACCOUNT NOT ON FILE})}": For ti=l To lOOiNext N:Goto 9600 
9650 Gosub 12000 

9680 Gosub 18000: Gosub 19700: Gosub 21000: Gosub 21100:? "IS THIS THE 0NE“:Gosub 11100 

9690 If KeyOAscCY") And KeyOAscCy") Then 8000 

9700 Gosub 18200: Gosub 21200 

9710 ? "IS THIS CORRECT?"; :6osub 11100 

9720 If KeyOAsc("Y") And KeyOAscCy") Then 8000 

9730 Gosub 17500: Gosub 17000: Goto 8000 

9750 Trap 8000: Gosub 15000 

9760 Gosub 16500: If T$=Cnt(l,Len(T$) ) Then 9680 

9770 If Acc)=Nac Then 8000 

9780 Goto 9760 

10000 ? #7;Chr$(Ftl!;*#‘;Acc 

10100 ? 17; Using Fl$,Cn*,‘TQ DATE TQT“,Tdt 

10200 ? #7; Using Fl$, Call, "PAID TO DATE", Pd 

10300 ? 17; Using Fli,Ca2$, “BALANCE DUE “ , Bd 

10400 ? 17:? #7: Rc=Rc+l : If Rc>9 Then ? #7;Chrl(Pt4):Rc=0 

11000 Return 

11100 Close #2:0pen #2,4,0, "K: “ : Set #2,Key:Close #2 

11200 Sound 0,100,10,14: For N=1 To 4: Next N: Sound 0, 0, 0, 0: Return 

12000 F=Fi nd (Acptt, "8“ , F) : Sa=Val (Acpt$ (F+l ) ) 

12010 F=Find(Acpt$,"&",F):Ba=Val(Acpt$(F+l!> 

12099 Trap 8000: Gosub 15000: Gosub 16000: Return 

12100 Position 2,2:? "ENTER ACCOUNT NUMBER OR NAME": Input T$ 

12110 If T$="“ Then Pop :6oto 8000 

12199 Return 

14900 Close #7:0pen #7,8,0, “P:“ 

14999 Return 

15000 Close # 1 : Open #1,4,0, "DhACC0UNT.DAT" 

15500 Return 


16000 Point #l,Sa,Ba:Rget #l,Cn$,Cal$,Ca2t,Tdt,Pd,Bd,Acc,Tr«eReturn 
16500 Note #l,Sa,Ba:Rget #l,Cn$,Cali,Ca2$,Tdt,F'd,Bd,Acc,Tr*t:Return 
17000 Point #l,Sa,Ba:Rput #l,Cnt,Cal$,Ca2$,Tdt,Pd,Bd,Acc,Trai:Return 
17500 Close #l:0pen #1,12,0, “Dl : ACCOUNT. DAT“ : Return 

18000 ? ”}":Pasition 2,0:? "ACCOUNT #”;Acc:Position 2,1:? "CUSTOMER NAM£“:Position 2,3:? "CUSTOMER ADDRESS 
18100 Position 2,5:? "CITY, ST. ZIP" : Position 2,7:? "TERMS": Return 

18200 Position 1,2: Input Deposition 1,4: Input Cal$:Position 1,6: Input Ca2$:Position 1,8: Input Trat 
18300 Return 

18400 Trap 8000: Close #1 

18500 Open #1,8,0, " D 1 : SETUP2 . DAT " : Rput #l,D$,Dtot, In,Ytd,Ptd,Ttd,Nac,Tr,Ml,M2,M7,M8,M9,M10 
18600 Close #1: Return 
18700 T$="#",Acc$,"S" 

18800 F=Find<Acpt$, Tt,0) :T=F: If F=0 Then ? ■ 

18900 F=Find(Acpt$,"8",F):Sa=Val (Acpt$!F+U) 

19000 F=Find(Acpt$,”?(",F):Ba=Val lAcpt* (F+D) 

19100 Close #1 : Trap 19300:0pen #1,4,0, “D1 : ACCOUNT. DAT " 

19200 Gosub 16000 
19300 Close #1: Return 

19700 Position 2,2:? Deposition 2,4:? CallsPosition 2,6:? Ca2$:Position 2,8:? Tra$ 

19800 Return 


ACCOUNT FILE IS FULL }}}“: For N=1 To 100: Next W:Return 


20000 ? #7;Chr#!Pt2);Acc;Tab(8);Cn$;Tab(45):Calt;Tab(82);Ca2$;Tab(118);Trffl$;Chr$(Pt3) 
20100 Rc=Rc+l: If Rc>56 Then ? #7;Chr*(Pt4):Rc=0 
20900 Return 

21000 Position 2,9:? "TOTAL SALES“:Position 2,11:? "PAID":Position 2,13:? "BALANCE" 
21010 Return 

21100 Position 2,10:? Tdt:Position 2,12:? Pd:Position 2,14:? Bd 

21199 Return 

21200 Position 1 , 10: Input TdtiPosition 1 , 12: Input Pd: Position 1,14: Input Bd 
21299 Return 


100 Dis Clt(3),C2t(3),Dt(7),Qt(7),Nt(40),At(40),Alt(40),Hisct(2Q!,Dtott(10),Tt(13),Flt(125) 
200 Dim Pn$ < 12) , Des* (30) , Vn* (35) , Val* (35) , Va2$ (35) , ( 10) , Cn$ (35) 

400 Trap 700 


500 Open It, 4,0, "DliSETUP.DAT*: Rget #i,Clt,C2t,Nt,At,Alt,Misct,Ptl,Pt2,Pt3,Pt4,H3,M4,M5,M6:Close #1 
550 Open #1,4,0, “D1 : SETUP2. DAT" : Rget #l,Dt,Dtot, In,Ytd,Ptd,Ttd,Nac,Tr,Nl,M2,M7,M8,M9,M10 
560 Max=22000:Dia SS (5) , (45 , Pnpt* (Max *H2 ) 

600 Close #1 : Open #1,4,0, "02: INVPT.DAT": Rget tl,Pnpt$ 

700 Close #1 


800 Graphics 2:Poke 710,Cl:Poke 712,C2:Poke 755, liPoke 82,2 

850 Position 5,2:? #6; "inventory'.-Position 3,6:? #6; "COPYRIGHT 1983" 

900 Position 5,7:? #6; "NEWELL IND" 

1000 Cl=Val !C1$) :C2=Val (C2$) 


1100 Poke 710, Cl : Poke 712,C2:Poke 755, l:Poke 82,2 
1200 Poke 657,20- (Len (M$ ) /2) : ? N$ 

1300 Poke 657, 20- (Len ( A$) /2) :? At 
1400 Poke 657, 20- (Len (Al$> /2) : ? Alt 
1500 Poke 657, 20- (Len (Hi set) /2) :? Hi set; 

1600 Del 100,700 
1625 Del 850,1600 
1700 Trap 1700:? #6; "l" 

1800 Position 1,1:? #6; “Add inventory“:Position 1,2:? #6;"Inventory edit“:Position 1,3:? #6; "Exit to aenu" 
1900 Position 1,4:? #6;“Print inventory": Position 1,5:? #6;”Recover files" 

2000 ? 'TENTER FIRST LETTER OF YOUR CHOICE." 

2100 Gosub 11100 

2200 Position 0,9 

2300 If Key=Asc("A") Then 2900 

2400 If Key=Asc("I") Then 4300 

2500 If Key=Asc("E"! Then ? #6: “LOADING MENU" : Run "D’.MENU" 

2600 If Key=Asc("P“) Then 6900 

2700 If Key=Asc("R") Then 8100 

2765 If Key=Asc ( " ") Then Run "D-.INVOICIN" 

2770 If Key=Asc("‘ ) Then Run "D: REPORTS" 

2775 If Key=Asc<" 

"> Then Run "Ds MAILLIST" 

2780 If Key=Ase <"") Then Run "D:0RD£RREC" 

2800 Goto 1700 

2900 Graphics 0:Poke 710,Cl:Poke 712,C2:Position 14,0:? "ADD INV£NTQRY":Position 11,1:? "ENTER ’END’ TO QUIT" 

3000 Pnt=*“:De5t=“ , :8oh=0:Co5t = 0:Pri=0:Sold=0:Tds=0:Qoo=0 

3100 Gosub 9000: Gosub 9600 

3200 If Pnt="END” Then 4500 

3300 Gosub 10600: If F>0 Then 3100 

3400 ? "IS THIS INFORMATION CORRECT (Y OR N).'; 

3500 Gosub 11100 


3600 If KeyOAsc("Y") And KeyOAscCy") Then 2900 

3700 Trap 3800: 6oto 3900 

3800 Trap 4400:0pen #1,9,0, “D2: INVFIL.DfiT" 

3900 If Len (Pnptt) >Max IM2-15 Then ? “} MEMORY FULL, SAVING INDEX":6oto 4500 

4000 Note #l,S,B:Rput #l,Pnt,Dest,Vnt,Valt,Va2t,8oh,Loct,Reo, Cost, Pri, Sold, Ids, Qoo,Pg 

4100 St=Strt(S!:Bt=Strt(B) 

4200 Pnptt=Pnptt,'#",Pnt, "8",St,"&",Bt 
4300 6oto 2900 

4400 ? "1DISK ERROR})": Close #l:Goto 2900 

4500 Close IliPoke 1913,80:0pen #1,8,0, "D2: INVPT.DAT" 

4600 Rput #1, Pnptt 

4700 Close #1 : Poke 1913, 87: Soto 800 

4300 Graphics 0:Poke 710,Cl:Poke 712, C2: Posi tion 14,0:? "INVENTORY EDIT“:Position 11,1:? "ENTER ’END’ TO QUIT" 
4900 ? :? "PART NUMBER": Input Pnt:? * ":If Pnt=“END° Then Close #l:6oto 800 

5000 Tt="#",Pnt, "§" 

5100 F=Find (Pnptt, Tt,0):T=F: If F=0 Then ? " PART NUMBER NOT IN INVENTORY}}}": For W=1 To 100:Next N:Soto 4800 
5200 Trap 5700:F=Abs(F):F=Find (Pnptt, "§”,F):S=Val (Pnptt (F+ll) 

5300 F=Find (Pnptt, “J-",F): B=Val (Pnptt (F+l ) ) 

5400 Trap 5500: Goto 5600 
5500 Open #1, 4, 0,“D2: INVFIL.DAT" 

5600 Point #l,S,B:Rget #1, Pnt, Dest,Vnt,Valt,Va2t,Qoh,Loct,Reo, Cost, Pri, Sold, Tds,Qoo,Pg 



5610 It Iest=l I hen Test=0:Goto 5000 

5700 ? “imposition 14,0:? “INVENTORY EDIT":? :6csub 9000 
5800 ? "(E)DIT; (Q)UIT; (S)AVEj (N)EiT; ; 

5900 Sosub it 1 00:? "" 

6000 It Key=Asc("E“) Or Key=Asc!“e“) Then 6400 

6100 If Key=Asc("G") Or Key=Asc!"q"i Then Close #l:Goto 800 

6200 If Key=Asc ( “S’* ) Or Key=Asc("s") Then 6500 

6300 If Key=Asc("N"> Or Key=Asc("n“) Then 4300 

6310 If Key=Asc("+") Then F=T-10:If F>=0 Then Test=i:Goto 5200 

6320 If Key=Asc!“<“) Then Test=l:Goto 5200 

6350 Goto 5700 

6400 Gosub 9600: Goto 5700 

6500 Gosub 10600: If F>0 And TOF Then 5700 


6600 Close it.-Open # 1 , 1 2, 0, “D2: INVFIL.DAT" 

6700 Point #l,S,B;Rput 11, Pnl,Des$,Vn$, Vail, Va2$,9ah, Loci, Reo, Cost, Pri , Sold, Tds,Qoo,Pg 


6300 Close #t:Goto 4800 

6900 Graphics 0: Poke 710, Cl : Poke 712,C2:Position 17,0: ? “OPTIONS" :Gtc=0:Gtp=0 
6910 ? :? "1-ALL":? "2-BY VENDOR NAME":? “3-BY PRODUCT GROUP":? "4-PRICE LIST" 

6920 ? "5-BELOW REORDER POINT and not on order" 

6930 Gosub 11100:Key=Key-48: If Key>5 Or Key<l Then 800 

7000 Trap 8000:Close #l:0pen #1,4,0, "D2: INVFIL. DAT“ : Open #7,8,0, “P: “ 

7100 If Key=4 Then Gosub 15000: Goto 7500 

7200 Cn$=" INVENTORY “: If Key=5 Then Cn$=“L0H INVENTORY " 

7300 If Key=2 Then ? “VENDOR NAME";: Input Cnl 

7400 Trap 7400: If Key=3 Then ? "PRODUCT GROUP":: Input Pqn:Cnl="PRQDUCT GROUP #',Strl(Pqn) 
7450 Gosub 12000 


7500 Trap 7900: Rget #l,Pnl,Desl,Vnt, Vail, Va2t,9oh, Loci, Reo, Cost, Pri, Sold, Tds, Boo, Pg 

7600 Trap 7700:Tcost=0:Tcost=Co5ttfloh:Tpri=0:Tpri=PritQoh:Gpis=100 

7650 Gps=(Int((l-(Cost/Pri) >11000))/ 10 

7700 On Key Gosub 12600,13000,14000,15600,16000 

7800 Goto 7500 


7900 ? #7;Chrl(Pt3>:? #7; "WHOLESALE VALUED" ;6tc:? #7; "RETAIL VALUE=l“;Gtp:? #7;Chr$!Pt4) 
8000 Close #1: Close #7: Goto 800 


8100 ? "THIS FUCNTION WILL REINDEX ALL QF THE":? "INVENTORY FILES. PRESS Y TO CONTINUE,":? "N TO ABORT. 
3200 Gosub 11100 


8300 If KeyOAsc("Y") And KeyOAscCy") Then 800 
8400 Close #i:0pen #1,4,0, "D2: INVFIL.DAT" 

8500 Pnptl=“":Trap 4500 

8600 Note #l,S,8:Rqet #l,Pnl,Desl,Vnl, Vail, Va2t,9oh, Loci, Reo, Cost, Pri, Sold, Tds, Boo, Pg 
8700 SI=Strlisi :BI=Strl(B) 

8800 Pnptl=Pnptl, "#",Pnl, "§“,SI, “li",BI 
8900 Goto 8600 


9000 Gpa=0:lf Cost>0 And Pri>0 Then 6p#=(Int((l-(Cost/Pri))ll000))/10 
9050 Position 2,2:? "PART NUMBER: °;Pnl 
9100 ? "DESCRIPTION;":? Desl 


9200 ? 
9300 ? 
9350 ? 
9400 ? 
9450 ? 


'VENDOR;":? Vnl:? Vail:? Va2$ 

“QQH: “;Qoh:? "LOCATION: ";Loc$:Position 28,10:? "GPM “jGpm; “% " 
"REORDER POINT: ";Reo:? "COST: $ B ; Cost : ? "SALE PRICE:t";Pri 
“9UANITY SOLD: ":Sold:? "TOTAL DOLLAR VALUE SOLD: $ H ; Tds: ? "STY ON ORDER: 
■GROUP: “;Pg 


» * 
* 


Qoo 


9500 Return 

9600 Position 14, 2s Input Pn$;If Pn$=“END“ Then Return 

9700 Position 1,4; Input Des$:Position 1,6; Input Vn$; Position 1,7; Input Val$;Position 1,8; Input Va2$ 
9800 Trap 9800;Pcsition 6,9; Input QohiPosition 11, 10; Input Loc$ 

9900 Trap 9900s Posi ti on 16, 11; Input Reo 
10000 Trap 10000: Position 7, 12; Input Cost 
10100 Trap 10100: Posi t i on 13, 13; Input Pri 
10200 Trap 10200; Position 15, 14; Input Sold 
10300 Trap 10300: Posi ti on 26, 15; Input Tds 
10400 Trap 10400; Position 15, 16; Input Soo 
10450 Trap 10450: Posi tl on 8, 17; Input Pg 
10500 Return 


10600 T$= M #\Pn$, u & H 

10700 F=Find(Pnpt$,T$,0) : It T=F Then Return 

10800 If F>0 Then ? 8 PART NUMBER ALREADY EXIST}}} 41 : For W=1 To 100;Next M 
10900 Return 



nuvy tno 


11100 Close 12: Open #2,4,0, *K: ":Get #2,Key:Close #2 

11200 Sound 0,100,10,14: For W=1 To 4:Next M:Sound 0,0,0, OsReturn 

12000 Fl$="!i !!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!! #»### ##### #####,## #*###.*# ##*## !!!!!!!!!! 


12050 F1$=F1$, “#####! . ## #*####. #4 ###.*' 


12100 ? #7 : ? #7; Tab ! 32-Len <Cn$) /2) ; Cn$; " 
12200 ? 17; “PART # DESCRIPTION 

12250 ? #7;" T/COST T/RETAIL GPH" 


”;D$U,2!;“/ , ;D$(3,4);“/";D${5);Chrt(Pt2):? #7 


GROUP QOH COST PRICE 


12300 


For W=1 To 120:? #7;“=*i:Next W:? #7 


12500 Line=4:Return 

12600 ? #7; Using Fit, Pni,Dest,Pg,3oh, Cost, Pri,Soo, Loci, Tcost,Tpri,Gpa 
12700 Stc=&tc+Tcost: Gtp=Stp+Tpri 

12900 Line=Line+l:If Line>=60 Then ? #7:Chrf(Pt3);Chrt(Pt4):6oto 12100 

12999 Return 

13000 Trap 13500: If Oni(l,Len(Cnt) j=Cnt Then 12600 
13500 Return 

14000 If Pg=Pgn Then 12600 
14500 Return 


GOO LOCATION 


15000 Fl#=" !!!!!!!!!!!! !!!!!!!! 1 !! 1 ! 1 !! 1 1 1 1 1 11 1 mm 


15100 ? #7:? #7; Tab (27) ; "PRICE LIST *;Dt(l,2) 
15200 ? 17; "PART # DESCRIPTION 


7";D$(3,4!;“/“;D$!5! 

LOCATION 


#####.##“ 

? 17 

PRICE" 


15300 For H=1 To 78:? #7;“=‘;:Next «:? #7 
15500 Line=4; Return 


15600 ? #7; Using Fit, Pn$,Des$, Loot, Pri 

15900 Line=Line+i:If Line=60 Then ? #7;Chri(Pt4) : Sato 15100 

15999 Return 


16000 If Goh+Goo<Reo Then 12600 
16500 Return 

30000 ? tint ! (1-175/101 ) ItlOOO) ) 710 



100 Dll Cl$(3),C2t(3),Dt(7),O$<7),N*(4O),At(40),Alt(4Q),Misct(2O),DtotiilO),Tt(13},Fl$(120) 

200 Din Pni(12),Desi(30),Vnt(35) f Valt(35),Va2t!35),Loct(i0),Pvt(35),Palt(35),Pa2$(35) 

400 Trap 700 

500 Open #1 , 4, 0, "Di : SETUP. DAT" : Rqet A*,Al$,Hisc*,Ptl,Pt2,Pt3,Pt4,M3,M4,H5,M6sClose *1 

550 Open #i , 4, 0, *D1 s SETUP2. DAT" : Rget #i,D$,Dtot,In,Ytd,Ptd,Ttd,Nac,Tr,Hl,H2,«7,N8,H9,H10 
540 Max =22000; Di® St(5>,Bit4),Pnptt(MaxtM2) 

400 Gosub 18500 
700 Close #1 

800 Trap 800; Graphi cs 2:Poke 710, Cl : Poke 712,C2:Poke 755, 1 ; Poke 82,2 
850 Position 3,1;? t4;"order reci evi ng " : Posi ti on 3.4:? #4; “COPYRIGHT 1983“ 

900 Position 5,7;? #4; "NEWELL IND" 

1000 Cl=Val(Clt):C2=Val(C2t) 

1100 Poke 710, Cl : Poke 712,C2:Poke 755,l:Poke 82,2 
1200 Poke 457,20-(Len(Nt5/2):? Nt 
1300 Poke 457,20-<Len(At)/2):? At 
1400 Poke 457,20-(Len(Alt)/2):? Alt 
1500 Poke 457, 20- (Len (Mi set ) 72) : ? Misct; 

1400 Del 0,700 
1425 Del 850,1400 
1700 Trap 1700:? #4;“}“ 

1800 Position 1,1:? #4;“0rder‘:Position 1,2:? #4: “Receiving": Position 1,3:? #4; “Exit to »enu“ 

1900 Position 1,4:? i4;“Turn report“:Position 1,5:? i4:“Sales report* 

2000 ? “’ENTER FIRST LETTER OF YOUR CHOICE." 

2100 Gosub 11100 
2200 Position 0,9 

2300 If Key=Asc(“Q“) Then Te=0:6oto 2900 
2400 If Key=Asc("R") Then 4800 

2500 If Key=Asci“E“) Then ? #4; “LOADING MENU": Run "D:MENU" 

2400 If key=Asc(“T“) Then 4900 
2700 If Key=Asc(“S“) Then 8100 
2745 If Key=Asc("“) Then Run "D: INVENTOR" 

2770 If Key=Asc(“"> Then Run "Ds REPORTS" 

2775 I f Key=Asc < " 

") Then Run "D: MAILLIST" 

2780 If Key=Asc ( " "> Then Run "D; INVOICIN'' 

2800 Goto 1700 

2900 Graphics Os Poke 710, Cl: Poke 712, 02; Posi t ion 13,0;? "PURCHASE OF^DER" 

2950 If Te=0 Then Position 11,1s? "ENTER “ END" TO ABORT" 

3000 F'n$= " " ; Des$=" " ; Vn$=" " ; Val$=" " ; Va2$=" " : Goh=0: Loc$ : 

=0; Tds=Os Qoo=0 

3100 ? : ? "PART NUMBER" : Input F‘n$:? " 
en 8000 

3150 If Pn$="NEXT" Then Gosub 13500: Goto 2900 
3200 If Pn$=" " And Te>0 Then 4500 
3300 Gosub 13000; If F=0 Then 2900 
3350 Gosub 14000; Gosub 9000 

3400 ? "IS THIS THE PART <Y OR N).";s Gosub 11100 
3500 If Key < > Asc ( " Y " ) And Key< >Asc ( "y" ) Then 2900 
3600 If Pv*= " " Then F' v $ = V n $ : P a 1 $ = V a 1 T : P a 2 $ - V a 2 $ 

3700 If Pv$< >Vn$ Then ? :? "NOT SAME VENDOR! IS THIS 
sc ( " Y " ) And Kev< >Asc ( " y " ) Then 2900 

3800 ? " }":Position 2,2:? "QUANITY TO ORDER"; : Trap 3800; Input Hm: If Hm< 1 
00 

3900 ? : ? "IS THIS CORRECT?" Gosub 11100: If Key< >Asc ( " Y " ) And Key< >Asc ( "y “ ) The 
n 3800 

3950 Qoo=Qoo+Hm 

4000 If Te< 1 Then Gosub 16000 

4100 Gosub 17000: Gosub 10000: Goto 2900 


It it 


2 Reo-Os Cost -Os Pr i -Os Sol d 


ii 


s If Te=0 And pn$~“END u Th 


OK? n ; s Gosub 111 00 s I f Key< >A 

Then 29 


4500 

45 1 0 
4550 
4600 




#7 


n 

«l 

II 


II 


•**“, l| 

4 




> TERMS" ;: Input T % : ? " AUTH. s Input Q$ 

#7; "DATE " ; Dt ( 1 , 2) ; " / " ; D$ (3, 4 > ; " / " ; D$ (5) ; " 
#7; "TOTAL ; Tot ; Chr* (Pt4) 


TERMS " ; T$; " AUTH 


it 






4 7 O O Pv$=“ "! T e = O s T ot-Os lil O -Ml O ■+ 1 s G o s u b 1 8 O O O s G o t o 8 O O O 


ti 

n 



*+ou u urapnics u:ro«e / 10 , Li : Poke /12, C2: Posi t i on 14,0:? "RECEIVING P. 0. " : Posi tio 
n 11,1:? "ENTER ’END' TO QUIT" 

4900 ? : ? "PART NUMBER" : Input Pn$; ? " " ; If Pn$="END" Then Close 

# 1 : Goto 800 

4950 I f F'n$="NEXT" Then Gosub 13500: Goto 4800 
5000 Gosub 13000: If F-0 Then 4800 
5100 Gosub 14000: Gosub 9000 

5200 ? "IS THIS THE PART (Y OR N>.";: Gosub 11100 
5300 If Key< >Asc < " Y" ) And Key< >Asc ( "y " ) Then 4800 

5400 ? Posit ion 2,2:? "QUANITY RECEIVED" ;: Trap 5400: Input Hm: If Hm< 1 Then 48 

00 


5500 ? : ? "IS THIS CORRECT?" Gosub 11 100: If Key< >Asc ( "Y" ) And Key< >Asc ( "y " > The 
n 5400 

5600 Qoo=Qoo-Hm: Qoh=Qoh+Hm: If Qoo<0 Then Qoo=0 
6 0 0 0 Gosub 1 0 0 0 0 
6800 Goto 8000 

6900 Graphics 0:Poke 710,Cl:Poke 712, C2: Posi t i on 15,0:? "TURN REPORT" 

7000 Position 2,2:? " 1 . TURN" s Posi ti on 2,4:? "2. TURN AND CLEAR" : Posi ti on 2,6:^ "3 
.EXIT" 

7100 Trap 7100: Posi ti on 2,18;? "ENTER CHOICE" : Input Key: If Key =3 Then 800 
7200 If Key >3 Then 7100 

7300 F= 1 : Cl ose #7 : Open #7,8, 0 , " P; " ; Gosub 9600 
7400 Trap 7900: Gosub 13200: If F=0 Then 7900 
7500 Gosub 14000 

7700 ? #7; Using F 1 % , PnS , Desf , Qoh , Cost , Pr i , Qoo , Loc$, Sol d , Tds 
7750 If Key=2 Then Sol d=0: Tds=0: Gosub 10000 
7800 Goto 7400 

7900 ? #7 : Chr S ( F't 3 ) : ? #7 ; Ch r $ ( Pt 4 ) 

8000 Close #1: Close #7: Goto 800 

8100 Graphics 0:Poke 710, Cl: Poke 712, C2: Posi t i on 13,0:? "SALES REPORT" 

8200 Position 2,2;? " 1 . TOTALS" : Posi ti on 2,4:? "2. TOTALS AND CLEAR" : Posi ti on 2,6: 

11 j“ x I T 1 1 

8300 Position 2,8:? "4. NEW YEAR (Cl ears all sales data)" 

8400 Trap 7100; Posi ti on 2,18:? "ENTER CHOICE" ; Input Key: If Key =3 Then 
8500 If Key >4 Then 8400 

8600 Close #7;0pen #7, 8, 0, "P: " : ? #7; Chr$ (Pt 1 ) ; "SALES REPORT ";D$(i,2> 

) ; "/"sD*<5,6> 

8650 F 1 $= " $######### . ## " 

8700 ? #7; "YEARLY SALES = ";:? #7; Using Fl$,Ytd 
8710 ? #7; "PERIOD SALES = ";;? #7; Using Fl$,F‘td 
8720 ? #7; "TAXABLE SALES=";:? #7: Using Fl*,Ttd 
8790 ? #7;Chr$(Pt4) 

8800 If Key>l Then Ptd=0: Ttd=0: Dtot=0: If Key=4 Then Ytd-0 
8850 If Key >1 Then Gosub 18000 
8900 Got o 8000 
9000 Posi t i on 


"/" : Df (3,4 




PART NUMBER: ":Pn$ 

9 1 00 ? " DESCR I PT ION;";? Des$ 

9200 ? "VENDOR;":? Vn$;? Val$:? Va2$ 

9300 ? "QOH: " ; Qoh : ? "LOCATION: ";Loc$:? "REORDER POINT: ";Reo:? "COST: Cost : ? 

"SALE PRICE: $";Pri 

9400 ? "QUANITY SOLD; ";SoId:? "TOTAL DOLLAR VALUE SOLD: $" ; Tds: ? " QTY ON ORDER: 

" ; Qoo 

9450 ? "GROUP: " ; Pg 

9500 Return 

9600 Fl$=" !!!!!!!!!!! ! i I i !!!!!!!! I !!!!!!!! I i ! i ! i ! I !! i !!!!!! ! #### ###.## ###.# 
# ##### !!!!!!!!!! ######### ######.##" 

9650 ? #7; Chr$ (Pt 1 ) ; "TURN REPORT " ; D$ < i , 2) 5 "/" ; D$<3,4> ; ; D* (5) 

9700 ? #7; Chr$ (F‘t2> 

9800 ? #7; "PART # DESCRIPTION QOH 

CE QOO LOCATION TURN AMOUNT" 

9900 For W=1 To 120:? #7; "=" ; : Next W:? #7 

9999 Return 

1 0000 Close # 1 : Op en #1 , 12,0, "D2: I N VF I L . D AT " 

1 0 1 00 Point # 1 , S , B s Rput # 1 , F'n* , Des$ , Vn$, Va 1 % , Va2$ , Qoh , Loc$, Reo , Cost , Pr i , Sol d , Td 
, Qoo,Pg ..... 

10200 Close #1: Return 


COST PR I 




lllOO Li ose #2: Upen #2, 4, U, K: : bet #2, Keys Close #2 

11200 Sound 0,100,10,14: For W=1 To 4: Next Ws Sound 0 , 0 , 0 , 0 : Return 

13000 Tt="#",Fnt, "@" 

13100 F=Find (Pnptt,Tt,0> : T=F: If F=0 Then ? " PART NUMBER NOT IN INVENTORY! }}"': 
For W=1 To 100: Next W; Return 
13200 F=Find (F’nptt, "(§" , F) : S=Val (Pnptt (F+l ) ) 

1 3300 F=Fi nd ( Pnptt , " ?< " , F> s B=Val < Pnptt ( F+ 1 ) ) 

13400 Return 

14000 Trap 8000: Cl ose #1 

14100 Open #1 , 4, 0, "D2; INVFIL. DAT" 

14200 Poi nt #1 , 5, 8: Rget #1 , Pnt , Dest , Vnt , Val t , Va2t, Qoh , Loct , Reo, Cost, Pr i , Sol d , Tds 
, Qoo, Pg 
14300 Return 

16000 Trap 16100: Close #7: Open #7, 8, 0, "Ps " : Goto 16200 

16100 ? "TURN ON PRINTER AND PRESS RETURN} " : Sosub 11 100: Goto 16000 
16200 ? #7 ; Nt ; ? #7; At:? #7; Alt:? #7; Mi sot 

16300 ? #7:? #7:? #7; Tab (30) ; Chrt (Pt 1 ) » "PURCHASE ORDER":? #7; Tab (33) ; Chrt (Pt 1 ) ; " 
# " ; M 1 0 : ? #7:? #7 

i A / \ \ '** J* 44* / tt ^ * ***** **r*r ***** ***** ***** ***** ***** — *• *•**• »«" *••** «*• •— »••• *«— •— — «♦« «•« -•**• ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** .,**. ***** i i 

j i i [ti i “y • •j*J* j i| ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** * **** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** 

16500 ? #7; Chrt (Pt 1 >; "VENDER: ": Tab (21) ; "SHIP TO;" 

1 6600 ? #7 ; Pvt ; Tab ( 40 ) ; Nt 
1 6700 ? #7 : Pa 1 t ; Tab ( 40 ) ; At 
1 6800 ? #7 : F'a2t : Tab ( 40 ) ; A 1 1 


16900 ? #7:" 


li 


#7:? #7 


16910 ? #7; "PART Tab ( 14) s "DESC. /VENDOR P/N" ; Tab (52) : "QUAN" ; Tab (5S) ; “PRICE EA" 
; Tab (68) ; "EXT. PRICE" 

1 Xw K**^ ( j * |k * / n ^ ^ ***** ‘ 2UI ***** ***** **y ***** ^ jjjjj ^ «■»» «••• •«« »•» **** * .»» ***** ***** ..... **** * ***** ***** ***** ***** ***** -+*+* ***** ***** ***** ***** ***** ***** >m t ***** ***** ***** ***** ..... ^ ^ ^ 


H 


16999 Te— 1 s Return 

17000 FI £—"#### #####„## #####. ##" 

17100 ? #7;Pn**Tab(14) jDes*sTab(52) ; s? #7; Using Fl$, Hm, Cost , Cost *Hm 
1 7500 Tot = Tot +Cost *Hm 
17999 Return 


18000 

Cl ose 

# 1 : Open 

# 1 , 8 , ( 

D, "D1 

, M1,M 

2 , M7 ? M8 

L M9, M10 



1 8 1 00 

Cl ose 

# 1 s Return 


18500 

Cl ose 

#1 s Upen 

* 1 , 4 , ( 

}, " D2 

18600 

Cl ose 

#1 s Retur 

n 



100 Dim C 1 $ ( 3 ) ,C2t(3> , Dt (7) ,Qt(7> , Nt(40) , At(40> , Alt (40) , Mi sc* (20) , Tt(38) , Fit (120 


) 


•$######„##" 


1 50 F 1 n J J | j | J j { j j | j { j j | | | j j j • i t i » * i ! i • i i i i » i ! i i i t i t i i i i i i ! i 

200 Dim Acct ( 8 ) , Cnt (35) ,Cal*(35> ,Ca2t<35) ,Trm*(12) 

400 Trap 700 

500 Open #1,4,0, "D1 s SETUP. DAT" : Rget #1 , Cl t, C2t , Nt, At, Alt, Mi set, Pt 1 , Pt 2 , Pt 3 , Pt 4 , M 
3, M4, M5, M 6 : Cl ose #1 

550 Open #1,4,0, "D1 ; SETUP2. DAT" : Rget #l,Dt,Dtot, In , Ytd , Ptd , Ttd , Nac , Tr , Ml , M2, M7, M 
8 , M9 , M 1 0 

560 Max =22000 ; Di m St (5 ) , Bt (4 ) , Acp 1 1 ( Max #M 1 ) 

600 Close # 1 s Op en #1,4,0, " D 1 : ACCPT . DAT " : Rg et # 1 , Ac p 1 . 1 
700 Close #1 

800 Graphics 2: Poke 710, Cl : Poke 712, C2: Poke 755,1 
850 Position 4,2:? # 6 ; "mailing 1 i st " : F'osi t. i on 3,6 
900 Position 5,7:? # 65 "NEWELL IND" 

1 000 C 1 =Va 1 ( C 1 t ) : C 2 = Va 1 ( C 2 t ) 

1 1 00 Poke 7 1 0 , C 1 : Poke 7 1 2 , C2 : Poke 755 , 1 : Poke 82 , 2 

(Len (Nt) /2) : ? Nt 
(Len (At) /2> : ? At 
(Len (Alt) /2) : ? Alt 
(Len (Mi set ) /2) : ? Mi set; 


Poke 82,2 

? # 65 "COPYRIGHT 1983" 


1200 Poke 657,20 
1300 Poke 657,20- 
1400 Poke 657,20- 


1500 Poke 657,20- 
1600 Del 0,700 
1625 Del 850,1600 


1700 Trap 1700 




#6 


It ** it 


1800 Position 1,1s? # 6 ; “ AI 1 n s Posi t i on 
Exit to menu" 

1900 Position 1,4s? # 6 ? "Selected accounts" 
2000 ? n > ENTER FIRST LETTER OF 
2100 Gosub 11100 


# 6 ; "Outstandi nq n s Posi t i on 1,3s? #6 


it 


YOUR CHOICE 


II 




200 F'osi t i on 0 , 9 
300 If Key=A.sc ( "A" ) 
If Key=Asc ( "0" ) 
Key=Ase ( "E" ) 


2400 

2500 


If 


2600 If Key=Asc ( "S" ) 
2 765 
2770 


Then 2900 
Then 4800 

Then ? # 6 ; "LOADING MENU": Run "D: MENU" 
Then 6900 


n — r cil 

jC / / 


o If 
2780 If 


If Key=Asc ( " " > Then Run "D: INVENTOR" 

If Key=Asc ( " " ) Then Run "D: REPORTS" 

Key=Asc ( " ") Then Run "D: INVOICIN ' 1 

Key=Asc ( "") Then Run “DsQRDERREC" 

2800 Bcto 1700 

2900 Sraphics OiPoke 710,Cl:Poke 712,C2:Position 16,0:? “ALL ACCOUNTS” 

2950 Trap 2950;? “ENTER NUMBER OF LABEL LINES"; : Input Lab 

3000 Trap 8000;6osub 15000 

3300 Bosub 16500: If Cn$="“ And Acc>Nac Then 8000 

3350 If Cn$=“" Then 3300 

3400 Bosub 14900: Bosub 10000 

3800 Soto 3300 

4800 Sraphics 0:Poke 710,Cl;Poke 712,C2:Position 10,0:? "OUTSTANDING ACCOUNTS 

4850 Trap 4850:? "ENTER NUMBER OF LABEL LINES";: Input Lab 

4900 Trap 8000: Gosub 15000 

5000 Bosub 16500: If Acc>Nac Then 8000 

5100 If Bd<=0 Then 5000 

5200 Gosub 14900: Bosub 10000 

5300 Goto 5000 

6900 Graphics OiPoke 710,Cl:Poke 712,2:Position 12,0:? “SELECTED ACCOUNTS" 
6950 Trap 6950:? "ENTER NUMBER OF LABEL LINES';: Input Lab 
7000 Position 2,2:? "ENTER ACCOUNT NUMBER OR NAME": Input T$ 

7100 If T$="" Then 8000 

7200 Trap 7500:Acc=Val(T$):Acc$=T$:T$=”#",Acct,"@" 

7210 F=Find (Acpt*, Tt , 0) : If F =0 Then ? "ACCOUNT NOT ON FILE)}}": 

7220 F=Find(Acpt$,“@“,F):Sa=Val (Acptt (F+l ) > 

7230 F=Find (Acptt, "fc“,F) :Ba=Val (Acpt$(F+15 i 
7250 Trap 8000: Gosub 15000: Bosub 16000 
7260 Goto 7600 

7270 Bosub 14900: Gosub 10000: Soto 7600 


For W=1 To 100: Nest H:Goto 6900 





7500 Trap 8Q0U:bosub 15000 

7510 Trap 7520:6osub 1 6500 : I f T$=Cn$ii,len(T$>) Then 7600 
7520 If Acc>=Nac Then 8000 
7530 Soto 7510 

7600 Sosub 12000: 6osub 11100 

7610 If KeyOAsc!“P") And KeyOAscCp") Then 8000 

7700 6oto 7270 

8000 Close #l:Close #7:6oto 800 
10000 ? #7;Chr$ (Pt 1 ) ; “# a ; Acc 
10100 ? #7;Cn$ 

10200 ? #7:Cal$ 

10300 ? #7;Ca2$ 

10400 For N=1 To Lab-4:? 17: Nest 14 
11000 Return 

11100 Close #2: Open #2,4,0,“K:“:Get #2, Key: Cl ose #2 

11200 Sound 0,100,10,14: For 14=1 To 4: Nest W:Sound 0,0,Q,0:Return 

12000 ? “ACCOUNT F;Acc:? Cn$ 

12100 ? Cal$ 

12200 ? Ca2$:? 

12999 Return 

14900 Close #7:0pen #7,8,0, "P:“ 

14999 Return 

15000 Close #1 : Open #1,4,0, “DhACCOUNT. DAT” 

15500 Return 

16000 Point #l,Sa,Ba:Rget #l,Cn$,Cal$,Ca2$,Tdt,Pd,Bd,Acc,Trffl$:Return 
16500 Note tl,Sa,Ba:Rqet #l,Cn$,Cal$,Ca2$,Tdt,Pd,Bd,Acc,Tr«$:Return 
17000 Point #l,Sa,8a:Rput #i,Cn$,Cal$, Ca2$, Tdt , Pd , Bd, Acc , Trmf : Return 
17500 Close #l:0pen #1,12,0, "Dl: ACCOUNT. DAT": Return