ÿÜ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� PÃZJæFM$ð"$$#,###,###.##-"gJðFIRSTðóˆJè� @œ :�ÛGET ACCOUNT RANGES´JòALðA!(): AHðA!() :�ÛASSETS LOW, HIGHÚJüCLðA!(): CIðA!() :�ÛCAP & LIABüJILðA!(): IHðA!() :�ÛINCOME KELðA!(): EHðA!() :�ÛEXPENSESKKREðA!() :�ÛRETAINED CURRENT EARNINGS‘K$:�ÛASSUMING: 1) NO DEPARTMENT CODES FOR LAST MAJOR ACCOUNT OF ANYÀK.:�Û RANGE (199, 299, 399, ETC)L8:�Û 2) COA IS STRUCTURED SEQUENTIALLY WITH ASSETS FIRST,RLB:�Û FOLLOWED BY CAP & LIAB, THEN INCOME, THEN EXPENSES LAST‚LLNR%ðÿ”(V$( )): � 0ò: � °³ :�ÛINIT, OPENÄLV‘: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%ð((MOóFM%ò )ü )ò :�ÛMO=THIS MONTH (FROM ENTERED DATE)¥Mo :�ÛFM%=FISCAL MONTH START (FROM 40000 SUBR.)«Mq‘÷Mt‘"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)? "…N’LB!ð: UB!ð: � ȹNœ‹ N!ð Ï LY%ðó :¢ LY%ð :�ÛLY%=LAST YEAR FLAGÓN°� ¼Ê :�ÛTOP-OF-FORMèNÐ� 0u :�ÛHEADERSOÚ� ð¹ :�ÛREAD MASTEROä‹ ER%ð Ï ‰ ¼M :�ÛEOF:Oî‹ M1ïCI Ï ‰ ¼M :�ÛEOJ{Oø‹ M1ïAH Ï MA#()ðóMA#(): MA#()ðóMA#(): MA#(PP%)ðóMA#(PP%)•O‹ M5ð Ï PCð+: ‰  ¯O ‹ M5ð Ï PCð= :‰  ¹OPCðÕO ‹ M1ïAH ÷ FIRST Ï ‰ 0 éO*‹ M3ñï Ï ‰ Ä *P4‹ M1ðAL ø M1ðCL Ï ‰ \ :�ÛCENTER FIRST INCOME, LIAB. ACCTS6P>ž:ž M2$ZPHLCðLCò: ‹ LCï< Ï � ùÿ: ‰ ÐdPR‰ ÚxP\‚ Ið Î  Ñ ó—Pf‹ ÿƒ(M2$,I,)ñï" " Ï ‰ z�Ppƒ¹Pzž: ‹ LY% Ï TðB :¢ Tð(ËPž ÐTóIõ);M2$ùP„ž ÐTó);" ------------------------ "ÿPŽž Q˜LCðLCòQ¢‰ Ú)QÄ ‹ M3ñï Ï ‰ ¸ FQÎ ‹ M4$ð"M" Ï �  : ‰ äyQØ ‹ M1ðRE Ï 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% Ï ž :¢ ž ÐPCò5);:ž Ù FM$;LT#)R ‚ Ið Î =R T#(I)ðT#(I)òMT#kR( LY#(I)ðLY#(I) ò LT# :�ÛLAST YEARS TOTALSsR2 ƒ I—R< LCðLCò: ‹ LCï< Ï � ùÿ: ‰ СRF ‰ Ú®RP :�ÛPAGE'¿R¸ ž M2$; ÐPC);ÓR ž Ù FM$;T#(M3);SÌ ‹ Õ LY% Ï ž :¢ ž ÐPCò5);:ž Ù FM$; LY#(M3)SÖ ‹ M1ðCL ø M1ïCI Ï ‰ ô $Sà ž0Sê LCðLCò]–¹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^Š»OLðOS: 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™_½OSðOL: 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:è`nÃMD$ðV$( ):SC$ðV$():Wðÿ”(V$())Ñ`‚Ë MD$ñï"A" ÷ MD$ñï"B" Ï � zÕ: ‰ ¼Må`ŒÃ‹ MD$ð"A" ‰ ¾Ãó`–ÃDðN1:¦ V$aªÃ¿ "I",,MD$ò":GLSYS.DAT":… #,N$Oa¯Ã† V$(ÿ”(N$)):V$()ðN$:‚IðÎÿ”(N$):… #,V$(I):ƒ I:Ãya´ÃMD$ðV$( ): ‹ MD$ñï"B" Ï � HÕ: ‰ ¼MŽa¾Ã• ¨ ‰ äÔ: ‰ ðïaÈË ×ð5 ø ×ð8 Ï � HÕ: ‰ ¼MÖaÒË ×ð6 ø ×ð> ø ×ðA Ï � zÕ:‰ ¼MàaæÃ‰ äÔbðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃ?bñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):ŽlbõÃDD#ð(ÿ­(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>cÄVS$ðV$(): VC$ðV$() :�ÛSYSTEM, COMPANY NAMEocÄ‚ Ið Î ÿ”(V$()): DK%(I)ðÿ”(V$(òôI)): ƒ—cÄ‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERSÇc"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:ŽõcÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$dÞÆ‘Ð(Wóÿ’(PN$))õ);PN$'dèÆ‘Ð(Wóÿ’(VD$))õ);VD$-d.ÇŽ>d8Ç‘ Q$;:± … R$OdtÇRL$ðÿ�(R$,)kdyÇ‹ R$ð"END" Ï ‰ ¼M :¢ Ž�dÈ�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGð°dÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰ÈÂdÈ‹ÿ’(R$)ð‰ZÈæd(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))e2È‹CHï/÷CHñ:ÏDGð:‰PÈ*e<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈOeFÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰ÈgePȃJJ:‹DGðÏ�ðÒ:‰È’eZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽ edÈ�¸Ó:‰ÈÌeÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: ŽëeÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈ?fÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$_fàÈDAðÚ(,R$,"/"):‹ DAð ‰ úÈ”fâÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR$ÊfæÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))þfðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽ gúÈ�Ô:‰ÈÈg�É�8Ç:DPð:DGðBg¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤É|g¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸ÉšgÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)¯gÇÉ‹ÿ’(R$)ðÏD#ð:ŽÓgÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))îgÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉhàÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉ>hêÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�ÉVhôɃJJ:‹DGðÏ�ðÒ:‰�ÉjhþÉD#ðÿ”(R$ò"D"):Ž‚hXÊQ$ð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. "+iÆÊQ$ð"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î,¬î,ï,tï0ljꕨ‰äÔ:ŽRlºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔœlÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) ÈlÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$×lÎêER%ð×:©ØêòlØê•¨‰ºê:‹ER%ð:ÏER%ð:Ž]mâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$ÌmìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078"ämöêÂFI%,:Ã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$}n2ëER%ð×:©<ë™n<땨‰ºê:‹ER%ñï:ÏER%ð:ŽønFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$oPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:޵oZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ë