NI:ARSI.BAS, ACCOUNTS RECEIVABLE SYSTEM INITIALIZATION, SSM, 2/06/79 REV. AR CP/M 2.1, 3/01/79I p :COPYRIGHT 1979 RETAIL SCIENCES INC.I AZ: IPN$"SYSTEM INITIALIZATION"I dI"A:ARSI.BAS": Id P: @J h: "YOU MAY SELECT - 1 SET UP THE SYSTEM PARAMETERS"JJ" 2 SET UP THE G/L ACCOUNT NUMBERS"sJ" 3 CREATE NEW, EMPTY DATA FILES"J" A DO ALL OF THE ABOVE"J" END END AND RETURN TO MENU"J: Q$"WHAT IS YOUR SELECTION? ": 8: RL$"A" N: &KN(RL$): N N : 0K (QK N ,, ,: vK: SET UP THE SYSTEM PARAMETERSKSC$:: "*** SET UP THE SYSTEM PARAMETERS ***"K:  );"NAME";#);"DEFAULT";:);"VALUE": Q$""L  );"----";#);"-------";:);"-----": ULL "1. SYSTEM FILE DRIVE (0 OR 1)";#);((V$()));:);LV 8: RL R$"0" R$"1" : V : V$()((R$))LY "2. DATA FILE DRIVE (0 OR 1)";#);((V$()));:);;M\ 8: RL R$"0" R$"1" : \ : V$()((R$))iM^ "3. CLEAR SCREEN CODE";#);V$();:);M_ : RL (RL ) : _ : V$()R$M` "4. MAX NUMBER OF RECORDS (<401)";#);V$();:);!Nj : RL N! : j : V$()R$TNt "5. REPORT TO G/L (Y OR N)";#);V$();:);sN~ X: RL V$()RL$N "6. AUTO BILLING (Y OR N)";#);V$();:);N X: RL V$()RL$N "7. COMPANY NAME";#);V$();:);O 8: RL : V$()R$BO "8. COMPANY STREET ADDR";#);V$();:);gO 8: RL : V$()R$O "9. COMPANY CITY/STATE";#);V$();:);O 8: RL : V$()R$O "10. DELETE TRANS. (Y OR N)";#);V$( );:);P X: RL V$( )RL$JP "11. CONSOLIDATE TRANS. (Y OR N)";#);V$( );:);jP X: RL V$( )RL$wP : P: SET UP THE G/L ACCOUNT NUMBERSPSC$:: "*** SET UP THE G/L ACCOUNT NUMBERS ***" Q: );"NAME";');"DEFAULT";:);"VALUE": Q$"">Q );"----";');"-------";:);"-----": kQ "1. G/L ACCT FOR SALES ";V$( );:);Q  : RL V$( )R$Q  "2. G/L ACCT FOR FREIGHT ";V$( );:);Q  : RL V$( )R$ R  "3. G/L ACCT FOR SALES TAX ";V$();:);(R*  : RL V$()R$[R4 "4. G/L ACCT FOR SERVICE CHRG ";V$();:);zR>  : RL V$()R$RH "5. G/L ACCT FOR MISC DEBIT ";V$();:);RR  : RL V$()R$R\ "6. G/L ACCT FOR PAYMENTS ";V$();:);Sf  : RL V$()R$ISp "7. G/L ACCT FOR CREDITS ";V$();:);hSz  : RL V$()R$S "8. G/L ACCT FOR RETURNS ";V$();:);S  : RL V$()R$S "9. G/L ACCT FOR DISCOUNTS ";V$();:);T  : RL V$()R$9T "10. G/L ACCT FOR MISC CREDIT ";V$();:);XT  : RL V$()R$T "11. G/L ACCT FOR A/R ";V$();:);T  : RL V$()R$T : T : CREATE NEW DATA FILEU SC$:: "*** CREATE A NEW, EMPTY DATA FILE ***"6U : BELL$;"*** C A U T I O N ***";BELL$: U "THIS ROUTINE WILL ERASE ANY VALID DATA FILE ON DRIVE "; ((DI$))U Q$"DO YOU WISH TO CONTINUE? ": X: YES U NA$DI$":ARCF.DAT":  : NA$:  U  V : "R",,NA$oV #, AS B0$, AS B1$, AS B2$, AS B3$, AS B4$, AS B5$, AS B6$, d AS B7$, AS B8$V B0$"MARIS": B1$(): B2$TD$: B3$(): B4$(): B5$(): B6$(): B7$"": B8$"103078"V #,: : W: DO 1, 2, AND 3 ABOVE4W : :  : :W(#ZW?: PROGRAM INITIALIZATION`W@zW': SET UP THE DRIVEW(:"PLEASE INSERT THE DISK TO BE PROCESSED INTO THE PROPER DRIVE"W2Q$"READY (Y OR N)? ": X: YES 25X7 "IN WHICH DRIVE HAS THE DISK BEEN INSERTED ";: Q$"(0 OR 1)? "\X8 8: RL$"0" RL$"1" 8yX"A" THEN IGNORE - SI IS SPECIAL CASE[n I : #,V$(I): : : w[oË 5 [p: SET DEFAULTS FOR NEW SYSTEM FILE\qV$()"A":V$()"A":V$()"126028012":V$()"400":V$()"Y":V$()"Y": V$()"TAYLOR OFFICE EQUIPMENT":V$()"33 NORTHSIDE AVE.": V$()"CHAMBLEE, GEORGIA 30340":V$( )"Y":V$( )"Y"6]sV$( )"30101":V$( )"42101":V$()"21400":V$()"31101": V$()"30101":V$()"10200":V$()"32101":V$()"32101": V$()"30101":V$()"32101":V$()"11100"@]té w|]wSC$"":I(V$()):SC$SC$(((V$(),I,))):]xWP: BELL$(): PW: LC]Õ ]H1$V$(): H2$"ACCOUNTS RECEIVABLE": H3$PN$: H4$TD$]@Ď^7: QUERY LINE(^8ǑQ$;:R$:RL$(R$,):RL%(R$)E^tNj R$"END" : [^: QUERY NUMBERd^ȍ8w^ N!:DP:DG^ȋ(R$,)" "R$(R$,):^ȋ(R$)Z^(ȂJJ(R$):CH((R$,JJ,))^2ȋCH/CH:DG:P _<ȋCH.DPDP:DPn:P,_Fȋ(CH-CH+)JJn>_PȃJJ:DGni_ZN!(R$):(N!LB!N!UB!)LB!UB!ώ}_dȋF1%ύ:_nȋF1%E9%:::_W: QUERY YES/NO_XYES: 8: (R$) _bʋ RL$"Y" YES: : RL$"N" `lʍ : X3`: QUERY VALID G/L ACCNT NUMBERX` ˍ 8: RL R$R$"00": RL`*ˋ RL RL :  : `: ERROR MESSAGES`ґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:aTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$a^ӕ:Maӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:~aԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";aԑ" CONSULT BASIC MANUAL FOR EXPLANATION. ": E: taRթ tat֕ :  ERROR NUMBER ";;" LINE NO. ";aԑ" CONSULT BASIC MAN FOR EXPLANATION. ": E: taRթ tat֕ :  ERROR NUMBER ";;" LINE NO. ";aԑ" CONSULT BASIC MAN FOR EXPLANATION. ": E: taRթ tat֕ :  ERROR NUMBER ";;" LINE NO. ";aԑ" CONSULT BASIC MAN FOR EXPLANATION. ": E: taRթ tat֕ :  ERROR BER ";;" LINE NO. ";aԑ" CONSULT BASIC MAN FOR EXPLANATION. ": E: taRթ tat֕ :  ERROR BE