I:GLBA, G/L BALANCE SHEET, RDR, 7/1/78 REV. CP/M 2.1, 7/27/79J p : COPYRIGHT 1978 RETAIL SCIENCES, INC.J 6JPN$"BALANCE SHEET"@J PZJFM$"$$#,###,###.##-"gJFIRSTJ @ :GET ACCOUNT RANGESJALA!(): AHA!() :ASSETS LOW, HIGHJCLA!(): CIA!() :CAP & LIABJILA!(): IHA!() :INCOME KELA!(): EHA!() :EXPENSESKKREA!() :RETAINED CURRENT EARNINGSK$:ASSUMING: 1) NO DEPARTMENT CODES FOR LAST MAJOR ACCOUNT OF ANYK.: RANGE (199, 299, 399, ETC)L8: 2) COA IS STRUCTURED SEQUENTIALLY WITH ASSETS FIRST,RLB: FOLLOWED BY CAP & LIAB, THEN INCOME, THEN EXPENSES LASTLLNR%(V$( )): 0:  :INIT, OPENLV:Q$"WHAT DATE IS TO BE PRINTED ON THIS REPORT (MM/DD/YY)? "L`:(R$)ϑ"USING ";VD$:R$VD$::VD$R$.Me :PP%=PREVIOUS PERIOD POINTER (MA#() ARRAY)pMjPP%((MOFM% ) ) :MO=THIS MONTH (FROM ENTERED DATE)Mo :FM%=FISCAL MONTH START (FROM 40000 SUBR.)MqMt"YOU MAY SELECT - 1 - TO PRINT THIS REPORT WITHOUT LAST YEARS TOTALS"@N~" 2 - TO PRINT THIS REPORT WITH LAST YEARS TOTALS"mN:Q$"WHAT IS YOUR SELECTION (1 OR 2)? "NLB!: UB!: N N! LY% : LY% :LY%=LAST YEAR FLAGN  :TOP-OF-FORMN 0u :HEADERSO  :READ MASTERO ER% M :EOF:O M1CI M :EOJ{O M1AH MA#()MA#(): MA#()MA#(): MA#(PP%)MA#(PP%)O M5 PC+:  O  M5 PC= :  OPCO  M1AH FIRST 0 O* M3  *P4 M1AL M1CL \ :CENTER FIRST INCOME, LIAB. ACCTS6P>: M2$ZPHLCLC: LC< : dPR xP\ I  Pf (M2$,I,)" " zPpPz: LY% TB : T(P TI);M2$P T);" ------------------------ "P QLCLCQ )Q M3  FQ M4$"M" : yQ M1RE MT#AT#T#(): LT#AL#LY#():  Q MA#() MA#() MA#(PP%) Q MT#MA#()MA#()Q LT#MA#(PP%)Q M2$; PC);Q FM$;MT#;R LY% : PC5);: FM$;LT#)R I =R T#(I)T#(I)MT#kR( LY#(I)LY#(I) LT# :LAST YEARS TOTALSsR2 IR< LCLC: LC< : RF RP :PAGE'R M2$; PC);R FM$;T#(M3);S LY% : PC5);: FM$; LY#(M3)S M1CL M1CI  $S 0S LCLC]KE$M1$: OP: ``] ER% : ER% T]M1$F1$(): M2$F1$(): M3$F1$(): M4$F1$(): M5$F1$()]M1(M1$): M3(M3$): M5(M5$)] I :II$F1$(I): :MA#(I)DD#::^:GET NEXT RECORD6^OP: `: ER% T : O^:CREATE NEW EXTENTw^OLOS: OP : `: ER% T^ F2$()J1$: F2$()J2$: F2$()J3$: F2$()J4$^ F2$()(SD!(J5$)):DD#J6#: : F2$()II$^ FI%,OS: _H:UPDATE CURRENT EXTENT _R 5_:DELETE EXTENT[_OP : `: ER% T : r_:GET NEXT EXTENT_OSOL: OP : `: ER% T_$J1$F2$(): J2$F2$(): J3$F2$(): J4$F2$()`.J5$DS$((F2$())):II$F2$(): :J6#DD#:(`PÕ : BELL$()()()J`Zÿ "I",,"A:GLSYS.DAT": #,N$`dÆ V$((N$)):V$()N$: I (N$):#,V$(I): I:`nMD$V$( ):SC$V$():W(V$())`Ë MD$"A" MD$"B" z: M`Ë MD$"A" `DN1: V$aÿ "I",,MD$":GLSYS.DAT": #,N$OaÆ V$((N$)):V$()N$:I(N$): #,V$(I): I:yaMD$V$( ): MD$"B" H: MaÕ : aË 5 8 H: MaË 6 > A z: MaÉ bN#:X9$()():X8$()(): ?bII$((N#DD#H),,):lbDD#((X9$II$X8$)(N#))ףp= #z:bØSD!(S$)((S$,)(S$,)(S$,,))bØDS$(D!)((D!),,)"/"((D!),)"/"((D!),,) cĿ "I",,"A:GLDA.DAT": #,VD$:  :DATE>cVS$V$(): VC$V$() :SYSTEM, COMPANY NAMEocĂ I (V$()): DK%(I)(V$(I)): cđ SC$: :: :DISPLAY HEADERSc"đ:"ONE MOMENT FOR PROGRAM STARTUP...."::cƑ(W(VC$)));VC$:(W(VS$)));VS$dƑ(W(PN$)));PN$'dƑ(W(VD$)));VD$-d.ǎ>d8Ǒ Q$;: R$OdtRL$(R$,)kdyNj R$"END" M : dȍ8:N!:R$E$ώ:DP:DGdȋ(R$,)" "R$(R$,):dȋ(R$)Zd(ȂJJ(R$):CH((R$,JJ,))e2ȋCH/CH:DG:P*e<ȋCH.DPDP:DPύ::POeFȋ(CH-CH+)JJύ:gePȃJJ:DGύ:eZN!(R$):(N!LB!N!UB!)LB!UB!ώedȍ:eȍ 8: (R$) MO: DA: YR: eȋ(R$) (R$) ?fMO(R$,"/"): MO  : MO R$"0"R$_fDA(,R$,"/"): DA fȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$fMO((R$,)):DA((R$,,)):YR((R$,))fȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώ gȍ:gɍ8:DP:DGBgɋ(R$,)" "R$(R$,):|gJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):gɋ(R$,)"$"R$(R$,)gɋ(R$)D#:gɂJJ(R$):CH((R$,JJ,))gɋCH/CH:DG:hɋCH.DPDP:DPύ::>hɋ(CH-)(CH+)JJύ:VhɃJJ:DGύ:jhD#(R$"D"):hXQ$Q$" (Y OR N)? "h]YES:8:RL$"Y"YES:h_ʋ (R$) hbʋRL$"N"ύ:] : iʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "+iQ$"READY": X: (R$) Biʋ YES  : yiґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:i"ӋER%ώiTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$i^Ӊ Mjӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:@jԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:jԑ"*** START PROGRAM NOT RUN. CAN'T CONTINUE. ***";BELL$:jԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";jԑ" CONSULT BASIC MANUAL FOR EXPLANATION. "kԑ:"ABNORMAL END OF JOB ":kՂI:BELL$;:: M`kHՑ: "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":kzՑ: "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":k_:10/30/78 Multi ARray ISam - MARIS (OP) #l`ꕨ:OP,(,,,T,,, ,,H,,,t0ljꕨ:Rl=ER%:j::l: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) lꕨ:NA$(DI%A)":"NA$:NA$ASNA$lER%:lꕨ:ER%:ER%:]m"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$mO0$"MARIS":O1$():O2$DA$:O3$(): O4$():O5$O4$:O6$(KL%):O7$OC$:O8$"103078"mFI%,:FI%:ER%:Bn': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) nn(땨2:NA$(DI%A)":"NA$:NA$ASNA$}n2ER%:<n<땨:ER%:ER%:nF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$oPFI%,:O0$"MARIS"FI%:ER%:oZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%