DOS  BASIC 5* MENU C NEWDAY K  NEWCHARTU INCOME1 g BALANCE w CHARTFIX  TXNS  PRNTTXNS PRNTCOA  RESETCOA CLIENT  TXNSYTD  CHARTS 2 MASTER   TXNFILE KK YYÍ ='q')P)À)) !ê$e##å! !' :)h)COPYRI 7;'V 7;') K&( NORTH STAR DOS 5.2S "1u >!! >!& !YY" !'"( :0 u " & 1u ! !" !!"- 2(*&%!'_,~_#~W#"(!Q!5'##H!##!>?&& >T&0&&>D&y0&&>S&ͫ&!&( CR"DE}!GO!JP!RDW"WR\"IN"LI!TY!LF,"SF1" #.'[#e#*(~# ʌ!#>¡!~#"(o''}2(:3 2(>ü$PRESS RETURN TO CONTINUE1&*(> #O&&~#, {&" *(> #i&, |, }, w&"1&#&.'e#3" #:(O&&{1&.'" , ^"i&,  t",, '1&i&}P" #, ͹$, "$, i&, i&.'! , , &q#p#6#q(+w"e#'O!'6 #=">#!> '" ,  ="#͹$, >2(!(+6 #T]'7 &#,7 ,J#7w#'6#'' 7!(+6 ]#:(O:(o&'>" , {=#:+ #:'2'> :':+ #2'x2'}#:'#=•#*':'!'h&)T]))o|g:' !9"'Z$Z$_Z$yZ$Z$x!"(`$`$2(2(2("(!_"(!"($:( $7*(&i'y2(:(O>" !':(Q% %# %~ D%&N#F !(5'D%"(%<~ D%:(’%:(ʒ%=%!!F&#~n% , y%&:3 =2(F&# ’%&&ͫ&&&ͫ&&n&ͫ&~%&#&͗&& D%, !'  %@%%@&!__&&&&!+%wG&  &#%!' 1&!R&, ))))o' <&0:]&0A_G?7'7 i&!:, 0, T])))_' ,v&0;&;&ö&0;&;&/"'&*'x&:&G& :( G2(  & &s#r#^#V#'' '0, O, y2(*(~ ,'#"(', #z+{P:U'D'>ëA>«# V'=*(='::t'X~ '~~_G# Œ'X=*(q's GO BASIC 2 2A00 DOS  BASIC 5* MODEM C CMODEM (_'P)! f)!>w#|ƒ):)2xʠ)Gʢ)xͲ)x·) µ)x͐)7ɯ*7!^!*PW*_p]u\[=Z>2&Z#"9Z";Z>2,Z!zW"WV>2W>2zW2Wң**9Z~ʀ*h*͛R!;ZEP**9Z:,Zu**/Z6/-+"7Z:,Zʝ**/Z#͵B*-ZE++/*!*6*.!W{W:*6# »*+FF͂A> 2XV:&Z*9Z̪32zWVWVJ>2W!;ͽEJ*W!"/Z"1Z2)Z:WN+*WXI> !X͸E*W*W3"WX͊FKOXkIQ+eIJ:X 3+-s+:X3Q+3|+*!X"W͍E;O444͍E !W+,+,+,+,+,+,+*/Z"7Z6,+,+,+*7Z+"W+,+ -:W,*Y"W*YͰB 2&Z,:W,:Y3,2zWJͽE!;ͽE:W**9ZDM^!WE=, o gr,!;ͽEXI> !X͸E*͡G*YE:&Zo&͡G*YE2Y*W*W"Y*Y###"W4ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"!X"WͺH"X*WXͰ.~]-6);-6,:-6\S<G.#-5..-~ ʧ. #"-~ ʧ. #"-#.x #.#.#.#.#.w.w.w.w.w.w.-Ͱ."WͺH>D}*W-  x Ͱ.,-# w.> !Xq+ # ~ ʳ.#EI##~.. .!S<#.~.#..#EI.*9Z6"7Z*;Z6+"YT*7Z#"W!4@E2WͺHڠ+~4wʠ+/!WEڲ+" *7*KͷG|²+}Ҳ+ ڲ+K}*&ZwͣEͷGz.w/.8*&Zw*9Z~ʜ/eG*7Z"/Z>à/*9Z2,Z>2&ZT͍E> ڠ+O͵B##~¸+~怱O#~+*;Z)3/| /" +73*͍E> Ҡ+"3o&*W#"W~ )0 0ͺHڠ+>2&ZN0:(ZO:3Z*9Z" "Wþ0!/ 2(Zb0xGyO! ҂0+W_:4 y0+z!$: +ͰB"3ZͰB:&Z!/ w  ,  w#è0"32Y͍E> ڠ+O͵B͵B~怱O~¸+#z:Y0 0=Ҳ+w 1*9Z" +͍E +H+͍E +X;.*͈1> +vEͷGͣE>e1ͷGz²++2&Z!YN0͈1> ++6 ~1 ! "Y!Y7pB> ! "/Z"1ZͺH1"/ZͣE1ͺHڠ+|ʲ+"1Z͍E  +eG*9Z~2###"W͕E 1H1eG11*3Z*W++ͰB1*1ZDM*/Z*9Z~#ͰB͛R 2KͺH>12}!7"- *zW% K:*2(Z͍E *9Z*7Zp2HͣEp2͍E *7Zp2H#"Y͍E  +J͍2~ï2:zW:(Z=«2!;ͽEeIJ:*=2(ZX;.#͸EJJ!YEڀ2! "W"WͺH2"WͣE2ͺHڠ+|ʠ+"W ͅE>2W*2W"3o&XI> ͸E!-ýE*9Z*7Z͊F#}33$|ͺHڠ+͗GvEͺHڠ+͗G"&Z ͅE!&ZEҠ+/*&Z~͛R*7Z͊F#DM~R*:W-+2W2W"Y"W4!zW"WH+J/*9Z~)-++"W"W6 2W2W2Y͂ATVED 4ʬ+ͅE=D͉D4-+!@E~EͰB\D3###"W+FFJ!9"W*Y"W44C48> 2W2W͍E"W]4+<͕Eo&EBͅE>pB:EFBʸ+ͅE:EͅE:>ͥEҨ4!G@Dë4:"E*WCE:r+s+r+s+6"W"&ZGEDM-*&Z+444F2Y*Y#~E:#D5BEE:N#F:YUL~E:5DM͑>G5"YEC"W4Eʂ5:EͅE:W5>2WHs6=4*YͷA͕E++Ͳ;#E###*YͷAx5z5~++ ʱ55z57!5!W6A>"Yf5<5͍E"6͕E͍E +"6͕E5 \H5͕E555>2Wy5F*Y#~E:"YH+F͗G###N5ͷGz²+ͅEH+ s6vEa6F͗Gß6F"EH+͗GCDMp+q+6###S5F*Y#~E:66ì6#^#V"Y~N58#~Gz_>WWw#6"Y#~7ͷAC*7*Y͉R"Y$7+#:C*7D2W#^#V"W#~"Y#^#V"YE*Y47F Z7\H͍E ȸ͕EZ7>Q7+Dڒ7͉DҦ+~EͷGʦ+̓E͢BͣEp7y O͉DҦ+~E!@EͷG!@EͰBͣE7ͷG͂Hì7̓EBË7FC8>2W*W*Y!9"W2zWJ!-ͽE3,F2W*>#ͥE҉SF/EͣE(8ED/E[-+B/EH82F+8EM8>"pB/EͣE8H*9ZԗG+"WFKu8 DJ Dq9%8Eʭ8:E*Y͞O,KGK8ͽEͣEu8J*YͷA"Yzʤ8KG,K8FͲJ+ù88J!W K+F͕EͺH%9D9!YZ9@C9 9$9#`9~w8F8|¾+}!Ҿ+2Y͕EI]9EE9F¾+ͺHھ+|¾+}!YҾ+2Y2Y!YF~wxFä8͕E~EͷG̓Ez²+,KҤ8 ͲJÂ9F*W>1ͥEK>"ͥE:?ͲJeI2)ZJXB9͠P9ͣE9x,ʽ9 9?ͲJé9OG> pB"W 9x !$:ͽEJ"WÑ9#"*ZͽE#"WvE>2)Zî9 INPUT ERROR-RETYPE "wF\DM7wF?-+ͷGͣEͷGz²+{>f:áY!Ywz²+#s#6ͷGͣEͷGsF D>ʴ:H+͗G"YvEBʸ+"YvEBʸ+"Y>2Yɯ2&ZT*9Z͈1ï/! >!9`-+2W:W4;D:Bʸ+D4;J;2F4;͑F4;͍EʇUGU-??:?ʾ??!>ʤ;͍EJ;җ;:W+*W-j;h;j;+͕E:> Ͳ;͕E:~DŽ;"Y DM!:#E͕E*W-+Ͳ;~E:̓E~;O!> READY"PRESS RETURN TO CONTINUE" ERROR" IN LINE "3=2$/.2/}3/1/0( 1533%2]4x4f84Z589M7@6}66p778W8k7B:9:f8S6K:u:,69TTR+:H/q1=1:LETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETRUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVESAVEBYEEDITDELPSIZECATSTEPTOTHENSIZETABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILESIZEFILEPTRFILE([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNFREEINPEXAMABSCOSLOGEXPTYP? @ 3KULM@>LU? cM >?\>>A>>~>p]>h>x>n> >???>u\[=Z@͓>w͓>w>Aw͓>w͓>w͓>w͓>w>> >PYDMg >>! ># ¾>$D> PYD >>BK>D!;D{EͷGͣE?ͷG!$?͡G̓E4;{EB¸+$?{EHFJ?B¸+zʲ+n&$?Ae?GxË?O&t?$ ʇ?ʃ?$ l?%BK;ULͺG>f:͡Yo&áGE*W*Y͊FáGͺGná?{E!"Y!Y7pB!WY ?͠Ps-+!WD'?{E͈1> @!;D'?~o&$?ͺG͵V+U!ʡG#ʡGʡG#áG0BP@ACBH@+@]@͎A>YDYYcMYY>LB@Y3KYYUL=t@!YDwTB@TBA @PY!G@DmHA=@A͑>ADͺGYDY3K@D͊[!WE3K=ZWA=ADBKA3KͺG+"YZA:*W0!G#LA"YE*Y}-fA?|g}o`A"Y#͡GDBKAcM!"YeS`E"&ZD3K*&Z"&ZUL=ÙAŷHFA+͍E B8BRB>͑F BB¸+z B*YDM͊FUE"Y*Y~ #zBB>ͥEҾA{EͷG"Es̓E B{EͷG{ _&B:*7&B{E:̓EEF*Y͞OX"YA*Y͸A*Y"Y!9EڎB԰B*Yz~+×B! BEͰBs#r#^#V#!@E## ͰB͂HͰB##@ED+1DKC͍E>ͥEC͉DDC!@EDC> O͉DܺB##ͷGEҲ+##N#Fx:C͂H+vEC̓E#ͲE͉D ܢB͵B"Y͵B"Y"Y>ͥE?ҸCC!YEځC²+*Y+"YͣEڣCC!YEڟC²+"Y̓E*Y͊F+#"Y"Y7*Y*Y>=*Y*Y*YͷGʲ+"Y"Y"Y͕E\ C!W+P7C~? D###"W͍E \!WDGD?OD+>$ͥEyO+Dy@OQ7C͕E 7ȸȹED͍E rD\rD͕E\DED,+ʬ+ͅExA*7Z#͛RT]E|ʧD~#”D##!@E"Y"YͰBq###>2W7͍EA[?D͍E0:?#"W!G@~+ D*Y T]DBK"ED<2W!W*Y "YD*YUE"Y*W*W"W"W*WUE"WE!WEiE!YEy-*;Z+"Y+,ÅE͕EÅE)͕E+͕E+"W*W~# ʘE"W>,͕E+"W7 ²E ÿE"~G +ͲJ#ÿE#z+{~#fop#zE͍E̕EDEDԕE"W"$*Y"Y*Y"Y*Y"Y*Y"Y!#"Y͍E!W͠P"W!WDNF>""WFͥE*W"YG~#pF +aF"W*Y:W E::W-+}o|gW>ͥEF=D+͉Dڬ+͵B~E"E6OGBOGFD"Er+s+6:E͕E,FOGͣEFGÿF>pBF)+OG>)ͥEFG"Er+s+w:W!9"EyWS w +,Gr+61zW>ͥE+4å6OG-+"W"W*W"W*W*W*/Z"3Z*9ZNy7#"-ZE+?*1Z*3Zڲ+"3Z pGeG++YI> !W͠PD:DU?E~+O #~SHڲ+ G~SHڲ+ Gz:DBKA͑> HͺG{Z*YDDRHcMDU?DDͺGDBKRH3KD DM>LEͺG{%`C"Ybk)))*Y_zWWDU?͑>xʣHz²+{YͨHXͨH|²+}gò+ByÎH!T)H ®H͍E"Z͜Q?SHڲ+͜QH*Z+"W>ͥE7#^#V#"W͍E *9ZͺHڠ+eG+ɯ+I+I+I+I+I>0"Y .I*YBѰ>0:zW G CICI:*x*W"WJX!X6 ,KOKO2X2XCI —I6 !XX~# I!}IJJXJSJGJ_XJXJ$JxJʊJ@ʊJ 0J:XI Iw#6 GͲJ KOX!Xw# I6 -+ 0JIJ IJCI 5JòJ(JIG:J 0J%òJ\J:*G:X0J+6 :X²J ʲJòJ:X<2X²J>òJ!XX#~ J@ͲJJ:)ZeI**ZͽEeI:zW J ,K*&Z4,K*&Z6,K ͲJ òJ:* 2W:W7:-2&Z:Y,7>#ͥE>KͷGͣE{2zW!{W:zW͛R"&Z~!W K =K!Z>6+=DK!ZK>!Z sKO.L>w fKʌKZO.L ƒK+=XKZKZ LG~@KK>K-+G怰ZDO+wK+w!~ LP+>L>'w+ >L !T]Kշ'w+1L! Zw+ IL Z rLo`imL/< wLDVZ+~ …L!ZʟLO+ ˜LګL#T]K~P+LF+1M7>'+ LLx'w+ ?LT]#wL#~ M LM xw!M6*MK+D'+5MLMD>~ LxʼKpK+ ! "Y!%Zw+}M6!ZK!Zw+–M w+žM6Z!%ZNG!ZN*Yw#"Y ­MK LgoANM>NüKW{怲 7>'+ NN.Ly" ZG!Y6":YCN+60ʾ+=5N+6."Z"Z"ZYN+6 ON"Y+6!* Z~NA*O0;O yNH }O;O†NA}OcOÑN+~.ʛN,ʛN"ڸN1;O!Y:Y#N:YN~0N6 +N:Y#N#6"+~"Z.O+~ O!O##60O>0;O* Z~>-SO*Y/GʐN>0cO/O:Y@RO! Z5RO6>,SO*Z+W~!ʾ+"Zr*Z#W~"sO"Zrz5NÛN>W>0x=_* Z~ڙO0>2 Z>2Y:YI)P#OEBP:Y(N:Y O~>+SO>$SO*Y:Y#O#~ O+T]"O!"Y~)PIBPG+~P~PxABPmH»OmH¾+2Y:Y<(N>"2YO~2YNPAw:Y(N*Z~.aP#6E#:Y+wPAwP-/"O2Y2Y2Y>2Y+PPP-P>2Y"Y>+6=P"Z"Z͜Q Q.P͜QP7!Y5͜QPOQE]QͥEҦU#ͅEͷG͵V+>%ͥERGgVvE>ͥE>&ͥEtSE.S͗V:E!W~S6~%U#SͣER͗V>TͷA|##LS͗V>%U|%UTS͗V>%U}%U*Y"YzS~%U+bS͗VͷG²+{%USͷG͵V+>%ͥEڢSGgVvE>&ͥE"TBSUʸ+Uw#SͣEҥSS*YUS¸+SUWU_*Y+͊FUE*YzTUw+ TÂBBʸ+Uo&͡GES#ͅEͷG͵V+~iT: !]T)@E6#ͰB>%ͥE>wTͷG{vE͈1> +2Y͵B###ͰB͵B~¸+~!YwT)ͰBͰBr:YwͣE͡GBʸ+E͵VEV6T#ͅEͷG͵VEV~w5V*5Z~ w Uw~#͵B N"U++~G T q*5Z~怰EV ͵BðB{EͷG̓E͵V+͵B͡GDRH3K*5Z n&͡GDULE4;{EͷG̓E͵V+͵B͡G4;#ͅEͷG͵V+vEͷG+U(U5V*5Z U~~O#͵B͵B͵BEڲ+ʲ+͵B!V" yVzW{_>" !+" +!+" +6 #6 #=*V*5Z~@~@wU~@~G~p U͵VEVZV*5Z~ EʊVxŠV{_EEVͰBw*5Z ##F#~#N+ W\EҲ+z²+{²+ ͂HW~"5Z!WPE!+"- !+" COPYRIGHT NORTH STAR COMPUTERS, INC., 1978, 1980H&K;V)M XX\4y+PPPPPPPP zWXXS^PBYE ET 40959 X 40959 2A00 BYE ET 40959 XC^S^##BXWW^^!G@Da[͑>!F@D\[͑>ڲ+DDQ\3KDB@ULDU?DDDYDYDYU?Y>LYf[3KYY>LYULDk[3KD>LEYDY3KYY!z[>͎AYY![>͎AY3KY>LYcMB@ULB@cMD~wͺG{4[/<{P[p[cM3KO[<wPbCseQA)%FI=1b'vA$8C 2BDCA͕[L@cMʲ++>@BKL\͑>ҵ[=ʲ+4YDB@>LB@>LYG@ULYcMYDY3K>Y!`\͎A>Y!t\͎AY3KYcMQ\ULY3Ko&͡GDG\>LDULEdB1b'v@@)h1cIAg5`iBABKL]UL2YDDQ]cMDB@ULDU?DDͺG{ʽ\:Y2YDYDYDYU?Y>LYV]3KYY>LYULD[]3KD>LEDD3KDY!o]>͎ADY3KY3KYULE:YwpycA1AY&A1AAY&SX=ffW3Q>t&0;Aڙ]!G@YDYcM!YDYDY3K> YY!^͎AY3K]Y ]L]UL!Y]~]wD@333#@'YE@w&g?D5u3"'C?q@IT> THIS IS JOB MENU  Revised 42784  10639,00 " L$30),N$30),O$30),A$30) ( 2 W35 < #1,"MASTER" F R6 P WR1)42 Z #1 %W,A,B,A$ d #1 'n L$"Anderson Accounting Service" x RODUCTI   M10592)  Z1 18\\ Z W35  WA$)2),A$  WL$)2),L$  < "Enter (1) - To Begin a NEWDAY (NEWDAY)" > " (2) - To Create the C.O.A. (NEWCHART)" = " (3) - To Print the INCOME STATEMENT (INCOME1)" = " (4) - To Key YTD CORRECTIONS (TXNSYTD)" = " (5) - To Print the BALANCE SHEET (BALANCE)" > " (6) - To Alter the C.O.A. (CHARTFIX)" : " (7) - To Key TRANACTIONS (TXNS)" > " (8) - To PRINT TRANSACTIONS (PRNTTXNS)" = " (9) - To PRINT C.O.A. (PRNTCOA)" >" " (10) - To RESET the C.O.A. (RESETCOA)" <' " (11) - To CREATE a new CLIENT (CLIENT)" , 6 M @ M1 "NEWDAY" J M2 "NEWCHART" T M3 "INCOME1" ^ M4 "TXNSYTD" h M5 "BALANCE" r M6 "CHARTFIX" | M7 "TXNS"  M8 "PRNTTXNS"  M9 "PRNTCOA"  M10 "RESETCOA"  M11 "CLIENT"  x Anderson Accounting Service   dApril 27, 1984 5BThe Wireless Works  THIS IS JOB NEWDAY  Revised 42784  ( A$30),T$30) 2 CLEAR EEN < M10592) F 6P "* * * * * * Anderson Accounting * * * * * *" Z \ "New Day Parameters"\ d "Enter TODAYS DATE" n "Month - a number ",M x M1 d  M12 d  M$M)  M$)2 M$"0"M$  "Day - a number ",D  D1 d  D31 d  D$D)  "Year - a number ",Y  Y100 YY1900  Y1983 d  Y$Y) $ NOW COMBINE THE DATE ELEMENTS  T$Y$M$D$  TT$)\DD$) $ NOW CALCULATE THE JULIAN DATE * JD320751461Y4800M14)12)4 $" JJ367M2M14)1212)12 ', JJ3Y4900M14)12)100)4 6 JJ) @ "The Julian date is ",J J NOW IT T #1,"MASTER" ^ N h AT\BJ r Y$Y1900) | R4  WR1)42  A$M$"/"D$"/"Y$  b  SAME AGAIN  R5  WR1)42  b  A$  Y$Y)  R6\WR1)42  N,T$ 4 N0 "MONTH ERROR - CHECK PROGRAM LISTING"  N0  NM   A$T$" "D$", "Y$ & A$ 0 b : "MENU" D N #1 %W,A,B,A$ X b #1 %W,A,B,A$ l v 1,"January"  2,"February"  3,"March"  4,"April"  5,"May"  6,"June"  7,"July"  8,"August"  9,"Septber"  10,"October"  11,"November"  12,"December"  0,"ERROR"   d`A   HwE."[ HwE."[>2[ɯ2[QX*[g4Î2!@!9i0.2Y:Y=ͶFگ=}E.͕G==H='I=#HAʪAAYBʋB!@U>#H=H>:Y.*Y->>>.+HÖ=> c>+H͇=~ͅG?>"[ DM!=#mH+H*Y-.c> CHART OF ACCOUNTS   ENSI THE ARRAYS ( A$30) 2 < CLEAR EEN F M10592) 'P "Recreate the CHART OF ACCOUNTS" Z d Y0\N0\A0\B0\C0\D0 n N,A$,Z x YY1  N0 n 1 "There are ",Y1," Accounts in the C.O.A."  A "Hit the RETURN key to Recreate the Chart of Accounts ",M$  #2,"CHARTS"  N,A$,Z  N0 #2,N,A$,A,B,C,D  N0 , T NNZ  #2,N,A$,A,B,C,D  N),6), $ N0 "DR",\ N0 "CR",  10),A$ " , D.... NOW 6 #2 /@ "The Chart of Accounts has been created" J "MENU" T FIXED GTH STRINGS #^ J1 30A$)\A$A$" "\ J h r Current Assets 100199) | " 101,"CASH IN DOLLAR BANK",1 ! 102,"CASH IN OTHER BANK",1  103,"CASH IN SAVINGS",1  109,"PETTY CASH",1 $ 114,"ACCOUNTS RECEIVABLE 1",1 $ 115,"ACCOUNTS RECEIVABLE 2",1  120,"INVENTORY",1   FIXED ASSETS  # 251,"FURNITURE & FIXTURES",1 ( 252,"ACCUM DEPR FURN AND FIXT",1  253,"EQUIPMENT",1 $ 254,"ACCUM DEPR EQUIPMENT",1  258,"AUTOS AND TRUCKS",1 ) 259,"ACCUM DEPR AUTOS & TRUCKS",1 %& 262,"LEASEHOLD IMPROVEMENTS",1 $0 263,"ACCUM DEPR LEASEHOLD",1 : D OTHER ASSETS N X b CURT LIABILITIES l !v 402,"SALES TAX PAYABLE",1 " 404,"ACCOUNTS PAYABLE 1",1 " 405,"ACCOUNTS PAYABLE 2",1   LG TERM LIABILITIES  ) 455,"NOTES PAYABLE INSTALLMENT",1 $ 456,"NOTES PAYABLE DEMAND",1   EQUITY  ! 590,"NET PROFIT (LOSS)",1   SALES INCOME    650,"CASH RECEIPTS 1",1  651,"CASH RECEIPTS 2",1   655,"INCOME MISC",1 * 4 T OF SALES > H 701,"PURCHASES 1",1 R 702,"PURCHASES 2",1 \ 750,"SUBCONTRACTS 1",1 f 752,"SUBCONTRACTS 2",1 p z GENERAL ENSES   801,"ADVERTISING",1  803,"AUTO/GAS/TOLLS",1  804,"AUTO REPAIR/MAINT",1  805,"AUTO LEASING",1  808,"BANK CHARGES",1  812,"CASUAL LABOR",1  816,"COMMUNICATIONS",1  820,"DELIVERY/FREIGHT",1  822,"DEPRECIATION",1  824,"DONATIONS",1 % 825,"DRUGS/MEDICAL SUPPLIES",1 % 826,"DUES AND SUBSCRIPTIONS",1 & 827,"REPAIRS/MAINT EQUIPMENT",1  830,"ENTERTAINMENT",1  832,"EQUIPENT RENTALS",1 $ 834,"INSURANCE",1 . 840,"INTEREST",1 8 842,"EDUCATION",1 B 848,"OFFICE EXPENSE",1 L 860,"PROFESSIONAL FEES",1 V 862,"RENT",1 ` 866,"REPAIRS AND MAINT",1 j 872,"SUPPLIES",1 t 873,"PROPERTY TAXES",1 !~ 874,"TAXES AND LICENSES",1 $ 875,"TRAVEL AND CONVENTION",1  877,"UTILITIES",1  881,"MISC EXPENSE",1  0,"END OF FILE",1 END OF FILEE kWBA pCUTILITIES CMISC EXPENSE  END OF FILE IONS",1 % 825,"DRUGS/MEDICAL SUPPLIES",1 % 826,"DUES AND SUBSCRIPTIONS",1 & 827,"REPAIRS/MAINT EQUIPMENT",1   830,"ENTERTAINMENT",1  832,"EQUIPENT RENTALS",1  834,"INSURANCE",1 ( 840,"INTEREST",1 2 842,"EDUCATION",1 < 848,"OFFICE EXPENSE",1 F 851,"PAYROLL",1 P 855,"PAYROLL TAXES",1 Z 860,"PROFESSIONAL FEES",1 d 862,"RENT",1 n 866,"REPAIRS AND MAINT",1 x 872,"SUPPLIES",1  873,"PROPERTY TAXES",1 ! 874,"TAXES AND LICENSES",1 $ 875,"TRAVEL AND CONVENTION",1  877,"UTILITIES",1  881,"MISC EXPENSE",1  882,"SECURITY",1  0,"END OF FILE",1 1)\C2Z2)\C100VC1)\ J1 L0 $ VJ)CVJ)\\\\DVC1)VC2) 5 " Well, USE THIS COMMAND TO LEAVE THE PROGRAM" 4"TO INSURE THAT ALL NEW DATA WILL BE STORED ON" "THE DISC."\  8\ B\ .\Z$, "FINAL NOTES -"\ 7"THE FIRST NUMBER ON THE SKIM DISPLAY IS THE FILE" 8"ENTRY NUMBER - NECESSARY FOR SOME COMMANDS IN THE" "PROGRAM."\ 4"A 'RETURN' MAY BE TYPED FOR ANY '(Y/N)' INPUT" 5"REQUEST WITHOUT INTERRUPTION OF THE PROGRAM."\ 9"BE SURE TO USE THE EXIT MODE ON THE SELECT ROUTINE" "TO CLOSE THE FILE."\ > "LIBRARY AND LIBDOC MUST BE ON DRIVE #1 FOR CHAINING."\  8 9 "PRESS RETURN TO RETURN TO THE LIBRARY PROGRAM",R$  "LIBRARY" $ . P$"Y" P1$,\ 8 P$"Y" P2$,\ 'B "PRESS RETURN TO CONTINUE ",R$\   THIS IS JOB INCOME1  Revised 42784  M10592)\ Z1 12\\Z % "Do you want a Printout ? ",Z1$ *! Z1$"YES" 10639,50 10639,00 " Z1$"YES" 27),"M", )( A$30),B$30),C$30),D$30),N$30) $2 SET PAGE COUNTER FIRST PAGE < CLEAR EEN F M10592) P Z d GO HEADERS n @ x LOOKUP  THE EXECUTIVE RINE    LOOKUP THE DATE  #1,"MASTER"  R6  WR1)42  #1 %W,A,B,D$  R1  WR1)50  #1 %W,A,B,N$  R2  WR1)42  #1 %W,A,B,B$  R3  WR1)42 " #1 %W,A,B,C$ , #1 6 @ HEADERS J P OF M SIGNAL T K90 1,12 Y K91 #^ INCENT THE PAGE COUNTER P h PP1 .r 18),"I N C O M E S T A T E M E N T"  25),D$  18),N$  70),"Page ",P ! X1 80 2\ "- ",\ X\ $ 35),"Current",65),"Y-T-D" & 35),"Balance",65),"Balance" ! X1 80 2\ "- ",\ X\  K0   LOOKUP  #0,"CHARTS"  N1  0)0 D  #0,N,A$,A,B,C,D  NN)  NL  & NU X 0 NU D :  D #0 N X A$,35),%10F2,A, b 65),%10F2,B $l S1S1A\S2S2Y\S3S3B\S4S4Z v KK1  K30 @   MASTER RINE  GET REVENUE  ! 35),"REVENUE ON SALES"\  L600\U699   " " Net Revenue from Sales",  35),%10F2,S1,  65),%10F2,S3  S5S1\S6S2\S7S3\S8S4  S10\S20\S30\S40    GET T OF SALES   35),"COST OF SALES"\ * L700\U799 4  > " Total Cost of Sales", H 35),%10F2,S1, R 65),%10F2,S3 \ f CALCULATE GROSS PROFIT (p U1S5S1\U2S6S2\U3S7S3\U4S8S4 z EGORY DIVIDER  <  "GROSS PROFIT ON SALES",  35),%10F2,U1,  65),%10F2,U3  < B Reset Accumulators.....U5,U6,U7,U8 contain the GROSS PROFIT  S10\S20\S30\S40  GET OPERATING ENSES  # 35),"OPERATING EXPENSES"\  L800\U970   $ " Total Operating Expenses",  35),%10F2,S1,  65),%10F2,S3 $ . Print Category Divider 8 < (B R1U1S1\R2U2S2\R3U3S3\R4U4S4 HL Reset the Accumulators...R1,R2,R3,R4 contain NET OPERATING INCOME V S10\S20\S30\S40 ` "NET OPERATING INCOME", j 35),%10F2,R1, t 65),%10F2,R3 ~ < ! Increment the page counter ' Go Print The Top of Form Headers C Subtract Other Expenses from Net Oper. Income Other Income ( T1R1S1\T2R2S2\T3R3S3\T4R4S4  \  "NET PROFIT (LOSS)",  35), $ T10 "(",%10F2,T1),")",  T10 %10F2,T1,  65), # T30 "(",%10F2,T3),")"  T30 %10F2,T3   BOTM DIVIDER  P  GO P OF M - 10639,00 2 "MENU" < EGORY DIVIDER F X1 30\ "-",\ X\\ P BOTM DIVIDER Z X1 80\ "-",\ X\\ I AUTO TRUCK RUSTPROOFSO. MIAMI AUTO TRUCK RTM DIVIDER    GO P OF M  1,12   EGORY DIVIDER  X1 30\ "-",\ X\\  BOTM DIVIDER  X1 80\ "-",\ X\\ t Income l  THIS IS JOB BALANCE  Revised 42784  )( A$30),B$30),C$30),D$30),N$30) $2 SET PAGE COUNTER FIRST PAGE < CLEAR EEN F M10592) H Z1 12\\Z %J "Do you want a Printout ? ",Z1$ *K Z1$"YES" 10639,50 10639,00 P Z1$"YES" 27),"M", U M10592) Z d GO HEADERS n 6 x LOOKUP v    #1,"MASTER"  R6  WR1)42  #1 %W,A,B,D$  R1  WR1)42  #1 %W,A,B,N$  R2  WR1)42  #1 %W,A,B,B$  R3  WR1)42  #1 %W,A,B,C$ " #1 , 6 HEADERS @ P OF M SIGNAL J 1,12 #T INCENT THE PAGE COUNTER P ^ PP1 'h 20),"B A L A N C E S H E E T" r 25),D$ | 18),N$ , 27)," ",70),"Page ",P ! X1 80 2\ "- ",\ X\   LOOKUP  #0,"CHARTS"  N1  0)0   #0,N,A$,A,B,C,D  N)400 NN)  N)0   N)L   N)U &  N)U     #0  & A$, 0 N0 45), : N0 %10F2,B D N0 44), N N0 "(",%10F2,B,")" X N0 S1S1B b N0 S1S1B l v MAIN RINE  "ASSETS"\ ! " << CURRENT ASSETS >>" 2 SET LOWER UPPER LIMITS GET CURT ASSETS  L100\U199   . " TOTAL CURRENT ASSETS",55),%10F2,S1  T1S1\S10   " << FIXED ASSETS >>" 2 SET LOWER UPPER LIMITS GET FIXED ASSETS  L250\U278   * " NET FIXED ASSETS",55),%10F2,S1  T2S1\S10    " << OTHER ASSETS >>" 2  SET LOWER UPPER LIMITS GET OTHER ASSETS * L279\U299 4  &> " OTHER ASSETS",55),%10F2,S1 H T3S1\S10 R \ .\ " TOTAL ASSETS",65),%10F2,T1T2T3 f " ============" p \ z GO P OF M  6  "LIABILITIES"  & " << CURRENT LIABILITIES >>" 7 SET LOWER UPPER LIMITS GET CURT LIABILITIES  L401\U449   3 " TOTAL CURRENT LIABILITIES",55),%10F2,S1  T4S1\S10  ( " << LONG TERM LIABILITIES >>" : SET LOWER UPPER LIMITS GET LG TERM LIABILITIES  L450\U499   5 " TOTAL LONG TERM LIABILITIES",55),%10F2,S1  T5S1\S10 ` T60\S10 j \ -~ "TOTAL LIABILITY",65),%10F2,T4T5T6 / "======================================"  STATEMENTS  1 T1T2T3)T4T5T6) "OUT OF BALANCE" , T1T2T3)T4T5T6) "BALANCED!"  10639,00  "MENU"  , T1T2T3)T4T5T6) "BALANCED!"  8206,176   l13315 SW 88 AVE. oMIAMI FL. 33176 'oJuly 10, 1983 oSO. MIAMI AUTO TRUCK RUSTPROOFSO. MIAMI AUTO TRUCK RUSTPROOF13315 SW 88 AVE. MIAMI FL. 33176 D$ERG 7/ 10/ 833D$EPpG 6 20D$ERG 7/ 10/ 83 D$EPpGD$ERGJuly 10, 1983DER    GO P OF M  1,12   EGORY DIVIDER  X1 30\ "*",\ X\\  BOTM DIVIDER  X1 80\ "*",\ X\\  l101 SILVER STREET  #0,N,A$,A,B,C,D  N)400 NN)  N)0   N)L   N)U   N)U     #0   A$,45),  N0 %10F2,B   N0 "(",%10F2,B,")" & N0 S1S1B ( N0  THIS IS JOB CHARTFIX  Revised 42784  ( ENSI ARRAYS 2 N$30) < S F M10592) 8P "* * * * * * Anderson Accounting * * * * * *"\ Z d " CHARTFIX" n )x "(1) - List the CHART OF ACCOUNTS" 0 "(2) - For MAINTENANCE without a listing" $ "(3) - List a Single Account"  "(4) - To Exit This Job"   Q  Q4 "MENU"  M10592)  Q3   Q2   Q1 Z  $ "Listing - Chart of Accounts"  T0\R0  #1,"MASTER"\ #2,"CHARTS"  2)0 | " #2,N,N$,A,B,C,D , N0 | 6 TT1 @ RR1 /J R15 "Press return to Continue ",M$ T R15 M10592) ^ R15 R0 0h N) ," ",N$,40),%10F2,A,60),%10F2,B r  | #2 8 \ "There are ",T," accounts active in the C.O.A."  6 "Enter the ACCOUNT NUMBER to be maintained ",Z  M10592)  #2,"CHARTS"  2)0 0  #2,N,N$,A,B,C,D  ZN)     - \ "* * * * Account Detail * * * *"\  "Account # ",N)  "Description ",N$  "Current Bal ",%10F2,A  "YTD Balance ",%10F2,B  "Spare #1 ",C & "Spare #2 ",D 0 #2 : 1D Q3 "Depress RETURN for Main Menu ",M$ N Q3 < ,X "Select (1) - Current Balance" (b " (2) - YTD Balance" %l " (3) - Spare #1" %v " (4) - Spare #2" & " (5) - Main Menu"   Q ( Q1 "New Current Balance: ",X # Q2 "New YTD Balance ",X  Q3 "Spare #1 ",X  Q4 "Spare #2 ",X  Q5 <  Q5 X  Q1 X  #2,"CHARTS"  2)0   #2,N,N$  N)Z #2,A,B,C,D   N)Z   Q1 #2,X,   Q1  * #2,A 4 Q2 #2,X, > Q2  H #2,B R Q3 #2,X, \ Q3  f #2,C p Q4 #2,X, z Q4   X  2)0 #2,Q  #1\ #2  < State - Unemployment Tax AB0A5),%8F2,T4T5T6 /B "**************************************" L STATEMENTS V 1` T1T2T3)T4T5T6) "OUT OF BALANCE" ,j T1T2T3)T4T5T6) "BALANCED!" t  he Accumulators....  S10\S20\S30\S40    GET OTHER ENSES   35),"OTHER EXPENSES"\ ( L800\U849 2  "< " Total - Other Expenses", F 35),%8F2,S1, P 65),%8F2,S3 CZ Subtract Other Expenses from Net Oper. TS" 0 "(2) - For MAINTENANCE without a listing" $ "(3) - List a Single Account"  "(4) - To Exit This Job"   Q  Q4 "MENU"  2,27\2,69  Q3   Q2   Q1 Z  $ "Listing - THIS IS JOB TXNS  Revised 42784 , TRANSACTI RINES UPDATE THE C.O.A. ( D$12)\ R$15) 2 N$30) < A$30) F MASTER GET DATE P  Z FIND EOF OF TXN d  n ENSI ARRAYS x CHARTS  #1,"CHARTS"  RESET VARIABLES ZERO  A0\B0\C0\D0  CLEAR EEN  M10592) 7 " Anderson Accounting "  17),D$ ( " Transaction Posting"   16),T$  ) "Select (1) Post Checks Written" ) " (2) Intra-Chart Posting" - " (3) Single Account Postings" 0 " (4) RESET the Transaction file" ( " (5) Return to the MENU" " , 6 Q @ Q5 #0 J Q5 #1 T Q5 "MENU" ^ Q1 x h Q2  r Q3  | Q4    Q52  ( "Enter the Account to DEBIT ",C ) C100 "Illegal Account Number"  C100    C50   Q51  ( "Enter the Account to CREDIT ",D ) D100 "Illegal Account Number"  D100   " GET THE ADJUSTMENT QUANTITY , "Enter the transaction AMOUNT ",Q1  GET ARKS  "Enter REMARKS ",R$ & Q81 Q10 x #0 SEARCH CHARTS ACCOUNT : XC\R0 D Q52  N p !X ED WITH RECD NUMBER IN R b R1R l \ "v SET UP ACCOUNT MULTIPLIER * N0 V1\ N0 V1\ N0 V1  CN  AAQ1V)\BBQ1V)  A1A\B1B ) GET ACCOUNT ADDRESS BE DECREASED  XD\R0  Q51   p  WITH RECD NUMBER IN R  R2R  SET UP ACCOUNT MULTIPLIER * N0 V1\ N0 V1\ N0 V1  DN  AAQ1V)\BBQ1V)   & GO UPDATE THE CHART OF ACCOUNTS  . * THE MAIN MENU 4 Q50 > Q61  H Q60 R Q81 x \ Q80 f "p SEARCH THE CRECT ACCOUNT z X0 R0  X0  R1  1)0   WR1)57  #1 %W,N,N$,A,B,C1,D1  N)X  RR1   $ "ACCOUNT # ",X," NOT ON FILE"  $ MASTER GET DAYS DATE  #2,"MASTER"  R5  WR1)42  #2 %W,X,Y,D$  #2 $ #. UPDATE THE CHART OF ACCOUNTS 8 Q61 Q51 t B RR2 L #1 %R1)57,N,N$ V #1,A,B, ` UPDATE GLE ACCOUNT j Q61 Q52  t RR1 ~ #1 %R1)57,N,N$  #1,A1,B1,  GO UPDATE TXN     UPDATE THE TRANSACTI # #0,C5,C,D,D$,A1,B1,A,B,Q1,R$ $ RESET THE CHECK NUMBER ZERO  C50 - Q50\A10\B10\A0\B0\Q10\C0\D0\Q50   OF TXN  #0,"TXNFILE"  0)0   #0,F,F,F,M$,F,F,F,F,F,R$    RESET THE TRANSACTI !( "Enter the PASSWORD ",M$ )2 M$"CHAZ" "INCORRECT PASSWORD" < M$"CHAZ" "MENU" F #0 P #0,"TXNFILE" Z X0 d #0,X,X,X,M$,X,X,X,X,X,R$ n x POST CHECKS  M10592)  Q81  SET D102 CHECKING  D102  GET CHECK NUMBER ; "Enter 00 as the check number to return to the MENU" % "Enter the CHECK NUMBER ",C5 & C51 "INVALID CHECK NUMBER"  C50 Q80  C50  C50 x    GLE ACCOUNT POSTINGS  M10592) * "Select (1) To DEBIT the account" + " (2) To CREDIT the account" 0" " (3) To Return to the TXNS Menu" , 6 Q5 @ Q53  J Q53 Q60 T Q53 ^ C0\D0 h r | GO UPDATE THE ACCOUNT  Q61   8\ B\ .\Z$, R"ANALYZE -" 2\"DISPLAYS THE TOTAL NUMBER OF ENTRIES IN THE" .f"PROGRAM FILE AND INDICATES THE PER/CENT" $p"OF FILE SPACE ALREADY USED."\ z"EXIT -" 3"ALWAYS USE THIS COMMAND TO LEAVE THE PROGRAM" 4"TO INSURE THAT ALL NEW DATA WILL BE STORED ON" "THE DISC."\  8\ B\ .\Z$, "FINAL NOTES -"\ 7"THE FIRST NUMBER ON THE SKIM DISPLAY IS THE FILE" 8"ENTRY NUMBER - NECESSARY FOR SOME COM THIS IS JOB PRNTTXNS  Revised 42784  M10592)\ Z1 12\\Z % "Do you want a printout ? ",Z1$ *" Z1$"YES" 10639,50 10639,00 # 27),"M", $ Z1$"YES" 27),"M", 2 ENSI ARRAYS < A$30)\ R$15) F N$30) P T$12) Z P1\L50 d CLEAR EEN n M10592) x T0\R0  THE HEADER  L17 @  #2,"TXNFILE"  2)0 # #2,C5,C,D,T$,A1,B1,A,B,Q1,R$  C0 D0 TT1 MAT  LL1  L17 @ #2  $ 60),%10F2,B3,70),%10F2,B2  \ 8" T1 "There is ",T, " Transaction in the file" :, T1 "There are ",T, " Transactions in the file" 1 10639,00 6 "MENU" @ HEADERS J P OF M T T0 1,12 2^ "TRANSACTION LISTING ",70),"Page ",P h /r "TXN#",6),"CHK#",12),"Acct.#",20), 3| "Description",52),"Balance",62),"Debit",  72),"Credit"   PP1  L0   MAT  T,  LOOKUP DEIPTI  NC    C50 4),C5,  C0 570 ) C0 V1\ C0 V1\ C0 V1  12),C),20),A$,  50),%10F2,A1,  60),%10F2,Q1 ! 20),T$," ",R$ 0 B3B3Q1 : DO CRS NOW D LOOKUP THE DEIPTI N ND X  )b D0 V1\ D0 V1\ D0 V1 l D0  v 12),D),20),A$, # 50),%10F2,A,70),%10F2,Q1  20),T$," ",R$  B2B2Q1    LOOKUP THE DEIPTI  N0  #1,"CHARTS"  1)0   #1,J,A$,O,O,O,O  J)N)      #1   N0 V1\ N0 V1\ N0 V1  DN  AAQ1V)\BBQ1V)   & GO UPDATE2,A,60),%10F2,B  SET UP ACCOUNT MULTIPLIER * N0 V1\ N0 V1\ N0 V1   DN  AAQ1V)\BBQ1V) 9  "AFTER ",N)," ",N$,45),%10F2,A,60),%10F2,B * 4 -> "Enter (1) if the transaction is O.K." 7H " (2) THIS IS JOB PRNTCOA  Revised 42784  M10592)\ Z1 12\\ Z % "Do you want a printout ? ",Z1$ *" Z1$"YES" 10639,50 10639,00 $ Z1$"YES" 27),"M", ( ENSI ARRAYS 2 N$30) < P1\L50 F S P M10592) Z T0\R0 d THE HEADER n L49 " x #1,"MASTER"\ #2,"CHARTS"  2)0  #2,N,N$,A,B,C,D  N0 TT1  R15 R0  N)," ",  N0 "DR",  N0 "CR", * " ",N$,40),%10F2,A,60),%10F2,B LL1  L49 " #2 8 \ "There are ",T," accounts active in the C.O.A."   10639,00 , "Hit RETURN to return to the MENU",M$  "MENU" " HEADERS , P OF M 6 @ 1,12 3J "CHART OF ACCOUNTS LISTING",70),"Page ",P T ^ PP1 h L0 r ",20), 3| "Description",52),"Balance",62),"Debit",  72),"Credit"   PP1  L0   MAT  T, D100   " GET THE ADJUSTMENT QUANTITY , "Enter the transaction AMOUNT ",Q1 # SEARCH CHARTS ACCOUNT  XC  4 ! ED WITH RECD NUMBER IN R  R1R  \  "BEFORE ", *& N," ",N$,45),%8F2,A,55),%8F2,B 0 AAQ1\BBQ1 : "AFTER ", *D N," ",N$,45),%8F2,A,55),%8F2,B N X A1A\B1B )b GET ACCOUNT ADDRESS BE DECREASED l XD v 4  WITH RECD NUMBER IN R  R2R  4 "BEFORE ",N," ",N$,45),%8F2,A,55),%8F2, THIS IS JOB RESETCOA  Revised 42784 = RINE RESET THE $$$ BUCKETS IN THE CHART OF ACCOUNTS ( 2 ENSI ARRAYS < N$30) F CLEAR THE EEN P M10592) 8Z "* * * * * * Anderson Accounting * * * * * *"\ d n "RESET CHART OF ACCOUNTS" x ' "(1) - Reset the CURRENT bucket" # "(2) - Reset the YTD bucket" "(3) - Rest BOTH buckets" $ "(4) - To Return to the MENU"   Q  Q4 "MENU" 2 \ "This job will reset the buckets to ZERO" 0 "Enter the PASSWORD to continue......",P$  P$"CHAZ" F   T0  #1,"CHARTS"  1)0   #1,N,N$  N0  " Q1 #1,X, , Q1 #1,B,C,D 6 Q2 #1,A @ Q2 #1,X, J Q2 #1,C,D T Q3 #1,X,X, ^ Q3 #1,C,D h TT1 r N),6), | N0 "CR",  N0 "DR",  10),N$    #2 / \ T," Account buckets have been reset"  4 Q1 "The CURRENT buckets have been reset" 4 Q2 "The Y-T-D buckets have been reset" < Q3 "The CURRENT and YTD buckets have been reset"  #1  ( "Hit RETURN to continue......",M$  F O WB2,B 0 AAQ1\BBQ1 : "AFTER ", *D N," ",N$,45),%8F2,A,55),%8F2,B N X A1A\B1B )b GET ACCOUNT ADDRESS BE DECREASED l XD v 4  WITH RECD NUMBER IN R  R2R  4 "BEFORE ",N," ",N$,45),%8F2,A,55),%8F2,B  AAQ1\BBQ1 4 "AFTER ",N," ",N$,45),%8F2,A,55),%8F2,B   - "Enter (1) if the transaction is O.K." 7 " (2) to RE-ENTER ",M  M2 x  M1    & GO UPDATE THE CHART OF ACCOUNTS   & "Hit RETURN to continue....",M$   THE MAIN MENU * x "4 SEARCH THE CRECT ACCOUNT > R1 H 1)0  R WR1)57 \ #1 %W,N,N$,A,B,C1,D1 f NX p RR1 z H  "ACCOUNT NOT ON F THIS IS JOB CLIENT  Revised 42784 7 L$30),N$30),O$30),B$30),C$30),A$30),D$30) ( A$" " 2 W35 '< L$"Anderson Accounting Service" F RODUCTI P Z M10592) d WA$)2),A$ n x WL$)2),L$   "New Client"  D Open the MASTER containing Client info and the current date A0\B0  #1,"MASTER" * "Enter the Clients NAME: ",A$ * "Enter the Clients ADDRESS ",B$ * "Enter the Clients CITY STATE: ",C$ ^  R1  WR1)42  #1 %W,A,B,A$  RR1  WR1)42  #1 %W,A,B,B$ " RR1 , WR1)42 6 #1 %W,A,B,C$ '@ \ "Master File has been Created" J #1 T "NEWDAY" ^ FIXED STRING GTHS #h Y1 30A$)\A$A$" "\ Y #r Y1 30B$)\B$B$" "\ Y #| Y1 30C$)\C$C$" "\ Y  derson Accounting Service   b t" < Q3 "The CURRENT and YTD buckets have been reset"  #1  ( "Hit RETURN to continue......",M$  F  A ZAPPO WBCPenalties 2,B 0 AAQ1\BBQ1 : "AFTER ", *D N," ",N$,45),%8F2,A,55),%8F2,B N X A1A\B1B )b GET ACCOUNT ADDRESS BE DECREASED l XD v 4  WITH RECD NUMBER IN R  R2R  4 "BEFORE ",N," ",N$,45),%8F2,A,55),%8F2,B  AAQ1\BBQ1 4 "AFTER ",N," ",N$,45),%8F2,A,55),%8F2,B   - "Enter (1) if the transaction is O.K." 7 " (2) to RE-ENTER ",M  M2 x  M1    & GO UPDATE THE CHART OF ACCOUNTS   & "Hit RETURN to continue....",M$   THE MAIN MENU * x "4 SEARCH THE CRECT ACCOUNT > R1 H 1)0  R WR1)57 \ #1 %W,N,N$,A,B,C1,D1 f NX p RR1 z H  "ACCOUNT NOT ON F THIS IS JOB TXNSYTD  Revised 42784 , TRANSACTI RINES UPDATE THE C.O.A. ( D$12)\ R$15) 2 N$30) < A$30) F MASTER GET DATE P  Z FIND EOF OF TXN d  n ENSI ARRAYS x CHARTS  #1,"CHARTS"  RESET VARIABLES ZERO  A0\B0\C0\D0  CLEAR EEN  M10592) 7 " Anderson Accounting "  17),D$ ( " Transaction Posting"   16),T$  ) "Select (1) Post Checks Written" ) " (2) Intra-Chart Posting" - " (3) Single Account Postings" 0 " (4) RESET the Transaction file" ( " (5) Return to the MENU" " , 6 Q @ Q5 #0 J Q5 #1 T Q5 "MENU" ^ Q1 x h Q2  r Q3  | Q4    Q52  ( "Enter the Account to DEBIT ",C ) C100 "Illegal Account Number"  C100    C50   Q51  ( "Enter the Account to CREDIT ",D ) D100 "Illegal Account Number"  D100   " GET THE ADJUSTMENT QUANTITY , "Enter the transaction AMOUNT ",Q1  GET ARKS  "Enter REMARKS ",R$ & Q81 Q10 x #0 SEARCH CHARTS ACCOUNT : XC\R0 D Q52  N p !X ED WITH RECD NUMBER IN R b R1R l \ "v SET UP ACCOUNT MULTIPLIER * N0 V1\ N0 V1\ N0 V1  CN  AAQ1V)\BBQ1V)  A1A\B1B ) GET ACCOUNT ADDRESS BE DECREASED  XD\R0  Q51   p  WITH RECD NUMBER IN R  R2R  SET UP ACCOUNT MULTIPLIER * N0 V1\ N0 V1\ N0 V1  DN  AAQ1V)\BBQ1V)   & GO UPDATE THE CHART OF ACCOUNTS  . * THE MAIN MENU 4 Q50 > Q61  H Q60 R Q81 x \ Q80 f "p SEARCH THE CRECT ACCOUNT z X0 R0  X0  R1  1)0   WR1)57  #1 %W,N,N$,A,B,C1,D1  N)X  RR1   $ "ACCOUNT # ",X," NOT ON FILE"  $ MASTER GET DAYS DATE  #2,"MASTER"  R5  WR1)42  #2 %W,X,Y,D$  #2 $ #. UPDATE THE CHART OF ACCOUNTS 8 Q61 Q51 t B RR2 L #1 %R1)57,N,N$,A V #1,B, ` UPDATE GLE ACCOUNT j Q61 Q52  t RR1 ~ #1 %R1)57,N,N$,A1  #1,B1,  GO UPDATE TXN     UPDATE THE TRANSACTI $ #0,C5,C,D,D$,B1,A1,B,A,Q1,R$ $ RESET THE CHECK NUMBER ZERO  C50 - Q50\A10\B10\A0\B0\Q10\C0\D0\Q50   OF TXN  #0,"TXNFILE"  0)0   #0,F,F,F,M$,F,F,F,F,F,R$    RESET THE TRANSACTI !( "Enter the PASSWORD ",M$ )2 M$"CHAZ" "INCORRECT PASSWORD" < M$"CHAZ" "MENU" F #0 P #0,"TXNFILE" Z X0 d #0,X,X,X,M$,X,X,X,X,X,R$ n x POST CHECKS  4)  Q81  SET D102 CHECKING  D102  GET CHECK NUMBER ; "Enter 00 as the check number to return to the MENU" % "Enter the CHECK NUMBER ",C5 & C51 "INVALID CHECK NUMBER"  C50 Q80  C50  C50 x    GLE ACCOUNT POSTINGS  M10592) * "Select (1) To DEBIT the account" + " (2) To CREDIT the account" 0" " (3) To Return to the TXNS Menu" , 6 Q5 @ Q53  J Q53 Q60 T Q53 ^ C0\D0 h r | GO UPDATE THE ACCOUNT  Q61   8\ B\ .\Z$, R"ANALYZE -" 2\"DISPLAYS THE TOTAL NUMBER OF ENTRIES IN THE" .f"PROGRAM FILE AND INDICATES THE PER/CENT" $p"OF FILE SPACE ALREADY USED."\ z"EXIT -" 3"ALWAYS USE THIS COMMAND TO LEAVE THE PROGRAM" 4"TO INSURE THAT ALL NEW DATA WILL BE STORED ON" "THE DISC."\  8\ B\ .\Z$, "FINAL NOTES -"\ 7"THE FIRST NUMBER ON THE SKIM DISPLAY IS THE FILE" 8"ENTRY NUMBER - NECESSARY FOR SOME COM?]]CCASH IN DOLLAR BANK  CCASH IN OTHER BANK 0CCASH IN SAVINGS CPETTY CASH @CACCOUNTS RECEIVABLE 1 PCACCOUNTS RECEIVABLE 2 CINVENTORY %CFURNITURE & FIXTURES % ACCUM DEPR FURN AND FIXT %0CEQUIPMENT %@ACCUM DEPR EQUIPMENT %CAUTOS AND TRUCKS %ACCUM DEPR AUTOS & TRUCKS & CLEASEHOLD IMPROVEMENTS &0ACCUM DEPR LEASEHOLD @ SALES TAX PAYABLE @@ACCOUNTS PAYABLE 1 @PACCOUNTS PAYABLE 2 EPNOTES PAYABLE INSTALLMENT E`NOTES PAYABLE DEMAND YNET PROFIT (LOSS) eCASH RECEIPTS 1 eCASH RECEIPTS 2 ePINCOME MISC pCPURCHASES 1 p CPURCHASES 2 uCSUBCONTRACTS 1 u CSUBCONTRACTS 2 CADVERTISING 0CAUTO/GAS/TOLLS @CAUTO REPAIR/MAINT PCAUTO LEASING CBANK CHARGES  CCASUAL LABOR `CCOMMUNICATIONS CDELIVERY/FREIGHT  CDEPRECIATION @CDONATIONS PCDRUGS/MEDICAL SUPPLIES `CDUES AND SUBSCRIPTIONS pCREPAIRS/MAINT EQUIPMENT CENTERTAINMENT  CEQUIPENT RENTALS @CINSURANCE CINTEREST  CEDUCATION COFFICE EXPENSE CPROFESSIONAL FEES  CRENT `CREPAIRS AND MAINT  CSUPPLIES 0CPROPERTY TAXES @CTAXES AND LICENSES PCTRAVEL AND CONVENTION pCUTILITIES CMISC EXPENSE  END OF FILE Chaz Studio 4150 Pembrook Place Suite 207 Austintown, Ohio 44515 D$EG 4/ 29/ 84 D$EG 4/ 29/ 84 D$EGApril 29, 1984