jINVENTY DQC ACCNTNO NDX`ACCOUNT CMD`yINVENTY UNTo YSTRUCTURTXTpACCOUNT1FRMWACCOUNTSDBFACCOUNTSNDXݢINVCATNONDXAINVENTY DBF}LEDGER DBF~LEDGER NDXINV CMD]uAINVENTY CMDLIT CMDj!ACCOUNT2FRMDIARY DBFMAINTAINCMD5MENUE CMD VORDSHIP CMDZxNINVENTY TXT/LEDGER CMDFDIARY FRM))INVENTY SUBw{INVMOD DBFINVNMBR MEMXINVOICE DBFVPRICE1 FRM+PRICE2 FRMyLSALESMANDBFU.SALESMANFRMEjSTOCK1 FRMXSTOCK2 FRM+vINVENTY.DOC _ !"#$%&'()*+,o-./0123456789:;<=>?@ABCDr  EFGHIJKLMNOPQRSTUVWXYZ[Q\]^_`abcdefghijklmnopqrstuX:vwxyz{|}~SV+E1u0-,;&A>326L8FM/m^<9*OJD]U7[Y4){H(91qcCSt7-1q ƚΚc~`L !y98q oRZ|>w oƽz)ϱSjMf1i1߹ߜ})<}m81[iHbES.d\c%!<$2*$D(ݙ$2QDz {Ẑ$Yg {1}KLa{/"\rWLLċ%|"c<,A𾈒%<N\š=8t#y"Q"?ݴ@.,"ES]n5(əG- #%F HRFW[HM4?AM`λbj:|aeׂy.2-$|.b)֊ ^ϵ&2oY0ϵب.OP5fcPQ\i 5YTHب7K׎ؾq^Js씚wzY8Fk;ᣭ;7p,\c@ؾ}k<{r?|fӳW8ѝIp=/]qowc֏1_ynBg{:fD !E ;[wcN2r΄ CQƑ58G4KwRW?v t &Npc~tmfn9Nq nOЫzyi,-q L0OG:y}pc~tW/40KK;q >f6|8ᓩdᑦ^rcSKloa:SBbF2~1dyn:Bg/"E P1u8>xAE U$ǂA",R{i!=Pj \ i/ݲ` !I2QTEYDįe{Bjd\R˂KCeͯy.3%$f$W tEbk<ע,t0@Lqo!],"gE b*'qqH-p>ݴ1_X0jO--| ߵ>d\R ʱಏLS@QB ,j1~"5Q gbi?)I21#N |r/\G%E 衎cq̳[ѳExF7Pڙ3}gQr]]yZ'xBZ:fFx/]hm#|fD?Yk]v1^\>sfr 4^\>sfr 'w{#cv4(\‹kgLΜA^'D׶Ϝ9]]zt gΜAcvo YB_ZFͮcvo WB>Jku̳[ѳA~<Kqi!'pI4GM"NB&Ps(JzAuf's NB |ӢH:q 槑 4\'7?+ؒ΋ }҃q(qK/ǜ-%MД$HƧqc'mu4u1A8m^H2jAp_y.| \&+ ?"B(ٶ"ZE) ɨ`0|eAQ[EYD+5eviT2jY0ϵPYybe ^mG5_X(jB62MAkbA p{ (n|VԲF.*(̵@Edẓ}(MOXdHJ񨍄wksQ5>L}t=4'` egZ(""H91>Td@%LH|LmU0ŲbY<@ը#)P%4 c޿O&#xtc u.T28f$EWD+CUwmV-k{J.QB,6-}s-,s]TL ~5Ɂ&붅j|.( `yQ *Z\Kԇ$JmeU3$YU"&ksq{ (_AYPlZ/,"ZA0jPyjC\V db 䳭8\0rVAfU(v$hJg}.+(}x81>Td@%:ň"bq5I:\'q s݆pB:z "2jA%oOɶϵ_`L$HDEjgbi!0E6G<-@e)lUS\ M>m чd^'}$E,V,Zy{CT H+&xB.s]6ʚ_\f&fiqg\T \ M>IJ2!SKK\APDLpit]ܲ`"b..&9&6Q̢}dEU0ϵhe}T͌‚y.\q8Ji!=]@סT 湨Dr "X&sqV!0υkMr`纍 D1-H2jY\ ʚ_\42I>3%j_ǂyE뤏9󴐎b $TjU0Ekly&6F!WqD-0Dmy E( i :\'}t=߲PE0Dm2o!5(B2-$6D JCS5 `CiU#BH?jC<3!I2صДqPmQU#LI[ "bԆ&6D P5̅y.^AtEb!Chq(Fm>"!]EWD+|`1tQ5BQPXVQ_\̅Oh^@/b6[%b-8pqtҷ Q)]t]X ] ƣdkb m.#vJ#hB~syǔNQs817RH yUa ʚ_\42I>f$hEZtUV<@u\|TO Z:!=qcsp M˂s817RH ybqWP*)I21#@WD+(eעwN``LӲq|5@!uBz8f~ s817RH ybj8_AY`\&ɸnj]ȗ]tUV< s,"_1ȸ8NHONqN耡N>׉cs#'qXW<MLq"ZA/@հU0EY`M>m"r!jS?Cj1q3$N>׉cs#'P5ή+_y."I"|a\UDz M>mvr:qc|`K:17RH yb>d\R eͯy.r$z3 tE"_vQ5 Q eU:郷0TIS܇`T ڴxv;f;VP.:|2*wr$zQQCjjNHW]ȗ]tC*b_1 Bp819wsB&hecn83O!`"xt9^AW_@}ńɦi~#U͂1@(ٶ(eBi6T@$Ӧ]yT&[`ie}H.Bu@WIFmUl#Ak,T B.H!2I>d\R 4-j|^bF-tE!чP(R%Zs f/4#=sy|c ʑ nA}0Ő3Ư_\&89SԉZqLgJHHƯ:cn׮U0ES.d\HrV0B[\LgJHHƯN3ɔģu^8E1a%^8]wcpZDP5e8+jPQ!1\'O7cO-w/@}TCjY XLpG) ɨ 5\ 9c`<"5Q Us,6}rt8፽^cvPB "|1yv+vt1>v֝p`1G8:f!Ɗםm:f; m# ^v{#\GCE\v߰qΞ9s!9sf̙3!i1vFFP2`:2Xk\]5.FKKKѥQ%`1vs(!љkGgn_;}H̄lvvQ c u S$ԅ}\L <Kr F E?jU8wZ2P/ҩKf'P/ Ӳ&($"hNiM> )"p)=(GQ "1Ax_*i>#Mk/t17n܀cbi;}ǒaF2vc?d'my,Y81 IF-+P}0υq`D5tEbGZ%@WD+4$O,(J`(hfq,6Q5nZ Zs-Tiik!dbנdۢQ͢J"LSX{Pm4ip|V4XV<C( :|VLtٴ@aEy.X!.Q ʂo b ,\B6ޭY(ӷ-LSG@`-ּ[E/P5eAQl ]LZi}c3ejYH #lUCfFHLy >LI><n͂y.i󴏮'" sLL \DӉcNp3m@ *@)\X P #D*`(  LG[wƗ" <i2)kB$>{$`JShH("F|.IZd(  LG["bySZ4b~㘽R>@[E`H$bI>\DqB!P5o<y,qqH@HE.X)eoxuT \ 颅 `҅Cj,(J6-/cE$TE[D⼋hz x o5?h̚W,H2jY6 zzp==| Yp1՜N㘽Rp" BeD|2oA@f ^`Q%} %#Bdx@ᬠ lp\OG!8/{@̟N㘽Rp[[` ɨb.2MAXkP0υ/>ʂ6lj:\kq]" Mt ]<=ǜ- 0R T5T \&@sLS@QTх,6Aye ^<~54\!>L Im Q`) `yQBE+s{J.Q(6ʱD z0D0D >GP8s4_AQ <>L}TMLSyPYyb."b1A8@ B.qM,("0EcN}KK`AȀ4C5! =u0?s ©tu $>$ cI2EcN}@B1 <)|FLHy?׎q^WHMzzn!(*(ڇ)$ B>C)=v-DBBʼni%VP*'(\X .h7-r fGc)F#cI2:YwcN߇&6DtW .@<qQ Z,yxJ-|%P5\( A}-M<]8󴐎et TMs-4\-Dy@*PDd"Z`k1YgkQ5<#5>2eFY`H0A}IXp\T&]p㐩%J[H("& tEp l E\TE ?֚|D1AQ q8W<X0#\TM(ttE_2R-ZR Z&@4/Xt¢+[`eB1g5*\$|(f>$EU0E<LgJ0#z\tn[yZHG_AtE_G"eZ(k~s%` M>m>*".ajieBB1JBx¢N>I]Ok-ʼI("&xBiB2-$6D JCS5 P ѾҮT~'Զ5 `e.4e\M 4/PQ1XUT %bBQ:O s݆AД\.:|V0t-q0X&s<|8WQ*2}d8f}ZHGZdu{BX0O-x+dZx*"Ӵ,x܇&6D *<5$&|1qs0:qcn5 }r"ZA/*y." ^CYD.D *<5$&|81pN`:\'q̍T2BX\a ʚ_\c9]ȗ]tlU<e4\k(ȅAEĄ"p81=HE|8F*i!Oj8]AWD+(e[\ED.4\-D U<e84e|߸s:qc|`K:1dD *<5$&|buBP5[_+_`]>`TCԠSCbW+:!=qcs!y,cNpZDB<E .r ybq"S ?T U>%<Ϙ5>|TV H6*U>H2jj.Z,H-X,d\R %q_\ < .,I/B PšXy<% ~D@>I߂y.,"]`"`KjC <5&d4'x\|Us-2͋eނA>R]t$Z(jd\R @WVQ2ٴ1_+0jb][\c9@H.,ݲ`k纍_$6*B-dPۂ,j_H|U .\ xFZ1ei\VhjrXȸ8oY\VhC>R] ѷ HSۂy.,fBWD+}%۸"Z5AhBS=S8לχ{81]X#܂5`!g_|MTmt]@-)QC ]Sx/ /x7>xOaoo_;1A8{BX ^48{!5 湘ΔaF2"ZPQ_Gtl&\\w ] 8bJh %?` xԆ`T죬U0υ$ם{,BePcAը TDAQ>}OD.QKv%`gb.yj<찏iˌZ H y eͯy.3%j"Z󨆡 6*H2jy.Tii <ȸ8[} !ikK 䲊Dy,hH[i["Zr-l[%%jPʼU}ˁCқxbYEQc9Cj+0jU`@>lCHu QC0EYE$T exנd@WD+`0tԆDsQ5>ךXpW 4\<5}lCpXVP5jIT4:|2oAՠ|r'q i^fԲ H yb<y,"Zf1t-TplUCQ⢅CjYy \<"<}ַ(DU#2>my B.H+"~BWD+QJ tEQKJ0tFpb*'qqHzcYE _1 BtEb8p<IV1t T(2iQbM9,]hB-)QU*4XV-ZXȸ8&ӼM-+0jU`L%"'jC6T4E%Q-0O!2>KW,H2jY0ϵPYyb.XI&ؾmd>b-_شez -WPJ/ݛ(zϨ "V 4!(ry湐qqH-$Yo!jqit]`被6\)91p,ţ)^}u8okb/q\2!cr 㘼̨eAE$lJi !O&kZtIoqE/ .wk` ?֚E'kk\(ن S'ȴ]>|5y OE4?+hqy.2-|\(نt]@O(j2-|e!D\J+ ɨHDL %4}TX cpzhsB-)QЅ SeE@!P-TEd'?y!ik$.̙+zTC/-UQ5$i!O,2͓g¢AQ QTb|(eY~Ui>#\§cp,H2B@E+<I>ʼ>\w-:|hbZΖy U|ǒ-\0>vA6T-Z!]`Be.|QÏ-v1R@1*ij\e\{o^>*"D ySz H@4ȅ2eBkB.*&8f)syQ˂$#- T4Obdsx"˄<)D}TM/,j̣6#` !]tפ%X{UfB/I%`L Hor EWD+`Րi!1A8ˌZ` !]x!Q QJ xjٵX&-ʂڨ>$[tEQ yS.Be} %ۨW,,QM lh x\|l>Lo$T  zG<B.sӦ @EGWD+`0tP(k~Ղy.Fe}(\V0tgblυ*X:6x U<%KԂy.Tr~s8S+TBH?!Ox"˄\D<ע+X"e\̅B`*I K}TM" PK&L㘽R>a?@zom^F~Ы?hhh4K7Q5F޻t0bhp6i,}zZةlFMf&Rz({nZ{6 {;XlFYڢvM <ѷx-]T&E/,v$,탭"?oaiYlm!-W, o,]ĥQ.ݴxYybc6רzZة6-)tc:&G#0!I2;8[Oҩcй=AcP5/BecЩOPO ; =f  |1SH#Mk/c㘲X-tB: Ȋ$Y1A8ͣ ~s3&#i0E.AH >x UsXI&>D r4į_8\p_`qqH0EO'hx"+d}H. V,.FmVAQ +"~[E%ѦDzDWLEU#ZhSd'?[E",RJ6c@WD+(xTC ]/f1jCE+` L [y˂y.&S ?TˢjDV$9Ϙ5d3W` _1TCjYdlhXk``NH-EY$jf$z]taHK%9VLp9qcNf ]GmY'`kE$LP߂_`r$z߂$T +(k~s >lቬH1#`M,5U0tČd1A8ˌZtQ/5K_[Lq"V $Զ`sQ5B.d\+ ]i3jU0Ee< %PIBmUT \z[peAQ v1sѹܹѹsF ^~/o84+JlV" J////9t;[w0ŸƊם#lx\3gΜ̙3[g)_v6KZ;z cFy!Ex.Fi!o> Y.0J`sfrcΜy̙Μ獼7.KyR~q >sfr *IʤRqGGB=-zS/:JeR ΤRA8=3Ts׮=pq~\?׏z@2T޷]T*L*8[ᯎAA>KtEL* |w+1}\| cSKlW9%K1V:qcӼ̨eq~^"dZn[dX 8 TMWD+̣Ѕ Sl$<y,qqH- -"Jn[t][E@[ ɨ8B!,l[\8DsZ Z$&P5|a᫚E,|O%s("<\#tt9}"-jxe0O('q$SsnG:fx)Pڙ5:fѮcvQREZC޸4j\4j9yi3tr v4Bcv/jo./ƚֶF8u.ݾu'\Gjt1XkEbugm3FkG=;6]PE%6]7lx\(!鵳gΜygΜ:swu.£]좑/T }& FFKƥѥRRctiԸt u.£]ܹ9JqqHzutљl3)8{|<T9pg£g޴THt gFu jHh(( M <>/f1"Z󨆀o[ oY\Jg .KX@WD+PQĻ[(.F} Sr(ـ\Ҧ=Ho!W-ؿaZ@LE/,"Z`b-߳PT \QZțs %` <찏]tEb1t-,Qڨ`,ZHzB.*&x J tEM,5U lQy!OP-0υ}d\R JYZ_Kf&8x|66z64} zTHG3GzMFe{MmiZ:u gMǽRfc4yH^ g7R!:3۷'\5hs: כ 4F+lc\Oҩc>}gÃ4/8m(?>D= 8Qo 1p ozZة?˘ͧ0KK 8Ɔ!Z{\.u B(wR\ұck( 1K|RnZo4 ǎAh8JǎAho©c3ɔģuN9vDMp{t1A8{B+(k~sQT""ZV(veQUd|`Du@"C<f^e&м_ `JaktFW-l[d\"Q̅[0ϵT0`ZtU0->E &x M&_1{581ͣo㨍_ ]U$|1A&ƽ}ǒQ91<ĸq5MLq1AMl/Ĝ%j$ӂlۛ_Ko)]␴c;ӭfi|>GBYD81|xQ:O )H1SH's""8oLCZ!PE%8SQ |MN)^xすc&;OY `C%q T2j#Mk/cs,60SB2J.f$S8ᴗ1e߂KCJ8{&J-4m ̣B>e-0υ$(6-P(p3&jTZlY^JK;tnZh|>oY(Z0Dm2oj .7-PDf tE%L5\Ĺf)B y.ƽ㭪_Ls>lCu ls1SB2J.f${,H2jAp_AհU 5z`[5XV-$js-2} M eF-TϋYDL:|Vź 湘)!I%}3&0S]4v7Q5MK[;?癠>h|>TE/.s}}T Ϙr 2&x͂y\"ZAB1*ZAD@iA}"Mj\ .*% >"Z%S:H{p e\"U/y.X>Xk UOX\B`"%}EVVQ5#$41(@!!D'|T݃zow'q i/c,mt%Xq 䍛h~jAZHAo- շ8^mv yrzeqSRŹ&3;H뇘81 ^C هBWD+H(`y.PH'jeѦNj' (BR y^CŲi S>mZuQE>&YD\..%U2%j"̋1$5@F:QДq=@Ք5/yM E1A8eLE@T7BWD+hy.QPT5"rV-.jgj"PQKv/J8TJs0'Hs-*y?֚$C (F$c^+hXk*bFr~:|\TMף:|)=@!"B<EK8ᴗ1k8l^AWD+q s,MKwiUq8+OXFZ?׫F+ǎ ǽlwop&fyTK&fl_Wo^nlӍGOQfklc|bTo޽ioUS~bGMFכw0m4ӷQxzM(\O7q=i!M_A<-APf(~W7+\O_AoDMf7Bl{'#8S8W}ب.O0j6.lewB\!}UNPh.Y ǓSL2<77iޫc6崱8{ὥ^5?^8)X0ϵs݆ Seނ ]2er4dEB.M~ oo/{= 1V! t4\'(sJv'ҩcƌ[tJ`# *Ehn`jieނc .QX&#8f+1AxRCI>:|]d."Q"ʂ6Q͂$#- . (鎐'` ɨec]qqH:IP8Oȴ)88f+1^!}*ZI 4!jZU"XFQ[Pi̚Pڵ`k"=d _IZv-~S?qqHIDLZ MyIF-DK-*pc`j&\.fqYF q%H2ݙ8f+1z$iZv$Y5``PC-JQ5 VLK ]W U$Xy\|a☭KL2<7FZ5_[wc;Rt=* UCը"B-THSۂy.t,'HIߵhBZD\.Qbj|5lϵR0}U\kP5(@VAQ"f\OG0JM O#P˄ S>Mpӝ7-~',0%mhŨ)-6iŢAzY.c.i ;9JHsBž\$עԲB,.5T͈TD:81kzxzT\!_v ̄>*2-E%"!OP5R5LhJ%8t\OGskJ( v*Xg%냑.q>k{,y= ?>Fe)ݷ5 B.sV!} )XU)(i&`Q$[ sHPE)}s(th"FطP}wK#wHTW(_\#k<U0ŨH+ǻz2iBy"@YPLF>O\($?fb\d^ÒX|Mj\!PM1;i y,aøC _.ʼedyBXtUUMq^H/kAhPJ V}K898o\ y,Y 4 V0% >,y.I>d]Œqc<ȴ(x"mZ`{J1Qc$\2,C"ILF:ns4KP]O1Z&UM\n^{.7/=rr1A8,ZA뤏w/M4.Mv >g0O!X&ŌkB,TB>%A'`tZ1BSGo3%́[ )XUD""~!O[ *Zy1fBՐdZPced<0"lmA0E,(*Nr >yn)814 |\p ^cN <]ip .p{RAer$y#EVS.d\wSKy0*NsyX,MK,MKI@hd(s (8,"FD(Ǡ'|JDt7-'8'" p%M>]<4>~x2͠dεJe2Ð3]҄$_&=qcN7vFGH ˤ;y1 2!}Kl'a A8me\2#QeUq)q @H z,K2KϋYHC$3ҊqLzNR 9)l.&׆'@ }p i2!L"RC1=pDe@#Q]Ep i9>\+  "z Z-Te0f8JLFHcH(D%`B2ZҊF%4768!{t8ᴙ$Z&(^W/؆ Fƥ #B2ҎA8Tp| F*Q>/fdZH WZ%:81F!|#7 k iDD1%@$ >|JhNdQak Dɑi>QF2y kDYFHyNDK$Z,r TDAQt(>84)\`LoBrpOm_C fp ihnl93f<zyHy"@%'R8s ©P.-~ #vxc 8H !O: q "cNw#Jjc oh68J"F# Ӽ`Gp itXS^bj pH 0!\pi^X0qcNyY4$ a/ !T>:zAY1cNLЄ$J̃<`5h(A:`!|I"D !TVYMD(`Iw@2X&XT2AYD4q ^c&rc(wƅzs:55KwRx2:8 wtܫk*1wQ(/kTTTQo1v)Fy!?cG+ὅ6GF168/z#\TGhS!K)cc*k(#|fp}qLrt1J6BJ(m͍z娂8RyᴔƽFᴄpRzr1t>_ۨ#pRzr1y}mJ~T*gNF}%+#lWN{yiJB6i֫:i zr qLe[%1{{( {{Jer1gLAJ%ya8XkBw8Q ;zuk5 {;Bc2:8 wtܫk*1wQ(/kTTTQo1v)Fy!?cG+ὅ6GF16i> kzr?BJ9f#\\ 4T!4|1ʵ BJ6As>_N+wT*wNZ1JqL0As>_ac BJ ӝR1JqLr?sR}cm1f=m pR8]A8-Y3cc*{tC8#\lFhS>B8Q1J6B5|YjN+G1|6fy tpRqLeqZGzr?B㼐^ՏN+#17Ny^-!\lWW*GBϱЩT1gLAJ%ZiqǽRq꘳B& %x\*z`kx\*zqcθSOqWǹ<]rZ93;HC=J8u(/O)!\lWW*GBϱЩT*g4 qa\sy4yژcJ;9q>jSnjB9F;RyRyRqF9i o97!R7R<cT*B^/B `pRqLrpicN+T*NBR8Q ;zuk5Y;&s):zPOǽN3 )z0lBJJJ1,cb򃼑:|R>K[8HhsT`Sl#Z1J~1,"1F^پ8Rp:9g+۷T*N#\Tn#4T Ƹ( W*c*N{yiJBJ ^iWuJBJ~F:m[B^܏pR9J i> kzr?Bv9f#\\ 4lo#4|1ʵ BAs>_N+wT!4FcBmӃ|{+1;;zc6BJ=WT@8M_h{K+c*#1J~13|6fy tpRq B>BR991ךA}2KgqLtwCx)T*\n𾳥SV&cP9Tp77yN#JeDžF:r$SÐ3]҄$_&=qcN7vFGH ˤ;y1 2!}Kl'a A8me\2#QeUq)q @H z, *ACCNT:NOyo t th firs recor o fil i alphabetical order. M Middl Record Enterin a 'M wil mov yo t th middl recor i th fil (aroun recor #175). +n/-n) Enterin6264131 i6297891 6324671 ~6333489 <6342706 6351475 *6385821 6410033 6411031 6431433 6432048 36437489 {6442481 6463872 6468368 L6469000 6536413 6554434 S6562416 6598358 g6622500 6649361 D6653601 H6654566 2561264 i6297891 6324671 ~6333489 <6342706 6351475 *6385821 6410033 6411031 6431433 6432048 36437489 {6442481 6463872 6468368 L6469000 6536413 6554434 S6562416 6598358 g6622500 6649361 D6653601 H6654566 6657075 6662744 6674440 6410033 6411031 6432048 36437489 {6442481 6463872 6536413 6554434 6598358 g6622500 6649361 D6653601 H6654566 6657075 6662744 667********************** account.cmd ******************* CLEAR USE accounts INDEX accounts,accnt:no DO WHILE t ERASE RELEASE ALL IF * STORE 'DELETED!' TO deleted ELSE STORE ' ' TO deleted ENDIF * ERASE @ 1,11 SAY "****** A C C O U N T S ******" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| ACCOUNT NUMBER:" @ 4,17 SAY accnt:no @ 4,35 SAY deleted @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Name:" @ 6, 7 SAY bill:nm @ 5,32 SAY "Balance:$" @ 5,41 SAY balance @ 6,51 SAY "|" @ 7, 0 SAY "| Addr:" @ 7, 7 SAY bill:ad @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8, 7 SAY bill:cty @ 8,23 SAY bill:st @ 8,35 SAY "Credit:" @ 8,42 SAY credit @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9, 7 SAY bill:zp @ 9,36 SAY "Terms:" @ 9,42 SAY terms @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,35 SAY "Categ.:" @ 10,42 SAY category @ 10,51 SAY "|" @ 10, 0 SAY "| UPS :" @ 10, 7 SAY upszone @ 11,0 SAY "|" @ 11,36 SAY "Buyer:" @ 11,42 SAY buyer @ 11,51 SAY "|" @ 12, 0 SAY "| Salesman:" @ 12,42 SAY salesman @ 12,51 SAY "|" @ 12, 0 SAY "| Phone Number:" @ 12,15 SAY phone:no @ 13,0 SAY "|" @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 14, 0 SAY "| Special Instructions:" @ 14,23 SAY spl:inst @ 15, 0 SAY "|" @ 15,51 SAY "|" @ 16, 0 SAY "| FFL Number:" @ 16,13 SAY ffl:no @ 16,28 SAY "Expires(YYMM):" @ 16,42 SAY expires @ 16,51 SAY "|" @ 17, 0 SAY "+-------------------------------------------------" @ 17,50 SAY "-+" @ 18, 1 SAY "A)add new accnt E)edit this one P)print this o" @ 18,51 SAY "ne" @ 19, 1 SAY "D)delete\recall F)find an accnt N)next accnt" @ 20, 1 SAY "B)prev. accnt T)first record M)middle recor" @ 20,51 SAY "d" @ 21, 1 SAY "L)last record +n/-n) skip X)exit to main" @ 21,52 SAY "m" ? ACCEPT " ENTER CHOICE " TO command DO CASE CASE !(command)= 'X' RETURN CASE !(command)= 'N' SKIP +1 LOOP CASE !(command)= 'B' SKIP -1 LOOP CASE $(command,1,1)= '+' .OR. $(command,1,1)= '-' .OR. val($(command,1,1))>=1 SKIP &command LOOP CASE !(command)= 'T' GO TOP LOOP CASE !(command)= 'L' GO BOTTOM LOOP CASE !(command)= 'M' GO 175 LOOP CASE !(command)= 'D' IF * RECALL STORE ' ' TO deleted ELSE DELETE STORE 'DELETED!' TO deleted ENDIF * LOOP CASE !(command)= 'A' ERASE STORE t TO addnew STORE ' ' TO mem:accnt STORE ' ' TO mem:nm STORE ' ' TO mem:ad STORE ' ' TO mem:cty STORE ' ' TO mem:st STORE ' ' TO mem:zp STORE ' ' TO mem:zone STORE ' ' TO mem:ffl STORE ' ' TO mem:exp STORE ' ' TO mem:phone STORE ' ' TO mem:terms STORE ' ' TO mem:credit STORE ' ' TO mem:spl STORE ' ' TO mem:buyer STORE ' ' TO mem:sales STORE ' ' TO mem:cat STORE 0.00 TO mem:bal SET INDEX TO accnt:no,accounts DO WHILE addnew ERASE @ 1,0 SAY " **** N E W A C C O U N T S ****" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4,0 SAY "| Enter '99' for Account Number to exit to menu" @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| ACCOUNT NUMBER:" @ 6,17 GET mem:accnt PICTURE '!!!!!!!!' @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "| Name:" @ 8, 7 GET mem:nm PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' @ 6,31 SAY "Balance:$" @ 8,51 SAY "|" @ 9, 0 SAY "| Addr:" @ 9, 7 GET mem:ad PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10, 7 GET mem:cty PICTURE '!!!!!!!!!!!!!!!' @ 10,23 GET mem:st PICTURE '!!' @ 11, 7 GET mem:zp PICTURE '99999-9999' @ 6,40 GET mem:bal @ 10,35 SAY "Credit:" @ 10,42 GET mem:credit PICTURE '!!!!' @ 10,51 SAY "|" @ 11, 0 SAY "|" @ 11,36 SAY "Terms:" @ 11,42 GET mem:terms PICTURE '!!!!!!!!' @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,35 SAY "Categ.:" @ 12,42 GET mem:cat PICTURE '!!' @ 12,51 SAY "|" @ 13,33 SAY "Salesman:" @ 13,42 GET mem:sales PICTURE '!!!!!!!!' @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,36 SAY "Buyer:" @ 14,42 GET mem:buyer PICTURE '!!!!!!!!' @ 14,51 SAY "|" @ 13, 0 SAY "| UPS :" @ 13, 7 GET mem:zone PICTURE '!!' @ 15, 0 SAY "| Phone Number:" @ 15,15 GET mem:phone PICTURE '(999) 999-9999' @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| Special Instructions:" @ 17,23 GET mem:spl PICTURE '!!!!!!!!!!!!!!!!!!!!' @ 17,51 SAY "|" @ 18, 0 SAY "|" @ 18,51 SAY "|" @ 19, 0 SAY "| FFL Number:" @ 19,13 GET mem:ffl PICTURE '99-!9-99999' @ 19,27 SAY "Expires(YYMM):" @ 19,41 GET mem:exp PICTURE '9999' @ 19,51 SAY "|" @ 20, 0 SAY "|" @ 20,51 SAY "|" @ 21, 0 SAY "+-------------------------------------------------" @ 21,50 SAY "-+" READ IF mem:accnt= '99' STORE f TO addnew SET INDEX TO accounts,accnt:no LOOP ELSE @ 22,0 INPUT "Is ALL information CORRECT, (Y/N) ? " TO GO IF .not. GO LOOP ELSE STORE !(mem:accnt) TO mem:accnt STORE trim(mem:accnt) TO mem:accnt FIND &mem:accnt IF #<>0 ERASE ? ' **** E R R O R ***' ? ? 'The account number entered for this account is ' ? 'currently in use. You will need to correct this ' ? 'in order for the system to function prperly. There' ? 'canNOT be two accounts with the same number.' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ELSE APPEND BLANK REPLACE accnt:no WITH mem:accnt,bill:nm WITH mem:nm,bill:ad WITH mem:ad REPLACE bill:zp WITH mem:zp,phone:no WITH mem:phone,upszone WITH mem:zone REPLACE terms WITH mem:terms,credit WITH mem:credit,bill:st WITH mem:st REPLACE salesman WITH mem:sales,ffl:no WITH mem:ffl,expires WITH val(mem:exp) REPLACE spl:inst WITH mem:spl,bill:cty WITH mem:cty,buyer WITH mem:buyer REPLACE balance WITH mem:bal,category WITH mem:cat STORE ' ' TO mem:accnt STORE ' ' TO mem:nm STORE ' ' TO mem:ad STORE ' ' TO mem:cty STORE ' ' TO mem:st STORE ' ' TO mem:zp STORE ' ' TO mem:zone STORE ' ' TO mem:ffl STORE ' ' TO mem:exp STORE ' ' TO mem:phone STORE ' ' TO mem:terms STORE ' ' TO mem:credit STORE ' ' TO mem:spl STORE ' ' TO mem:buyer STORE ' ' TO mem:sales STORE ' ' TO mem:cat STORE 0.00 TO mem:bal ENDIF #<>0 ENDIF .not. GO ENDIF mem:accnt= '99' ENDDO WHILE addnew CASE !(command)= 'E' ERASE IF * ? ? ' *** E R R O R ***' ? ? 'You cannot edit a record tagged for deletion.' ? 'Undelete (D) before atempting to edit' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * STORE t TO accedit DO WHILE accedit ERASE @ 1, 0 SAY " **** E D I T A C C O U N T S ****" @ 3, 0 SAY "+--------------------------------------------------+" @ 4,0 SAY "|" @ 4,51 SAY "|" @ 5, 0 SAY "| ACCOUNT NUMBER:" @ 5,17 GET accnt:no PICTURE '!!!!!!!!' @ 5,35 SAY deleted @ 5,51 SAY "|" @ 6, 0 SAY "|" @ 6,31 SAY "Balance:$" @ 6,51 SAY "|" @ 7, 0 SAY "| Name:" @ 7, 7 GET bill:nm PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' @ 7,51 SAY "|" @ 8, 0 SAY "| Addr:" @ 8, 7 GET bill:ad PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9, 7 GET bill:cty PICTURE '!!!!!!!!!!!!!!!' @ 9,23 GET bill:st PICTURE '!!' @ 10, 7 GET bill:zp PICTURE '99999-9999' @ 6,40 GET balance @ 9,35 SAY "Credit:" @ 9,42 GET credit PICTURE '!!!!' @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,36 SAY "Terms:" @ 10,42 GET terms PICTURE '!!!!!!!!' @ 11,35 SAY "Categ.:" @ 11,42 GET category PICTURE '!!' @ 10,51 SAY "|" @ 12,33 SAY "Salesman:" @ 12,42 GET salesman PICTURE '!!!!!!!!' @ 12,51 SAY "|" @ 13, 0 SAY "|" @ 13,36 SAY "Buyer:" @ 13,42 GET buyer PICTURE '!!!!!!!!' @ 13,51 SAY "|" @ 11, 0 SAY "|" @ 11,51 SAY "|" @ 12, 0 SAY "| UPS :" @ 12, 7 GET upszone PICTURE '!!' @ 14, 0 SAY "| Phone Number:" @ 14,15 GET phone:no PICTURE '(999) 999-9999' @ 14,51 SAY "|" @ 15, 0 SAY "|" @ 15,51 SAY "|" @ 16, 0 SAY "| Special Instructions:" @ 16,23 GET spl:inst PICTURE '!!!!!!!!!!!!!!!!!!!!' @ 16,51 SAY "|" @ 17, 0 SAY "|" @ 17,51 SAY "|" @ 18, 0 SAY "| FFL Number:" @ 18,13 GET ffl:no PICTURE '99-!9-99999' @ 18,27 SAY "Expires(YYMM):" @ 18,41 GET expires @ 18,51 SAY "|" @ 19, 0 SAY "|" @ 19,51 SAY "|" @ 20, 0 SAY "+-------------------------------------------------" @ 20,50 SAY "-+" READ @ 21,0 INPUT "Is ALL information CORRECT, (Y/N) ? " TO GO IF .not. GO LOOP ELSE STORE f TO accedit ENDIF .not. GO ENDDO WHILE accedit CASE !(command)= 'P' ERASE ? ? ' ***** P R I N T I N G A C C O U N T S *****' ? ? 'Make sure the paper is lined up and the printer' ? 'is turned ON--press when ready... or' ? "enter an 'A' TO abort printing and RETURN TO menu" ? SET console OFF WAIT TO GO SET console ON IF !(GO)<> 'A' ERASE @ 12,16 SAY "PRINTING" SET console OFF SET PRINT ON SET MARGIN TO 4 ? DATE (), " " ,deleted ? ? "Account Number: " ,accnt:no ? ? " Name: " ,bill:nm ? "Addr.: " ,bill:ad ? " " ,bill:cty,bill:st ? " " ,bill:zp ? ? "Phone #" ,phone:no ? ? " Buyer: " ,buyer ? " Terms: " ,terms ? "UPS Zone: " ,upszone ? "Salesman: " ,salesman ? ? "FFL # " ,ffl:no, " Expires: " ,expires ? SET console ON SET PRINT OFF ENDIF !(GO)<> 'A' CASE !(command)= 'F' STORE t TO finder DO WHILE finder ERASE ? ? " ***** F I N D A C C O U N T S *****" ? ? ? " Press at 'NAME' to find by NUMBER." ? ? ACCEPT " Enter account NAME to find or " TO number1 ? ACCEPT " Enter account NUMBER to find " TO number2 IF $(number1,1,2)= ' ' STORE !(number2) TO number STORE trim(number) TO number SET INDEX TO accnt:no FIND &number IF #=0 ?? chr(07) @ 13,0 SAY " *************NOT ON FILE !!!!************" SET INDEX TO accounts,accnt:no LOOP ELSE STORE str(#,5) TO number SET INDEX TO accounts,accnt:no GO &number STORE f TO finder ENDIF #=0 ELSE STORE !(number1) TO number STORE trim(number) TO number SET exact OFF FIND &number IF #=0 ?? chr(07) @ 13,0 SAY " *************NOT ON FILE !!!!************" SET exact ON LOOP ELSE SET exact ON STORE f TO finder ENDIF #=0 ENDIF $(number1,1,2)= ' ' ENDDO WHILE finder OTHERWISE ?? chr(07) ENDCASE ENDDO WHILE t it menue inventy account inv ordship ledger reports maintain STRUCTURE FOR FILE: A:INVENTY.DBF NUMBER OF RECORDS: 00000 DATE OF LAST UPDATE: 00/00/00 PRIMARY USE DATABASE FLD NAME TYPE WIDTH DEC 001 CAT:NO C 008 002 MAKE C 014 003 MODEL C 014 004 CAL C 004 005 DESCRIPT C 020 006 NET:COST N 008 002 007 SELL:PR N 008 002 008 DLR:PR N 008 002 009 RTL:PR N 008 002 010 ON:HAND N 003 011 ON:ORDER N 003 012 TO:DATE N 005 ** TOTAL ** 00104 (indexed on CAT:NO to B:INVCATNO) STRUCTURE FOR FILE: ACCOUNTS.DBF NUMBER OF RECORDS: 00000 DATE OF LAST UPDATE: 00/00/00 PRIMARY USE DATABASE FLD NAME TYPE WIDTH DEC 001 ACCNT:NO C 008 002 BILL:NM C 030 003 BILL:AD C 030 004 BILL:CTY C 015 005 BILL:ST C 002 006 BILL:ZP C 010 007 UPSZONE C 002 008 FFL:NO C 011 009 EXPIRES N 004 010 TERMS C 008 011 PHONE:NO C 014 012 CREDIT C 004 013 SPL:INST C 020 014 SALESMAN C 008 015 BUYER C 008 016 CATEGORY C 002 017 BALANCE N 010 002 ** TOTAL ** 00187 (indexed on BILL:NM to B:ACCOUNTS) (indexed on ACCNT:NO to B:ACCNT:NO) STRUCTURE FOR FILE: LEDGER.DBF NUMBER OF RECORDS: 00000 DATE OF LAST UPDATE: 00/00/00 PRIMARY USE DATABASE FLD NAME TYPE WIDTH DEC 001 ACCNT:NO C 008 002 DATE C 008 003 DETAIL C 015 004 DEBIT N 008 002 005 CREDIT N 008 002 006 RBALANCE N 008 002 ** TOTAL ** 00056 (indexed on ACCNT:NO to B:LEDGER) STRUCTURE FOR FILE: DIARY.DBF NUMBER OF RECORDS: 00000 DATE OF LAST UPDATE: 00/00/00 PRIMARY USE DATABASE FLD NAME TYPE WIDTH DEC 001 DATE C 008 002 SALES N 010 002 ** TOTAL ** 00019 STRUCTURE FOR FILE: SALESMAN.DBF NUMBER OF RECORDS: 00000 DATE OF LAST UPDATE: 00/00/00 PRIMARY USE DATABASE FLD NAME TYPE WIDTH DEC 001 START:DATE C 008 002 SALESMAN C 008 003 SALES N 010 002 ** TOTAL ** 00027 STRUCTURE FOR FILE: INVMOD.DBF NUMBER OF RECORDS: 00000 DATE OF LAST UPDATE: 00/00/00 PRIMARY USE DATABASE FLD NAME TYPE WIDTH DEC 001 CAT:NO C 008 002 MAKE C 014 003 MODEL C 014 004 CAL C 004 005 DESCRIPT C 020 006 ON:HAND N 003 007 ON:ORDER N 003 008 SELL:PR N 008 002 009 ACCNT:NO C 008 010 BILL:NM C 030 011 BILL:AD C 030 012 BILL:CTY C 015 013 BILL:ST C 002 014 BILL:ZP C 010 015 UPSZONE C 001 016 FFL:NO C 011 017 EXPIRES N 004 018 TERMS C 008 019 SALESMAN C 008 ** TOTAL ** 00202 A:INVNMBR.MEM INV:NO (C) 15000 GSALES (N) 0.00 ** TOTAL ** 02 VARIABLES USED 00012 BYTES USED M=02,L=57,W=132 N Y N 8,ACCNT:NO 'A' CASE !(choice)= '4' CLEAR ERASE ? ? ' *** C H A N G E I N V O I C E N U M B E R ***' ? ? RESTORE FROM a:invnmbr STORE ' ' TO inv:no2 ? ? 'The OLD invoice number was: ' , "BILL:NMyo t th firs recor o fil i alphabetical order. M Middl Record Enterin a 'M wil mov yo t th middl recor i th fil (aroun recor #175). +n/-n) Enterin6264131 i6297891 6324671 ~6333489 <6342706 6351475 *6385821 6410033 6411031 6431433 6432048 36437489 {6442481 6463872 6468368 L6469000 6536413 6554434 S6562416 6598358 g6622500 6649361 D6653601 H6654566 --STEVEN SINOFSKY ~6333489 <6342706 6351475 *6385821 6410033 6411031 6431433 6432048 36437489 {6442481 6463872 6468368 L6469000 6536413 6554434 S6562416 6598358 g6622500 6649361 D6653601 H6654566 6657075 6662744 6674440 6410033 6411031 6432048 36437489 {6442481 6463872 6536413 6554434 6598358 g6622500 6649361 D6653601 H6654566 6657075 6662744 667 *CAT:NOyo t th firs recor o fil i alphabetical order. M Middl Record Enterin a 'M wil mov yo t th middl recor i th fil (aroun recor #175). +n/-n) Enterin6264131 i6297891 6324671 ~6333489 <6342706 6351475 *6385821 6410033 6411031 6431433 6432048 36437489 {6442481 6463872 6468368 L6469000 6536413 6554434 S6562416 6598358 g6622500 6649361 D6653601 H6654566 123 i6297891 6324671 ~6333489 <6342706 6351475 *6385821 6410033 6411031 6431433 6432048 36437489 {6442481 6463872 6468368 L6469000 6536413 6554434 S6562416 6598358 g6622500 6649361 D6653601 H6654566 6657075 6662744 6674440 6410033 6411031 6432048 36437489 {6442481 6463872 6536413 6554434 6598358 g6622500 6649361 D6653601 H6654566 6657075 6662744 667hCAT:NOClMAKEClMODELClCALClDESCRIPTClNET:COSTN mSELL:PRNmDLR:PRNmRTL:PRN%mON:HANDN-mON:ORDERN0mTO:DATEN3m 123 ABCDEFG HIJKLMN QSEQABCDEFGHIJKLMNOPQRST 213.00 213.00 213.00 213.00213123 213-----------------------------------------------' ? 'TOTAL MDSE:$',MTOTAL,' |SHIPPING: |INSURANCE: |COD C'+; 'HG:',COD,'|NET*TOTAL* -->: ' ? '-------------------------------------------------------------------------'+; '----------------------------------------------------------' EJECT ?? CHR(18) SET PRINT OFF ERASE ? ? '*****************T8ACCNT:NOCrDATECrDETAILCrDEBITNrCREDITNrRBALANCENr 2561264 01/01/84ABCDEFGHIJKLMNO 25.00 25.00 2561264 01/01/84RWIROEJFGDG 50.00 75.00 2561264 01/01/84GDSFJDFGKFD 50.00 25.0034 6562416 66562416 76562416 6562416 6622500 6622500 6622500 v6622500 6622500 d6622500 6622500 6622500 5 6622500 6653601 6653601 6653601 s 6653601 6653601 z 6653601 6654566 6654566 T6674440 ?6674440 6674440 6682083 6682083 d6682100 668 *ACCNT:NOyo t th firs recor o fil i alphabetical order. M Middl Record Enterin a 'M wil mov yo t th middl recor i th fil (aroun recor #175). +n/-n) Enterin an numbe fro th Accoun Men wil mov yo eithe fowar o backward tha man items i.e +1 o 1 wil mov yo fowar 1 Accoun item i alphabetica order - wil mov yo backward item i alphabetica order. F Fin Accouns Thi i th mos po2561264 2561264 2561264 mov yo eithe fowar o backward tha man items i.e +1 o 1 wil mov yo fowar 1 Accoun item i alphabetica order - wil mov yo backward item i alphabetica order. F Fin Accouns Thi i th mos powerfu wa o locatin particula Account I thi optio i chose al yo nee t d i ente vali accoun numbe o an portio o th accoun nam (enoug s tha i i no ambiguous an withi ************************ inv.cmd ******************* CLEAR DO WHILE t RELEASE ALL SELECT PRIMARY USE a:invoice SELECT seco USE accounts INDEX accnt:no,accounts STORE t TO getaccnt DO WHILE getaccnt ERASE ? ? ' ***** I N V O I C E C R E A T I O N *****' ? ? ? 'Please enter the ACCOUNT NUMBER for this' ACCEPT "transaction or '99' to return to the Menu" TO number IF number= '99' RETURN ENDIF number= '99' SELECT seco STORE !(number) TO number FIND &number IF #=0 ? chr(07) ? " ********NOT ON FILE !!!********* " LOOP ENDIF #=0 IF * ? ? ' *** E R R O R ***' ? ? 'You cannot use a record tagged for deletion.' ? 'Undelete (D) before atempting to use in an invoice' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * ERASE @ 1, 0 SAY ' ***** I N V O I C E C R E A T I O N *****' @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| ACCOUNT NUMBER:" @ 4,17 SAY accnt:no @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Name:" @ 6, 7 SAY bill:nm @ 6,32 SAY "Balance:$" @ 6,41 SAY balance @ 6,51 SAY "|" @ 7, 0 SAY "| Addr:" @ 7, 7 SAY bill:ad @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8, 7 SAY bill:cty @ 8,23 SAY bill:st @ 8,35 SAY "Credit:" @ 8,42 SAY credit @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9, 7 SAY bill:zp @ 9,36 SAY "Terms:" @ 9,42 SAY terms @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,35 SAY "Categ.:" @ 10,42 SAY category @ 10,51 SAY "|" @ 11, 0 SAY "| UPS :" @ 11, 7 SAY upszone @ 11,36 SAY "Buyer:" @ 11,42 SAY buyer @ 11,51 SAY "|" @ 12, 0 SAY "| Salesman:" @ 12,42 SAY salesman @ 12,51 SAY "|" @ 13, 0 SAY "| Phone Number:" @ 13,15 SAY phone:no @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| Special Instructions:" @ 15,23 SAY spl:inst @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| FFL Number:" @ 17,13 SAY ffl:no @ 17,28 SAY "Expires(YYMM):" @ 17,42 SAY expires @ 17,51 SAY "|" @ 18, 0 SAY "+-------------------------------------------------" @ 18,50 SAY "-+" ? INPUT "Correct Account, (Y/N) ? " TO GO IF .not. GO LOOP ELSE SELECT PRIMARY APPEND BLANK REPLACE expires WITH s.expires,terms WITH s.terms,upszone WITH s.upszone,; salesman WITH s.salesman,ffl:no WITH s.ffl:no REPLACE accnt:no WITH s.accnt:no,bill:nm WITH s.bill:nm,bill:ad WITH s.bill:ad,; bill:cty WITH s.bill:cty,bill:st WITH s.bill:st,bill:zp WITH s.bill:zp STORE f TO getaccnt ENDIF .not. GO ENDDO WHILE getaccnt SELECT PRIMARY USE a:invoice SELECT secondary USE inventy INDEX invcatno STORE 1 TO getproduct DO WHILE getproduct<12 ERASE ? ? ' ***** I N V O I C E C R E A T I O N *****' ? ? ? 'Please enter the CATALOG NUMBER of one of the' ? "items for this invoice--or enter an '99' to STOP" ACCEPT "entering products " TO product IF product= '99' STORE 15 TO getproduct LOOP ELSE SELECT seco STORE !(product) TO product FIND &product IF #=0 ? chr(07) ? ' *********NOT ON FILE!!!*********' LOOP ENDIF #=0 IF * ? ? ' *** E R R O R ***' ? ? 'You cannot use a record tagged for deletion.' ? 'Undelete (D) before atempting to use in an invoice.' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * ERASE @ 1, 0 SAY ' ***** I N V O I C E C R E A T I O N *****' @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| PRODUCT NUMBER:" @ 4,22 SAY cat:no @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Make:" @ 6,12 SAY make @ 6,30 SAY "Model:" @ 6,36 SAY model @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "| Cal:" @ 8,12 SAY cal @ 8,24 SAY "Desc.:" @ 8,30 SAY descript @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| Cost $:" @ 11,14 SAY net:cost @ 11,27 SAY "Dealer $:" @ 11,36 SAY dlr:pr @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "| Selling $:" @ 13,14 SAY sell:pr @ 13,27 SAY "Retail $:" @ 13,36 SAY rtl:pr @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| TO DATE:" @ 15,24 SAY to:date @ 15,51 SAY "|" @ 16, 0 SAY "| IN STOCK:" @ 16,24 SAY on:hand @ 16,51 SAY "|" @ 17, 0 SAY "| ON ORDER:" @ 17,24 SAY on:order @ 17,51 SAY "|" @ 18, 0 SAY "+-------------------------------------------------" @ 18,50 SAY "-+" ? INPUT "Correct product, (Y/N) " TO GO IF .not. GO LOOP ELSE @ 19,0 @ 20,0 @ 21,0 STORE ' ' TO qty @ 20,0 SAY "How many were ORDERED:" GET qty READ STORE val(qty) TO nqty IF nqty>s.on:hand @ 20,0 @ 20,0 SAY " ********SOME WILL BE BACK-ORDERED********" @ 21,0 SAY chr(07) @ 22,0 SAY " press to continue" @ 22,0 SAY ' ' SET console OFF WAIT SET console ON STORE s.on:hand TO ship ELSE STORE nqty TO ship ENDIF nqty>s.on:hand CLEAR GETS @ 19,0 @ 20,0 @ 21,0 @ 22,0 @ 19,0 SAY 'According to my records the unit price of ' @ 20,0 SAY 'product is $' @ 20,8 SAY s.cat:no @ 20,23 SAY s.sell:pr ? ACCEPT "Correct for this sale only, (Y/N) ? " TO newprice IF !(newprice)= 'N' STORE 0.00 TO sell @ 19,0 @ 20,0 @ 21,0 @ 22,0 @ 20,0 SAY "What is the price for this sale $ " GET sell READ ELSE STORE s.sell:pr TO sell ENDIF .not. newprice SELECT PRIMARY APPEND BLANK REPLACE cat:no WITH s.cat:no,make WITH s.make,model WITH s.model,cal WITH s.cal REPLACE descript WITH s.descript,sell:pr WITH sell,on:order WITH nqty,on:hand WITH ship STORE getproduct+1 TO getproduct ENDIF .not. GO ENDIF product= '99' ENDDO WHILE getproduct<12 ERASE RESTORE FROM a:invnmbr SELECT PRIMARY USE a:invoice GO TOP ? ? ? ' ***** I N V O I C E C R E A T I O N *****' ? ? ? 'Please at this time enter the total shipping' ACCEPT "costs for this invoice or 'PU' for pick-up " TO ship SUM on:hand*sell:pr TO subtotal IF !(ship)= 'PU' STORE 0.00 TO mem:ship STORE ' 0.00' TO ship STORE 0.00 TO ins STORE 'PICK-UP' TO mem:terms STORE ' 0.00' TO cod STORE 0.00 TO mem:cod ELSE GO 1 STORE val(ship) TO mem:ship IF terms= 'COD' .OR. terms= 'C.O.D.' .OR. terms= 'C.O.D' .OR. terms= 'CASH' STORE ' 1.65' TO cod ELSE STORE ' 0.00' TO cod ENDIF terms= 'COD' .OR. terms= 'C.O.D.' .OR. t STORE terms TO mem:terms STORE val(cod) TO mem:cod IF subtotal<100.00 STORE 0.00 TO ins ELSE STORE .25*(int(subtotal/100)) TO ins ENDIF subtotal ENDIF ship= 'PU' STORE mem:cod+subtotal+mem:ship+ins TO invtotal ERASE ? ? ' **** P R I N T I N G I N V O I C E ****' ? ? ? 'You will now PRINT this INVOICE-------' ? ? ? 'Put the correct forms in the printer and ' ? "press -- or enter an 'A' to ABORT this" ? 'invoice and return to Main Menu.' ? SET console OFF WAIT TO abort SET console ON IF !(abort)= 'A' ? chr(07) ? 'Are you sure you want to QUIT this invoice, (Y/N) ?' ? SET console OFF WAIT TO abort SET console ON IF !(abort)= 'Y' CLEAR DELETE FILES a:invoice USE a:invmod COPY STRUCTURE TO a:invoice RETURN ENDIF !(abort)= 'Y' ENDIF !(abort)= 'A' ERASE @ 10,12 SAY "PRINTING INVOICE" SET console OFF SET EJECT OFF SET FORM TO PRINT ?? chr(18) SET MARGIN TO 0 GOTO 1 STORE accnt:no TO number @ 1,40 SAY " INVOICE #" @ 1,53 SAY chr(14)+inv:no @ 3,40 SAY " SHIPED:" @ 3,50 SAY DATE () @ 4,1 SAY "SHIP TO:" @ 4,11 SAY accnt:no @ 5,40 SAY " CUSTOMER ORDER #" @ 6,4 SAY bill:nm @ 7,4 SAY bill:ad @ 7,41 SAY " FFL #" @ 7,48 SAY ffl:no @ 7,65 SAY "EXP:" @ 7,69 SAY expires @ 8, 4 SAY bill:cty @ 8,20 SAY bill:st @ 9,4 SAY bill:zp @ 9,40 SAY " TERMS:" @ 9,48 SAY mem:terms @ 11,40 SAY " ACCNT. EXEC.:" @ 11,55 SAY salesman @ 13,40 SAY " UPS ZONE:" @ 13,51 SAY upszone @ 15,40 SAY " F.O.B.: CASSELBERRY,FL" @ 17,0 SAY "_______________________________________________________________________________" SKIP +1 SET PRINT ON ? chr(15) ? " ORD CAT. # MAKE MODEL CAL " +; " DESCRIPTION SHIP * UNIT = TOTAL" ? ? DO WHILE .not. eof (.AND. .not. *) DISPLAY OFF on:order, ' ' ,cat:no,make,model,cal,descript,on:hand,sell:pr, ' ' ,on:hand*sell:pr ? ? SKIP +1 ENDDO WHILE .not. eof @ 56,0 SAY "____________________________________________________________________________________" @ 56,84 SAY "________________________________________________" @ 57,0 SAY "MERCHDSE.: $" @ 57,13 SAY subtotal @ 57,29 SAY "SHIPPING: $" @ 57,42 SAY ship @ 57,51 SAY "COD CHGE.: $" @ 57,64 SAY cod @ 57,73 SAY "INS.: $" @ 57,81 SAY ins @ 57,95 SAY "PAY THIS AMT ===> $" @ 57,115 SAY invtotal @ 58,0 SAY "____________________________________________________________________________________" @ 58,84 SAY "________________________________________________" EJECT ?? chr(18) SET PRINT OFF SET console ON SET FORMAT TO screen ERASE ? ? ? ' ***** I N V O I C E C R E A T I O N ****' ? ? ? "You can now RECORD this invoice on the Account's" ? 'ledger card AND in the main inventory file -- or' ? "enter an 'A' to ABORT this Invoice" ? SET console OFF WAIT TO abort SET console ON IF !(abort)= 'A' ? chr(07) ? 'Are you sure you want to QUIT this invoice, (Y/N) ?' ? SET console OFF WAIT TO abort SET console ON IF !(abort)= 'Y' CLEAR DELETE FILES a:invoice USE a:invmod COPY STRUCTURE TO a:invoice RETURN ENDIF !(abort)= 'Y' ENDIF !(abort)= 'A' SELECT PRIMARY USE accounts INDEX accnt:no,accounts SELECT seco USE ledger INDEX ledger ERASE @ 12,15 SAY "Recording.." SELECT PRIMARY FIND &number REPLACE balance WITH balance+invtotal STORE balance TO rbal SELECT seco APPEND BLANK REPLACE detail WITH inv:no,DATE WITH DATE (),debit WITH invtotal REPLACE rbalance WITH rbal,accnt:no WITH number SELECT PRIMARY USE a:invoice GO 1 STORE p.salesman TO mem:sales SKIP +1 SELECT seco USE inventy INDEX invcatno SELECT PRIMARY DO WHILE .not. eof STORE p.cat:no TO number SELECT seco FIND &number REPLACE s.on:hand WITH s.on:hand-p.on:hand SELECT PRIMARY SKIP +1 ENDDO WHILE .not. eof STORE str(val(inv:no)+1,7) TO inv:no STORE gsales+invtotal TO gsales SELECT PRIMARY USE a:salesman LOCATE FOR salesman=mem:sales IF eof APPEND BLANK REPLACE salesman WITH mem:sales,start:date WITH DATE (),sales WITH subtotal ELSE REPLACE sales WITH sales+subtotal ENDIF eof RELEASE getaccnt,number,GO,getproduct,product,qty,nqty,ship,mem:ship,sell RELEASE cod,mem:cod,subtotal,abort,ddate,number,msales,invtotal,mterms,ins RELEASE mem:sales,newprice,rbal SAVE TO a:invnmbr SELECT PRIMARY USE a:invmod COPY STRUCTURE TO a:invoice ENDDO WHILE t RETURN ********************* inventy.cmd ****************** CLEAR USE inventy INDEX invcatno DO WHILE t RELEASE ALL ERASE IF * STORE 'DELETED!' TO deleted ELSE STORE ' ' TO deleted ENDIF * ERASE @ 1,11 SAY "**** I N V E N T O R Y ****" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| PRODUCT NUMBER:" @ 4,22 SAY cat:no @ 4,38 SAY deleted @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Make:" @ 6,12 SAY make @ 6,30 SAY "Model:" @ 6,36 SAY model @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "| Cal:" @ 8,12 SAY cal @ 8,24 SAY "Desc.:" @ 8,30 SAY descript @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9,51 SAY "|" @ 10, 0 SAY "| Cost $:" @ 10,14 SAY net:cost @ 10,27 SAY "Dealer $:" @ 10,36 SAY dlr:pr @ 10,51 SAY "|" @ 11, 0 SAY "|" @ 11,51 SAY "|" @ 12, 0 SAY "| Selling $:" @ 12,14 SAY sell:pr @ 12,27 SAY "Retail $:" @ 12,36 SAY rtl:pr @ 12,51 SAY "|" @ 13, 0 SAY "|" @ 13,51 SAY "|" @ 14, 0 SAY "| TO DATE:" @ 14,24 SAY to:date @ 14,51 SAY "|" @ 15, 0 SAY "| IN STOCK:" @ 15,24 SAY on:hand @ 15,51 SAY "|" @ 16, 0 SAY "| ON ORDER:" @ 16,24 SAY on:order @ 16,51 SAY "|" @ 17, 0 SAY "+-------------------------------------------------" @ 17,50 SAY "-+" @ 18, 1 SAY "A)add new items E)edit this one P)print this" @ 18,51 SAY "one" @ 19, 1 SAY "D)delete\recall F)find a record N)next record" @ 20, 1 SAY "B)prev. record T)first record M)middle reco" @ 20,51 SAY "rd" @ 21, 1 SAY "L)last record +n/-n) skip X)exit to mai" @ 21,51 SAY "n menu" ? ACCEPT " ENTER CHOICE " TO command DO CASE CASE !(command)= 'X' RETURN CASE !(command)= 'N' SKIP +1 LOOP CASE !(command)= 'B' SKIP -1 LOOP CASE $(command,1,1)= '+' .OR. $(command,1,1)= '-' .OR. val($(command,1,1))>=1 SKIP &command LOOP CASE !(command)= 'T' GO TOP LOOP CASE !(command)= 'L' GO BOTTOM LOOP CASE !(command)= 'M' GO 400 LOOP CASE !(command)= 'D' IF * RECALL STORE ' ' TO deleted ELSE DELETE STORE 'DELETED!' TO deleted ENDIF * LOOP CASE !(command)= 'A' STORE t TO addnew STORE ' ' TO mem:cat STORE ' ' TO mem:make STORE ' ' TO mem:model STORE ' ' TO mem:cal STORE ' ' TO mem:descr STORE 0.00 TO mem:rtl STORE 0.00 TO mem:cost STORE 0.00 TO mem:sell STORE 0.00 TO mem:dlr STORE ' ' TO mem:oh STORE ' ' TO mem:oo DO WHILE addnew ERASE @ 1,0 SAY " **** N E W I N V E N T O R Y ****" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| Enter a '99' for product number to exit." @ 4,51 SAY "|" @ 5,0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| PRODUCT NUMBER:" @ 6,18 GET mem:cat PICTURE '!!!!!!!!' @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8,51 SAY "|" @ 9, 0 SAY "| Make:" @ 9,12 GET mem:make PICTURE '!!!!!!!!!!!!!!' @ 9,30 SAY "Model:" @ 9,36 GET mem:model PICTURE '!!!!!!!!!!!!!!' @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| Cal:" @ 11,12 GET mem:cal PICTURE '!!!!' @ 11,22 SAY "Descr.:" @ 11,29 GET mem:descr PICTURE '!!!!!!!!!!!!!!!!!!!!' @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "| Cost $:" @ 13,12 GET mem:cost @ 13,27 SAY "Dealer $:" @ 13,36 GET mem:dlr @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| Selling $:" @ 15,12 GET mem:sell @ 15,27 SAY "Retail $:" @ 15,36 GET mem:rtl @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "|" @ 17,51 SAY "|" @ 18, 0 SAY "| IN STOCK:" @ 18,24 GET mem:oh PICTURE '999' @ 18,51 SAY "|" @ 19, 0 SAY "| ON ORDER:" @ 19,24 GET mem:oo PICTURE '999' @ 19,51 SAY "|" @ 20, 0 SAY "|" @ 20,51 SAY "|" @ 21, 0 SAY "+-------------------------------------------------" @ 21,50 SAY "-+" READ IF mem:cat= '99' STORE f TO addnew LOOP ELSE @ 22,0 INPUT "Is ALL information CORRECT, (Y/N) ?" TO GO IF .not. GO LOOP ELSE FIND &mem:cat IF #<>0 ERASE ? ' *** E R R O R ***' ? ? 'The product number entered for this product is ' ? 'currently in use. You will need to correct this ' ? 'in order for the system to function prperly. There' ? 'canNOT be two products with the same number.' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ELSE APPEND BLANK REPLACE make WITH mem:make,model WITH mem:model,cal WITH mem:cal REPLACE descript WITH mem:descr,sell:pr WITH mem:sell,dlr:pr WITH mem:dlr REPLACE on:hand WITH val(mem:oh), on:order WITH val(mem:oo),cat:no WITH mem:cat REPLACE net:cost WITH mem:cost,rtl:pr WITH mem:rtl,to:date WITH val(mem:oh) STORE ' ' TO mem:cat STORE ' ' TO mem:make STORE ' ' TO mem:model STORE ' ' TO mem:cal STORE ' ' TO mem:descr STORE 0.00 TO mem:rtl STORE 0.00 TO mem:cost STORE 0.00 TO mem:sell STORE 0.00 TO mem:dlr STORE ' ' TO mem:oh STORE ' ' TO mem:oo ENDIF #<>0 ENDIF .not. GO ENDIF mem:cat= '99' ENDDO WHILE addnew CASE !(command)= 'E' ERASE IF * ? ? ' *** E R R O R ***' ? ? 'You cannot edit a record tagged for deletion.' ? 'Undelete (D) before atempting to edit' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * STORE t TO invedit DO WHILE invedit ERASE @ 1,1 SAY " **** E D I T I N V E N T O R Y ****" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "|" @ 4,51 SAY "|" @ 5,00 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| PRODUCT NUMBER:" @ 6,18 GET cat:no PICTURE '!!!!!!!!' @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8,51 SAY "|" @ 9, 0 SAY "| Make:" @ 9,12 GET make PICTURE '!!!!!!!!!!!!!!' @ 9,30 SAY "Model:" @ 9,36 GET model PICTURE '!!!!!!!!!!!!!!' @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| Cal:" @ 11,12 GET cal PICTURE '!!!!' @ 11,22 SAY "Descr.:" @ 11,29 GET descript PICTURE '!!!!!!!!!!!!!!!!!!!!' @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "| Cost $:" @ 13,12 GET net:cost @ 13,27 SAY "Dealer $:" @ 13,36 GET dlr:pr @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| Selling $:" @ 15,12 GET sell:pr @ 15,27 SAY "Retail $:" @ 15,36 GET rtl:pr @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| TO DATE:" @ 17,51 SAY "|" @ 17,24 GET to:date @ 18, 0 SAY "| IN STOCK:" @ 18,24 GET on:hand @ 18,51 SAY "|" @ 19, 0 SAY "| ON ORDER:" @ 19,24 GET on:order @ 19,51 SAY "|" @ 20, 0 SAY "|" @ 20,51 SAY "|" @ 21, 0 SAY "+-------------------------------------------------" @ 21,50 SAY "-+" READ @ 22,0 INPUT "Is ALL information CORRECT, (Y/N) ?" TO GO IF .not. GO LOOP ELSE STORE f TO invedit ENDIF .not. GO ENDDO WHILE invedit CASE !(command)= 'P' ERASE ? ? ' **** P R I N T I N G I N V E N T O R Y ****' ? ? 'Make sure the paper is lined up and the printer' ? 'is turned ON--press when ready... or' ? "enter an 'A' TO abort printing and RETURN to menu" ? SET console OFF WAIT TO GO SET console ON IF !(GO)<> 'A' ERASE @ 10,16 SAY "PRINTING" SET console OFF SET PRINT ON SET MARGIN TO 6 ? ? ? ? DATE (), " " ,deleted ? ? "Catalog Number: " ,cat:no ? ? " Make: " ,make ? " Model: " ,model ? " Caliber: " ,cal ? " Descr: " ,descript ? ? " Selling price: " ,sell:pr ? " Dealer price: " ,dlr:pr ? " Retail price: " ,rtl:pr ? ? ? SET console ON SET PRINT OFF ENDIF !(GO)<> 'A' CASE !(command)= 'F' STORE t TO finder DO WHILE finder ERASE ? ? ' **** F I N D I N V E N T O R Y ****' ? ? ? 'Please enter the catalog number of the product' ACCEPT "you wish to find " TO number STORE !(number) TO number FIND &number IF #=0 ?? chr(07) @ 10,0 SAY ' ************NOT ON FILE!!!**************' LOOP ELSE STORE f TO finder ENDIF #=0 ENDDO WHILE finder OTHERWISE ?? chr(07) ENDCASE ENDDO WHILE t ****************** it.cmd ************************* CLEAR ERASE SET inten OFF SET talk OFF SET confirm ON SET escape OFF SET colon OFF SET exact ON SET DEFAULT TO b ? ? ' hello!!' ? ? ' Version 4.0 01-01-84' ? ? ? ' ***** * * * * ***** * * ***** * *' ? ' * ** * * * * ** * * * * ' ? ' * * * * * * *** * * * * *** ' ? ' * * * * * * * * * * * * ' ? ' * * ** * * * * ** * * ' ? ' ***** * * * ***** * * * * ' @ 5,1 SAY '.' @ 5,2 SAY '..' @ 5,4 SAY '..' @ 5,6 SAY '..' @ 5,8 SAY '..' @ 5,10 SAY '..' @ 5,12 SAY '..' @ 5,14 SAY '..' @ 5,16 SAY '..' @ 5,18 SAY '..' @ 5,20 SAY '..' @ 5,22 SAY '..' @ 5,24 SAY '..' @ 5,26 SAY '..' @ 5,28 SAY '..' @ 5,30 SAY '..' @ 5,32 SAY '..' @ 5,34 SAY '..' @ 5,36 SAY '..' @ 5,38 SAY '..' @ 5,40 SAY '..' @ 5,42 SAY '..' @ 5,44 SAY '..' @ 5,46 SAY '..' @ 5,48 SAY '..' @ 5,50 SAY '..' @ 5,51 SAY ":" @ 6,51 SAY ":" @ 7,51 SAY ":" @ 8,51 SAY ":" @ 9,51 SAY ":" @ 10,51 SAY ":" @ 11,51 SAY ":" @ 12,51 SAY ":" @ 13,51 SAY ":" @ 14,51 SAY ":" @ 14,50 SAY '.' @ 14,48 SAY '..' @ 14,46 SAY '..' @ 14,44 SAY '..' @ 14,42 SAY '..' @ 14,40 SAY '..' @ 14,38 SAY '..' @ 14,36 SAY '..' @ 14,34 SAY '..' @ 14,32 SAY '..' @ 14,30 SAY '..' @ 14,28 SAY '..' @ 14,26 SAY '..' @ 14,24 SAY '..' @ 14,22 SAY '..' @ 14,20 SAY '..' @ 14,18 SAY '..' @ 14,16 SAY '..' @ 14,14 SAY '..' @ 14,12 SAY '..' @ 14,10 SAY '..' @ 14,08 SAY '..' @ 14,06 SAY '..' @ 14,04 SAY '..' @ 14,02 SAY '..' @ 14,01 SAY '.' @ 14,0 SAY ":" @ 13,0 SAY ":" @ 12,0 SAY ":" @ 11,0 SAY ":" @ 10,0 SAY ":" @ 09,0 SAY ":" @ 08,0 SAY ":" @ 07,0 SAY ":" @ 06,0 SAY ":" @ 05,0 SAY ":" @ 17,06 SAY " CREATED by Steven Jay Sinofsky" @ 19,06 SAY "213 N. Baker Hall Cornell University" @ 20,06 SAY " Ithaca, NY 14853" @ 21,06 SAY " (607) 256-1264" @ 5,1 SAY '=' @ 5,2 SAY '==' @ 5,4 SAY '==' @ 5,6 SAY '==' @ 5,8 SAY '==' @ 5,10 SAY '==' @ 5,12 SAY '==' @ 5,14 SAY '==' @ 5,16 SAY '==' @ 5,18 SAY '==' @ 5,20 SAY '==' @ 5,22 SAY '==' @ 5,24 SAY '==' @ 5,26 SAY '==' @ 5,28 SAY '==' @ 5,30 SAY '==' @ 5,32 SAY '==' @ 5,34 SAY '==' @ 5,36 SAY '==' @ 5,38 SAY '==' @ 5,40 SAY '==' @ 5,42 SAY '==' @ 5,44 SAY '==' @ 5,46 SAY '==' @ 5,48 SAY '==' @ 5,50 SAY '==' @ 5,51 SAY "|" @ 6,51 SAY "|" @ 7,51 SAY "|" @ 8,51 SAY "|" @ 9,51 SAY "|" @ 10,51 SAY "|" @ 11,51 SAY "|" @ 12,51 SAY "|" @ 13,51 SAY "|" @ 14,51 SAY "|" @ 14,50 SAY '=' @ 14,48 SAY '==' @ 14,46 SAY '==' @ 14,44 SAY '==' @ 14,42 SAY '==' @ 14,40 SAY '==' @ 14,38 SAY '==' @ 14,36 SAY '==' @ 14,34 SAY '==' @ 14,32 SAY '==' @ 14,30 SAY '==' @ 14,28 SAY '==' @ 14,26 SAY '==' @ 14,24 SAY '==' @ 14,22 SAY '==' @ 14,20 SAY '==' @ 14,18 SAY '==' @ 14,16 SAY '==' @ 14,14 SAY '==' @ 14,12 SAY '==' @ 14,10 SAY '==' @ 14,08 SAY '==' @ 14,06 SAY '==' @ 14,04 SAY '==' @ 14,02 SAY '==' @ 14,01 SAY '=' @ 14,0 SAY "|" @ 13,0 SAY "|" @ 12,0 SAY "|" @ 11,0 SAY "|" @ 10,0 SAY "|" @ 09,0 SAY "|" @ 08,0 SAY "|" @ 07,0 SAY "|" @ 06,0 SAY "|" @ 05,0 SAY "|" @ 22,0 STORE 1 TO x DO WHILE x<50 STORE x+1 TO x ENDDO WHILE x<50 SET bell OFF STORE '00/00/00' TO mdate STORE t TO getdate DO WHILE getdate ERASE ? ? " Enter date as MM/DD/YY" @ 3,0 SAY " or for none: " GET mdate PICTURE '99/99/99' READ IF val($(mdate,1,2))>12 ; .OR. val($(mdate,4,2))>31 ; .OR. (val($(mdate,7,2))<84 .AND. val($(mdate,7,2))<>0) @ 5,0 SAY chr(7) ? " **** INVALID DATE, RE-ENTER ****" STORE 1 TO x DO WHILE x<25 STORE x+1 TO x ENDDO WHILE x<25 LOOP ELSE STORE f TO getdate SET DATE TO &mdate ENDIF val($(mdate,1,2))>12 ; ENDDO WHILE getdate RELEASE mdate,x,getdate SET bell ON USE a:diary GO BOTTOM IF DATE=DATE () RESTORE FROM a:invnmbr STORE sales TO gsales SAVE TO a:invnmbr ENDIF DATE=DATE () DO a:menue M=02,L=57,W=135 N Y N 8,ACCNT:NO for none: " GET mdate PICTURE '99/99/99' READ IF val($(mdate,1,2))>12 ; .OR. val($(mdate,4,2))>31 ; .OR. (val($(mdate,7,2))<84 .AND. val($(mdate,7,2))<>0) @ 5,0 SAY chr(7) ? " **** INVALID DATE, RE-ENTER ****" STORE 1 TO x DO WHILE x<25 STORE x+1 TO x ENDDO WHILE x<25 LOOP ELSE STORE f TO getdate SET DATE TO &mdate ENDIF val($(mdate,1,2))>12 ; ENDDO WHILE getdate RELEASE mdate,x,getdate SET bell ON SET talk ON DO WHILE t ERASE ? "****************************************************" ? ' M A I N T E N A N C E M E N U' ? "****************************************************" ? ? ' 1. COPY-CHOP Account File' ? ? ' 2. COPY-CHOP Inventory File' ? ? ' 3. PURGE Ledger File' ? ? ' 4. CHANGE Invoice Number' ? ? ' 5. RE-INDEX all data files (no alterations)' ? ? ' 6. DELETE Beat Yesterday file' ? ? ' 7. ZERO salesman totals' ? ? ' I. RUN INVENTY Program' ? ? ' X. RETURN to CP/M' ? ACCEPT " Enter here " TO command DO CASE CASE !(command)= '1' ERASE ? ? ' **** C O P Y--C H O P A C C O U N T D I S K ****' ? ? ? 'This option will allow you to PERMANENTLY delete' ? 'all of the accounts which were tagged for deletion' ? 'YOU MUST BE SURE TO HAVE A BACK-UP COPY OF THE ' ? "ACCOUNT DISK BEFORE YOU BEGIN. Press or" ? "enter an 'A' to ABORT and return to menu." ? SET console OFF WAIT TO GO SET console ON IF !(GO)<> 'A' ERASE ? ? ? ? ? ? ? ' This is going to take a little while..' ? ? ? ' Working--' ? USE b:accounts DELETE FILES b:accounts.ndx DELETE FILES b:accnt:no.ndx COPY TO b:tempa USE b:tempa INDEX ON bill:nm TO b:accounts INDEX ON accnt:no TO b:accnt:no CLEAR DELETE FILES b:accounts RENAME b:tempa TO b:accounts ENDIF !(GO)<> 'A' CASE !(command)= '2' ERASE ? ? '** C O P Y--C H O P I N V E N T O R Y D I S K **' ? ? ? 'This option will allow you to PERMANENTLY delete' ? 'all of the inventory which was tagged for deletion' ? 'YOU MUST BE SURE TO HAVE A BACK-UP COPY OF THE ' ? "INVENTORY DISK BEFORE YOU BEGIN. Press or" ? "enter an 'A' to ABORT and return to menu." ? SET console OFF WAIT TO GO SET console ON IF !(GO)<> 'A' ERASE ? ? ? ? ? ? ? ' This is going to take a little while..' ? ? ? ' Working--' ? USE b:inventy DELETE FILES b:invcatno.ndx COPY TO b:tempi USE b:tempi DELETE FILES b:inventy INDEX ON cat:no TO b:invcatno CLEAR RENAME b:tempi TO b:inventy ENDIF !(GO)<> 'A' CASE !(command)= '3' ERASE ? ? ' ***** P U R G E L E D G E R F I L E ****' ? ? ? 'This option will allow you to permanently delete ' ? "ALL of the ledger entries on file. Press " ? "or enter an 'A' to ABORT this operation and return" ? "to the menu. This will also create an single entry" ? "for each account with today's date, a DEBIT consisting" ? "of the current balance, a detail of 'BROUGHT FOWARD'" ? ? ? " DO YOU HAVE NEW BACK-UPS MADE!!!" ? ? SET console OFF WAIT TO GO SET console ON IF !(GO)<> 'A' ERASE ? ? ' ***** P U R G E L E D G E R F I L E ****' ? ? ? ? ? ? ' Working---' DELETE FILES b:ledger.ndx USE a:ledger COPY STRUCTURE TO b:templ SELECT PRIMARY USE b:templ SELECT secondary USE b:accounts GO TOP DO WHILE .not. eof SELECT PRIMARY APPEND BLANK REPLACE DATE WITH DATE (),detail WITH "BROUGHT FOWARD" REPLACE debit WITH s.balance,rbalance WITH s.balance,accnt:no WITH s.accnt:no SELECT secondary SKIP +1 ENDDO WHILE .not. eof DELETE FILES b:ledger CLEAR RENAME b:templ TO b:ledger USE b:ledger INDEX ON accnt:no TO b:ledger CLEAR ENDIF !(GO)<> 'A' CASE !(command)= '4' CLEAR ERASE ? ? ' *** C H A N G E I N V O I C E N U M B E R ***' ? ? RESTORE FROM a:invnmbr STORE ' ' TO inv:no2 ? ? 'The OLD invoice number was: ' ,inv:no ? ? @ 8,0 SAY 'Enter new STARTING number : ' GET inv:no2 PICTURE '9999999999' READ STORE trim(inv:no2) TO inv:no RELEASE inv:no2 SAVE TO a:invnmbr CASE command= '5' CLEAR ERASE ? ? " *** H O U S E -- C L E A N I N G *** " ? ? ? " Make sure you have NEW BACK-UP disks before" ? " begining this process. PRESS to " ? " continue -- or enter an 'A' to ABORT" ? WAIT TO GO IF !(GO) <> "A" ERASE @ 12,10 SAY "Working..." SET console OFF SET talk OFF DELETE FILES b:accnt:no.ndx DELETE FILES b:accounts.ndx DELETE FILES b:ledger.ndx DELETE FILES b:sales.ndx DELETE FILES b:accntzip.ndx DELETE FILES b:invcatno.ndx USE b:accounts INDEX ON accnt:no TO b:accnt:no INDEX ON bill:nm TO b:accounts USE b:inventy INDEX ON cat:no TO b:invcatno USE b:ledger INDEX ON accnt:no TO b:ledger ENDIF !(GO) <> "A" CLEAR SET console ON RETURN CASE command= '6' ERASE ? ? ' *** D E L E T E B E A T Y E S T E R D A Y ***' ? ? ? "Enter an 'A' if you wish to ABORT this process" ? SET console OFF WAIT TO GO SET console ON IF !(GO) <> 'A' USE a:diary ? ' DELETING' DELETE ALL PACK ENDIF !(GO) <> 'A' CASE command= '7' ? ? " *** Z E R O S A L E S T O T A L S ***" ? ? ? "Enter an 'A' if you wish to abort this process" ? SET console OFF WAIT TO GO SET console ON IF !(GO) <> "A" USE a:salesman DELETE ALL PACK ENDIF !(GO) <> "A" CASE !(command)= 'X' ERASE CLEAR SET console OFF QUIT CASE !(command)= 'I' CLEAR ERASE DO a:it OTHERWISE ERASE ?? chr(07) ENDCASE ENDDO WHILE t ************************ menue.cmd ***************** DO WHILE t CLEAR ERASE @ 1, 0 SAY "**************************************************" @ 1,50 SAY "*****" @ 2,16 SAY "M A I N M E N U" @ 3, 0 SAY "**************************************************" @ 3,50 SAY "******************************" @ 5, 3 SAY "Which would you like go to:" @ 7,12 SAY "1. INVENTORY" @ 9,12 SAY "2. ACCOUNTS" @ 11,12 SAY "3. INVOICES" @ 13,12 SAY "4. ORDERS AND SHIPMENTS" @ 15,12 SAY "5. LEDGER CARDS" @ 17,12 SAY "6. REPORT MENU" @ 19,12 SAY "Q. QUIT this program" ? ACCEPT " Enter here " TO command DO CASE CASE command= '1' DO a:inventy CASE command= '2' DO a:account CASE command= '3' DO a:inv CASE command= '4' DO a:ordship CASE command= '5' DO a:ledger CASE command= '6' DO a:reports CASE !(command)= 'Q' ERASE RESTORE FROM a:invnmbr USE a:diary GO BOTTOM IF DATE <> DATE () APPEND BLANK REPLACE DATE WITH DATE () ENDIF DATE <> DATE () REPLACE sales WITH gsales STORE 00000.00 TO gsales SAVE TO a:invnmbr SET console OFF CLEAR QUIT OTHERWISE ERASE ?? chr(07) ENDCASE ENDDO WHILE t ************************ ordship.cmd ******************** CLEAR USE inventy INDEX invcatno DO WHILE t RELEASE ALL ERASE @ 1, 2 SAY "***** O R D E R S & S H I P M E N T S *****" @ 5, 7 SAY "Which would you like to do:" @ 8,10 SAY "1. ADD items to Inventory OO column" @ 10,10 SAY "2. SUBTRACT from Inventory OO column" @ 12,10 SAY "3. RESTOCK Inventory--your shipments" @ 14,10 SAY "4. SUBTRACT from Inventory" @ 16,10 SAY "R. RETURN to Main Menu" ? ? ACCEPT " Enter here " TO command DO CASE CASE !(command)= 'R' RETURN CASE command= '1' STORE t TO ooadd DO WHILE ooadd ERASE ? ? ' ***** A D D I N G O R D E R S *****' ? ? ? "Enter '99' to return to menu." ? ? 'Enter PRODUCT NUMBER of the product you placed' ACCEPT 'on order today ' TO number IF number= '99' STORE f TO ooadd LOOP ELSE STORE !(number) TO number FIND &number IF #=0 ? chr(07) ? ' *****NOT ON FILE*******' LOOP ENDIF #=0 IF * ERASE ? ? ' *** E R R O R ***' ? ? 'You cannot update a record tagged for deletion.' ? 'Undelete (D) before atempting to update.' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * ERASE ? ' ***** A D D I N G O R D E R S *****' @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| PRODUCT NUMBER:" @ 4,22 SAY cat:no @ 4,51 SAY "|" @ 5,0 SAY "|" @ 5,51 SAY "|" @ 6,0 SAY "| Make:" @ 6,12 SAY make @ 6,30 SAY "Model:" @ 6,36 SAY model @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "| Cal:" @ 8,12 SAY cal @ 8,24 SAY "Desc.:" @ 8,30 SAY descript @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| Cost $:" @ 11,14 SAY net:cost @ 11,27 SAY "Dealer $:" @ 11,36 SAY dlr:pr @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "| Selling $:" @ 13,14 SAY sell:pr @ 13,27 SAY "Retail $:" @ 13,36 SAY rtl:pr @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| TO DATE:" @ 15,24 SAY to:date @ 15,51 SAY "|" @ 16, 0 SAY "| IN STOCK:" @ 16,24 SAY on:hand @ 16,51 SAY "|" @ 17, 0 SAY "| ON ORDER:" @ 17,24 SAY on:order @ 17,51 SAY "|" @ 18, 0 SAY "+-------------------------------------------------" @ 18,50 SAY "-+" STORE ' ' TO qty ? INPUT 'Correct product, (Y/N) ?' TO GO IF .not. GO LOOP ELSE @ 19,0 @ 20,0 @ 21,0 @ 22,0 @ 20,0 SAY 'How many were ORDERED: ' GET qty READ REPLACE on:order WITH on:order+val(qty) ENDIF .not. GO ENDIF number= '99' ENDDO WHILE ooadd CASE command= '2' STORE t TO oosub DO WHILE oosub ERASE ? ? ' ***** S U B T R A C T I N G O R D E R S *****' ? ? ? "Enter '99' to return to menu." ? ? 'Enter PRODUCT NUMBER of the product you' ACCEPT 'took off order today ' TO number IF number= '99' STORE f TO oosub LOOP ELSE STORE !(number) TO number FIND &number IF #=0 ? chr(07) ? ' *****NOT ON FILE*******' LOOP ENDIF #=0 IF * ERASE ? ? ' *** E R R O R ***' ? ? 'You cannot update a record tagged for deletion.' ? 'Undelete (D) before atempting to update.' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * ERASE ? ' ***** S U B T R A C T I N G O R D E R S *****' @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| PRODUCT NUMBER:" @ 4,22 SAY cat:no @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Make:" @ 6,12 SAY make @ 6,30 SAY "Model:" @ 6,36 SAY model @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "| Cal:" @ 8,12 SAY cal @ 8,24 SAY "Desc.:" @ 8,30 SAY descript @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| Cost $:" @ 11,14 SAY net:cost @ 11,27 SAY "Dealer $:" @ 11,36 SAY dlr:pr @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "| Selling $:" @ 13,14 SAY sell:pr @ 13,27 SAY "Retail $:" @ 13,36 SAY rtl:pr @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| TO DATE:" @ 15,24 SAY to:date @ 15,51 SAY "|" @ 16, 0 SAY "| IN STOCK:" @ 16,24 SAY on:hand @ 16,51 SAY "|" @ 17, 0 SAY "| ON ORDER:" @ 17,24 SAY on:order @ 17,51 SAY "|" @ 18, 0 SAY "+-------------------------------------------------" @ 18,50 SAY "-+" STORE ' ' TO qty ? INPUT 'Correct product, (Y/N) ?' TO GO IF .not. GO LOOP ELSE @ 19,0 @ 20,0 @ 21,0 @ 22,0 @ 20,0 SAY 'How to many DEDUCT from OO: ' GET qty READ REPLACE on:order WITH on:order-val(qty) ENDIF .not. GO ENDIF number= '99' ENDDO WHILE oosub CASE command= '3' STORE t TO shipadd DO WHILE shipadd ERASE ? ? ' ***** A D D I N G S H I P M E N T S *****' ? ? ? "Enter '99' to return to menu." ? ? 'Enter PRODUCT NUMBER of the product' ACCEPT 'you RECEIVED today ' TO number IF number= '99' STORE f TO shipadd LOOP ELSE STORE !(number) TO number FIND &number IF #=0 ? chr(07) ? ' *****NOT ON FILE*******' LOOP ENDIF #=0 IF * ERASE ? ? ' *** E R R O R ***' ? ? 'You cannot update a record tagged for deletion.' ? 'Undelete (D) before atempting to update.' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * ERASE ? ' ***** A D D I N G S H I P M E N T S *****' @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| PRODUCT NUMBER:" @ 4,22 SAY cat:no @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Make:" @ 6,12 SAY make @ 6,30 SAY "Model:" @ 6,36 SAY model @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "| Cal:" @ 8,12 SAY cal @ 8,24 SAY "Desc.:" @ 8,30 SAY descript @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| Cost $:" @ 11,14 SAY net:cost @ 11,27 SAY "Dealer $:" @ 11,36 SAY dlr:pr @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "| Selling $:" @ 13,14 SAY sell:pr @ 13,27 SAY "Retail $:" @ 13,36 SAY rtl:pr @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| TO DATE:" @ 15,24 SAY to:date @ 15,51 SAY "|" @ 16, 0 SAY "| IN STOCK:" @ 16,24 SAY on:hand @ 16,51 SAY "|" @ 17, 0 SAY "| ON ORDER:" @ 17,24 SAY on:order @ 17,51 SAY "|" @ 18, 0 SAY "+-------------------------------------------------" @ 18,50 SAY "-+" STORE ' ' TO qty ? INPUT 'Correct product, (Y/N) ?' TO GO IF .not. GO LOOP ELSE @ 19,0 @ 20,0 @ 21,0 @ 22,0 @ 20,0 SAY 'How many were RECEIVED: ' GET qty READ REPLACE on:order WITH on:order-val(qty),to:date WITH to:date+val(qty) REPLACE on:hand WITH on:hand +val(qty) ENDIF .not. GO ENDIF number= '99' ENDDO WHILE shipadd CASE command= '4' STORE t TO shipsub DO WHILE shipsub ERASE ? ? ' *** S U B T R A C T I N G S H I P M E N T S ***' ? ? ? "Enter '99' to return to menu." ? ? 'Enter PRODUCT NUMBER of the product to ' ACCEPT 'DEDUCT from stock ' TO number IF number= '99' STORE f TO shipsub LOOP ELSE STORE !(number) TO number FIND &number IF #=0 ? chr(07) ? ' *****NOT ON FILE*******' LOOP ENDIF #=0 IF * ERASE ? ? ' *** E R R O R ***' ? ? 'You cannot update a record tagged for deletion.' ? 'Undelete (D) before atempting to update.' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * ERASE ? ' *** S U B T R A C T I N G S H I P M E N T S ***' @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| PRODUCT NUMBER:" @ 4,22 SAY cat:no @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Make:" @ 6,12 SAY make @ 6,30 SAY "Model:" @ 6,36 SAY model @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "| Cal:" @ 8,12 SAY cal @ 8,24 SAY "Desc.:" @ 8,30 SAY descript @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| Cost $:" @ 11,14 SAY net:cost @ 11,27 SAY "Dealer $:" @ 11,36 SAY dlr:pr @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "| Selling $:" @ 13,14 SAY sell:pr @ 13,27 SAY "Retail $:" @ 13,36 SAY rtl:pr @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| TO DATE:" @ 15,24 SAY to:date @ 15,51 SAY "|" @ 16, 0 SAY "| IN STOCK:" @ 16,24 SAY on:hand @ 16,51 SAY "|" @ 17, 0 SAY "| ON ORDER:" @ 17,24 SAY on:order @ 17,51 SAY "|" @ 18, 0 SAY "+-------------------------------------------------" @ 18,50 SAY "-+" STORE ' ' TO qty ? INPUT 'Correct product, (Y/N) ?' TO GO IF .not. GO LOOP ELSE @ 19,0 @ 20,0 @ 21,0 @ 22,0 @ 20,0 SAY 'How to many DEDUCT from Stock : ' GET qty READ REPLACE on:hand WITH on:hand-val(qty),to:date WITH to:date-val(qty) ENDIF .not. GO ENDIF number= '99' ENDDO WHILE shipsub OTHERWISE ERASE ?? chr(07) ENDCASE ENDDO WHILE t  ABSTRACT ************************************************************** TITLE: INVENTY V 4.0 01/01/84 -- A dBASE II A/R Inventory control system. FILES: INVENTY.LBR, INVENTY.TXT. See INVENTY.DOC for a complete list of files, all of which are in INVENTY.LBR. PURPOSE: To provide a comprehensive Accounts-Receivable -- Inventory Control system for a small to medium sized business. Running only one computer and less than 2 operators. REQUIREMENTS: dBASE II V 2.3b or newer. At least 185k on drive A. And at least that much on drive B. The system will function with as much storage as you have but would probably need to be modified to integrate DISK SWAPPING (yech!). Ideally one should have an OSBORNE 1 and a TRANTOR HARD DISK. SYSTEM CAPACITY: There is the dBASE II imposed limit of 65,000 records per file -- this is no problem if you have the storage. If you don't have several spare megabytes here is a chart which gives you some idea of the space needed on drive B. Every 200 ACCOUNTS need about 50k Every 300 INVENTORY items need about 38k Every 400 Ledger entries need about 26k Files on drive a (salesman,diary) need 6k AUTHOR: Steven Jay Sinofsky 213 N Baker Hall Cornell University FOR REFERENCE AND HELP CALL ME!!! Ithaca, NY 14853 SEND ME COMMENTS,REVISIONS, (607) 256-1264 ANYTHING, PLEASE!!!!!!!! DOCUMENTATION: Fairly extensive and accurate. To get sample reports get to the report menu and run them all. The password is "UNIVERSITY" enter it in all capitals, you wont see it on the screen. There is already some sample data. Generate an invoice for account # '2561264' and product number '123'. Run statements for category '99' (see Ledger Menu). Print INVENTY.DOC using WORDSTAR. USAGE: The system was designed for my father, a wholesale gun distributor, (GATOR GUNS INC.). Hence the prompts for 'MAKE' and 'MODEL','FFL NO', and others. Anybody with just a little bit of knowledge about dBASE II could alter the prompts the structure of the database does not need to be changed just the prompts. RATING: I give it *****'s since it does exactly what I and my father need with almost no errors. I would say the program is about 90% bug-free ** ISSUE THE FOLLOWING COMMAND WHEN IN DBASE WITH DATA DISK IN DRIVE B: . RENAME B:ACCNTNO.NDX TO B:ACCNT:NO.NDX ************************************************************** ******************* ledger.cmd ******************* CLEAR DO WHILE t CLEAR ERASE @ 1, 0 SAY "**************************************************" @ 1,50 SAY "***" @ 2,14 SAY "L E D G E R M E N U" @ 3, 0 SAY "**************************************************" @ 3,50 SAY "***" @ 6, 8 SAY "Which would you like to do:" @ 8,11 SAY "1. DISPLAY LEDGER CARD" @ 10,11 SAY "2. CREDIT ACCOUNT" @ 12,11 SAY "3. DEBIT ACCOUNT" @ 14,11 SAY "4. EDIT LEDGER CARD" @ 16,11 SAY "5. PRINT STATEMENTS" @ 18,11 SAY "R. RETURN to MAIN MENU" ? ACCEPT " Enter here " TO command DO CASE CASE !(command)= 'R' RETURN CASE command= '1' SELECT PRIMARY USE accounts INDEX accnt:no SELECT secondary USE ledger INDEX ledger STORE t TO getcard DO WHILE getcard ERASE ? ? ' **** D I S P L A Y L E D G E R C A R D ****' ? ? ? "Enter '99' as the Account Number to" ? "return to Ledger Menu." ? ? 'Enter the Account NUMBER of the' ACCEPT "LEDGER CARD you wish to see " TO number IF number= '99' STORE f TO getcard LOOP ELSE SELECT PRIMARY STORE !(number) TO number FIND &number IF #=0 ? chr(07) ? ' *************NOT ON FILE!!*************' LOOP ENDIF #=0 ERASE @ 1,00 SAY ' **** L E D G E R C A R D ****' @ 2, 0 SAY "----------------ACCOUNT NO:" @ 2,27 SAY accnt:no @ 2,36 SAY "--------------------------------------------" @ 3, 0 SAY "Name:" @ 3, 5 SAY bill:nm @ 3,39 SAY "Credit:" @ 3,46 SAY credit @ 4, 0 SAY "Addr:" @ 4, 5 SAY bill:ad @ 4,40 SAY "Terms:" @ 4,46 SAY terms @ 5, 5 SAY bill:cty @ 5,23 SAY bill:st @ 5,37 SAY "UPS zone:" @ 5,46 SAY upszone @ 6, 5 SAY bill:zp @ 6,40 SAY "Buyer:" @ 6,46 SAY buyer @ 7, 0 SAY "Phone number:" @ 7,13 SAY phone:no @ 7,32 SAY "Special Instr:" @ 7,46 SAY spl:inst @ 8, 0 SAY "--------------------------------------------------" @ 8,50 SAY "------------------------------" @ 9, 2 SAY "DATE | DETAIL | DEBIT | CREDIT | BALANCE" STORE balance TO mbal SELECT secondary FIND &number IF #=0 ?? chr(07) @ 12,10 SAY " *****NO SALES TO DATE******" ? ELSE DO WHILE .not. eof .AND. accnt:no=number ? DATE,detail, ' ' ,debit,credit,rbalance SKIP +1 ENDDO WHILE .not. eof .AND. accnt:no=number ENDIF #=0 ? ' ------------------------' ? ' BALANCE IS=$ ' ,mbal ? ' ------------------------' ? ' to continue' ? SET console OFF WAIT SET console ON ENDIF number= '99' ENDDO WHILE getcard CASE command= '2' SELECT PRIMARY USE accounts INDEX accnt:no SELECT secondary USE ledger INDEX ledger STORE t TO getcredits DO WHILE getcredits ERASE ? ' ***** C R E D I T I N G A C C O U N T S *****' ? ? ? "Enter '99' for Account Number to" ? "return to Ledger Menu." ? ? ? 'Enter the ACCOUNT NUMBER of the Account' ACCEPT 'you wish to CREDIT ' TO number IF number= '99' STORE f TO getcredits LOOP ELSE SELECT PRIMARY STORE !(number) TO number FIND &number IF #=0 ? chr(07) ? " **********NOT ON FILE!!***************" LOOP ENDIF #=0 IF * ? ? ' *** E R R O R ***' ? ? 'You cannot credit a record tagged for deletion.' ? 'Undelete (D) before atempting to credit' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * ERASE @ 1, 5 SAY "*** C R E D I T I N G A C C O U N T S ***" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| ACCOUNT NUMBER:" @ 4,17 SAY accnt:no @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Name:" @ 6, 7 SAY bill:nm @ 6,30 SAY "BALANCE:$" @ 6,39 SAY balance @ 6,51 SAY "|" @ 7, 0 SAY "| Addr:" @ 7, 7 SAY bill:ad @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8, 7 SAY bill:cty @ 8,23 SAY bill:st @ 8,35 SAY "Credit:" @ 8,42 SAY credit @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9, 7 SAY bill:zp @ 9,36 SAY "Terms:" @ 9,42 SAY terms @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,35 SAY "Categ.:" @ 10,42 SAY category @ 10,51 SAY "|" @ 11, 0 SAY "| UPS :" @ 11, 7 SAY upszone @ 11,33 SAY " Buyer:" @ 11,42 SAY buyer @ 11,51 SAY "|" @ 12, 0 SAY "| Salesman:" @ 12,42 SAY salesman @ 12,51 SAY "|" @ 13, 0 SAY "| Phone Number:" @ 13,15 SAY phone:no @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| Special Instructions:" @ 15,23 SAY spl:inst @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| FFL Number:" @ 17,13 SAY ffl:no @ 17,28 SAY "Expires(YYMM):" @ 17,42 SAY expires @ 17,51 SAY "|" @ 18, 0 SAY "+-------------------------------------------------" @ 18,50 SAY "-+" INPUT "Correct Account, (Y/N) ?" TO GO IF .not. GO LOOP ELSE STORE ' ' TO mem:detail STORE 000.00 TO mem:credit STORE p.accnt:no TO number @ 19,00 @ 20,00 @ 19, 2 SAY " DATE MM/DD/YY:" @ 19,19 SAY DATE () @ 20, 2 SAY "AMOUNT TO CREDIT:" @ 20,19 GET mem:credit @ 21,12 SAY "DETAIL:" @ 21,19 GET mem:detail PICTURE '!!!!!!!!!!!!!!!' READ SELECT PRIMARY REPLACE balance WITH balance-mem:credit STORE balance TO rbal SELECT secondary APPEND BLANK REPLACE DATE WITH DATE (),credit WITH mem:credit,detail WITH mem:detail REPLACE accnt:no WITH number,rbalance WITH rbal ENDIF .not. GO ENDIF number= '99' ENDDO WHILE getcredits CASE command= '3' SELECT PRIMARY USE accounts INDEX accnt:no SELECT secondary USE ledger INDEX ledger STORE t TO getdebits DO WHILE getdebits ERASE @ 2, 5 SAY "*** D E B I T I N G A C C O U N T S ***" ? ? ? "Enter '99' for Account Number to" ? "return to Ledger Menu." ? ? 'Enter the ACCOUNT NUMBER of the Account' ACCEPT 'you wish to DEBIT ' TO number IF number= '99' STORE f TO getdebits LOOP ELSE SELECT PRIMARY STORE !(number) TO number FIND &number IF #=0 ? chr(07) ? " **********NOT ON FILE!!***************" LOOP ENDIF #=0 IF * ? ? ' *** E R R O R ***' ? ? 'You cannot debit a record tagged for deletion.' ? 'Undelete (D) before atempting to debit' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * ERASE @ 1, 6 SAY "*** D E B I T I N G A C C O U N T S ***" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "| ACCOUNT NUMBER:" @ 4,17 SAY accnt:no @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Name:" @ 6, 7 SAY bill:nm @ 6,30 SAY "BALANCE:$" @ 6,39 SAY balance @ 6,51 SAY "|" @ 7, 0 SAY "| Addr:" @ 7, 7 SAY bill:ad @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8, 7 SAY bill:cty @ 8,23 SAY bill:st @ 8,35 SAY "Credit:" @ 8,42 SAY credit @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9, 7 SAY bill:zp @ 9,36 SAY "Terms:" @ 9,42 SAY terms @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,35 SAY "Categ.:" @ 10,42 SAY category @ 10,51 SAY "|" @ 11, 0 SAY "| UPS :" @ 11, 7 SAY upszone @ 11,33 SAY " Buyer:" @ 11,42 SAY buyer @ 11,51 SAY "|" @ 12, 0 SAY "| Salesman:" @ 12,42 SAY salesman @ 12,51 SAY "|" @ 13, 0 SAY "| Phone Number:" @ 13,15 SAY phone:no @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| Special Instructions:" @ 15,23 SAY spl:inst @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| FFL Number:" @ 17,13 SAY ffl:no @ 17,28 SAY "Expires(YYMM):" @ 17,42 SAY expires @ 17,51 SAY "|" @ 18, 0 SAY "+-------------------------------------------------" @ 18,50 SAY "-+" INPUT "Correct Account, (Y/N) ?" TO GO IF .not. GO LOOP ELSE STORE p.accnt:no TO number STORE ' ' TO mem:detail STORE 000.00 TO mem:debit STORE DATE () TO mem:date @ 19,00 @ 20,00 @ 21,0 @ 22,0 @ 19, 3 SAY " DATE MM/DD/YY:" @ 19,19 GET mem:date PICTURE '99/99/99' @ 20, 3 SAY "AMOUNT TO DEBIT:" @ 20,19 GET mem:debit @ 21,12 SAY "DETAIL:" @ 21,19 GET mem:detail PICTURE '!!!!!!!!!!!!!!!' READ SELECT PRIMARY REPLACE balance WITH balance+mem:debit STORE balance TO rbal SELECT seco APPEND BLANK REPLACE DATE WITH mem:date,debit WITH mem:debit,detail WITH mem:detail REPLACE accnt:no WITH number,rbalance WITH rbal ENDIF .not. GO ENDIF number= '99' ENDDO WHILE getdebits CASE command= '4' SELECT PRIMARY USE accounts INDEX accnt:no SELECT secondary USE ledger INDEX ledger STORE t TO legedit DO WHILE legedit STORE 00.00 TO mcred STORE 00.00 TO mdeb ERASE ? ? ' **** E D I T I N G L E D G E R C A R D S ****' ? ? ? "Enter '99' as Account Number to return " ? "to Ledger Menu." ? ? 'What is the number of the account whose' ACCEPT "LEDGER CARD you wish to EDIT " TO number IF number= '99' STORE f TO legedit LOOP ELSE @ 12,2 SAY "Enter amount of existing CREDIT: " @ 12,36 GET mcred @ 13,15 SAY "or" @ 14,2 SAY "Enter amount of existing DEBIT: " @ 14,36 GET mdeb READ IF mcred>0 .AND. mdeb>0 ?? chr(07) LOOP ENDIF mcred>0 .AND. mdeb>0 SELECT secondary STORE !(number) TO number FIND &number SKIP -1 LOCATE FOR accnt:no=number .AND. credit=mcred .AND. debit=mdeb next 150 IF eof .OR. (accnt:no<>number) .OR. (credit<>mcred) .OR. (debit<>mdeb) ? chr(07) @ 17,0 SAY ' *********NO SUCH TRANSACTION TO DATE*********' @ 19,0 SAY ' to continue' ? SET console OFF WAIT SET console ON LOOP ENDIF eof .OR. (accnt:no<>number) .OR. (credit SELECT PRIMARY FIND &number IF * ? ? ' *** E R R O R ***' ? ? 'You cannot edit a record tagged for deletion.' ? 'Undelete (D) before atempting to debit' ? ? ? ' to continue' SET console OFF WAIT SET console ON LOOP ENDIF * REPLACE p.balance WITH p.balance-s.debit+s.credit SELECT secondary ERASE @ 1, 1 SAY "***** E D I T I N G L E D G E R C A R D S *****" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4,0 SAY "|" @ 4,51 SAY "|" @ 5,0 SAY "|" @ 5,51 SAY "|" @ 5,13 SAY "Account #:" @ 5,23 SAY s.accnt:no @ 6,0 SAY "|" @ 6,51 SAY "|" @ 7,0 SAY "|" @ 7,18 SAY "Date:" @ 7,23 GET s.DATE PICTURE '99/99/99' @ 7,51 SAY "|" @ 8,0 SAY "|" @ 8,51 SAY "|" @ 9,0 SAY "|" @ 9,16 SAY "Credit:" @ 9,23 GET s.credit @ 9,51 SAY "|" @ 10,0 SAY "|" @ 10,51 SAY "|" @ 11,0 SAY "|" @ 11,17 SAY "Debit:" @ 11,23 GET s.debit @ 11,51 SAY "|" @ 12,0 SAY "|" @ 12,51 SAY "|" @ 13,0 SAY "|" @ 13,16 SAY "Detail:" @ 13,23 GET s.detail PICTURE '!!!!!!!!!!!!!!!' @ 13,51 SAY "|" @ 14,0 SAY "|" @ 14,51 SAY "|" @ 15,0 SAY "|" @ 15,51 SAY "|" @ 16,0 SAY "|" @ 16,51 SAY "|" @ 17,0 SAY "|" @ 17,51 SAY "|" @ 18,0 SAY "|" @ 18,51 SAY "|" @ 19,0 SAY "|" @ 19,51 SAY "|" @ 20, 0 SAY "+-------------------------------------------------" @ 20,50 SAY "-+" READ SELECT PRIMARY REPLACE p.balance WITH p.balance+s.debit-s.credit ENDIF number= '99' ENDDO WHILE legedit CASE command= '5' SELECT PRIMARY USE ledger INDEX ledger SELECT secondary USE accounts INDEX accounts GO TOP SET exact OFF RELEASE ALL ERASE ? ? ' ***** S T A T E M E N T S *****' ? ? ? 'Enter CATEGORY you wish to have statements' ACCEPT 'printed for ' TO statecateg ERASE ? ? ' ***** S T A T E M E N T S *****' ? ? ? 'Ready the PRINTER and press -- or' ? "enter an 'A' ABORT and return to the ledger menu " ? SET console OFF WAIT TO GO SET console ON IF !(GO)<> 'A' ERASE @ 12,16 SAY "PRINTING" SET console OFF SET PRINT ON SET FORM TO PRINT DO WHILE .not. eof SELECT seco IF s.category=statecateg .AND. (.not. *) IF s.terms= 'NET 30' STORE "Net 30 Days from date of Invoice" TO mterms ELSE STORE s.terms TO mterms ENDIF s.terms= 'NET 30' STORE s.accnt:no TO maccount @ 5,50 SAY chr(14)+ "STATEMENT" @ 6,50 SAY "AS OF:" @ 6,57 SAY DATE () @ 8, 4 SAY trim(s.bill:nm) @ 9, 4 SAY trim(s.bill:ad) @ 10, 4 SAY trim(s.bill:cty) @ 10,20 SAY trim(s.bill:st) @ 11, 4 SAY trim(s.bill:zp) @ 13, 0 SAY "ACCOUNT NUMBER:" @ 13,16 SAY s.accnt:no @ 13,30 SAY "TERMS: &mterms" @ 14, 0 SAY "+------------------+-------------------+----------" @ 14,50 SAY "------+----------------------+" @ 15, 0 SAY "| DATE | DETAIL | DEBIT " @ 15,56 SAY "| CREDIT |" @ 16, 0 SAY "+------------------+-------------------+----------" @ 16,50 SAY "------+----------------------+" SELECT PRIMARY FIND &maccount STORE 17 TO x STORE "2" TO p DO WHILE p.accnt:no=maccount .AND. (.not. eof) @ x,8 SAY p.DATE @ x,21 SAY p.detail @ x,42 SAY p.debit @ x,59 SAY p.credit SELECT PRIMARY SKIP +1 STORE x+1 TO x IF x=55 .AND. (p.accnt:no=maccount) EJECT @ 5,50 SAY chr(14)+ "STATEMENT" @ 6,50 SAY "AS OF:" @ 6,57 SAY DATE () @ 8, 4 SAY trim(s.bill:nm) @ 8,50 SAY chr(14)+ "PAGE &p" @ 9, 4 SAY trim(s.bill:ad) @ 10, 4 SAY trim(s.bill:cty) @ 10,20 SAY trim(s.bill:st) @ 11, 4 SAY trim(s.bill:zp) @ 13, 0 SAY "ACCOUNT NUMBER:" @ 13,16 SAY s.accnt:no @ 13,30 SAY "TERMS: &mterms" @ 14, 0 SAY "+------------------+-------------------+----------" @ 14,50 SAY "------+----------------------+" @ 15, 0 SAY "| DATE | DETAIL | CREDIT" @ 15,56 SAY "| DEBIT |" @ 16, 0 SAY "+------------------+-------------------+----------" @ 16,50 SAY "------+----------------------+" STORE 17 TO x STORE "3" TO p ENDIF x=55 ENDDO WHILE p.accnt:no=maccount .AND. (.not. e SELECT seco @ 57,55 SAY "+-----------------------+" @ 58,55 SAY "| BALANCE:$" @ 58,66 SAY s.balance @ 58,79 SAY "|" @ 59,55 SAY "+-----------------------+" SKIP +1 EJECT ELSE SELECT seco SKIP +1 ENDIF category=statecateg ENDDO WHILE .not. eof ENDIF !(GO)<> 'R' SET PRINT OFF SET console ON SET FORMAT TO screen SET exact ON OTHERWISE ERASE ? chr(07) ENDCASE ENDDO WHILE t m=10,l=55,w=80 N n y n 10,DATE DATE;==== 12,SALES >SALES;===== y LIST a:it.new ff LIST a:menue.new ff LIST a:inventy.new ff LIST a:account.new ff LIST a:inv.new ff LIST a:ordship.new ff LIST a:ledger.new ff LIST a:reports.new ff LIST a:maintain.new ff list a:structur.txt ff ff CAT:NOClMAKEClMODELClCALClDESCRIPTClON:HANDN mON:ORDERNmSELL:PRNmACCNT:NOCmBILL:NMC#mBILL:ADCAmBILL:CTYC_mBILL:STCnmBILL:ZPC pmUPSZONECzmFFL:NOC {mEXPIRESNmTERMSCmSALESMANCmCATEGORYCm -----------------------------------------------' EJECT ?? CHR(18) SET PRINT OFF ERASE ? ? '****************************************************' ? ' DELETING INVOICE FROM DISK' ? ' DO NOT DISTURB!!!!!!' ? '******************************************************' STORE INV:NO + 1 TO INV:NO RELEASE MTOTAL RELEASE COD SAVE TO INVNMBR INV:NO USE DELETE FILE A:INVOICE USE A:INVMOD COPY STRU TO A:INVOICE USE CLEAR GETS ENDDOINV:NOcdGSALES dMEM:TERMS'd  NET 30  85148BTOTAL:',MTOTAL ? '-------------------------------------------------------------------------'+; '----------------------------------------------------------' ? 'TOTAL MDSE:$',MTOTAL,' |SHIPPING: |INSURANCE: |COD C'+; 'HG:',COD,'|NET*TOTAL* -->: ' ? '-------------------------------------------------------------------------'+; '----------------------------------------------------------' EJECT ?? CHR(18) SET PRINT OFF ERASE ? ? '*****************CAT:NOClMAKEClMODELClCALClDESCRIPTClON:HANDN mON:ORDERNmSELL:PRNmACCNT:NOCmBILL:NMC#mBILL:ADCAmBILL:CTYC_mBILL:STCnmBILL:ZPC pmUPSZONECzmFFL:NOC {mEXPIRESNmTERMSCmSALESMANCmCATEGORYCm T:NOCrMAKECrMODELCrCALCrDESCRIPTCrNET:COSTNrSELL:PRNsDLR:PRNsRTL:PRNsON:HANDNsON:ORDERN!sTO:DATEN$s M=19,L=57,W=132 N N N 9,CAT:NO CATALOG;========= 16,MAKE MAKE;================ 16,MODEL MODEL;================ 5,CAL CAL;===== 22,DESCRIPT DESCRIPTION;====================== 8,SELL:PR >SELL;======== 8,DLR:PR >DEALER;======== 8,RTL:PR >RETAIL;======== M=19,L=57,W=132 N N N 9,CAT:NO CATALOG;========= 16,MAKE MAKE;================ 16,MODEL MODEL;================ 5,CAL CAL;===== 22,DESCRIPT DESCRIPTION;====================== 8,NET:COST >COST;======== 8,SELL:PR >SELL;======== 8,DLR:PR >DEALER;======== 8,RTL:PR >RETAIL;======== TSTART:DATEClSALESMANClSALESN l 01/03/84RAYMOND 24191.92 01/03/84SALLY 32051.28 01/04/84FRAN 60.38 01/06/84 921.38 01/06/84ROGER 2492.78 01/11/84TIM 1198.83 01/12/84JOHN 115.9701/12/84JOHN 115.97YA UHKSC CHO902 0GG303 1GG402 2GG404 3GG4809 ZGGRACK 4GLOX2B 5HKS-10 HKS-103L6HKS-103M7HKS-25-58HKS-25M 9HKS-27 :HKS-29M ;HKS-36 <HKS-57M =HKS-586A>HKS-CA44?HKS-DSA @HKS-M3A AHKS-PYA UHKSC CHO9m=8,l=55,w=80 n n y n 10,START:DATE START;========== 10,SALESMAN SALESMAN;========== 10,SALES >TOTAL;========== y M=19,L=57,W=132 N Y N 9,CAT:NO CATALOG;========= 16,MAKE MAKE;================ 16,MODEL MODEL;================ 5,CAL CAL;===== 22,DESCRIPT DESCRIPTION;====================== 4,ON:HAND INV;==== 4,ON:ORDER OO;==== 8,SELL:PR >SELL;======== 8,DLR:PR >DEALER;======== 8,RTL:PR >RETAIL;======== M=05,L=57,W=132 N Y Y Y MAKE N N TOTAL VALUE OF: 09,CAT:NO CATALOG;========= 15,MAKE MAKE;=============== 16,MODEL MODEL;================ 4,CAL CAL;==== 21,DESCRIPT DESCRIPTION;==================== 4,ON:HAND INV;==== N 4,ON:ORDER OO;==== N 8,NET:COST >COST;======== N 8,SELL:PR >SELL;======== N 8,DLR:PR >DEALER;======== N 6,to:date TD;===== N 12,NET:COST*ON:HAND COST * INV ;=========== Y