Skip to main content

Full text of "Newell Industries SBM 130 v1.0 source code"

See other formats


1000 

1010 

1020 

1025 

1030 

1040 

1045 

1050 

1055 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1215 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1420 

1425 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 



ACCOUT NUMBER NOT ON FILE }}}":For W=i To 100:Next N: Return 


Re* . SBH130 8/03/85 
6oto 2500 

Graphics 2:Poke 710,Cl:Pofce 712,C2:Poke 755, lsReturn 
Graphics 0: Poke 710, Cl : Poke 7 12, C2; Return 
Position 2,9:? "P.O. NUMBER" 

Return 

Trap 1 U45: Position 2,2:? ''NUMBER OF LABEL LINES ";Lab:Position 23,2: Input LabiReturn . . , rj 

Position 1,2: Input Cn$: If Cn$="" Then Po sitio n 2,fr ? “CAS H- s(teturn_ CNJt - rU-lf' 

Position 1,4: Input Cn2$: Position 1,6; Input Cal$: Position 1,8; Input Ca2$:Return 
Position 1,10; Input Pon$ 

Return 

? ;? "PART NUMBER"; Input Pnl:If Pn$="END u Or Pn$="NEXT" Then Return 
T$= H #”,Pn$, 8 ® M 

F=Find(Pnpt$,T$,0):T=F: It F=0 Then ? " PART NUMBER NOT IN INVENTORY} } } * : For N=1 To 100:Next W:Return 
F=Find(Pnpt$, 8 §%F);S=VaHPnpt$(F+l)) 

F=Find (Pnpt$, ,F) ;B=VaI <Pnpt$(F+l) ) : Return 
Trap 1150: Open #1,4,0, 8 D2: INVFIL.DAT 8 : Return 

Point #l,S,B:Rget #l,Pn$,Des$,Vn$,Val$,Va2$,Qoh,Loc$,Reo, Cost, Pri, Sold, Tds,9oo,Pg 
Close #1 : Return 
Trap 1210: Cl oss #1 

Open #1,8,0, B B1: SETUP2.DAT" :Rput #l,D$,Dtot,In,Ytd,Ptd,Ttd,Nac,Tr,Ml,M2,M7,M8,M?,M10 
6oto 1210 

Trap 1210:Close IlsDpen #1,12,0, "D2: INVFIL.DAT" 

Point #l,S,B:Rput #l,Pn$,Des$,Vn$,Val$,Va2$,Qoh,Loc$, Rea, Cost, Pri, Sold, Tds,Qoo,Pg 
Close #l:Return 

? 8 } ENTER FIRST LETTER OF YOUR CHOICE. 8 
Close #2: Open #2,4,0, 8 K: 8 :6et #2,Key;Close #2 
Sound 0, 100, 10, 14: For W=1 To 4: Next N:Sound 0, 0,0,0: Return 
T$="#", Acc$, 

F=Find(Acpt$,T$,0) :T=F; If F=0 Then 
F=Find(Acpt$, 8 8 8 ,F):Sa=Val (Acpt$(F+l) ) 

F=Find(Acpt$, "Sf " , F) : Ba=VaI (Acpt$(F+l) ) : Return 
Close #1 : Trap 1300: Open #1 , 4, 0, "D1 : ACCOUNT. DAT” : Return 
Point #l,Sa,Ba:Rget #l,Cn$,Cn2$,Cal$,Ca2$,Tdt,Pd,8d,Atc,Trin$ 

Close #1 : Return 

Trap 1340: Open #1,12,0, "Di : ACCOUNT. DAT" : Return 

Position 11,0:7 Acc:Posi tion 2,2:7 Cn$;Position 2,4:7 Cn2$:Position 2,6:7 Cal$:Position 2,8:7 Ca2$ 
Return 

7 #7;Chr$(Ptl) ; ”#"; Acc 
7 #7; Using Fi*,Cn$, B T0 DATE T0T n ,Tdt 
7 #7; Using Fl$,Cal$, “PAID TO DATE 8 , Pd 
7 #7; Using Fl$,Ca2$ ? "BALANCE DUE" , Bd 
Rc=Rc+l:H Rc>14 Then 7 #7; Chr $ (Pt4) : Rc=0 
Return 

Position 2,2:7 "ENTER ACCOUNT NUMBER OR NAME"; Input T$ 

Return 

Close # 1 : Open #1,4,0, “Dl:ACCPT.DAT":Rget #1 , Acpt$: Return 
Close #7 : Open #7,8,0, 8 P: ,r 
Return 

Close #1 : Open #1,4,0, ”D1 : ACCOUNT. DAT 1 
Return 

Point #1 , Sa, Ba: Rget #l,Cn$,Cn2$,Cal$,Ca2$,Tdt, Pd, Bd, Acc,Tr®$: Return 
Note #1 , Sa, Ba: Rget #l,Cn$,Cn2$, Cal$,Ca2$,Tdt, Pd, Bd, Acc, Trm$: Return 
Point #1 , Sa, Ba: Rput #!,Cn$,Cn2$,Cal$,Ca2$ Jdt, Pd, Bd,Acc,Tri$: Return 
Close #1 : Open #1,12,0, "Dl : ACCOUNT. DAT" : Return 

7 8 } 8 : Position 2,0:7 "ACCOUNT Imposition 2,1:7 “CUSTOMER NAME" : Position 2,3:? "OPTIONAL LINE" 

Position 2,5:7 "CUSTOMER ADDRESS" : Position 2,7:7 "CITY, ST. ZIP":Return 
Position 2,9:7 “TERMS": Return 
Position 1,10: Input Trm$: Return 
T$="#", Acc$, "8” 

F=Find(Acpt$,T$,0) :T=F: If F- 0 Then 


ti 


V' 


s' /' 




/ 


7 ; 


( 


( s 





W ~e v s ( ^ lA - 


J i 



i 


n H 


ACCOUNT FILE IS FULL 


}}}*:For W=1 To 100: Next WjReturn 


1570 Position 2,10s? Trffi$ 5 Return 

1580 ? #7;Chr*(Pt2);Acc;Tab(8);Cn*;Tab!45);Cal*;Tab(82);Ca2$;Tab(118);Tr«$;Chr$(Pt3) 

1590 Rc=Rc+l:If Rc>56 Then ? i7;Chr*IPt4):Rc=0 
1600 Return 

1610 Position 2,11:? "TOTAL SALES" : Positi on 2,13:? "PAID“:Position 2,15:? "BALANCE" 

1620 Return 

1630 Position 2,12:? Tdt: Position 2,14:? Pd:F'osition 2,16:? Bd 
1640 Return 

1650 Position 1,12: Input TdtiPosition 1,14: Input Pd:Position 1,16: Input Bd 
1660 Return 

1670 ? #7 ; Chr$ f Pt 1 ) ; M #";Acc 
1680 ? t7;Cn*:? #7;Cr.2$ 

1690 ? #7:Cal$ 

1700 ? *7;Ca2* 

1710 For W=1 To Lab-5:? *7:Next H 
1720 Return 

1730 ? “ACCOUNT #"jAcc:? Cn$:? Cn2* 

1740 ? Cal* 

1750 ? Ca2*:? 

1760 Return 

1770 Gps=0:lf Cost>0 And Pri >0 Then 6pa=(Int((l-(Cost/Pri!)tl000))/10 
1780 Position 2,2:? "PART NUMBER: “;Pn* 

1790 ? "DESCRIPTION;":? Des* 

1800 ? “VENDOR;":? Vnt:? Val*:? Va2t 

1810 ? "Q0H: “;Qoh:? "LOCATION: ”;Loc*:Position 28,10:? "GPM “:Gp«:”X “ 

1820 ? "REORDER POINT: ”;Reo:? "COST: Cost : ? "SALE PRICE:*";Pri 

1830 ? "3UANITY SOLD: °;Sold:? “TOTAL DOLLAR VALUE SOLD: Tds: ? "QTY ON ORDER: “;Boo 

1840 ? "GROUP: ";Pg 

1850 Return 

1860 Position 14,2: Input Pn$:If Pn*=“END” Then Return 

1870 Position 1,4: Input Des$: Posi ti on 1,6: Input VntiPosition 1,7: Input Val*:Position 1,8: Input Va2* 
1880 Trap 1380:Position 6,9: Input OohsPosition 11, 10: Input Loc* 

1890 Trap 1890: Posi ti on 16, 11: Input Reo 
1900 Trap 1900: Position 7, 12: Input Cost 
1910 Trap 1910: Position 13, 13: Input Pri 
1920 Trap 1920: Position 15, 14: Input Sold 
1930 Trap 1930:Position 26, 15: Input Tds 
1940 Trap 1940:Position 15, 16: Input Qoo 
1950 Trap 1950: Posi tion 8, 17: Input Pg 
1960 Return 
1970 T*="i“,Pn*,"8" 

1980 F=Find(Pnpt*,Tt,0):If T=F Then Return 

1990 If F>0 Then ? “ PART NUMBER ALREADY EXIST} }}": For N=1 To 100:Next U 
2000 Return 
2010 End 

2020 Fl*="i ! !!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!! ##### «*«*# #*»*«,** *«*«*.«« ##### 

2030 Fl*=Fl*,“iili#i.#t *#*##*, *# *##.#" 

2040 ? #7:? #7 ; Tab (32-Len (Cn$) 12 ) ; Cn$; * ";D*U,2);"/";D$(3,4);"/";DI<5);Chr*(Pt2):? #7 


i M i ! i i I i 1 » 


GROUP 00H 


2050 ? #7; "PART I DESCRIPTION 

2060 ? #7;" T/COST T/RETAIL GPU" 

2070 For N=1 To 120;? #7; sNext W;? #7 
2080 Line=4; Return 

2090 ? #7; Using Fl$,Pn$,Des$,Pg, Qoh, Cost, Pri, Qoo, Loc$, Tcost , Tpri , 5pm 
2100 Gtc=Gtc+Tco5t:Gtp=6tp+Tpri 

2110 Line=Line+l; If Line>=60 Then ? #7; Chr$ (Pt3) ; Chr$ (Pt4) : Soto 2040 
2120 Return 

2130 Trap 2140; If Vn$(l,Len(Cn$) )=Cn$ Then 2090 
2140 Return 

2150 If Pg=Pgn Then 2090 

2160 Return 

2170 Fl$=“ !!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!! 1 1 * 1 1 * 1 ! 1 * 111,111111 #####,##“ 

2180 ? #7;? #7; Tab (27); “PRICE LIST “;D$(1,2) ; V H ;D$(3 ? 4> ; “/“?D$(5) ;? #7 


COST PRICE QOO LOCATION 


%0 


CyO 


r. togs 


j o ft “> 


— - f 


' A 





2190 ? 17; "PART # DESCRIPTION LOCATION PRICE 8 

2200 For N=l To 78:? #7;“=";:Next W:? #7 
2210 Line=4:Return 

2220 ? #7; Using Fl*,Pn*,Des*,Loc*,Pri — e=»” -r 

2230 Line=Line+l;If Line=60 Then ? #7;Chr$!Pt4):Goto 2180 

2240 Return 

2250 If 9oh+9oo<Reo Then 2090 
2260 Return 

2270 Fl$="! ! !!!!!!!!!! ! I i !! I ! ! I !!!!!!!!!! I !!!!!! ! !!!!!!!!!! ! I### ###.## ###.## ##### !!!!!!!!!! #»###*### #####*,##•' 
2280 ? #7;Chrt(Ptl) ; “TURN REPORT “;D*(1,2);"/";D$!3,4!;"/";D*!5! 

2290 ? #7;Chrt(Pt2) 

2300 ? #7; “PART # DESCRIPTION 90H COST PRICE 900 LOCATION TURN AMOUNT 

2310 For H=1 To 120:? #7;"=“;:Next W:? *7 
2320 Return 

2330 Trap 2340: Close #7: Open #7,8,0, "P: ": Goto 2350 

2340 ? “TURN ON PRINTER AND PRESS RETURN} “:Gosub 1220: Goto 2330 

2350 ? #7;N$:? #7;A*:? #7;A1*:? #7;Misc* 

2360 ? #7:? #7:? #7 ; Tab ( 30 );Chrt(Ptl!;* PURCHASE ORDER":? #7; Tab <331 ; Chr$ < Pt 1 J ; ; M10: ? #7 
2370 ? #7:? #7; "======================================“ 

2380 ? #7;Chr* (Ptl); “VENDER: ";Tab (21); “SHIP TO:" 

2390 ? #7; Pv$; Tab (40) ; N$ 

2400 ? #7; Pal$; Tab (40) ; A$ 

2410 ? #7;Pa2$; Tab (40) ; Al$ 

2420 ? #7;"========================”============";? #7:? #7 

2430 ? 17; “PART i“;Tab(14);"DESC. /VENDOR F7N";Tab(52);“3UAN“;Tab(58);"PRICE EA";Tab(68) ; "EXT. PRICE” 

2450 Te=l:Return 

2460 FI *=“#### #####,## #####.##" 

2470 ? #7; Pni; Tab ( 14) i Des* : Tab (52) ; : ? #7; Using F 1 $, He, Cost, Cost tHsi - — — 

2480 Tot=Tot+Cost*Hffl 
2490 Return 

2500 Gosub 1020: Posi ti on 6,3:? #6; “SBM 130":Position 3,5:? #6; "COPYRIGHT 1985" 

2501 Position 2,7:? #6;"newell industries":? , "COMPILING PROGRAM":? “INSTALL DATA DISK IN DRIVES 1 and 2" 

2502 Fast :? " PRESS RETURN WHEN READY"; 

2505 Din Cl*(3),C2*(3),D*(7),9*<7),N*<40),A*(40),Al*!40),Misc*(20),T*(13),Fl*(120),F2*<10),Acc*(10),Tr«*(12) 

2506 M3=1000:Max=29000:Dii S$(5),B*(4) 

2510 Dis Pn*<12),Des*!30),Vn*(35),Val*(35),Va2*(35),Loc*(10),Cn*(35),Cn2*(35),Cal*(35),Ca2*(35),Pon*<12) 

2515 Input T$ : ? ,”}LQADINS INDEXES* s Poke 1913,87 

2520 Trap 7999:0pen #1 ,4,0, "Dl: SETUP. DAT* : Rget #l,Cl$,C2t,N*,A*,Al*,Misc$,Ptl,Ft2,Pt3,Pt4,M3,M4,M5,M6 
2530 Close #l:0pen #1,4,0, “Dl : SETUP2. DAT" : Rget #l,D*,Dtot, In,Ytd,Ptd,Ttd,Nac,Tr,Ml,M2,M7,M8,M9,M10 
2540 Dial Acpt*(MaxlMl),Pnpt*(Hax*H2) 

2550 Trap 2560: Bosub 1425 

2560 Trap 2570: Close #l:0pen #1, 4, 0,"D2: INVPT.DAT": Rget #l,Pnpt* 

2570 Close #l:Cl=Val (Cl*) :C2=Val(C2$) 

2600 Dt$=D$ 

2610 ? "1DATE IS ";D*;“ MMDDYY" 

2620 ? "RETURN OR ENTER NEW DATE":? "EXAMPLE: 010183=! JAN. 1,83) “; : Input 9$ 

2630 If Len<9*)>6 Then 2610 
2640 If Len(0*) >5 Then Dt$=0* 

2650 ? *}DATE IS “;Dt$; " !Y OR N)?";:6osub 1220 

2660 If KeyOAsc(“Y“) And KeyOAsc(“y") Then Dt$=D$: Goto 2610 

2670 D*=Dt*:If 9*="“ Then 2690 

2680 Dtot=0:Go5Ub 1160 

2690 Gosub 1020 

2700 Position 1,2:? #6; "Reports“:Position 1,3:? #6;"Invoicing" 

2710 Position 1,4:? #6;"Mail list”: Position 1,5:? #6; * Add/edi t inventory":Position 1,6:? #6;"0rdering receiving" 

2720 Position 1,7:? #6; "Syste® setup”:Position 1,9:? #6;“9uit" 

2740 Gosub 1215: If Kev<65 Or Key >90 Then 2740 

2750 Position 0,9 

2760 If Key=Asc("R") Then 3940 

2770 If Key=Asc("I") Then 2350 

2780 If Key=Asc("N") Then 5120 



Then 7999 

Then ? "} REMOVE DISKETTES AND TURN SYSTEM OFF": End 


2790 If Key=Asc(*A‘) Then 5550 
2800 If Key=Asc(“G") Then 6350 
2810 If Key-AscCS") 

2820 If Key-Asc < "Q") 

2830 6oto 2690 

2850 Gosub 1020: Posi tion 1,2:? #6; “Sale“:Positian 1,3:? #6; “Inventory" 

2860 Position 1,4:? #6; “Exit**: Position 1,5:? #6;"Return to stock":Position 1,6:? #6; “Totals" 
2870 Position 1,7:? #6; "Close out day " : Position 1,8:? #6; "Quote" 

2890 Gosub 1215 

2910 Suote=0:lf Key=Asc(“5"! Then 2990 


2920 if Key=Asc("I") 
2930 If Key=Asc("E") 
2940 If Key=Asc!"R") 
2950 If Key=Asc(*T") 


Then 3660 
Then 2690 
Then 3720 
Then 3840 
Then 3870 

Then Quote=l:Gotc 2990 


2960 If Key=Asc(“C"> 

2970 If Key=Asc(“Q") 

2980 Goto 2850 

2990 Gosub 1025: Posi tion 14,0:? "INVOICE SALE" : Posi ti on 13,1:? "RETURN TO QUIT" 

3000 If Quote>0 Then Position 14,0:? “SALES QUOTE ":? 

3010 Trap 2850:? "ENTER SALESPERSON #"; : Input Spn:? "ENTER ACCOUNT #";: Input Acc$:St=0:Ttol=0 

3015 If Acc*="NEXT" Then Gosub 1425 

3020 Gosub 1510: Gosub 1030: Test=0: Tra$=“CASH“ 

3030 If Acc$=““ Then Acc=0:Goto 3070 

3040 If Acc$="NEH“ Then Acc=Nac:Acc$=Str$(Acc):Test=l 

3050 Gosub 1240: Gosub 1280:Gosub 1290: if F>0 Then Gosub 1 320: Goto 3070 

3060 Goto 2990 

3070 Gosub 1050: Gosub 1060 

3080 Fl$="###t $***«.** $**#*#. #**;F2$="*#*ii#.##" 

3090 ? "IS THIS INFORMATION CORRECT (Y OR N>" 

3100 Gosub 1220: If KeyOAscC'Y") And KeyOAscfy") Then 2990 
3110 Trap 3120:Close *7:0pen 17,8,0, "P:":Goto 3130 
3120 ? "TURN ON PRINTER AND PRESS RETURN) ":Gosub 1220:Goto 3110 
3130 ? #7;N$:? #7; A$: ? #7; Al$:? #7 ; Mi sc$: If Quoted Then In=In+l : Goto 3150 
#7:? 17:? #7; Tab (35) ; Chr$ (Pt 1 ) ; “QUOTE- : ? #7:? #7:? #7:Goto 3160 
#7:? #7:? #7; Tab (33) ; Chr$ (Pt 1 );" INVOICE- : ? #7; Tab ( 33) ; Chr$ (Pt 1 ) ; In:? #7:? #7:? #7 

#7.“============ S r= === = = = ================= » 

#7; Chr$ (Pt 1 ) ; "TO: " ; Tab i 21 ) ; "ACC* " ; Acc 
#7;Cn$;Tab(40) ; "DATE: ";D$( 1,2) ; "/";D$(3,4);"/";D$(5,6) 

#7;Cn2$:? #7;Cal$:Tab (40) ; "SALESPERSON; Spn 
#7;Ca2t;Tab(40);"P.Q. OR AUTH:";Pon$ 

17 ; "======================================“• ? 

#7; "PART Tab (14); "DESCRIPTION”; Tab (52) ; "I 

"/".•Position 15,0:? "INVOICING": If Quote>0 Then ? “}“:Position 17.0:? "QUOTE" 

3250 Gosub 1080: If Pnt="END“ Then 3410 
3260 If Pn$=“NEXT" Then Gosub 3930:5oto 3240 
3270 If F=0 Then 3240 
3280 Gosub 1130: Gosub 1140 
3290 Gosub 1770 

3300 Trap 3300: Posi ti on 2,19:? 

3310 Trap 3330: Posi t i on 2,20:? 

3320 Goto 3340 
3330 Pe=Pri 

3340 Position 11,19:? H#;" 1 

3350 If KeyOAscfY") And KeyOAsc("y") Then ? ")“:Goto 3290 
3360 Ep=0:Ep=Hi*Pe:If Pg>4999 Then Ttol=Ttol+Ep 
3370 ? i7;Pn$:Tab!14);Des$;Tab(52i;:? #7; Using Fl$,Hm,Pe,Ep 
3380 If Quote >0 Then St=St+Ep:Goto 3240 
3390 Sol d=Sol d+Hfli: Tds=Tds+Ep: Qoh=Qoh-Hi: St=St+Ep 
3400 Gosub 1190: Dtot=Dtot+Ep : Goto 3240 

3420 ? ")IS SALE TAXABLE"; : Input Tt:Tas=0 


3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 


? 

7 


04 

TP !40 


? 


17:? #7 

M ; Tab (58) ; "PRICE EA M ;Tab(68) ; “EXT. PRICE 1 


■jL 


“HOW MANY 41 ? : Input Hi: If Hi<=0 Then 3240 
“PRICE EACH"?: Input Pe:If Pe<0 Then 3310 


2 Position 13,20:? Pe; 


M t -1 U 


IS THIS CORRECT (Y OR Ni";:Gosub 1220 



3430 If TIO'Y" find TIO"y“ Then 3460 

3440 Trap 3440:Position 2,2:? "TAX RATE X ";Tr*lQO:Position 12,2: Input Te»p:Tr=Te®p/IOO 
3450 If T*="Y" Or Tl="y" Then Tax=Int ( (TrtTtol ) *100) / 100: If Tax<Tr*Ttol Then Tax=Tax+0.01 
3460 Trap 3460: Position 2,3:? “SHIPPING CHARGE';: Input Sc 
3470 Total =St+Sc+Tax 

3480 Position 2,5:? “AMOUNT DUE $“;Total:If Quote>0 Then 3500 
3490 Trap 3470:Position 2,7:? "AMOUNT RECEIVED”; : Input Aat 
3500 Position 2,9:7 “TERMS"; :Posi tion 8,9:? TrmliPosition 7,9: Input Trail 
3510 ? "IS THIS CORRECT (Y OR N)“:6osub 1220: If KeyOAscCY") And KeyOAscCy") Then 3420 
3520 ? #7; "TERMS: Trail; Tab (52); “SUB-TOTAL"; Tab i68> ; :? #7; Using F2l|st 
3530 If Tax >0 Then ? #7;Tab (52) ; "TAXABLE TOT, "; Tab <68) ; :? *7; Using F2$,Ttoi:Ttd=Ttd+Ttol 
3540 ? *7;Tab (52) ; “TAX" ; Tab <68) ; :? #7; Using F2I, Tax 

17; Tab (52) ; "SHIP/HANDLING"; Tab (68) ; :? #7; Using F2t,Sc 
? #7; Tab C52) ; "TOTAL" ; Tab (68) ; : ? 17; Using F2t,Total:If 9uote>0 Then 3610 

? #7; Tab (52) ; “AMOUNT PAID"; Tab (68) ; :? #7; Using F2I, Amt: If A»t>=Total And Tax >0 Then M7=M7+Ttol;M9=M9+Tax 
If Amt >Total Then ? #7; Tab (52) ; “REFUND" ; Tab (63) ; : ? #7; Using F2I, Amt-Total j ^ 

3590 Bal=0:lf Amt<=TotaI Then Bal=Total-A«t (Ajj-. 

3600 ? #7; Tab (52) ; “BAL DUE";Tab(63);:? #7; Using F2$,Bal 

3610 If Acc>0 Then ? #7; "Please use account number when placing orders," 

3620 ? #7;Chrl(Pti); "THANK YOU" ; Chr* (Pt4) : If Suote>0 Then 2850 
3630 Tbt=Tdt+Total : Pd=Pd+A«t: Bd=Tdt-Pd: Ytd=Ytd+Total -Tax : Ptd=Ptd+Total -Tax : M8=M8+A«t 
3640 If ficc>0 Then Gosub 1500: Gosub 1490: Sasub 1210: If Test>0 Then Nac=Nac+l 
3650 Gosub 9000: Gosub 1160: Goto 2850 

3660 Gosub 1025: Posi tion 13,0:? "INVENTORY CHECK" Position 11,1:? "ENTER ’END’ TO SUIT" 

3670 Gosub 1080: If Pn$=“END" Then 2850 
3680 If Pnl="NEXT" Then Gosub 3930: Goto 3660 
3690 If F=0 Then 3660 
3700 Gosub 1130: Gosub 1140 


3550 ? 


3560 

3570 

3580 


3710 


? “l":Gosub 1770: Bosub 1220: Goto 2850 


'RETURN" 


3720 Gosub 1025: Positi on 17,0:? 

3730 Gosub 1080: If F=0 Then 2350 
3740 Gosub 1130: Gosub 1140 

3750 Gosub 1770:Position 2,19:? "IS THIS IT?";:Gosub 1220: If KeyOAscCY") find KeyOAsc("y") Then 2850 
3760 Trap 3760:Position 2,19:? "HOW MANY ";: Input Hu: If Hm<=0 Then 2850 
3770 Trap 3770:Position 2,20:? "PRICE EACH";: Input Pe:If Pe<0 Then 3770 

3780 Position 11,19:? Hm;" “iPosition 13,20:? Pe;“ ":? "IS THIS CORRECT (Y OR N)“;:Gosub 1220 
3790 If KeyOAscCY") And KeyOfiscCy") Then 2850 

3800 Goh=Qoh+Hm: Sold=Sold-His: T7=Hs*Pe: Tds=Tds-T7; Ytd=Ytd-T7: ? "TAXABLE" ; : Gosub 1220: Tax=0: Ptd=Ptd-T7 
3810 If Key=fisc("Y") Or Key=fisc("y") Then Ttd=Ttd-T7: Tax=Int ( (Tr IT7) *100) / 100: If Tax<TrlT7 Then Tax=Tax+0.01 
3820 Ytd=Ytd-Tax : Ptd=Ptd-Tax : Dtot=Dtot-T7 
3830 S a wn 4408 : Gosub 1 160: Gosub 1 190: Goto 2850 

3840 Fl$=“$i#####. ## It#####,## Ittill.ti*:? " YEAR PERIOD TODAY" 

3850 ? Using Fll,Ytd,Ptd,Dtot 
3860 Gosub 1220: Goto 2910 

3370 ? “ ) ARE YOU SURE ?";: Gosub 1220: If KeyOAscCY") Then 2890 

3880 Trap 3870:Closs #7:0pen 17,8,0, "P":? *7;Chrl!Ptl) ; “DAILY SALES “;DH1,2);"/";D$(3,4);"/";D*(5) 

3890 F2*="l######.##":? #7:? #7; "CASH SALES ";:? #7; Using F2$,M8 
3900 ? #7; "TAXABLE SALES";:? #7; Using F2I,M7 

3910 ? #7; "TAX COLLECTED";:? #7; Using F2I,M9:M7=0:M8=0:M9=0: Gosub 9000:Gosub 1160 
3920 Goto 2690 

3930 Close # 1 : Open #1,4,0, “D2: INVPT,DAT":Rget #l,Pnptt:Close #l:fieturn 

3940 Gosub 1020: Position 1,0:? #6; "Ali“:Position 1,1:? i6;"0utstanding":Position 1,2:? #6; "Exit to menu" 

3950 Position 1,3:? #6;“Selected":Position 1,4:? #6;“Recover files" 

3960 Position 1,5:? #6; "Credit accounts":Position 1,6:? #6; "New accounts‘:Position 1,7:? 16; "List accounts" 
3970 Position 1,8:? #6;"Update/edit" 

3990 Gosub 1215 
4000 Fl$= u 

4010 If Kev=Asc("A") Then 4120 
4020 If Key=AscC0") Then 4380 
4030 If Key=Asc(“E”i Then 2690 
4040 If Key=Asc(“S") Then 4620 
4050 If Key=AscCR") Then 4780 


)!!!!!!!!! I ! I ! ! I######.##" 


4060 If Key=fisci"C"! Then 4450 

4070 If Key=Asc(“N"! Then 4900 

4080 If Key=Asc(*L“) Then 4170 

4090 If Key=Asc{"U") Then 4970 

4100 Goto 3940 

4120 Gosub 1025: Posi ti on 16,0:? “ALL ACCOUNTS ":Rc=0 

4130 Trap 4770:Gosub 1450: Basub 1430:? #7; Chr$ <Pt 1 ) ; “ALL ACCOUNTS" 

4140 Gosub 1430: If Cn$=“" And Acc>Nac Then ? #7;Chr$(Pt4>:Goto 4770 
4150 Gosub 1340 
4160 Goto 4140 

4170 Gosub 1 025: Posi ti on 16,0:? "ACCOUNTS LIST“:Rc=0 

4180 ? "NUMERICAL":? “ALPHABETICALLY":? :? "ENTER FIRST LETTER OF YOUR CHOICE"; 

4190 Gosub 1220: If Key=Asc!"N“) Then 4220 
4200 If Key=Asc(“A“) Then 4260 
4210 Goto 4770 

4220 Trap 4770:Gosub 1450: Gosub 1430:? #7;Chr$(Ptl); “ACCOUNTS LIST" 

4230 Gosub 1480: If Cn$=”“ And Acc>=Nac Then ? #7;Chrt!Pt3);Chrt(Pt4):Goto 4770 
4240 Gosub 1580 
4250 Goto 4230 

4260 Trap 4770:6osub 1450:Gosub 1430:? #7 : Chr$ ! Pt 1 ) ; " ACCOUNTS LIST" : Acpt$=“ B 
4270 Trap 4290:Gosub 1480: If Cn$=“" Then 4290 

4280 Cn$(5)="":Acptt=Acpt$,"#“,Cn$, "§",3trt(Sa>, "&",Str$IBa):Goto 4270 
4290 Tt="zzzzzz":F=0 

4300 F=Find(Acpt$,"#",F):If F=0 Then 4330 

4310 If Acpt$!F,F+4KT$ Then T$=Acptt(F,F+4) :Fl=F:Goto 4300 

4320 Goto 4300 

4330 F=Find (Acptt, "8“ , FI ) : Sa=Val ( Acpti (F+l ) ) 

4340 F=Find (Acptt, "l(“,F):Ba=Val t Acpt$ tF+1 ) ) 

4350 Acptt (FI, FI )="X": Gosub 1470: Gosub 1580 

4360 F=Find (Acptt, "#“,0): If F=0 Then ? #7;Chrt!Pt4!:Gosub 1425: Soto 4770 
4370 Goto 4290 

4380 Gosub 1025: Positi on 10,0:? "OUTSTANDING ACCOUNTS” ;Gto=0:Rc=0 
4390 Trap 4770:Gosub 1450:Gosub 1430:? #7;Chr$(Ptl) ; “OUTSTANDING ACCOUNTS" 

4400 Gosub 1480: If Acc>Nac Then 4440 
4410 If Bd<=0 Then 4400 
4420 Gosub 1340:Gto=6to+8d 
4430 Goto 4400 

4440 ? 17:? #7; ‘TOTAL 0USTANDIN6 $ ";Gto:? #7; Chrf (Pt4) : Soto 4770 
4450 Gosub 1025:Position 13,0:? “CREDIT ACCOUNTS" 

4460 Gosub 1400: If Tt="“ Then 4770 

4465 If Ti="NEXT" Then Gosub 1425:Goto 4540 

4470 Trap 458G:Acc=Val(Tt):Acct=Tt:TI="#",Acc$,"g" 

4480 F=Find(Acptt,Tt,OS:If F=0 Then ? "ACCOUNT NOT ON FILE)}] “:For «=1 To iOO:Next «:Goto 4450 
4490 Gosub 1260: Gosub 1280: Gosub 1290 

4500 Gosub 1510: Gosub 1530: Gosub 1320: Gosub 1570: Gosub 1610: Gosub 1630 

4510 ? "IS THIS THE 0NE":Gosub 1220: If Key=Asc<"t“) Then 4590 

4520 If Key<>Asc("Y“) And KeyOAsc('y') Then 4770 

4530 ? "ENTER AMOUNT OF PAYMENT"; : Input Put 

4540 ? “IS THIS CORRECT": Gosub 1220 

4550 If KeyOAscCV) And KeyOAscfy”) Then 4530 

4560 Pd s Pd+Pit:Bd=Bd-Pfflt 

4570 Gosub 1500: Gosub 1490: Goto 4770 

4580 Trap 4770: Gosub 1280 

4590 Trap 4600:Gosub 1480: If Tt=Cnt(l,LeniTt)) Then 4500 
4600 If Acc>=Nac Then 4770 
4610 Goto 4590 

4620 Gosub 1025:Position 12,0:? "SELECTED ACCOUNTS" 

4630 Gosub 1400: If Tt="“ Then 4770 

4635 If Tt=“NEXT" Then Gosub 1425:Goto 4620 

4640 Trap 4690:Acc=Val (T$) :Acc$=T$:T$=“i",Acc$, "8" 

4650 F=Find (Acptt, T$,0): If F=0 Then ? “ACCOUNT NOT ON FILEJJJ H : For «=1 To lOOiNext W:Goto 46 
4660 Gosub 1260: Gosub 1280: Gosub 1290 


t-O 


4670 Goto 4730 

46S0 Trap 4770i Gosub 1430: Gosub 1340: Goto 4770 
4690 Trap 4770: Gosub 1280 

4700 Trap 4710:Gosub 1480: If Tt=Cn$(l,Len(T$>) Then 4730 
4710 If flcc>=Nac Then 4770 
4720 Goto 4700 

4730 Gosub 1510: Gosub 1530: Gosub 1320: Gosub 1 570: Gosub 1610: Gosub 1630:Gosub 1220 

4740 If Key=AscCt“) Then 4700 

4750 If KeyOAscCP") And KeyOAscCp") Then 4770 

4760 Goto 4680 

4770 Close #1 : Close #7: Goto 3940 


4780 ? "THIS FUCNTIQN KILL REINDEX ALL OF THE’:? “ACCOUNT FILES. PRESS Y TO START,":? “N TO ABORT."; 
4790 Gosub 1220 

4800 If KeyOAscfY*) And KeyOAscCy") Then 3940 
4810 Close #1 : Open #1,4,0, “D1 : ACCOUNT, DAT " 

4820 Acpt$=““:Trap 4870 
4830 Gosub 1480 


4840 S$=Str$ (Sa) : 8$=Str$ (Bai s Acc$=Str$ (Acc ) 

4850 Acpt$=Acpt$, Acc$, "i“,S$, "&",B* 

4860 Goto 4830 

4870 Close #l:Poke 1913,80:Qpen #1,8,0, "Dl.-ACCPT. DAT” 

4880 Rput fl,Acpt$ 

4890 Close #l:Poke 1913,87:Goto 3940 

4900 Gosub 1025:Position 16,0:? "NEK ACCOUNTS" 

4910 Acc$=Str»(Nac):Gosub 1240: If F=0 Then 4770 

4920 Gosub 1280: Gosub 1290: Gosub 1510: Gosub 1530: Gosub 1050: Gosub 1540:Gosuh 1320: Gosub 1570 
4930 Position 2,18:? "IS THIS CORRECT?";: Gosub 1220 
4940 If KeyOAscCY") And KeyOAsc!"y"> Then 4770 

4950 Tdt=0: Pd=0: Bd=0:Gosub 1500: Gosub 1490: Nac=Nac+l: Gosub 9000: Gosub 1160 
4960 Goto 4770 

4970 Gosub 1025:Position 15,0:? "UPDATE/EDIT" 

4980 Gosub 1400: If T$="" Then 4770 

4985 If T$="N£XT" Then Gosub 1425:Goto 4970 

4990 Trap 5080:Acc=Val <T$);Acc$=T$:T$="t",Acci,"8“ 

5000 F s Find(Acpt$,T$,0):If F=0 Then ? "ACCOUNT NOT ON FILE} } T u : For W=1 To 100:NeKt WsGoto 4970 
5010 Gosub 1260: Gosub 1280: Gosub 1290 

5020 Gosub 1510: Gosub 1530:Gosub 1320:Gosub 1570:Gosub 1610:Gosub 1630:? "IS THIS THE 0NE“:Gosub 1220 

5025 If Key=AscC*") Then 5090 

5030 If KeyOAscCY") And KeyOAscCy") Then 4770 

5040 Gosub 1050: Gosub 1540: Gosub 1650 

5050 ? “IS THIS CORRECT?";: Gosub 1220 

5060 If KeyOAscCY") And KeyOAscCy") Then 4770 

5070 Gosub 1500: Gosub 1490:Goto 4770 

5080 Trap 4770: Gosub 1450 

5090 Trap 5100:Gosub 1480: If T$=Cn$(l,Len(T$) ) Then 5020 
5100 If Acc)=Nac Then 4770 
5110 Goto 5090 


5120 Gosub 1020:Position 1,1:? #6; "AH":Position 1,2:? #6; “Outstanding”:Position 1,3 
5130 Position 1,4:? 16; “Selected accounts" 

5150 Gosub 1215 


? #6; "Exit to senu 


5170 If Key=Asc ( “A" ) Then 5230 
5180 If Key=AscC0") Then 5300 
5190 If Key=AscCE") Then 2690 
5200 If Key=Asc("S") Then 5370 
5210 Goto 5120 


5230 Gosub 1025: F'osi ti on 16,0:? "ALL ACCOUNTS" 

5240 Gosub 1045 

5250 Trap 5540:Gosub 1450 

5260 Gosub 1480: If Cnt=*“ And Acc.'Nac Then 5540 

5270 If Cn4="“ Then 5260 

5280 Gosub 1430:6osub 1670 

5290 Goto 5260 



5300 Sosub 1025: Position 10,0s? “OUTSTANDING ACCOUNTS" 

5310 Gosub 1045 

5320 Trap 5540: Gosub 1450 

5330 Gosub 1480: IT Acc>Nac Than 5540 

5340 If Bd<=0 Then 5330 

5350 Gosub 1430: Gosub 1670 

5360 Goto 5330 


5370 Gosub 1025: Position 12,0:? “SELECTED ACCOUNTS" 
5380 Gosub 1045 


5400 Gosub 1400: If T$="“ Then 5540 

5405 If T$="NEXT" Then Gosub 1425:Goto 5370 

5410 Trap 5470:Acc=Val <T$):Acc*=T*:T*=“#",Acc*,"8" 

5420 F=Find(Acpt$,T$,0):If F=0 Then ? "ACCOUNT NOT ON FILEl)}“:For «=1 To 100:Next H:Goto 5370 
5430 Gosub 1260 

5440 Trap 5540: Gosub 1450: Gosub 1470 
5450 Goto 5510 

5460 Gosub 1430:Gosub 1670:Goto 5510 
5470 Trap 5540: Gosub 1450 

5480 Trap 5490:Gosub 1480: If T$=Cnt(l,Len(T$!) Then 5510 
5490 If Acc)=Nac Then 5540 


5500 Goto 5480 

5510 Gosub 1730: Gosub 1220: If Key=Asc!"t“) Then 5480 
5520 If KeyOAsc(“P“) And KeyOAscfp") Then 5540 
5530 Goto 5460 

5540 Close IliClose #7:Goto 5120 

5550 Gosub 1020: Posi tion 1,1:? #6;"Add inventory":Position 1,2:? #6; "Inventory edit": Posit i on 1,3:? #6: "Exit to 
5560 Position 1,4:? 16: "Print inventory“:Position 1,5:? #6; "Recover files'sPosition 1,6:? 16; "Sort inventory" 


5580 Gosub 1215 

5600 If Key=Asci"A“) Then 5660 
5610 If Key=Ascf"I") Then 5850 
5620 If Key=Asc!“E"! Then 2690 
5630 If Key=Asci"P") Then 6090 
5640 If Key=Asc("R"i Then 6260 
5645 If Key=Asc("S") Then 7100 


5650 Goto 5550 


5660 Gosub 1025: Posi tion 14,0:? “ADD INVENTORY" : Positi on 11,1:? "ENTER ’END' TO QUIT" 
5670 Pn$= , ":Des$="":Qoh=0:Cost=0:Pri=0:Sold=0:Tds=0:8oo=0 
5680 Gosub 1770:6osub 1860 
5690 If Pn$=“END" Then 5820 


5700 Gosub 1970: If F>0 Then 5680 

5710 ? "IS THIS INFORMATION CORRECT !Y OR Ni.“; 

5720 Gosub 1220 

5730 If KeyOAscCY") And KeyOAsc<*y") Then 5660 

5740 Trap 5750: Goto 5760 

5750 Trap 5810: Open #1,9,0, "D2: INVFIL.DAT" 

5760 If Len(Pnpt$)>Max*H2-15 Then ? "} MEMORY FULL, SAVING INDEX“:6oto 5820 

5770 Note #l,S,B:Rput tl,Pn$,Des$,Vn$,Vali,Va2$,Qoh, Loci, Reo, Cost, Pri, Sold, Tds,Qoo,Pq 

5780 S$=Str$(S):Bi=Str$!B> 

5790 Pnpt$=Pnptt, "#",Pn$, “8“,S$, "&“,8i 
5800 Goto 5660 

5810 ? "JDISK ERROR}}": Close #l:Goto 5660 

5820 Close #l:Poke 1913,B0:0pen #1,8,0, "D2: INVPT.DAT* 

5830 Rput #i,Pnpt$ 


5840 Close #l:Poke 1913,87:Goto 5550 

5850 Sosub 1025: Position 14,0:? "INVENTORY EDIT" : Posi ti on 11,1:? "ENTER ’END’ TO QUIT" 

5860 ? :? “PART NUMBER": Input Pn$:? " “: If Pn$=“END" Then Close #l:6oto 5550 

5865 If Pn$=“NEXT“ Then Gosub 3930: Goto 5850 


5870 T$="#",Pn$, "8" 

5880 F=Find(Pnptl,TI,0):T=F:If F=0 Then ? " PART NUMBER NOT IN INVENTORY} }>“: For N=1 To 100:Next N:Goto 5850 
5890 Trap 5950:F=Abs(F):F=Find!PnpU,“8",F):S=Val (Pnpt*(F+l)) 

5900 F=Find(Pnptl,"St",F):B=Val (Pnptt (F+l > ) 

5910 Trap 5920: Goto 5930 


isenu" 



5920 Gcsub 1130 

5930 Point #l,S,B:Rget 11, Pnt, Best, Vn$,Val*,Va2$, Boh, Loc$,Reo, Cost, Pri, Sold, Tds,Qoo,Pg 

5940 If Test=l Then Test=0: Sato 5870 

5950 ? "Imposition 14,0:? "INVENTORY EDIT":? :Gosub 1770 

5960 ? “(E)DIT; (8)UIT; (S)AVE; (N)EXT; : 

5970 Gosub 1220:? 


5980 If Key=Asc(“E“) Or Key=Asc!“e") Then 6050 

5990 If Key=Asc("a") Or Key=Asc("q") Then Close #l:Goto 5550 

6000 If Key=Asc(“S") Or Key=Asc!"s") Then 6060 

6010 If Key=Asc("N"> Or Key=Asc("n"i Then 5850 

6020 If Key=Asc!“+“) Then F=T- 10: If F>=0 Then Test=l:6oto 5890 

6030 If Key=Asc("*") Then Test=l : Goto 5890 

6040 Goto 5950 

6050 Gosub 1860: Goto 5950 

6060 Gosub 1970: If F>0 And TOF Then 5950 

6070 Gosub 1190 

6080 Goto 5850 


6090 Gosub 1025: Posi ti on 17,0:? “0PTI0NS“:Gtc=0:Gtp=Q 


6100 ? 
6110 ? 


:? “1-ALL":? "2-BY VENDOR NAME":? "3-BY PRODUCT GROUP" 
“5-BELQW REORDER POINT and not on order” 


? a 


4-PRICE LIST" 


6120 Gosub 1220: Key=Key-48: If Key >5 Or Key<l Then 5550 

6130 Trap 6250:Gosub 1430:6osub 1130 

6140 If Key=4 Then Gosub 2170: Goto 6190 

6150 Cn$=" INVENTORY ":If Key=5 Then Cn$="L0W INVENTORY " 

6160 If Key=2 Then ? "VENDOR NAME"; : Input Cn$ 

6170 Trap 6170: If Key=3 Then ? “PRODUCT GROUP": : Input F'gn:Cn$="PRODUCT GROUP #“,Str$(Pgn) 
6180 Gosub 2020 


6190 Trap 6240: Rget #l,Pn$,Des$,Vn$,Val$,Va2$,Qoh,Loc$,Rec, Cost, Pri, Sold, Tds, Boo, Pg 

6200 Trap 6220:Tcost=0:Tcost=Cost4Qoh:Tpri=0:Tpri=PritBoh:Gp«=100 

6210 Gp*=(Int((l-(Cost/Pri)) *1000)1/10 

6220 On Key Gcsub 2090,2130,2150,2220,2250 

6230 Goto 6190 


6240 ? *7 ; Chrf <Pt3) : ? #7; " WHOLESALE VALUED" ;Gtc:? #7; "RETAIL VALUED “;Gtp:? #7;Chr*(Pt4) 
6250 Close ihClose *7:Goto 5550 


6260 ? "THIS FUCNTION WILL REINDEX ALL OF THE":? "INVENTORY FILES. PRESS Y TO CONTINUE,":? "N TO ABORT. 
6270 Gosub 1220 


6280 If KeyOAscCY") And KeyOAscCy") Then 5550 

6290 Gosub 1130 

6300 Pnpt$="":Trap 5820 

6310 Note # 1 , S, B: Rget #l,Pn$,Desl,Vn*,Val*,Va2$,aoh, Loot, Reo, Cost, Pri, Sold, Tds, Qoo, Pg 
6320 S*=Str$iS):B$=Str$(B> 

6330 Pnpt*=Pnpt»,"#",Pnt,"8",S$,“fc*,Bi 
6340 Goto 6310 


6350 Gosub 1020: Position 1,1:? 16; "Order": Position 1,2:? #6;*Receiving":Position 1,3:? #6; “Exit to menu 
6360 Position 1,4:? *6; "Turn report“:Position 1,5:? *6; “Sales report" 

6380 Gosub 1215 


6400 If Key=Asc("0") Then Te=0:Goto 6460 

6410 if Key=Asc("R") Then 6680 

6420 If Key=Asci"E“) Then 2690 

6430 If Key=Asc(“T") Then 6800 

6440 If Key=Asc("S“l Then 6920 

6450 Goto 6350 


6460 Gosub 1025: Posit ion 13,0:? "PURCHASE ORDER" 

6470 If Te=0 Then Position 11,1:? “ENTER ’END’ TO ABORT” 

6480 Pn$=“ , :De5*="":Vn$="":Val*="":Va2$=““:Qoh=0:Loc$=*“:Reo=0:Co5t=0:Pri=0:Sold s 0:Tds=0:9oo=0 
6490 ? :? “PART NUMBER": Input Pn$:? “ ":If Te=0 And Pn$=“END“ Then 6910 

6500 If Pn$="NEXT“ Then Gosub 3930: Goto 6460 


6510 If Pn$=“" And Te>0 Then 6630 

6520 Gosub 1090: If F=0 Then 6460 

6530 Gosub 1 130: Gosub 1140:Gosub 1770 

6540 ? "IS THIS THE PART (Y OR N).“;:Gosub 1220 

6550 If KeyOAscfY*) And KeyOAsc!"y"! Then 6460 



6560 

6570 

6580 

6590 

6600 

6610 

66i!0 

6630 

6640 

6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6350 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7050 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 


? '^Position 




If Pv$=*" Then Pv$=Vn$;Pal$=Val$:Pa2$=Va2$ 

If Pv$OVn* Then ? :? “NOT SAME VENDOR! IS THIS QK?";:GQSub 1220: If KeyOAsc('Y') And KeyOAscCy") Then 6460 
? "imposition 2,2:? "9UANITY TO ORDER"; : Trap 6580: Input Hut: If Hib< 1 Then 6460 
? :? 'IS THIS CORRECT?";: Gosub 1220: If KeyOAscCY") And KeyOAsd'y") Then 6580 
Goo=Soo+H« 

If TeCl Then Sosub 2330 
Gosub 2460: Gosub 1190: Goto 6460 

? "ITERMS";: Input T$;? “AUTH.";: Input 0$ 

? #7; “DATE ";D*(1,2);"/";D$(3,4);"/";D$(5);" TERMS ";T$;“ AUTH. ";Q$ 

? #7; “TOTAL $";Tot;Chr$(Pt4) 

P v$= " ": Te=0 : Tot =0 : M 1 0=M 10+ 1 : Gosub 1170: Soto 6910 

Gosub 1025: Posit ion 14,0:? "RECEIVING P.0. "Position 11,1:? “ENTER ’END’ TO SUIT" 

? :? “PART NUMBER': Input Pn$:? " If Pnt=‘£ND" Then Close #l:Goto 6350 

If Pn*="NEXT* Then Gosub 3930: Goto 6680 

Gosub 1090: If F=0 Then 6680 

Gosub 1 130: Gosub 1 1 40: Gosub 1770 

? "IS THIS THE PART (Y OR Ni.“;:Gosub 1220 

If KeyOAscCY') And KeyOAsd'y") Then 6680 

,2:? “SUANITY RECEIVED"; : Trap 6750: Input Hm: If Hm< 1 Then 6680 
IS THIS CORRECT?";: Gosub 1220: If KeyOAscCY") And KeyOAsd'y") Then 6750 
Qoo=Gqo-H«: Q oh=QQh+Hm: I f Qoo<0 Then 8oo=0 
Gosub 1190 
Goto 6910 

Gosub 1025: F’osi ti on 15,0:? "TURN REPORT" 

Position 2,2:? "l.TURN" :Position 2,4:? “2. TURN AND CLEAR" : Posi tian 2,6:? "3. EXIT" 

Trap 6820: Position 2,13:? "ENTER CHOICE": Input Key: If Key=3 Then 6350 

If Key >3 Then 6820 

F=1 : Gosub 1430: Gosub 2270 

Trap 6900:Gosub 1110: If F=0 Then 6900 

Gosub 1 130: Gosub 1140 

? #7; Using Fi$, Pn$, Des$, Qoh, Cost, Pri , Qoc. Loc$, Sol a, Tds ' — 

If Key=2 Then Sold=0:Tds=0:Gosub 1190 
Goto 6850 

? #7;Chr$!Pt3) :? #7;Chr$(Pt4) 

Close IliClose #7:Soto 6350 

Gosub 1025: Posi ti on 13,0:? "SALES REPORT" 

Position 2,2:? " 1 . TOTALS" : Posi tian 2,4:? "2. TOTALS AND CLEAR": Position 2,6:? "3.EXIT" 

Position 2,8:? “4.NEN YEAR (Clears all sales data)" 

Trap 6820:Position 2,18:? "ENTER CHOICE": Input Key: If Key=3 Then 6350 
If Key>4 Then 6950 

Gosub 1430:? #7; Chr$ <Ptl ) ; "SALES REPORT ";D$(1,2);“/";D$(3,4);"/";D$(5,6) 

Fl$="$#####tt##,#t" 

? #7; “YEARLY SALES =';:? #7; Using Fl$,Ytd 
? #7 ; “PERIOD SALES =“;:? #7; Using Fl$,Ptd 
? #7; "TAXABLE SALES=“;:? #7; Using Fl$,Ttd 
? #7;Chr$!Pt4) 

If Key >1 Then Ptd=0:Ttd=0:Dtot=0:If Key=4 Then Ytd=0 
If Key >1 Then Gosub 9000: Gosub 1170 
Goto 6910 

Gosub 1025: Position 14,0:? "IVENT0RY SORT" 

? :? "PLACE BLANK DISK IN DRIVE 1.“:? “PRESS ’V TO START," 

Gosub 1220: If KeyOAscCY") Ana KeyOAscCy"! Then 5550 
Trap 7100: Xio 254,11,0,0, “Dl: “ 

Close #1 : F’ake i?13, 80: Open 11,8,0, "D: INVPT,DAT":Rput #l,Pnptt:Close ihPoke 1913,87 
Open #1,6,0, "D: INVFIL.DAT": Close #2:Gpen #2,4,0, "D2: INVFIL.DAT" 

T$="zzzzzzzzzzzz":F=0 
F=Find!Pnpt$,"#",F):If F=0 Then 7210 
Z=Find(Pnptf,*t\F) 

If Pnpt$!F,Z-l)<T$ Then T$=Pnptt (F, Z-l ) : FI =F: Goto 7170 
If F>0 Then 7170 

F=Find(Pnpt$,"§" l Fl):S=Val (Pnptt(F+D) 



7220 F=Find(Pnpt$,“&*,F):B=Val (Pnpt$(F+D) 

7230 Pnpt$(Fl,Fl)=*X" 

7240 Point #2, S, B: Rgst #2, Pn$, Des*, Vn$, Valf , Va2$, Qoh f Loc*, Reo, Cost, Pri , Sold, Ids, Qoo, F'g 
7250 Rput tl, Pn$,Des$,Vn$,Valt,Va2$,Qoh,Loc$,Reo, Cost, Pri, Sold, Tds, 8oo, Pg 
7260 F=Find(Pnpt$, “#“,0) : If F>0 Then 7160 

7270 Close *l:Close #2:? “} REMOVE DISK FROM DRIVE 1 AND PUT IT”:? “IN DRIVE 2. PRESS ANY KEY WHEN READY* 
7280 Gosub 1220: 6oto 6290 

7999 Close #l:Reu . SETUP 

8000 Gosub 1025 

8005 Tr«$="C.O.D. “: If LeniCUXl Then C1$="0":C2$=“G" 

8010 Gosub 8570: Gosub 1220 

8020 If Key=Asc("E") Or Key=AscCe") Then Gosub 8720: Goto 8000 

8030 If Key=Asc(“C”) Or Key=AscCc"! Then 8050 

8040 If Key=AscCR“) Or Key=AscCr"! Then 2550 

8042 If Key=Asc!”F B ) Or Key=Asc("f*) Then Gosub 8900:? *}" 

8044 If Key=A5c("l1*) Or Key=Asc(“s“) Then Gosub 8950 

8049 Goto 8010 

8050 ? “} SCREEN COLOR IS “;C1 

8060 ? "RETURN OR ENTER NEW COLOR (0-255)";: Input S$: If 0$=““ Then Qt=Cl» 

8070 If Len £Q$) >3 Then 8050 
8080 Poke 710,Val(Q»l 

8090 ? "IIS THIS CORRECT SY OR N)?”;:Gosub 1220 

8100 If KeyOAscCY") And KeyOAscCy") Then Poke 710,Cl:Goto 8050 

8110 C1$=Q$ 

8120 ? "I BACKGROUND COLOR IS “;C2 

8130 ? “RETURN OR ENTER NEW COLOR (0-255) ";: Input S$:if G$=““ Then Q$=C2$ 

8140 If Len (8$) >3 Then 8120 
8150 Poke 712, Val (8$) 

8160 ? “IIS THIS CORRECT (Y OR N)?";:Gosub 1220 

8170 If KeyOAscCY") And KeyOAscCy*) Then Poke 712,C2:Goto 8120 

8180 C2$=8$ 

8190 ? “} CLEAR TOTALS (Y OR N) : Gosub 1220 

8200 If KeyOAscCY") And KeyOAscCy*) Then 8220 

8210 Dtot=0: Ytd=0:Ftd=0: Ttd=0; 117=0: M8=0: H9=0 

8220 ? “IWRITE SETUP DATA FILE. (Y OR N)?“;:Gosub 1220 

8230 If KeyOAscCY”) And KeyOAsc("y") Then 8250 

8232 Trap 8234:Close il:0pen #1,4,0, ”D: MASTER" : Close #l:Goto 8240 

8234 ? “JCAN ONLY WRITE TO MASTER DISK}}}":Goto 8010 

8240 Gosub 8540 

3250 ? "UNITIALIZING INVENTORY FILES WILL":? “ERASE INVENTORY RECORDS IN DRIVE 2." 

8260 ? “INITIALIZE INVENTORY FILES. (Y OR N)?";:Gosub 1220 
3270 If KeyOAscCY") And KeyOAscCy') Then 8350 

3280 ? "} PLACE DATA DISK IN DRIVE 2 AND“:? "PRESS ’Y’ TO START, ’N’ TO ABORT."; 

8290 Gosub 1220 

8300 If KeyOAscCY") And KeyOAscCy") Then 8350 

8310 ? " 3 THIS WILL TAKE A WHILE.":? "FORMATTING DISK IN DRIVE 2. “: Xio 254,#1,0,0,*D2:“ 

8320 Trap 8330:? “UNITIALIZING SYSTEM FILES IN DRIVE 2.":Di® Pnpt$(Max*M2) 

8330 Trap 8340:Poke 1913,80:Gpen #1,8,0, “D2: INVPT.DAT": Rput #l,Pnpt$ 

8340 Close #l:Trap 8350:Poke 1913,87:0pen #1,8,0, “D2: INVFIL.DAT" 

8350 Close #1:? “UNITIALIZING ACCOUNT FILES WILL":? "ERASE CUSTOMER RECORDS IN DRIVE 1." 

8360 ? "INITIALIZE ACCOUNT FILES. (Y OR N)?“;:Gosub 1220 
8370 If KeyOAscCY*) And KeyOAscCy") Then 8510 
8380 Sac=M3+l:? “} STARTING CUSTOMER NUMBER:"; Sac 
8382 ? “THIS WILL TAKE ABOUT “j Int(HU30) ; “ MINUTES." 

8385 Trap 8390: Bi a AcptKMUMax) 

3390 ? "PRESS ’V TO START, ’N’ TO ABORT."; 

8400 Gosub 1220 

3410 If KeyOAscCY") And KeyOAscCy") Then 8510 
8420 Gosub 8680 

8430 Trap 8490:Qpen #1 , 8, 0, “D1 : ACCOUNT. DAT” : ficpt$=“ ” 

8440 For Acc=Sac To Sac+2500 

8450 Note #l,Sa,Sb:Rput #l,Cnt,Cn2t,Cal$,Ca2$,Tdt,Pd,Bd,Acc,Tr*$ 



8460 

8470 

8480 

8490 

8495 

8496 
3500 
8510 
8540 
3550 
3560 
8570 
8580 
8590 
8600 
8610 
3620 
3630 
3640 
8650 
8660 
8670 
8680 
8690 
8 ^ 


Acpt$ s Acptl, *T‘,Strl(Acc) , “@“,StrlCSa) , **lt H , Str$ (Sb) 

If Len(Acpt$)>}11J!1ax-l5 Then Pop : Goto 8490 
Next Acc 

? s? “LAST CUSTOMER NUMBER THIS DISKs R ; Acc : M3=Acc ; Sosub 8880 

Trap 8496; Close #l:Qpen #1,4,0, "D: MASTER" s Close #1 ; Nac=Sac ; Goto 8500 

Gosub 9000 

Gosub 8540 

Close #1 i Goto 2550 

Open #1,8,0, 8 Di: SETUP. DAT" :Rput # 1 , Cl$, C2$, N$, A$, Al$, Hi sc$, Pt 1 , Pt2, Pt3, Pt4, M3, M4, M5, M6: Close #1 
Close #1 : Open #1,8,0, “ D 1 s SETUP2 . DAT B ; Rp u t #1 , D$, Dtot , In, Ytd, Ptd, Ttd , Nac , Tr , Ml , M2, M7, MS, M9, Ml 0 
Close #1 ; Return 

“DATE (MMDDYY) ; “;D$ 

“YOUR COMPANY NAME;";? N$ 

"YOUR COMPANY ADDRESS; “:? Al:7 All 
Position 2,8s? "HISC. INFORMATION; a s ? Hiscl 
Position 2,10:7 “TAX RATE IN l “iTrliOO 

“EXPANDED PRINT CODE: “;Ptl 
“CONDENSED PRINT CODE: ";Pt2 
“CANCEL CONDENSED CODE: ";Pt3 

“;Pt4 
“;In+l 
"jMltlOO 
“;H2tl00 

“NEXT PO NUMBER: “;H10 


Position 2,2:7 
Position 2,3:7 
Position 2,5:7 


Position 2,11:7 
Position 2,12:7 
Position 2,13:7 
Position 2,14:7 “FORK FEED CODE: 
Position 2,15:7 “NEXT INVOICE #; 

“7. ACCOUNTS f s: 
“7. PART NUMBERS; 


v 


8705 

8710 

3720 

8730 

8740 

8750 

8760 

8770 

8780 

8790 

8800 

3810 

8320 

8830 

3840 

3850 

8860 

8870 

8830 

8900 

8920 

3930 

8950 

8960 

8965 

8970 

8980 

9000 

9010 

9020 


Position 2,16:7 
Position 2,17:7 
Position 2,18:7 
Position 2,20:7 " (E)dit, (Oontinue, (R)eturn to $snu ! 
Position 2,21:7 “(F)or*at drive 1 , <M) ake Master* 
Return 

Position 16,2: Input 0$; I t Len(DI)<>6 Then 8720 
Trap 8720: If Val (0$) <10100 Then 8720 
Position 1,4: Input Nl 
Position 1,6: Input Al 
Position 1,7s Input All 
Position 1,9: Input Nisei 
Position 15,10 
Position 22,11 
Position 23,12 
Position 24,13 
Position 17,14 
Position 17,15 
Position 17,16 
Position 17,17 
Position 17,18 


Trap 3780 
Trap 8790 
Trap 3300 
Trap 8810 
Trap 8320 
Trap 8830 
Trap 8840 
Trap 8850 
Trap 3360 


Input Te$p:Tr=Te*p/100 
Input Ptl: If Pt 1 >255 Then 8790 

Input Pt2:If Pt2>255 Then 8800 

Input Pt3s If Pt3>255 Then 8810 

Input Pt4: If Pt4>255 Then 8820 

Input Temp : In=T emp-i 
Input Temp; Ml^Temp/ 100 
Input Temp: M2=Temp/100 
Input NIC 


Return 

Close #1 ; Poke 1913,80:0pen #1,8,0, M D1 : ACCPT, DAT" : Rput #1 f Acpt$: Cl ose #liPoke 1913, 87: Return 
? ") FORMAT DRIVE 1, ARE YOU SURE? 1 ' : Sosub 1220s If KeyOAsciT) And KeyOfiscCy") Then Return 
Trap 8930: Close *i:Xio 254,11,0,0, “Di:":CIose #l:Return 
? "FORMAT ERROR, PRESS ANY KEY TO TRY":? "AGAIN.": Sosub 1220:6oto 8920 
Close #1 : Open #1,8,0, "D:MASTER“ 

Trap 8965:? “}":? :? "ENTER STARTING ACCOUNT NUMBER";: Input Stac:Goto 8970 
Stac=1001 

M3=Stac-l:Rput #1 , Stac 
Close #1 : ? Return 

Trap 9010:Close #1 : Open #1,4,0, *D: MASTER" : Cl ose #1 : Return 
? :? "PUT MASTER DISK IN DRIVE 1”:? "AND PRESS ANY KEY." 

Gosub 1220: Goto 9000