I:GLSI.BAS, GENERAL LEDGER SYSTEM INITIALIZATION, WAM, 03/01/79 REV. CP/M 2.3, 04/10/79*J @ :COPYRIGHT 1978 RETAIL SCIENCES, INC.JJPN$"SYSTEM INITIALIZATION"WJ V$()`JduJ"A:GLSI.BAS": Jd PJ"YOU MAY SELECT - 1 SET UP THE SYSTEM PARAMETERS"J" 2 SET UP THE ACCOUNT NOS. & SOURCE CODES"K" 3 CREATE NEW, EMPTY DATA FILES"5K" A DO ALL OF THE ABOVE"ZK" END END AND RETURN TO MENU"K: Q$"WHAT IS YOUR SELECTION? ": 8: RL$"A" N: KN(RL$): N N : K (K N ,, ,: dL: SET UP THE SYSTEM PARAMETERSMLSC$:: "*** SET UP THE SYSTEM PARAMETERS ***"L:  );"NAME";#);"DEFAULT";:);"VALUE": Q$""L  );"----";#);"-------";:);"-----": LL "1. CLEAR SCREEN CODE";#);MV  N: A$;:);: 8: RL aFMt "2. SYSTEM FILE DRIVE (0/1)";#);((V$( )));:);M~ 8: RL RL$"0" RL$"1" : ~ : V$( )((RL$))M "3. DATA FILE DRIVE (0/1)";#);V$();:);N : RL N! N! :  : V$()RL$LN "4. MAX NUMBER OF RECORDS (<601)";#);V$( );:);N : RL N!X :  : V$( )R$N "5. SOFTWARE CONFIGURATION CODE";#);V$( );:);N 8: RL : V$( )R$O "6. COMPANY NAME";#);V$();:);5O 8: RL : V$()R$kO "7. COMPANY ADDRESS (1 OF 2)";#);V$();:);O 8: RL : V$()R$O "8. COMPANY ADDRESS (2 OF 2)";#);V$();:);O 8: RL : V$()R$O : *P: SET UP THE ACCOUNT NOS. & SOURCE CODESgPSC$::"*** SET UP THE ACCOUNT NOS. & SOURCE CODES ***"P: );"NAME";#);"DEFAULT";:);"VALUE": Q$""P 0uP );"----";#);"-------";:);"-----": Q "1. ASSETS LOW #";#);V$();:); Q  : RL V$()R$JQ  "2. ASSETS HIGH #";#);V$();:);hQ  : RL V$()R$Q  "3. CAP & LIAB LOW #";#);V$();:);Q*  : RL V$()R$Q4 "4. CAP & LIAB HIGH #";#);V$();:);Q>  : RL V$()R$(RH "5. INCOME LOW #";#);V$();:);FRR  : RL V$()R$pR\ "6. INCOME HIGH #";#);V$();:);Rf  : RL V$()R$Rp "7. EXPENSES LOW #";#);V$();:);Rz  : RL V$()R$S "8. EXPENSES HIGH #";#);V$();:);!S  : RL V$()R$PS "9. CURRENT EARNINGS #";#);V$();:);nS  : RL V$()R$S "10. SOURCE CODE # 1";#);V$( );:);S 8: RL V$( )R$S "11. SOURCE CODE # 2";#);V$( );:);T 8: RL V$( )R$6T "12. SOURCE CODE # 3";#);V$( );:);UT 8: RL V$( )R$T "13. SOURCE CODE # 4";#);V$( );:);T 8: RL V$( )R$T "14. SOURCE CODE # 5";#);V$();:);T 8: RL V$()R$U "15. SOURCE CODE # 6";#);V$();:);CHAR REP OF ASCY NA$"":J(V$()):T((V$(),J,))Z*NA$A$("000"((T),),):J:DZa :CONVERT CHAR REP OF ASC->ASC_Za(R$)ύ:8zZaV$()"":J(R$)ZaV$()V$()(((R$,J,))):J:Z0u :SETUP V$ FOR SOURCE CODESZ:u OuZDu"I",,"A:GLSRC.DAT"[Nu I : #,V$(I): I: : Wu'[Ou 5 Q[Pu :SET DEFAULTS FOR NEW SOURCE CODES \QuV$()"10000":V$()"19999":V$()"20000":V$()"29999":V$()"30000": V$()"39999":V$()"40000":V$()"99999":V$()"29700": V$( )"CASH RECEIPTS":V$( )"CASH DISBURSEMENTS"\SuV$( )"REPEATING JOURNAL ENTRIES":V$( )"PRIOR PERIOD ADJUSTMENTS": V$()"JOURNAL ENTRY 1":V$()"JOURNAL ENTRY 2": V$()"JOURNAL ENTRY 3":V$()"JOURNAL ENTRY 4": V$()"MISCELLANEOUS JE":V$()"2"\Tu:Wu\Wu:]': SET UP THE DRIVE[](:"PLEASE INSERT THE DISK TO BE PROCESSED INTO THE PROPER DRIVE"]2Q$"READY ": X: YES 2]7 "IN WHICH DRIVE HAS THE DISK BEEN INSERTED ";: Q$"(0 OR 1)? "]8 8: RL$"0" RL$"1" 8 ^