@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF }CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} |||DDOS DOSDOS SYS }}}} mm_}CDOS SYS*+DUP SYSCUGLEDIT BvAPR DATBzGLDESC DATBBUDGET DATBGLDESC BGLEDIT } 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED106 FREE SECTORS COPYING---D1:ROAD4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 139ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uCD$ NGLGLNUMBXX1TNGFLAKKKPIXXXXXXXXXX1X1X1X@V} W}@ OO;A ,;A0,9AP<@,;A(,;@,X};@,6-d--@@ D:GLDESC.DATn @ 40A0xZ67$@%@Y},.)@B67$@ %@,.P6-%@Z A(@(((NUMBER ACCTS IN  A;(Z} (ENTER G/L TO CHANGE $;B:,"AGB:,@(=(#G/L CODE IMPROPER LENGTH, TRY AGAING A[}@(%(ENTER DESCRIPTION ACCT. )@B:,"ACB:,!@ (9(DESCRIPTION TOO LONG, TRY AGAINC A\}<B:, @ +-B:,%@@ 867<,. < '"6-%@' A A+"]}@(!( G/L EXISTS+ A076-%@6-&@+ @76-@-6-%@!&@-6^}-&@@ -@27+&@,$@%@<$@,A " 6- A0,-%@6@_}13-@@/68<,-8&@<,3 6aa67+&@,$@%@<$@,.7+&@,$@%@`}<+&@,$@,;ea67+&@,$@ %@<$@ ,.7+&@,$@ %@<+&@,$@ ,ea} @,-@@(68<,-, J0067@$+&@,%@<@$,.T0067@ $+&@,%@b}<@ $,.^ A6.7@<@,-@a7@$+&@,%@<@$+&@,c}%@,07@<@,n3>:@,6.7@$+&@,%@<@$,S7@$+&@,%@<@d}$+&@,%@,07@<@,V3Y3\36.7@$+&@,%@<@$,[W37@$+&@,e}%@<@$,7@ $+&@,%@<@ $,[ --@@ D:GLDESC.DAT-@f}E @7+&@,$@%@<@$,y @7+&@,$@ %@<$@ ,}  @0g}@ A&#SEARCH ROUTINE#56-6-@)6-%@56-#!6-P:+%,'@h},"!$# 6-#006.7+&@,$@%@<$@,#2Ap#3A# A# 6-i} A # 6- A #6-@$#--@@ D:GLDATA.DAT$(-@@( @j}$F-@@* @8<,6@F @,$   "$9 @9 @-999.99,0,0k},0,0,0,0,0,0,0,0,0,$@6$$T$--@@ D:GLDATA.DATY$6-^$;&@l};"6A A`h$68<@,-%68<@,-668<@,-G68<@,-X68<@,-i68m}<@,-z68<@,-68<@,-r$G68<@ ,-%68<@,-668<@,-G68<@,-|$6-n}%@ A$ A$@$((DATA ACCTS. IN $$D:GLEDIT A< >== a !/X%%MENU CALLING PROGRAM FOR APOLLO;@, "(}CHOSE ONE OF FOLLOWING"(''(D. 0p}EDIT G/L DESCRIPTION FILE (E. EDIT G/L DATA FILE''(F. ENTER TRANSACTIONS TO G/L++(#G. MTH END SORT G/0q}L TRANSACTIONS( POST TO GLDATA%%(H. DETAIL REPORT OF GLDATA((( I. YEAR END CREATE NEW GLDATA,,(0r}$J. CONVERT DATA FILE TO VC FORMAT,,($K. CONVERT VC FILE TO DATA FORMAT((( M. PRINTOUT PRINT FORMAT FILE0s}( S. STOP(( ENTER CODE  4M%D:PRTFRM 4D%D:GLDESC 4E%D:GLEDIT 4F0t}%D:GLEN 4G%D:MTHEND 4H%D:GENRPT" 4I%D:YREND# 4J%D:DATOVC$ 4K%D:V0u}CTODA, 4S&-(#(INVALID CODE, TRY AGAIN- @D:MENU"(}CHOSE ONE OF FOLLOWING"(''(D. 0O45043082RETSKY 010101000001 45043082KELNER 010101000001 45043082VORA AR 0101 w}01010102 45043082VORA 010101000001 135043082MEISEL 010101010102 37.92043082WATER 5 x} FT 00010101010104421000043082XFER TO KEMPER 01010301010104431.18043082INTEREST 010103000002 y}32.14043082SOMOS ELECTRICITY 000104010101044448.19043082MEISEL ELECTRICITY 0001040101010445450043082CEMENT REPAIR }000001MAINTENANCE FEE INC 000002KEMPER FUND INTEREST000101WATER EXPENSE 000102MISC SUPPLIES 000103SNOW R{}EMOVAL 000104ELECTRICITY 000105GRASS CUTTING 000106CLEANING 000107SECRETARY OF STATE |} 000108PAINTING & GUTTER 000109INSURANCE 000110MAJOR REPAIRS 010001PREPAID MAINTENANCE 010002RESE}}RVE FOR OUTSIDE 010091NET WORTH 010099PROFIT & LOSS 010101BANK BALANCE 010102ACCTS. RECEIVABLE}45013182RETSKY JAN 010101000001 105013182SOMOS AR 010101010102 45013182KELNER JAN 010D}101000001 17.75013182LIGHT BULBS 000102010101043346.28013182WATER 6 FT 00010101010104343013182LEDGED}R BOOK 00010201010104355.48013182stamps 1981 000102010101043515.36013182PLASTIC COVER 0001020101010D}-315,-630,-945,-1260,-1575,-1890,-2205,-2520,-2835,-3150,-3465,-37800,0,0,0,0,0,0,0,0,0,0,033,73,119,158,198,246,302,376,45}1,497,544,6000,0,8,23,29,31,36,38,49,49,65,650,0,100,100,100,100,100,100,100,100,100,1000,0,0,0,0,85,85,85,85,85,85,850,0},0,0,6,33,45,58,64,64,70,700,0,0,0,0,0,0,8,17,17,17,250,0,0,0,0,0,0,0,5,5,5,50,0,0,0,0,0,0,0,0,0,100,1000,0,0,0,0,0,0,0,0},1900,1900,19000,0,0,0,0,840,840,840,840,840,840,8400,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,0*}-245,-490,-735,-980,-1225,-1470,-1715,-1960,-2205,-2450,-2695,-29400,0,0,0,0,0,0,0,0,0,0,026.83,59.03,96.59,128.79,160.99,1@}99.84,245.34,306.01,366.68,404.6,442.52,488.020,0,6.85,20.46,25.89,27.42,31.92,33.28,43.28,43.28,57.34,57.340,0,25,25,25,25@},25,25,25,25,25,250,0,0,0,0,71.12,71.12,71.12,71.12,71.12,71.12,71.120,0,0,0,6,32,44,56,62,62,68,680,0,0,0,0,0,0,5,10,10,1@}0,150,0,0,0,0,0,0,0,5,5,5,50,0,0,0,0,0,0,0,0,0,214,2140,0,0,0,0,0,0,0,0,1700,1700,17000,0,0,0,0,0,0,0,0,0,548.5,548.5-5,A&}43512.66013182ROCK SALT 000102010101043645013182SOMOS AR 010102000001 45013182ARCHER AR E}IJ2 , NGLGLNUMXX1MONFLABEGIENNGKKKPXXXXXXXXXX1X1X1@} } PROGRAM TO EDIT GLDATA.DAT OO;A ,;A0},9A <@,;A(,;@,;@6,B(} EDIT G/L DATAB6.$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC%}(!(ENTER DISC INTO DRIVE%2 A Ad;( (ENTER G/L TO CHANGE $;B:,"AnHB:,}@(>($G/L CODE IMPROPER LENGTH, TRY AGAINH Ax5 A"@(+( G/L EXISTS5 A3()(}G/L DOES NOT EXIST, TRY AGAIN3 A A/()(ENTER BEGIN,END MONTH NUMBER / -w(ACCT. }7@$+&@,%@<@$, MONTH 7@$+&@,%@<@$, {68<,-  A} A A&a(a(G/L 7@$+&@,%@<@$,7@ $+&@,%@<@ $,}W-@@P(. 7@$+&@,%@<@$,8<,T W$(#INPUT G/L DESCRIPTORS-#6-}2#--@@ D:GLDESC.DAT7# @ 40A0<#P6-%@%67B:,%@,.2@}F67B:,%@,.P AF#+@(+(NO. DESCRIPTORS IN #$#SEARCH ROUTINE#56-6-}@)6-%@56-#!6-P:+%,'@,"!$# 6-#006.7+&@,$@%@<$@,}#2Ap#3A# A# 6- A # 6- A #6-@$#--@@} D:GLDATA.DAT$(-@@( @$F-@@* @8<,6@F @},$   "$9 @9 @-999.99,0,0,0,0,0,0,0,0,0,0,0,$@6$$T$9-@@} D:GLDATA.DAT96-^$;&@;"6A A`c$6-%@h$68<@,-%6}8<@,-668<@,-G68<@,-X68<@,-i68<@,-z68<@,-68<@,-r$G68}<@ ,-%68<@,-668<@,-G68<@,-$ A$@$$D:GLEDITp|}GLNGLXDESCPAYGLENINDXOUTSUMX1NUMFNGNUMIPROFISSMONTKPREIIKLASKFLAKKPXXXXXXX$}XXX1X1X1@@@@ @ $}$} !"#$%&'()##MONTH END SORT GENER$}AL LEDGER ;A0,;A ,;@E,;AB,9A,;A,9A,9@,9@,;@,$}9A<@,;@ ,.6-6-"6..6-<(}MONTH END SORT(8(PUT DATA DISC $}INTO DRIVE<d9 A A9READ DESCRIPTION AND DATA FILESip((WHAT MONTH TO SORT #=67@<@$},.D:T67@<@,.p67@<@ ,..DATn* A*@@x A@@$}E6-%@68,-'@;67B:,%@,.E A b B@(3(NO. ENTRIES IN = ?6$}-@M6-@$U-^68,-b 76-A:7@<@,,) @76-%@5(&(MONTH =  O$}K (Y OR N) *24N5&="@-@968<,-8<@,= l-@^67B:,%@,.$}7+&@,$@B%@'<+&@,$@B%@8,b l A@ 6.68@,-468@,-@$}6-,GD3DATE G/L ACCT. DESCRIPTIONCHECKDR. AMT.CR. AMT.G36E -4E6.7+8,&@,$@$}%@<8,$@,@@607+8,&@,$@%@<8,$@,@ A J68@,--68@$},-I6-P:8,'@%?P,a6-+&@,$@B68@&$@%8,,-8,O>>68@&$@%8,,$}-8@&$@%8,,%8,Tbb37%@<%@,7%@<%@&,7%@9<%@B,8@,8@$},Y97@<@,40096-%8@,&8@,^ h A r 6-46.010099 A468<,$}?@&NGLGLNUMBXX1TNGFLAKKKPXXXXXXXXXX1X1X1@} }&&PROGRAM TO EDIT G/L DESCRIPTIONS OO;A ,;A0,9AP<@,;A}(,;@,;@,d!(}PUT DISC INTO DRIVE! AINPUT GLDESC AINPUT GLDATA;( (}ENTER G/L TO CHANGE $;B:,"AGB:,@(=(#G/L CODE IMPROPER LENGTH, TRY AGAING A@}(%(ENTER DESCRIPTION ACCT. )@B:,"ACB:,!@ (9(DESCRIPTION TOO LONG, TRY AGAINC A}<B:, @ +-B:,%@@ 867<,. < '"6-%@' A A+"@}(!( G/L EXISTS+ A076-%@6-&@+ @76-@-6-%@!&@-6-&}@@ -@27+&@,$@%@<$@,A " 6- A0,-%@6@}13-@@/68<,-8&@<,3 6aa67+&@,$@%@<$@,.7+&@,$@%@}<+&@,$@,;ea67+&@,$@ %@<$@ ,.7+&@,$@ %@<+&@,$@ ,e }@,-@@(68<,-, J0067@$+&@,%@<@$,.T0067@ $+&@,%@}<@ $,.^ AE-@@ D:GLDESC.DATEOUTPUT GL DESCRIPTION-@E @}7+&@,$@%@<@$,y @7+&@,$@ %@<$@ ,}  @0@} A7(#(PRINT G/L DESCRIPTIONS '70YA X6.7@<@,b-@a7@$+&}@,%@<@$+&@,%@,07@<@,n3>:@,6.7@$+&@,%@<@$,l}S7@$+&@,%@<@$+&@,%@,07@<@,V3Y3\36.7@$+&@,%@<@}$,v[W37@$+&@,%@<@$,7@ $+&@,%@<@ $,[ &(#INPUT G/L DESC}RIPTORS-#6-2#--@@ D:GLDESC.DAT7# @ 40A0<#P6-%@%67B:,}%@,.2@F67B:,%@,.P AF#+@(+(NO. DESCRIPTORS IN #$#SEARCH ROUTINE}#56-6-@)6-%@56-#!6-P:+%,'@,"!$# 6-#006.7+&@,$@%@}<$@,#2Ap#3A# A# 6- A # 6- A #6-@$#--}@@ D:GLDATA.DAT$(-@@( @$F-@@* @8<,6}@F @,$   "$9 @9 @-999.99,0,0,0,0,0,0,0,0,0,0,0,$@6$$T$9-@}@ D:GLDATA.DAT96-^$;&@;"6A A`c$6-%@h$}68<@,-%68<@,-668<@,-G68<@,-X68<@,-i68<@,-z68<@,-68<}@,-r$G68<@ ,-%68<@,-668<@,-G68<@,-$ A$@$$D:GL}DESC@&NGLGLNUMBXX1TNGFLAKKKPXXXXXXXXXX1X1X1@-8<&@,%"@68<,-P()(PROFIT FOR MONTH = $6@,(P(Y-T-D PROFIT = 8<,$6@$}/-%@+68<,-8<&@,/  A OUTPUT DATA FILE%D:MENU773TOTAL     $}8@,8@,e A;68<,-8<&@,%8@,&8@,P68@,-e68@,-$}G+&,@+-%@&@C68<,-8<&@,G ? <6.7+8,&@,$@%@<8,$@$},?3 6- $=((FILE NOT FOUND  , TRY AGAIN3@= A(# SORT2#((SORTINGF#-&@$}P#-%@i#kk7+8,&@,$@%@<8,$@,/7+8,&@,$@%@<8,$@,A$}n#! 6-8,68,-8,!68,-x#   #$#SEARCH ROUTINE#56-6-@)6-%@56-$}#!6-P:+%,'@,"!$# 6-#006.7+&@,$@%@<$@,#2Ap#3A$}# A# 6- A # 6- A #6-@$#--@@ D:GLDATA.DAT$(-@$}@( @$F-@@* @8<,6@F @,$   "$9 @9$} @-999.99,0,0,0,0,0,0,0,0,0,0,0,$@6$$T$9-@@ D:GLDATA.DAT96-^$;&$}@;"6A A`c$6-%@h$68<@,-%68<@,-668<@,-G$}68<@,-X68<@,-i68<@,-z68<@,-68<@,-r$G68<@ ,-%68<@,-668$}<@,-G68<@,-$ A$@$$%INPUT G/L DESCRIPTORS!%6-&%--@@$} D:GLDESC.DAT+% @ 40A00%P6-%@%67B:,%@,.2@F67B:,%@,.$}P A:%+@(+(NO. DESCRIPTORS IN v%$D:MTHENDMONTKPREIIKLASKFLAKKPXXXXXXX$M3{NGXNGLGLINDXREPTXOUTFMONADDLINEINDINNUMBENNLRNLINEMTILINNUMADADDINDPRTDATTOMONTNx}UMLINPRTFORADDDATXXXXXXXXXX1X1X1NADDLINMU@"rAo A~ AVx}  $$A 9 @ @ A@@AW&Z@@@s&ZZ''Zx}FG DATETDCRGLNGLPAYDESCXT1FMONNGNUMIOUCASFLAIKKKP }@  }DAILY JOURNEL ENTRIES ~~;@ ,;@P,;@,;A0,;A ,9A, };AB,;@E,;@,;@ ,;@6,.6-6-.6. DEBIT CREDIT..6.$JANFEBMARAPRMAY }JUNJULAUGSEPOCTNOVDEC(!(}PUT DISC INTO DRIVE!2% A%INPUT G/L DESCRIPTION<N6-@ (6(FIRST ENTRY } FOR MONTH(Y OR N) :B4YN6-@;( (ENTER DATE (MMDDYY) $;B:,"A<B:,@( }2(INVALID DATE, TRY AGAIN< A`67@<@,.D:76-A:7@<@,,u67@<@,.7+&@ },$@%@<$@,67@<@ ,..DATE(*(ENTER TRANSACTION DOLLAR AMT. .EB:,"A` } 6-A:,56-%@6-,67@,.568,-9((ENTER DESCRIPTION "9B:,@ A@ }5(+( DESCRIPTION TOO LONG, TRY AGAIN5 A B:,"@ A`--B:,%@@ )67<,. -  }&67@,.&-@@k(I(ENTER 7+&@,$@%@<@$, G/L ACCT. MW Ak }"@A2(((INVALID G/L ACCT., TRY AGAIN2 Ap":67B:,%@,..4010101*"@:6-@ }' ,2"(67B:,%@,. 2 A6Y(((ENTER CHECK NO. ,;B:,"@O67B: },%@,.Y A@2(((INVALID CHECK NO., TRY AGAIN2 An(#(DATE 7@<@,4(AMOUNT 8, }Q(DESC.7@<@&,n(CHECK7@9<@B,-@@L6.7@'%+&@,$@<@&%@ }$,V A(7+&@,$@%@<@$,  7+&@,$@ %@<@ $, N( }( OK (Y OR N) $4N26-&@D( NOT ACCEPTEDN A!67B:,%@,.! A@ }d-@! @8,U @7@B$+&@,%@<@B$,Y d@XFC3DATE DESC }RIPTION DR. G/LCR. G/LCHECKAMOUNTF(b)-@)6-+&@,$@Bl}}37%@<%@,7% }@<%@&,7%@'<%@2,7%@3<%@8,7%@9<%@B,8, %D:MENU(#INPUT }G/L DESCRIPTORS-#6-2#--@@ D:GLDESC.DAT7# @ 40A0<#P6-%@ }%67B:,%@,.2@F67B:,%@,.P AF#+@(+(NO. DESCRIPTORS IN #$#SEARCH R }OUTINE#56-6-@)6-%@56-#!6-P:+%,'@,"!$# 6-#006.7+&@,$@ }%@<$@,#2Ap#3A# A# 6- A # 6- A #6-@ }$D:GLENETDCRGLNGLPAYDESCXT1FMONNGNUMIOUCASFLAIKKKP Z@@@@"AA@@@9 A!A" #$%&'x}()*+,-.@"/@80@))GENERAL PROGRAM TO SUMMARIZE GLDATA pp9x}A,;A3,9@,9@<@,;@,;@0,;@6,9A,;A ,[3>:@, Ax}P.-@@B-@@S68<,-W [ 6-@A&68,-* 66-@x}..6.$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC( Ad@6-@-@+6-$@/ @6-P:%?P,ix}6-P:$%?P,'n 6.=:, "A0s" "P:,"67B:,%@,..x!!6-%@%B:=:P:,,,&B:,}7x}!-@367B:,%@,.07 56-%@&B:,***@567<,.$3 6.x} $ 6-@ ;,;,;,"-@67<,. "  AE$$SUBROUTINE TO ADD REPORT LINESBB6x}.7+&@,$@0%@<+&@,$@0%@,-@6-%@-@@/"@x})4A/68<,-8<,%88,<,/@*4S/68<,-8<,&88,<,    "$,))SUBROUTINE TOy} PRINT FORMATTED LINES677%@A A0A@APA`@E.37+&@,$@0%@<$@0,8y} AEBLANK LINEJbG3   ------------------------------------Q AbLINE OF DASHESTbG3y}   ====================================Q AbLINE OF EQUALS^!  A!PAGE HEADINGSy}h%3>:@, A%NEW PAGE$SUBROUTINE PRINTDATAU8<@,U68<@,-+8<@,'y}8<@,&@,$AF-@@"6-8<,86-$@%@&B AF KA67@<@',.y}7+&@,$@0%@<$@0,K A@$TOP OF PAGE=:3 MONTH OF 7+&@,$@%@<$@y},=3AA3   THISYEAR TO PRIORANNUALPERCENTDD3   MONTHDATEBUDGETYEARBy}UDGETVARIANCEN$p&(}WHAT MONTH TO REPORT (1-12) *-(p(REPORTING FOR MONTH 7+&@,$@%@<$y}@,*( OK (Y OR N) *4NA(($(INSERT DISC & HIT RETURN(s B 6. D:GLDATA.DAT,y }6-@26-< BJ-@s68<@,-8<@,&8< X, <4mqx XZ(<,4d,m\tDGET.DAT"6-@(6-2 B$86. D:BUDGET.DAT"6-@.6-@8 B.26. D:GLHIST.DAT"6-@y }(6-2 BCALLING ROUTINE TO PRINT?6-6-A'6-A36-A?6-A-@y }EE6-A:7+&@,$@0%@<+&@,$@0%@,,HD7+&@,$@0%@<+&@,$@0y }%@,4DH HD7+&@,$@0%@<+&@,$@0%@,4PH 7+&@,$@0%@y}<+&@,$@0%@,4A)7+&@,$@0%@<+&@,$@0%@,4S  (#&'##SUBROUy}TINE TO READ GLDATA.DAT' @@'6-';&@;"6A By} 010102000001 45013182VORA AR 010102000001 45013182SALCES AR 010102000001 45013182MEISE}>F27:+F9-F25>E27:+E9-E25>D27:+D9-D25>C27:+C9-C25>B27:+B9-B25>A27:"GAIN>F25:@SUM(F13...F23>E25:@SUM(E13...E23>D25:@SUMI}(D13...D23>C25:@SUM(C13...C23>B25:@SUM(B13...B23>A25:"TOTAL EXP.>F23:548.5>E23:0>D23:150>C23:475.5>B23:42>A23:"REPAII}RS>F22:5>E22:5>D22:12.45>C22:6.17>B22:6.78>A22:"BANK/STATE>F21:57.34>E21:38.65>D21:114.42>C21:57.06>B21:59.6>A21:I}EL AR 010102000001 AR 010102000001 45013182SALCES AR 010102000001 45013182MEISD! 010103KEMPER FUND 0 010099PROFIT & LOSS 010101BANK BALANCE 010102ACCTS. RECEIVABLE"67.48022882WATER 9FT 000101010101043770022882SALCES NOV-DEC 010101010102 45022882SALCES JAN 0M}10101010102 45022882VORA JAN 010101010102 45022882VORA FEB 010101000001 45022882RETSKY FM}"MISC. SUP>F20:214>E20:76>D20:0>C20:243>B20:154>A20:"GUTTERS>F19:10>E19:27>D19:24>C19:0>B19:0>A19:"CLEANING>F18:I}68>E18:64>D18:46>C18:45>B18:0>A18:"GRASS CUT>F17:25>E17:0>D17:101.97>C17:82>B17:0>A17:"SNOW REMOV>F16:71.12>E16:I}58.5>D16:64.39>C16:71.52>B16:71.52>A16:"ELECTRIC>F15:480>E15:305.21>D15:198.94>C15:332.7>B15:553.95>A15:"WATER>F14I}:0>E14:1080>D14:0>C14:0>B14:0>A14:"PAINTING>F13:1700>E13:1578>D13:1616>C13:1293>B13:1197>A13:"INSURANCE>A12:/-->I}A11:"EXPENSES>F9:@SUM(F6...F7)>E9:@SUM(E6...E7)>D9:@SUM(D6...D7)>C9:@SUM(C6...C7)>B9:@SUM(B6...B7)>A9:"TOTAL INC.>E7:7I}00>A7:"ASSESSMENT>F6:2940>E6:3360>D6:2520>C6:2520>B6:2415>A6:"MAINT. FEE>A5:/-->A4:"INCOME>F3:/----------->E3:/---I$} 000110010101044645043082SOMOS AR 010102000001 45043082ARCHER AR 010102000001 45043082SAL /}EB 010101000001 45022882KELNER FEB 010101000001 45022882SOMOS JAN 010101010102 450M }22882SOMOS FEB 010101000001 10022882TRASH CAN 000102010101043845022882archer ar 01010200M!}0001 45022882SALCES AR 010102000001 45022882MEISEL AR 010102000001 er ar 01010200Le45033182RETSKY 010101000001 45033182KELNER 010101000001 37.92033182WATER 5 FT 0U#}001010101010440824.5033182CLOSE INSUR FUNDS 010101010103 1000033182OPEN KEMPER FUND 010103010101044190033182ARCU+}-------->D3:/----------->C3:/----------->B3:/----------->F2:/FR"1981>E2:/FR"1980>D2:/FR"1979>C2:/FR"1978>B2:/FR"1977I%}>F1:/FR"EST'D/W1/GOC/GRA/GF$/GC10/X>A1:>A1:--------->F2:/FR"1981>E2:/FR"1980>D2:/FR"1979>C2:/FR"1978>B2:/FR"1977H2-5,0,0,0,0,0,0,0,0,0,0-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5-1581.73,-1581.73,A'}-1581.73,-1581.73,-1581.73,-1581.73,-1581.73,-1581.73,-1581.73,-1581.73,-1581.73,-1581.73-218.17,-430.97,-606.56,-805.75,-10A(}07.12,-1114.62,-1297.62,-1463.59,-1621.92,-129,446.48,251.981469.9,1732.7,1943.29,2177.48,2273.85,2311.35,2627.99,2680.32,29A)}88.65,1605.73,855.25,1154.75335,285,245,210,315,385,250,355,215,105,280,175824.5,824.5,824.5,824.5,824.5,824.5,824.5,824.5,AH}0,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,0-999.99,0,0,0,0,0,0,0,0,0,0,M}HER AR 010101010102 45033182ARCHER 010101000001 45033182SOMOS 010101000001 U,}45033182VORA AR 010102000001 45033182SALCES AR 010102000001 45033182MEISEL AR 010U-}102000001 AR 010102000001 45033182SALCES AR 010102000001 45033182MEISEL AR 010TG!" Li3!3-@-;}%-@@668<,-: > , A&"6.010091"@6.1190-<}01 A/"(,(ERROR, CAN'T FIND /&?(( PROFIT = $6@0( OK(Y OR N) 4<4N?&-=}!!68<@,-8<@,%6-6-@B$(#INPUT G/L DESCRIPTORS-#6-2#--@@->} D:GLDESC.DAT7# @ 40A0<#P6-%@%67B:,%@,.2@F67B:,%@-?},.P AF#+@(+(NO. DESCRIPTORS IN #$#SEARCH ROUTINE#56-6-@)6-%@-@}56-#!6-P:+%,'@,"!$# 6-#006.7+&@,$@%@<$@,#2Ap#-A}3A# A# 6- A # 6- A #6-@$#--@@ D:GLDATA.DAT-B}$(-@@( @$F-@@* @8<,6@F @,$   "$9-C} @9 @-999.99,0,0,0,0,0,0,0,0,0,0,0,$@6$$T$9-@@ D:GLDATA.DAT96--D}^$;&@;"6A A`c$6-%@h$68<@,-%68<@,-668<-E}@,-G68<@,-X68<@,-i68<@,-z68<@,-68<@,-r$G68<@ ,-%68<@-F},-668<@,-G68<@,-$ A$@$$D:YREND,Z,00,0,0,0,0,0,0,0,0,0,0,0-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,-824.5,0,0-1329.75,-1329.75,-1329.]I}824.5,824.5,824.5,824.5-999.99,0,0,0,0,0,0,0,0,0,0,050,355,215,105,280,175824.5,824.5,824.5,824.5,824.5,824.5,824.5,824.5,@675,-1329.75,-1329.75,-1329.75,-1329.75,-1329.75,-1329.75,-1329.75,0,0-214.47,-451.99,-729.07,-477,-729.26,-876.42,-1177.18,-]}D:DISK.CAT001A D:PROGLIB@ D:PROGLIBo@5@ D:PROGLIBDELA !>X45053182RETSKY 010101000001 45.5053182WATER 6 FT 00010101010104476.86053182GRASS SEEDS aL}000102010101044845053182KELNER 010101000001 45053182SOMOS APR 010101010102 45053182SOMOS aN}0,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,0-999.99,0,0,0,0,0,0,0,0,0,0, 010101000001 17.71053182KEMPER 010103000002 12053182CUT GRASS 0001050101010449aO}7053182EDGE LAWN 00010501010104499.09053182GRASS SEED 000102010101044945053182ARCHER AR 010aa}01NUMSFXNNGNXXXXXXXXXX1X1X1@5Q} 65R}6PROGRAM TO CONVERT DATA TO VISICALC "DIF" FORMAT 999A<@,;@,;@,;@,&"(}PUT DATA 5S}DISC INTO DRIVE&V(!(FILE NAME TO CONVERT %?67@<@,.D:V67@<@,.2 A6-5T}dV(!(FILE NAME FOR OUTPUT %?67@<@,.D:V67@<@,.n 6-x6-@.((OUTP5U}UT % OR $ .4$A`Y-@%-@@<8<@,Y68<,-8<,'8<@, 5V}   A&--F$=OUTPUT FILE NAME FOR DIF FILE OUTPUT!!NV=NUMBER OF VECTORS (ROWS)##NT=NUMBER OF TUP5W}LES (COLUMNS) @@. A08"-@"1 TO # COLUMNSB&6-6@6-&6.5X}BOTL A@V-@1 TO # ROWS`26-2T=0 MEANS DATA, T=1 MEANS STRINGt6-6.V~5Y}6-8<, A@  &6-6@6-&6.EOD A@@$ %%ROUTINE TO5Z} WRITE OUT DIF HEADER 1 @TABLE' @0,11 A5 3 @TUPLES) @0,3 A5 45[} @VECTORS* @0,4 A5 0 @DATA& @0,00 A5 $ WRITE "" (NULL ST5\}RING) $$ @>:@4,>:@4, $ROUTINE TO WRITE OUT DATA @, @$T$5]} @@Y$6-^$;&@;"6A A`c$6-%@h$5^}68<@,-%68<@,-668<@,-G68<@,-X68<@,-i68<@,-z68<@,-68<5_}@,-68<@ ,-r$668<@,-%68<@,-668<@,-$ A$@$((NO. ACC5`}TS. IN $$D:DATOVCXXXXXXXXXX1X1X1@4 102000001 45053182VORA AR 010102000001 45053182SALCES AR 010102000001 45053182MEISEL AR a})* TVVXFTSNUMNNTVNGNGLGL@@@9c} ##THIS PROGRAM READS A DIF FILE9d}AND OUTPUTS A DATA FILE ee9A,9A,;@P,;@,;@,;@,;@,9A<@9e},D-@A+-@@<68<,-@ D d""(}CONVERT VC FORMAT TO DATA APCA9f}LL INIT CODE A`READ HEADER*-@ Ap*NT=# COLUMNS-@$+8,"+68<,9g}-P:8,%?P,.   L@VH((FILE TO OUTPUT 967@<@,.D:H67@,.[ A9q}B'DOS SYSB*+DUP SYSCUGLEDIT BvAPR DATBzGLDESC DATBBUDGET DATBGLDESC BGLEDIT BGLEN B!MTHEND BSEP DATB4YREND BoMENU BPDATOVC BbVCTODA BzBUDHIS B GLHIST DATB~JAN DATB HOUSE VC BFEB DATB.TEMPAUTOTXTB"MAR DATbJDISK CATB 0GLDATA DATBKMAY DATBJUN DATBJUL DATBAUG DATB PRTFRM B#GENRPT BASB'GENRPT B HOUSE FRMBOCT DATBAUTORUN SYS` Al&INIT CODE&("(INPUT DISC INTO DRIVE & ((FILE TO CONVERT  ,67@<@9r},.D:,67@,.* AY*@@( B6-%6-($ 2(FILE  9s} NOT FOUND(@2 AP p READ HEADER, SET NV AND NTz@@@4VE9t}CTORSAe4TUPLESAf4DATA$ A`d 6- (( NO. ROWS xAA`%%(9u}TOO MANY VECTORS, MAX OF 100@& 6- (( NO. COLUMNS  A`X;;GET ALL VECTOR ELEMENTS IN T9v}UPLE (ALL COLUMNS IN ROW)b# A#GET NEXT DATA VALUEl6@Av0BOTA0-@ 9w}A0"6@A 68,-68,- $@GET NEXT DATA VALUEJ'@'GET TYPE INDICATORT9x}-@-GET NUMERIC VALUE & STRING^$(#*(ERROR IN FILE FORMAT'@*&#INPUT G/L DESCRIPTORS#69y}-#--@@ D:GLDESC.DAT# @ 40A0#U6-%@*7@<@,49}#$ TVVXFTSNUMINNTVAoAo42f p |  Ao@ @={} @ @ @ @@66THIS PROGRAM READS BUDGET AND HISTP=|} IN VC FORMAT00AND OUTPUTS A 12-MONTH BUDGET IN VC FORMAT ee9A,9A,;@P,;@,;@,;=}}@,;@,9A<@,&"(}PUT DATA DISC INTO DRIVE&o((BUDGET VC FILE 967@<@=~},.D:H67@,.R Ao@@(E B A %-@A68<@,-8<@=},E dT((HISTP VC FILE -67@,.7 AT@@n B A D-@=}-@<68<,-8<,$8<@,@ D ,V(!(FILE NAME FOR OUTPUT %?67@<@,.D:V67@=}<@,.J A&,(FILE NOT FOUND"@, @0!!ROUTINE TO OUTPUT VC FORMAT @=}@. A08"-@"1 TO # COLUMNSB&6-6@6-&6.BOTL A@V-=}@1 TO # ROWS`26-2T=0 MEANS DATA, T=1 MEANS STRINGt6-6.V~6-8<, A@=}  &6-6@6-&6.EOD A@@$INPUT VC FILE A`-@=} Ap-@  8," 68<,-8,    @4$ %%ROUTINE TO WRITE OUT D=}IF HEADER 1 @TABLE' @0,11 A5 3 @TUPLES) @0,3 A5 4 @=}VECTORS* @0,4 A5 0 @DATA& @0,00 A5 $ WRITE "" (NULL STRING) $$ =}@>:@4,>:@4, $ROUTINE TO WRITE OUT DATA @, @$p READ HEAD=}ER, SET NV AND NTz@@@4VECTORSAe4TUPLESAf4=}DATA$ A`d 6- (( NO. ROWS xAA`%%(TOO MANY VECTORS, MAX OF 100@=}& 6- (( NO. COLUMNS  A`X;;GET ALL VECTOR ELEMENTS IN TUPLE (ALL COLUMNS IN ROW)b# A#GET N=}EXT DATA VALUEl6@Av0BOTA0-@ A0"6@A 68,-68=},- $@GET NEXT DATA VALUEJ'@'GET TYPE INDICATORT-@-GET NUMERIC VALUE & STRING^=}$(#+(ERROR IN FILE FORMAT(@+&'D:BUDHIS2f p |  Ao@ @<E08-@Q68<,-8<,$6@U #@ A#+@(+(NO. DESCRIPTORS IN #$# 9}@@$(-@@( @$:-@$ @8<,*: @,9}$   $AP$ @$<-%@8 @0,0,0,0,0,0,0,0,0,0,0,0< "$.. @-999.99}9,0,0,0,0,0,0,0,0,0,0,0,$@6$$'D:VCTODA@8B 010102000001 AR 010102000001 45053182SALCES AR 010102000001 45053182MEISEL AR `45.5063082WATER 6 FT 000101010101045048063082REPAIR GUTTERS 0001080101010451180063082SALCES AR 0e}10101010102 15063082SALCES JUNE 010101000001 90063082ARCHER AR 010101010102 45063082VORA AR e} 010101010102 45063082VORA JUNE 010101000001 45063082RETSKY 010101000001 450e}63082KELNER 010101000001 95.27063082LAWNMOWER 00010201010104522063082BANK SERVICE CHG 000102e}010101000045063082SOMOS AR 010102000001 45063082ARCHER AR 010102000001 30063082SALCES AR e} 010102000001 45063082MEISEL AR 010102000001 22.93063082INTEREST KEMPER 010103000002 AR dw1470.4,-1754.11,-1819.11,0,01249.22,1556.74,1613.32,360.07,459.62,733.85,420.93,643.43,945.34,1010.34,0,0295,225,270,270,40]}37.92073182WATER 5 FT 000101010101045345073182RETSKY 010101000001 45073182KELNER 0i}10101000001 135073182MEISEL APRIL-JUNE 010101010102 23.68073182KEMPER 010103000002 500073182XFEi}R TO KEMPER 010103010101045445073182SOMOS 010102000001 45073182ARCHER 010102000001 i}45073182VORA 010102000001 45073182SALCES 010102000001 45073182MEISEL 010i}102000001 010102000001 45073182SALCES 010102000001 45073182MEISEL 010h2083182BANK CHARGE 000102010101000045.5083182WATER 6 FT 000101010101045545083182VORA AR 010m}101010102 45083182VORA AUG 010101000001 90083182ARCHER AR 010101010102 45083182KELNER AUGm} 010101000001 45083182RETSKY AUG 010101000001 25.72083182KEMPER 010103000002 45m}083182SOMOS AR 010102000001 45083182ARCHER AR 010102000001 45083182SALCES AR 0101020m}00001 45083182MEISEL AR 010102000001 ER AR 010102000001 45083182SALCES AR 0101020l85,255,345,390,345,345,0,0824.5,824.5,1000,2001.18,2018.89,2041.82,2565.5,2591.22,2618.02,2618.02,0,0-999.99,0,0,0,0,0,0,0,0]}011AREPTFLINENUMBCXXUNIILINNUMLINNADDLIN@@q} EDIT PRINT FORMAT FILEdGG;AE,;@,9AP,9A,;@0,;q}@0,i((PLEASE WAIT A MOMENT APRINT A FORMAT LINE<(7+&@,$@0%@<$@0,q}1 REM GENERAL PROGRAM TO SUMMARIZE GLDATA10 DIM INDX(110),REPT$(3300),X(12),OUT(85,6),F$(15),X$(30),MON$(36),ADDLINE(200),NGu}L$(900)20 LPRINT CHR$(15):GOSUB 150:FOR I=1 TO 85:FOR J=1 TO 6:OUT(I,J)=0:NEXT J:NEXT I25 FOR I=1 TO 110:INDX(I)=0:NEXT I:Nu}D=230 MON$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"40 GOTO 1000100 INDX=1:FOR IX=1 TO ND:INDX=INDX*10:NEXT IX:INDX=INT(INDX+u}0.5)105 NUMBER=INT(INDX*NUMBER+0.5)/INDX110 N$=STR$(NUMBER):IF ND=0 THEN 130115 IF NUMBER=INT(NUMBER) THEN N$(LEN(N$)+1)="u}."120 NZ=ND+1+LEN(STR$(INT(NUMBER)))-LEN(N$)125 IF NZ>0 THEN FOR IX=1 TO NZ:N$(LEN(N$)+1)="0":NEXT IX130 LC=RC+1-LEN(N$):Iu}F LC<=RC AND RC<=NC AND LC>=1 THEN LINE$(LC,RC)=N$135 RETURN 140 LPRINT LINE$145 LINE$=MT$:RETURN 150 NC=90:DIM LINE$(NC)u},N$(NC),MT$(NC)155 FOR I=1 TO NC:MT$(I,I)=" ":NEXT I160 GOTO 145200 REM SUBROUTINE TO ADD REPORT LINES210 X$=REPT$((ILINEu}-1)*30+1,(ILINE-1)*30+1)220 FOR I=1 TO NUMADD:ADDINDX=ADDINDX+1230 FOR J=1 TO 5240 IF I=1 OR X$="A" THEN OUT(ILINE,J)=OUT(u}ILINE,J)+OUT(ADDLINE(ADDINDX),J)250 IF I<>1 AND X$="S" THEN OUT(ILINE,J)=OUT(ILINE,J)-OUT(ADDLINE(ADDINDX),J)260 NEXT J:NEXu}T I270 GOSUB PRTDATA290 RETURN 300 REM SUBROUTINE TO PRINT FORMATTED LINES310 ON NUMADD+1 GOTO 320,330,340,350,360320 LPu}RINT REPT$((ILINE-1)*30+4,ILINE*30):GOTO 390:REM BLANK LINE330 LPRINT " "," "," ","------","------","------","------","-----u}-","------":GOTO 390:REM LINE OF DASHES340 LPRINT " "," "," ","======","======","======","======","======","======":GOTO 390u}:REM LINE OF EQUALS350 GOSUB TOP:GOTO 390:REM PAGE HEADINGS360 LPRINT CHR$(12):GOTO 390:REM NEW PAGE390 RETURN 400 REM SUu}BROUTINE PRINTDATA405 IF OUT(ILINE,3)<>0 THEN OUT(ILINE,6)=(OUT(ILINE,2)/OUT(ILINE,3)-1)*100410 FOR J=1 TO 6:NUMBER=OUT(ILIu}NE,J):RC=J*10+26:GOSUB 100:NEXT J420 LINE$(1,27)=REPT$((ILINE-1)*30+4,ILINE*30):GOSUB 140490 RETURN 500 REM TOP OF PAGE51u}0 LPRINT "MONTH OF ";MON$((MONTH-1)*3+1,MONTH*3):LPRINT 520 LPRINT " "," "," ","THIS","YEAR TO"," ","PRIOR","ANNUAL","PERCENu}T"530 LPRINT " "," "," ","MONTH","DATE","BUDGET","YEAR","BUDGET","VARIANCE"590 RETURN 1000 ? "}WHAT MONTH TO REPORT (1-12)u} ";:INPUT MONTH:? :? "REPORTING FOR MONTH ";MON$((MONTH-1)*3+1,MONTH*3);1010 ? " OK (Y OR N) ";:INPUT X$:IF X$="N" THEN 1000u}1020 ? :? "INSERT DISC & HIT RETURN";:INPUT X$1030 GOSUB 11000:F$="D:GLDATA.DAT":J=2:M=MONTH:GOSUB 10000:FOR I=1 TO NUMLINEu}:OUT(I,1)=OUT(I,2)-OUT(I,6)1040 OUT(I,6)=0:NEXT I1050 F$="D:BUDGET.DAT":J=3:M=MONTH:GOSUB 100001060 F$="D:BUDGET.DAT":J=5:u}M=12:GOSUB 100001070 F$="D:GLHIST.DAT":J=4:M=MONTH:GOSUB 100001200 REM CALLING ROUTINE TO PRINT1210 ADDINDX=0:PRTFORM=300:u}ADDDATA=200:PRTDATA=400:TOP=5001220 FOR ILINE=1 TO NUMLINE1230 NUMADD=VAL(REPT$((ILINE-1)*30+2,(ILINE-1)*30+3))1240 IF REPu}T$((ILINE-1)*30+1,(ILINE-1)*30+1)="D" THEN GOSUB PRTDATA1250 IF REPT$((ILINE-1)*30+1,(ILINE-1)*30+1)="P" THEN GOSUB PRTFORMu}1260 IF REPT$((ILINE-1)*30+1,(ILINE-1)*30+1)="A" OR REPT$((ILINE-1)*30+1,(ILINE-1)*30+1)="S" THEN GOSUB ADDDATA1270 NEXT ILIu}NE9000 STOP 10000 REM SUBROUTINE TO READ GLDATA.DAT10005 OPEN #1,4,0,F$10010 I=010015 INPUT #1,X1,X2,X3,X4,X5,X6,X7,X8,Xu}9,X10,X11,X12:IF X1=-999.99 THEN 1004510020 I=I+110025 X(1)=X1:X(2)=X2:X(3)=X3:X(4)=X4:X(5)=X5:X(6)=X6:X(7)=X7:X(8)=X8:X(9)u}=X910030 X(10)=X10:X(11)=X11:X(12)=X12:MUL=2*VAL(NGL$((I-1)*6+4,(I-1)*6+4))-110035 OUT(INDX(I),J)=OUT(INDX(I),J)+X(M)*MUL:Iu}F J<>2 THEN 1004010037 IF M>1 THEN OUT(INDX(I),6)=OUT(INDX(I),6)+X(M-1)*MUL10040 GOTO 1001510045 CLOSE #110055 RETURN 11u}000 REM INPUT FORMAT FILE11010 ? :? "INPUT FORMAT FILENAME ";:INPUT X$:F$(4)=X$:F$(1,3)="D1:":OPEN #1,4,0,F$:NUMLINE=1:NADDLu}INE=111020 TRAP 11080:INPUT #1,X$:REPT$((NUMLINE-1)*30+1,NUMLINE*30)=X$:IF X$(1,1)="P" THEN 1107011030 FOR I=1 TO VAL(X$(2,u}3)):INPUT #1,X11040 IF X$(1,1)="D" THEN INDX(X)=NUMLINE11050 IF X$(1,1)<>"D" THEN ADDLINE(NADDLINE)=X:NADDLINE=NADDLINE+11u}1060 NEXT I11070 NUMLINE=NUMLINE+1:GOTO 1102011080 TRAP 40000:NUMLINE=NUMLINE-1:NADDLINE=NADDLINE-1:CLOSE #1:? :? "NUMBER Fu}ORMAT LINES ";NUMLINE12000 REM INPUT G/L DESCRIPTORS12010 NGL=0:OPEN #1,4,0,"D:GLDESC.DAT"12020 INPUT #1,X$:IF X$="0" THENu} 1204012030 NGL=NGL+1:NGL$(LEN(NGL$)+1)=X$:INPUT #1,X$:GOTO 1202012040 CLOSE #1:? :? "NO. DESCRIPTORS IN ";NGL12050 RETURNu}E$'6-%@)'68@,-!68@,-068@,-?68@,-N68@,-]68@,-l68@y},-{68@,-68@ ,-.'68@,-!68@,-068@,-6-@$A:7+&@,$@%@y}<+&@,$@%@,,&@3'4 688,<,-88,<,%8,$4@B@5'@!@@688,<@,-y}88,<@,%8&@,$8' B='@G'$*INPUT FORMAT FILE+K6. D1:HOUSE.FRM3@@y}?6-@K6-@ +h B@G67+&@,$@0%@<$@0,.h7@<@y},4PBp+2%-@A:7@<@,,2@ +%7@<@,4D%68,-*+37@<@y},0D%68,-36-%@4+ >+6-%@ B H+R B6-&@)6-&@4@7(R(NUMy}BER FORMAT LINES .INPUT G/L DESCRIPTORS.96-9@@ D:GLDESC.DAT. @ 4y}0B @.<6-%@%67B:,%@,.2@< B /+@(+(NO. DESCRIPTORS IN /$y}D:GENRPTNGXNGLGLINDXREPTXOUTFMONADDLINEINDINNUMBENNLRNLINEMTILINNUMADADDINDPRTDATTOMONTNx 204012030 NGL=NGL+1:NGL$(LEN(NGL$)+1)=X$:INPUT #1,X$:GOTO 1202012040 CLOSE #1:? :? "NO. DESCRIPTORS IN ";NGL12050 RETURNt53.09093082WATER 7 FT 00010101010104565093082CORP FEE 000107010101045726.8093082KEMPER )}010103000002 135093082SOMOS JUNE-AUG 010101010102 45093082ARCHER AUG 010101010102 90093082MEISEL)} JULY-AUG 010101010102 45093082KELNER 010101000001 45093082RETSKY 010101000001 45)}093082SOMOS AR 010102000001 45093082ARCHER AR 010102000001 45093082VORA AR 010102)}000001 45093082SALCES AR 010102000001 45093082MEISEL AR 010102000001 AR 010102(g>:@4,7+&@,$@0%@<+&@,$@0%@,4PA0/!-8,8%@,&@+(8q},/ $U(}EDIT PRINT FORMAT FILE) B,(A(PRINT (Y OR N) EU4NAb6-@/@q}@E:=-@I(.S AW b@(#F#/((PRINT (Y OR N) /4NAPPq}#b6-@/@@P:=-@I(.S AW b@Z#%D:MENU*INPUT FORq}MAT FILE+("(INPUT FORMAT FILENAME &567@,.P67@<@,.D1:m@@y6-@q}6-@ +G B@G67+&@,$@0%@<$@0,.+- 68,--7@<@,4Pq}Bp+;%-@A:7@<@,,2@;68,-*+6-%@4+ >+6-%@ B H+2 Bq}68,-$6-&@26-&@R+,@(,(NUMBER FORMAT LINES W+$D:PRTFRMpmP03 "P00REVENUE "D01MAINTENANCE FEES "1D01KEMPER INTEREST }} "2P01 "A02TOTAL INCOME "34P00 "P00EXPENSES }} "D01WATER EXPENSE "3D01MISC. SUPPLIES "4D01SNOW REMOVAL "5D01ELECTR}}ICITY "6D01GRASS CUTTING "7D01CLEANING "8D01SECRETARY OF STATE FEE "}}9D01PAINTING & GUTTER REPAIR "10D01INSURANCE "11D01MAJOR REPAIRS "12P01 }} "A10TOTAL EXPENSES "9101112131415161718P00 "P02 }} "S02PROFIT "620P02 "P00 "P03 }} "P00ASSETS "D01BANK BALANCE "17D01KEMPER FUND "19D}}01MAINT. FEES IN ARREARS "18P01 "A03TOTAL ASSETS "282930P00 }} "P00LIABILITIES "D01PREPAID MAINTENANCE FEES "13D01RESERVE FOR OUTSIDE "14D01NET WO}}RTH "15A01PROFIT "23P01 "A04TOTAL LIABILITIES "}}35363738 "15A01PROFIT "23P01 "A04TOTAL LIABILITIES "| 25103082MAINT 010101000001 40103082WATER EXPENSE 010101000001 010102ACCTS. RECEIVABLE\,0,0,045,390,345,345,0,0824.5,824.5,1000,2001.18,2018.89,2041.82,2565.5,2591.22,2618.02,2618.02,0,0-999.99,0,0,0,0,0,0,0,0\EiͩkΩ͙kCop j`j {j`Hi͝Νh`}L"UNEM:D" NURͩkΩ͙kCop j`j {j`Hi͝Νh`