MENU  NEWDAY  NEWCHARTK INCOME1  TXNSYTD : BALANCE %  CHARTFIX2  TXNS = PRNTTXNSL PRNTCOA S RESETCOAY TXNFILE a CHARTS 2 MASTER )  CLIENT 3  THIS IS JOB MENU  Revised 61983  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   2,27\2,69 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  SET LOWER UPPER LIMITS GET FIXED ASSETS  L250\U278   * " NET FIXED ASSETS",55),%10F2,S1  T2S1\S10    " << OTHER ASSETS >>" 2  SET LOWER UPPER LIMITS GEB  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 NEWDAY  Revised 061983  ( A$30),T$30) 2 CLEAR EEN < 2,27\2,69 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  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 FILE"  $ MASTER GET DAYS DATE  #2,"MASTER"  R5  WR1)42  #2 %W,X,Y,T$  #2  # UPDATE THE CHART OF ACCOUNTS  RR2  #1 %R1)57,N,N$  N," ",N$," updated"  #1,A,B, & A CHECK UPDAT THIS IS JOB INCOME1  Revised 071183  " 8206,128 # 1,12 )( A$30),B$30),C$30),D$30),N$30) $2 SET PAGE COUNTER FIRST PAGE < CLEAR EEN F 2,27\2,69 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)  A0 B0   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\\ =kACCOUNTS PAYABLE MIA Ek13315 SW 88 AVE. lMIAMI FL. 33176 lJuly 19, 1983 }lSO. MIAMI AUTO GO P OF M  2,12   EGORY DIVIDER  X1 30\ "*",\ X\\  BOTM DIVIDER  X1 80\ "*",\ X\\ lAdvertising & Sales Promoti Kk @A ZAPPO  1983 6 20AapCC 1983 6 20iCiC"e`ÂVCPA0CC 1983 6 20`R'#0wCEwBBapCC June 20, CC"`ÃCEBC0C MARYS DOLLDBAhDDAh@EwB0Cm A`RAmA m nn!n THIS IS JOB BALANCE  Revised 061983  )( A$30),B$30),C$30),D$30),N$30) $2 SET PAGE COUNTER FIRST PAGE < CLEAR EEN F 2,27\2,69 P U 8206,128 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  B0   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 AND STOCKHOLDERS' EQUITY"  & " << 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 $ &. " << STOCKHOLDERS EQUITY >>" 88 SET LOWER UPPER LIMITS GET SCKHOLDERS EQUITY B L500\U589 L  3V " TOTAL STOCKHOLDERS EQUITY",55),%10F2,S1 ` T6S1\S10 j \ D~ "TOTAL LIABILITY & STOCKHOLDERS' EQUITY",65),%10F2,T4T5T6 / "======================================"  STATEMENTS  1 T1T2T3)T4T5T6) "OUT OF BALANCE" , T1T2T3)T4T5T6) "BALANCED!"  8206,176  hhhijDijijkkjqjjyj END OF FILE j13315 SW 88 AVE. kMIAMI FL. 33176 Income Other Income (d T1R1S1\T2R2S2\T3R3S3\T4R4S4 n \ x "NET PROFIT (LOSS)",  35), # T10 "(",%8F2,T1),")",  T10 %8F2,T1,  65), # T30 "(",%8F2,T3),")",  T30 %8F2,T3  BOTM DIVIDER    GO P OF M  1,12   EGORY DIVIDER  X1 30\ "*",\ X\\  BOTM DIVIDER  X1 80\ "*",\ X\\  l101 SILVER STREET  THIS IS JOB CHARTFIX  Revised 061983  ( ENSI ARRAYS 2 N$30) < S F 2,27\2,69 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"  2,27\2,69  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 2,27\ R15 2,69 ^ 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  2,27\2,69  #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.  THIS IS JOB TXNS  Revised 061983 , 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  2,27\2,69 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$"ZAPPO" "INCORRECT PASSWORD" < M$"ZAPPO" F #0 P #0,"TXNFILE" Z X0 d #0,X,X,X,M$,X,X,X,X,X,R$ n x POST CHECKS  2,27\2,69  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  2,27\2,69 * "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     THIS IS JOB PRNTTXNS  Revised 071083  # 8206,128 ( 1,12 2 ENSI ARRAYS < A$30)\ R$15) F N$30) P T$12) Z P1\L50 d CLEAR EEN n 2,27\2,69 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 : ) 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  THIS IS JOB PRNTCOA  Revised 061983  # 8206,128 ( ENSI ARRAYS 2 N$30) < P1\L50 F S P 4) 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  13),"+", . 15),C,20),%8F2,Q1,38),%8F2,A1Q1,  50),%8F2,A1,65),T$   13),"-", - 15),D,20),%8F2,Q1,38),%8F2,AQ1,  50),%8F2,A,65),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 061983 = RINE RESET THE $$$ BUCKETS IN THE CHART OF ACCOUNTS ( 2 ENSI ARRAYS < N$30) F CLEAR THE EEN P 2,27\2,69 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 FZAPPONONE C 8/ 20/ 83%D%D%D%D%DNONE C 8/ 20/ 83PAPA%DNO C 8/ 20/ 83PPPA NO REMARKS C 8/ 20/ 83%B%B%B%B%B NOWAY JOSE' C 8/ 20/ 83%%%BNOpC 8/ 25/ 834B4B4B4B4BZAPC C 2/ 28/ 83 UX@E)PE"wPCxDE  C 2/ 28/ 83!@Ñ@WD 3tE(E!@CxD0C C 2/ 28/ 830CXfPC C E(v0E0CxDC C 2/ 28/ 83EC8DFD$@E'9PEECyDC C 2/ 28/ 83GD@5DXPE'X`E$8CyDpC C 2/ 28/ 833T@C EgE'$F E3T@CyDPC C 2/ 28/ 83Ap@5DF`E'IpE PCyDC C 2/ 28/ 830CPD`E&sIpE0CyDC C 2/ 28/ 83B$3C`E&eIpEByDpC C 2/ 28/ 83XSCCE E&@QE$`CyDPC C 2/ 28/ 83&)AuQDgG@E&$PEa`CyD0C C 2/ 28/ 83tpBh4C`@E&BPEtpBy DC C 2/ 28/ 83c9B"CSfPE&`Ec9ByDC C 2/ 28/ 83B"CRE& YEByDPC C 2/ 28/ 833BeDC!E&cE`ByDPC C 2/ 28/ 83#CE`C2E%@E#CyBpC C 2/ 28/ 83FB('C(7E%EFByDpC C 2/ 28/ 836Dx`E0E$Pr EPxDyDPC C 2/ 28/ 83S5PCIqD"aPE#`Eph`CyD0C C 2/ 28/ 83G%CfCu6PE#2x`EG%CyDPC C 2/ 28/ 83DuPEHRYpE(P "a@CU@EyD0C C 2/ 28/ 83SCrtC(P (I@XBy DC C 2/ 28/ 83$0CPC) Rep$0Cy!DpC C 2/ 28/ 83BhC)'0 S By"D0C C 2/ 28/ 83%0D'HD1 w0"R5 Dy"D@C C 2/ 28/ 83 f0C"pC10C`"sP f0Cy#D@C C 2/ 28/ 83)pCXUC1Fs0"1 )pCy$DPC C 2/ 28/ 83DuPEHbYpE1Vs0"1 Cy%DC C 2/ 28/ 83Bh0C1Xb0# By'DC C 2/ 28/ 83CGC1ub0# Cy)DpC C 2/ 28/ 83"%"DE2Sp#G`(@Cy0DPC C 2/ 28/ 83D6pEHfE2"`#e Cy1D@P C 2/ 28/ 83u#"4%RhuDy2DC C 2/ 28/ 833DHFrD5#A0&e 3Dy3D@C C 2/ 28/ 83gC&AD5R'3gCy4DpC C 2/ 28/ 832P"D UE6(5`%Dy5DPC C 2/ 28/ 83DFpEHfE7(E`Cy8DPC C 2/ 28/ 83DEI&0E786P(@54@CyADpC C 2/ 28/ 836E&DI@E7w) D9P@CyBDPC C 2/ 28/ 83EEIPp0E8U)E$iC)CDPC C 2/ 28/ 83E&a0EIpEPE8"1)du CyDDPC C 2/ 28/ 83EAEI0E86v)y4ECyGDC C 2/ 28/ 83`CPD8fv0 40CAC C 2/ 28/ 83YrB"! C8rt02YrBPC 2/ 28/ 83EA'EI0EEA'EI0E APC 2/ 28/ 83XqDbDCU@EPC 2/ 28/ 83"%Dg2gD"%Dg2gDCU@C0C 2/ 28/ 83%6D'23D%6D'23DB0C 2/ 28/ 83UPCts0CDPC 2/ 28/ 83EPEP(fpEEPEP(fpECU@EPC 2/ 28/ 83"%Dg2gDCU@E C 2/ 28/ 83H&YD@EH&YD@ECU@EPC 2/ 28/ 83XqDbDCU@CPC 2/ 28/ 83"%Dg2gD"%Dg2gDCU@C C 2/ 28/ 83CDR`ECU@C C 2/ 28/ 83cvD`EcvD`ED C 2/ 28/ 83cV DEBC 2/ 28/ 83uuD'IEuuD'IEuuD`C 2/ 28/ 83PCADPCADPC@P 2/ 28/ 835`C4D VDC 2/ 28/ 83CDCCDCC C 2/ 28/ 83bF DEC C 2/ 28/ 83T0C)dD`wDC 2/ 28/ 83"BTFD"BTFD"d"D`  2/ 28/ 83(pEg3pE"d"DPC 2/ 28/ 83"%Dg0gD AWP 2/ 28/ 83&$`CUeD&$`C83)D)D7g`0aW`7Cx0DC C 7/ 9/ 83BB7w0cg Bx1DC C 7/ 9/ 83bCbC7D`0g4`6uBx2DPC C 7/ 9/ 83)BD)BD7`0it`$Bx3DC C 7/ 9/ 83`C`C8&`0t`0Cx4DC C 7/ 9/ 838)@C8)@C8(14Bx5DC C 7/ 9/ 83G%BG%B82P1pPG%Bx6D0C C 7/ 9/ 83CC86P1 pP@Bx7D0C C 7/ 9/ 83&@C&@C8Q P1$P@Cx9D0C C 7/ 9/ 83@C@C8e`P18PP@Cx@D0C C 7/ 9/ 83SgCSgC8xGP1Q7PCxADC C 7/ 9/ 83 C C8t 1Yd łgBAC C 7/ 9/ 83$C$C8b1gRxBxGDE  C 7/ 9/ 83d ÓYD9P1P!TpCxHDC C 7/ 9/ 83fX#EfX#E9U2($8CxIDC C 7/ 9/ 83gB`EgB`E@9`3t`ńgCxPDC C 7/ 9/ 83 C C@I`3"t`CxQDpC C 7/ 9/ 83HSDHSD@g!@3@@6CxRDPC C 7/ 9/ 830PiD0PiD@x3PPCxSDPC C 7/ 9/ 835rPC5rPC@p3cpCxTD@C C 7/ 9/ 83B& CB& CA 3uw iPCxUD0C C 7/ 9/ 83`C`CA 3 rBxVDpC C 7/ 9/ 83H`CH`CAP3qPgCBxXDpC C 7/ 9/ 83RDRDAW04)0@%CxYDPC C 7/ 9/ 8331D31DA#P4UP% CxaDpC C 7/ 9/ 83u%Du%DD$6#DxbDC C 7/ 9/ 83ph Cph CD8"`7`$`CxdD@C C 7/ 9/ 83`V@C`V@CDTap7'Qp9CxdDC C 7/ 9/ 83EaDEaDHrQpAEApAyDxeDC C 7/ 9/ 83%bD%bDI&pAwp1uCxfDPC C 7/ 9/ 837D7DID2B"@@CxgDC C 7/ 9/ 83BBIE2B"BxhDpC C 7/ 9/ 83xDxDIr BE '`CxiDPC C 7/ 9/ 838u5D8u5DI Bc %CCC C 7/ 9/ 83CCP B %CxqDPC C 7/ 9/ 839%D9%DP B 9BxrD0C C 7/ 9/ 83D DQ C DxsDC C 7/ 9/ 83#PC#PCQ$0pC pQEBxuDC C 7/ 9/ 837hD7hDR7a0EQ03DxvD@P C 7/ 9/ 83HA1xTFs3DxxD@C C 7/ 9/ 83pDpDTQGTAŀP CxyD`C C 7/ 9/ 83!hC!hCTpGX`ABxDPC C 7/ 9/ 83@RD@RDTF`Gr6`v`CxDC C 7/ 9/ 83!IPC!IPCU F`G6`CxDC C 7/ 9/ 833C3CUVGF BxDC C 7/ 9/ 83#B#BU@G@#BxDPC C 7/ 9/ 83ADADU't@Hd@CxDpC C 7/ 9/ 831D1DUg5H@%9a@CxDPC C 7/ 9/ 83D8BDD8BDUHe$uCxDC C 7/ 9/ 83gvA`EgvA`EV%`HP3PCxDpC C 7/ 9/ 831D1DW'`PP DAC C 7/ 9/ 83HDHDWRP%$PC`C@P 7/ 9/ 833$D3$DCQxDP)D`C C 7/ 9/ 833$D3$Dt6@fx&@S%PEwDC C 7/ 9/ 83"9D"9D(dWdeRPwDC C 7/ 9/ 83(AD(ADeRPC`C@P 7/ 9/ 83P)P)HA1xP)`C C 7/ 9/ 83!V$!V$sHfDa`ES%P`C@P 7/ 9/ 83 "P "PCQxDP)DC C 7/ 9/ 833C3CS%PEwHDC C 7/ 9/ 830C0C CxDpC C 7/ 9/ 83CCa8fWDpxDpC C 7/ 9/ 83#gC#gCpepADpBx#D0C C 7/ 9/ 83 D%DY`pADPCx$DpC C 7/ 9/ 83 1F 1F9Yg$Y'Fx$DpC C 7/ 9/ 831D1DY`pAD'x$DpC C 7/ 9/ 83R`ER`E((TDBFD'DxcDC C 7/ 9/ 83(%D(%D(38D7bDH@AxdDC C 7/ 9/ 83A0A0APfbFB#7bFAyxdDC C 7/ 9/ 83A0Q'A0Q'AP$FB"FAyBxdDC C 7/ 9/ 83HHsDHHsD(uCDAyFxdDC C 7/ 9/ 83f0Cf0CDtDAy`C`C 7/ 10/ 833$3$!V$!V$ "PE`C`C 7/ 10/ 833$D3$D3$3$&fHD@P@P 7/ 10/ 83FR8)8CQxDHAD@P@P 7/ 10/ 83P)DfDFR8)8Ė2CC 7/ 10/ 833C3C333CCC 7/ 10/ 83PEPEPPPExGD0C C 7/ 10/ 83D5pCD5pCWxD(xD`PCpCpC 7/ 10/ 83RERER`ER`E ?CpC 7/ 10/ 83(D(DFPEFPEc@CC 7/ 10/ 83(D(D#B#B0?C C 7/ 10/ 83)PD)PDWD(Db@ & RINE THE CHART OF ACCOUNTS   ENSI ARRAYS ( N$30) 2 P1\L50 < S F 2,27\2,69 P T0\R0 Z THE HEADER d L49 !n #1,"MASTER"\ #2,"TXNFILE" x 2)0  #2,N,T$,A1,B1,A,B,Q1  N0 x TT1  R15 R0  N," ",T$,A1,B1,A,B,Q1 LL1  L49 x #2 3 \ "There are ",T," Transactions in the file"   HEADERS  P OF M   1,12 2 "TRANSACTION LISTING ",70),"Page ",P  " PP1 , L0 6 b  A Ab A 0C MARYS DOLL@C@C@@EB0C MARYS DOLL@C@C@@EB 0C MARYS DOLLb@Cb@C@@EBF2,B  AAQ1\BBQ1  "AFTER ", *& N," ",N$,45),%8F2,A,55),%8F2,B 0 : A1A\B1B )D GET ACCOUNT ADDRESS BE DECREASED N XD X * b WITH RECD NUMBER IN R l R2R v 4 "BEFORE ",N," ",N$,45),%8F2,A,55),%8F2,B  AAQ1\BBQ1 4 "AFTER CCASH IN BANK MIA  CCASH IN BANK DEL %%0CCASH IN SAVINGS CPETTY CASH @CACCOUNTS RECVBLE MIA PCACCOUNTS RECVBLE DEL pCEMPLOYEE LOAN RECVBLE CPREPAID INSURANCE CPREPAID INTEREST CINVENTORY %CFURNITURE & FIXTURES % ACCUM DEPR FURN AND FIXT %0CMACHINERY AND EQUIPMENT %@ACCUM DEPR EQUIPMENT %CAUTOS AND TRUCKS %ACCUM DEPR AUTOS & TRUCKS & CLEASEHOLD IMPROVEMENTS &0ACCUM DEPR LEASEHOLD ( CSECURITY DEPOSITS @PAYROLL TAXES PAYABLE @ SALES TAX PAYABLE @0ACCRUED INSURANCE @@ACCOUNTS PAYABLE MIA @PACCOUNTS PAYABLE DEL BPCAPITALIZED LEASES PAYABLE EPNOTES PAYABLE INSTALLMENT E`NOTES PAYABLE DEMAND HSTOCKHOLDER LOAN PAYABLE P COMMON STOCK UPAID IN CAPITAL XRETAINED EARNINGS YNET PROFIT (LOSS) eCASH RECEIPTS MIA eCASH RECEIPTS DEL e CASH RECEIPTS DIV 4 e0CASH RECEIPTS DIV 5 e@CASH RECEIPTS DIV 6 ePINCOME MISC fINTEREST INCOME pCPURCHASE PLANTS DIV 3 p CPURCHASE PLANTS DIV 4 p0CPURCHASE PLANTS DIV 5 p@CPURCHASE PLANTS DIV 6 pPCPURCHASE OTHER DIV 3 p`CPURCHASE OTHER DIV 4 ppCPURCHASE OTHER DIV 5 pCPURCHASE OTHER DIV 6 pCPURCHASE OTHER DIV 7 4B4BuCSUBCONTRACT MIA u CSUBCONTRACT DEL wCSUPPLIES NURSERY wPCDIRECT LABOR CADVERTISING 0CAUTO/GAS/TOLLS @CAUTO REPAIR/MAINT PCAUTO LEASING CBANK CHARGES CDESIGN DEPOSITS  CCASUAL LABOR `CCOMMUNICATIONS CDELIVERY/FREIGHT  CDEPRECIATION @CDONATIONS PCDRUGS/MEDICAL SUPPLIES `CDUES AND SUBSCRIPTIONS pCREPAIRS/MAINT EQUIPMENT CENTERTAINMENT  CEQUIPENT RENTALS @CINSURANCE CINTEREST  CEDUCATION COFFICE EXPENSE CPAYROLL PCPAYROLL TAXES CPROFESSIONAL FEES  CRENT `CREPAIRS AND MAINT  CSUPPLIES 0CPROPERTY TAXES @CTAXES AND LICENSES PCTRAVEL AND CONVENTION pCUTILITIES CMISC EXPENSE  CSECURITY  END OF FILE SINCLAIR LANDSCAPE NURSERY, IN7757 SW 112TH STREET MIAMI, FLORIDA 33156 D$EW0G 8/ 25/ 833D$EPpG 6 20D$EW0G 8/ 25/ 83 D$EPpGD$EW0GAugust 25, 19833 D$EPpGJune 20, 1983983  THIS IS JOB CLIENT  Revised 62283 7 L$30),N$30),O$30),B$30),C$30),A$30),D$30) ( 2 W35 '< L$"Anderson Accounting Service" F RODUCTI P Z 2,27\2,69 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  Anderson Accounting Service   b ME2" h M5 "BALANCE" r M6 "CHARTFIX" | M7 "TXNS"  M8 "PRNTTXNS"  M9 "PRNTCOA"  M10 "RESETCOA"  x bcbc=cdc   d %C `A  (2) to RE-ENTER ",M  M2 x  M1    & GO UPDATE THE CHART  THIS IS JOB TXNS  Revised 061983 , 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  2,27\2,69 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$"ZAPPO" "INCORRECT PASSWORD" < M$"ZAPPO" F #0 P #0,"TXNFILE" Z X0 d #0,X,X,X,M$,X,X,X,X,X,R$ n x POST CHECKS  2,27\2,69  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  2,27\2,69 * "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   83 mUNDO ITN  o SO. MIAMI AUTO TRUCK RUSTPROOF13315 SW 88 AVE. -m&$`C5m=mUeD CHART OF ACCOUNTS   ENSI THE ARRAYS ( A$30) 2 < CLEAR EEN F 2,27\2,69 '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 T FIXED GTH STRINGS #^ J1 30A$)\A$A$" "\ J h r Current Assets 100199) |  101,"CASH IN BANK MIA",1  102,"CASH IN BANK DEL",1  103,"CASH IN SAVINGS",1  109,"PETTY CASH",1 # 114,"ACCOUNTS RECVBLE MIA",1 # 115,"ACCOUNTS RECVBLE DEL",1 $ 117,"EMPLOYEE LOAN RECVBLE",1  118,"PREPAID INSURANCE",1  119,"PREPAID INTEREST",1  120,"INVENTORY",1   FIXED ASSETS  # 251,"FURNITURE & FIXTURES",1 ( 252,"ACCUM DEPR FURN AND FIXT",1 & 253,"MACHINERY AND EQUIPMENT",1 $& 254,"ACCUM DEPR EQUIPMENT",1 0 258,"AUTOS AND TRUCKS",1 ): 259,"ACCUM DEPR AUTOS & TRUCKS",1 %D 262,"LEASEHOLD IMPROVEMENTS",1 $N 263,"ACCUM DEPR LEASEHOLD",1 X b OTHER ASSETS l v 282,"SECURITY DEPOSITS",1   CURT LIABILITIES  % 401,"PAYROLL TAXES PAYABLE",1 ! 402,"SALES TAX PAYABLE",1 ! 403,"ACCRUED INSURANCE",1 $ 404,"ACCOUNTS PAYABLE MIA",1 $ 405,"ACCOUNTS PAYABLE DEL",1 * 425,"CAPITALIZED LEASES PAYABLE",1   LG TERM LIABILITIES  ) 455,"NOTES PAYABLE INSTALLMENT",1 $ 456,"NOTES PAYABLE DEMAND",1 (  480,"STOCKHOLDER LOAN PAYABLE",1   EQUITY * 4 502,"COMMON STOCK",1 > 550,"PAID IN CAPITAL",1 !H 580,"RETAINED EARNINGS",1 !R 590,"NET PROFIT (LOSS)",1 \ f SALES INCOME p !z 650,"CASH RECEIPTS MIA",1 ! 651,"CASH RECEIPTS DEL",1 # 652,"CASH RECEIPTS DIV 4",1 # 653,"CASH RECEIPTS DIV 5",1 # 654,"CASH RECEIPTS DIV 6",1  655,"INCOME MISC",1  660,"INTEREST INCOME",1   T OF SALES  $ 701,"PURCHASE PLANTS DIV 3",1 $ 702,"PURCHASE PLANTS DIV 4",1 $ 703,"PURCHASE PLANTS DIV 5",1 $ 704,"PURCHASE PLANTS DIV 6",1 $ 705,"PURCHASE OTHER DIV 3",1 $ 706,"PURCHASE OTHER DIV 4",1 $ 707,"PURCHASE OTHER DIV 5",1 $$ 708,"PURCHASE OTHER DIV 6",1 $. 709,"PURCHASE OTHER DIV 7",1 8 750,"SUBCONTRACT MIA",1 B 752,"SUBCONTRACT DEL",1 L 770,"SUPPLIES NURSERY",1 V 775,"DIRECT LABOR",1 ` j GENERAL ENSES t ~ 801,"ADVERTISING",1  803,"AUTO/GAS/TOLLS",1  804,"AUTO REPAIR/MAINT",1  805,"AUTO LEASING",1  808,"BANK CHARGES",1  810,"DESIGN DEPOSITS",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 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,A pCUTILITIES CMISC EXPENSE  CSECURITY  END OF FILE #B \" RATING",15),S$\ J1 L0\CZJ)  " ",VC),15),L$ C)\ J  . 9 \ " (The number must be between 2 and 10.)"\ h + " Is this correct (YES or NO)?"\ A$ $ B$A$))\ . \\\ (t9tssOo ttupJoToQuFptsuo`\o4`pBJtnPRICEFUEL ECONOMYSTYLE tn HONDA PRELUDEROLLS ROYCEMERCEDES