I:ARIN.BAS, ACCOUNTS RECEIVABLE INVOICE GENERATION, SSM, 2/06/79 REV. AR CP/M 2.1, 3/29/79-J p :COPYRIGHT 1979 RETAIL SCIENCES INC.:J AZ: WJPN$"INVOICE GENERATION"aJ dvJ"A:ARIN.BAS": J : MONTH DATAJ -1,30,59,90,120,151,181,212,243,273,304,334J: FIELD POSITION DATAK 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4%K: FIELD POSITION IN EXTENT\K 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4uK: FIELD NAME DATAK "SHIP TO NAME","SHIP TO STREET","SHIP TO STATE","SHIP VIA","DELIVERY"L( "SHIP DATE","DUE DATE","TERMS","CUST. ORDER NO","YOUR ORDER NO"IL2 "ORDER DATE","SALESMAN","ITEM NO","NO ORDERED","NO SHIPPED"L< "DESCRIPTION","UNIT PRICE","AMOUNT","SUBTOTAL","FREIGHT","TAX"LF "SERV. CH","MISC. DB","DEPOSIT","DISCOUNT","TOTAL"Ld P: @: hEMnQ$"WHAT IS THE DATE TO BE USED ON THESE INVOICES? ": : ,: ID$R$: II$R$: 1: IDNNMx:Q$"WHAT IS THE BEGINNING INVOICE NUMBER? ": LB!: UB!#t: : IN!(N!): IN!N! xM M: GET CUSTOMER ID@N ': RL  : ER "*** A CUSTOMER WITH THE ID '";KE$;"' DOES NOT EXIST ***": N I  : D$(I)"": : D$()A$(): D$()A$(): D$()A$(): NNID: 6: D$()II$: D$()"NET 30": I : D$(I)"0.00": : S#: MROS OIN$(" "(IN!),)" ": IN!IN!: IN!#t IN!O SC$: );"NAME";!);"DEFAULT";@);"VALUE": (,"-"););(,"-");7);(,"-")O I  : N$(I););": ";D$(I);5);": ";: Q$"": 8: RL D$(I)R$O P: Q$"IS THIS CORRECT": X: YES (R$)  : 6PPA: : S#bP I : D$(I)"": : D$()"0.00"P SC$: );"NAME";!);"DEFAULT";@);"VALUE": (,"-"););(,"-");7);(,"-")Q" I : N$(I););": ";D$(I);5);": ";: Q$"": 8: RL D$(I)R$ Q'`Q,D$()((D$())(D$())): N$();5);": ";D$()Q@: Q$"IS THIS CORRECT": X: YES (R$) B : QBS#S#(D$()): LC9 RD );D$( ););D$(););D$(););D$();7);@RF "#######.## #######.##";(D$()),(D$()): RHLCLC:: Q$"IS THERE ANOTHER ITEM TO ENTER": X: YES (R$) RJD$()(S#): D$()(((A$())S#)d)0SL SC$: );"NAME";!);"DEFAULT";@);"VALUE": (,"-"););(,"-");7);(,"-")SN I : N$(I););": ";D$(I);5);": ";: Q$"": 8: RL D$(I)R$SO7TPTD#(D$()E$)(D$()E$)(D$()E$)(D$()E$)(D$()E$): TC#(D$()E$)(D$()E$): TB#TD#TC#: D$()(TB#): N$();5);": ";D$(){TR: Q$"IS THIS CORRECT": X: YES (R$) T : LTTOSOL:OP : `: ER IN$B$() TT^ ER IN$B$() ID(B$()) OSOL: OP : `: ^ UhOLOS: OP : `sUB$()KE$:B$()(ID):II$D$():1:B$()(NN): B$()IN$:B$()D$():B$()"0":B$()" "U I  : DD#(D$(I )E$): : B$(I)II$: UDD#TD#: : B$( )II$#VDD#(D$()E$): : B$( )II$: DD#(D$()E$): : B$()II${VDD#: : B$()II$: B$()II$: B$()II$: B$()II$: B$()II$VDD#TC#: : B$()II$VDD#TB#: : B$()II$V B$()(): B$()(),W DD# B$()II$: B$()B$() : B$()II$: B$()B$()8W #,OS[W LC; " ": LCLC: W ;);"SUBTOTAL:";: F1$;S#: W " FREIGHT TAX SERV. CH MISC. DB DEPOSIT "; "DISCOUNT";H);"TOTAL"9X " -------- -------- -------- -------- -------- "; "--------";F);"========"X );: I : F1$;(D$(I));: : D);: F1$;(D$()): F);"========": LCAX%: UPDATE HEADER RECORDY& FI%,MR: II$A$(): ": DD#DD#TD#TC#: : A$()II$SY0 TD# (A$( ))ID A$( )(ID): DD#TD#: : A$( )II$Y5II$A$( ): ": DD#DD#TD#: : A$( )II$Y: TC# (A$( ))ID A$( )(ID): DD#TC#: : A$()II$Z?II$A$(): ": DD#DD#TC#: : A$()II$&ZD FI%,MR: PZ': QUERY A CUSTOMER NAME AND VERIFYvZ': Q$"WHAT IS THE CUSTOMER ID? "Z' 8: RL : KE$R$: OP: `Z.'Z?: PROGRAM INITIALIZATIONZ@NR%(V$()): 0FI%: NA$"ARCF.DAT": DI%(V$())A: OP: `f[O A$(): T: I : N: #,(T) AS T$,(N) AS A$(I): TTN: [Q B$(): T: I : N: #,(T) AS T$,(N) AS B$(I): TTN: [T N$(),D$(): I : N$(I): \^F1$"#######.##": LC: E$"#": !\: EJECT TO TOP OF PAGEK\ LC IILC B: " ": : LCQ\v\: PRINT A HEADER ON THE PAPER\ : : : -);(,"*")\ ,);"***";D);"***"\ );V$();,);"*** I N V O I C E ***" ] );V$();,);"***";D);"***",] );V$();-);(,"*")n]*: : );"ACCOUNT NUMBER: ";KE$;,);"INVOICE NO. : ";IN$]4: ,);"INVOICE DATE: ";ID$]9: ,);"PAGE";8);": ";PA: PAPA]>:  );(,"=");3);(,"=")^H " SOLD ";A$();,);"SHIP ";D$()C^R " TO ";A$();,);" TO ";D$()_^W  );A$();3);D$()^\  );(,"=");3);(,"="): : ^f );"SHIP VIA : ";D$();,);"YOUR ORDER NO : ";D$()_p );"DELIVERY : ";D$();,);"OUR ORDER NO : ";D$( )B_z );"SHIP DATE : ";D$();,);"ORDER DATE : ";D$( )_ );"DUE DATE : ";D$();,);"SALESMAN : ";D$( )_ );"TERMS : ";D$(): : _ " ITEM ORD SHP";#);"DESCRIPTION";:);"PRICE"; F);"AMOUNT"I` " -------- --- --- ";(,"-"); " ---------- ----------" : V`LC!: u`: PAUSE TO SHOW MESSAGE`: "PRESS THE 'RETURN' KEY TO CONTINUE ";: Q$"": 8: `: END THE PROGRAM`OP: `: : Va: );"*** END OF ";PN$;" ***": : "PRESS THE 'RETURN' KEY TO RETURN TO THE PROGRAM MENU": Q$""a 8: RL% : "*** LOADING PROGRAM MENU...": "A:AR MENU.BAS"ag: PRINT A HEADING/bh SC$: (W(H1$)));H1$: (W(H2$)));H2$: (W(H3$)));H3$: (W(H4$)));H4$: : : NbO: SYSTEM INITIALIZATIONbPÕ H: "I",,"A:ARDATE.DAT": #,TD$: bZÆ V$(): "I",,"A:ARSYS.DAT": #,V$(): V$()"A" : "I",,V$()":ARSYS.DAT": #,V$() cn I : #,V$(I): : GcwSC$"":I(V$()):SC$SC$(((V$(),I,))):jcxWP: BELL$(): PW: LCxcÕ cH1$V$(): H2$"ACCOUNTS RECEIVABLE": H3$PN$: H4$TD$cN#:Z9$()():Z8$()(): ,dII$((N#DD#H),,): Bd"DD#((Z9$II$Z8$)(N#))ףp= #z: dd,ĆMO( ):I :MO(I)::@d1YR((II$,)): MO((II$,)): DA((II$,)): NN(YR6@)MO(MO)DAWG: (YR ) MO NNNNd2ĎFe6T!NNWG: YR(T!6): DA(T!YR6): MO : (YR ) DA: DADAxe7ċ DAMO(MO) MOMO: 7 : DADAMO(MO)e8II$((MO),)"/"((DA),)"/"((YR),): e@II$TD$: 1: TDNN: e7: QUERY LINEf8ǑQ$;:R$"":R$:RL$(R$,):RL%(R$).ftNj R$"END" : Df: QUERY NUMBERMfȍ8`f N!:DP:DGfȋ(R$,)" "R$(R$,):fȋ(R$)Zf(ȂJJ(R$):CH((R$,JJ,))f2ȋCH/CH:DG:Pf<ȋCH.DPDP:DPn:PgFȋ(CH-CH+)JJn'gPȃJJ:DGnRgZN!(R$):(N!LB!N!UB!)LB!UB!ώfgdȋF1%ύ:gnȋF1%E9%:::g: QUERY DATEgȍ8:RLR$TD$:gȋ(R$)(R$)gMO(R$,"/"):MO:MOR$"0"R$hDA(,R$,"/"):DADhȋDARL$(R$,):R$"0"(R$,):R$RL$R$zhMO((R$,)):DA((R$,,)):YR((R$,))hȋ(MO)(MO )(DA)(DA )ώhȍ:h+: INDICATE DATE USEDh,ɋ RL "USING DATE ";R$h6Ɏi: QUERY DOLLARiɍ8iDP:DG?iɋ(R$,)" "R$(R$,):yiJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):iɋ(R$,)"$"R$(R$,)iɋ(R$)D#:iɂJJ(R$):CH((R$,JJ,))iɋCH/CH:DG: jɋCH.DPDP:DP:.jɋ(CH-)(CH+)JJ@jɃJJ:DGTjD#(R$"D"):qjʋF1%E9%:::jW: QUERY YES/NOjXQ$Q$" (Y OR N)? ": YES:8:RL$"Y"YES:j_ʋ(R$)ώjbʋRL$"N"ύ:X:k: QUERY TOP-OF-PAGE6kʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "VkQ$"READY":X:(R$)ώgkʋYES:k: ERROR MESSAGESkґ "*** INVALID ENTRY. PLEASE REENTER. ***";BELL$: kTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$ l^ӕ : :lӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:ylԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:lԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";lԑ" CONSULT BASIC MANUAL FOR EXPLANATION. ": E: t/mHՑ "*** IMPROPER SYSTEM FILE. RUN SYSTEM INITIALIZATIION ***": E9mRթ tLmt֕ : Em_:12/18/78 Multi ARray ISam - MARIS (OP) m`ꕨ:OP,(,,,T,,, ,,H,,,tmjꕨ:m=ER%:j::?n: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) knꕨ:NA$(DI%A)":"NA$:NA$ASNA$znER%:nꕨ:ER%:ER%:o"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$ooO0$"MARIS":O1$():O2$DA$:O3$(): O4$():O5$O4$:O6$(KL%):O7$OC$:O8$"103078"oFI%,:FI%:ER%:o': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) p(땨2:NA$(DI%A)":"NA$:NA$ASNA$ p2ER%:<