DOS  BASIC - MENU $ NEWDAY ( NEWCHART- INCOME1 6 BALANCE > CHARTFIXE TXNS K PRNTTXNSS PRNTCOA W RESETCOAZ CLIENT ^ TXNSYTD b  CHARTS  MASTER  TXNFILE K CF - 5 ð))'))×"F$#å#b&y"q"U*1c >2 >!"c 5 ['yg> gy?O  2&{2& ͮ!{¥ : >!! ~Y(!(!*&~}OG<=͗!:5 0"!@{!: ! >wG#7wG# ! >!Wr!0O>!/!×!:{!:>! ::!:Ù!͗!:!0:&!͙!!: y2 :&_͙! ͗!:@!>!@{!: "!!+"G#+"G# " #!>!::3":;"::&R":I~_G#~_G# T"X*& >?1&&1c :&+"6& RE-BOOT">T1&01&&>D1&y?01&&>S1&%v"", V$, >2&!&+6 "T]t&7 ",7 , #7w#t&"A&t& 7:/ !&O:&o&'>" , {@#×!:+ ;#:&2&> >"d##Gy@O:&c 2&x2&6#:&҄#=S#*&:&!&h&)T]))o|g:& !9"&#/$#_#y?##x##7#!$!$g} W /2&h"&"&M\N#*&*&|E.#} W\MN#yW:4 6$>FD"&2&~ ""د2&>2/ !"&~$:& h$7*&y2&* !%" !/ :&O:&o&'>" "  :/ $!':&%$# $~ $,&N#F !&̈́&$"&¸$<"  :/ 2/ Ã$~ $:&Q%:&Q%=N%%6& , 8%&:3 =2&F&# Q%,&%&,&~r%)%&Sʃ%D&o&%~£%&#,&%& $, PRESS RETURN TO CONTINUE"0%%%0%%%/"U*%*U*x&:&G& :&  & &s#r#^#V#G "1&6&t&]& A&0, , , Oy2&S&}2&:3 2&>W$*&~ ʂ&#"&#z+{"O,&,&~怱O~#, {,&z*ڸ&-Ҹ&2&" *&> W*TEST NORTH STAR DOS 5.1DQ "COPYRIGHT NORTH STAR COMPUTERS, INC., 1979>!)c ['2&>! 6Y#=u'͗!>=„':'z2& :0 +'6&y")>0x>07>@!|;)gN)~w,;)$N)|;)0)>A>>>7>7>0>`>ʀ)xʊ)> xxx!U*  *@*!*@&v"__4*4*@*&v"+*wG&  &#*q"GO BASIC t& u*!͖*, ))))ot& €*0:ҡ*0AG?7t&7 ʫ*!:, 0, T])))_t& ,ø*ͫ*, |, }t&D+ *S+, t&, !"" !q""- 2&+&*!W*"&*U*!H+ ̈́&##?+##.+q",&( CR*,DEt+GO&JGO BASIC +IN,LI,TY+LF+SF+"++6 |+ u**&> "*, G~怰w·+u*#'&+ +":&O,&,&z, ~怱O{u*+" , +ͫ*,  ,,, A&u***xO}%,<+"V$, "V$, ͫ*, *&~Aܫ**x2&f,#|g}o:&O/$DM+ , , '&q#p#:&w#q&+w, A&*xOx/G!'6 #6 #¯,/$!> '" ,  =¿,*&~# ,#>,~#"&oA&b&-7!_!-PY-__^1][>2[#"["[>2[!yY"YX>2Y>2yY2Yң-*[~ʀ-h-*U![eHP-*[:[u-*[6 2%0."[:[ʝ-*[#PE*[eH.. 2-!-6-2!YzY:-6# »-HͧHD> 2YX:[*[62yYXQXgM>2Y!o>SHlM*Y!"["[2[:YP.*YZ͘K> !ZNH*Y*Y5"YZ IͮMOYKS.KlM:Z 5 .0x.:~Z5tT7 .5 2ͅ.-!Z"Y#H>!77#H !Y././././././.*["[6/././.*[+"Y.0.0:Y/*["Y*[KE 2[&/:Y&/:[SH:Y-*[DM^!YeHF/ o g{/!>SHZ͘K> !ZNH-3J*[ͪG:[o&3J*[ͪG2[*Y*Y"[*[###"Y6ARG"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"!Z"YLK"Z*YZʹ1~]06);06,:06\?G 1#1>110~ ʫ1 #"0~ ʫ1 #"0,1x ,1,1,1,1{1{1{1{1{1{10ʹ1"YLK>D}*Y0  x ʹ1,0# {1> !~Zq+ # ~ ʷ1#mH͘K##~11 1!?#1~1#11#mH͘K1*[6"[*[6+"[*[#"Y!4G2YLKک.~4wʩ.![eHڻ." -7-͙MIJ|».}һ. ڻ.ͮM}*[w*[~~2I*["[>Â2*[2[>2[#H> ک.OPE##~.~怱O#~.*[62| 2" .73-#H> ҩ.5o&*Y#"Y~ 3 2LKک.>2[-3:[O:[*[" "YÝ3!/ 2[A3xGyO! a3.W_:4 X3.z!< .KE"[KE:[!/ w  ,  w#Ç352H[#H> ک.OPEPE~怱O~.#z:H[3 3=һ.w 3*[" .#H .́K.#H .Y1-g4> . HIJ9H>D4IJz»..2[!H[-3g4> .+6 ]4 ! "[!H[7 E> ! "["[LKڡ4"[9H¡4LKک.|ʻ."[#H ©.I*[~4###"Y+H ʲ4oKھ4Iھ4¾4*[*Y++KEþ4*[DM*[*[~#KE*U 4͙MLK>5}!:"- *yY% ͙M:-2[#H *[*[O5́K9HO5#H *[O5́K#"H[#H ©.lM~:yY‰5:[ʉ5=†5!u>SHKlM:-=2[Z1#NHvMlM!H[eH_5! "Y"YLK5"Y9H5LKک.|ʩ."Y H>2Y-2Y5o&Z͘K> NH!0SH*[*[ I#} 6$|LKک.)J HLKک.)J"[ H![eHҩ.*[~*U*[ I#DM U-:Y0.2Y2Y"["Y6!yY"ÝK.lM 2*[~20.+"Y"Y6 2Y2Y2[DXF6ʵ.HFG=0.!GHKEFè6###"YHͧHvM!9"Y*["Y7~F6:> 2Y2Y#H"Y/7.>+Ho&mHwEH> Ë́=êGIwE.Ḧ́=ͪGḦ́=>;Hz7!B͕G}7̈́=͸G*Y~F=r+s+r+s+6"Y"[GFV0*[.ʤ7¥77I2H[*[#~=#ͶF7}EeH=N#F:H[N~mH 8DM,A8"[mH~F"Y6HT8̈́=ͧGH:Yʻ8>2YoKE97*[RD+H..c>#mH###*[RDxʛ8zʶ8~++ ʃ8á8zʡ87!8!Y6A>"[88<á8#H"8+H#H ."8+H8 \oKһ8+Hʺ8»8»8>2YK8I*[#~="[oK.I)J### 8IJz».HoK. E9 H39I)Jq9I͸GoK.)J~FDMp+q+6###%8I*[#~=ʕ9ʦ9~9#^#V"[~ 8:#~Gy_>YWw#³9"[#~9RD~F9*[U"[+#̈́=~F9͕G#^#V"Y#~"[#^#V"[ͪG*[9I %:\oK#H ȸ+H%:>:F]:Gү.HIJʯ.H=E9H;:y OGү.H!GIJ!GKE9Hڕ:IJKw:HeEV:I~F:>2Y*Y*[!9"Y2yYgM!0SH#;HVIG9H:FGd0.wEG;H:ͪG;>" EG9H:oK*[)J+"YʹH͙M@;ͨFlMͨF,<%ʝ;Hx;̈́=ͧG*[0R;MGͮMlMSH9H@;lM*[RD"[zo;ͮMG;MlMFDM+Ä;H+HLK;D;![Z;@C; ;$;#<~wà;ʹHà;|.}!.2[+HI1;H͙M>";H<?DMK2[lMZwEʟ<2Sڸ<9Hڰ E"Y Æ2[i< INPUT ERROR-RETYPE " IF: IH0.IJ9HIJz».{>!=H[!H[wz».#s#6IJ9HIJsIͨF>o=oK.)J"[ 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>Ḧ́=H/>O!@ READY"PRESS RETURN TO CONTINUE" ERROR" IN LINE "o65%225~2R6d2{423( 3655/7J71;7,8:L<:9O9w9;:::";6:<<1;%9=0=8VYWIU.s=D2P44==LETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETRUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVESAVEBYEEDITDELPSIZECATSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILE([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNFREEINPEXAMABSCOSLOGEXPTYPA XC MNBNA O AA&^qA}AC&AAA_AAA A AAB0BQBA^1][B.Aw.Aw>Aw.Aw.Aw.Aw.Aw>?A ?APYDMg dAdA! dA# YA$wG> PYwG xAxABKxAwG!>zGHIJ9HºAIJ!A3JH=HwE.ÿAHHAwE.zʻ.n&ÿAABGx&BO&B$ "BB$ B%BK>NLJ>!=H[o&3JͧG*Y*[ I3JLJn ҢB!>͕GA~o&ÿALJͯX.W!3J#3J3J#3J0BP@ACBH@.@B)D>y[zGy[t[Oy[t[NBy[Mt[y[N=C!t[zGwTB@TBA hCPY!BzGJ CBC,AڠC͕GLJt[zGt[MÑC͕G1]!YͪGM[CCͅGBK(DMLJ+"n[C:-W0!G#C"n[ͧG*n[}-D?|g}oC"n[#3JͅGBK(DO!"n[eS`E"[zGM*["[N=4DŷH҆D.#HʻDDD>'IҨDwE.zʨD*[DM IG"[*[~ #zD¹D>;HYDHIJ͸GsHèDHIJ{ _D:-ʮ:DḦ́=HͧGʹH*[0RX"[ÆD*[SD*["[!9eH)EKE*[z~+2E! GKEs#r#^#V#!G## KEKKE##GͶF.FE#H>;HʝEGE!GE> OGUE##IJeHһ.##N#FxEK+ HðEH#HHG =EPE"[PE"["[>;H?SF_F![eHF».*[+"[9H>F_F![eH:F»."[H*[ I.#"["[7*[*[>=*[*[*[IJʻ."["["[+H\ ʘF!Y.:~F~?ڤF###"Y#H \!Y[GGhG?OͶF.>$;HyOFy@O:~F+H 7ȸȹF#H G+HFF/.ʵ.HxA*[#*UT]mH|=G~#*G##!G"["[KEq###>2Y7#HA[?rG#H0:?#"Y!B~+ |G*[ T]ͅGBK͸GzG<2Y!Y*[ "[zG*[G"[*Y*Y"Y"Y*YG"YvH!YeHG![eH0*[+"[.,H+HH)+H.+H+"Y*Y~# .H"Y>,+H+"Y7 HH UH"~G .DM#UH#z+{~#fop#zvH#H+H[GڔHhG+H"Y"$*["[*["[*["[*["[!#"[#H!Y2S"Y!YÕGH>""H;H*Y"[G~#I .H"Y*[:Y =:Y0.}o|gW>;HIF.Gڵ.PEH͸G6IwEIʋI͕G͸Gr+s+6̈́=ͪG+H,“II9HIUI> EwI).I>);HI͸Gr+s+w!9͸GxYS w +¾Ir+61yY>;H6w9I0."Y"Y*Y"Y*Y*Y*["[*[Ny7#"[eH+?*[*[ڻ."[ JI..\[͘K> !Y2SÕG̈́=ͅGAͧG~.O #~Jڻ. J~Jڻ. hJz̈́=ͅGBK(D,AҟJLJ{Z*[ͅG͕GJOͅGAͅG͕GLJͅGBKJMͅG DMNͧGLJ{%`C"[bk)))*[_zWYzGA,Ax5Kz».{Y:KX:K|».}gû.By K!T)FK @K#H"[.T?Jڻ..TZK*[+"Y>;H7#^#V#"Y#H *[LKک.I.ɯͽKͽKͽKͽKͽK>0"[ K*[BѰ>0:yY G KK:-x*Y"Y~MY!Z6 ;MOͮMO2Y2YK )L6 !ZY~# L!LʠLʩLLLL_LLʶL MM@M L:Y{L {Lw#6 GDM ͮMOZ!Yw# L6 0. LsL͠L sLìLK LDMºLsLGL L%DML:-G:YL+6 :YDM DMDM:Y<2YDM>DM!ZY#~ "M@DMlM:[K*[SHK:yY \M ;M*[4;M*[6;M DM DM:- 2Y:Y½::02[:[&/é:>#;H>ڪMIJ9H{2yY!zY:yY*U"[~!YòM M![>6+=M![cN>![ NON>w MN[ON N+=M[͇N[ͲNG~@ZNTN>ZN0.G怰[zGO+wgN+w!~ʝNP+>æN>'w+ >¦N !T]bNշ'w+N![w+ N[ Oo`iN/< OzGV[+~ O![1OO+ *O=O#T]cN~P+ԖNF+O7>'+ UOOx'w+ ?qOT]#w…O#~žO O¦O xwO6¼OcN+|G'+OO|G>~͝NxNNpbN. ! "[![w+P6![cN![w+(P w+0P6[![͕PG![͕P*[w#"[ ?P͇NͲNgoAʓPP>PNNW{怲 7>'+ŸPژPNy"[G!i[6":[P+60.=P+6."["["[P+6 P"[+6!*[~cQAQ0Q QH RQQARQ#Q+~.-Q,-Q"JQ1Q!h[:[#uQ:[Q~0Q6 +uQ:[#Q#6"+~"[.®Q+~ ʩQ!®Q##60îQ>0Q*[~>-Q*[/G"Q>0QQ:[@Q![5Q6>,Q*[+W~!."[r*[#W~"R"[rz5cQ-Q>W>0x=_*[~+R0>2[>2[:[IʻR#ʋRER:[ͺP:[ dR~>+Q>$Q*[:[#~R#~ vR+T]"ÂR!"[~ʻRIRG+~®R~ʠRxARJMRJ.2[:[<ͺP>"2h[SR~2[RAw:[ͺP*[~.R#6E#:[+ SA S-/"SR2[2[2[>2[+[S[SVS-\S>2["[>+6=aS"["[.TڛS.€S.TډS7![5.TʂSSESS.TʘSکS.ʆSÔSDT![4.TکS.SES![@S![*[w*[:[G.TSDTSESS.TT+ T T- T€S2[.TҀS_.T!TJ.T:[{S/%;HgU͆JaX H>;H>&;HUHʵU͑Ẍ́=ͧG!Y~•U6~͘W#—U9HjU͑X>nWRD|##U͑X>͘W|͘WU͑X>͘W}͘W*["[zʤU~͘W+U͑XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{ Hg4> .2H[PE###KEPE~.~!H[w4W)KEKEr:H[w9H3JwE.êG#HIJͯX?X~w/X*[~ wWw~#PE NW++~G nW q*[~怰?X PEKEW͛W/X*[W~~O#PEPEPEeHڻ.ʻ.PE!X" yWzW{_>" !." .!." .6 #6 #=$X*[~@~@wW~@~G~p WͯX?XTX*[~ eHʄXx„X{_eH?XKEw*[ ##F#~#N+ W\eHһ.z».{». KY~"[ͯX6X!."- !." COPYRIGHT NORTH STAR COMPUTERS, INC., 1978!! !GGZY= ZZ(.7.@@@@@@@@ yYyY߂Z_Z`B@BYE 11534,80 4) Z 11534,80 THEN GOTO 60 RINT1" TO MENU " UBTOTALS " .." ,X F2,M1BYE 11534,80 4) u! 64""Ya``##BYYZh[h[Y Y__!BzG],A!BzG],Aڻ.͕G͏G]M͏GBNͅGAͅG͕GͅGt[zGy[zGy[Ay[Nt[ ]My[t[Ny[N͏G]MͅGNͧGt[zGt[Mt[y[!!]>)Dt[~[!0]>)Dy[M~[N~[OBNBOͅG~wLJ{\/<{\]OM\<wPbCseQA)%FI=1b'vA$8C 2BDCA<]BOʻ..>@BK],A\]=ʻ.4t[zGBNBNt[BNt[Ot[zGt[M>y[!^)D>~[!^)Dy[M~[O]Nt[Mo&3J͏G]NͅGNçGdB1b'v@@)h1cIAg5`iBABK^N2[͕G͏G^O͏GBNͅGAͅG͕GLJ{d^:[2[ͅGt[zGy[zGy[Ay[Nt[^My[t[Ny[N͏G_MͅGNͧG͕G͏GM͏Gt[!_>)DͅGt[Mt[Mt[NͧG:[wpycA1AY&A1AAY&SX=ffW3Q>t&0;A@_!Bt[zGt[O!t[zGt[zGt[M> t[y[!_)Dy[Mz_y[ t_^N!y[_~ʉ_wzG@333#@'YE@w&g?D5u3"'C?q@IT>  R11534)  R  `dB),C$20),G$20),Q$20) 2 CLEAR EEN < R10592)\R10592) A 10639,00 F #0\ #1 P MENU FOLLOWS 5Z "* * * * * * * Game Site Info * * * * * * *" d +n "Select (1) - Normal Maintenance" +x "  THIS IS JOB MENU  Revised 42784  8206,176 " 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   M10535) 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 unting Service   gJuly 13, 1983 5BSO. MIAMI AUTO TRUCK RUSTPROOF13315 SW 88 AVE THIS IS JOB NEWDAY  Revised 42784  ( A$30),T$30) 2 CLEAR EEN < M10535) 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 M10535) '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  8206,128 " 27),"M", # 1,12 )( A$30),B$30),C$30),D$30),N$30) $2 SET PAGE COUNTER FIRST PAGE < CLEAR EEN F M10535) 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 ( 1,12 - 8206,176 2 < EGORY DIVIDER F X1 30\ "-",\ X\\ P BOTM DIVIDER Z X1 80\ "-",\ X\\ 8 AVE. oMIAMI FL. 33176 pJuly 10, 1983 oSO. MIAMI 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 M10535) P 8206,128 U 27),"M", 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!"  8206,176  76  8206,176  T2T3)T4T5T6) "BALANCED!"  , 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 M10535) 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"  M10535)  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 M10535) ^ 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  M10535)  #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  M10535) 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$"MIKE" "INCORRECT PASSWORD" < M$"MIKE" "MENU" F #0 P #0,"TXNFILE" Z X0 d #0,X,X,X,M$,X,X,X,X,X,R$ n x POST CHECKS  M10535)  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  M10535) * "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  8206,128 # 27),"M", ( 1,12 2 ENSI ARRAYS < A$30)\ R$15) F N$30) P T$12) Z P1\L50 d CLEAR EEN n M10535) 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 8206,176 6 @ 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  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 2,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  8206,128 # 27),"M", ( ENSI ARRAYS 2 N$30) < P1\L50 F S P M10535) 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."   8206,176 , "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 @APAD100   " 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 M10535) 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$"ZAPPO" 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 M10535) 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  M10535) 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$"MIKE" "INCORRECT PASSWORD" < M$"MIKE" 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  M10535) * "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 The Wireless Works 4150 Pembrook Place Suite 218 Austintown, Ohio 44515 D$EG 4/ 27/ 84 D$EG 4/ 27/ 84 D$EGApril 27, 1984 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 "j2120//> ڣ0Oͻ/"2ͻ/"2ͻ/"2}Ć0:->22ͻ/"2*2*2a-͆0ʻ0͌0һ0/ n- a-0//> -22͆0-0/0:2Dʣ-S¯0:222"2ͻ/"2ͻ/"2:2-)*2:2-)zک0-{ک0Ö.1/0ã-2/0U."222!0:2 0"2*j2~ 5.,5. 5.#"j2.͆0-)1/0:2DU.S¯0:222*2:2g.):2Ov.#|g}o"2*2Җ.#ڵ0͆0ʵ0͌0ҵ0*2*2Ͷ/*2Ͷ/*2}G:2怰oͶ/*2Ͷ/ *2*2DM*2.1/r0( "2"2! > .y:2O2* "2!u/" *2" *2" :2O:2J/yJ/<J/=!2=>/6 #C/*22" O*2 O*2 }O|G.*2"  *2/}<:2/!2=ʪ/â/6 #zª//s#r#^#V#*j2~ /#"j2*j2~"j2 #/"G~0/*j2~ /0!2"j2}o|g!2͂00@0&0@~0.__9090E0~00+ 0wG~0  ~0# 00*j2~#"j2 Z0000ɯ ~0 ~0  : yW:4 “0>FDT10k101010?20101r0/.[20 FROM FILE: "TO FILE: "EXISTING FILE. WRITE IN SINGLE(S) OR DOUBLE(D) DENSITY? "NEW FILE. SINGLE(S) OR DOUBLE(D) DENSITY? "SOURCE FILE NOT FOUND."DESTINATION FILE TOO SMALL."ILLEGAL DENSITY SPECIFICATION."NEW FILE WILL NOT FIT."ERROR OCCURRED."FILE DIRECTORY FULL."COPY COMPLETED."EXISTING FILE. PRESS RETURN TO CONTINUE."NEW FILE. PRESS RETURN TO CONTINUE."DOUBLE SIDED DRIVE REQUIRED"CONTROL-C STOP"