PCjs Machines

Home of the original IBM PC emulator for browsers.

Logo

PC-SIG Diskette Library (Disk #466)

[PCjs Machine "ibm5150"]

Waiting for machine "ibm5150" to load....

Information about “CPA LEDGER 1 OF 2 (ALSO 468)”

A menu-driven general ledger and financial statement program designed
for non-manufacturing businesses that offer products or services for
sale.

Start your books and maintain them: post transactions; prepare
unadjusted and post-closing trial balances, and income statements; print
a list of all postings for any period; search for previously-entered
transactions; and reconstruct specific GL accounts and add new ones.
CPA-LEDGER has plenty of muscle to record your daily transactions. Any
single general ledger entry can have up to 30 debits and 30 credits,
with total values of up to $999,999,999.99. A very powerful system.
Some knowledge of double-entry bookkeeping is necessary to operate this
package.

ACTDTL.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM ACTDTL.BAS
1010 CLEAR: ON ERROR GOTO 2560
1090 CLS: GOSUB 2470   'OPEN G/L FILE
1100 INPUT #3,F1: FOR I = 1 TO 4: INPUT #3,F2: NEXT I  'READ TO QTY BNK ACTS
1110 FOR I = 1 TO F2: INPUT #3,F1: NEXT I   'PASS BANK ACCT #S
1120 L1=1: INPUT #3,L2: INPUT #3,L3: INPUT #3,T1$ 'L2=SALES L3=LAST ACCT#
1130 L4=L2: L5=L3  'SAVE L2&O0L3 FOR RESTORE IF PRINT AGAIN
1140 CLS: LOCATE 10,1: PRINT"ENTER TODAY'S DATE. USE FORMAT MMDDYY. (I.E., JUNE 8, 1984 = 060884).";: GOSUB 2700: ROW=10: COLUMN=74: LENGTH=6: GOSUB 3180: I6$=I8$
1160 GOSUB 2420: IF F1 <> 0 OR LEN(I8$) < 6 THEN  GOTO 1140
1170 CLS: LOCATE 5,1
1180 PRINT"SELECT ONE OF THE FOLLOWING NUMBERS.  THE NUMBER THAT YOU SELECT WILL GOVERN"
1190 PRINT"WHICH GENERAL LEDGER ACCOUNTS ARE PRINTED FOR YOUR REVIEW.  FOR EACH GENERAL"
1200 PRINT"LEDGER ACCOUNT PRINTED, THE FOLLOWING INFORMATION WILL BE SHOWN - (1) ACCOUNT"
1210 PRINT"NUMBER, (2) BEGINNING BALANCE, (3) ENDING BALANCE, AND (4) THE DETAILS OF EACH"
1220 PRINT"TRANSACTION POSTED TO THAT GENERAL LEDGER ACCOUNT.  THE DETAILS WILL, FOR EACH"
1230 PRINT"TRANSACTION, INCLUDE THE TRANSACTION DATE, THE TRANSACTION EXPLANATION, THE"
1240 PRINT"POSTING REFERENCE, CHECK NUMBER (IF APPLICABLE), POSTING REFERENCE, AND THE"
1250 PRINT"TRANSACTION AMOUNT.  THE TOTAL VALUE OF ALL PRINTED TRANSACTIONS IS ALSO SHOWN.": PRINT
1260 PRINT"THE NUMBERS AND THEIR MEANINGS ARE SHOWN BELOW.": PRINT
1270 PRINT" 1. BALANCE SHEET ACCOUNTS ONLY, OR"
1280 PRINT" 2. INCOME STATEMENT ACCOUNTS ONLY, OR."
1290 PRINT" 3. BOTH BALANCE SHEET AND INCOME STATEMENT ACCOUNTS."
1300 LOCATE 20,1: PRINT"WHICH NUMBER DO YOU SELECT? (ENTER 1, OR 2, OR 3.)";: ROW=20: COLUMN=54: LENGTH=1: GOSUB 3180: I10$=I8$
1310 GOSUB 2700: X20$=I10$: GOSUB 2510
1320 IF F1 <> 0 OR VAL(I10$) < 1 OR VAL(I10$) > 3 THEN GOTO 1300
1330 CLS: LOCATE 5,1:  PRINT "SELECT ANOTHER NUMBER.  THE NUMBER THAT YOU SELECT WILL DETERMINE WHICH"
1340 PRINT"ADDITIONAL QUESTIONS ARE TO BE ASKED ABOUT THE TIME PERIOD THAT YOU SELECT.": PRINT
1350 PRINT" 1. A SPECIFIC TRANSACTION MONTH, SUCH AS MAY."
1360 PRINT" 2. A RANGE OF TRANSACTION MONTHS, SUCH AS FROM MAY TO SEPTEMBER."
1370 PRINT" 3. DISREGARD THE TRANSACTION DATE. (THE DATE WILL WILL IGNORED.)"
1380 LOCATE 12,1: PRINT"WHICH NUMBER DO YOU SELECT? (ENTER 1 OR 2 OR 3.)";: ROW=12: COLUMN=59: LENGTH=1: GOSUB 3180: I11$=I8$: GOSUB 2510
1390 IF F1 <> 0 OR VAL(I11$) < 1 OR VAL(I11$) > 3 THEN GOTO 1380
1400 IF I11$="1" THEN I12$="DURING A SPECIFIC TRANSACTION MONTH.": GOTO 1430
1410 IF I11$="2" THEN I12$="DURING A RANGE OF MONTHS.": GOTO 1430
1420 IF I11$="3" THEN M1=1: M2=12: FF2=1: M1$="ALL DATES": GOTO 1600
1430 LOCATE 14,1: PRINT"FOR NUMBER THAT YOU ENTERED IMMEDIATELY ABOVE DIRECTS CPA-LEDGER TO LIMIT THE"
1440 PRINT"PRINTOUT TO TRANSACTIONS THAT OCCURRED ";I12$;: PRINT
1450 IF I11$="2" THEN GOTO 1500
1460 LOCATE 17,1: PRINT"ENTER THE TRANSACTION MONTH. (USE FORMAT MM. I.E., JULY = 07).";: GOSUB 2700: ROW=17: COLUMN=67: LENGTH=2: GOSUB 3180: M1$=I8$  'M1$=BEG MONTH
1470 X20$=M1$: GOSUB 2510
1480 IF F1=0 AND VAL(M1$) > 0 AND VAL(M1$) < 13 AND LEN(M1$) > 1 THEN M1=VAL(M1$): M2=M1: GOTO 1600     'M2$=ENDING MONTH
1490 GOTO 1460
1500 LOCATE 17,1: PRINT"ENTER THE BEGINNING (LOW) MONTH.  (USE FORMAT MM. I.E., JULY = 07).";: ROW=17: COLUMN=70: LENGTH=2: GOSUB 3180: M1$=I8$  'M1$=BEG MONTH
1510 GOSUB 2510
1520 IF F1=0 AND VAL(M1$) > 0 AND VAL(M1$) < 13 AND LEN(M1$) > 1 THEN GOTO 1540
1530 GOTO 1500
1540 LOCATE 18,1: PRINT"ENTER THE ENDING (HIGH) MONTH. (USE FORMAT MM. I.E., OCTOBER = 10).";: ROW=18: COLUMN=70: LENGTH=2: GOSUB 3180: M2$=I8$  'M2$=END MONTH
1550 GOSUB 2510
1560 IF F1=0 AND VAL(M2$) > 0 AND VAL(M2$) < 13 AND LEN(M2$) > 1 THEN GOTO 1580
1570 GOTO 1540
1580 M1=VAL(M1$): M2=VAL(M2$): IF M1 < M2 THEN GOTO 1600
1590 LOCATE 18,1: PRINT SPACE$(80): GOTO 1500
1600 CLS: GOSUB 2540: GOSUB 2550: GOSUB 2900
1610 IF Z88=0 THEN GOSUB 2130: Z88=1
1620 'READ G/L FILE
1630 C1=L1-1: H6=0
1640 C6#=0#: C8#=0#: C9#=0#
1650 IF Z2=L2 THEN GOTO 2020         'PROCESSING COMPLETE L2=LAST REC
1660 GOSUB 2750       'READ G/L
1670 IF Z2=L2 AND I10$="1" THEN GOTO 2020
1680 IF W1$ <> "1" THEN GOTO 1650
1690 GOSUB 2710     'C3#=ACCT BAL
1700 IF I3#=0# AND I4#=0# AND I5#=0# AND I6#=0# THEN GOTO 1640 '0 BAL
1702 LOCATE 15,1: PRINT"CHECKING THIS GENERAL LEDGER ACCOUNT   ";C1;I3$
1704 LOCATE 17,1: PRINT"UPPER LIMIT OF ACCOUNTS TO BE CHECKED  ";L2
1705 LOCATE 18,1: PRINT" NOTE: INACTIVE ACCOUNTS ARE BYPASSED."
1710 IF C2=1 THEN CLOSE #2
1720 C2=1
1730 OPEN "GENJNL.FIL" FOR INPUT AS #2
1740 ' I7$ = TRANSACTION DATE
1750 ' I1  = ACCT. NBR.
1760 ' I2$ = D OR 2 FOR DEBIT - C OR 1 FOR CREDIT
1770 ' J1$ = POSTING REFERENCE
1780 ' F6$ = CHECK NUMBER OR 1 BLANK
1790 ' I2# = TRANSACTION AMOUNT
1800 ' F90$ = PAYEE IF CHECK
1810 ' F100$ = JV EXPLANATION
1820 'READ TRANSACTION FILE
1830 H5=0    'H5 SET TO 1 IF A XACTION IS PRINTED
1840 WHILE NOT EOF(2)
1850 INPUT #2,F1: IF F1 <> 0 THEN GOTO 1870
1860 INPUT #2,F100$,J1$,I7$: GOTO 1960
1870 I1=F1: INPUT #2,I2$,I2#,F6$,F90$
1880 IF I1 <> Z2 THEN GOTO 1960
1890 C5$=LEFT$(I7$,2): C5=VAL(C5$)    'C5=XACTION MONTH
1900 IF C5 > M2 THEN GOTO 1960
1910 IF I2$="C" OR I2$="1" THEN I2#=I2# * -1#
1920 IF C5 < M1 THEN C6#=C6# + I2#: GOTO 1960   'C6#=BEG BAL FOR XACTIONS
1930 GOSUB 2370   'SET SPACE FOR PRINT
1940 GOSUB 3060: H5=1: H6=1    'PRINT XACTION
1950 C8#=C8# + I2#    'C8#=VAL OF PRINTED XACTIONS
1960 WEND
1970 IF H5=0 THEN GOTO 1640
1980 C9#=C6#+C8# 'C9#=ACCT BAL C6#=VAL PRIOR XACTION
1990 C10#=C6#  'C6#= PRIOR XACTIONS C10#=BEG BAL
2000 GOSUB 2950  'PRINT TOTS
2010 GOTO 1640
2020 IF H6=1 THEN GOTO 2050
2030 CLS: LOCATE 9,1: PRINT"NO ENTRIES WERE POSTED FOR THE PERIOD THAT YOU SELECTED."
2040 PRINT"DO YOU WISH TO TRY AGAIN?": GOTO 2070
2050 CLS: LOCATE 9,1: PRINT"GENERAL LEDGER ACCOUNTS THAT MET YOUR SELECTION CRITERIA HAVE BEEN PRINTED."
2060 PRINT"DO YOU WISH TO PRINT ADDITIONAL GENERAL LEDGER ACCOUNTS?"
2070 GOSUB 2700: PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO'.";: ROW=11: COLUMN=40: LENGTH=1: GOSUB 3180
2080 IF I8$ = "Y" OR I8$="y" OR I8$ = "N" OR I8$="n" THEN GOTO 2100
2090 GOTO 2070
2100 IF I8$="Y" OR I8$="y" THEN H6=0: Z2=0: Z88=0: L1=1: L2=L4: L3=L5: FF2=0: CLS: LOCATE 10,32: PRINT "STAND BY.": P3=66-P3: GOSUB 2120: GOTO 1170
2110 GOTO 3390
2120 FOR L = 1 TO P3: LPRINT: NEXT L: RETURN
2130 P2=P2+1: P3=15
2140 FOR L = 1 TO 6
2150 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";P2: GOTO 2180
2160 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: IF L=5 THEN GOSUB 2330: LPRINT: GOTO 2180
2170 LPRINT
2180 NEXT L
2190 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
2200 T4$= "POSTINGS TO GENERAL LEDGER ACCOUNTS PERTAINING TO THE": FF1=LEN(T4$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1) T4$
2210 IF I10$="1" THEN T4$="BALANCE SHEET": GOTO 2240
2220 IF I10$="2" THEN T4$="INCOME STATEMENT": GOTO 2240
2230 T4$="BALANCE SHEET AND INCOME STATEMENT"
2240 FF1=LEN(T4$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1) T4$
2250 IF FF2=1 THEN LPRINT SPC(36) "ALL DATES": GOTO 2280
2260 IF I11$="1" THEN LPRINT SPC(35) "FOR MONTH ";M1$: GOTO 2280
2270 LPRINT SPC(29) "FOR MONTHS ";M1$;" THROUGH ";M2$
2280 LPRINT: LPRINT
2290 LPRINT "ACCT." SPC(40) "POSTING" SPC(4) "CHECK"
2300 LPRINT SPC(1) "NBR." SPC(3) "DATE" SPC(2) "TRANSACTION EXPLANATION" SPC(8) "REFERENCE" SPC(2) "NUMBER" SPC(10) "AMOUNT"
2310 LPRINT
2320 RETURN
2330 LPRINT LEFT$(I6$,2);"/";MID$(I6$,3,2);"/";RIGHT$(I6$,2);: RETURN
2340 P3=P3+1
2350 IF P3>55 THEN P3=66-P3: GOSUB 2120: GOSUB 2130
2360 RETURN
2370 IF I40# > 999999.99# THEN P1=1: FORMAT3$="###########,.##-": GOTO 2410
2380 IF I40# > 999.99# THEN P1=5: FORMAT3$="#######,.##-": GOTO 2410
2390 IF I40# > 0.99# THEN P1=10: FORMAT3$="###.##-": GOTO 2410
2400 IF I40# < 1# THEN P1=13: FORMAT3$=".##-": GOTO 2410
2410 RETURN
2420 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 2460
2430 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 2460
2440 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 2460
2450 F1=0
2460 RETURN
2470 OPEN "PASACT.FIL" FOR INPUT AS #3
2480 OPEN "R",1,"GENLEG.FIL",111
2490 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
2500 RETURN
2510 F1=0: FOR I = 1 TO LEN(X20$)
2520 IF MID$(X20$,I,1) < "0" OR MID$(X20$,I,1) > "9" THEN F1=1: I=LEN(X20$)
2530 NEXT I: RETURN
2540 LOCATE 10,32: PRINT"PLEASE STAND BY.": RETURN
2550 LOCATE 11,32: PRINT"SEARCHING FILE.": RETURN
2560 IF ERR=53 THEN GOTO 2590
2570 IF ERR=25 OR ERR=27 THEN GOTO 2660
2580 ON ERROR GOTO 0
2590 CLS: LOCATE 10,2
2600 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
2610 PRINT"TO THE DAILY MENU.": GOSUB 2620: GOTO 3390
2620 GOSUB 2700
2630 K$=INKEY$
2640 IF K$="" THEN GOTO 2630
2650 RETURN
2660 CLS: LOCATE 10,2
2670 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
2680 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 2700: GOSUB 2620
2690 CLS: RESUME
2700 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
2710 D1#=I3#+I5#  'D1#=SUM DR. - THIS PERIOD.
2720 D2#=(I4#+I6#) * -1#   'D2#=SUM CR. - THIS PERIOD.
2730 IF I4$="D" OR I4$= "1" THEN C3#=D1#+D2# ELSE C3#=D2#+D1#   'C3#=ACCT BAL
2740 RETURN
2750 C1=C1+1: GET 1,C1
2760 I1$=X1$  'ACCOUNT CLASSIFICATION
2770 I3$=X2$  'ACCOUNT TITLE
2780 Z1$=X3$  'LAST TRANS DATE
2790 W1$=X4$   'ACCT STATUS (0=INACTIVE,1=ACTIVE)
2800 Z2=CVS(X5$)  'ACCOUNT NUMBER
2810 I2=VAL(X7$)  'ACCT TYPE CODE
2820 I4$=X8$  'DR AND CR INDICATOR.D=DR, C=CR
2830 Z3$=X9$  'POSTING REF.
2840 I3#=CVD(Y1$)   'OPENING DEBIT
2850 I4#=CVD(Y2$)  'OPENING CREDIT
2860 I5#=CVD(Y3$)  'PERIOD DEBITS
2870 I6#=CVD(Y4$)  'PERIOD CREDITS
2880 RETURN
2890 ' COMING IN, L1=1: L2=SALES ACCT#: L3=LAST ACCT#
2900 IF I10$="1" THEN GOTO 2930  'B/S ONLY
2910 IF I10$="2" THEN L1=L2: L2=L3: GOTO 2930  'P/L ONLY
2920 L2=L3  'B/S AND P/L
2930 RETURN
2940 'PRINT TOTALS
2950 I40#=C8#: IF I40# < 0# THEN I40# =I40# * -1#  'C8#=PNTED XACTIONS
2960 GOSUB 2370
2970 LPRINT: LPRINT SPC(11) "VALUE OF ABOVE TRANSACTIONS" SPC(24) SPC(P1);: LPRINT USING FORMAT3$; C8#
2980 I40#=C10#: IF I40# < 0# THEN I40# = I40# * -1#
2990 GOSUB 2370
3000 LPRINT SPC(11) "BEGINNING BALANCE PRIOR TO ABOVE TRANSACTIONS" SPC(6) SPC(P1);: LPRINT USING FORMAT3$; C10#
3010 I40#=C9#: IF I40# < 0# THEN I40# = I40# * -1#
3020 GOSUB 2370
3030 LPRINT SPC(11) "ENDING BALANCE AFTER ABOVE TRANSACTIONS" SPC(12) SPC(P1);: LPRINT USING FORMAT3$;C9#
3040 LPRINT SPC(11) "ACCOUNT NAME (FOR ABOVE DATA) IS " SPC(3) I3$
3050 LPRINT: LPRINT: P3=P3+7: GOSUB 2350: RETURN
3060 LPRINT USING "####";I1;: LPRINT SPC(1);   'ACCT #
3070 LPRINT LEFT$(I7$,2) "/" MID$(I7$,3,2) "/" RIGHT$(I7$,2) SPC(1);   'DATE
3080 F1=LEN(F100$): F1=31-F1
3090 LPRINT F100$ SPC(F1);
3100 F1=LEN(J1$): F1=11-F1
3110 LPRINT J1$ SPC(F1);    'POSTING REF.
3120 F1=LEN(F6$): F1=6-F1
3130 IF F1=0 THEN LPRINT F6$: GOTO 3150
3140 LPRINT F6$ SPC(F1);    'CHECK #
3150 I40#=I2#: IF I40# < 0# THEN I40#=I40# * -1#
3160 GOSUB 2370
3170 LPRINT SPC(P1);: LPRINT USING FORMAT3$;I2#: GOSUB 2340: RETURN
3180 GOSUB 2700: I8$=""
3190 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
3200 LOCATE ROW,COLUMN
3210 PRINT I8$;
3220 POINTER = 1: A$=" "
3230 WHILE (ASC(A$) <> 13)
3240 A$ = INPUT$(1)
3250 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 3370
3260 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 3320
3270 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 3370
3280 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 3350
3290 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 3350
3300 IF (ASC(A$) <> 8) THEN GOTO 3340
3310 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
3320    MID$(I8$,POINTER-1,1) = CHR$(254)
3330    POINTER = POINTER -1
3340 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
3350 LOCATE ROW,COLUMN
3360 PRINT I8$
3370 WEND
3380 RETURN
3390 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END

APNDX-A.TXT

 
     
     
                                                                        97
     
     
                                APPENDIX A
     
           CPA-LEDGER AND THE INCOME STATEMENT'S COST OF GOODS SOLD      
     
     
     
     CPA-LEDGER  can  be used for businesses with merchandise inventory and 
     purchases (which need a Cost of  Goods  Sold  Section  in  the  Income 
     Statement)  and for service establishments which do not need a Cost of 
     Goods Sold section. 
     
     CPA-LEDGER senses which one is applicable but looking at the accounts 
     that you include in your general ledger.  
     
          .  If you (1) DO NOT  include  an  account  under  the  purchases 
             category  while  using Option 1 of the SETUP menu,  AND if you 
             (2) DO  NOT  identify  an  account  as  beginning  merchandise 
             inventory  while using Option 2 of the SETUP menu,  AND if you 
             (3) DO NOT add an account for beginning merchandise  inventory 
             later while using Option 8 of the DAILY menu,  CPA-LEDGER WILL 
             NOT PRINT the Cost of Goods Sold section when  preparing  your 
             Income  Statements.  Stated  another  way,  BOTH the beginning 
             inventory account AND the purchases related accounts  must  be 
             absent in order to bypass the Cost of Goods Section. 
     
          .  If  you (1) DO include an account under the purchases category 
             while using Option 1 of the SETUP  menu,  OR  if  you  (2)  DO 
             identify  an  account as beginning merchandise inventory while 
             using Option 2 of the SETUP menu,  OR if you  (3)  DO  add  an 
             account  for  beginning  merchandise  inventory later by using 
             Option 8 of the DAILY menu,  CPA-LEDGER WILL PRINT the Cost of 
             Goods  Sold  Section  of the Income Statement.  Stated another 
             way,  EITHER a beginning  inventory  account  OR  a  purchases 
             related  account  will cause the Cost of Goods Sold section to 
             be printed. 
          
     
     It is as simple as that.
     
        
     
     
                                                                        98
     
     
     



                   This page is included for future expansion.
     
     

































APNDX-B.TXT

 
                                                                        
          
                                                                        
                                                                        99
     
                                   APPENDIX B
               
                        USING CPA-LEDGER WITH FIXED DISK
     
     The differing versions of CPA-LEDGER are discussed beginning  on  page 
     99-3.  Information  on  ordering  CPA-LEDGER  from  Tronolone & Foster 
     begins there also. 

     This version of CPA-LEDGER is for fixed disk.  All of  the  CPA-LEDGER 
     internal commands and files use the DEFAULT DRIVE, which should ALWAYS 
     be C:. 
     
     Both  CPA-LEDGER and PC-DOS should be on fixed disk.  Also,  you might 
     want to establish a separate directory for CPA-LEDGER.  Refer to  your 
     IBM  Disk  Operating  System  reference  manual for details.  The same 
     reference manual covers other considerations that are beyond the scope 
     of this appendix, such as: 
     
          .  Fixed disk drive letters, and
     
          .  How to prepare your fixed disk.
     
     Major  advantages  of  fixed  disk  are speed the additional space for 
     recording your transactions.  A disadvantage is that only ONE  general 
     ledger  can be recorded for each directory.  If you have more than one 
     general ledger,  you  might  want  the  CPA-LEDGER  version  that  has 
     CPA-LEDGER  on  fixed  disk  and your general ledger on a floppy disk. 
     That way,  you can have as many general ledgers as you wish - one  for 
     each  separate  floppy.  To  order  other versions of CPA-LEDGER, see 
     page 99-3. 
     
     It is important to understand that CPA-LEDGER needs access to  BASICA. 
     You  can  make  BASICA available by either (1) copying BASICA onto the 
     same directory where CPA-LEDGER resides  or  by  (2)  using  the  PATH 
     command  for  the  access  (see  your  PC-DOS  reference manual for an 
     explanation of the PATH command).  If you have any questions, call Jim 
     at (703) 569-2254.  Or, write Jim at 8529 Greeley Blvd.,  Springfield, 
     Virginia 22152.  As mentioned in the cover page of this manual, always 
     call  Jim  after 7:30 PM weekdays or anytime during the weekend.  Call 
     back if the answering machine asks for your message. 
     
     A reminder - the  "Program  Disk"  contains  the  CPA-LEDGER  computer 
     programs  (files  with  an extension of ".BAS") and a practice general 
     ledger (files with an extension of  ".FIL)  is  on  the  Documentation 
     Disk.  Before  you start practicing,  copy the practice general ledger 
     onto a separate floppy to be used as  a  back-up.  Of  course,  ALWAYS 
     keep  a back-up of the CPA-LEDGER computer programs,  ALWAYS,  ALWAYS, 
     ALWAYS, ALWAYS!! 
     
      
          
                                                                       99-1
     
     
     Several chapters in the  User's  Manual  ask  you  to  practice  using 
     CPA-LEDGER,  which requires use of (1) the practice general ledger AND 
     (2) the CPA-LEDGER computer programs.  Copy both to your hard disk  by 
     following this procedure (while  the  default  drive  is  C:,  in  the 
     directory of your choice): 
     
        1.  Follow these procedures: (Before you proceed, you might want to 
            set up a  separate  directory  for  CPA-LEDGER.  See  your  DOS 
            User's Manual for the procedure.) 
         
           a.  To copy the computer programs  onto  hard  disk,  place  the 
               "Program Disk" in the A: drive and give this command: 
     
                    COPY A:*.BAS C:/V   (and press the return key)
     
           b.  To  copy  the practice general ledger onto hard disk,  place 
               the "Documentation Disk" (the one that  has  files  with  an 
               extension of .FIL) in the A: drive and give this command: 
     
                    COPY A:*.FIL C:/V   (and press the return key)
     
               There is no need to copy any part of the  User's  Manual  to 
               hard disk. 
     
           c.  Store  the  "Program Disk" and the "Documentation Disk" in a 
               safe place. 
     
     Once CPA-LEDGER has been loaded onto hard disk, the system is ready to 
     use.  Follow this procedure each time you wish to use CPA-LEDGER:
     
       1.  Boot to PC-DOS.
     
       2.  If necessary,  go to the directory where CPA-LEDGER  is  stored. 
           (That is,  you may have stored CPA-LEDGER in it's own directory. 
           If  so,  you  will  need  to  tell  PC-DOS,  either  through  an 
           AUTOEXEC.BAT file or  by  giving  appropriate  commands  at  the 
           keyboard,  that you wish to go to the directory where CPA-LEDGER 
           is stored.  AS MENTIONED ABOVE,  PLEASE REMEMBER THAT CPA-LEDGER 
           M-U-S-T  HAVE  ACCESS  TO BASICA.  See the 5th paragraph on page 
           99.) 
     
       3.  Type  BASICA  and  press the return key.  (If nothing happens at 
           this point,  you probably haven't followed the proper  procedure 
           for  allowing  PC-DOS to access BASICA.  Refer to your reference 
           manual for PC-DOS for the proper procedure.)
     
     
                                                                       99-2
     
     
                      
       4.  The next command depends on whether you  want  to  start  a  new 
           general  ledger  or  you  wish process files on a general ledger 
           that is already on fixed disk. 
     
             a.  To start a new general ledger, type:
     
                   RUN "SETUP"     (and press the Enter key)
     
             b.  To process a general ledger file that is already on  fixed 
                 disk, type: 
     
                   RUN "DAILY"     (and press the Enter key)
     
           After you press the Enter key,  CPA-LEDGER's menu  will  appear. 
           Select  the  option  of  your  choice.  Chapters  in this User's 
           Manual explain how to use each of the CPA-LEDGER options. 
     
     
        
                                                                      99-3
     
          
     Nine separate options of CPA-LEDGER are available.   They are:
     

                                                          When Ordering,
        Business Type           Processing Option         Ask For Option
     
      A. Corporations          #1. Hard Disk Only              A1
         Corporations          #2. Floppy Disk Only            A2
         Corporations          #3. Hard Disk & Floppy Disk     A3
     
      B. Partnerships          #1. Hard Disk Only              B1
         Partnerships          #2. Floppy Disk Only            B2
         Partnerships          #3. Hard Disk & Floppy Disk     B3
     
      C. Sole Proprietorships  #1. Hard Disk Only              C1
         Sole Proprietorships  #2. Floppy Disk Only            C2
         Sole Proprietorships  #3. Hard Disk & Floppy Disk     C3
     
     
     For EACH Business Type (A, B & C), CPA-LEDGER is used as follows:
     
      .  Hard Disk Only - Processing Option #1.

           Both  CPA-LEDGER  and the general ledger files are maintained on 
           hard disk.  You will need a separate directory for each separate 
           general  ledger,   with  CPA-LEDGER  in  each  directory. 
         
           Read Appendix C regarding  disk  capacities.  Always  make  sure 
           that  you  have  enough  room  available  on  your hard disk for 
           CPA-LEDGER  to  record   your   general   ledger   transactions.  
           Frequently  check  the  space  used  and  make  additional space 
           available  to  CPA-LEDGER  if  it  is  needed.  Please  do  this 
           frequently!  Don't  take  the  chance  of running out of room on 
           your hard disk! 
     
      .  Floppy Disk Only - Processing Option #2.
     
           CPA-LEDGER is on a diskette in the  B:  drive  and  the  general 
           ledger  files  are  recorded  on a diskette in the A:  drive.  A 
           SEPARATE floppy is used for each SEPARATE general  ledger.  This 
           allows you to secure your general ledger files when they are not 
           in use - a good security practice.  Also,  if you use CPA-LEDGER 
           for several clients,  you can have each client's general  ledger 
           on a separate floppy. 
     
           A potential problem,  however,  is that  your  (or  a  client's) 
           general ledger may become too large,  during the year,  to "fit" 
           on one floppy disk.  Please remember this - you can use ONLY one 
           
     
     
                                                                       99-4
     

           floppy disk for any one  general  ledger.  If  the  floppy  disk 
           becomes "full",  there is only ONE solution - call me and I will 
           send you the "hard disk only" version of CPA-LEDGER and you must 
           convert to  hard  disk  processing.  In  the  interim,  you  may 
           experience  delays  (waiting  on the disks from me) and you will 
           PROBABLY have to use the latest back-up  copy  of  your  general 
           ledger  files  when  you convert to hard disk operations,  which 
           will cause additional delay in bringing your system  up-to-date.  
           That means re-entering transactions since your last backup (your 
           "full"  floppy disk may be unusable).  In other words,  you have 
           plenty of headaches ahead if you order this version and  one  of 
           your  floppy  disks become full.  If you have ANY doubts,  DON'T 
           KEEP YOUR GENERAL LEDGER FILES ON FLOPPY DISK  -  USE  THE  HARD 
           DISK VERSION.  Appendix C gives you some GENERAL ideas about how 
           may transactions that may "fit" on a floppy disk.  But,  PLEASE, 
           use Appendix C to get a general idea of floppy  disk  capacities 
           and  NOT  for absolute specifics for your case.  As explained in 
           Appendix C,  YOUR floppy disk capacity depends on many  factors, 
           including  how  your  enter  your  transactions  and your mix of 
           transactions. 
     
      .  Hard Disk & Floppy Disk - Processing Option #3.
     
           CPA-LEDGER is kept on hard  disk  (in  one  directory)  and  the 
           general ledger files are recorded on a diskette in the A: drive.  
           A  separate  floppy  is  used  for each separate general ledger.  
           Like for Floppy Disk Only,  you will  be  able  to  secure  your 
           general ledger files when they are not in use. 
     
           However,  PLEASE read the last two paragraphs under "Floppy Disk 
           Only  -  Processing  Option  #2",  above  and  be  aware  of the 
           consequences if a floppy disk becomes  full.  Again,  please  DO 
           NOT  keep  your general ledger files on floppy disk if you think 
           there is any chance of the  floppy  becomming  full  during  the 
           accounting year. 
     
          
     The CPA-LEDGER differences for Business  Types  pertains  to  how  the 
     Owner's  Equity  section  of  the  Balance  Sheet  is maintained.  The 
     Business Type for corporations is the one in the public domain and you 
     should have (through practicing with the system) have an understanding 
     on  how  it  functions.   Details  on   the   partnership   and   sole 
     proprietorship Business Types are described below. 
     
     PARTNERSHIPS.

     Instead  of  asking  for  information  about  a  corporation's owners' 
     equity,  the names of  partner's  capital  and  drawing  accounts  are 
     requested.  This is done in SETUP menu option 1. 
     
     
     
                                                                       99-5
       

     The partnership Business Type gives you two options  for  distributing 
     profits  to  partners.  Either  (one,  not  both)  of  the options are 
     selected in SETUP menu Option 2.  They are: 

       .  Profits and losses are to be distributed to partners based  on  a 
          fixed percentage for profits and losses (the same percentage  for 
          BOTH profits and losses).  You can change the percentages anytime 
          that you wish.  You may also switch to the second option,  below, 
          any time that you wish.  However,  any  changes  pertain  to  the 
          entire  period  for  which you prepare financial statements.  For 
          example,  assume two partners with a  profit/loss  percentage  of 
          50/50.  In  June,  you  wish  to change the percentages to 40/60. 
          After the June changes, the 40/60 is effective since the first of 
          the year, just as if you had started the year with 40/60. 
      
     
       .  The second option is that  profits  and  losses  are  NOT  to  be 
          distributed,  automatically,  by  CPA-LEDGER.  Instead,  you  are 
          asked  to make the allocation after CPA-LEDGER (1) informs you of 
          the profit or  loss  amount  and  (2)  requests  a  distribution. 
          CPA-LEDGER asks for the distribution,  by partner name, each time 
          you use DAILY option 3.  SETUP menu option 2  asks  you  for  the 
          number  of  partners  in the partnership and each partner's name. 
          Your allocation of profit/loss amounts  permit  more  flexibility 
          than  is  provided  by  a  fixed percentage allocation.  Like the 
          fixed percentage allocation,  above,  any allocation pertains  to 
          the  entire  period  for  which you request financial statements.  
          The allocation process proceeds as follows,  after you ask for an 
          income statement: 
     
            .  First,   CPA-LEDGER  informs  you  of  the  profit/loss  for 
               year-to-date  and  asks  you  to  be  ready  to   make   the 
               distribution to partners. 
     
            .  Second,  CPA-LEDGER displays partner names (there is a limit 
               on  the  number  of  partners and that limit is 10) and asks 
               that you enter the profit/loss amount for each  partner,  in 
               turn. 
          
     
     
                                                                       99-6
     

            .  Provided that your allocation equals the profit/loss amount, 
               CPA-LEDGER  proceeds  to  prepare  the financial statements.  
               Otherwise, you are returned to the first step, above. 
     
     SOLE PROPRIETORSHIPS.
     
     Instead  of  asking  for  information  about  a  corporation's owners' 
     equity,  the names of proprietor's capital and  drawing  accounts  are 
     requested.  This is done in SETUP menu option 1. 
     
     
     
     
       
                                                                       99-7
     
     
     IF YOU WISH TO ORDER CPA-LEDGER FROM TRONOLONE & FOSTER, PC.
     

     Requested donations for expanded versions of CPA-LEDGER are identified 
     below.  As previously mentioned,  the system comes in  nine  different 
     version.  For  clarity,  we  subdivide  the versions into (1) Business 
     Types  (there  are  three  -  corporations,  partnerships,   and  sole 
     proprietorships)  and  Processing Options (there are three - Hard Disk 
     Only,  Floppy Disk Only,  and Hard Disk and  Floppy  Disk).  Requested 
     donations are: 
     

                              ------------ Requested Donation -------------
                                Your First      Your Second    Your Third
                                Processing       Processing    Processing
        Business Type             Option           Option        Option
     --------------------     ---------------    ----------     ---------
     Corporations                $45.00            $40.00        $40.00
     
     Partnerships                 45.00             40.00         40.00
     
     Sole Proprietorships         45.00             40.00         40.00
     
     
     
     For example,  assume that your first order is for two  Business  Types 
     (corporations  and  partnerships).  The  total  requested  donation is 
     $90.00.   Later,   you  order  the  second   Processing   Option   for 
     corporations.  The  requested donation is $40.00 for the second order. 
     Your donations are greatly appreciated.  They help defray the costs of 
     maintaining the system and for  providing  free  consultation  on  the 
     technical programming of CPA-LEDGER.  
     
     Please be sure to specify (1) the Business Type and (2) the Processing 
     Option that you wish for us to ship to you.  Also please  be  sure  to 
     show  your current address so that we may update our records.  For any 
     Business Type and Processing Option ordered from Tronolone  &  Foster, 
     you  may  obtain updated copies anytime that you wish.  Just send your 
     request to Tronolone & Foster (address on the cover page of the User's 
     Manual) along with $5 for postage and handling of each shipment. 
     














APNDX-C.TXT

         
                                                                     
                                                                       100 
     
                                    APPENDIX C
               
                         SOME COMMENTS ON DISK CAPACITIES
     
     
     
     Daily Option 1 will use your hard disk or floppy  disk  (depending  on 
     the  version  of  CPA-LEDGER that you have - see Appendix B) to record 
     your accounting entries.  The entries will be: 
     
          .  Posted to the general ledger,
     
          .  Added to a data base for monthly income statements, and 
     
          .  Added to a TRANSACTION FILE.
     
     The main purpose of this appendix is to ask you to  think  about  disk 
     capacities  BEFORE you start using CPA-LEDGER,  especially if you plan 
     for your data files to be on floppy disk.  PLEASE REMEMBER THIS  -  if 
     your  data  disk  becomes  full  during  the year,  there is plenty of 
     frustration (and possibly a ruined set of  accounting  records)  ahead 
     for  you.  See  Appendix B for a more detailed discussion.  If you use 
     floppy disk for your data files and if you think  there  is  a  REMOTE 
     chance  that  the  disk  may become full before year's end,  we HIGHLY 
     recommend that you use the CPA-LEDGER version that is  for  hard  disk 
     only.  Please,  carefully think about your disk capacities  BEFORE you 
     start using CPA-LEDGER, PLEASE. 
     
     These are the three major general ledger files.  (Several other  files 
     will be on the disk, but their space requirements are minimal.) In the 
     discussion that follows, we used a floppy disk for comparison purposes 
     -  a  floppy  that  was  double-sided,  double-density  and  that when 
     completely erased had 362,496 bytes available.  We  will  assume  that 
     your  general  ledger  and the data base for monthly income statements 
     will require no more than 60,000 bytes.  (The general ledger  and  the 
     monthly  data  base  in  your "Practice Disk" requires less than 60000 
     bytes.) 
     
     To  test  capacities,  we  used  the  floppy  disk  with 362,496 bytes 
     available.  How many transactions may be added to a  transaction  file 
     without exceeding the 362,496 byte limitation? 
     
     The  disk  space  that  will  be required for your transaction file is 
     directly related to the (1) the  quantity  of  transactions  that  you 
     process  and  (2)  HOW  you  use  DAILY  Option  1.  Following  is  an 
     explanation: 
     
          .  At the beginning of EACH complete set of debits  and  credits, 
             Option 1 adds a 39 character "header" to the transaction file. 
             This  header  contains  information  such  as  the  date,  the 
             transaction reference,  and your explanation  of  the  general 
             ledger entry. The "header" is added each time that you enter a 
     
     
     
                                                                      101
     

             "Q"  (for  Quit  -  see  Chapter  6) while you are posting the 
             general ledger.  So, the more times that you enter a "Q",  the 
             more "headers" that will be added and the more disk space that 
             will be required. 
    

          .  For  each  credit to a bank checking account,  Option 1 adds a 
             check number and the payee's name  to  the  transaction  data.  
             So,  the more checks you write,  the more disk space that will 
             be required. 
     
     
     To conserve space:
     
          .  Consolidate your general  ledger  entries.  That  is,  include 
             several  debits and credits in a single entry.  Avoid "debit", 
             "credit", "Q" for Quit, "debit", "credit,  "Q" for Quit,  etc. 
             Instead,  consolidate - like this, "debit", "debit", "credit", 
             "credit", "Q" for Quit. 
     
          .  If  feasible,  consolidate  your checks.  That is,  instead of 
             writing two checks to the same vendor on the same  day,  write 
             one   check  for  the  entire  amount,   if  that  suits  your 
             record-keeping requirements. 
     
     
     To show you the effect this has,  we conducted a small  experiment  in 
     writing records to the transaction file.  Here is what we did: 
     
          .  Using  a copy of a completely erased disk (362,496 bytes),  we 
             posted two transactions,  over and over again,  until the disk 
             was full.  One of the transactions included a credit to a bank 
             account  and  the  other transaction did not.  We recorded the 
             two transactions in this fashion - "debit", "credit",  "Q" for 
             Quit, "debit", "credit", and "Q" for Quit.  
                  
                . 2,648 transactions were written before the disk was full. 
     
                . 5,296 debits and credits were recorded.
     
                . 1,324 checks were included in the credits.
     
          .  We repeated the  above  experiment,  EXCEPT  the  sequence  of 
             posting was "debit",  "debit", "credit", "credit", and "Q" for 
             Quit. 
     
                . 3,324 transactions were written before the disk was full. 
     
                . 6,648 debits and credits were recorded. 
     
                . 1,662 checks were included in the credits. 
     
     
     
                                                                       102 
     

     We also tried another mix of transactions,  this time expressed  on  a 
     monthly  basis.  We  assumed the following mix of monthly transactions 
     for a twelve month period,  and used 300,000 bytes as available to the 
     transaction file. 
     
          .  75 separate entries.  (That is,  the "Q" for Quit was used  75 
             times.) 
     
          .  Daily sales 24 times, each with one debit and one credit. 
     
          .  180  transactions  with  checks,  each  with one debit and one 
             credit. 
          
          .  50 additional transactions, each with one debit and one credit. 
     
     
     The computer program told us that, for a year: 
     
          .  6,096 debits and credits  would  have  been  posted  and  that 
             289,129 of the 300,000 bytes available would have been used. 
     
          .  2,160 checks would have been included in the credits. 
     
     
     This should give you some general idea on disk capacity.  HOWEVER,  DO 
     NOT USE THE ABOVE EXAMPLES AS HARD AND FAST RULES.  The  examples  are 
     intended for illustration only.  It is impossible for us to predict if 
     and  when  you will fill your transaction file.  As pointed out,  that 
     depends on your volume of transactions and on how you enter them. 
    
     This means that you should study your transactions very carefully  and 
     be  very  sure  that all of them,  for the entire year,  can be easily 
     included on the disk used for your transaction files.  Do NOT take any 
     chances.  If you have any doubts, do not use CPA-LEDGER.  We recommend 
     that you DO NOT use  CPA-LEDGER  with  only  one  floppy  drive,  with 
     CPA-LEDGER and your general ledger files on the same floppy disk. 
     

















APNDX-D.TXT

      
     
                                                                       103
                                                                        
     
                                   APPENDIX D              

            SOME COMMENTS ABOUT AN ACCOUNTING AND BOOKKEEPING SYSTEM
     
     
     
     
     
     Refer to the Preface of this manual (page 3) for  an  outline  of  the 
     bookkeeping  knowledge  that you will need in order to effectively use 
     CPA-LEDGER.  We assume that you have that knowledge and that you  know 
     how to apply it properly in your business. 
     
     Remember  this.  The  more  complex  that  your  business transactions 
     become, the more bookkeeping and accounting knowledge you should have.  
     We are not attempting to alarm you or to convince you that you  should 
     rely  on  others  to  maintain  your accounting system.  However,  you 
     should know that bookkeeping does require technical knowledge and that 
     you should possess  that  technical  knowledge  BEFORE  attempting  to 
     maintain a double-entry bookkeeping system. 
     
     In  the  following discussion we will briefly cover several areas that 
     you should consider before designing your accounting  and  bookkeeping 
     system. 

          .  First,  we  will  distinguish  between  the cash basis and the 
             accrual basis of accounting. 
     
          .  Second,  we will cover some important procedures and  controls 
             that should be considered for any accounting system. 
     
          .  Third, we will present an overview of the accounting cycle and 
             tell you where CPA-LEDGER fits into the picture. 
     
          .  Fourth,  we  will  briefly  discuss  the Balance Sheet and the 
             Income Statement. 
     
          .  Fifth, we will tell you about the account classifications that 
             CPA-LEDGER uses in the Balance Sheet and the Income Statement.  
             We will also tell you about the types  of  accounts  that  are 
             typically included in each classification. 
     
          .  Sixth,  we will make some suggestions on how you can decide on 
             the specific  accounts  to  be  included  in  your  accounting 
             system. 
     
      
     
                                                                       104 
     
     
     CASH VERSUS ACCRUAL BASIS OF ACCOUNTING.
     
     The "cash basis" of accounting is used if:
     
           .  Income is recorded when cash is COLLECTED, and
     
           .  Expenses are recorded when cash is PAID. 
     
      The "accrual basis" of accounting is used if:
     
           .  Income is recorded when it is EARNED (regardless of when cash 
              is collected), and 
     
           .  Expenses are recorded when they are INCURRED  (regardless  of 
              when cash is paid). 
        

     Thus, you have two choices for your accounting system - the cash basis 
     or  the  accrual  basis.  The method that you choose should be the one 
     that results in an accurate measurement of  your  company's  operating 
     results.  The  cash  basis  of  accounting  may  not  be acceptable if 
     failure to record "accruals"  and  "deferred"  items  will  result  in 
     material misstatements in the financial statements.  

     Accruals  and  deferred  items  are  discussed  in the section of this 
     appendix entitled, "ADJUSTING ENTRIES". 
    
     The cash basis has advantages,  including simpler and more  economical 
     bookkeeping.   However,   it  has  disadvantages  also.   Unless  cash 
     receipts less disbursements closely approximates  your  true  earnings 
     and  financial  condition,  the cash basis of accounting may result in 
     materially inaccurate financial statements - as  compared  to  similar 
     statements that would result from the accrual basis. 
     
     A  complete discussion of the advantages and disadvantages,  including 
     income tax considerations,  of these  two  methods  of  accounting  is 
     beyond  the  scope  of  this appendix.  The accounting method that you 
     choose is extremely important,  from both an income tax standpoint and 
     from  the  standpoint  of  managing  your business.  Consult with your 
     local CPA if you cannot decide which method is best for you. 
     
      
     
                                                                       105 
     

     PROCEDURES AND CONTROLS.
         
     The importance of good accounting procedures and  controls  cannot  be 
     overemphasized.  Following  is  an  outline  of  major points that you 
     should consider. 
     
     
             .  Decide when your accounting entries will  be  recorded  and 
                who will record them.  Set a schedule and stick to it. 
     
             .  Make  sure  that  anyone  assigned  accounting  duties  is 
                properly trained. 
     
             .  If  feasible,  do  not  allow  any  one  employee  to  have 
                responsibility  for  any  two or more of the following four 
                functions  -  (1)  authorization  of  a  transaction,   (2) 
                recording  the  transaction in the accounting records,  (3) 
                custody  of  the  assets   involved,   and   (4)   periodic 
                reconciliation of existing assets to recorded amounts. 
     
             .  Decide  on  all  forms  that  you  will need and train your 
                employees how to use them.  The  forms  should  be  of  two 
                types  - (1) SOURCE DOCUMENT forms,  discussed in a section 
                of this appendix to  follow  and  that  is  entitled,  "THE 
                ACCOUNTING  CYCLE",  and (2) forms to assist in summarizing 
                entries  to  be  entered   in   your   accounting   system.  
                Summarizing forms suggested for CPA-LEDGER are contained in 
                Appendix E. 
   
             .  Decide  on  cost effective internal controls that are to be 
                followed  in  making  sure  that   all   transactions   are 
                authorized  according  to  approved company policy and that 
                each entry in your accounting system is: 
     
                  .  Complete and supported by proper documentation. 
    
                  .  Calculated in the proper amounts. 
     
                  .  Entered into the proper accounts. 
     
                  .  Recorded in the proper period. 
     
                You should also establish controls to be sure that no valid 
                transactions are omitted from your accounting system. 
     
             .  Decide on procedures to be followed in: 
     
                  .   Limiting  access  to   assets,   important   records, 
                     documents,   and   blank   forms  to  only  authorized 
                     personnel. 
     
                                                                          
                                                                       106     
     
                  .  Periodic  comparison  of  amounts  recorded   in  your 
                     accounting   system   with   independent  evidence  of 
                     existence and valuation.  Examples include  counts  of 
                     cash on hand, counts or securities, and reconciliation 
                     of  bank  accounts.  Your controls should also provide 
                     for action to be taken on  any  differences  resulting 
                     from the comparison. 
     
     As you can see,  designing an accounting system is not an  easy  task.  
     Selecting  the  proper accounts to be included requires both technical 
     knowledge and informed  judgement.  Then,  there  are  the  accounting 
     controls that you will need.  Without a good balance of cost effective 
     controls,  one  takes  an undue chance that the accounting system will 
     not produce accurate results.  If  you  do  not  feel  comfortable  in 
     designing your accounting system or controls,  consult with your local 
     CPA.   Know  that  designing  effective  internal  controls   requires 
     professional  knowledge.  Seek  professional  assistance if you do not 
     understand how to design effective internal controls in an  accounting 
     system. 
          
     THE ACCOUNTING CYCLE.
     
     The accounting cycle begins with collecting economic information about 
     transactions  that occur in your business and ends with preparation of 
     formal financial statements.  An accounting system should be  designed 
     to  accurately  assemble  the economic information in a manner that is 
     both understandable and meaningful. 
     
     Perhaps it would be helpful to step through this "assembling"  process 
     so that you will have a better understanding of the accounting cycle. 
                        

          STEP  1  - COLLECTING ECONOMIC INFORMATION.  Economic information 
     is collected in an accounting system by  means  of  SOURCE  DOCUMENTS.  
     Examples are: 
     
          .  Evidence  of  transactions involving outside parties,  such as 
             sales invoices, paid checks, notes signed by debtors, invoices 
             received from creditors, and deposit slips. 
     
          .  Other economic events that do not involve outside parties  and 
             which  must  be  recorded  because  they have an impact on the 
             company.  Examples are depreciation and estimates of bad  debt 
             expense. 
     
     These  source  documents are the "documentation" which support entries 
     made in the accounting system.  However,  the entries cannot  be  made 
     until  the  source documents are analyzed and a decision is made as to 
     the transaction that occurred and which accounts were affected. 
     
      
     
                                                                       107 
     

          STEP   2  -  ANALYZING  SOURCE  DOCUMENTS.   This  step  involves 
     analyzing the source documents to assess their impact on the  business 
     in terms of revenues,  expenses,  gains,  losses, assets, liabilities, 
     and owners' equity.  The analysis forms the basis  for  developing  an 
     ACCOUNTING  ENTRY.  For  example,  a cash sale increases both an asset 
     (cash) and revenues (sales).  The accounting entry should be  a  debit 
     (increase) to cash and a credit (increase) to sales. 
     
     It  is  very important that source documents be analyzed thoroughly in 
     order to determine the proper accounting entry.  This often requires a 
     high degree of accounting skill.  The accuracy with which it  is  done 
     determines the reliability of the financial statements. 
                                                            

          STEP 3 - RECORDING THE TRANSACTION.  Recording the transaction in 
     the  accounting  system  basically  involves  showing  the date of the 
     transaction, account(s) debited, account(s) credited,  dollar amounts, 
     reference information, and a short explanation for future recall.  You 
     Use  CPA-LEDGER's  DAILY  Option  1  to  record  transactions  in your 
     accounting system. 
     
     Various types of records are used to record  accounting  transactions.  
     Manual systems usually have (1) a general journal, (2) several special 
     journals  to  accommodate like-kind transactions such as cash receipts, 
     cash disbursements, accounts payable, and (3) a general ledger. 
     
     The general ledger has an account for each  type  of  asset  (such  as 
     cash,  account receivable, and buildings), liability (such as accounts 
     payable, wages payable), owners' equity, revenues, expenses, gains and 
     losses.  At the end  of  each  accounting  period  (usually  monthly), 
     information  in  the  general  journal  and in the special journals is 
     transferred to the general ledger. 
     
     This process is often referred to as "posting".  The general ledger is 
     used for preparing financial statements. 

     Some computerized accounting systems do not use a general  journal  or 
     the special journals.  Rather,  accounting entries are posted directly 
     to the general ledger and the general journal and special journals are 
     reconstructed from a detailed transaction file.  This is  the  process 
     followed by CPA-LEDGER. 
                                                        

          STEP  4  -  PREPARING AN UNADJUSTED TRIAL BALANCE.  At the end of 
     each accounting period (usually a month),  after all entries have been 
     posted  to the general ledger,  an unadjusted trial balance is usually 
     prepared.  An unadjusted trial balance is a listing of all accounts in 
     the general ledger,  and their respective debit and  credit  balances, 
     before  any  adjusting  entries  have been posted.  CPA-LEDGER's DAILY 
     Option 2 is used to automatically print an unadjusted trial balance. 
     
      
     
                                                                       108
     

          STEP 5 - ADJUSTING ENTRIES.  If your accounting system is kept on 
     the accrual basis (see the above section of  this  appendix  entitled, 
     CASH  VERSUS  ACCRUAL  BASIS  OF  ACCOUNTING),  you  will need to make 
     several adjusting entries to amounts in  your  general  ledger  before 
     preparing a Balance Sheet or an Income Statement.  Remember,  when the 
     accrual basis is used: 
     
          .  Income should be recorded when EARNED, regardless of when cash 
             is received. 
     
          .  Expenses should be recorded when INCURRED,  regardless of when 
             cash is paid. 
     
     
     Adjusting entries can be viewed as falling into these categories: 
     
          .  ACCRUED  EXPENSES.   During  the  accounting  period,  certain 
             expenses may have been incurred even  though  payment  is  not 
             made  until  the  next  accounting period.  An example is rent 
             expense  that  is  not  billed  until  the   month   following 
             occupancy. 
     
          .  ACCRUED  INCOME.  Certain  income  may  be  earned  during the 
             accounting period even though cash has not been collected.  An 
             example is rental income that is not billed  until  the  month 
             following occupancy. 
     
          .  DEFERRED  EXPENSES.  Expenses may have been recorded that will 
             not to be  used  up  in  the  current  accounting  period.  An 
             example is rent expense that is paid in advance. 
     
          .  DEFERRED INCOME.  You may collect income in advance of when it 
             due.  An  example  is  rental  income  that  is  collected  in 
             advance. 
     
          .  ESTIMATED ITEMS.  Some adjusting entries are estimated because 
             they depend on  future  events.  Examples  are  estimates  for 
             depreciation expense and bad debt expense. 
     
          .  INVENTORIES.  Physical inventories must be taken at the end of 
             each accounting period to determine the inventory amount to be 
             reported  on  the  Balance Sheet and the Income Statement.  If 
             perpetual inventory records are kept,  there still  should  be 
             some  procedure  to  ensure  that  the  perpetual  amounts are 
             accurate. 
     
     
     With the exception of inventories,  use CPA-LEDGER's DAILY Option 1 to 
     record  your  adjusting  entries.  DAILY  Option 3 asks for the ending 
     inventory value and uses the value to  make  the  necessary  adjusting 
     entry.  Remember  that.  REMEMBER  THAT  OPTION  3 MAKES THE ADJUSTING 
     ENTRY FOR ENDING INVENTORY. 
     
     
     
                                                                       109
     

     Determining  the  proper  adjusting  entries  is not as easy task.  It 
     requires  detailed  knowledge  of  (1)  bookkeeping  procedures  being 
     followed,  (2) transactions that have and that have not been recorded, 
     and (3) careful  analysis.  The  unadjusted  trial  balance  is  often 
     helpful  in identifying account balances that require adjustment,  but 
     it must be supplemented with (1), (2), and (3) mentioned above. 
     
     To assist  you  in  gaining  a  firmer  grasp  on  adjusting  entries, 
     following are some illustrations. 
     

          .  ACCRUED  EXPENSES.  Your  company  has a Note Payable,  in the 
     amount of $10,000,  recorded on the Balance  Sheet.  Interest  in  the 
     amount of $1,200 is payable each March 31,  for the preceding 12 month 
     period.  On December 31 (the date of your financial statements),  $900 
     of the $1,200 ($100 per month times nine months) in unpaid interest is 
     unrecorded  and  is  properly  chargeable  to  the  current accounting 
     period.  The adjusting entry to record the accrued interest is: 
     
            Interest Expense                       $900.00
              Interest Payable                                 $900.00
     

          .  ACCRUED  INCOME.  Assume  the  same facts shown above,  except 
     that the Note Payable is a Note Receivable.  The adjusting entry would 
     be: 
     
            Interest Receivable                    $900.00
              Interest Income                                  $900.00
     

          .  DEFERRED EXPENSES.  Assume the same facts as shown for ACCRUED 
     EXPENSES,  except that  the  $1,200  was  paid  and  recorded  at  the 
     BEGINNING  of  the  interest  period.  The following entry was made on 
     March 31: 
     
            Interest Expense                     $1,200.00
              Cash                                           $1,200.00
     
     The adjusting entry on December 31 would be:
     
            Interest Expense Paid in Advance       $300.00  
              Interest Expense                                 $300.00
     
     Notice that,  after  the  adjusting  entry,  $900.00  remains  in  the 
     Interest  Expense  account.  Interest Expense Paid in Advance is shown 
     on the Balance Sheet as a Current Asset.  (Some accountants would  use 
     the  title "Prepaid Interest Expense" in lieu of Interest Expense Paid 
     in Advance.) 
          
      
                                                                       110
     
     

          .  DEFERRED INCOME.  Assume the same facts as shown for  DEFERRED 
     EXPENSES,  except  that  the  note  is  a Note Receivable and that the 
     following entry was made on March 31: 
     
            Cash                                 $1,200.00
              Interest Revenue                               $1,200.00
     
     The adjusting entry on December 31 would be:
     
            Interest Revenue                       $300.00
              Interest Collected in Advance                    $300.00
     
     Notice that $900.00 remains in the Interest Revenue account.  Interest 
     Collected in Advance is shown  on  the  Balance  Sheet  as  a  Current 
     Liability.  (Some  accountants  would  use the title "Prepaid Interest 
     Income" in lieu of Interest Collected in Advance.) 
     

          .  ESTIMATED ITEMS.  As mentioned,  the amounts of some adjusting 
     entries  must  be estimated.  This is because the amount of the actual 
     expense is dependent upon some future  condition  or  event.  Examples 
     are  provisions  for  depreciation,  bad debts,  and warranty expense. 
     Consider depreciation as  an  example.  Assuming  that  the  "straight 
     line"  method  is used,  the annual depreciation charge is based on an 
     estimated useful life of the asset.  Bad debt expense is based  on  an 
     estimate  of  amounts  that  will prove to be uncollectible.  Warranty 
     expense is based on an estimate of the volume of  claims  against  the 
     warranty.  Sample  adjusting  entries are shown below,  along with the 
     estimates used to compute the amount of the adjustment. 
     
     An item of equipment,  costing $82,000 is estimated to have  a  useful 
     life  of  10  years.  It  is  estimated that the equipment will have a 
     salvage value of $2,000 at the end of the 10 year  period.  Using  the 
     straight  line method of depreciation,  the annual depreciation charge 
     would be ($82,000 less $2,000, or $80,000 divided by 10 years): 
     
          Depreciation Expense - Building           $8,000.00
            Allowance for Depreciation - Building               $8,000.00
     
     After reviewing outstanding Accounts Receivable,  it is estimated that 
     $10,000 will prove to be  uncollectible.  The  account  Allowance  for 
     Doubtful  Accounts  has  a  current balance of $8,000.00 The adjusting 
     entry would be: 
     
          Bad Debt Expense                          $2,000.00
            Allowance for Doubtful Accounts                     $2,000.00
     
      
     
                                                                       111
     

          .  INVENTORIES.  Some accountants do not consider  recording  the 
     ending inventory as an "adjusting entry".  We are including it just to 
     be  sure  that  you do not overlook it.  We will not allow theoretical 
     arguments get in the way of our understanding what needs to be done. 
     
     As  already  mentioned,   if  perpetual  inventory  records  are   not 
     maintained,  the  ending inventory should be recorded before financial 
     statements are prepared.  In a manual system,  the following entry  is 
     usually  made:   (Assume  that  the  ending  inventory  is  valued  at 
     $50,000.00.) 
     
          Inventory                                $50,000.00
            Income Summary                                     $50,000.00
     
     When you use CPA-LEDGER's DAILY Option 3, the computer system asks you 
     to enter the inventory value and it makes  the  appropriate  adjusting 
     entry. 
     
     
     To further assist you in identifying adjusting entries that need to be 
     made  before  preparing  financial statements,  following is a list of 
     areas that you should consider.  (The  list  is  not  intended  to  be 
     complete   because   each   business   usually   has  its  own  unique 
     characteristics.) 
     
          .  Any expense or loss that should be  recorded  in  the  current 
             accounting period but which has not yet been recorded. 
     
          .  Any  revenue  or  gain  that should be recorded in the current 
             accounting period but which has not yet been recorded. 
     
          .  Any expense that  is  paid  in  advance  and  that  should  be 
             recognized as an expense in some other accounting period. 
     
          .  Any  revenue  that  is collected in advance and that should be 
             recognized as revenue in some other accounting period. 
     
          .  Depreciation expense. 
     
          .  Bad debt expense. 
     
          .  Warranty expense. 
     
          .  Ending inventory. 
     
      
     
                                                                       112
     

          .  STEP 6 - CLOSING  ENTRIES.  In  a  manual  accounting  system, 
     closing entries are prepared so that all revenue,  expense,  gain, and 
     loss accounts will be reduced to  zero  and  be  ready  for  the  next 
     accounting period. 
     
     You  do  not  have  to  worry  about  closing  entries  when  you  use 
     CPA-LEDGER.  It automatically makes the closing entries for you. 
     
     
          .  STEP  7  -  PREPARING  THE  FINANCIAL  STATEMENTS.  After  the 
     adjusting  and closing entries have been posted to the general ledger, 
     you are ready to prepare the financial statements. 
     
     CPA-LEDGER's  DAILY  Option  3  prepares  the  statements   for   you, 
     automatically. 
     
     
          .  STEP  8  -  PREPARING A POST-CLOSING TRIAL BALANCE.  After all 
     adjusting and closing entries have been posted to the general  ledger, 
     a  post-closing  trial  balance may be prepared.  It is used to verify 
     that debits  and  credits  are  equal  at  the  start  of  the  coming 
     accounting period.  
     
     DAILY  Option  9 will print a post-closing trial balance for you.  Use 
     it as a guide in determining the accounts to be included  in  the  new 
     general  ledger for the accounting period that is about to start.  See 
     Chapter 13. 
     
     
          .  STEP 9  -  REVERSING  ENTRIES.  Reversing  entries  are  used, 
     sometimes,  to back out adjusting entries that were made at the end of 
     the  previous  accounting  period.   Reversing   entries   are   never 
     mandatory,  even  in  a manual accounting system.  Their purpose is to 
     simplify  a  subsequent  accounting  entry.   If  one  remembers   the 
     adjustments,  and  makes  subsequent accounting entries correctly with 
     the adjustments  in  mind,  there  is  no  requirement  for  reversing 
     entries. 
     
     Reversing  entries  are never made when using CPA-LEDGER.  There is no 
     need for them.  That is because a new general ledger is started at the 
     beginning of each accounting period.  See  Chapter  3  of  the  User's 
     Manual for details. 
     
     
     THE BALANCE SHEET AND THE INCOME STATEMENT.
     
     The  Balance  Sheet,  also sometimes called the Statement of Financial 
     Position,  summarizes the financial position of a  business  as  of  a 
     specific  point  in  time.  It presents the assets,  liabilities,  and 
     owners' equity. 
     
     The  Income  Statement,  on  the  other  hand,   summarizes  revenues, 
     expenses,  gains, and losses for a specified period of time - a month, 
     a quarter, or a year. 
     
      
     
                                                                       113
     

     ACCOUNT CLASSIFICATIONS USED BY CPA-LEDGER.
     
     Refer to Chapter 3 of the User's Manual  for  a  list  of  the  account 
     classifications  used  by CPA-LEDGER.  To assist you while using SETUP 
     Option 1 (also see Chapter 3), the following is a brief description of 
     the types  of  accounts  that  should  be  included  in  each  of  the 
     classifications.  We  will  take  up the Balance Sheet classifications 
     first. 
     
     
          .  CURRENT ASSETS are cash and other assets that  are  reasonably 
     expected  to  be (1) converted to cash,  (2) to be sold,  or (3) to be 
     used by the business during its normal operating cycle or  within  one 
     year  from  the Balance Sheet date,  whichever is longer.  Examples of 
     current assets are cash,  accounts receivable,  merchandise inventory, 
     short-term investments, and prepaid expenses. 

          
          .  INVESTMENT  AND FUNDS include assets acquired for financial or 
     investment purposes and funds that are set  aside  for  future  needs.  
     Examples include investments in real estate, stocks, and bonds.  Funds 
     set  aside  for future needs includes monies reserved for purchasing a 
     future building site and for redeeming long-term liabilities. 
     

          .  OPERATIONAL ASSETS are those facilities  and  equipment  which 
     are needed (and are being used) by a business in its on-going major or 
     central  operations.   Examples  include  land,   buildings,  delivery 
     vehicles, machinery, equipment, and furniture and fixtures. 
     

          .  INTANGIBLE ASSETS are those assets which provide an  exclusive 
     right  which  has  a  monetary  value  and  the  monetary value is not 
     dependent  upon  the  assets'  physical  substance.  Examples  include 
     goodwill, copyrights, patents, trademarks, and a franchise. 
     

          .  OTHER  ASSETS  are those assets that are not easily classified 
     in any one  of  the  above  asset  classifications.  Examples  include 
     long-term receivables from employees and idle operational assets. 
     

          .  DEFERRED  CHARGES  are  for  expenses  that  have been paid in 
     advance and that will  benefit  future  accounting  periods.  Examples 
     include   machinery   rearrangement   costs  and  long-term  insurance 
     prepayments.  Deferred charges are distinguished from prepaid expenses 
     shown under CURRENT  ASSETS  by  the  time  period  involved.  Prepaid 
     expenses  pertain  to  the  next  accounting period.  Deferred charges 
     pertain to a longer time. 
     
      
                                                                       114
     
     

          .  CURRENT LIABILITIES are those liabilities  that  will  require 
     the  use  of existing current assets or that will require the creation 
     of other  current  liabilities.  Examples  include  accounts  payable, 
     revenue  collected  in  advance,  short-term  notes  payable,  current 
     maturities  of  long-term  debt,   and  accrued  expenses  for  taxes, 
     interest, and payroll. 
     

          .  LONG-TERM  LIABILITIES  are  liabilities that will not require 
     the use of current assets during the next operating cycle or one  year 
     from  the  Balance Sheet date,  whichever is longer.  Examples include 
     long-term bonds payable and long-term notes payable. 
     

          .  OWNERS' EQUITY.  Depending on the version of  CPA-LEDGER  that 
     you  ordered,  you  will  see  differing formats in the OWNERS' EQUITY 
     section of the Balance Sheet.  For a sole proprietorship, you will see 
     CAPITAL and  DRAWING  accounts.  For  partnerships,  you  will  see  a 
     separate  CAPITAL  and  DRAWING account for each partner.  The CAPITAL 
     account represents ownership interest in  the  business.  The  DRAWING 
     account  represent  withdrawals  from  the business during the current 
     accounting period.  The OWNERS' equity section for  a  corporation  is 
     more   extensive   and   the  account  classifications  are  presented 
     separately below. 
     

          .  CONTRIBUTED CAPITAL reports the stated or legal capital of the 
     corporation.  This is  represented,  usually,  by  the  par  value  of 
     outstanding    capital   stock.    The   corporation's   Articles   of 
     Incorporation and state  law  specify  the  legal  capital.  See  your 
     attorney   if   you   have   any  questions  regarding  legal  capital 
     requirements.   CPA-LEDGER's  SETUP  Option  1  asks  you   how   many 
     CONTRIBUTED  CAPITAL  accounts  that  you  want to create.  You should 
     create one account for each class of outstanding capital stock.  SETUP 
     Option 3 assigns values to each of the accounts. 
     

          .  OTHER  CONTRIBUTED  CAPITAL  includes  transactions  that  are 
     related  to CONTRIBUTED CAPITAL.  Examples include amounts received in 
     excess of par or stated value of capital stock  outstanding,  treasury 
     stock transactions, and retirements and conversion of stock. 
     

          .  RETAINED  EARNINGS  is the corporation's accumulated earnings, 
     less losses and dividends to date. 
     
      
     
                                                                       115
     

          .  ALL OTHER EQUITY is  used,  primarily,  to  report  unrealized 
     losses  and  loss  recoveries  from  application of the lower-of-cost- 
     or-market rule for long-term investments in  equity  securities.  This 
     rule  is  discussed  in  Financial  Accounting  Standards Board (FASB) 
     Statement 12,  and it  is  quite  technical.  We  recommend  that  you 
     consult  with  your  local  CPA  before  using  the  ALL  OTHER EQUITY 
     classification to comply with FASB Statement  12.  Also  consult  with 
     your  CPA  before using this classification for any other transaction.  
     This is because the ALL OTHER EQUITY  classification  should  be  used 
     only  in  rare  cases,  and very technical rules cover its use.  These 
     rules are beyond the scope of this appendix. 
     

     This  concludes  discussion  of  the  Balance  Sheet  classifications.  
     Income Statement classifications follow. 
     
     
          .   SALES  is  represented  by  assets  received  or  liabilities 
     liquidated (or a combination of both)  in  the  sale  of  products  or 
     services  that  are  related to the business' ongoing major or central 
     operations.   For  CPA-LEDGER  purposes,  Sales,   Sales  Returns  and 
     Allowances,   and   Sales   Discount   are   included   in  the  SALES 
     classification. 
     

          .  PURCHASES AND RELATED ACCOUNTS are used  to  accumulate  costs 
     merchandise that will be held for resale to others and that is related 
     to  the business' ongoing major or central operations.  Accounts under 
     this  classification   include   Purchases,   Purchase   Returns   and 
     Allowances, and Purchase Discounts. 
     
     
          .  OPERATING EXPENSES are outflows or other using up of assets or 
     incurrence  of  liabilities  (or a combination of both) resulting from 
     rendering services,  delivering or producing goods,  or  carrying  out 
     other  activities  that  constitute  the  business'  ongoing  major or 
     central  operations.   Examples   of   accounts   included   in   this 
     classification  include  Salary  and  Wage Expense,  Supplies Expense, 
     Depreciation Expense,  Entertainment Expense,  Insurance Expense,  and 
     Rent Expense. 
     

          .  OTHER  REVENUES  AND  GAINS  are derived from activities other 
     than  those  that  constitute  the  company's   ongoing   or   central 
     operations.  Examples include Interest Income,  Rent Income,  and Gain 
     on Sale of Nonproductive Assets. 
                    
      
     
                                                                       116
     

          .  OTHER EXPENSES AND LOSSES are incurred from  activities  other 
     than   those   that   constitute  the  company's  ongoing  or  central 
     operations.  Examples include Interest Expense and  Loss  on  Sale  of 
     Nonproductive Assets. 
     

          .  EXTRAORDINARY GAINS AND EXTRAORDINARY  LOSSES  are  gains  and 
     losses  that  (1)  are  unusual  in  nature  and that (2) do not occur 
     frequently.   Before  a   gain   or   a   loss   may   be   considered 
     "extraordinary",  stringent rules must be applied.  These rules, which 
     almost eliminate the  extraordinary  classification,  are  covered  in 
     Accounting Principles Board Opinion 30.  We recommend that you consult 
     with your local CPA before using the extraordinary classification.  
     
     
          .  INCOME TAX EXPENSE is represented  by  income  tax  levied  by 
     Federal, State, and local jurisdictions. 
     
     

     ACCOUNTS TO BE INCLUDED IN YOUR ACCOUNTING SYSTEM.
     
     The number and type of accounts maintained for a specific business are 
     affected by considerations such as what is owned and owed,  the nature 
     and volume of operations,  and the type of information which is needed 
     for decisions, tax purposes, and credit purposes. 
     
     For example,  one salary expense account may suffice for your company.  
     Another company may opt  to  set  up  separate  expense  accounts  for 
     executive, office, and sales salaries. 
     
     As  a  general  rule,  the  financial  and  other  reports needed by a 
     business owner provide a clue as to what accounts need to be  included 
     in  the  accounting  system.  Accounts  for assets,  liabilities,  and 
     equity will be needed for the Balance Sheet.  Accounts  for  revenues, 
     expenses,  gains,  and losses will be needed for the Income Statement.  
     The level of detail in each of these account classifications  will  be 
     determined,  to  a large extent,  by the business owners' needs.  Some 
     elaboration of revenue and expense accounts may be needed for Internal 
     Revenue purposes.  Other details may be  required  by  creditors.  The 
     major  question  is  this - What specific accounts do you need for the 
     information requirements of your business? 
     
     You can answer that question by considering  your  type  of  business, 
     your financial information requirements,  and the past and anticipated 
     operations of your company.  If available, review financial statements 
     of businesses  similar  to  yours.  Review  your  own  past  financial 
     statements.  Read  trade  journals and other publications that discuss 
     accounting systems for your type of business.  If you think you may be 
     borrowing funds in the near future,  consult with potential creditors.  
     These sources should give you some good ideas. 
     
     

                                                                       
















APNDX-E.TXT

       
     
     
                                                                       117
     
     
     
                                   APPENDIX E 
     
                   SOME FORMS THAT MAY BE USED WITH CPA-LEDGER
     
     
     This appendix contains some forms that might be helpful to you in your 
     use of CPA-LEDGER.  Study each form and,  if required,  revise and add 
     to them to suit your particular needs. 
     
     The  forms  can  be  used  for  either  the  cash  or accrual basis of 
     accounting.  If you use the cash basis of accounting, however, some of 
     the forms may not be applicable.  For example,  FORMS 8 and 14  record 
     sales  and purchases on account.  Unless you keep separate records for 
     accounts receivable and accounts payable,  you might not wish  to  use 
     these  two  forms.  Also,  as  indicated in the first paragraph,  your 
     particular needs may dictate revising the forms that you do use. 

     The forms in this appendix are designed to assist you  in  summarizing 
     general  ledger  entries.  They  are  NOT  designed to serve as source 
     documentation  that  support   the   entries.   Examples   of   source 
     documentation  include  sales invoices,  deposit slips,  cash register 
     readings to support cash sales,  paid checks,  and vendors'  invoices. 
     Always  reference  the  source  documentation  on  the  forms  used to 
     summarize your general ledger entries. 
     
     Whether you use  the  forms  in  this  appendix,  or  other  ones,  we 
     recommend  that  you  adopt a standardized method for documenting each 
     general ledger entry that you  enter  in  CPA-LEDGER.  ALWAYS  prepare 
     supporting  source  documentation  for  each  of  your  general ledger 
     entries BEFORE you post your electronic  books!  Then,  summarize  the 
     entries  on  forms  such  as are suggested in this appendix,  post the 
     entries  based  on  the  summarized  data,   and   file   the   source 
     documentation and summarizing forms for future reference. 
     
     Seventeen forms are offered in the pages that follow.  Data on FORM 1, 
     FORMS  8  -  14,  and  FORMS 16 and 17 are used to make general ledger 
     entries in CPA-LEDGER.  (All data on FORMS 2 - 7 and 15 are summarized 
     on FORM 1.) FORM 1 has been assigned the acronym "DCR", for DAILY CASH 
     REPORT.  Use  that  acronym  (with an assigned number) when giving the 
     posting reference to CPA-LEDGER.  For other than FORM 1,  use the form 
     number (such as FORM 8) as the posting reference.  The use of standard 
     names   for   posting  references  will  facilitate  your  input  into 
     CPA-LEDGER and will provide a standardized method for referring to the 
     forms and to the supporting source documentation. 
     
     

                                                                       118   
                                DAILY CASH REPORT
     
     FORM 1                                                    DATE: __________
                                                           DCR NBR.: __________
     G/L
     ACCT.
     NBR.   
             STARTING CASH - BEGINNING OF DAY                     $ ___________
             TODAY'S CASH COLLECTIONS:
     ____     FROM CASH SALES (BEFORE SALES TAX & RETURNS)          ___________
     ____     FROM SALES TAX ON CASH SALES                          ___________
              FROM ACCOUNTS RECEIVABLE:                  
     FORM 2       CASH COLLECTIONS, INCLUDING CHECKS (FROM FORM 2)  ___________
     FORM 3   FROM OTHER CASH RECEIPTS (FROM FORMS 3 AND 15)        ___________
     FORM 15
                TOTAL CASH TO BE ACCOUNTED FOR ...................  ___________
       
              CASH COUNT - END OF DAY                               ___________
     ____     TODAY'S BANK DEPOSITS -  ONE                          ___________
     ____                           -  TWO                          ___________
              TODAY'S CASH PAYMENTS:
     FORM 4     FOR MERCHANDISE PURCHASES (FROM FORM 4)             ___________
     FORM 5     FOR OPERATING EXPENSES (FROM FORM 5)                ___________
     FORM 6     FOR SALES RETURNS PAID IN CASH (FROM FORM 6)        ___________
     FORM 7     FOR OTHER CASH DISBURSEMENTS (FROM FORM 7)          ___________
              TOTAL CASH ACCOUNTED FOR ...........................  ___________
     ____     CASH OVER OR (SHORT)                                  ___________

              SALES TAX INFORMATION:
     ____       WHOLESALE      $ ___________   PREPARED BY ____ CHECKED BY ____
     ____       RETAIL           ___________   POSTED BY   ____ DATE __________
     ____       EXEMPT           ___________
                COLLECTED        ___________
     ENTRY POSTED TO GENERAL LEDGER (FROM THIS FORM AND FORMS 2 - 7 and 15)
     G/L ACCT.    DEBIT        CREDIT      G/L ACCT.    DEBIT        CREDIT
       NBR.                                  NBR.
      _____  $ __________  $ __________      _____  $ _________  $ __________

      _____    __________    __________      _____    _________    __________

      _____    __________    __________      _____    _________    __________

      _____    __________    __________      _____    _________    __________

      _____    __________    __________      _____    _________    __________

      _____    __________    __________      _____    _________    __________

      _____    __________    __________      _____    _________    __________

      _____    __________    __________      _____    _________    __________
     
      ____     __________    __________      _____    _________    __________
     
      ____     __________    __________      _____    _________    __________

     TOTALS  $ __________  $ __________             $ _________  $ __________
     
     
     
                                                                       119
     
     
     Use FORM 1 to (1)  record  summarize  your  daily  cash  receipts  and 
     disbursements,  (2) account for cash, and to (3) summarize the related 
     general ledger entry. 
    
     Use the G/L ACCT. NBR. column to record the account numbers to be used 
     in the general ledger entry.  Then summarize the entry at  the  bottom 
     of FORM 1. 
     
     Also notice that FORM 1 is used for summarizing general ledger entries 
     that are shown on FORMS 2 through 7 and 15.  Thus, FORM 1 is a control 
     form  for facilitating recording general ledger entries that come from 
     several sources. 
     
     
                                                                       120
                         ACCOUNTS RECEIVABLE COLLECTIONS
     
     
     FORM 2                                                   DATE: ________
     
      .......... CLIENT ........     . AMOUNT COLLECTED FOR .          TOTAL
     ACCT.                           SALES   FINANCE  ACCOUNT  CASH    CASH
     NBR.       NAME       INVOICE    TAX    CHARGES  BALANCE  DISC.   COLLECTED
                                                  
     ____ ________________ _______ $_______ $_______ $_______ $_______ $_______
         
     ____ ________________ _______  _______  _______  _______  _______  _______
     
     ____ ________________ _______  _______  _______  _______  _______  _______
     
     ____ ________________ _______  _______  _______  _______  _______  _______
     
     ____ ________________ _______  _______  _______  _______  _______  _______
     
     ____ ________________ _______  _______  _______  _______  _______  _______
     
     ____ ________________ _______  _______  _______  _______  _______  _______
     
     ____ ________________ _______  _______  _______  _______  _______  _______
     
     ____ ________________ _______  _______  _______  _______  _______  _______
     
     ____ ________________ _______  _______  _______  _______  _______  _______
         
     TOTALS                        $_______ $_______ $_______ $_______ $_______
     
       G/L ACCT. NBR.               _______  _______  _______  _______  _______


     RECORD THE GENERAL LEDGER ENTRY BELOW AND TRANSFER IT TO FORM 1.
     PREPARED BY ____ CHECKED BY ____ TRANSFERRED TO FORM 1 BY ____
     
     G/L
     ACCT.
     NBR.       DEBIT        CREDIT
     
     ____   $ _________  $ _________ 
     
     ____     _________    _________

     ____     _________    _________
     
     ____     _________    _________ 
     
     ____     _________    _________
             
     TOTALS $ _________  $ _________
     
     NOTE:  SEE NEXT PAGE FOR GUIDELINES ON WHEN  THIS  FORM  IS  USED  FOR 
     EITHER THE CASH BASIS OR ACCRUAL BASIS OF ACCOUNTING. 
     
     
     
                                                                       121
     
     
     FORM  2  is  used  to  record  cash  (including  check) collections of 
     accounts  receivable.  The  accounting  entry  to  record  collections 
     depends  upon  (1) the procedure for recognizing finance charges,  (2) 
     local sales tax requirements,  and (3) whether the cash or the accrual 
     basis of accounting is used. 
     
     The  illustration  that  follows  assumes  that (1) client A purchases 
     $1,000 in merchandise on account,  (2) client A is  allowed  a  $20.00 
     sales  discount,  (3) the finance charge is 20 percent annually on the 
     outstanding balance (excluding taxes and discounts) from the  date  of 
     sale,  and  (4)  the  account  is  collected one month after the sale. 
     Consult your local sales tax requirements regarding when sales tax  is 
     payable  to  the taxing authority.  The following illustration assumes 
     that the tax is payable when the account is  collected  for  the  cash 
     basis of accounting and when the sale is made for the accrual basis. 
     
     
     1.  CASH BASIS OF ACCOUNTING.
     
        A.  DATE OF SALE.  No entry.
     
        B.  COLLECTION.
     
             Cash                         $ 1,046.33
             Sales Discount                    20.00
               Sales                                    $ 1,000.00
               Finance Charge Revenue                        16.33
               Sales Tax Payable                             50.00
     
     2.  ACCRUAL BASIS OF ACCOUNTING.
     
        A.  DATE OF SALE.
     
             Accounts Receivable          $ 1,050.00
               Sales                                    $ 1,000.00
               Sales Tax Payable                             50.00
  
        B.  COLLECTION AND ONE MONTH'S FINANCE CHARGE
     
             Cash                         $ 1,046.33
             Sales Discount                    20.00
               Accounts Receivable                      $ 1,050.00
               Finance Charge Revenue                        16.33
     
     
     The  purpose  of  the  entries  above is to illustrate two methods for 
     recording the transaction.  Dollar amounts shown for entries 1B and 2B 
     are taken from FORM 2.  Entry 2A is taken from FORM 8.  Note that  the 
     SALES  TAX  column is used for the cash basis of accounting but is not 
     used for the accrual basis.  This is  because  Sales  Tax  Payable  is 
     recorded in entry 2A. 
     
     
                                                                       122
                               OTHER CASH RECEIPTS
     
     FORM 3                                                   DATE: ________
     
     G/L
     ACCT.
     NBR.            EXPLANATION OF CASH RECEIPT                   AMOUNT
     
     ____    _________________________________________________  $ _________
     
     ____    _________________________________________________    _________
     
     ____    _________________________________________________    _________
     
     ____    _________________________________________________    _________
     
     ____    _________________________________________________    _________
     
     ____    _________________________________________________    _________
     
     ____    _________________________________________________    _________
    
     
             TOTAL CASH COLLECTED                               $ _________
     
     
     RECORD THE GENERAL LEDGER ENTRY BELOW AND TRANSFER IT TO FORM 1.
     PREPARED BY ____ CHECKED BY ____ TRANSFERRED TO FORM 1 BY ____

     G/L
     ACCT.
     NBR.       DEBIT           CREDIT
     
     ____   $ __________    $ __________  
          
     ____     __________      __________
     
     ____     __________      __________
     
     ____     __________      __________
     
     ____     __________      __________
     
     ____     __________      __________
     
     ____     __________      __________
     
     TOTALS $ __________    $ __________
     
     NOTE:  USE  THIS FORM TO RECORD DAILY CASH RECEIPTS (INCLUDING CHECKS) 
           FROM SOURCES OTHER  THAN  CASH  SALES,  COLLECTION  OF  ACCOUNTS 
           RECEIVABLE,  AND CASH REFUNDS ON PURCHASE RETURNS (SEE FORM 15). 
           EXAMPLES INCLUDE COLLECTION OF A  NOTE  RECEIVABLE  AND  A  CASH 
           REFUND ON SECURITY DEPOSITS. 
     
      
                                                                       123
                     CASH PAYMENTS FOR MERCHANDISE PURCHASES
     
     
     FORM 4                                                 DATE: _______
                                                                          
     
      ............  VENDOR  ............   . FOR ACCTS. PAY. ONLY .   TOTAL    
     ACCT.                                     INVOICE     CASH       CASH
     NBR.          NAME            INVOICE    AMT. PAID   DISCOUNT    PAID
     
     _____  _____________________  _______ $__________ $__________ $__________
     
     _____  _____________________  _______  __________  __________  __________
     
     _____  _____________________  _______  __________  __________  __________
     
     _____  _____________________  _______  __________  __________  __________
     
     _____  ____________________   _______  __________  __________  __________
     
     _____  ____________________   _______  __________  __________  __________
     
     _____  ____________________   _______  __________  __________  __________
     
     _____  ____________________   _______  __________  __________  __________
     
     
      TOTALS                               $__________ $__________ $__________
     
      GENERAL LEDGER ACCT. NBR.             __________  __________  __________
     
     
     RECORD THE GENERAL LEDGER ENTRY BELOW AND TRANSFER IT TO FORM 1.
     PREPARED BY ____ CHECKED BY ____ TRANSFERRED TO FORM 1 BY ____
     
     G/L
     ACCT.
     NBR.          DEBIT        CREDIT
     
     ____      $ _________  $ __________ 
          
     ____        _________    __________
     
     ____        _________    __________
     
     ____        _________    __________
     
     ____        _________    __________
     
     TOTALS    $ _________  $ __________

     NOTE:  USE  THIS  FORM  TO  RECORD  CASH  (NOT  CHECK)  PAYMENTS  FOR 
            MERCHANDISE  PURCHASES  AND  FOR  PAYMENTS   ON   ACCOUNT   FOR 
            MERCHANDISE  PURCHASES PREVIOUSLY RECORDED AS ACCOUNTS PAYABLE. 
            USE FORM 9 FOR CHECK PAYMENTS FOR  MERCHANDISE  PURCHASES.  USE 
            FORMS 5 AND 10 FOR PURCHASES RELATED TO OPERATING EXPENSES. 
    
   
                                                                       124
                         OPERATING EXPENSES PAID IN CASH
                         (OTHER THAN SALARIES AND WAGES)
     
     FORM 5                                                  DATE: ________
     
     G/L       .................. VENDOR ...................
     ACCT.   ACCT.
     NBR.    NBR.               NAME                   INVOICE          AMOUNT
     
     ____   _____  ___________________________________ _______      $ __________
     
     ____   _____  ___________________________________ _______        __________
     
     ____   _____  ___________________________________ _______        __________
     
     ____   _____  ___________________________________ _______        __________
     
     ____   _____  ___________________________________ _______        __________
     
     ____   _____  ___________________________________ _______        __________
     
     ____   _____  ___________________________________ _______        __________
     
     ____   _____  ___________________________________ _______        __________
     
     
            TOTAL CASH PAID                                         $ __________
     
     
     RECORD THE GENERAL LEDGER ENTRY BELOW AND TRANSFER IT TO FORM 1.
     PREPARED BY ____ CHECKED BY ____ TRANSFERRED TO FORM 1 BY ____
     
     G/L                                     G/L
     ACCT.                                   ACCT.
     NBR.         DEBIT        CREDIT        NBR.      DEBIT       CREDIT
                                             
     ____     $ _________  $ __________     _____  $ __________ $ __________ 
     
     ____       _________    __________     _____    __________   __________
     
     ____       _________    __________     _____    __________   __________
     
     ____       _________    __________     _____    __________   __________
     
     ____       _________    __________     _____    __________   __________
     
      TOTALS  $ ________   $ __________            $ __________ $ __________
     
     NOTE: USE  THIS FORM TO RECORD CASH (NOT CHECK) PAYMENTS FOR OPERATING 
           EXPENSES, SUCH AS POSTAGE,  TRANSPORTATION,  AND OFFICE SUPPLIES 
           AND  FOR  CASH  PAYMENTS  FOR THESE ITEMS PREVIOUSLY RECORDED AS 
           ACCOUNTS PAYABLE.  RECORD CHECK PAYMENTS FOR OPERATING  EXPENSES 
           ON FORM 10. RECORD SALARIES AND WAGES DATA ON FORMS 12 AND 13. 
     
      
     
                                                                       125
                           SALES RETURNS PAID IN CASH
                OR SALES RETURNS CREDITED TO ACCOUNTS RECEIVABLE
     
     FORM 6                                                    DATE: _______
     
            
     CLIENT                                 TOTAL                   
     ACCT.             SALES       ACCT.    CASH   CASH                SALES
     NBR.    CLIENT    INVOICE     REC.     PAID   DISCOUNT  SALES     TAX

     ____ ____________ _______  $_______ $_______ $_______ $_______  $_______
     
     ____ ____________ _______   _______  _______  _______  _______   _______
                         
     ____ ____________ _______   _______  _______  _______  _______   _______
     
     ____ ____________ _______   _______  _______  _______  _______   _______
     
     ____ ____________ _______   _______  _______  _______  _______   _______
     
     ____ ____________ _______   _______  _______  _______  _______   _______
     
     ____ ____________ _______   _______  _______  _______  _______   _______
                                                     
     TOTALS                     $_______ $_______ $_______ $_______  $_______
     
     G/L ACCT. NBR.              _______  _______  _______  _______   _______

     
     
     RECORD THE GENERAL LEDGER ENTRY BELOW AND TRANSFER IT TO FORM 1.
     PREPARED BY ____ CHECKED BY ____ TRANSFERRED TO FORM 1 BY ____
     
     G/L
     ACCT.
     NBR.         DEBIT        CREDIT
     
     ____    $ __________  $ __________ (SALES RETURNS AND ALLOWANCES -
                                         DEBIT)
     ____      __________    __________
     
     ____      __________    __________
     
     ____      __________    __________

     ____      __________    __________
     
     ____      __________    __________  
                                                                      
     TOTALS  $ __________  $ __________
     
     NOTE:  USE THIS FORM TO RECORD (1) CASH PAYMENTS AND  (2)  CREDITS  TO 
            ACCOUNTS  RECEIVABLE  FOR  MERCHANDISE WHICH WAS SOLD AND WHICH 
            WAS SUBSEQUENTLY RETURNED BY THE CLIENT.  RECORD CHECK PAYMENTS 
            ON FORM 11.  COLUMNS USED WILL DEPEND UPON THE PREVIOUS GENERAL 
            LEDGER ENTRY. 
     
     
     
     
                                                                       126
     

     The  general  ledger entry to record the return depends upon the entry 
     that was made previously to record the sale .  Generally,  the general 
     ledger entry should cancel (reverse) the previous entry or entries. 
     
     For example, assume that this entry was made to record a sale. 
     
        Accounts Receivable               $1,000.00
          Sales                                      $1,000.00
          
     If  the client returns all of the merchandise,  before making payment, 
     the following entry would record the transaction. 
     
        Sales Returns and Allowances      $1,000.00
          Accounts Receivable                        $1,000.00
     
     
     The client's account should also be reduced by $1,000.00,  or whatever 
     amount  was charged.  Use the "CLIENT ACCT.  NBR." column of FORM 6 to 
     identify the client's account number. 
     
     Cash, in lieu of Accounts Receivable (above), would have been credited 
     if the client had been reimbursed $1,000.00 in cash.  Also, if a sales 
     cash discount was allowed before the  merchandise  was  returned,  the 
     discount should be reversed. 
     

                                                                       127
                            OTHER CASH DISBURSEMENTS
     
     
     FORM 7                                                   DATE: _______
     
     G/L      .................... VENDOR ......................
     ACCT.  ACCT.                                          
     NBR.   NBR.                   NAME                    INVOICE     AMOUNT
     
     ____   ____  ________________________________________ _______  $__________
     
     ____   ____  ________________________________________ _______   __________
     
     ____   ____  ________________________________________ _______   __________
     
     ____   ____  ________________________________________ _______   __________
     
     ____   ____  ________________________________________ _______   __________
     
     ____   ____  ________________________________________ _______   __________
     
     ____   ____  ________________________________________ _______   __________
     
     
            TOTAL CASH PAID                                         $__________
     
     
     RECORD THE GENERAL LEDGER ENTRY BELOW AND TRANSFER IT TO FORM 1.
     PREPARED BY ____ CHECKED BY ____ TRANSFERRED TO FORM 1 BY ____
     
     G/L                                  G/L
     ACCT.                                ACCT.
     NBR.         DEBIT        CREDIT     NBR.       DEBIT       CREDIT
     
     ____     $ __________ $ __________   ____   $ __________ $ __________
     
     ____       __________   __________   ____     __________   __________
     
     ____       __________   __________   ____     __________   __________
     
     ____       __________   __________   ____     __________   __________
     
     ____       __________   __________   ____     __________   __________
     
     
     TOTALS   $ __________ $ __________          $ __________ $ __________
     
     NOTE: EXCEPT FOR SALARIES AND WAGES, USE THIS FORM TO RECORD ALL OTHER 
           CASH  (NOT CHECK) DISBURSEMENTS NOT SHOWN FORMS 4 - 6.  EXAMPLES 
           INCLUDE   ADVANCES  TO  EMPLOYEES AND SECURITY DEPOSITS.  RECORD 
           SALARIES  AND  WAGES   ON  FORMS  12  AND   13.   RECORD   OTHER 
           DISBURSEMENTS BY CHECK ON FORM 12.  
     
     
                                                                       128
                                SALES ON ACCOUNT
    

     FORM 8                                                   DATE: ________
     
     ....... CLIENT ......   SALES                            OTHER
     ACCT.                   INVOICE      SALES     SALES     G/L              
     NBR.        NAME        NBR.         AMOUNT    TAX       ACCT.  AMOUNT   

     ____  _______________  _______     $________ $________   ____ $________ 

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

     ____  _______________  _______      ________  ________   ____  ________  

           TOTALS                       $________ $________        $________
     
           GENERAL LEDGER ACCT. NBR.     ________  ________          


     RECORD THE ENTRY BELOW AND POST IT TO THE GENERAL LEDGER.
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________

     G/L
     ACCT.
     NBR.        DEBIT        CREDIT
     
     ____    $ __________ $ __________ (ACCOUNTS RECEIVABLE - DEBIT)
     
     ____      __________   __________
     
     ____      __________   __________ 
     
     ____      __________   __________ (SALES - CREDIT)
     
     TOTALS  $ __________ $ __________
     
     NOTE:  USE THIS FORM TO  RECORD  SALES  ON  ACCOUNT  THAT  ARE  TO  BE 
            CONSIDERED  AS  ACCOUNTS  RECEIVABLE.  POST THE AMOUNTS TO YOUR 
            GENERAL LEDGER IF ACCOUNTS RECEIVABLE IS INCLUDED IN YOUR CHART 
            OF ACCOUNTS.  IF A PARTIAL PAYMENT IS RECEIVED ON  A  SALE,  AT 
            THE TIME OF THE SALE, RECORD THE ENTIRE RECEIVABLE ON THIS FORM 
            AND THE COLLECTION ON FORM 2. 
     

     
                                                                       129
                    CHECK PAYMENTS FOR MERCHANDISE PURCHASES 
                
     
     FORM 9                                                 DATE: ________
     
             ......... VENDOR .........   . FOR ACCTS. PAY. ONLY .
      CHK.  ACCT.                          INVOICE       CASH        CHECK
      NBR.  NBR.       NAME      INVOICE   AMT. PAID   DISCOUNT      AMOUNT
     
     ____ ____  ________________ _______ $__________ $__________   $__________
     
     ____ ____  ________________ _______  __________  __________    __________
     
     ____ ____  ________________ _______  __________  __________    __________

     ____ ____  ________________ _______  __________  __________    __________

     ____ ____  ________________ _______  __________  __________    __________
     
     ____ ____  ________________ _______  __________  __________    __________
     
     ____ ____  ________________ _______  __________  __________    __________
     
     ____ ____  ________________ _______  __________  __________    __________
     
     ____ ____  ________________ _______  __________  __________    __________
     
      TOTALS                             $__________ $__________   $__________
     
      GENERAL LEDGER ACCT. NBR.           __________  __________    __________
     
     RECORD THE ENTRY BELOW AND POST IT TO THE GENERAL LEDGER.
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________
     
     G/L                                 G/L
     ACCT. CHK.                          ACCT. CHK.
     NBR.  NBR.    DEBIT      CREDIT     NBR.  NBR.    DEBIT   CREDIT
                                       
     ____  ____ $_________ $_________    ____  ____  $________ $________
     
     ____  ____  _________  _________    ____  ____   ________  ________
     
     ____  ____  _________  _________    ____  ____   ________  ________
     
     ____  ____  _________  _________    ____  ____   ________  ________
     
     ____  ____  _________  _________  
     
     TOTALS     $_________ $_________                $________ $________
     
     NOTE: USE THIS FORM TO RECORD CHECK PAYMENTS FOR MERCHANDISE PURCHASES 
           AND  FOR  CHECK  PAYMENTS  FOR  MERCHANDISE PURCHASES PREVIOUSLY 
           RECORDED AS ACCOUNTS PAYABLE.  RECORD THE CHECK NUMBER  AND  THE 
           PAYEE  FOR  EACH  CREDIT TO A BANK ACCOUNT.  USE FORM 4 FOR CASH 
           PAYMENTS FOR MERCHANDISE PURCHASES. 
    
      
                                                                       130
                         OPERATING EXPENSES PAID BY CHECK
                         (OTHER THAN SALARIES AND WAGES)
     
     
     FORM 10                                                 DATE: ________
     
     G/L         ..................... VENDOR ...................
     ACCT. CHK. INVOICE  ACCT.                                        CHECK
     NBR.  NBR.  NBR.    NBR.                NAME                     AMOUNT
     
     ____  ____ _______ ____  ____________________________________ $ __________
                        
     ____  ____ _______ ____  ____________________________________   __________
     
     ____  ____ _______ ____  ____________________________________   __________
     
     ____  ____ _______ ____  ____________________________________   __________
     
     ____  ____ _______ ____  ____________________________________   __________
     
     ____  ____ _______ ____  ____________________________________   __________
     
     ____  ____ _______ ____  ____________________________________   __________
     
     ____  ____ _______ ____  ____________________________________   __________
     
     
            TOTAL                                                  $ __________
     
     RECORD THE ENTRY BELOW AND POST IT TO THE GENERAL LEDGER.
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________
     
     G/L                                 G/L
     ACCT. CHK.                          ACCT. CHK.
     NBR.  NBR.   DEBIT        CREDIT    NBR.  NBR.    DEBIT      CREDIT
                                             
     ____  ____ $_________ $__________  ____  ____ $__________ $__________ 
                                           
     ____  ____  _________  __________  ____  ____  __________  __________
     
     ____  ____  _________  __________  ____  ____  __________  __________
     
     ____  ____  _________  __________  ____  ____  __________  __________
     
     ____  ____  _________  __________  ____  ____  __________  __________
     
    TOTALS      $_________ $__________             $__________ $__________
     
     NOTE: USE  THIS FORM TO RECORD CHECK PAYMENTS FOR OPERATING  EXPENSES, 
           SUCH  AS  POSTAGE,  TRANSPORTATION,  AND OFFICE SUPPLIES AND FOR 
           CHECK PAYMENTS FOR THESE ITEMS PREVIOUSLY RECORDED  AS  ACCOUNTS 
           PAYABLE.  RECORD  THE CHECK NUMBER AND THE PAYEE FOR EACH CREDIT 
           TO A BANK ACCOUNT.  RECORD CASH PAYMENTS FOR OPERATING  EXPENSES 
           ON FORM 5.  RECORD SALARIES AND WAGES DATA ON FORMS 12 AND 13. 
     
     
                                                                       131
                           SALES RETURNS PAID BY CHECK
     
     
     FORM 11                                                   DATE: _______
     
     
           CLIENT
     CHK.  ACCT.             SALES     ACCTS.   CHECK    CASH            SALES
     NBR.  NBR.    CLIENT    INVOICE   REC.     AMT.     DISC.   SALES    TAX  
                                                                         
     ____ ____ ____________ _______ $_______ $_______ $_______ $_______ $_______
     
     ____ ____ ____________ _______  _______  _______  _______  _______  _______
     
     ____ ____ ____________ _______  _______  _______  _______  _______  _______
     
     ____ ____ ____________ _______  _______  _______  _______  _______  _______
     
     ____ ____ ____________ _______  _______  _______  _______  _______  _______
     
     ____ ____ ____________ _______  _______  _______  _______  _______  _______
     
     ____ ____ ____________ _______  _______  _______  _______  _______  _______
     
     
     TOTALS                         $_______ $_______ $_______ $_______ $_______
     
     GENERAL LEDGER ACCT. NBR.       _______  _______  _______  _______  _______
     
     
     RECORD THE ENTRY BELOW AND POST IT TO THE GENERAL LEDGER.
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________
     
     G/L                                  G/L
     ACCT. CHK.                           ACCT. CHK.
     NBR.  NBR.     DEBIT      CREDIT     NBR.  NBR.   DEBIT       CREDIT
     
     ____  ____ $__________ $__________ (SALES RETURNS AND ALLOWANCES - DEBIT) 
               
     ____  ____  __________  __________   ____  ____ $__________ $__________
     
     ____  ____  __________  __________   ____  ____  __________  __________
     
     ____  ____  __________  __________   ____  ____  __________  __________

     ____  ____  __________  __________   ____  ____  __________  __________
     
     ____  ____  __________  __________   ____  ____  __________  __________
     
       TOTALS   $__________ $__________              $__________ $__________
     
     NOTE: USE THIS FORM TO RECORD CHECK PAYMENTS FOR MERCHANDISE WHICH WAS 
           SOLD  AND WHICH WAS SUBSEQUENTLY RETURNED BY THE CLIENT.  RECORD 
           CASH  PAYMENTS  FOR RETURNS ON FORM 6.  COLUMNS USED WILL DEPEND 
           UPON THE  PREVIOUS   GENERAL  LEDGER  ENTRY.  RECORD  THE  CHECK 
           NUMBER AND THE PAYEE FOR EACH CREDIT TO A BANK ACCOUNT. 
     
    
                                                                       132
                            OTHER DISBURSEMENTS BY CHECK
     
     
     FORM 12                                                  DATE: _______
     
     G/L           .................. VENDOR ...................
     ACCT.  CHK. INVOICE  ACCT.
     NBR.   NBR.   NBR.   NBR.              NAME                      AMOUNT
     
     ____   ____ _______ ____  __________________________________  $__________
     
     ____   ____ _______ ____  __________________________________   __________
     
     ____   ____ _______ ____  __________________________________   __________
     
     ____   ____ _______ ____  __________________________________   __________
     
     ____   ____ _______ ____  __________________________________   __________
     
     ____   ____ _______ ____  __________________________________   __________
     
     ____   ____ _______ ____  __________________________________   __________
     
     
            TOTAL                                                  $__________
     
     
     RECORD THE ENTRY BELOW AND POST IT TO THE GENERAL LEDGER.
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________
     
     G/L                                    G/L
     ACCT. CHK.                             ACCT. CHK.
     NBR.  NBR.     DEBIT      CREDIT       NBR.  NBR.    DEBIT       CREDIT
     
     ____ ____  $__________ $__________     ____  ____ $__________ $__________
     
     ____ ____   __________  __________     ____  ____  __________  __________
     
     ____ ____   __________  __________     ____  ____  __________  __________
     
     ____ ____   __________  __________     ____  ____  __________  __________
     
     ____ ____   __________  __________     ____  ____  __________  __________
     
     
     TOTALS     $__________ $__________                $__________ $__________
     
     NOTE:  USE THIS FORM TO RECORD ALL OTHER CHECK DISBURSEMENTS NOT SHOWN 
            FORMS 9 - 11 AND 13.  EXAMPLES INCLUDE  ADVANCES  TO  EMPLOYEES 
            AND  SECURITY  DEPOSITS.  ALSO  USE  THIS  FORM TO RECORD CHECK 
            PAYMENTS TO EMPLOYEES FOR PAYROLL - SEE  FORM  13.  RECORD  THE 
            CHECK  NUMBER  AND THE PAYEE FOR EACH CREDIT TO A BANK ACCOUNT.  
            RECORD OTHER CASH DISBURSEMENTS ON FORM 7.  RECORD SALARIES AND 
            WAGES ON FORM 13. 
            
     
     
                                                                       133
                               SALARIES AND WAGES
     
     
     FORM 13                                                     DATE: ________
                                                FOR PAY PERIOD ENDING:_________
     
                                                           G/L
                                                           ACCT.
                                                           NBR.     AMOUNT
     FROM PAYROLL REGISTER FOR EMPLOYEES:
       REGULAR EARNINGS                  $__________       ____ $__________
                                                           ____  __________
                                                           ____  __________
       OVERTIME EARNINGS                  __________       ____  __________
                                                           ____  __________
                                                           ____  __________
       BONUS EARNINGS                     __________       ____  __________
                                                           ____  __________
                                                           ____  __________
       OTHER PREMIUM PAY EARNINGS         __________       ____  __________
                                                           ____  __________
                                                           ____  __________

        TOTAL DEBITS ................... $__________            $__________
     DEDUCTIONS:
       FEDERAL INCOME TAX                $__________       ____ $__________
       STATE INCOME TAX                   __________       ____  __________
       LOCAL INCOME TAX                   __________       ____  __________
       FICA TAX                           __________       ____  __________
       U.S. SAVINGS BONDS                 __________       ____  __________
       CHARITABLE CONTRIBUTIONS           __________       ____  __________
       OTHER _______________________      __________       ____  __________
             _______________________      __________       ____  __________
             _______________________      __________       ____  __________

         TOTAL CREDITS ................. $__________             __________

     FROM PAYROLL REGISTER, INDIVIDUAL
     TAXES ON EMPLOYERS - CREDITS:
       AMOUNT SUBJECT TO FICA TAX        $__________
         FICA TAX                                          ____ $__________
       AMOUNT SUBJECT TO UNEMPLOYMENT TAX:
         STATE                            __________ 
          STATE UNEMPLOYMENT COMP. TAX                     ____  __________
         FEDERAL                          __________
          FEDERAL UNEMPLOYMENT COMP.TAX                    ____  __________
       OTHER EMPLOYER TAXES:
          ____________________________    __________
          AMOUNT OF TAX                                    ____  __________
          ____________________________    __________
          AMOUNT OF TAX                                    ____  __________
     
         TOTAL EMPLOYER TAX - DEBIT ....                        $__________
     
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________
     
     
     
                                                                       134
     
     
     Use  FORM  13 to summarize information that you record on your Payroll 
     Register.  A Payroll Register is not included with  CPA-LEDGER  or  in 
     this  User's  Manual.   Consult  with  your  local  CPA  if  you  need 
     assistance in this area. 
     
     You should also know that various federal,  state,  and local laws and 
     regulations  require  employers  to keep certain data in their payroll 
     records.  Also,  periodic reports of this data must  be  sent  to  the 
     governmental  agencies  and  remittances  must  be  made  for  amounts 
     withheld from employees and for taxes  levied  on  the  employer.  You 
     should be thoroughly familiar with these laws and regulations.  If you 
     need assistance in this area, consult with your local CPA. 
     
     The  amounts  on  FORM 13 are used to prepare the general ledger entry 
     for payroll.  Typical general ledger entries  for  payroll  are:  (For 
     brevity, all possible accounts are not shown.  Consult with your local 
     CPA  if  you  do  not  understand  the general ledger entries that are 
     required to record the payroll.) 
     
      EMPLOYEES' EARNINGS: 
     
       Office Salaries Expense                            Debit $
       Sales Salaries Expense                             Debit $
       General and Administrative Salaries Expense        Debit $
         Employee Federal Income Tax Payable                       Credit $
         Employee State Income Tax Payable                         Credit $
         Employee FICA Tax Payable                                 Credit $
         Employee Bond Deductions Payable                          Credit $
         Salaries Payable                                          Credit $
     
      EMPLOYER'S PAYROLL TAXES:
     
       Payroll Tax Expense                                Debit $
         Employer FICA Tax Payable                                 Credit $
         State Unemployment Comp. Tax Payable                      Credit $
         Fed. Unemployment Comp. Tax Payable                       Credit $
                          

     Use FORM 12 to record the  check  payments  for  the  various  payable 
     accounts shown above. 
     
     
                                                                       135
                              PURCHASES ON ACCOUNT
    
     FORM 14                                                  DATE: ________
     
     ....... VENDOR ......   PURCHASE     MDSE.      OTHER
     ACCT.                   INVOICE      PURCHASE   G/L             ACCOUNTS  
     NBR.        NAME        NBR.         AMOUNT     ACCT.  AMOUNT   PAYABLE

     ____  _______________  _______     $________    ____ $________ $________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

     ____  _______________  _______      ________    ____  ________  ________ 

           TOTALS                       $________         $________ $________
     
           GENERAL LEDGER ACCT. NBR.     ________          ________  ________  


     RECORD THE ENTRY BELOW AND POST IT TO THE GENERAL LEDGER.
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________

     G/L                                  G/L
     ACCT.                                ACCT.
     NBR.        DEBIT        CREDIT      NBR.       DEBIT       CREDIT
     
     ____    $ __________ $ __________    ____   $ __________ $ __________
     
     ____      __________   __________    ____     __________   __________
     
     ____      __________   __________    ____     __________   __________
     
     TOTALS  $ __________ $ __________           $ __________ $ __________
     
     NOTE:  USE THIS FORM TO RECORD PURCHASES ON ACCOUNT  THAT  ARE  TO  BE 
            CONSIDERED  AS  ACCOUNTS  PAYABLE.  POST  THE  AMOUNTS  TO YOUR 
            GENERAL LEDGER IF ACCOUNTS PAYABLE IS INCLUDED IN YOUR CHART OF 
            ACCOUNTS.  IF A  PARTIAL PAYMENT IS MADE AT  THE  TIME  OF  THE 
            PURCHASE,  RECORD  THE  ENTIRE  PURCHASE  ON  THIS FORM AND THE 
            PARTIAL PAYMENT ON EITHER FORM 4, FORM 5, FORM 9, OR FORM 10. 
     
      
     
                                                                       136
                                PURCHASES RETURNS
     
     
     FORM 15                                                   DATE: _______
     
            
      ........ VENDOR .......                                      OTHER
     ACCT.                       ACCT    CASH   CASH      MDSE.    G/L  
     NBR.    NAME      INVOICE   PAY.    RECD.  DISCOUNT  PUR.     ACCT.   AMT.

     ____ ____________ ______ $_______ $_______ $_______ $_______  ____ $_______
     
     ____ ____________ ______  _______  _______  _______  _______  ____  _______
                         
     ____ ____________ ______  _______  _______  _______  ______   ____  _______
     
     ____ ____________ ______  _______  _______  _______  _______  ____  _______
     
     ____ ____________ ______  _______  _______  _______  _______  ____  _______
     
     ____ ____________ ______  _______  _______  _______  _______  ____  _______
     
     ____ ____________ ______  _______  _______  _______  _______  ____  _______
     
     TOTALS                   $_______ $_______ $_______ $_______       $_______
     
     G/L ACCT. NBR.            _______  _______  _______  _______        _______

     
     RECORD THE GENERAL LEDGER ENTRY BELOW AND TRANSFER IT TO FORM 1.

     PREPARED BY ____ CHECKED BY ____ TRANSFERRED TO FORM 1 BY ____
     
     G/L
     ACCT.
     NBR.         DEBIT        CREDIT
     
     ____    $ __________  $ __________  
                                         
     ____      __________    __________
     
     ____      __________    __________
     
     ____      __________    __________

     ____      __________    __________
     
     ____      __________    __________  (PURCHASE RETURNS & ALLOWANCES - 
                                          CREDIT)
     TOTALS  $ __________  $ __________
     
     NOTE:  USE THIS FORM TO RECORD PURCHASES WHICH WERE  RETURNED  TO  THE 
            VENDOR.  COLUMNS  USED  WILL  DEPEND  UPON THE PREVIOUS GENERAL 
            LEDGER ENTRY. 
     
     
     
     
                                                                       137
     

     The  general  ledger entry to record the return depends upon the entry 
     that was made previously to  record  the  purchase  .  Generally,  the 
     general  ledger  entry  should  cancel (reverse) the previous entry or 
     entries. 
     
     For example, assume that this entry was made to record a purchase. 
     
        Merchandise Purchases             $1,000.00
          Accounts Payable                          $1,000.00
          
     If you return all of  the  merchandise,  before  making  payment,  the 
     following entry would record the transaction. 
     
        Accounts Payable                  $1,000.00
          Purchase Returns and Allowances           $1,000.00
     
     
     The vendor's account should also be reduced by $1,000.00,  or whatever 
     amount was credited.  Use the "VENDOR ACCT. NBR." column of FORM 15 to 
     identify the vendor's account number. 
     
     Cash, in lieu of Accounts Payable (above),  would have been debited if 
     you had received the $1,000.00.  Also, if a purchase cash discount was 
     allowed  before  the merchandise was returned,  the discount should be 
     reversed. 
     
     
                                                                      138
                                             
                                  DEPRECIATION
                 FOR PERIOD FROM ____________  TO _____________
     
     
     FORM 16                                              DATE: _________
     
     G/L                                         PRIOR
     ACCT.                                       ACCUMULATED    DEPRECIATION
     NBR.          ASSET              COST       DEPRECIATION   THIS PERIOD
     
     ____    _____________________ $___________  $___________  $___________
     
     ____    _____________________  ___________   ___________   ___________
     
     ____    _____________________  ___________   ___________   ___________
     
     ____    _____________________  ___________   ___________   ___________
     
     ____    _____________________  ___________   ___________   ___________
     
     ____    _____________________  ___________   ___________   ___________
     
     ____    _____________________  ___________   ___________   ___________
     
        TOTAL                                                  $___________
     
     RECORD THE ENTRY BELOW AND POST IT TO THE GENERAL LEDGER.
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________
     
     G/L
     ACCT.
     NBR.         DEBIT       CREDIT
     
     ____     $__________ $__________
     
     ____      __________  __________
     
     ____      __________  __________
     
     ____      __________  __________
     
     ____      __________  __________
  
     TOTALS   $__________ $__________
     
     
     NOTE:  ATTACH  APPROPRIATE  DEPRECIATION SCHEDULES TO THIS FORM.  EACH 
            DEPRECIATION SCHEDULE  SHOULD,  AT  A  MINIMUM,  SHOW  THE  (1) 
            ASSET'S COST,  (2) ACCUMULATED DEPRECIATION AT THE BEGINNING OF 
            THE PERIOD (3) BOOK VALUE AT THE BEGINNING OF THE  PERIOD,  (4) 
            METHOD   OF   DEPRECIATION  BEING  USED,   (5)  COMPUTATION  OF 
            DEPRECIATION  EXPENSE  FOR  THE   CURRENT   PERIOD,   AND   (6) 
            UNDEPRECIATED ASSET BALANCE AT THE END OF THE PERIOD. 
     
     
                                                                       139
                          OTHER GENERAL LEDGER ENTRIES
     
     
     FORM 17                                             DATE: __________
     
     G/L                  .... CLIENT .....      .... VENDOR .....
     ACCT. CHK. INVOICE  ACCT.                 ACCT.
     NBR.  NBR.   NBR.   NBR.       NAME       NBR.        NAME        AMOUNT
     
     ____ ____  _______ ____ ________________  ____ ________________ $________
     
     ____ ____  _______ ____ ________________  ____ ________________  ________
                                
     ____ ____  _______ ____ ________________  ____ ________________  ________
     
     ____ ____  _______ ____ ________________  ____ ________________  ________
     
     ____ ____  _______ ____ ________________  ____ ________________  ________
     
     ____ ____  _______ ____ ________________  ____ ________________  ________
     
        TOTAL                                                        $________
     
     RECORD THE ENTRY BELOW AND POST IT TO THE GENERAL LEDGER.
     PREPARED BY ____ CHECKED BY ____ POSTED BY ____ DATE ________
     
     G/L                                G/L
     ACCT. CHK.                             ACCT. CHK.
     NBR.  NBR.      DEBIT      CREDIT      NBR   NBR.    DEBIT       CREDIT
                                        
     ____  ____  $__________ $__________    ____  ____ $__________ $__________
     
     ____  ____   __________  __________    ____  ____  __________  __________
     
     ____  ____   __________  __________    ____  ____  __________  __________
     
     ____  ____   __________  __________    ____  ____  __________  __________
     
     ____  ____   __________  __________    ____  ____  __________  __________
     
     ____  ____   __________  __________    ____  ____  __________  __________
     
     TOTALS      $__________ $__________               $__________ $__________


     NOTE: USE THIS FORM TO SUMMARIZE ANY GENERAL LEDGER ENTRY NOT PROVIDED 
           FOR  BY FORMS  1 - 16.  EXAMPLES INCLUDE RECORDING UNCOLLECTIBLE 
           ACCOUNTS, RECORDING UNREALIZED LOSSES ON SHORT-TERM INVESTMENTS, 
           RECORDING  AMORTIZATION  OF  INTANGIBLE  ASSETS,  AND  RECORDING 
           RETIREMENT  OF  AN  ASSET  WHEN  NO  CASH  IS  INVOLVED  IN  THE 
           TRANSACTION.  RECORD THE CHECK NUMBER AND  THE  PAYEE  FOR  EACH 
           CREDIT TO A BANK ACCOUNT. 

     





















CHKREG.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM CHKREG.BAS
1010 CLEAR: ON ERROR GOTO 2580
1080 CLS: LOCATE 10,1: PRINT"WOULD YOU LIKE A BRIEFING ON HOW TO USE THIS COMPUTER PROGRAM?": PRINT
1090 LOCATE 12,1: PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO'.": ROW=12: COLUMN=40: LENGTH=1: GOSUB 3150
1100 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 1120
1110 GOTO 1090
1120 IF I8$="N" OR I8$="n" THEN GOTO 1210
1130 CLS: LOCATE 5,1
1140 PRINT"THIS COMPUTER PROGRAM PRINTS TRANSACTIONS THAT HAVE EITHER INCREASED OR "
1150 PRINT"DECREASED THE BANK ACCOUNT(S).  EACH BANK ACCOUNT, IF THERE IS MORE THAN ONE,"
1160 PRINT"CAUSES A SEPARATE PRINTOUT.  BANK TRANSACTIONS ARE SELECTED BASED ON CRITERIA"
1170 PRINT"THAT YOU SUPPLY.  THE SELECTION CRITERIA IS EITHER A MONTH, A RANGE OF MONTHS,"
1180 PRINT"OR FOR THE ENTIRE ACCOUNTING PERIOD TO DATE.": PRINT
1190 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE."
1200 GOSUB 2680: GOSUB 3360
1210 CLS: GOSUB 2470   'OPEN G/L FILE
1220 INPUT #3,F1: FOR I = 1 TO F1-1: INPUT #3,F2: IF I <> 4 THEN GOTO 1240
1230 DIM A(F2): R1=F2: FOR J = 1 TO R1: INPUT #3,F2: A(J)=F2: NEXT J: INPUT #3,F1: INPUT #3,F1: INPUT #3,T1$: GOTO 1250
1240 NEXT I
1250 IF R1 < 11 THEN GOTO 1330  'R1=QTY BANK ACCTS
1260 CLS: LOCATE 10,1
1270 PRINT"MORE THAN 10 BANK ACCOUNTS SPECIFIED IN INTERNAL FILE.  THIS RUN WILL BE"
1280 PRINT"THIS ERROR IS PROBABLY DUE TO CHANGING THE IMPUT IN THE INTERNAL FILE.  WHEN"
1290 PRINT"THE INTERNAL FILE (NAMED `PASACT.FIL') CONTAINS INCORRECT DATA, OUTPUT FROM"
1300 PRINT"OTHER COMPUTER PROGRAMS WILL PROBABLY BE INCORRECT.  SO, YOU SHOULD NOT"
1310 PRINT"USE ANY OF THE SOFTWARE UNTIL THE ERROR IS CORRECTED.": PRINT
1320 PRINT"PRESS ANY KEY TO RETURN TO THE DAILY MENU.": GOSUB 2680: GOSUB 3360: GOTO 3390
1330 R2=4
1340 LOCATE 10,1: PRINT"ENTER TODAY'S DATE. USE FORMAT MMDDYY. (I.E., JUNE 8, 1984 = 060884).";: GOSUB 2680: ROW=10: COLUMN=73: LENGTH=6: GOSUB 3150
1350 GOSUB 2510: IF F1 <> 0 OR LEN(I8$) < 6 THEN GOTO 1340
1360 GOSUB 2430: IF F1 <> 0 THEN GOTO 1340
1370 I88$=I8$
1380 CLS: LOCATE 5,1: PRINT"SELECT ONE OF THE FOLLOWING NUMBERS.  THE NUMBER THAT YOU SELECT WILL DETERMINE"
1390 PRINT"WHICH ADDITIONAL QUESTIONS ARE TO BE ASKED ABOUT THE TIME PERIOD.": PRINT
1400 PRINT" 1. A SPECIFIC TRANSACTION MONTH, SUCH AS MAY."
1410 PRINT" 2. A RANGE OF TRANSACTION MONTHS, SUCH AS FROM MAY TO SEPTEMBER."
1420 PRINT" 3. DISREGARD THE TRANSACTION DATE. (THE DATE WILL WILL IGNORED.)"
1430 LOCATE 12,1: PRINT"WHICH NUMBER DO YOU SELECT? (ENTER 1 OR 2 OR 3.)";: GOSUB 2680: ROW=12: COLUMN=59: LENGTH=1: GOSUB 3150: I11$=I8$: GOSUB 2510
1440 IF F1=0 AND VAL(I11$) > 0 AND VAL(I11$) < 4 THEN GOTO 1460
1450 GOTO 1430
1460 IF I11$="1" THEN I12$="DURING A SPECIFIC TRANSACTION MONTH.": GOTO 1490
1470 IF I11$="2" THEN I12$="DURING A RANGE OF MONTHS.": GOTO 1490
1480 IF I11$="3" THEN M1$="1": M2$="12": M1=1: M2=12: FF2=1: GOTO 1620
1490 LOCATE 14,1: PRINT"YOU INDICATED YOUR DESIRE TO LIMIT THE PRINTOUT TO TRANSACTIONS THAT OCCURRED "
1500 PRINT I12$;: PRINT
1510 IF I11$="2" THEN GOTO 1550
1520 LOCATE 17,1: PRINT"ENTER THE TRANSACTION MONTH. (USE FORMAT MM. I.E., JULY = 07).";: ROW=17: COLUMN=67: LENGTH=2: GOSUB 3150: M1$=I8$: GOSUB 2510
1530 IF F1=0 AND VAL(M1$) > 0 AND VAL(M1$) < 13 AND LEN(M1$) > 1 THEN  M1=VAL(M1$): M2=VAL(M1$): GOTO 1620     'M2=ENDING MONTH
1540 GOTO 1520
1550 LOCATE 17,1: PRINT"ENTER THE BEGINNING (LOW) MONTH.  (USE FORMAT MM. I.E., JULY = 07).";: ROW=17: COLUMN=71: LENGTH=2: GOSUB 3150: M1$=I8$: GOSUB 2510   'M1$=BEG MTH.
1560 IF F1=0 AND VAL(M1$) > 0 AND VAL(M1$) < 13 AND LEN(M1$) > 1 THEN GOTO 1580
1570 GOTO 1550
1580 LOCATE 18,1: PRINT"ENTER THE ENDING (HIGH) MONTH. (USE FORMAT MM. I.E., OCTOBER = 10).";: ROW=18: COLUMN=71: LENGTH=2: GOSUB 3150: M2$=I8$: GOSUB 2510
1590 IF F1=0 AND VAL(M2$) > 0 AND VAL(M2$) < 13 AND LEN(M2$) > 1 THEN GOTO 1610
1600 GOTO 1580
1610 M1=VAL(M1$): M2=VAL(M2$): IF M2 =< M1 THEN GOTO 1550
1620 CLS: GOSUB 2560: GOSUB 2570: IF Z89=0 THEN GOSUB 2180
1630 Z89=1
1640 'READ G/L FILE
1650 F20=0
1660 FOR O = 1 TO R1  'R1=# OF BANK ACCTS.
1670 C1=A(O)  'A( CONTAINS BANK ACCOUNT NUMBERS
1680 C4=0: C6#=0#: C8#=0# : C9#=0#
1690 GOSUB 2730       'READ G/L
1692 LOCATE 15,28: PRINT SPACE$(32)
1694 LOCATE 15,24: PRINT"FOR: ";I3$
1700 IF W1 = 1 THEN GOTO 1740
1710 CLS: LOCATE 10,1
1720 PRINT"AN INACTIVE ACCOUNT NUMBER WAS FOUND IN 'ACTDTL.FIL'.  THIS RUN WILL BE"
1730 PRINT"TERMINATED.  PRESS ANY KEY TO RETURN TO THE DAILY MENU.": GOSUB 2680: GOSUB 3360: GOTO 3390
1740 GOSUB 2690     'C3#=ACCT BAL
1750 IF C2=1 THEN CLOSE #2
1760 C2=1
1770 OPEN "GENJNL.FIL" FOR INPUT AS #2
1780 ' I7$ = TRANSACTION DATE
1790 ' I1  = ACCT. NBR.
1800 ' I2$ = D OR 2 FOR DEBIT - C OR 1 FOR CREDIT
1810 ' J1$ = POSTING REF
1820 ' F6$ = CHECK NUMBER OR 1 BLANK
1830 ' I2# = TRANS $
1840 ' F90$ = PAYEE IF A CHECK
1850 ' F100$=JV EXPLANATION
1860 'READ TRANSACTION FILE
1870 H5=0: CT1=0  'H5 SET TO 1 IF A XACTION IS PRINTED
1872 LOCATE 18,42: PRINT SPACE$(10)
1880 WHILE NOT EOF(2)
1882 CT1=CT1+1
1890 INPUT #2,F1: IF F1 <> 0 THEN GOTO 1910
1900 INPUT #2,F100$,J1$,I7$: GOTO 2000
1910 I1=F1: INPUT #2,I2$,I2#,F6$,F90$
1912 LOCATE 18,24:PRINT"EXAMINING DEBIT/CREDIT NUMBER ";CT1
1920 IF I1 <> C1 THEN GOTO 2000
1930 C5$=LEFT$(I7$,2): C5=VAL(C5$)    'C5=XACTION MONTH
1940 IF I2$="C" OR I2$="1" THEN I2#=I2# * -1#
1950 IF C5 < M1 THEN C6#=C6# + I2#: GOTO 2000   'C6#=BEG BAL FOR XACTIONS
1960 IF C5 > M2 THEN GOTO 2000
1970 GOSUB 2380   'SET SPACE FOR PRINT
1980 GOSUB 3000: GOSUB 2350: H5=1: Z88=1   'PRINT XACTION
1990 C8#=C8# + I2#    'C8#=VAL OF PRINTED XACTIONS
2000 WEND
2010 ' OUT OF TRANSACTION FILE.
2020 IF H5=0 THEN GOTO 2060
2030 C9#=C6#+C8# 'C9#=ACCT BAL C6#=VAL PRIOR XACTION
2040 C10#=C6#  'C6#= PRIOR XACTIONS C10#=BEG BAL
2050 GOSUB 2880  'PRINT TOTS
2060 NEXT O
2070 ' OUT OF LOOP
2080 IF Z88=1 THEN GOTO 2120
2090 CLS: LOCATE 10,1
2100 PRINT"NO BANK TRANSACTIONS WERE FOUND THAT MET YOUR SELECTION CRITERIA.
2110 PRINT"DO YOU WISH TO TRY AGAIN?": GOSUB 3560: GOTO 2150
2120 CLS: LOCATE 10,1
2130 PRINT"ALL BANK TRANSACTIONS THAT YOU SELECTED HAVE BEEN PRINTED."
2140 PRINT"DO YOU WISH TO PRINT ADDITIONAL BANK TRANSACTIONS?": GOSUB 3560
2150 IF I8$="Y" OR I8$="y" THEN Z88=0: Z89=0: FF2=0: CLS: LOCATE 10,32: PRINT "STAND BY.": P4=66-P3: GOSUB 2170: GOTO 1380
2160 CLS: LOCATE 12,1: FOR I = 1 TO 10: LPRINT: NEXT I: GOTO 3390
2170 FOR L = 1 TO P4: LPRINT: NEXT L: RETURN
2180 P2=P2+1: P3=14
2190 FOR L = 1 TO 6
2200 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";P2: GOTO 2230
2210 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: IF L=5 THEN GOSUB 2340: LPRINT: GOTO 2230
2220 LPRINT
2230 NEXT L
2240 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
2250 T4$= "CHECK REGISTER": F1=LEN(T4$): F1=40-(INT(F1)/2): LPRINT SPACE$(F1) T4$
2260 IF FF2=1 THEN LPRINT SPC(36) "ALL DATES": GOTO 2290
2270 IF I11$="1" THEN LPRINT SPC(35) "FOR MONTH ";M1$: GOTO 2290
2280 LPRINT SPC(29) "FOR MONTHS ";M1$;" THROUGH ";M2$
2290 LPRINT: LPRINT
2300 LPRINT "ACCT." SPC(9) "PAYEE (IF A DECREASE)" SPC(10) "POSTING" SPC(4) "CHECK"
2310 LPRINT SPC(1) "NBR." SPC(2) "DATE" SPC(3) "EXPLANATION (IF AN INCREASE)" SPC(3) "REFERENCE" SPC(2) "NUMBER" SPC(10) "AMOUNT"
2320 LPRINT
2330 RETURN
2340 LPRINT LEFT$(I88$,2);"/";MID$(I88$,3,2);"/";RIGHT$(I88$,2);: RETURN
2350 P3=P3+1
2360 IF P3>60 THEN P4=66-P3: GOSUB 2170: GOSUB 2180
2370 RETURN
2380 IF I40# > 999999.99# THEN P1=1: FORMAT3$="###########,.##-": GOTO 2420
2390 IF I40# > 999.99# THEN P1=5: FORMAT3$="#######,.##-": GOTO 2420
2400 IF I40# > 0.99# THEN P1=10: FORMAT3$="###.##-": GOTO 2420
2410 IF I40# < 1# THEN P1=13: FORMAT3$=".##-": GOTO 2420
2420 RETURN
2430 F1=0: D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 2460
2440 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 2460
2450 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1
2460 RETURN
2470 OPEN "PASACT.FIL" FOR INPUT AS #3
2480 OPEN "R",1,"GENLEG.FIL",111
2490 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
2500 RETURN
2510 F1=0
2520 FOR I = 1 TO LEN(I8$)
2530 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN F1=1: I=LEN(I8$)
2540 NEXT I
2550 RETURN
2560 LOCATE 10,32: PRINT"PLEASE STAND BY.": RETURN
2570 LOCATE 11,32: PRINT"SEARCHING FILE.": RETURN
2580 IF ERR=53 THEN GOTO 2610
2590 IF ERR= 25 OR ERR=27 THEN GOTO 2640
2600 ON ERROR GOTO 0
2610 CLS: LOCATE 10,2
2620 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
2630 PRINT"TO THE DAILY MENU.": GOSUB 2680: GOSUB 3360: GOTO 3390
2640 CLS: LOCATE 10,2
2650 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
2660 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 2680: GOSUB 3360
2670 CLS: RESUME
2680 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
2690 D1#=I3#+I5#  'D1#=SUM DR. - THIS PERIOD.
2700 D2#=(I4#+I6#) * -1#   'D2#=SUM CR. - THIS PERIOD.
2710 IF I4$="D" OR I4$= "1" THEN C3#=D1#+D2# ELSE C3#=D2#+D1#  'C3#=ACCT BAL
2720 RETURN
2730 GET 1,C1
2740 I1$=X1$  'ACCOUNT CLASSIFICATION
2750 I3$=X2$  'ACCOUNT TITLE
2760 Z1$=X3$  'LAST TRANS DATE
2770 W1=VAL(X4$)   'ACCT STATUS (0=INACTIVE,1=ACTIVE)
2780 Z2=CVS(X5$)  'ACCOUNT NUMBER
2790 I2=VAL(X7$)  'ACCT TYPE CODE
2800 I4$=X8$  'D=DR C=CR
2810 Z3$=X9$  'POSTING REF.
2820 I3#=CVD(Y1$)   'OPENING DEBIT
2830 I4#=CVD(Y2$)  'OPENING CREDIT
2840 I5#=CVD(Y3$)  'PERIOD DEBITS
2850 I6#=CVD(Y4$)  'PERIOD CREDITS
2860 RETURN
2870 'PRINT TOTALS
2880 I40#=C8#: IF I40# < 0# THEN I40# =I40# * -1#  'C8#=PNTED XACTIONS
2890 GOSUB 2380
2900 LPRINT: LPRINT SPC(11) "VALUE OF ABOVE TRANSACTIONS" SPC(24) SPC(P1);: LPRINT USING FORMAT3$; C8#
2910 I40#=C10#: IF I40# < 0# THEN I40# = I40# * -1#
2920 GOSUB 2380
2930 LPRINT SPC(11) "BEGINNING BALANCE PRIOR TO ABOVE TRANSACTIONS" SPC(6) SPC(P1);: LPRINT USING FORMAT3$; C10#
2940 I40#=C9#: IF I40# < 0# THEN I40# = I40# * -1#
2950 GOSUB 2380
2960 LPRINT SPC(11) "ENDING BALANCE AFTER ABOVE TRANSACTIONS" SPC(12) SPC(P1);: LPRINT USING FORMAT3$;C9#
2970 LPRINT SPC(11) "ACCOUNT NAME (FOR ABOVE DATA) IS " SPC(3) I3$
2980 LPRINT: LPRINT: P3=P3+7: GOSUB 2350: RETURN
2990 ' PRINT A TRANSACTION
3000 LPRINT USING "####";I1;: LPRINT SPC(1);   'ACCT #
3010 LPRINT LEFT$(I7$,2) "/" MID$(I7$,3,2) "/" RIGHT$(I7$,2) SPC(1);   'DATE
3020 IF I2$="C" OR I2$="1" THEN GOTO 3050
3030 F1=LEN(F100$): F1=31-F1
3040 LPRINT F100$ SPC(F1): GOTO 3070
3050 F1=LEN(F90$): F1=31-F1
3060 LPRINT F90$ SPC(F1);
3070 F1=LEN(J1$): F1=11-F1
3080 LPRINT J1$ SPC(F1);    'POSTING REF.
3090 F1=LEN(F6$): F1=6-F1
3100 IF F1=0 THEN LPRINT F6$: GOTO 3120
3110 LPRINT F6$ SPC(F1);    'CHECK #
3120 I40#=I2#: IF I40# < 0# THEN I40#=I40# * -1#
3130 GOSUB 2380
3140 LPRINT SPC(P1);: LPRINT USING FORMAT3$;I2#: RETURN
3150 GOSUB 2680: I8$=""
3160 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
3170 LOCATE ROW,COLUMN
3180 PRINT I8$;
3190 POINTER = 1: A$=" "
3200 WHILE (ASC(A$) <> 13)
3210 A$ = INPUT$(1)
3220 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 3340
3230 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 3290
3240 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 3340
3250 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 3320
3260 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 3320
3270 IF (ASC(A$) <> 8) THEN GOTO 3310
3280 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
3290    MID$(I8$,POINTER-1,1) = CHR$(254)
3300    POINTER = POINTER -1
3310 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
3320 LOCATE ROW,COLUMN
3330 PRINT I8$
3340 WEND
3350 RETURN
3360 K$=INKEY$
3370 IF K$="" THEN GOTO 3360
3380 RETURN
3390 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END
3560 LOCATE 13,1
3570 PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO'."
3580 ROW=13: COLUMN=40: LENGTH=1: GOSUB 3150
3590 IF I8$ = "Y" OR I8$="y" OR I8$ = "N" OR I8$="n" THEN GOTO 3610
3600 GOTO 3580
3610 RETURN

CHP12-14.TXT

 
     
                                                                        
                                                                        83
                                   CHAPTER 12
               
                             DAILY MENU  -  OPTION 7
     
     
     
     
     
     WHAT OPTION 7 IS USED FOR.
     
     DAILY Option 7 is used to print a complete  listing  of  your  general 
     ledger accounts. 
          
     As explained in Chapter 3, SETUP Option 1 is used to identify accounts 
     that  are to be included in your general ledger.  While SETUP Option 1 
     is establishing your general ledger,  according to your  instructions, 
     it also automatically adds extra accounts for use at a later time. 
     
          .  The  accounts that you identify to SETUP Option 1 are referred 
             to as "active accounts". 
     
          .  The extra  accounts  that  Option  1  automatically  adds  are 
             referred to as "inactive accounts". 
     

     You may use DAILY Option 7 to print:
     
          .  Active accounts only, or
     
          .  Inactive accounts only, or
     
          .  Both active and inactive accounts.       

     
     A printout from Option 7 will show:
          
          .  For each "active account" the:

             .  Account  classification,  such as Current Assets or Current 
                Liabilities. 
      
             .  Account number.
     
             .  Account title, such as Cash in Bank.
     
             .  Year's opening balance.
     
             .  Cumulative sum of all charges to the account.
         
     
     
                                                                        84
     

          .  For each "inactive account" the:
     
             .  Account classification,  such as Current Assets or  Current 
                Liabilities. 
     
             .  Account number.
     
             .  Words "INACTIVE ACCOUNT".
     
     If  you  want  to  add another account to the general ledger,  get the 
     account number (an inactive account) from a DAILY  Option  7  printout 
     (this  chapter).  Then use that account number in DAILY Option 8 (next 
     chapter). 
     
     Or,  perhaps you will want to use Option  7  to  determine  the  total 
     values  that  have  been  added  to  each of the active general ledger 
     accounts.  As explained above, the printout will list the total values 
     for your review. 
     
     
     OPTION 7 SEQUENCE OF EXECUTION AND AN ILLUSTRATION.
     
     Refer to Chapter 2 for the standard messages and  reminders  that  are 
     part  of  Option  7.  After  the standard messages and reminders,  the 
     following appears on your computer screen: 
            
       WOULD YOU LIKE A BRIEFING ON HOW TO USE THIS PROGRAM TO BE DISPLAYED  
       ON THE COMPUTER SCREEN? (ENTER `Y' FOR `YES' OR `N' FOR `NO').   _
     
     If your response is `Y' the following appears:  (If you  respond  with 
     `N', the briefing is bypassed.) 
               
       THIS COMPUTER PROGRAM PRINTS A CHART OF GENERAL LEDGER ACCOUNTS.  
       YOU WILL BE GIVEN THE OPTIONS OF:
     
        1.  PRINTING ACTIVE ACCOUNTS ONLY, OR
        2.  PRINTING INACTIVE ACCOUNTS ONLY, OR
        3.  PRINTING BOTH ACTIVE AND INACTIVE ACCOUNTS.
     
       (ACTIVE  ACCOUNTS  ARE  ACCOUNTS  THAT  SETUP  OPTION 1 ADDED TO THE 
       GENERAL LEDGER,  IN  ACCORDANCE  WITH  YOUR  INSTRUCTIONS.  INACTIVE 
       ACCOUNTS  ARE  ACCOUNTS  THAT SETUP OPTION 1 AUTOMATICALLY ADDED FOR 
       FUTURE  EXPANSION  OF  ACTIVE  GENERAL  LEDGER  ACCOUNTS.   INACTIVE 
       ACCOUNTS  ARE  IDENTIFIED  IN  THE  PRINTOUT  BY THE WORDS `INACTIVE 
       ACCOUNT'.) 
     
       PRESS ANY KEY TO CONTINUE.
     
     
      
                                                                        85
     

     After you press a key, Option 7 asks for TODAY'S DATE, as explained in 
     Chapter 2 (STANDARD MESSAGES  AND  REMINDERS).  After  you  enter  the 
     date,  Option 7 asks you to enter which accounts you wish to print, as 
     follows: (The assumed input is "3".) 
     
     
     
       SELECT THE OPTION OF YOUR CHOICE.
           ENTER `1' FOR PRINTING ACTIVE ACCOUNTS ONLY, OR
           ENTER `2' FOR PRINTING INACTIVE ACCOUNTS ONLY, OR
           ENTER `3' FOR PRINTING BOTH ACTIVE AND INACTIVE ACCOUNTS.   3
     
     
     
     After making your entry, Option 7 begins printing.
     
     
     ERROR MESSAGES.
     
     There  are  several types of errors that you might make while entering 
     your input into Option 7.  An example is an entry of 13 for  a  month. 
     Another  example  is  a  number  that is not within a range of numbers 
     requested. 
     
     If you make an input error,  Option 7 refuses to  continue  until  you 
     reenter  your  answer.  Instructions will be displayed on the computer 
     screen so that you may determine the correct input. 
     
     
     PRINTED OUTPUT.
     
     The following sample printout assumes that all active and all inactive 
     general  ledger  accounts are to be printed.  For brevity,  only a few 
     accounts are shown in the sample printout. 
     
     
     
                                                                        86
     
     
                                                                     PAGE 1
                                                         RUNDATE   06/16/85
     
                               ABC WHOLESALE, INC.
              CHART OF ACTIVE AND INACTIVE GENERAL LEDGER ACCOUNTS
     
     
    
     ACCOUNT CLASSIFICATIONS                             ACCOUNT    ACCOUNT
           AND TITLES                                    BALANCE    NUMBER
     
     *************************  BALANCE SHEET  ***************************
     CURRENT ASSETS
      INACTIVE ACCOUNT                                              1
      INACTIVE ACCOUNT                                              2
      CASH IN BANK                                      20,847.06       3
        OPENING BALANCE - DEBIT         12,620.10
        OPENING BALANCE - CREDIT              .00
        SUM OF PERIOD DEBITS            20,301.04
        SUM OF PERIOD CREDITS           12,074.08   
      INACTIVE ACCOUNT                                               4
      INACTIVE ACCOUNT                                               5
      INACTIVE ACCOUNT                                               6
      SHORT-TERM INVESTMENTS                             4,500.00       7
        OPENING BALANCE - DEBIT          4,500.00
        OPENING BALANCE - CREDIT              .00
        SUM OF PERIOD DEBITS                  .00
        SUM OF PERIOD CREDITS                 .00
      INACTIVE ACCOUNT                                               8
      INACTIVE ACCOUNT                                               9
      INACTIVE ACCOUNT                                              10
     
     
     
     The printout will continue in a similar manner until all Balance Sheet 
     accounts are printed.  Then, the Income Statement accounts will start. 
     
     
     Practice.
     
     Use Option 7 and your practice general ledger to print all active  and 
     inactive general ledger accounts. 
     
     
                                                                        87
     
                                   CHAPTER 13

                             DAILY MENU  -  OPTION 8
     
     
     
     
     
     WHAT OPTION 8 IS USED FOR.
     
     Use  Option  8  whenever  you  want  to  add an account to the general 
     ledger. 
     
     As explained in Chapter 3, SETUP Option 1 is used to identify accounts 
     that are to be included in your general ledger.  While SETUP Option  1 
     is  establishing your general ledger,  according to your instructions, 
     it also automatically adds extra accounts for use at a later time. 
     
          .  The accounts that you identify to SETUP Option 1 are  referred 
             to as "active accounts". 
     
          .  The  extra  accounts that are automatically added are referred 
             to as "inactive accounts". 
     
     Use the "inactive accounts" if you want to add new  accounts  to  your 
     general   ledger.   Option   8  will  remove  the  "inactive  account" 
     designation and will assign whatever account name that you specify. 
     
     It is important WHERE,  in the general ledger,  that  you  add  a  new 
     account. 

     For example, assume that you want to add the account Sales Returns and 
     Allowances.  Like any other new account,  this account should be added 
     so that it will follow the account to which it is related.  (Sales, in 
     this case.) 

     Another  example  might  be  a  new bank account.  You should add this 
     account immediately after the bank account that is  currently  in  the 
     general ledger.  If there is no related account in the general ledger, 
     add  the  new  account  where  it should normally appear - immediately 
     before accounts receivable, for a bank account. 
     
     The reason for this requirement is related to the logic built into the 
     computer  programs  that  print  the  Balance  Sheet  and  the  Income 
     Statement.  The  logic,  with  certain  exceptions,  assumes  that the 
     accounts are in the order that they should  appear  in  the  financial 
     statements.  
     
     This should not prove to be a problem to you.  Merely use DAILY Option 
     7  to  print  all  active  and inactive accounts.  Use the printout to 
     determine the available  accounts  (those  with  the  words  "Inactive 
     Account") and the account number to be used. 
     
      
     
                                                                        88
     
     
     So that you can see the results,  we used Option 8 to add new accounts 
     to your practice general ledger - account numbers 4,  80, 244, and 254 
     for corporations and account 4 or  partnerships  and  proprietorships. 
     Look at the Unadjusted Trial Balance that you prepared in the Practice 
     section  of  Chapter  7.  Notice that the accounts were added in their 
     logical places for preparation of the financial statements. 
     

     OPTION 8 SEQUENCE OF EXECUTION AND AN ILLUSTRATION.
     
     Refer  to  Chapter  2  for an explanation of the standard messages and 
     reminders that are part of Option 8.  After the standard messages  and 
     reminders, the following will appear on your computer screen: 
     
     
     
       WOULD YOU LIKE A BRIEFING ON HOW TO USE THIS COMPUTER PROGRAM TO BE   
       DISPLAYED ON THE COMPUTER SCREEN?
     
       ENTER `Y' FOR `YES' OR `N' FOR `NO'.    _
     
     
     
     If  you answer `Y',  the following appears:  (If your response is `N', 
     the briefing is bypassed.) 
     
     
     
       THIS COMPUTER PROGRAM IS TO BE USED ONLY FOR ADDING NEW ACCOUNTS  TO 
       THE GENERAL LEDGER.  EACH NEW ACCOUNT MUST ALREADY BE IN THE GENERAL 
       LEDGER  AND  BE  CLASSIFIED  AS  AN  `INACTIVE  ACCOUNT'.   YOU  CAN 
       DETERMINE  WHICH  ACCOUNT  NUMBERS  HAVE  THIS   CLASSIFICATION   BY 
       RETURNING TO THE DAILY MENU, SELECTING OPTION 7, AND SPECIFYING THAT 
       ALL ACCOUNTS BE PRINTED. 
     
       DO YOU WISH TO CONTINUE THIS SESSION?
     
       ENTER `Y' FOR `YES' OR `N' FOR `NO'.    _
     
     
     
     If your answer is `Y', the following appears:  (If you answer `N', you 
     will be returned to the DAILY menu.) 
     
     
                                                                        89
     
     

       THE COMPUTER IS READY TO START ADDING NEW ACCOUNTS  TO  THE  GENERAL 
       LEDGER. 
     
       THREE  INPUTS  ARE  REQUIRED FOR EACH NEW ACCOUNT.  THEY ARE (1) THE 
       ACCOUNT NUMBER, (2) THE ACCOUNT TITLE,  AND (3) A `D' FOR `DEBIT' OR 
       A `C' FOR `CREDIT'. 
     
       ONE LINE ON THE COMPUTER SCREEN IS USED FOR ENTERING (1),  (2),  AND 
       (3) ABOVE. 
     
       CPA-LEDGER AUTOMATICALLY ASSIGNS TO EACH ACCOUNT A BEGINNING BALANCE 
       OF ZERO. 
     
       YOU SHOULD PRESS THE RETURN KEY AFTER ENTERING  EACH  OF  THE  THREE 
       INPUT VALUES. (CAREFULLY NOTE THAT YOU WILL BE REQUIRED TO PRESS THE 
       RETURN  KEY  THREE  TIMES  -  ONE  TIME  FOR EACH OF THE THREE INPUT 
       VALUES.) 
     
       ERROR MESSAGES WILL APPEAR AT THE TOP OF THE  COMPUTER  SCREEN.  THE 
       ERROR MESSAGES ARE SELF EXPLANATORY. 
     
       PRESS ANY KEY TO CONTINUE. 
     
     
     
     After  you  press a key,  Option 8 starts asking for information about 
     the accounts that you wish to add to the general ledger. 
     
     In the illustration to follow, we will assume that two accounts are to 
     be added.  Details are: 
     
          .  OFFICE SALARIES EXPENSE is to be added to the Income Statement 
             accounts.  Reference to an Option 7 printout shows that  SALES 
             SALARY  EXPENSE  is  currently  in  the  general ledger,  with 
             account number 207.  The printout shows  that  account  number 
             208 is an INACTIVE ACCOUNT.  We will assign account number 208 
             to OFFICE SALARIES EXPENSE, a debit balance account. 
     
          .  OFFICE  SUPPLIES is to be added to the Balance Sheet accounts, 
             as a CURRENT ASSET.  We decide to add this account immediately 
             after MERCHANDISE INVENTORY which is presently in the  general 
             ledger  with  account  number  19.  Account  number  20  is an 
             inactive account.  We will assign account number 21 to  OFFICE 
             SUPPLIES, a debit balance account. 
     
     The Option 8 display and the assumed input, explained above, are: 
     
           
                                                                        90
     

       ENTER DATA FOR YOUR NEW ACCOUNTS BELOW.  ALWAYS REMEMBER THAT:
        1.  EACH  NEW  ACCOUNT  REQUIRES  T-H-R-E-E INPUTS (ACCOUNT NUMBER; 
            ACCOUNT TITLE; AND A `D' FOR A `DEBIT' OR `C' FOR A `CREDIT'.) 
        2.  YOU MUST PRESS THE RETURN KEY AFTER E-A-C-H OF THE THREE  ABOVE 
            INPUTS. 
        3.  CPA-LEDGER   AUTOMATICALLY   ASSIGNS  ZERO  AS  THE  ACCOUNT'S 
            BEGINNING BALANCE. 
        4.  ALL MESSAGES WILL APPEAR IN THE  UPPER  PART  OF  THE  COMPUTER 
            SCREEN. 
        5.  NEW  ACCOUNTS  REJECTED IN THEIR ENTIRETY ARE TO REENTERED.
        6.  ENTER `Q` (FOR QUIT) FOR THE ACCT. NBR. AFTER ALL NEW ACCOUNTS 
            ARE ENTERED. 
        7.  YOUR COMPUTER'S CAPS-LOCK KEY MUST BE `ON'.
     **********************************************************************
     
               ACCOUNT                                       D=DEBIT
               NUMBER      ACCOUNT TITLE                     C=CREDIT
     
                208        OFFICE SALARIES EXPENSE              D
                21         OFFICE SUPPLIES                      D
                Q
     
     Each time you add a new account,  the  system  asks  you  if  the  new 
     account  is for accounts receivable,  beginning merchandise inventory, 
     retained  earnings  for  corporations  or  the  capital  account   for 
     partnerships and proprietorships (unless these accounts are already in 
     the general ledger), or for a new bank account. 
     
     After entering `Q', the following appears:
     
       YOUR  INPUT  WILL  BE DISPLAYED ON THE SCREEN SO THAT YOU MAY VERIFY 
       IT.  CAREFULLY NOTE ANY ERRORS SO THAT INCORRECT DATA  WILL  NOT  BE 
       POSTED TO THE ACCOUNTS. 
     
       PRESS ANY KEY TO CONTINUE.
     
               
     After pressing a key, you will see this:
          
       YOUR DEBIT ENTRIES (WITH ACCOUNT TITLES) APPEAR BELOW.
     
       THE LIST OF DEBIT ENTRIES IS COMPLETE.  NOTE ANY INPUT ERRORS.
     
       PRESS ANY KEY TO CONTINUE.
     
     
        ACCOUNT                                             ACCOUNT
        NUMBER     ACCOUNT TITLE                            BALANCE
     
         208       OFFICE SALARIES EXPENSE                      .00
          21       OFFICE SUPPLIES                              .00
     
     
      
                                                                        91
     

     After  you press a key,  a screen similar to the above will appear for 
     any credit accounts.  For this  illustration,  the  following  wording 
     would appear where the account information is normally displayed: 
     
     
     
       **** THERE WERE NO NEW ACCOUNTS WITH CREDITS. *****
     
     
     
     This  control  is  provided to help you detect any input errors.  (You 
     might inform Option 8  that  an  account  has  a  debit  balance,  for 
     example, when you intended to signify that it has a credit balance.) 
     
     Continuing with the illustration, the following is next to appear: 
     
     
     
       DO  YOU  DESIRE  TO  ADD TO THE GENERAL LEDGER THE ACCOUNTS THAT YOU 
       JUST REVIEWED? 
     
       ENTER `Y' FOR `YES' OR `N' FOR `NO'.    _
     
     
     
     If you answer `Y',  the new account(s) will be added  to  the  general 
     ledger.  If you answer `N',  they will not be added.  In either of the 
     two events, the following is next to appear on your screen: 
     
     
     
       DO YOU DESIRE TO ADD MORE NEW ACCOUNTS TO THE GENERAL LEDGER?
       ENTER `Y' FOR `YES' OR `N' FOR `NO'.   _
     
     
     
     If you answer `Y',  Option 8  starts  again  and  asks  you  to  enter 
     information  about  the  new  accounts,  as already explained.  If you 
     answer `N', you will be returned to the DAILY menu. 
     
     
     ERROR MESSAGES. 
     
     Option 8 monitors your input to help ensure that you  do  not  make  a 
     mistake.  If  you  make  a  mistake and if instructions explaining the 
     required input are already on the computer screen, Option 8 refuses to 
     continue until you reenter your answer. 
     
     In other cases,  however,  you will need more detailed instructions on 
     what you did wrong and how you should proceed.  These cases are: 
                                                              
      
     
                                                                        92
     

       AN ACTIVE ACCOUNT NUMBER IS ENTERED.
     
       For  this  error,  Option  8  displays  the  following  message  and 
       question: 
     
         YOU  SELECTED  AN  ACTIVE ACCOUNT FOR POSTING.  THE ACCOUNT NUMBER 
         THAT YOU SELECTED IS NUMBER  (a  number  is  shown).  NEW  GENERAL 
         LEDGER  ACCOUNTS  MUST  COME  FROM  INACTIVE  ACCOUNTS.   INACTIVE 
         ACCOUNTS CAN BE IDENTIFIED BY SELECTING  OPTION  7  OF  THE  DAILY 
         MENU.  DO YOU WISH TO RETURN TO THE DAILY MENU? 
     
         ENTER `Y' FOR `YES' OR `N' FOR `NO'.   _
     
       If  you  answer  `Y',  none  of the current accounts that you are in 
       process of entering will be added to the general ledger and you will 
       be returned to the DAILY menu. 
     
       If you answer `N',  Option 8 will resume at the point where you made 
       the input error. 
     
     
       A NON-EXISTENT ACCOUNT NUMBER IS ENTERED. 
     
       This error causes the following message to be displayed: 
     
       YOUR INPUT FOR THE ACCOUNT NUMBER IS TOO LARGE.  THE LARGEST ACCOUNT 
       NUMBER  IN  THE  GENERAL LEDGER IS (a number is shown).  IF DESIRED, 
       YOU CAN DETERMINE THE ACCOUNT  NUMBERS  IN  THE  GENERAL  LEDGER  BY 
       SELECTING  OPTION  7  OF  THE  DAILY  MENU  AND  SPECIFYING THAT ALL 
       ACCOUNTS BE PRINTED. 
     
       PRESS ANY KEY TO CONTINUE. 
     
       After you press a key,  Option 8 continues where you made the  input 
       error. 
     
     
       AN ACCOUNT NUMBER IS ENTERED A SECOND TIME. 
     
       For this error, Option 8 displays: 
     
     
                                                                        93
     
     

       THE  ACCOUNT  NUMBER  (a  number  is  shown)  THAT  YOU SELECTED WAS 
       ASSIGNED AN OPENING BALANCE DURING THIS OR A PREVIOUS SESSION.  ONLY 
       INACTIVE ACCOUNT NUMBERS MAY BE SPECIFIED IN THIS COMPUTER  PROGRAM. 
       YOU  MAY  DETERMINE  WHICH ACCOUNTS ARE INACTIVE BY RETURNING TO THE 
       DAILY MENU AND SELECTING OPTION 7.  DO YOU WISH  TO  RETURN  TO  THE 
       DAILY MENU? 
     
       ENTER `Y' FOR `YES' OR `N' FOR `NO'.   _
     
       If  you enter `Y',  none of the new accounts currently being entered 
       will be added to the general ledger and you will be returned to  the 
       DAILY  menu.  If you enter `N',  Option 8 resumes at the point where 
       you made the input error. 
     
     
     PRINTED OUTPUT. 
     
     
     Using the illustration,  above,  the Option 8 printout would look like 
     this: 
     
     
     
                                                                   PAGE  1
                                                        RUNDATE   06/15/85
     
                               ABC WHOLESALE, INC.
                    NEW ACCOUNTS ADDED TO THE GENERAL LEDGER
     
     ACCOUNT                                           BEGINNING BALANCE
     NUMBER      ACCOUNT TITLE                      DEBIT            CREDIT
     
      208        OFFICE SALARIES EXPENSE              .00
       21        OFFICE SUPPLIES                      .00
     
     
     
     Practice.
     
     Use  Option 8 and your practice general ledger to add two new accounts 
     to the general ledger.  Use the same account titles  as  used  in  the 
     above  illustration  (OFFICE  SALARIES  EXPENSE  and OFFICE SUPPLIES). 
     Determine the account numbers that you should use by  referring  to  a 
     printout from DAILY Option 7. 
     
     
                                                                        94
     
                                  CHAPTER 14

                            DAILY MENU  -  OPTION 9
     

     WHAT OPTION 9 IS USED FOR.
     
     Use  Option  9  at  the  end  of the year,  after all formal financial 
     statements have been prepared.  The information shown in the  printout 
     is  used  as  a  guide  in  identifying asset,  liability,  and equity 
     accounts that are to be included in the new  general  ledger  for  the 
     coming year, if you use Options 1, 2, and 3 of the SETUP menu. 
     
     Account  titles  and  dollar values shown in an Option 9 printout will 
     agree,  exactly,  with account titles and dollar amounts shown on  the 
     Balance Sheet. 
     
     As mentioned above,  the Option 9 printout is used as a guide for  the 
     Balance  Sheet accounts that should be in the new general ledger.  Use 
     the Income Statement as a  guide  for  the  remaining  general  ledger 
     accounts.  If you use Option 4 of the SETUP menu,  CPA-LEDGER does all 
     of this for you, automatically. (See Chapter 16.) 
     
     Note that the Option 9 printout and the Income Statement are  used  as 
     GUIDES  in  deciding  on  accounts  to  be included in the new general 
     ledger.  Determining the accounts is a crucial step. 
     
     Carefully consider your  past  and  anticipated  business  operations.  
     Carefully  identify  every  account  that  might  be needed.  Refer to 
     Appendix D for additional detail. 
     
     IN CASE OF DOUBT, INCLUDE THE ACCOUNT.  It can be annoying,  after the 
     accounting year has started, to have to constantly add new accounts to 
     the  general  ledger.  Remember  this  when  deciding  whether  to use 
     Options 1,  2,  and 3 of the SETUP menu or Option 4 of the SETUP menu. 
     (Option 4 allows for NO new accounts, active or inactive.) 
          
     OPTION 9 SEQUENCE OF EXECUTION. 
     
     Refer  to  the  standard  messages and reminders that are discussed in 
     Chapter 2.  After the standard messages and reminders, Option 9 begins 
     printing the account balances.  The format of the printout is the same 
     as for an unadjusted trial balance, as shown in Chapter 7. 
            
     ERROR MESSAGES.
     
     As mentioned above,  Option 9 is used AFTER the Income  Statement  and 
     the Balance Sheet have been prepared at the end of the year. 
     
     If  you  attempt  to  use  Option  9  before  these two statements are 
     prepared (by using DAILY Option 3),  the following message will appear 
     on your computer screen: 
     
     
      
                                                                        95
     

       YOU  HAVE  EITHER  (1)  NOT  YET  USED OPTION 3 OF THE DAILY MENU TO 
       PREPARE AN INCOME STATEMENT AND A BALANCE  SHEET  OR  (2)  YOU  USED 
       DAILY  OPTION  1  SINCE  YOU LAST USED OPTION 3.  YOU MUST USE DAILY 
       MENU OPTION 3 BEFORE  THE  CURRENTLY  REQUESTED  POST-CLOSING  TRIAL 
       BALANCE WILL BE PREPARED. 
     
     
     After pressing a key, you will be returned to the DAILY menu. 
     
     
     Practice. 
     
     Use  Option 9 and your practice general ledger to print a post-closing 
     trial balance.  Remember,  before Option 9  will  execute,  an  Income 
     Statement  and  a  Balance Sheet (DAILY Option 3) must be printed.  If 
     you see the error message mentioned above when  you  select  Option  9 
     from  the  DAILY menu,  execute Option 3 (Chapter 8) and then Option 9 
     (this Chapter). 
     
   



































DAILY.BAS

100 'COPYRIGHT 1986 TRONOLONE & FOSTER, PC
500 ON ERROR GOTO 10000
600 GOSUB 15000
1000 CLEAR: KEY OFF: CLS: CLOSE
1010 LOCATE 3,1: PRINT SPC(35) "CPA-LEDGER"
1020 LOCATE 5,1: PRINT SPC(35) "DAILY MENU": LOCATE 8,1
1030 PRINT"SELECT ONE OF THE OPTION NUMBERS BELOW.": PRINT
1040 PRINT"  1. ENTER NEW TRANSACTIONS IN THE GENERAL LEDGER."
1050 PRINT"  2. PRINT AN UNADJUSTED TRIAL BALANCE."
1060 PRINT"  3. PRINT AN INCOME STATEMENT.
1070 PRINT"  4. PRINT TRANSACTIONS THAT HAVE BEEN POSTED TO THE GENERAL LEDGER.
1080 PRINT"  5. PRINT GENERAL LEDGER ACCOUNTS WITH DETAILS OF ALL DEBITS AND ALL CREDITS."
1090 PRINT"  6. PRINT BANK DEPOSITS AND CHECKS WRITTEN (CHECK REGISTER)."
1100 PRINT"  7. PRINT GENERAL LEDGER ACCOUNTS AND THEIR BALANCES."
1110 PRINT"  8. ADD NEW ACCOUNTS TO THE GENERAL LEDGER."
1120 PRINT"  9. PRINT A POST-CLOSING TRIAL BALANCE.
1130 PRINT" 10. STOP ALL CPA-LEDGER PROCESSING AND RETURN CONTROL TO PC-DOS."
1132 GOSUB 9000
1140 LOCATE 21,1: PRINT"WHICH OPTION NUMBER DO YOU SELECT?";: GOSUB 1390: ROW=21: COLUMN=37: LENGTH=2: GOSUB 1400
1150 F1=0:FOR I = 1 TO LEN(I8$)
1152 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN F1=1
1154 NEXT I
1160 IF F1 = 0 AND VAL(I8$) => 1 AND VAL(I8$) =< 10 THEN GOTO 1210
1170 LOCATE 22,1: PRINT"ENTRY IS INCORRECT. TRY AGAIN. PRESS ANY KEY TO CONTINUE.": GOSUB 1390
1180 K$=INKEY$
1190 IF K$="" THEN GOTO 1180
1200 LOCATE 22,1: PRINT SPACE$(80): GOTO 1140
1210 IF I8$="10" THEN CLS: SYSTEM
1220 CLS: LOCATE 10,1: PRINT"ADJUST THE PAPER IN YOUR PRINTER SO THAT THE PAPER IS AT TOP-OF-PAGE.": PRINT
1230 PRINT"THE PAPER WILL BE AT TOP-OF-PAGE WHEN THE PRINTER WILL PRINT ON THE VERY FIRST"
1240 PRINT"LINE AT THE TOP OF THE PAGE.": PRINT
1270 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 1390
1280 K$=INKEY$
1290 IF K$="" THEN GOTO 1280
1300 IF I8$="1" THEN GOSUB 1610: RUN "POST.BAS": END
1310 IF I8$="2" THEN GOSUB 1610: RUN "TRIBAL.BAS": END
1320 IF I8$="3" THEN GOSUB 1610: RUN "PANDL.BAS": END
1330 IF I8$="4" THEN GOSUB 1610: RUN "SELTRA.BAS": END
1340 IF I8$="5" THEN GOSUB 1610: RUN "ACTDTL.BAS": END
1350 IF I8$="6" THEN GOSUB 1610: RUN "CHKREG.BAS": END
1360 IF I8$="7" THEN GOSUB 1610: RUN "GLACTS.BAS": END
1370 IF I8$="8" THEN GOSUB 1610: RUN "NEWACT.BAS": END
1380 IF I8$="9" THEN GOSUB 1610: RUN "PSTCLS.BAS": END
1382 CLS: LOCATE 10,1:
1384 PRINT"THIS PROGRAM HAD BEEN MODIFIED IMPROPERLY.  CHECK KEYS FOR RUN STATEMENTS.": END
1390 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
1400 I8$=""
1410 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
1420 LOCATE ROW,COLUMN
1430 PRINT I8$;
1440 POINTER = 1: A$=" "
1450 WHILE (ASC(A$) <> 13)
1460 A$ = INPUT$(1)
1470 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 1590
1480 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 1540
1490 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 1590
1500 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 1570
1510 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 1570
1520 IF (ASC(A$) <> 8) THEN GOTO 1560
1530 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
1540    MID$(I8$,POINTER-1,1) = CHR$(254)
1550    POINTER = POINTER -1
1560 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
1570 LOCATE ROW,COLUMN
1580 PRINT I8$
1590 WEND
1600 RETURN
1610 CLS: LOCATE 10,31: PRINT"PLEASE STAND BY.": RETURN
9000 LOCATE 23,1: PRINT"(C) COPYRIGHT 1986 TRONOLONE & FOSTER, PC
9002 LOCATE 1,1: PRINT"ASSISTANCE?"
9004 LOCATE 2,4: PRINT"WRITE"
9006 LOCATE 3,1: PRINT"JIM FOSTER"
9008 LOCATE 4,1: PRINT"8529 GREELEY BLVD."
9010 LOCATE 5,1: PRINT"SPRINGFIELD, VIRGINIA  22152"
9020 LOCATE 2,70: PRINT"CALL"
9030 LOCATE 3,67: PRINT"JIM FOSTER"
9040 LOCATE 4,65: PRINT"(703) 569-2254"
9050 LOCATE 5,65: PRINT"AFTER 7:30 PM"
9060 LOCATE 6,67: PRINT"OR ANYTIME"
9070 LOCATE 7,67: PRINT" WEEKENDS."
9100 LOCATE 1,67: PRINT"ASSISTANCE?"
9200 LOCATE 2,70: PRINT"CALL"
9300 LOCATE 3,67: PRINT"JIM FOSTER"
9400 LOCATE 4,65: PRINT"(703) 569-2254"
9500 LOCATE 5,65: PRINT"AFTER 7:30 PM"
9600 LOCATE 6,67: PRINT"OR ANYTIME"
9700 LOCATE 7,67: PRINT" WEEKENDS."
9800 RETURN
10000 IF ERR=53 THEN GOTO 10030
10020 ON ERROR GOTO 0
10030 CLS: LOCATE 10,1
10040 PRINT"NO. YOU CANNOT USE THE DAILY MENU UNTIL YOU HAVE STARTED YOUR GENERAL LEDGER."
10050 PRINT"USE THE SETUP MENU FOR THAT PURPOSE.  SEE YOUR USER'S MANUAL, BEGINNING ON"
10060 PRINT"PAGES 6 AND 19. PRESS ANY KEY FOR THE SETUP MENU.": GOSUB 20000
10070 RUN "SETUP.BAS": END
15000 OPEN "PASACT.FIL" FOR INPUT AS #1
15010 INPUT #1,F1: INPUT #1,F1
15020 IF F1 <> 30000 THEN GOTO 18000
15030 CLS: LOCATE 10,1
15040 PRINT"NO. YOU HAVE NOT USED OPTION 2 OF THE SETUP MENU.  YOU MUST USE OPTION 2 OF
15050 PRINT"THAT MENU BEFORE YOU USE ANY OPTION OF THE DAILY MENU.  SEE YOUR USER'S MANUAL"
15060 PRINT"BEGINING ON PAGES 7 & 27-1.  PRESS ANY KEY FOR THE SETUP MENU.": GOSUB 20000: RUN "SETUP.BAS": END
18000 RETURN
20000 K$=INKEY$
20010 IF K$="" THEN GOTO 20000
20020 RETURN

GENLGR.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM GENLGR.BAS
1010 CLEAR: ON ERROR GOTO 3110
1020 CLS: LOCATE 1,1
1030 PRINT"THIS PROGRAM IS TO BE USED FOR ESTABLISHING A NEW GENERAL LEDGER.  IT SHOULD BE"
1040 PRINT"USED AT THE BEGINNING OF EACH YEAR.  BEFORE YOU USE THIS PROGRAM, MAKE SURE"
1050 PRINT"THAT LAST YEAR'S DATA FILES HAVE BEEN COPIED TO DISKETTE.  CPA-LEDGER WILL"
1060 PRINT"COMPLETELY ERASE ANY DATA FILES THAT ARE NOW ON HARD DISK.": PRINT
1070 PRINT"AFTER THIS PROGRAM HAS COMPLETED ITS PROCESSING, A LISTING OF ALL AVAILABLE"
1080 PRINT"ACCOUNTS (THE ONES THAT YOU ENTER) WILL BE PRINTED ON THE PRINTER.  REVIEW THE"
1090 PRINT"PRINTOUT VERY CAREFULLY AND NOTE ANY ERRORS, SUCH AS MISSPELLED ACCOUNT TITLES"
1100 PRINT"OR INCORRECT DESIGNATIONS AS TO WHETHER AN ACCOUNT HAS A NORMAL DEBIT OR"
1110 PRINT"NORMAL CREDIT BALANCE.  IF YOU NOTE ANY ERRORS, RERUN THIS COMPUTER PROGRAM BY"
1120 PRINT"SELECTING OPTION 1 AGAIN FROM THE SETUP MENU.  IT IS VERY IMPORTANT THAT YOUR"
1130 PRINT"PRINTOUT BE ERROR FREE BECAUSE THERE IS NO OTHER PROVISION FOR CORRECTING YOUR"
1140 PRINT"MISTAKES.": PRINT
1150 PRINT"THIS VERSION OF CPA-LEDGER IS FOR CORPORATIONS.  ALSO, THIS SHOULD BE THE FIRST"
1160 PRINT"CPA-LEDGER COMPUTER PROGRAM THAT YOU USE EACH ACCOUNTING YEAR.  ONCE YOUR"
1170 PRINT"GENERAL LEDGER IS ESTABLISHED AND YOU AGREE WITH THE PRINTED OUTPUT, THIS"
1180 PRINT"PROGRAM SHOULD NOT BE USED AGAIN UNTIL THE BEGINNING OF THE NEXT ACCOUNTING"
1190 PRINT"YEAR.  DO YOU WISH TO ESTABLISH A NEW GENERAL LEDGER?": C5=22: GOSUB 2560
1200 IF I8$="N" OR I8$="n" THEN GOTO 5000 ELSE CLS: LOCATE 10,36: PRINT "STAND BY.": OPEN "PASACT.FIL" FOR OUTPUT AS  #1: CLOSE: KILL "*.FIL"
1210 CLS: LOCATE 10,1: PRINT"ENTER YOUR BUSINESS NAME. ";: ROW=10: COLUMN=44: LENGTH=30: GOSUB 2900
1220 IF LEFT$(I8$,1) < "A" OR LEFT$(I8$,1) > "Z" THEN GOTO 1210
1230 T1$=I8$
1240 DATA BALANCE SHEET,INCOME STATEMENT
1250 DATA CURRENT ASSETS,1,1
1260 DATA INVESTMENTS AND FUNDS,1,2
1270 DATA OPERATIONAL ASSETS,1,3
1280 DATA INTANGIBLE ASSETS,1,4
1290 DATA OTHER ASSETS,1,5
1300 DATA DEFERRED CHARGES,1,6
1310 DATA CURRENT LIABILITIES,2,7
1320 DATA LONG-TERM LIABILITIES,2,8
1330 DATA CONTRIBUTED CAPITAL,3,9
1340 DATA OTHER CONTRIBUTED CAPITAL,4,10
1350 DATA RETAINED EARNINGS,5,11
1360 DATA ALL OTHER EQUITY,6,12
1370 DATA SALES,7,1
1380 DATA PURCHASES,8,2
1390 DATA OPERATING EXPENSES,9,3
1400 DATA OTHER REVENUES AND GAINS,10,4
1410 DATA OTHER EXPENSES AND LOSSES,11,5
1420 DATA EXTRAORDINARY GAINS,12,6
1430 DATA EXTRAORDINARY LOSSES,13,7
1440 DATA INCOME TAX EXPENSE,14,8
1450 B2=36: B3=24: B4=36: E1=2:
1460 DIM B(20) 'QTY OF ACCT CLASSI - CHG AS REQUIRED
1470 DIM A1$(2): DIM A2$(B2): DIM A3$(B3)
1480 CLS: LOCATE 10,16
1490 PRINT"STAND BY.  YOUR DATA FILES ARE BEING INITIALIZED."
1500  GOSUB 2190: CLS
1510 GOSUB 2890: LOCATE 10,1: PRINT"ENTER TODAY'S DATE (USE FORMAT MMDDYY. I.E., JUNE 8, 1984 = 060884).";: ROW=10: COLUMN=72: LENGTH=6: GOSUB 2900
1520 GOSUB 2680
1530 IF F1=1 OR I8$ < "0" OR I8$="" OR LEN(I8$) < 6 THEN CLS: GOTO 1510
1540 CLS: I1$=I8$
1550 FOR I=1 TO 2
1560 LOCATE 8,1
1570 PRINT"THE FOLLOWING QUESTIONS PERTAIN TO THE ";A1$(I);"."
1580 IF I=2 THEN B2=B3
1590 FOR J=1 TO B2
1600 GOSUB 2270
1610 IF PF=1 THEN PF=0: LOCATE 15,1: PRINT SPACE$(80): LOCATE 16,1: PRINT SPACE$(80)
1620 IF I2$="PURCHASES" THEN PF=1: LOCATE 15,1: PRINT"IF YOU DO NOT WISH TO HAVE A COST OF GOODS SOLD SECTION ON YOUR INCOME STATE-"
1630 IF I2$="PURCHASES" THEN LOCATE 16,1: PRINT"MENT, ENTER 0 (ZERO).  SEE THE USER'S MANUAL FOR DETAILS."
1640 LOCATE 10,1: PRINT SPACE$(80): LOCATE 10,1: PRINT"HOW MANY `";I2$;"' ACCOUNTS DO YOU WISH TO CREATE? ";
1650 GOSUB 2890: ROW=10: COLUMN=70: LENGTH=2: GOSUB 2900
1660 GOSUB 2510  'CHK NUM
1670 IF F1=1 OR I8$ < "0" THEN GOTO 1650
1680 I1=VAL(I8$): C1=I1
1690 IF I2$="RETAINED EARNINGS" AND I1 < 1 THEN LOCATE 15,1: PRINT"AT LEAST ONE RETAINED EARNINGS ACCOUNT IS REQUIRED.": GOTO 1650
1700 IF I2$="SALES" AND I1 < 1 THEN LOCATE 15,1: PRINT"AT LEAST ONE SALES/REVENUE ACCOUNT IS REQUIRED.": GOTO 1650
1710 IF I2$="OPERATING EXPENSES" AND I1 < 1 THEN LOCATE 15,1: PRINT"AT LEAST ONE OPERATING EXPENSE ACCOUNT IS REQUIRED.": GOTO 1650
1720 IF I2$="OPERATING EXPENSES" AND C1 > 0 THEN SEXP = C2+1: FEXP=C2+6: GOTO 1740
1730 IF I2$="SALES" AND C1 > 0 THEN SSALES = C2+1: FSALES=(((C1*4)+2)+C2)
1740 IF I1 > 0 THEN CLS: GOTO 1780
1750 ' WRITE EXTRA ACCTS FOR CLASSI WITH NO ACTIVE ACCTS
1760 FOR K = 1 TO 6: I3$="INACTIVE ACCOUNT": I4$=" ": I5$="0": GOSUB 2310: NEXT K: F20=F20+1: B(F20)=6: GOTO 1950
1770 ' B( = NBR ACCTS WRITTEN FOR CLASSI WITH ACTIVE ACCTS.
1780 F20=F20+1: B(F20)=((C1*4)+2)  ' C1=ACTIVE ACCTS,C1*X=ACTIVE ACCTS + INACTIVE ACCTS FOR EACH ACTIVE ACCT, +Y=QTY INACTIVE ACCTS ADDED AT BEGINNING OF EACH CLASSIFICATION. C1*X+Y=TOT ACCTS IN A CLASSIFICATION
1790 FOR K = 1 TO C1  'C1=QTY ACTIVE ACCTS REQUESTED
1800 IF K > 1 THEN GOTO 1822
1810 ' ADD INACTIVE ACCTS AT START OF CLASSIFICATION
1820 FOR W = 1 TO 2: I3$="INACTIVE ACCOUNT": I4$=" ": I5$="0": GOSUB 2310: NEXT W
1822 CLS: LOCATE 5,23: PRINT"YOUR Caps-Lock KEY SHOULD BE `ON'.
1830 LOCATE 10,1: PRINT"ENTER THE TITLE OF `";I2$;"' ACCOUNT NUMBER ";K;" OF ";I1; " BELOW."
1840 GOSUB 2890: ROW=12: COLUMN=25: LENGTH=30: GOSUB 2900: I3$=I8$
1850 IF LEFT$(I3$,1) < "A" OR LEFT$(I3$,1) > "Z" THEN GOTO 1840
1860 LOCATE 15,1: PRINT"ENTER  `D'  FOR  `DEBIT' BALANCE OR A  `C'  FOR  `CREDIT' BALANCE.";
1870 GOSUB 2890: ROW=15: COLUMN=75: LENGTH=1: GOSUB 2900: I4$=I8$
1880 IF I4$="D" OR I4$="C" THEN GOTO 1900
1890 GOTO 1870
1900 CLS: GOSUB 2430
1910 IF F1=1 THEN F1=0: GOTO 1822
1920 I5$="1": GOSUB 2310
1930 FOR W = 1 TO 3: I3$="INACTIVE ACCOUNT": I4$=" ": I5$="0": GOSUB 2310: NEXT W
1940 NEXT K
1950 NEXT J
1960 NEXT I
1970 'PRINT GENERAL LEDGER CHART OF ACCOUNTS ON THE PRINTER.
1980 B2=B4: C2=0: F20=0: CLS: LOCATE 10,36: PRINT"STAND BY.": LOCATE 12,36: PRINT "PRINTING."
1990 GOSUB 2740  'PRINT PAGE HEADINGS
2000 FOR I = 1 TO 2  'PRINT IDENTITY OF FINANCIAL STATEMENT
2010 IF C3 > 57 THEN B5=66-C3: GOSUB 2860: GOSUB 2740
2020 IF I=2 THEN LPRINT: C3=C3+1
2030 C3=C3+1
2040 LPRINT STRING$(27,"*");A1$(I);" ACCOUNTS";STRING$(27,"*"): IF I=2 THEN B2=B3
2050 FOR J=1 TO B2  'PRINT ACCT CLASSI (I.E., CURRENT ASSETS)
2060 C3=C3+2
2070 IF C3 > 57 THEN B5=66-C3: GOSUB 2860: GOSUB 2740
2080 GOSUB 2270: LPRINT: LPRINT I2$
2090 F20=F20+1: C1=B(F20)
2100 FOR K=1 TO C1  'PRINT THE ACCOUNT
2110 C2=C2+1: GET #1,C2: LASTACTNO=C2: I5$=X4$: IF I5$ <> "1" THEN GOTO 2140
2120 GOSUB 2370: C3=C3+1: IF C3 < 60 THEN GOTO 2140
2130 B5=66-C3: GOSUB 2860: GOSUB 2740
2140 NEXT K: NEXT J: NEXT I
2150 CLOSE
2160 OPEN "PASACT.FIL" FOR OUTPUT AS #2
2170 FRMCHK=30000: WRITE #2,LASTACTNO,FRMCHK
2180 GOTO 3170   'EOF
2190 OPEN "TEST1.FIL" FOR OUTPUT AS #3: CLOSE #3
2200 OPEN "R",1,"GENLEG.FIL",111
2210 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
2220 OPEN "GENJNL.FIL" FOR OUTPUT AS #2
2230 FOR I = 1 TO 2: READ I9$: A1$(I)=I9$: NEXT I
2240 FOR I = 1 TO B2: READ I9$: A2$(I)=I9$: NEXT I
2250 FOR I = 1 TO B3: READ I9$: A3$(I)=I9$: NEXT I
2260 RETURN
2270 IF I=2 THEN GOTO 2290
2280 I2$=A2$(J): J=J+1: I8$=A2$(J): J=J+1: I9$=A2$(J): GOTO 2300
2290 I2$=A3$(J): J=J+1: I8$=A3$(J): J=J+1: I9$=A3$(J)
2300 I6$=I8$: I7$=I9$: RETURN
2310 LSET X1$=I2$: LSET X2$=I3$: LSET X3$=I1$: LSET X4$=I5$
2320 C2=C2+1
2330 LSET X5$=MKS$(C2): LSET X6$=I6$: LSET X7$=I7$: LSET X8$=I4$
2340 T2$="               ": LSET X9$=T2$
2350 LSET Y1$=MKD$(0#): LSET Y2$=MKD$(0#): LSET Y3$=MKD$(0#): LSET Y4$=MKD$(0#)
2360 PUT #1,C2: RETURN
2370 I2$=X1$: I3$=X2$: I4$=X8$: LPRINT"  ";I3$;: LPRINT"  ";
2390 IF I4$="D" THEN I4$="DEBIT " ELSE I4$="CREDIT"
2400 LPRINT"  NORMAL BAL. = ";I4$;"   ACCOUNT NBR. = ";CVS(X5$): GOTO 2420
2420 RETURN
2430 F1=0: CLS: LOCATE 10,1
2440 PRINT"VERIFY YOUR INPUT BEFORE THIS ACCOUNT IS OPENED.": PRINT
2450 PRINT"   THE ACCOUNT TITLE IS        ";I3$
2460 IF I4$="D" THEN I10$="DEBIT" ELSE I10$="CREDIT"
2470 PRINT"   THE ACCOUNT BALANCE IS      ";I4$;"   (WHICH SIGNIFIES `";I10$;"')": PRINT
2480 PRINT"ARE   B-O-T-H   CORRECT?": C5=16: GOSUB 2560
2490 IF I8$="N" OR I8$="n" THEN F1=1
2500 CLS: RETURN
2510 F1=0
2520 FOR N = 1 TO LEN(I8$)
2530 IF MID$(I8$,N,1) < "0" OR MID$(I8$,N,1) > "9" THEN F1=1
2540 NEXT N
2550 RETURN
2560 LOCATE C5,1: PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO.'";
2570 GOSUB 2890: ROW=C5: COLUMN=40: LENGTH=1: GOSUB 2900
2580 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 2600
2590 GOTO 2570
2600 RETURN
2610 LOCATE 17,1
2620 PRINT"PRESS ANY KEY TO CONTINUE."
2630 GOSUB 2890
2640 K$=INKEY$
2650 IF K$="" THEN GOTO 2640
2660 RETURN
2670 'CHECK THE DATE.
2680 GOSUB 2510: IF F1=1 THEN GOTO 2730
2690 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 2730
2700 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 2730
2710 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 2730
2720 F1=0
2730 RETURN
2740 C4=C4+1: C3=11
2750 FOR L= 1 TO 6
2760 IF L = 3 THEN LPRINT SPACE$(69);"PAGE ";C4: GOTO 2790
2770 IF L = 4 THEN LPRINT SPACE$(59) "RUNDATE  " LEFT$(I1$,2) "/" MID$(I1$,3,2) "/" RIGHT$(I1$,2): GOTO 2790
2780 LPRINT
2790 NEXT L
2800 FF1=LEN(T1$)
2810 FF1=40-(INT(FF1)/2)
2820 LPRINT SPACE$(FF1);T1$
2830 LPRINT SPACE$(24);"CHART OF GENERAL LEDGER ACCOUNTS"
2840 LPRINT: LPRINT: LPRINT
2850 RETURN
2860 FOR L=1 TO B5: LPRINT: NEXT L: RETURN
2870 'CLEAR BOTTOM OF SCREEN
2880 C5=11: FOR M = 1 TO 10: LOCATE C5+M: PRINT SPACE$(80): NEXT M: RETURN
2890 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
2900 GOSUB 2890: I8$=""
2910 FOR X = 1 TO LENGTH: I8$ =I8$ + CHR$(254): NEXT X
2920 LOCATE ROW,COLUMN
2930 PRINT I8$;
2940 POINTER = 1: A$=" "
2950 WHILE (ASC(A$) <> 13)
2960 A$ = INPUT$(1)
2970 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 3090
2980 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 3040
2990 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 3090
3000 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 3070
3010 IF (POINTER = 1) AND (ASC(A$) = 8) THEN GOTO 3070
3020 IF (ASC(A$) <> 8) THEN GOTO 3060
3030 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
3040    MID$(I8$,POINTER-1,1) = CHR$(254)
3050    POINTER = POINTER -1
3060 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
3070 LOCATE ROW,COLUMN
3080 PRINT I8$
3090 WEND
3100 RETURN
3110 IF ERR=25 OR ERR=27 THEN GOTO 3130
3120 ON ERROR GOTO 0
3130 CLS: LOCATE 10,2
3140 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
3150 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 2630
3160 CLS: RESUME
3170 CLOSE: OPEN "EXPACTS.FIL" FOR OUTPUT AS #1
3180 WRITE #1,SSALES,FSALES,SEXP,FEXP: CLOSE
3190 OPEN "STDACT.FIL" FOR OUTPUT AS #1
3200 WRITE #1,0,0#," "," "," "," "," "," ","0"
3210 CLOSE : IF C3 > 50 THEN B5=66-C3: GOSUB 2860: GOSUB 2740
3220 FOR I = 1 TO 5: LPRINT: NEXT I
3230 LPRINT"THIS PRINTOUT SHOWS ONLY ACTIVE ACCOUNTS.  EVEN THOUGH NOT PRINTED ON THIS"
3250 LPRINT"PRINTOUT, EACH ACCOUNT CLASSIFICATION DOES HAVE INACTIVE ACCOUNTS.  INACTIVE"
3260 LPRINT"ACCOUNTS ARE FOR ADDING NEW ACCOUNTS TO YOUR GENERAL LEDGER BY USING OPTION 8"
3270 LPRINT"OF THE DAILY MENU.  USE OPTION 7 OF THE DAILY MENU TO IDENTIFY THE ACCOUNT"
3280 LPRINT"NUMBERS OF INACTIVE ACCOUNTS WITHIN EACH ACCOUNT CLASSIFICATION.  EXAMPLES"
3290 LPRINT"OF `ACCOUNT CLASSIFICATIONS' (SHOWN ABOVE) ARE CURRENT ASSETS, INVESTMENT &"
3300 LPRINT"FUNDS, AND OPERATIONAL ASSETS."
5000 RUN "SETUP.BAS": END

GLACTS.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM GLACTS.BAS
1010 CLEAR: ON ERROR GOTO 2320
1090 CLS: GOSUB 1890: LOCATE 12,1
1100 PRINT"WOULD YOU LIKE A BRIEFING ON HOW TO USE THIS COMPUTER PROGRAM TO BE"
1110 PRINT"DISPLAYED ON THE COMPUTER SCREEN?  (INPUT `Y' FOR `YES' OR `N' FOR `NO'.)";: ROW=13: COLUMN=77: LENGTH=1: GOSUB 2430
1120 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 1140
1130 LOCATE 13,77: PRINT SPACE$(1): LOCATE 13,1: GOTO 1110
1140 IF I8$="N" OR I8$="n" THEN I8$=" ": GOTO 1270
1150 CLS: LOCATE 2,1
1160 PRINT"THIS COMPUTER PROGRAM PRINTS A CHART OF GENERAL LEDGER ACCOUNTS.  YOU WILL"
1170 PRINT"BE GIVEN THE OPTION OF:": PRINT
1180 PRINT"   1.  PRINTING ACTIVE ACCOUNTS ONLY, OR"
1190 PRINT"   2.  PRINTING INACTIVE ACCOUNTS ONLY, OR"
1200 PRINT"   3.  PRINTING BOTH ACTIVE AND INACTIVE ACCOUNTS.": PRINT
1210 PRINT"(ACTIVE ACCOUNTS ARE ACCOUNTS THAT YOU HAVE PREVIOUSLY ADDED TO YOUR"
1220 PRINT" GENERAL LEDGER.  INACTIVE ACCOUNTS ARE ACCOUNTS THAT THE COMPUTER"
1230 PRINT" PROGRAM HAS PROVIDED FOR BUT WHICH HAVE NOT BEEN ACTIVATED - I.E.,"
1240 PRINT" THE ACCOUNTS EXIST BUT HAVE NEVER BEEN USED.  THE DAILY MENU PROVIDES"
1250 PRINT" AN OPTION FOR ACTIVATING THESE INACTIVE ACCOUNTS IN THE EVENT THEY ARE"
1260 PRINT" NEEDED.)": PRINT: PRINT"PRESS ANY KEY TO CONTINUE.": GOSUB 1820
1270 CLS
1280 INPUT #2,F1: FOR I = 1 TO F1-1: INPUT #2,F2: NEXT I: Z1=F2: INPUT #2,T1$
1290 LOCATE 12,1: PRINT"ENTER TODAYS DATE (USE FORMAT MMDDYY. I.E. JUNE 8, 1984 = 060884).  ";: ROW=12: COLUMN=71: LENGTH=6: GOSUB 2430
1300 GOSUB 1960: IF F1 <> 0 OR LEN(I8$) < 6 THEN GOTO 1290
1310 I1$=I8$: CLS: LOCATE 10,1: PRINT"SELECT THE OPTION OF YOUR CHOICE."
1320 PRINT"    ENTER `1' FOR PRINTING ACTIVE ACCOUNTS ONLY, OR"
1330 PRINT"    ENTER `2' FOR PRINTING INACTIVE ACCOUNTS ONLY, OR"
1340 PRINT"    ENTER `3' FOR PRINTING BOTH ACTIVE AND INACTIVE ACCOUNTS.";: ROW=13: COLUMN=65: LENGTH=1: GOSUB 2430
1350 IF I8$ < "1" OR I8$ > "3" THEN LOCATE 13,65: PRINT SPACE$(1): LOCATE 13,1: GOTO 1340
1360 GOSUB 1930: IF F1 <> 0 THEN I8$="4": GOTO 1350
1370 FORMAT2$="####"
1380 I2=VAL(I8$): CLS
1390 LOCATE 10,36: PRINT"PRINTING.": GOSUB 2030
1400 FOR P = 1 TO Z1
1410 C5=C5+1: GET #1,C5
1420 Y5$=X1$: Y6$=X2$: Y9$=X7$: I4$=X8$: I5$=X4$
1430 IF I2=1 AND (I5$ <> "1") THEN GOTO 1650
1440 IF I2=2 AND I5$="1" THEN GOTO 1650
1450 IF Y7$=Y5$ THEN GOTO 1510
1460 IF Y9$="1 " THEN F10=F10+1
1470 IF F10=1 AND F8=0 THEN GOSUB 2200: F8=1
1480 IF F10=2 AND F8=1 THEN GOSUB 2200: F8=2
1490 IF C3 > 55 THEN B5 = 66-C3: GOSUB 2190: GOSUB 2030
1500 LPRINT Y5$: C3=C3+1: Y7$=Y5$
1510 GOSUB 1860: I2#=C9A#: GOSUB 2270: D2A#=D2# * -1
1530 IF I2=3 AND I5$="0" THEN LPRINT SPC(2) Y6$ SPC(38);: LPRINT USING FORMAT2$;C5: GOTO 1560
1540 LPRINT SPC(2) Y6$ SPC(18);: LPRINT SPC(P1): LPRINT USING FORMAT3$;C9#;: LPRINT SPC(2);: LPRINT USING FORMAT2$;C5
1560 IF I5$="0" OR I5$="2" THEN C1=C1+1: C3=C3+1: GOTO 1620
1570 I2#=CVD(Y1$): GOSUB 2270: P6=5: P6$="OPENING BALANCE  - DEBIT": P7=2: GOSUB 2640
1580 I2#=CVD(Y2$): GOSUB 2270: P6$="OPENING BALANCE  - CREDIT": P7=1: GOSUB 2640
1590 I2#=CVD(Y3$): GOSUB 2270: P6$="SUM OF PERIOD DEBITS": P7=6:GOSUB 2640
1600 I2#=CVD(Y4$): GOSUB 2270: P6$="SUM OF PERIOD CREDITS": P7=5: GOSUB 2640
1610 C3=C3+5
1620 IF C3 > 55 THEN B5 = 66-C3: GOSUB 2190: GOSUB 2030
1630 IF I5$="0" OR I5$="2" THEN GOTO 1650
1640 C1=C1+1: C2#=C2#+CVD(Y1$): C6#=C6#+CVD(Y2$): C7#=C7#+CVD(Y3$): C8#=C8#+CVD(Y4$)
1650 NEXT P
1660 IF I2=1 OR I2=3 THEN GOTO 1690
1670 IF C3 > 55 THEN B5=66-C3: GOSUB 2190: GOSUB 2030
1680 GOTO 1700
1690 IF C3 > 50 THEN B5=66-C3: GOSUB 2190: GOSUB 2030
1700 FOR I = 1 TO 5: LPRINT: NEXT I
1710 LPRINT"NUMBER OF ACCOUNTS PRINTED       =          ";: LPRINT USING FORMAT2$;C1
1720 IF I2=2 THEN GOTO 1810
1730 LPRINT"SUM OF BEGINNING BALANCES:"
1740 I2#=C2#: GOSUB 2270: P6=4: P6$="DEBITS": P7=23: GOSUB 2650
1750 I2#=C6#: GOSUB 2270: P6$="CREDITS": P7=22: GOSUB 2650
1760 LPRINT"SUM OF POSTINGS TO ACCOUNTS:"
1770 I2#=C7#: GOSUB 2270: P6$="DEBITS": P7=23: GOSUB 2650
1780 I2#=C8#: GOSUB 2270: P6$="CREDITS": P7=22: GOSUB 2650
1790 IF (C2#+C7#) < (C6#+C8#) THEN I2#=(C2#+C7#) - (C6#+C8#) ELSE I2# = (C6#+C8#) - (C2#+C7#)
1800 IF I2# < 0.01# THEN I2# = 0#: LPRINT"DIFFERENCE, DEBITS LESS CREDITS  = $";: LPRINT SPC(P1);: LPRINT USING FORMAT3$;I2#
1810 FOR I = 1 TO 10: LPRINT: NEXT I: GOTO 2660
1820 K$=INKEY$
1830 IF K$="" THEN GOTO 1820
1840 RETURN
1850 'COMPUTE ACCOUNT BALANCE
1860 D1#=CVD(Y1$) + CVD(Y3$): D2#=(CVD(Y2$) + CVD(Y4$)) * -1#
1870 C9#=D1#+D2#: C9A#=C9#: IF C9A# < 0# THEN C9A#=C9A#*-1#
1880 RETURN
1890 OPEN "PASACT.FIL" FOR INPUT AS #2
1900 OPEN "R",#1,"GENLEG.FIL",111
1910 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
1920 RETURN
1930 F1=0: FOR N = 1 TO LEN(I8$)
1940 IF MID$(I8$,N,1) < "0" OR MID$(I8$,N,1) > "9" THEN F1=1
1950 NEXT N: RETURN
1960 GOSUB 1930
1970 IF F1=1 THEN GOTO 2020
1980 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 2020
1990 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 2020
2000 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 2020
2010 F1=0
2020 RETURN
2030 C4=C4+1: C3=14
2040 FOR L= 1 TO 6
2050 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";C4: GOTO 2080
2060 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: IF L=5 THEN GOSUB 2250: GOTO 2080
2070 LPRINT
2080 NEXT L
2090 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
2100 IF I2=2 THEN GOTO 2130
2110 IF I2=3 THEN GOTO 2140
2120 LPRINT SPC(20);"CHART OF ACTIVE GENERAL LEDGER ACCOUNTS": GOTO 2150
2130 LPRINT SPC(19);"CHART OF INACTIVE GENERAL LEDGER ACCOUNTS": GOTO 2150
2140 LPRINT SPC(14);"CHART OF ACTIVE AND INACTIVE GENERAL LEDGER ACCOUNTS"
2150 LPRINT: LPRINT: LPRINT
2160 LPRINT "ACCOUNT CLASSIFICATIONS";SPC(39);"ACCOUNT";SPC(2);"ACCOUNT
2170 LPRINT SPC(6);"AND TITLES";SPC(46);"BALANCE";SPC(2);"NUMBER": LPRINT
2180 RETURN
2190 FOR L=1 TO B5: LPRINT: NEXT L: RETURN
2200 IF C3 > 55 THEN B5=66-C3: GOSUB 2190: GOSUB 2030
2210 LPRINT: C3=C3+2
2220 IF F8=0 THEN A1$="BALANCE SHEET" ELSE A1$="INCOME STATEMENT"
2230 LPRINT STRING$(25,"*");A1$;" ACCOUNTS";STRING$(25,"*")
2240 RETURN
2250 LPRINT LEFT$(I1$,2);"/";MID$(I1$,3,2);"/";RIGHT$(I1$,2): RETURN
2260 'SET FORMAT STATEMENT.
2270 IF I2# >    999999.99# THEN P1=5: FORMAT3$="###########,.##-": GOTO 2310
2280 IF I2# >       999.99# THEN P1=9: FORMAT3$="#######,.##-": GOTO 2310
2290 IF I2# >          0.99# THEN P1=14: FORMAT3$="###.##-": GOTO 2310
2300 IF I2# <         1#   THEN P1=17: FORMAT3$=".##-"
2310 RETURN
2320 IF ERR=53 THEN GOTO 2350
2330 IF ERR=25 OR ERR=27 THEN GOTO 2380
2340 ON ERROR GOTO 0
2350 CLS: LOCATE 10,2
2360 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
2370 PRINT"TO THE DAILY MENU.": GOSUB 2420: GOSUB 1820: GOTO 2660
2380 CLS: LOCATE 10,2
2390 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
2400 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 2420: GOSUB 1820
2410 CLS: RESUME
2420 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
2430 GOSUB 2420: I8$=""
2440 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
2450 LOCATE ROW,COLUMN
2460 PRINT I8$;
2470 POINTER = 1: A$=" "
2480 WHILE (ASC(A$) <> 13)
2490 A$ = INPUT$(1)
2500 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 2620
2510 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 2570
2520 IF (POINTER > LENGTH) THEN GOTO 2620
2530 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 2600
2540 IF (POINTER = 1) AND (ASC(A$) = 8) THEN GOTO 2600
2550 IF (ASC(A$) <> 8) THEN GOTO 2590
2560 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
2570    MID$(I8$,POINTER-1,1) = CHR$(254)
2580    POINTER = POINTER -1
2590 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
2600 LOCATE ROW,COLUMN
2610 PRINT I8$
2620 WEND
2630 RETURN
2640 LPRINT SPC(P6) P6$ SPC(P7) SPC(P1);: LPRINT USING FORMAT3$;I2#: RETURN
2650 LPRINT SPC(P6) P6$ SPC(P7) "= $" SPC(P1);: LPRINT USING FORMAT3$;I2#: RETURN
2660 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END

NEWACT.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM NEWACT.BAS
1010 CLEAR: ON ERROR GOTO 3460
1080 CLS: LOCATE 12,31: PRINT"PLEASE STAND BY.": GOSUB 1670
1090 CLS: LOCATE 8,1
1100 PRINT"ENTER TODAY'S DATE. (USE FORMAT MMDDYY.  I.E. JUNE 8, 1984 = 060884.)"
1110 GOSUB 3560: ROW=8: COLUMN=72:LENGTH=6: GOSUB 3580
1120 F2=1: GOSUB 2140: IF F1 <> 0 OR LEN(I8$) < 6 THEN GOTO 1110
1130 GOSUB 2550: IF F1 <> 0 THEN GOTO 1110
1140 I3$=I8$: CLS
1150 FORMAT1$="###########,.##"
1160 FORMAT2$="####"
1170 FORMAT4$="###############,.##"
1180 GOSUB 2850: IF I8$="N" OR I8$="n" THEN GOTO 3770
1190 'FIND LAST POSTING RECORD AND NAME & SAVING PASACT.FIL IN MEMORY
1200 DIM BANKAC(31): INPUT #3,F1: QTYAC=F1: FOR I = 1 TO F1-1: INPUT #3,M3
1210 IF I = 4 THEN QTYBNKAC=M3: HOLDMARK=M3: GOTO 1230
1212 IF I=1 THEN ACNOAR=M3: HOLDAR=M3: GOTO 1220
1214 IF I=2 THEN ACNOINV=M3: HOLDINV=M3: GOTO 1220
1216 IF I=3 THEN ACNORE=M3: HOLDRE=M3
1220 NEXT I
1230 F2=M3: FOR I = 1 TO F2: INPUT #3,F1: BANKAC(I)=F1: NEXT I
1240 INPUT #3,M3: ACNOSALES=M3: INPUT #3,M3: ACNOLAST=M3: INPUT #3,T1$: CONAME$=T1$: F1=0: F2=0
1250 'M1 &O0M2 SETS LIMIT ON DR (M1) &O0CR (M2) POSTINGS UNDER ONE ENTRY
1260 '***
1270 M1=30: M2=30: DIM A1(M1): DIM A2$(M1): DIM A3(M2): DIM A4$(M1): DIM A5(M3)
1280 CLS: GOSUB 3250: GOSUB 3450: I2#=0#: GOSUB 2720  'I2#=OPN BAL
1290  P1=15
1300 ' ACCT#
1310 GOSUB 3560: F2=1: ROW=P1: COLUMN=13: LENGTH=4: GOSUB 3580
1320 IF F3=1 AND I8$="Q" THEN GOSUB 1870: GOTO 1570
1330 GOSUB 2140: IF F1=1 THEN GOTO 1310
1340 I1=VAL(I8$): HOLDAC=I1: IF I1 < 1 THEN GOTO 1310
1350 IF I1 > M3 THEN GOSUB 2540: LOCATE 2,1: GOSUB 3350: GOSUB 3240: GOTO 1310
1360 LOCATE P1,13: PRINT SPACE$(4): LOCATE P1,12: PRINT I1: GET #1,I1: I5$=X4$
1370 'ACTIVE ACCT PRINT
1380 IF I5$="0" THEN F1=0: GOTO 1420
1390 GOSUB 2600: IF I8$="N" OR I8$="n" THEN  GOSUB 3240: GOTO 1310
1400 CLS: LOCATE 5,1
1402 PRINT"WARNING!  SINCE YOU ARE DISCONTINUING PROCESSING, SOME ACCOUNTS THAT YOU"
1403 PRINT"ENTERED ON THE VERY LAST SCREEN MAY BE ADDED TO YOUR GENERAL LEDGER WITHOUT"
1404 PRINT"BEING PRINTED ON YOUR PRINTER.  DO YOU STILL WISH TO RETURN TO THE DAILY MENU?"
1405 PRINT"IF NOT, YOU WILL BE ALLOWED TO START AGAIN, WITH THE LAST SCREEN.": PRINT
1406 PRINT"IF YES, DO THIS - WITHOUT FAIL - - - USE OPTION 7 OF THE DAILY MENU TO PINPOINT"
1407 PRINT"WHICH ACCOUNTS WERE ADDED TO YOUR GENERAL LEDGER.  ASK THAT ALL ACTIVE ACCOUNTS"
1408 PRINT"BE PRINTED.  THAT'S THE ONLY WAY TO BE SURE.":PRINT
1409 LOCATE 15,1: PRINT"DO YOU WISH TO RETURN TO THE DAILY MENU?";
1410 ROW=15: COLUMN=43: LENGTH=1: GOSUB 3580
1411 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 1412 ELSE GOTO 1410
1412 IF I8$="Y" OR I8$="y" THEN CLS: ABFLAG=1: LOCATE 10,31: PRINT"STAND BY ...": GOTO 1640
1414 F1=1: GOTO 1570
1420 F1=0: FOR I = 1 TO B1: IF I1=A5(I) THEN F1=1: I=B1
1430 NEXT I
1440 IF CVD(Y1$) = 0# AND CVD(Y2$) = 0# AND F1=0 THEN GOTO 1480
1450 GOSUB 2650: IF I8$="Y" OR I8$="y" THEN GOTO 1640
1460 GOSUB 3250: GOTO 1310
1470 ' ACCT TITLE.
1480 GOSUB 3560: ROW=P1: COLUMN=22: LENGTH=30: GOSUB 3580: I20$=I8$
1490 IF LEFT$(I8$,1) = " " OR LEFT$(I8$,1) < "A" OR LEFT$(I8$,1) > "Z" THEN GOTO 1480
1500 LOCATE P1,22: PRINT SPACE$(30): LOCATE P1,22: PRINT I20$
1510 'DR OR CR PRINT
1520 B1=B1+1: A5(B1)=I1
1530 GOSUB 3560: ROW=P1: COLUMN=60: LENGTH=1: GOSUB 3580: I2$=I8$: GOSUB 2120
1540 IF F1=1 THEN GOTO 1530
1550 LOCATE P1,60: PRINT SPACE$(1): LOCATE P1,60: PRINT I2$: GOSUB 1760: F3=1: GOSUB 4000: GOTO 1310
1560 ' F1=1 MAX. ENTRIES EXCEEDED.  F1=2 NO INPUT.  F1=3#O NOT POST
1570 IF F1=1 OR F1=2 OR F1=3 THEN GOTO 1572 ELSE GOTO 1580
1572 IF ARHIT=1 THEN ACNOAR=HOLDAR: ARHIT=0
1573 IF INVHIT=1 THEN ACNOINV=HOLDINV: INVHIT=0
1574 IF REHIT=1 THEN ACNORE=HOLDRE: REHIT=0
1576 IF BNKHIT=1 THEN QTYBNKAC = QTYBNKAC - NEWBANK: BNKHIT=0
1577 GOTO 1600
1580 CLS: LOCATE 8,1: GOSUB 2310
1590 PRINT"THE NEW ACCOUNT DATA THAT YOU JUST ENTERED HAS BEEN POSTED TO THE GENERAL": PRINT"LEDGER. FOR YOUR RECORDS, THE NEW ACCOUNT DATA WAS PRINTED ON THE PRINTER.": PRINT: GOSUB 2260
1600 CLS: LOCATE 8,1: PRINT"DO YOU DESIRE TO ADD MORE NEW ACCOUNTS TO THE GENERAL LEDGER?": LOCATE 11,1: L1=12: GOSUB 2490
1610 IF I8$="N" OR I8$="n" THEN GOTO 1630
1620 CLS: GOSUB 3250: GOSUB 3450: NEWBANK=0: BNKHIT=0: ARHIT=0: INVHIT=0: REHIT=0: B1=0: C1=0: C2=0: GOTO 1290
1630 IF P3 > 55 THEN P3=66-P3 :GOSUB 2710: GOSUB 2720
1640 FOR I = 1 TO 5: LPRINT: NEXT I
1642 IF ABFLAG=0 THEN GOTO 1650
1644 LPRINT"WHILE ADDING ACCOUNTS TO THE GENERAL LEDGER, YOU SELECTED AN ACTIVE ACCOUNT"
1645 LPRINT"AND ELECTED TO DISCONTINUE PROCESSING.  BE SURE TO USE OPTION 7 OF THE DAILY"
1646 LPRINT"MENU TO DETERMINE WHICH ACCOUNTS, IF ANY, WERE ADDED TO YOUR GENERAL LEDGER.": GOTO 3770
1650 LPRINT"NUMBER OF NEW ACCOUNTS ADDED TO GENERAL LEDGER         =        ";: LPRINT USING FORMAT2$;C5
1660 GOTO 3770  'EOF
1670 OPEN "PASACT.FIL" FOR INPUT AS #3
1680 OPEN "R",1,"GENLEG.FIL",111
1690 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
1700 RETURN
1710 F1=1: GOSUB 2540: LOCATE 5,1
1720 PRINT"MAXIMUM OF ";M1;" NEW DEBIT OR ";M2;" NEW CREDIT ACCOUNTS EXCEEDED."
1730 PRINT"REDESIGN YOUR INPUT SO THAT MAXIMUMS WILL NOT BE EXCEEDED."
1740 PRINT"NONE OF THESE NEW ACCOUNTS WILL BE POSTED UNTIL YOU REDESIGN YOUR INPUT.": PRINT: GOSUB 2260: CLS: RETURN
1750 'SAVE ENTRY
1760 F1=0: IF I2$="C" THEN GOTO 1790
1770 C1=C1+1: IF C1 <= M1 THEN GOTO 1780 ELSE GOTO 1800
1780 A1(C1)=I1: A2$(C1)=I20$: GOTO 1820
1790 C2=C2+1: IF C2 <= M2 THEN GOTO 1810
1800 GOSUB 1710: GOTO 1600
1810 A3(C2)=I1: A4$(C2)=I20$
1820 GOSUB 1840
1830 RETURN
1840 IF P1=22 THEN GOSUB 3070: P1=15: GOTO 1860
1850 P1=P1+1
1860 RETURN
1870 CLS: LOCATE 5,1
1880 PRINT"YOUR INPUT WILL BE DISPLAYED ON THE SCREEN SO THAT YOU MAY VERIFY"
1890 PRINT"IT.  CAREFULLY NOTE ANY ERRORS SO THAT INCORRECT DATA WILL NOT BE POSTED TO"
1900 PRINT"THE ACCOUNTS.": PRINT: GOSUB 2260
1910 F1=0: A1=C1: F1$="DEBIT": C9=0: CLS
1920 GOSUB 3150
1930 FOR I = 1 TO A1: C9=C9+1
1940 IF C9 > 10 THEN GOSUB 3170: C9=1: LOCATE 14,1
1950 IF F1=0 THEN I1=A1(I): I4$=A2$(I): GOTO 1970
1960 I1=A3(I): I4$=A4$(I)
1970 GET #1,I1
1980 GOSUB 3420: NEXT I
1990 IF A1=0 THEN LOCATE 15,13: PRINT"****THERE WERE NO NEW ACCOUNTS WITH ";F1$"S. ****"
2000 GOSUB 3400:LOCATE 4,1: PRINT"THE LIST OF ";F1$;" ENTRIES IS COMPLETE.  NOTE ANY INPUT ERRORS.": LOCATE 8,1: GOSUB 2260: CLS
2010 IF F1=1 THEN GOTO 2030
2020 C9=0: F1=1: A1=C2: F1$="CREDIT": CLS: GOTO 1920
2030 IF C1>0 OR C2>0 THEN GOTO 2080
2040 CLS: LOCATE 5,1
2050 PRINT"YOU DID NOT ENTER ANY NEW ACCOUNTS. INPUT IS REQUIRED BEFORE THE"
2060 PRINT"GENERAL LEDGER CAN BE POSTED.  RETURN TO THE DAILY MENU, RERUN THIS OPTION,"
2070 PRINT"AND ASK THAT A BRIEFING BE DISPLAYED ON THE SCREEN.":LOCATE 10,1: GOSUB 2260: GOTO 1640
2080 CLS: F1=0: LOCATE 5,1: PRINT"DO YOU DESIRE TO ADD TO THE GENERAL LEDGER THE ACCOUNTS THAT YOU JUST REVIEWED?";: L1=8: LOCATE 7,1: GOSUB 2490
2090 IF I8$ = "Y" OR I8$="y" THEN F1=5: GOTO 2110
2100 CLS: F1=3
2110 RETURN
2120 F1=1: IF I2$="D" OR I2$="C" THEN F1=0
2130 RETURN
2140 Q1=0: Q2=0: Q3=0: F1=0
2150 FOR I = 1 TO LEN(I8$): IF F2=1 THEN GOTO 2200
2160 IF MID$(I8$,I,1) <>  "."  THEN  GOTO 2200
2170 Q1=Q1+1: Q3=Q3+1: I6$=RIGHT$(I8$,3): I9$=LEFT$(I6$,1)
2180 IF I9$ <> "." THEN Q1=2: I=LEN(I8$)
2190 GOTO 2210
2200 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN Q2=Q2+1
2210 NEXT I
2220 IF F2=0 AND Q1>1 THEN F1=1
2230 IF (F2=0 OR F2=1) AND  Q2>0 THEN F1=1
2240 IF F2=2 AND (Q1>1 OR Q2>0) THEN F1=1
2242 IF I8$="" OR ((Q3 > 1) OR (LEN(I8$) = 1 AND I8$=".") OR (LEN(I8$) = 2 AND LEFT$(I8$,1) = ".")) THEN F1=1
2250 RETURN
2260 PRINT"PRESS ANY KEY TO CONTINUE.": GOSUB 3560
2270 K$=INKEY$
2280 IF K$="" THEN GOTO 2270
2290 RETURN
2300 'POST THE TRANSACTIONS AND PRINT THE POSTINGS FOR FUTURE REFERENCE.
2310 C8=C1: F1=1: C5=C5+C1+C2
2320 FOR I = 1 TO C8
2330 IF F1=2 THEN GOTO 2380
2340 I1=A1(I): GET #1,I1: I4$=A2$(I): P1=6: GOSUB 3570
2350 LPRINT SPC(1): LPRINT USING FORMAT2$;I1;: LPRINT SPC(5) I4$ SPC(P1);: LPRINT USING FORMAT1$;I2#
2360 IF I=C1 THEN I2$="2" ELSE I2$="D"
2370 I2#=A2#(I): GOSUB 3430: GOTO 2420
2380 I1=A3(I): GET #1,I1: I4$=A4$(I): P1=19: GOSUB 3570
2390 LPRINT SPC(1);: LPRINT USING FORMAT2$;I1;: LPRINT SPC(9) I4$ SPC(P1);: LPRINT USING FORMAT1$;I2#
2400 IF I=C2 THEN I2$="1" ELSE I2$="C"
2410 I2#=A4#(I): GOSUB 3430
2420 LSET X3$=I3$: LSET X9$="NEW A/C": LSET X2$=I4$: LSET X4$="1": LSET X8$=I2$
2430 PUT #1,I1
2440 NEXT I
2450 F1=F1+1: C8=C2
2460 IF F1=2 THEN GOTO 2320
2470 LPRINT: LPRINT: P3=P3+1: GOSUB 3430
2480 RETURN
2490 LOCATE L1,1: PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO'."
2500 GOSUB 3560: ROW=L1: COLUMN=40: LENGTH=1: GOSUB 3580
2510 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 2530
2520 GOTO 2500
2530 L1=0: RETURN
2540 FOR I = 1 TO 10: LOCATE I,1: PRINT SPACE$(80): NEXT I: RETURN
2550 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 2590
2560 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 2590
2570 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 2590
2580 F1=0
2590 RETURN
2600 L1=10: GOSUB 2540: LOCATE 3,1
2610 PRINT"YOU SELECTED AN ACTIVE ACCOUNT FOR POSTING.  THE ACCOUNT NUMBER THAT YOU"
2620 PRINT"SELECTED IS NUMBER ";I1;".  NEW GENERAL LEDGER ACCOUNTS MUST COME FROM INACTIVE"
2630 PRINT"ACCOUNTS.  INACTIVE ACCOUNTS CAN BE IDENTIFIED BY SELECTING OPTION 7 OF THE"
2640 PRINT"DAILY MENU.  DO YOU WISH TO RETURN TO THE DAILY MENU?": PRINT: GOSUB 2490: RETURN
2650 L1=8: GOSUB 2540: LOCATE 1,1
2660 PRINT"THE ACCOUNT NUMBER (NBR.  ";I1;") THAT YOU SELECTED WAS ASSIGNED AN OPENING"
2670 PRINT"BALANCE DURING THIS OR A PREVIOUS SESSION.  ONLY INACTIVE ACCOUNT NUMBERS MAY"
2680 PRINT"BE SPECIFIED IN THIS COMPUTER PROGRAM.  YOU MAY DETERMINE WHICH ACCOUNTS ARE"
2690 PRINT"ACTIVE AND WHICH ARE INACTIVE BY RETURNING TO THE DAILY MENU AND SELECTING"
2700 PRINT"OPTION 7.  DO YOU WISH TO RETURN TO THE DAILY MENU?": GOSUB 2490: GOSUB 2540: RETURN
2710 FOR L = 1 TO P3: LPRINT: NEXT L: RETURN
2720 P2=P2+1: P3=12
2730 FOR L = 1 TO 6
2740 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";P2: GOTO 2770
2750 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: IF L=5 THEN GOSUB 2830: GOTO 2770
2760 LPRINT
2770 NEXT L
2780 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
2790 LPRINT SPC(20) "NEW ACCOUNTS ADDED TO THE GENERAL LEDGER": PRINT: LPRINT
2800 LPRINT "ACCOUNT" SPC(51) "BEGINNING BALANCE"
2810 LPRINT "NUMBER" SPC(4) "ACCOUNT TITLE" SPC(33) "DEBIT" SPC(11) "CREDIT"
2820 LPRINT: RETURN
2830 LPRINT LEFT$(I3$,2) "/" MID$(I3$,3,2) "/" RIGHT$(I3$,2): RETURN
2840 RETURN
2850 L1=11: LOCATE 8,1: PRINT"WOULD YOU LIKE A BRIEFING ON HOW TO USE THIS COMPUTER PROGRAM TO BE"
2860 PRINT"DISPLAYED ON THE COMPUTER SCREEN?": L1=11: GOSUB 2490
2870 IF I8$="N" OR I8$="n" THEN CLS: I8$= " ": GOTO 3060
2880 CLS: LOCATE 4,1
2890 PRINT"THIS COMPUTER PROGRAM IS TO BE USED ONLY FOR ADDING NEW ACCOUNTS TO THE"
2900 PRINT"GENERAL LEDGER.  EACH NEW ACCOUNT MUST ALREADY BE IN THE GENERAL LEDGER AND"
2910 PRINT"BE CLASSIFIED AS AN `INACTIVE ACCOUNT'.  YOU CAN DETERMINE WHICH ACCOUNT"
2920 PRINT"NUMBERS HAVE THIS CLASSIFICATION BY RETURNING TO THE DAILY MENU, SELECTING"
2930 PRINT"OPTION 7 AND SPECIFYING THAT ALL ACCOUNTS BE PRINTED.": PRINT
2940 PRINT"DO YOU WISH TO CONTINUE WITH THIS SESSION?"
2950 L1=13: GOSUB 2490: IF I8$="N" OR I8$="n" THEN GOTO 3060
2960 CLS: LOCATE 3,1: PRINT"THE COMPUTER IS READY TO START ADDING NEW ACCOUNTS TO THE GENERAL LEDGER.": PRINT
2970 PRINT"THREE INPUTS ARE REQUIRED FOR EACH NEW ACCOUNT.  THEY ARE (1) THE ACCOUNT"
2980 PRINT"NUMBER, (2) THE ACCOUNT TITLE, AND (3) A `D' FOR `DEBIT' OR A `C' FOR `CREDIT'.": PRINT
2990 PRINT"ONE LINE ON THE COMPUTER SCREEN IS USED FOR ENTERING (1), (2), AND (3), ABOVE.": PRINT
3000 PRINT"CPA-LEDGER AUTOMATICALLY ASSIGNS TO EACH ACCOUNT A BEGINNING BALANCE OF ZERO.": PRINT
3010 PRINT"YOU SHOULD PRESS THE RETURN KEY AFTER ENTERING EACH OF THE THREE INPUT VALUES."
3020 PRINT"(CAREFULLY NOTE THAT YOU WILL BE REQUIRED TO PRESS THE RETURN KEY THREE TIMES -"
3030 PRINT"ONE TIME FOR EACH OF THE THREE INPUT VALUES.)": PRINT
3040 PRINT"ERROR MESSAGES WILL APPEAR AT THE TOP OF THE COMPUTER SCREEN.  THE ERROR"
3050 PRINT"MESSAGES ARE SELF EXPLANATORY.": PRINT: GOSUB 2260: CLS
3060 RETURN
3070 P1=0: GOSUB 2540: LOCATE 1,1
3080 PRINT"BECAUSE YOU HAVE MORE ACCOUNTS TO INPUT AND THE SCREEN IS FULL, THE
3090 PRINT"LINES BELOW WILL BE ERASED TO MAKE ROOM FOR YOUR ADDITIONAL ACCOUNTS."
3100 PRINT"BEFORE ERASING THE LINES, THE COMPUTER IS PAUSING SO THAT YOU CAN MAKE"
3110 PRINT"WHATEVER NOTES THAT YOU MIGHT WISH.  (EVEN THOUGH THE LINES BELOW WILL"
3120 PRINT"BE ERASED FROM THE SCREEN, THE DATA WILL N-O-T BE ERASED FROM THE"
3130 PRINT"COMPUTER PROGRAM ITSELF.)": PRINT: LOCATE 9,1: GOSUB 2260
3140 CLS: GOSUB 3250: GOSUB 3450: RETURN
3150 LOCATE 12,1: PRINT SPC(5) "ACCOUNT" SPC(39) "ACCOUNT"
3160 PRINT SPC(5)"NUMBER" SPC(6) "ACCOUNT TITLE" SPC(21) "BALANCE": RETURN
3170 GOSUB 3400: LOCATE 3,1
3180 PRINT"BECAUSE THE SCREEN IS FULL, THE ";F1$;" ACCOUNTS BELOW WILL BE ERASED SO THAT"
3190 PRINT"ADDITIONAL ";F1$" ACCOUNTS CAN BE DISPLAYED FOR YOUR REVIEW.  THE COMPUTER IS"
3200 PRINT"PAUSING SO THAT YOU CAN REVIEW THE ENTRIES AND MAKE WHATEVER NOTES THAT YOU"
3210 PRINT"MIGHT WISH.  (EVEN THOUGH THE LINES BELOW WILL BE ERASED FROM THE SCREEN,"
3220 PRINT"THE DATA WILL N-O-T BE ERASED FROM THE PROGRAM ITSELF.)"
3230 PRINT: LOCATE 9,1: GOSUB 2260: CLS: GOSUB 3150: GOSUB 3560: RETURN
3240 GOSUB 2540
3250 LOCATE 1,1
3260 PRINT"ENTER DATA FOR YOUR NEW ACCOUNTS BELOW.  ALWAYS REMEMBER THAT:"
3270 PRINT" 1. EACH NEW ACCOUNT REQUIRES   T-H-R-E-E   INPUTS (ACCOUNT NUMBER;
3280 PRINT"    ACCOUNT TITLE; AND  `D' FOR A `DEBIT' OR  `C' FOR A `CREDIT')."
3290 PRINT" 2. YOU MUST PRESS THE RETURN KEY AFTER   E-A-C-H   OF THE ABOVE THREE INPUTS."
3300 PRINT" 3. CPA-LEDGER AUTOMATICALLY ASSIGNS ZERO AS THE ACCOUNT'S BEGINNING BALANCE."
3310 PRINT" 4. ALL MESSAGES WILL APPEAR IN THE UPPER PART OF THE COMPUTER SCREEN."
3320 PRINT" 5. NEW ACCOUNTS REJECTED IN THEIR ENTIRETY ARE TO BE REENTERED."
3330 PRINT" 6. AFTER ENTERING ALL INPUT FOR A NEW ACCOUNT OR A SERIES OF ACCOUNTS, ENTER A"
3340 PRINT"    A   `Q'   (FOR QUIT)    WHEN YOU ARE ASKED FOR THE NEXT `ACCOUNT NUMBER'.": PRINT STRING$(75,"*"): RETURN
3350 PRINT"YOUR INPUT FOR THE ACCOUNT NUMBER IS TOO LARGE. THE LARGEST ACCOUNT"
3360 PRINT"NUMBER IN THE GENERAL LEDGER IS ACCOUNT NUMBER ";M3;".  IF DESIRED,"
3370 PRINT"YOU CAN DETERMINE THE ACCOUNT NUMBERS IN THE GENERAL LEDGER BY"
3380 PRINT"SELECTING OPTION 7 OF THE DAILY MENU AND SPECIFYING THAT ALL"
3390 PRINT"ACCOUNTS BE PRINTED.": LOCATE 8,1: GOSUB 2260: RETURN
3400 LOCATE 2,1: PRINT"YOUR ";F1$;" ENTRIES (WITH ACCOUNT TITLES) APPEAR BELOW.": RETURN
3420 LOCATE (C9+13),7: PRINT USING FORMAT2$;I1;: LOCATE (C9+13),18: PRINT I4$;: LOCATE (C9+13),53: PRINT F1$: RETURN
3430 P3=P3+1: IF P3>55 THEN P3=66=P3: GOSUB 2710: GOSUB 2720
3440 RETURN
3450 LOCATE 13,11: PRINT "ACCOUNT" SPC(38) "D=DEBIT": PRINT SPC(10) "NUMBER" SPC(5) "ACCOUNT TITLE" SPC(21) "C=CREDIT": RETURN
3460 IF ERR=53 THEN GOTO 3490
3470 IF ERR=25 OR ERR=27 THEN GOTO 3520
3480 ON ERROR GOTO 0
3490 CLS: LOCATE 10,2
3500 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
3510 PRINT"TO THE DAILY MENU.": GOSUB 3560: GOSUB 2270: GOTO 3770
3520 CLS: LOCATE 10,2
3530 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
3540 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 3560: GOSUB 2270
3550 CLS: GOSUB 3250: GOSUB 3450: RESUME
3560 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
3570 L2=LEN(I4$): P1=P1+(30-L2): RETURN  'ADD ADDL SPACES TO P1
3580 GOSUB 3560: I8$=""
3590 FOR X = 1 TO LENGTH: I8$ =I8$ + CHR$(254): NEXT X
3600 LOCATE ROW,COLUMN: PRINT I8$;: POINTER = 1: A$=" "
3610 WHILE (ASC(A$) <> 13)
3620 A$ = INPUT$(1)
3630 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 3750
3640 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 3700
3650 IF (POINTER > LENGTH) THEN GOTO 3750
3660 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 3730
3670 IF (POINTER = 1) AND (ASC(A$) = 8) THEN GOTO 3730
3680 IF (ASC(A$) <> 8) THEN GOTO 3720
3690 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
3700    MID$(I8$,POINTER-1,1) = CHR$(254)
3710    POINTER = POINTER -1
3720 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
3730 LOCATE ROW,COLUMN
3740 PRINT I8$
3750 WEND
3760 RETURN
3770 IF CHGIT=0 THEN GOTO 3830
3780 CLOSE: OPEN "PASACT.FIL" FOR OUTPUT AS #1
3790 QTYAC=QTYAC + (QTYBNKAC - HOLDMARK)
3800 WRITE #1,QTYAC,ACNOAR,ACNOINV,ACNORE,QTYBNKAC
3810 FOR I = 1 TO QTYBNKAC: WRITE #1,BANKAC(I): NEXT I
3820 WRITE #1,ACNOSALES,ACNOLAST,CONAME$
3830 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END
4000 IF ACNOAR <> 0 THEN GOTO 4040
4020 GOSUB 4500: PRINT"IS NEW ACCOUNT FOR ACCOUNTS RECEIVABLE?   (`Y' OR `N')";
4022 GOSUB 5000: IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 4024 ELSE GOTO 4020
4024 IF I8$="N" OR I8$="n" THEN GOTO 4040
4030 GOSUB 6000: IF I8$="Y" OR I8$="y" THEN CHGIT=1: ARHIT=1: ACNOAR=HOLDAC: GOTO 4120 ELSE ARHIT=0: GOSUB 7000: GOTO 4120
4040 IF ACNOINV <> 0 THEN GOTO 4070
4050 GOSUB 4500: PRINT"IS NEW ACCOUNT FOR BEGINNING MERCHANDISE INVENTORY?  (`Y' OR `N')";
4052 GOSUB 5000: IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 4054 ELSE GOTO 4050
4054 IF I8$="N" OR I8$="n" THEN GOTO 4070
4060 GOSUB 6000: IF I8$="Y" OR I8$="y" THEN CHGIT=1: INVHIT=1: ACNOINV=HOLDAC: GOTO 4120 ELSE INVHIT=0: GOSUB 7000: GOTO 4120
4070 IF ACNORE <> 0 THEN GOTO 4100
4080 GOSUB 4500: PRINT"IS THE NEW ACCOUNT FOR RETAINED EARNINGS?  (`Y' OR `N')";
4082 GOSUB 5000: IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 4084 ELSE GOTO 4080
4084 IF I8$="N" OR I8$="n" THEN GOTO 4100
4090 GOSUB 6000: IF I8$="Y" OR I8$="y" THEN CHGIT=1: REHIT=0: ACNORE=HOLDAC: GOTO 4120 ELSE REHIT=0: GOSUB 7000: GOTO 4120
4100 GOSUB 4500: PRINT"IS THE NEW ACCOUNT FOR A BANK ACCOUNT?  (`Y' OR `N')";
4102 GOSUB 5000: IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 4104 ELSE GOTO 4100
4104 IF I8$="N" OR I8$="n" THEN GOTO 4120
4110 GOSUB 6000: IF I8$="Y" OR I8$="y" THEN CHGIT=1: BNKHIT=1: NEWBANK=NEWBANK+1: QTYBNKAC=QTYBNKAC+1: BANKAC(QTYBNKAC)=HOLDAC ELSE GOSUB 7000
4120 GOSUB 4500: RETURN
4500 LOCATE 23,1: PRINT SPACE$(70);: LOCATE 23,1: RETURN
5000 ROW=23: COLUMN=70: LENGTH=1: GOSUB 3580: RETURN
6000 LOCATE 22,1: PRINT"ARE YOU ABSOLUTELY SURE? (`Y' FOR YES OR `N' FOR NO.)";
6002 ROW=22: COLUMN=56: LENGTH=1: GOSUB 3580
6004 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 6006 ELSE GOTO 6002
6006 LOCATE 22,1: PRINT SPACE$(60);: RETURN
7000 LOCATE P1-1,1: PRINT SPACE$(80);: B1=B1-1: P1=P1-1
7010 IF I2$="D" THEN C1=C1-1
7020 IF I2$="C" THEN C2=C2-1
7030 RETURN

OPNBAL.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM OPNBAL.BAS
1010 CLEAR
1020 ON ERROR GOTO 4540
1080 GOSUB 1940
1090 Z49=0: OPEN "PASACT.FIL" FOR INPUT AS #3: INPUT #3,F1
1100 FOR I = 1 TO F1-1: INPUT #3,F2
1110 IF I = 1 OR I = 2 THEN GOTO 1150
1120 IF I = 3 THEN F1=F2: GOTO 1150
1130 IF F2=0 THEN Z49=0: GOTO 1160
1140 Z49=0: DIM Z(F2): FOR J=1 TO F2: INPUT #3,F3: Z49=Z49+1: Z(Z49)=F3: NEXT J: GOTO 1160
1150 NEXT I
1160 INPUT #3,M3: INPUT #3,M3: INPUT #3,T1$: F1=0: F2=0: F3=0: CLOSE #3
1170 GOSUB 1290: GOSUB 3530: IF I8$="N" OR I8$="n" THEN GOTO 1870
1180 CLS: LOCATE 8,1
1190 PRINT"ENTER TODAY'S DATE. USE FORMAT MMDDYY.  (I.E. JUNE 8, 1984 = 060884.)"
1200 ROW=8: COLUMN=71: LENGTH=6: GOSUB 4660: GOSUB 3130
1210 IF LEFT$(I8$,1) = " " OR I8$ < "0" OR LEN(I8$) < 6 THEN GOTO 1180
1220 F2=1: GOSUB 2620: IF F1 <> 0 THEN GOTO 1180
1230 GOSUB 3130: IF F1 <> 0 THEN GOTO 1180
1240 I3$=I8$: CLS: LOCATE 12,31: PRINT"PLEASE STAND BY.": GOSUB 3330
1250 LOCATE 12,1: PRINT SPACE$(80)
1260 'M1 &O0M2 = LIMIT ON DR. (M1) AND CR. (M2) POSTINGS FOR ONE ENTRY.
1270 '***
1280 M1=30: M2=30: DIM A1(M1): DIM A2#(M1): DIM A3(M2): DIM A4#(M2): DIM A5(M3)
1282 GOTO 1320
1290 FORMAT1$="###########,.##"
1300 FORMAT2$="####"
1310 FORMAT4$="###############,.##"
1312 RETURN
1320 CLS: GOSUB 4120: GOSUB 4520
1330 'LOCATE LINE FOR ENTERING POSTING DATA.
1340  P1=15
1350 LOCATE P1,22
1360 'INPUT AND VERIFY ACCOUNT NUMBER.
1370 GOSUB 4650: ROW=P1: COLUMN=22: LENGTH=4: GOSUB 4660
1380 IF F3=1 AND I8$="Q" THEN GOSUB 2200: GOTO 1780
1390  F2=1: GOSUB 2620: IF F1 <> 0 OR I8$ < "0" THEN GOTO 1350
1400 I1=VAL(I8$)
1410 IF I1 =< 0 THEN GOTO 1350
1420 IF I1 > M3 THEN GOSUB 3120: LOCATE 2,1: GOSUB 4310: GOSUB 4110: GOTO 1350
1430 LOCATE P1,21: PRINT SPACE$(5): LOCATE P1,22: PRINT I1: GET #1,I1: CLASSI$=X1$: I5$=X4$
1432 IF X8$="1" THEN SAME1$="C": GOTO 1450 '1OR2 COMES FROM NEWACT
1434 IF X8$="2" THEN SAME1$="D": GOTO 1450
1436 SAME1$=X8$
1440 'ACTIVE ACT PRINT
1450 IF I5$="1" THEN F1=0: GOTO 1490
1460 GOSUB 3180: GOSUB 3120: IF I8$="Y" OR I8$="y" THEN GOSUB 4210: GOTO 1860
1470 GOSUB 4120: GOTO 1350
1480 ' USED BEFORE PRINT
1490 FOR I = 1 TO B1: IF I1=A5(I) THEN F1=1
1500 NEXT I
1510 IF CVD(Y1$) = 0# AND CVD(Y2$) = 0# AND F1=0 THEN  LOCATE P1,21: PRINT " ";: GOTO 1550
1520 GOSUB 3270: IF I8$="N" OR I8$="n" THEN GOSUB 4120: GOTO 1350
1530 CLS: GOTO 1860
1540 'DR OR CR PRINT
1550 B1=B1+1: A5(B1)=I1
1560 GOSUB 4650: ROW=P1: COLUMN=35: LENGTH=1: GOSUB 4660: GOSUB 2600
1570 IF F1 <> 0 THEN GOTO 1560
1580 LOCATE P1,34: PRINT SPACE$(2): LOCATE P1,35: PRINT I8$: I2$=I8$
1590 'MAKE SURE DEBITS GOTO DEBIT ACCOUNTS AND CREDITS GOTO CREDIT ACCOUNTS.
1600 IF I2$=SAME1$ THEN GOTO 1710
1610 ' SKIP BANK A/C'S - MAY BE OVERDRAFT
1620 IF Z49=0 THEN GOTO 1660  'NO BANK A/C IN GL
1630 FOR J = 1 TO Z49: IF I1 = Z(J) THEN GOTO 1710  'Z( HAS BANK A/C #S
1640 NEXT J
1650 ' NOT A BANK A/C.  NOW SKIP R/E - MAY BE DEFICIT.
1660 IF CLASSI$="RETAINED EARNINGS        " THEN GOTO 1710
1670 ' NOT A BANK A/C OR R/E.
1680 GOSUB 4010: IF I8$="N" OR I8$="n" THEN B1=B1-1: LOCATE P1,34: PRINT SPACE$(2): GOSUB 4120: GOTO 1350
1690 GOSUB 4210: GOTO 1820
1700 ' $ OK PRINT
1710 GOSUB 4650: ROW=P1: COLUMN=44: LENGTH=10: GOSUB 4660: F2=0: GOSUB 2620
1720 IF F1=1 THEN GOTO 1750
1730 I2#=VAL(I8$)
1740 IF I2# > 0# AND I2# =< 9999999.99# THEN LOCATE P1,44: PRINT SPACE$(11): LOCATE P1,43: PRINT I2#: GOSUB 2040: F3=1: GOTO 1350
1750 GOSUB 3450: GOSUB 4110: B1=B1-1: LOCATE P1,1: PRINT SPACE$(53): GOTO 1350  'B1 USED TO STORE A/C#s
1760 ' F1=1 MAX. DR. OR CR. ENTRIES EXCEEDED.  F1=2 NO DR. OR CR. INPUT.
1770 ' F1=3#O NOT DESIRE TO POST. F1=4#R. <> CR.  F1=5#R=CR AND POST.
1780 IF F1=1 OR F1=2 OR F1=3 OR F1=4 THEN GOTO 1820
1790 CLS: LOCATE 8,1: GOSUB 2800
1800 PRINT"THE OPENING BALANCES THAT YOU JUST ENTERED HAVE BEEN POSTED TO THE GENERAL": PRINT"LEDGER. FOR YOUR RECORDS, THE ENTRY WAS PRINTED ON THE PRINTER.": PRINT: GOSUB 2740
1810 C5=C5+1: C6#=C6#+C3#: C7#=C7#+C4#
1820 CLS: LOCATE 8,1: PRINT"DO YOU DESIRE TO POST ADDITIONAL OPENING BALANCES TO THE GENERAL LEDGER?": LOCATE 11,1: L1=11: GOSUB 3070
1830 IF I8$="N" OR I8$="n" THEN GOTO 1860
1840 CLS: GOSUB 4120: GOSUB 4520: B1=0: C1=0: C2=0: C3#=0# : C4#=0# : GOTO 1340
1850 'PRINT SUMMARY DATA.
1860 IF P3 > 55 THEN P4=66-P3 :GOSUB 3320: GOSUB 3330
1870 FOR I = 1 TO 5: LPRINT: NEXT I
1880 LPRINT"NUMBER OF GENERAL LEDGER ENTRIES POSTED               =        ";: LPRINT USING FORMAT2$;C5
1890 LPRINT"VALUE OF ALL DEBITS POSTED                            = $";: LPRINT USING FORMAT4$;C6#
1900 LPRINT"VALUE OF ALL CREDITS POSTED                           = $";: LPRINT USING FORMAT4$;C7#
1910 IF C6# > C7# THEN C5# = C6# - C7# ELSE C5# = C7# - C6#
1920 LPRINT"DIFFERENCE - DEBITS LESS CREDITS POSTED               = $";: LPRINT USING FORMAT4$;C5#
1930 GOTO 4870
1940 OPEN "TEST2.FIL" FOR INPUT AS #3: CLOSE #3
1950 OPEN "R",1,"GENLEG.FIL",111
1960 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
1970 OPEN "GENJNL.FIL" FOR APPEND AS #2
1980 RETURN
1990 F1=1: GOSUB 3120: LOCATE 5,1
2000 PRINT"MAXIMUM OF ";M1;" DEBIT OR ";M2;" CREDIT POSTING EXCEEDED."
2010 PRINT"REDESIGN YOUR ENTRY SO THAT MAXIMUMS WILL NOT BE EXCEEDED."
2020 PRINT"NONE OF THIS GENERAL LEDGER ENTRY WILL BE POSTED UNTIL YOU REDESIGN THE ENTRY.": PRINT: GOSUB 2740: CLS: RETURN
2030 'SAVE ENTRY.
2040 F1=0
2050 IF I2$="C" THEN GOTO 2090
2060 C1=C1+1: C3#=C3#+I2#: IF C1 <= M1 THEN GOTO 2080
2070 GOTO 2110
2080 A1(C1)=I1: A2#(C1)=I2#: GOTO 2130
2090 C2=C2+1: C4#=C4#+I2#
2100 IF C2 <= M2 THEN GOTO 2120
2110 GOSUB 1990: GOTO 2140
2120 A3(C2)=I1: A4#(C2)=I2#
2130 GOSUB 2150
2140 RETURN
2150 IF P1=22 THEN GOSUB 3840: P1=15: GOTO 2170
2160 P1=P1+1
2170 RETURN
2180 GOSUB 3120: LOCATE 5,1
2190 PRINT"ENTRY IS INCORRECT.  TRY AGAIN.  PRESS ANY KEY TO CONTINUE.": GOSUB 2750: RETURN
2200 CLS: LOCATE 2,1
2210 CLS: PRINT"YOUR INPUT WILL BE DISPLAYED ON THE SCREEN SO THAT YOU CAN VERIFY"
2220 PRINT"IT.  (FOR YOUR INFORMATION, ACCOUNT TITLES ASSIGNED TO THE ACCOUNT"
2230 PRINT"NUMBERS THAT YOU INPUT WILL ALSO BE DISPLAYED.)  CAREFULLY NOTE ANY"
2240 PRINT"ERRORS SO THAT INCORRECT DATA WILL NOT BE POSTED TO THE ACCOUNTS.": PRINT: GOSUB 2740
2250 F1=0: A1=C1: F1$="DEBIT": C9=0: CLS
2260 GOSUB 3920
2270 FOR I = 1 TO A1
2280 C9=C9+1
2290 IF C9 > 10 THEN GOSUB 3940: C9=1: LOCATE 14,1
2300 IF F1=0 THEN I1=A1(I): B2#=A2#(I): GOTO 2320
2310 I1=A3(I): B2#=A4#(I)
2320 GET #1,I1
2330 I4$=X2$: GOSUB 4370: NEXT I
2340 IF A1=0 THEN LOCATE 15,13: PRINT"****THERE WERE NO ";F1$" ENTRIES.****"
2350 GOSUB 4360:LOCATE 4,1: PRINT"THE LIST OF ";F1$;" ENTRIES IS COMPLETE.  NOTE ANY INPUT ERRORS.": LOCATE 8,1: GOSUB 2740: CLS
2360 IF F1=1 THEN GOTO 2380
2370 C9=0: F1=1: A1=C2: F1$="CREDIT": CLS: GOTO 2260
2380 IF C1>0 OR C2>0 THEN GOTO 2430
2390 CLS: LOCATE 5,1
2400 PRINT"YOU DID NOT ENTER ANY DEBITS OR CREDITS.  INPUT IS REQUIRED BEFORE THE"
2410 PRINT"GENERAL LEDGER CAN BE POSTED.  RETURN TO THE SETUP MENU, RERUN THIS OPTION,"
2420 PRINT"AND ASK THAT INSTRUCTIONS BE DISPLAYED ON THE SCREEN.":LOCATE 10,1: GOSUB 2740: GOTO 2590
2430 CLS: LOCATE 5,1: PRINT"DO YOU DESIRE TO POST THE DEBIT AND CREDIT ENTRIES THAT YOU JUST REVIEWED?";: L1=7: LOCATE 7,1: GOSUB 3070
2440 IF I8$ = "Y" OR I8$="y" THEN GOTO 2460
2450 CLS: F1=3: GOSUB 4210: GOTO 2590
2460 IF C3# = C4# THEN F1=5: GOTO 2590
2470 IF C3# > C4# THEN C5# = C3# - C4# ELSE C5# = C4# - C3#
2480 IF C5# < 0.01# THEN F1=5: GOTO 2590
2490 CLS: LOCATE 5,1: F1=4
2500 PRINT"FOR THE ENTRY THAT YOU JUST REVIEWED, THE TOTAL VALUE OF THE VALUE OF THE"
2510 PRINT"DEBITS DO NOT EQUAL THE TOTAL VALUE OF THE CREDITS.  NONE OF THE DEBITS"
2520 PRINT"OR CREDITS FOR THIS ENTRY WILL BE POSTED TO THE GENERAL LEDGER."
2530 PRINT"CAREFULLY REVIEW THE DEBIT AND CREDIT AMOUNTS AND REENTER THE ENTIRE"
2540 PRINT"ENTRY FROM THE BEGINNING.  THE TOTAL VALUES ARE AS FOLLOWS:"
2550 PRINT
2560 PRINT"  TOTAL VALUE OF DEBITS             = $";: PRINT USING FORMAT4$;C3#
2570 PRINT"  TOTAL VALUE OF CREDITS            = $";: PRINT USING FORMAT4$;C4#
2580 LOCATE 14,1: F1=6: GOSUB 4220: F1=2
2590 RETURN
2600 F1=1: IF I8$="D" OR I8$="C" THEN F1=0
2610 RETURN
2620 Q1=0: Q2=0: Q3=0: F1=0
2630 FOR I = 1 TO LEN(I8$): IF F2=1 THEN GOTO 2680
2640 IF MID$(I8$,I,1) <>  "."  THEN  GOTO 2680
2650 Q1=Q1+1: Q3=Q3+1: I6$=RIGHT$(I8$,3): I9$=LEFT$(I6$,1)
2660 IF I9$ <> "." THEN Q1=2: I=LEN(I8$)
2670 GOTO 2690
2680 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN Q2=Q2+1
2690 NEXT I
2700 IF F2=0 AND Q1>1 THEN F1=1
2710 IF (F2=0 OR F2=1) AND Q2>0 THEN F1=1
2720 IF F2=2 AND (Q1>1 OR Q2 > 0) THEN F1=1
2722 IF I8$="" OR ((Q3 > 1) OR (LEN(I8$) = 1 AND I8$=".") OR (LEN(I8$) = 2 AND LEFT$(I8$,1) = ".")) THEN F1=1
2730 RETURN
2740 PRINT"PRESS ANY KEY TO CONTINUE."
2750 GOSUB 4650
2760 K$=INKEY$
2770 IF K$="" THEN GOTO 2760
2780 RETURN
2790 'POST TRANS AND PRINT
2800 C8=C1: F1=1
2810 FOR I = 1 TO C8
2820 IF F1=2 THEN GOTO 2870
2830 I1=A1(I): GET #1,I1: I4$=X2$: GOSUB 4410
2840 LPRINT SPC(1): LPRINT USING FORMAT2$;I1;: LPRINT SPC(5) I4$ SPC(P1);: LPRINT USING FORMAT3$;I2#
2850 IF I=C1 THEN I2$="2" ELSE I2$="D"
2860 I2#=A2#(I): GOSUB 4380: GOTO 2910
2870 I1=A3(I): GET #1,I1: I4$=X2$: GOSUB 4410
2880 LPRINT SPC(1);: LPRINT USING FORMAT2$;I1;: LPRINT SPC(9) I4$ SPC(P1);: LPRINT USING FORMAT3$;I2#
2890 IF I=C2 THEN I2$="1" ELSE I2$="C"
2900 I2#=A4#(I): GOSUB 4380
2910 LSET X3$=I3$: LSET X9$="OPENING"
2920 IF F1=1 THEN LSET Y1$=MKD$(I2#)
2930 IF F1=2 THEN LSET Y2$=MKD$(I2#)
2940 PUT #1,I1
2950 ' POST THE GENERAL JOURNAL. I7$=TRANSACTION DATE; I1=ACCOUNT NUMBER;
2960 ' I2$=D OR DEBIT, C FOR CREDIT; J1$=POSTING REFERENCE; F6$=CHECK NUMBER
2970 ' I2#=TRANSACTION AMOUNT; F90$=PAYEE FOR CHECK; F100$=TRANS EXPLANATION
2980 IF I=1 THEN F100$="OPENING JOURNAL ENTRY": J1$="OPENING": I7$=I3$: F6$=" ": F90$=" "
2990 IF I=1 THEN WRITE #2,0,F100$,J1$,I7$
3000 ' ***
3010 WRITE #2, I1,I2$,I2#,F6$,F90$
3020 NEXT I
3030 F1=F1+1: C8=C2
3040 IF F1=2 THEN GOTO 2810
3050 LPRINT: LPRINT: P3=P3+1: GOSUB 4380
3060 RETURN
3070 GOSUB 4650: PRINT"ENTER `Y'  FOR `YES' OR  `N'  FOR `NO'.";
3080 ROW=L1: COLUMN=43: LENGTH=1: GOSUB 4660
3090 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 3110
3100 GOTO 3080
3110 L1=0: RETURN
3120 FOR I = 1 TO 10: LOCATE I,1: PRINT SPACE$(80): NEXT I: RETURN
3130 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 3170
3140 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 3170
3150 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 3170
3160 F1=0
3170 RETURN
3180 L1=10: GOSUB 3120: LOCATE 1,1
3190 PRINT"YOU SELECTED AN INACTIVE ACCOUNT FOR POSTING.  THE ACCOUNT NUMBER"
3200 PRINT"THAT YOU SELECTED IS NUMBER ";I1;".  YOU WILL NOT BE ALLOWED TO ASSIGN AN"
3210 PRINT"OPENING AMOUNT TO THIS ACCOUNT BECAUSE IT IS CLASSIFIED AS INACTIVE.  REFER"
3220 PRINT"TO THE PRINTOUT OF THE CHART OF ACCOUNTS FROM SETUP OPTION 1.  IF YOU DID NOT"
3230 PRINT"MAKE A MISTAKE IN YOUR INPUT, RETURN TO THE SETUP MENU AND SELECT ALL OPTIONS"
3240 PRINT"AGAIN, STARTING WITH OPTION 1.": PRINT
3250 PRINT"DO YOU WISH TO RETURN TO THE SETUP MENU?"
3260 PRINT: GOSUB 3070: RETURN
3270 L1=7: GOSUB 3120: LOCATE 1,1
3280 PRINT"THE ACCOUNT NUMBER (NBR.  ";I1;") THAT YOU SELECTED FOR POSTING WAS ASSIGNED"
3290 PRINT"AN OPENING BALANCE DURING THIS OR A PREVIOUS SESSION.  ONLY   O-N-E   OPENING"
3300 PRINT"BALANCE PER ACCOUNT IS PERMITTED.": PRINT
3310 GOSUB 3250: GOSUB 3120: RETURN
3320 FOR L = 1 TO P3: LPRINT: NEXT L: RETURN
3330 P2=P2+1: P3=13
3340 FOR L = 1 TO 6
3350 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";P2: GOTO 3380
3360 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: IF L=5 THEN GOSUB 3440: GOTO 3380
3370 LPRINT
3380 NEXT L
3390 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
3400 LPRINT SPC(32) "OPENING ENTRIES": LPRINT: LPRINT
3410 LPRINT "ACCOUNT"
3420 LPRINT "NUMBER" SPC(4) "ACCOUNT TITLE" SPC(33) "DEBIT" SPC(11) "CREDIT"
3430 LPRINT: RETURN
3440 LPRINT LEFT$(I3$,2);"/";MID$(I3$,3,2);"/";RIGHT$(I3$,2): RETURN
3450 GOSUB 3120: LOCATE 2,1
3460 PRINT"YOUR INPUT FOR THE DOLLAR AMOUNT IS INCORRECT.  THE O-N-L-Y ALLOWABLE"
3470 PRINT"CHARACTERS FOR THE DOLLAR AMOUNT ARE ZERO(0) THROUGH NINE (9) AND A PERIOD"
3480 PRINT"TO SEPARATE DOLLARS AND CENTS.  EXAMPLES OF CORRECT INPUT, FOR EITHER"
3490 PRINT"DEBITS OR CREDITS, ARE SHOWN BELOW."
3500  PRINT".01  1   1.00  1.01   126   126.00   126.59   1648   1648.00   1648.25"
3510 PRINT"THE MINIMUM DOLLAR AMOUNT FOR ANY ONE DEBIT OR CREDIT IS .01."
3520 PRINT"THE MAXIMUM DOLLAR AMOUNT FOR ANY ONE DEBIT OR CREDIT IS 9999999.99.": PRINT: GOSUB 2740: RETURN
3530 CLS: L1=11: LOCATE 8,1: PRINT"WOULD YOU LIKE A BRIEFING ON HOW TO USE THIS COMPUTER PROGRAM TO BE"
3540 PRINT"DISPLAYED ON THE SCREEN?": LOCATE 11,1: GOSUB 3070
3550 IF I8$="N" OR I8$="n" THEN CLS: I8$=" ": GOTO 3830
3560 CLS: LOCATE 1,1
3570 PRINT"THIS COMPUTER PROGRAM IS TO BE USED ONLY FOR POSTING OPENING (BEGINNING)"
3580 PRINT"BALANCES TO THE GENERAL LEDGER ACCOUNTS.  EACH GENERAL LEDGER ACCOUNT TO"
3590 PRINT"BE POSTED M-U-S-T BE AN ACTIVE ACCOUNT.  YOU CAN DETERMINE WHICH ACCOUNTS"
3600 PRINT"ARE ACTIVE BY REVIEWING THE PRINTOUT FROM SETUP OPTION 1.": PRINT
3610 PRINT"ALSO, THIS COMPUTER PROGRAM WILL N-O-T ALLOW YOU TO ASSIGN MORE THAN"
3620 PRINT"O-N-E OPENING BALANCE PER GENERAL LEDGER ACCOUNT.  ONCE AN GENERAL"
3630 PRINT"LEDGER ACCOUNT HAS BEEN ASSIGNED AN OPENING BALANCE, THAT BALANCE"
3640 PRINT"C-A-N-N-O-T BE CHANGED BY THIS COMPUTER PROGRAM.": PRINT
3650 PRINT"IF YOU FIND THAT YOU HAVE NOT ESTABLISHED ALL OF THE REQUIRED ACCOUNTS,"
3660 PRINT"OR IF YOU ASSIGN IMPROPER AMOUNTS TO ACCOUNTS, YOU SHOULD RERUN OPTIONS 1, 2,"
3670 PRINT"AND 3 OF THE SETUP MENU.": PRINT
3680 PRINT"DO YOU WISH TO CONTINUE WITH THIS SESSION?"
3690 L1=16: GOSUB 3070: IF I8$="N" OR I8$="n" THEN GOTO 3830
3700 CLS: LOCATE 1,1: PRINT"THE COMPUTER IS READY TO START ACCEPTING YOUR OPENING JOURNAL ENTRIES."
3710 PRINT"EACH JOURNAL ENTRY REQUIRES AT LEAST ONE DEBIT AND ONE CREDIT.  EACH DEBIT"
3720 PRINT"OR CREDIT, IN TURN, REQUIRES  T-H-R-E-E  INPUT VALUES.  THE THREE INPUT""
3730 PRINT"VALUES ARE (1) THE ACCOUNT NUMBER, (2) A `D' TO SIGNIFY A `DEBIT OR A `C'"
3740 PRINT"SIGNIFY A `CREDIT', AND (3) THE DOLLAR AMOUNT OF THE DEBIT OR CREDIT.": PRINT
3750 PRINT"ONE LINE ON THE COMPUTER SCREEN IS USED FOR INPUTTING (1), (2), AND"
3760 PRINT"(3) ABOVE.  YOU SHOULD PRESS THE RETURN KEY AFTER INPUTING EACH OF"
3770 PRINT"OF THE THREE INPUT VALUES.  (CAREFULLY NOTE THAT YOU WILL BE REQUIRED"
3780 PRINT"TO PRESS THE RETURN KEY T-H-R-E-E TIMES FOR EACH LINE OF INPUT - ONE"
3790 PRINT"TIME AFTER YOU INPUT THE ACCOUNT NUMBER, ONE TIME AFTER YOU SIGNIFY"
3800 PRINT"A DEBIT (`D') OR CREDIT (`C'), AND ONE TIME AFTER YOU INPUT THE AMOUNT.)": PRINT
3810 PRINT"ERROR MESSAGES WILL APPEAR AT THE TOP OF THE COMPUTER SCREEN.  THE"
3820 PRINT"ERROR MESSAGES ARE SELF EXPLANATORY.": PRINT: GOSUB 2740: CLS
3830 RETURN
3840 P1=0: GOSUB 3120: LOCATE 1,1
3850 PRINT"BECAUSE YOU HAVE MORE ENTRIES TO INPUT AND THE SCREEN IS FULL, THE"
3860 PRINT"LINES BELOW WILL BE ERASED TO MAKE ROOM FOR YOUR ADDITIONAL ENTRIES."
3870 PRINT"BEFORE ERASING THE LINES, THE COMPUTER IS PAUSING SO THAT YOU CAN MAKE"
3880 PRINT"WHATEVER NOTES THAT YOU MIGHT WISH.  (EVEN THOUGH THE LINES BELOW WILL"
3890 PRINT"BE ERASED FROM THE SCREEN, THE DATA WILL N-O-T BE ERASED FROM THE"
3900 PRINT"COMPUTER PROGRAM ITSELF.)": PRINT: LOCATE 9,1: GOSUB 2740
3910 CLS: GOSUB 4120: GOSUB 4520: RETURN
3920 LOCATE 12,1: PRINT SPC(5) "ACCOUNT"
3930 PRINT SPC(5)"NUMBER" SPC(6) "ACCOUNT TITLE" SPC(27) "AMOUNT": RETURN
3940 GOSUB 4360: LOCATE 3,1
3950 PRINT"BECAUSE THE SCREEN IS FULL, THE ";F1$;" ENTRIES BELOW WILL BE ERASED SO THAT"
3960 PRINT"ADDITIONAL ";F1$" ENTRIES CAN BE DISPLAYED FOR YOUR REVIEW.  THE COMPUTER IS"
3970 PRINT"PAUSING SO THAT YOU CAN REVIEW THE ENTRIES AND MAKE WHATEVER NOTES THAT YOU"
3980 PRINT"MIGHT WISH.  (EVEN THOUGH THE LINES BELOW WILL BE ERASED FROM THE SCREEN,"
3990 PRINT"THE DATA WILL N-O-T BE ERASED FROM THE PROGRAM ITSELF.)"
4000 PRINT: LOCATE 9,1: GOSUB 2740: CLS: GOSUB 3920: GOSUB 4650: RETURN
4010 GOSUB 3120: LOCATE 1,1: I5$=X2$: L1=9
4020 IF I2$="D" THEN I4$="DEBIT" ELSE I4$="CREDIT"
4030 PRINT"YOUR OPENING ENTRY IS INCORRECT.  YOU REQUESTED TO DEBIT A CREDIT BALANCE"
4040 PRINT"ACCOUNT OR TO CREDIT A DEBIT BALANCE ACCOUNT.  ACCORDING TO YOUR INPUT"
4050 PRINT"YOU WANT TO   ";I4$;"   THE ACCOUNT    `";I5$;"'."
4060 PRINT"NONE OF YOUR ENTRY WILL BE POSTED UNTIL YOU CORRECT THE PREVIOUS DEBIT OR"
4070 PRINT"CREDIT.  WOULD YOU LIKE TO REENTER THIS ENTIRE ENTRY FROM THE BEGINNING?"
4080 PRINT"IF YOUR ANSWER IS `N' FOR `NO', YOU WILL BE ASKED TO REENTER THIS DEBIT OR"
4090 PRINT"CREDIT, STARTING WITH THE   A-C-C-O-U-N-T  N-U-M-B-E-R.)": PRINT
4100 GOSUB 3070: GOSUB 3120: RETURN
4110 GOSUB 3120
4120 LOCATE 1,1
4130 PRINT"ENTER YOUR DEBIT AND CREDIT ENTRIES BELOW.  ALWAYS REMEMBER THAT:"
4140 PRINT" 1. EACH DEBIT OR CREDIT ENTRY REQUIRES  T-H-R-E-E  INPUTS (THE ACCOUNT NUMBER;"
4150 PRINT"    A   `D'   FOR A  `DEBIT'  OR A   `C'   FOR A  `CREDIT'; AND THE AMOUNT)."
4160 PRINT" 2. YOU MUST PRESS THE RETURN KEY AFTER   E-A-C-H   OF THE THREE ABOVE INPUTS."
4170 PRINT" 3. ALL MESSAGES WILL APPEAR IN THE UPPER PART OF THE COMPUTER SCREEN."
4180 PRINT" 4. JOURNAL ENTRIES REJECTED IN THEIR ENTIRETY ARE TO BE REENTERED."
4190 PRINT" 5. **** AFTER YOU HAVE COMPLETED ALL INPUT FOR A JOURNAL ENTRY, ENTER A   `Q'"
4200 PRINT"    (FOR QUIT) WHEN YOU ARE ASKED FOR THE NEXT `ACCOUNT NUMBER'.****": RETURN
4210 LOCATE 2,1
4220 PRINT"THE COMPUTER IS PAUSING FOR YOU TO REVIEW YOUR SOURCE DOCUMENTATION."
4230 PRINT"DETERMINE WHETHER YOUR DOCUMENTATION OR YOUR INPUT IS IN ERROR."
4240 PRINT"REMEMBER, NO DEBITS OR CREDITS OF THIS JOURNAL ENTRY WILL BE POSTED TO THE"
4250 PRINT"GENERAL LEDGER.  REINPUT THIS JOURNAL ENTRY EITHER DURING THIS SESSION OR"
4260 PRINT"AT A LATER TIME.  IN   E-I-T-H-E-R   CASE,    C-A-R-E-F-U-L-L-Y    MARK THE"
4270 PRINT"ENTRY SO THAT YOU WILL REMEMBER THAT IT IS TO BE REINPUT."
4280 IF F1=6 THEN LOCATE 21,1: GOTO 4300
4290 LOCATE 9,1
4300 GOSUB 2740: RETURN
4310 PRINT"YOUR INPUT FOR THE ACCOUNT NUMBER IS TOO LARGE. THE LARGEST ACCOUNT"
4320 PRINT"NUMBER IN THE GENERAL LEDGER IS ACCOUNT NUMBER ";M3;".  IF DESIRED,"
4330 PRINT"YOU CAN DETERMINE THE ACCOUNT NUMBERS IN THE GENERAL LEDGER BY"
4340 PRINT"REVIEWING THE CHART OF GENERAL LEDGER ACCOUNTS THAT WAS PRINTED WHEN"
4350 PRINT"YOU USED SETUP OPTION 1.": LOCATE 8,1: GOSUB 2740: RETURN
4360 LOCATE 2,1: PRINT"YOUR ";F1$;" ENTRIES (WITH ACCOUNT TITLES) APPEAR BELOW.": RETURN
4370 LOCATE (C9+13),6: PRINT USING FORMAT2$;I1;: LOCATE (C9+13),15: PRINT I4$;: LOCATE (C9+13),49: PRINT USING FORMAT1$;B2#: RETURN
4380 P3=P3+1
4390 IF P3>55 THEN P4=66-P3: GOSUB 3320: GOSUB 3330
4400 RETURN
4410 IF F1=2 THEN I2#=A4#(I) ELSE I2#=A2#(I)
4420 IF F1=2 THEN GOTO 4470
4430 IF I2# > 999999.99# THEN P1=6: FORMAT3$="###########,.##": GOTO 4510
4440 IF I2# > 999.99# THEN P1=10: FORMAT3$="#######,.##": GOTO 4510
4450 IF I2# > 0.99# THEN P1=15: FORMAT3$="###.##": GOTO 4510
4460 IF I2# < 1# THEN P1=18: FORMAT3$=".##": GOTO 4510
4470 IF I2# > 999999.99# THEN P1=19: FORMAT3$="###########,.##": GOTO 4510
4480 IF I2# > 999.99# THEN P1=23: FORMAT3$="#######,.##": GOTO 4510
4490 IF I2# > 0.99# THEN P1=28: FORMAT3$="###.##": GOTO 4510
4500 IF I2# < 1# THEN P1=31: FORMAT3$=".##"
4510 RETURN
4520 LOCATE 13,20: PRINT "ACCOUNT" SPC(5) "D=DEBIT" SPC(5) "DOLLAR": PRINT SPC(19) "NUMBER" SPC(6) "C=CREDIT" SPC(4) "AMOUNT": RETURN
4530 ' ERROR HANDLING ROUTINE.
4540 IF ERR=53 THEN GOTO 4570
4550 IF ERR=25 OR ERR=27 THEN GOTO 4610
4560 ON ERROR GOTO 0
4570 CLS: LOCATE 10,1
4580 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
4590 PRINT"TO THE SETUP MENU.": GOSUB 2740
4600 GOTO 4870
4610 CLS: LOCATE 10,2
4620 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
4630 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 2750
4640 CLS: RESUME
4650 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
4660 GOSUB 4650: I8$=""
4670 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
4680 LOCATE ROW,COLUMN
4690 PRINT I8$;
4700 POINTER = 1: A$=" "
4710 WHILE (ASC(A$) <> 13)
4720 A$ = INPUT$(1)
4730 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 4850
4740 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 4800
4750 IF (POINTER > LENGTH) THEN GOTO 4850
4760 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 4830
4770 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 4830
4780 IF (ASC(A$) <> 8) THEN GOTO 4820
4790 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
4800    MID$(I8$,POINTER-1,1) = CHR$(254)
4810    POINTER = POINTER -1
4820 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
4830 LOCATE ROW,COLUMN
4840 PRINT I8$
4850 WEND
4860 RETURN
4870 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "SETUP.BAS": END

PANDL.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM PANDL.BAS
1010 CLEAR: ON ERROR GOTO 6310
1090 H2$="INCOME STATEMENT"
1100 CLS: LOCATE 10,1: PRINT"ENTER THE BEGINNING DATE FOR THE INCOME STATEMENT.": PRINT "(USE FORMAT MMDDYY. I.E., JUNE 30, 1984 = 063084.)";: GOSUB 3550: ROW=11: COLUMN=58: LENGTH=6: GOSUB 6410
1110 GOSUB 3330: IF F1 <> 0 OR LEN(I8$) < 6 THEN CLS: GOTO 1100
1120 GOSUB 4330: IF F1 <> 0 THEN CLS: GOTO 1100
1130 T3$=I8$
1140 LOCATE 13,1: PRINT"ENTER THE ENDING DATE FOR THE INCOME STATEMENT.": PRINT "(USE FORMAT MMDDYY. I.E., DECEMBER 31, 1984 = 123184.)";: GOSUB 3550: ROW=14: COLUMN=58: LENGTH=6: GOSUB 6410
1150 GOSUB 3330: IF F1 <> 0 OR LEN(I8$) < 6 THEN GOTO 1140
1160 GOSUB 4330: IF F1 <> 0 THEN GOTO 1140
1170 T6$=I8$: T11$=I8$: DIM A(20): DIM B(40): DIM C(20): DIM D(20) 'A=PRIMARY ACCT B=CONTRA C=# CONTRAS D=START IN B(
1210 CLS: LOCATE 12,32: PRINT"PLEASE STAND BY.": GOSUB 3610: CLS  'OPN GENLGR
1220 INPUT #2,F1: FOR I = 1 TO F1-1: INPUT #2,F2
1222 IF I=2 AND F2=0 THEN C16# = 0#: GOTO 1260
1230 IF I=2 THEN INVFLAG=1: GET #1,F2: GOSUB 3420: GOSUB 2200: C16#=C3#  'A/C# BEG INV
1240 IF I <> 4 THEN GOTO 1260
1250 FOR J = 1 TO F2: INPUT #2,F3: NEXT J: GOTO 1270
1260 NEXT I
1270 INPUT #2,S1 'A/C# SALES
1280 INPUT #2,S2 'LAST A/C#
1282 INPUT #2,T1$ 'CO NAME
1283 GOSUB 7000
1284 IF INVFLAG=0 AND PURFL=0 THEN C12#=0#: GOTO 1300
1286 CLS: LOCATE 10,1: PRINT"ENTER VALUE OF ENDING INVENTORY.  ";: GOSUB 3550: ROW=10: COLUMN=36: LENGTH=10: GOSUB 6410: GOSUB 4520
1287 IF F1=1 OR I8$ < "0" THEN LOCATE 12,1: GOSUB 3370: GOSUB 3560: CLS: GOTO 1286
1288 C12#=VAL(I8$)
1300 F1=0: F2=0: F3=0: C1=S1-1
1310 GOSUB 2280
1320 GOSUB 2340  'IDENTIFY PRI/CONTRAS
1330 CLS: LOCATE 12,32: PRINT"PLEASE STAND BY.": LOCATE 13,22: PRINT"FINANCIAL STATEMENT IS BEING PRINTED."
1340 IF C1=S2 THEN GOTO 1530  'EOF
1350 GOSUB 3410  'READ G/L
1360 IF I1=0 THEN GOTO 1340  'INACTIVE ACCT
1370 IF F70=1 THEN GOSUB 2140  'CHK FOR CONTRA
1380 IF F30=1 THEN GOTO 1340  '1=CONTRA
1390 GOSUB 2200  'ACCT. BAL.
1400 IF C3#=0# THEN GOTO 1340  'SKIP 0 VALS
1410 IF F70=1 THEN GOSUB 2170  'PRI HAVE CONTRA PRINT
1420 IF K1 => 4 AND K1 < 8 THEN GOTO 1470
1430 IF I1$ <> T7$ THEN T7$=I1$: K9=0
1440 IF I1$="SALES                    " THEN K1=1: GOSUB 4630: GOTO 1340
1450 IF I1$="PURCHASES                " THEN K1=2: GOSUB 4940:GOTO 1340
1460 IF I1$="OPERATING EXPENSES       " THEN K1=3: GOSUB 5340: GOTO 1340
1470 IF I1$="OTHER REVENUES AND GAINS " THEN K1=4: GOSUB 5650: GOTO 1340
1480 IF I1$="OTHER EXPENSES AND LOSSES" THEN K1=5: GOSUB 5650: GOTO 1340
1490 IF I1$="EXTRAORDINARY GAINS      " THEN K1=6: GOSUB 5650: GOTO 1340
1500 IF I1$="EXTRAORDINARY LOSSES     " THEN K1=7: GOSUB 5650: GOTO 1340
1510 IF I1$="INCOME TAX EXPENSE       " THEN K1=8: GOSUB 6100: GOTO 1340
1520 CLS: LOCATE 10,1: PRINT"LOGIC ERROR.  PROCESSING TERMINATED.": END
1530 IF F6=0 THEN GOSUB 4730  'PRINT SALES TOT
1540 IF F8=0 THEN GOSUB 5040  'PRINT COGS
1550 IF F9=0 THEN GOSUB 5450  'PRINT TOT OP EXP &O0INC FROM PRI OPS
1560 IF K1 > 3 AND K1 < 8 THEN GOSUB 5830   'PRINT OTHR INC &O0 EXP TOTS
1570 GOSUB 5990  'PRINT INC TX EXP &O0UNDERLINE
1580 P1=56: GOSUB 3810: LPRINT  'UNDERLINE &O0SPC DWN
1590 LPRINT
1600 C22#=C15# + (C18#+C19#+C21#): I2#=C22#  'C22#=N/P
1610 IF I2# < 0# THEN I2#=I2# * -1#
1620 GOSUB 3720  'SPC FOR $
1630 I2#=C22#: I2#=I2# * -1#  'CHG SIGN
1640 LPRINT"NET INCOME" SPC(22) SPC(P1);: LPRINT USING FORMAT3$;I2#;
1650 C17#=C22#: GOSUB 6270  'COMPUTE %
1660 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT"%";
1670 P1=56: GOSUB 3810: LPRINT  'UNDERLINE
1680 LPRINT SPC(P1) STRING$(14,"-"): CLOSE #2
1690 OPEN "R",2,"INVPRO.FIL",23
1700 FIELD #2,1 AS V1$,8 AS V2$,8 AS V3$,6 AS V4$
1710 LSET V1$="1": LSET V2$=MKD$(C12#): LSET V3$=MKD$(C22#): LSET V4$=T11$  'C12#=END INV C22#=PROFT T11$=END DATE
1720 PUT #2,1: FOR I = 1 TO 10: LPRINT: NEXT I: CLS: LOCATE 1,10
1860 RUN "DAILY.BAS": END
1870 ' PRINT PRIMARY ACCOUNT THAT HAS A CONTRA
1880 I2#=C3#: IF I2# < 0# THEN I2#=I2# * -1#
1890 GOSUB 3660  'SPACE FOR $0!
1900 F7#=C3#  'SAVE C3 TO COMPUTE PRI - CONTRA.
1910 IF K1=1 THEN GOSUB 3780  'SET C3# IF CR
1920 GOSUB 4460  'CHK PAG SKP
1930 IF K9 = 1 THEN LPRINT   'K9=0 IF 1ST LINE OF PRNT
1940 IF K1 <> 1 THEN GOTO 1960  'PAST COGS
1950 LPRINT I2$ SPC(2) SPC(P1);: LPRINT USING FORMAT3$;C3#;: GOTO 1970 'PROF
1960 LPRINT SPC(2) I2$ SPC(P1);: LPRINT USING FORMAT3$;C3#; 'PRINT PRI ACCT
1970 F2=C1: F1=D(C11)  'SAVE C1 FOR NEXT READ
1980 ' CONTRA(S)
1990 FOR V = 1 TO C(C11)
2000 C1=B(F1)-1: F1=F1+1  'SET TO POSITION IN D( WHERE CONTRA STARTS IN B(
2010 GOSUB 3410   'GET CONTRA
2020 GOSUB 2200   'ACCT. BAL.
2030 F7#=F7#+C3#  'PRI - CONTRA.
2040 ' PRINT CONTRA(S)
2050 I2#=C3#: IF I2# < 0# THEN I2#=I2# * -1#
2060 GOSUB 3660   'LNGTH FOR $0!
2070 IF K1=1 THEN GOSUB 3780  'SET C3# IF CR
2080 GOSUB 4460
2090 IF K9=1 THEN LPRINT
2100 IF K1 <> 1 THEN GOTO 2120
2110 LPRINT I2$ SPC(2) SPC(P1);: LPRINT USING FORMAT3$;C3#;: GOTO 2130 'CONT
2120 LPRINT SPC(2) I2$ SPC(P1);: LPRINT USING FORMAT3$;C3#;
2130 NEXT V: K9=1: C1=F2: RETURN
2140 F1=0: F30=0: FOR I=1 TO F52  'F52=# CONTRAS
2150 IF C1=B(I) THEN F1=I: I=F52: F30=1
2160 NEXT I: RETURN
2170 F1=0: F30=0: FOR I = 1 TO F51 'F51=# PRI
2180 IF C1=A(I) THEN C11=I: I=F51: F30=1
2190 NEXT I: RETURN
2200 D1#=I3#+I5#  'D1#=SUM PERIOD DR
2210 D2#=(I4#+I6#) * -1#   'D2#=SUM PERIOD CR
2220 IF I4$="D" OR I4$="2" THEN C3#=D1#+D2# ELSE C3#=D2#+D1#   'C3#=ACCT BAL
2230 RETURN
2240 PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO'.";: GOSUB 3550: ROW=13: COLUMN=40: LENGTH=1: GOSUB 6410
2250 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 2270
2260 LOCATE P1,1: GOTO 2240
2270 RETURN
2280 T5$=T4$: F4=10: F5=F5+1: LPRINT: LPRINT: LPRINT SPC(70) "PAGE " F5: LPRINT
2290 T4$=T1$: GOSUB 2320: LPRINT SPC(C9) T1$: T4$=H2$: GOSUB 2320: LPRINT SPC(C9) H2$: T4$=T3$
2300 LPRINT SPC(22) "FOR PERIOD " LEFT$(T3$,2) "/" MID$(T3$,3,2) "/" RIGHT$(T3$,2)  " THROUGH " LEFT$(T6$,2) "/" MID$(T6$,3,2) "/" RIGHT$(T6$,2)
2310 FOR I = 1 TO 3: LPRINT: NEXT I: T4$=T5$: RETURN
2320 C7=LEN(T4$): C9=CINT(C7): C9=40-(C9/2): C9=CINT(C9): RETURN
2330 'GET PRI/CONTRAS
2340 F70=0: CLS: LOCATE 5,1
2350 PRINT"THE PURPOSE OF THESE INSTRUCTIONS IS TO EXPLAIN THE MEANING OF   `PRIMARY'"
2360 PRINT"AND  `CONTRA'  ACCOUNTS.  YOU SHOULD UNDERSTAND THESE INSTRUCTIONS BEFORE YOU"
2370 PRINT"CONTINUE.": PRINT
2380 PRINT"A  `CONTRA'  ACCOUNT IS AN ACCOUNT WHOSE BALANCE IS SHOWN ON THE INCOME"
2390 PRINT"STATEMENT AS EITHER AN ADDITION TO OR A SUBTRACTION FROM ANOTHER ACCOUNT."
2400 PRINT"FOR EXAMPLE, THE BALANCE OF THE ACCOUNT `PURCHASE RETURNS AND ALLOWANCES' IS"
2410 PRINT"SHOWN ON THE INCOME STATEMENT AS A SUBTRACTION FROM THE ACCOUNT `PURCHASES'."
2420 PRINT"'PURCHASE RETURNS AND ALLOWANCES' IS THE   *** CONTRA ***   ACCOUNT AND"
2430 PRINT"'PURCHASES' IS THE   *** PRIMARY ***   ACCOUNT.  IT IS IMPORTANT THAT YOU "
2440 PRINT"UNDERSTAND THE MEANING OF `PRIMARY' AND `CONTRA' ACCOUNTS BEFORE YOU CONTINUE."
2450 PRINT"YOU CAN IDENTIFY `PRIMARY' AND `CONTRA' ACCOUNTS, AS WELL AS THEIR ACCOUNT"
2460 PRINT"NUMBERS,  FROM A TRIAL BALANCE OR A LISTING OF ACTIVE ACCOUNTS."
2470 PRINT"IN THE QUESTIONS THAT FOLLOW THESE INSTRUCTIONS, YOU WILL BE ASKED TO"
2480 PRINT"ENTER THE ACCOUNT NUMBERS OF PRIMARY AND CONTRA ACCOUNTS."
2490 PRINT: GOSUB 3560
2500 CLS: LOCATE 10,1
2510 PRINT"DOES THE INCOME STATEMENT INCLUDE ANY CONTRA ACCOUNTS?"
2520 P1=13: LOCATE P1,1: GOSUB 2240
2530 IF I8$="N" OR I8$="n" THEN GOTO 3320
2540 CLS: LOCATE 10,1: F70=1
2550 PRINT"ENTER THE QUANTITY OF   *** PRIMARY ***   ACCOUNTS THAT HAVE  CONTRA"
2560 PRINT"ACCOUNTS.  YOU SHOULD DETERMINE THIS QUANTITY BY REVIEWING A CURRENT TRIAL"
2570 PRINT"BALANCE OR A LISTING OF ACTIVE ACCOUNTS.": PRINT
2580 PRINT"ENTER THE QUANTITY OF PRIMARY ACCOUNTS NOW.  IF YOU HAVE MADE A MISTAKE AND"
2590 PRINT"WISH TO INDICATE THAT THERE ARE NO PRIMARY ACCOUNTS WITH CONTRA ACCOUNTS,"
2600 PRINT"ENTER A ZERO (0).";: GOSUB 3550: ROW=16: COLUMN=20: LENGTH=2: GOSUB 6410
2610 IF I8$ < "0" THEN F1=1: GOTO 2630
2620 GOSUB 3330
2630 IF F1=1 THEN LOCATE 16,20: PRINT SPACE$(2): LOCATE 16,1:  GOTO 2600
2640 C6=VAL(I8$)
2650 IF C6=0 THEN F70=0: GOTO 3320
2660 IF C6 < 21 THEN CLS: GOTO 2680
2670 LOCATE 17,1: GOSUB 3370: LOCATE 18,1:PRINT"LIMIT IS 20 PRIMARY ACCOUNTS.": LOCATE 19,1: GOSUB 3560: GOTO 2540
2680 C10=C6  'SAVE INPUT FOR # PRIMARY ACCTS
2690 T2$="PRIMARY": CLS: GOSUB 4380
2700 F50=10: F51=0: F52=0: F53=0  'F51=PRIMARY CTR. F52=CONTRA CTR.
2710 FOR I = 1 TO C10: F50=F50+1
2720 F50=F50+1
2730 LOCATE F50,65: PRINT SPACE$(2): LOCATE F50,1: PRINT"ENTER THE ACCOUNT NUMBER FOR   **** PRIMARY ****  ACCOUNT ";I;".  ";: GOSUB 3550: ROW=F50: COLUMN=65: LENGTH=4: GOSUB 6410
2740 GOSUB 3380  'CHK FOR NONNUMS
2750 IF F1=1 OR I8$ < "1" THEN GOTO 2730
2760 F51=F51+1: A(F51)=C6 'PRI ACCT#
2770 ' INPUT CONTRAS
2780 LOCATE F50+5,1
2790 PRINT"ENTER THE QUANTITY OF CONTRA ACCTS. FOR THE ABOVE PRIMARY ACCT. (LIMIT 2).";: GOSUB 3550: ROW=F50+5: COLUMN=76: LENGTH=1: GOSUB 6410
2800 GOSUB 3330
2810 IF F1=1 OR I8$ < "1" THEN LOCATE F50+5,71: PRINT SPACE$(1): GOTO 2780
2820 C6=VAL(I8$): IF (C6 < 1) OR (C6 > 2) THEN F1=1: GOTO 2810
2830 F53=F53+1: C(F53)=C6  'C(=QTY CONTRAS
2840 LOCATE 16,1: PRINT SPACE$(80)
2850 ' SAVE CONTRA ACCT. #S
2860 D(I)=F52+1
2870 FOR Y = 1 TO C(F53): F50=F50+1
2880 LOCATE F50,1: PRINT SPACE$(80): LOCATE F50,1: PRINT"ENTER THE ACCOUNT NUMBER FOR   **** CONTRA  ****  ACCOUNT ";Y;".  ";: GOSUB 3550: ROW=F50: COLUMN=65: LENGTH=4: GOSUB 6410
2890 GOSUB 3380
2900 IF F1=1 OR I8$ < "1" THEN GOTO 2880
2910 F52=F52+1: B(F52)=C6  'STORE CONTRA
2920 NEXT Y
2930 F50=11: FOR Y = 1 TO 3: F50=F50+1: LOCATE F50,1: PRINT SPACE$(80): NEXT Y:  F50=10: LOCATE 17,1: PRINT SPACE$(80): NEXT I
2940 C10=C10 * 2  'SET C10 TO # INPUTS IN  A(
2950 CLS: LOCATE 5,1
2960 PRINT"YOUR INPUT WILL BE DISPLAYED FOR YOUR REVIEW.  ACCOUNT NUMBERS, AS WELL AS"
2970 PRINT"ACCOUNT TITLES WILL BE DISPLAYED.  IT IS VERY IMPORTANT THAT THE INPUT BE"
2980 PRINT"ABSOLUTELY CORRECT BEFORE THE PROGRAM USES IT TO PREPARE THE INCOME STATEMENT."
2990 PRINT"OTHERWISE, THE STATEMENT MAY BE INCORRECTLY PREPARED.  SO, REVIEW THE DATA"
3000 PRINT"V-E-R-Y  CAREFULLY AND NOTE ANY ERRORS.": PRINT
3010 PRINT"TO THE LEFT ON THE SCREEN WILL BE ONE PRIMARY ACCOUNT,  WITH THE RELATED CONTRA"
3020 PRINT"ACCOUNT(S) TO THE RIGHT.  STUDY THE DISPLAYED DATA VERY   C-A-R-E-F-U-L-L-Y"
3030 PRINT"AND NOTE ANY INPUT ERRORS.  STUDY THE ACCOUNT TITLES, AS WELL AS THE ACCOUNT"
3040 PRINT"NUMBERS.  IT IS EXTREMELY IMPORTANT THAT YOUR INPUT FOR THE PRIMARY AND CONTRA"
3050 PRINT"ACCOUNTS BE ABSOLUTELY CORRECT.": PRINT
3060 PRINT"AFTER YOU FINISH YOUR REVIEW, YOU WILL BE ASKED TO INDICATE WHETHER YOUR INPUT"
3070 PRINT"WAS OR WAS NOT CORRECT.  IF YOU INDICATE THAT YOUR INPUT WAS INCORRECT, THE"
3080 PRINT"COMPUTER WILL ASK YOU TO REENTER YOUR DATA, FROM THE BEGINNING.":PRINT: GOSUB 3560
3090 F11=0: GOSUB 4180: F50=0  'PRINT TOP OF SCREEN + HEADINGS
3100 FOR P = 1 TO F51  'F51=QTY OF PRIMARY ACCTS
3110 GET #1,A(P): GOSUB 3420: W1=CVS(X5$): I20$=I2$  'GET PRIMARY
3120 ' DISPLAY PRIMARY
3130 IF F11=2 THEN F11=0: P1=13: LOCATE 22,1: GOSUB 3560: GOSUB 4180
3140 F11=F11+1: P1=P1+2: LOCATE P1,1: PRINT SPACE$(80): LOCATE P1,1
3150 PRINT SPC(1);: PRINT USING "####";W1;: PRINT SPC(3) I2$;
3160 ' DISPLAY CONTRAS
3170 FOR Q = 1 TO C(P): F50=F50+1
3180 GET #1,B(F50): GOSUB 3420: W2=CVS(X5$)   'GET CONTRA
3190 IF Q > 1 THEN PRINT SPACE$(38);
3200 PRINT SPC(1);: PRINT USING "####";W2;: PRINT SPC(3) I2$: P1=P1+1
3210 NEXT Q
3220 NEXT P
3230 LOCATE 22,1: PRINT"DISPLAY IS COMPLETE.  PRESS ANY KEY TO CONTINUE.": GOSUB 3570
3240 CLS: LOCATE 10,1
3250 PRINT"WERE ALL PRIMARY / CONTRA ACCOUNTS CORRECT AS DISPLAYED?  (IF YOU INDICATE"
3260 PRINT"THAT THEY WERE  N-O-T  CORRECT, YOU WILL BE ASKED TO ENTER THE DATA AGAIN.)": PRINT
3270 PRINT"ENTER `Y' FOR `YES' (CORRECT) OR `N' FOR `N0' (INCORRECT).";: ROW=13: COLUMN=62: LENGTH=1: GOSUB 6410
3280 IF I8$= "Y" OR I8$="y" OR I8$= "N" OR I8$="n" THEN GOTO 3300
3290 LOCATE 13,62: PRINT SPACE$(1): LOCATE 13,1: GOTO 3270
3300 IF I8$= "N" OR I8$="n" THEN GOTO 2340
3310 F1=0
3320 RETURN
3330 F1=0
3340 FOR K = 1 TO LEN(I8$)
3350 IF MID$(I8$,K,1) < "0" OR MID$(I8$,K,1) > "9" THEN F1=1
3360 NEXT K: RETURN
3370 PRINT"ENTRY IS INCORRECT.  TRY AGAIN.": RETURN
3380 F1=0: GOSUB 3340: IF F1=1 THEN GOTO 3400 'CHK NONNUMS
3390 C6=VAL(I8$): GOSUB 3930
3400 RETURN
3410 C1=C1+1: GET 1,C1
3420 I1$=X1$  'ACCOUNT CLASSIFICATION
3430 I2$=X2$  'ACCOUNT TITLE
3440 Z1$=X3$  'LAST TRANS DATE
3450 I1=VAL(X4$)   'ACCT STATUS (0=INACTIVE,1=ACTIVE)
3460 Z2$=X5$  'ACCOUNT NUMBER
3470 I2=VAL(X7$)  'ACCT TYPE CODE
3480 I4$=X8$  'DR AND CR INDICATOR.D=DR, C=CR
3490 Z3$=X9$  'POSTING REF.
3500 I3#=CVD(Y1$)   'OPENING DEBIT
3510 I4#=CVD(Y2$)  'OPENING CREDIT
3520 I5#=CVD(Y3$)  'PERIOD DEBITS
3530 I6#=CVD(Y4$)  'PERIOD CREDITS
3540 RETURN
3550 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
3560 PRINT"PRESS ANY KEY TO CONTINUE."
3570 GOSUB 3550
3580 K$=INKEY$
3590 IF K$="" THEN GOTO 3580
3600 RETURN
3610 OPEN "PASACT.FIL" FOR INPUT AS #2
3620 OPEN "R",1,"GENLEG.FIL",111
3630 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
3640 RETURN
3650 ' OTHER THAN EXTENDED PRINT
3660 IF I2# > 999999.99# THEN P1=7: FORMAT3$="###########,.##-": GOTO 3700
3670 IF I2# > 999.99# THEN P1=11: FORMAT3$="#######,.##-": GOTO 3700
3680 IF I2# > 0.99# THEN P1=16: FORMAT3$="###.##-": GOTO 3700
3690 IF I2# < 1# THEN P1=19: FORMAT3$=".##-"
3700 RETURN
3710 ' EXTENDED PRINT
3720 IF I2# > 999999.99# THEN P1=23: FORMAT3$="###########,.##-": GOTO 3760
3730 IF I2# > 999.99# THEN P1=27: FORMAT3$="#######,.##-": GOTO 3760
3740 IF I2# > 0.99# THEN P1=32: FORMAT3$="###.##-": GOTO 3760
3750 IF I2# < 1# THEN P1=35: FORMAT3$=".##-"
3760 RETURN
3770 ' NORMAL CREDIT BALANCE.
3780 IF C3# < 0# THEN C3#=C3# * -1#: GOTO 3800
3790 IF C3# > 0# THEN C3#=C3# * -1#
3800 RETURN
3810 OPEN "LPT1:" AS #3
3820 WIDTH #3,255
3830 PRINT #3,
3840 WIDTH #3,80
3850 PRINT #3, SPC(P1) STRING$(14,"_");
3860 CLOSE #3
3870 RETURN
3880 LOCATE 2,1
3890 PRINT"BECAUSE THE SCREEN IS FULL, THE INFORMATION BELOW WILL BE ERASED (FROM THE"
3900 PRINT"SCREEN ONLY) TO MAKE ROOM FOR YOUR ADDITIONAL INPUT. NOTE YOUR LAST INPUT SO"
3910 PRINT"YOU WILL KNOW WHERE TO CONTINUE ONCE THE DATA IS ERASED FROM THE SCREEN.": PRINT: GOSUB 3560: CLS: RETURN
3920 ' CHECK PRIMARY / CONTRA INPUT
3930 IF C6 < 1 THEN F1=1: GOTO 4160
3940 IF C6 >= S1 AND C6 <= S2 THEN GOTO 3990   'CHK IF ACCT > B/S ACCTS
3950 GOSUB 4170: F1=1: LOCATE 2,1: GOSUB 3370: PRINT
3960 PRINT"YOUR ENTRY FOR THE ACCOUNT NUMBER WAS ";C6;".  THAT ACCOUNT NUMBER IS NOT"
3970 PRINT"INCLUDED IN THE INCOME STATEMENT.  STUDY A CURRENT TRIAL BALANCE AND CORRECT"
3980 PRINT"YOUR INPUT.": PRINT: GOSUB 3560: GOSUB 4170: GOSUB 8000: GOSUB 4380: GOTO 4160
3990 FOR M = 1 TO F51  'CHK FOR PREV INPUT - PRI ACCTS
4000 IF C6=A(M) THEN F1=1: M=F51
4010 NEXT M
4020 IF F1=1 THEN GOTO 4070
4030 FOR M = 1 TO F52  'CHK FOR PREV INPUT - CONTRAS
4040 IF C6=B(M) THEN F1=1: M=F52
4050 NEXT M
4060 IF F1=0 THEN GOTO 4110
4070 GOSUB 4170: LOCATE 2,1: GOSUB 3370: PRINT
4080 PRINT"YOU JUST ENTERED THE SAME ACCOUNT NUMBER A SECOND TIME.  A PRIMARY OR CONTRA"
4090 PRINT"CONTRA ACCOUNT SHOULD BE IDENTIFIED ONE TIME ONLY.  STUDY A CURRECT TRIAL"
4100 PRINT"BALANCE AND CORRECT YOUR INPUT.": PRINT: GOSUB 3560: GOSUB 4170: GOSUB 8000: GOSUB 4380: GOTO 4160
4110 GET #1,C6: GOSUB 3420: GOSUB 2200  'CHK FOR ACTIVE ACCOUNT & ACCT. BAL.
4120 IF I1 = 1 AND C3# <> 0# THEN GOTO 4160 'GOOD REC-ACTIVE AND BAL <> 0
4130 GOSUB 4170: F1=1: LOCATE 2,1: GOSUB 3370: PRINT
4140 PRINT"ERROR - INACTIVE ACCOUNT OR ACCOUNT WITH ZERO BALANCE.  YOUR INPUT CALLS FOR"
4150 PRINT"ACCT. NUMBER ";C6;".  STUDY A CURRENT TRIAL BALANCE AND CORRECT YOUR INPUT.": GOSUB 3560: GOSUB 4170: GOSUB 8000: GOSUB 4380
4160 RETURN
4170 FOR W = 1 TO 10: LOCATE W,1: PRINT SPACE$(80): NEXT W: RETURN
4180 CLS: LOCATE 1,1
4190 PRINT"YOUR INPUT (WITH ACCOUNT TITLES) IS DISPLAYED BELOW.  CAREFULLY REVIEW THE"
4200 PRINT"INPUT AND NOTE ANY ERRORS.  ONE PRIMARY ACCOUNT, WITH THE ACCOUNT NUMBER AND"
4210 PRINT"TITLE, IS ON THE SCREEN TO THE LEFT.  THE RELATED CONTRA ACCOUNT(S), WITH"
4220 PRINT"ACCOUNT NUMBER(S) AND TITLES(S), IS ON THE SCREEN TO THE RIGHT."
4230 PRINT"CONSIDER IT TO BE AN INPUT ERROR IF ACCOUNT NUMBERS DO NOT CORRESPOND TO THE"
4240 PRINT"ACCOUNT TITLES.  ALSO CONSIDER IT TO BE AN INPUT ERROR IF THE DISPLAYED CONTRA"
4250 PRINT"ACCOUNT(S) DO NOT RELATE TO THE DISPLAYED PRIMARY ACCOUNT.  (IF ALL OF YOUR"
4260 PRINT"ACCOUNT NUMBERS ARE NOT SHOWN BELOW, THEY WILL APPEAR WHEN YOU PRESS A KEY"
4270 PRINT"TO CONTINUE.)
4280 LOCATE 11,1
4290 PRINT SPC(1) STRING$(10,"*") " PRIMARY ACCOUNT " STRING$(10,"*") SPC(2) STRING$(10,"*") " CONTRA ACCOUNT " STRING$(11,"*")
4300 PRINT SPC(1) "ACCT." SPC(34) "ACCT."
4310 PRINT SPC(2) "NBR." SPC(2) "ACCOUNT TITLE" SPC(20) "NBR." SPC(2) "ACCOUNT TITLE"
4320 P1=13: RETURN
4330 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 4370
4340 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 4370
4350 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 4370
4360 F1=0
4370 RETURN
4380 LOCATE 1,1
4390 PRINT"ENTER THE PRIMARY AND CONTRA ACCOUNT NUMBERS BELOW.  PAY ATTENTION TO THE TYPE"
4400 PRINT"OF INPUT THAT IS REQUESTED.  WORK FROM A CURRENT TRIAL BALANCE.  THE INPUT THAT"
4410 PRINT"YOU MAKE (BELOW) WILL BE DISPLAYED (LATER) FOR YOUR REVIEW AND APPROVAL OR"
4420 PRINT"DISAPPROVAL.  IF YOU DISAPPROVE THE INPUT, YOU WILL BE ASKED TO REENTER ALL OF"
4430 PRINT"THE DATA - STARTING AT THE POINT WHERE THE COMPUTER ASKS IF THERE ARE ANY"
4440 PRINT"PRIMARY AND CONTRA ACCOUNTS TO BE CONSIDERED.  THUS, IF YOU REJECT YOUR INPUT,"
4450 PRINT"IT WILL BE COMPLETELY ERASED FROM THE COMPUTER'S MEMORY AND YOU WILL BE GIVEN": PRINT "A FRESH START.": RETURN
4460 F4=F4+1
4470 IF F4 < 55 THEN GOTO 4510
4480 IF K9=1 THEN LPRINT: K9=0
4490 F4=66-F4: FOR U = 1 TO F4: LPRINT: NEXT U
4500 GOSUB 2280
4510 RETURN
4520 Q1=0: Q2=0: Q3=0: F1=0
4530 FOR I = 1 TO LEN(I8$)
4540 IF MID$(I8$,I,1) <> "." THEN GOTO 4580
4550 Q1=Q1+1: Q3=Q3+1: I10$=RIGHT$(I8$,3): I11$=LEFT$(I10$,1)
4560 IF I11$ <> "." THEN Q1=2: I=LEN(I8$)
4570 GOTO 4590
4580 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN I=LEN(I8$): F1=1
4590 NEXT I
4600 IF Q1 > 1 THEN F1=1
4602 IF I8$="" OR ((Q3 > 1) OR (LEN(I8$) = 1 AND I8$=".") OR (LEN(I8$) = 2 AND LEFT$(I8$,1) = ".")) THEN F1=1
4610 RETURN
4620 ' SALES
4630 IF F30=1 THEN GOSUB 1880: F30=0: F7=1: C13#=C13# + F7#: GOTO 4710
4640 I2#=C3#: IF I2# < 0# THEN I2#=I2# * -1#
4650 C13#=C13# + C3#  'CUM SALES
4660 GOSUB 3660  'SPACE FOR $
4670 GOSUB 3780  'SET C3# IF ACCT IS CR
4680 GOSUB 4460   'CHK PG SKP
4690 IF K9=1 THEN LPRINT
4700 LPRINT I2$ SPC(2) SPC(P1);: LPRINT USING FORMAT3$;C3#;
4710 K9=1: RETURN
4720 'PRINT TOT SALES &O0COGS HEADINGS THRU BEG. INV.
4730 IF C13# = 0# AND K9=1 THEN LPRINT
4740 IF C13# = 0# THEN GOTO 4760
4750 P1=40: GOSUB 3810: LPRINT  'UNDERLINE
4760 I2#=C13#: IF I2# < 0# THEN I2#=I2# * -1#
4770 LPRINT: GOSUB 4460  'SKIP A LINE
4780 GOSUB 3720  'SPACE FOR $
4790 C3#=C13#: GOSUB 3780  'SET C3# IF ACCT IS CR
4800 IF F7=1 THEN I8$="NET REVENUE  " ELSE I8$="TOTAL REVENUE"
4810 GOSUB 4460
4820 LPRINT I8$ SPC(19) SPC(P1);: LPRINT USING FORMAT3$;C3#;
4830 IF C13# => 0# THEN F71=0 ELSE F71=100
4840 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT"%"
4850 LPRINT: LPRINT: F4=F4+2: GOSUB 4460
4852 IF INVFLAG=0 AND PURFL=0 THEN C15#=C13#: GOTO 4920  'C15#=G/P
4860 LPRINT"COST OF GOODS SOLD:"
4870 IF C16#=0# THEN GOTO 4910  'C16#=BEG INV.
4880 I2#=C16#: IF I2# < 0# THEN I2#=I2# * -1#
4890 GOSUB 3660: GOSUB 4460  'SPACE FOR $
4900 LPRINT SPC(2) "BEGINNING INVENTORY" SPC(11) SPC(P1);: LPRINT USING FORMAT3$;C16#;
4910 K9=1: C14#=0# : C14#=C14# + C16#  'CUM COGS. C16#=BEG INV
4920 RETURN
4930 'COGS
4940 IF F6=0 THEN C33#=C3#: GOSUB 4730: C3#=C33#: F6=1  'PRINT SALES TOT
4950 IF F30=1 THEN GOSUB 1880: F30=0: C14#=C14# + F7#: GOTO 5020
4960 I2#=C3#: IF I2# < 0# THEN I2#=I2# * -1#
4970 C14#=C14# + C3#
4980 GOSUB 3660  'SPACE FOR $
4990 GOSUB 4460  'CHK NXT PG
5000 IF K9=1 THEN LPRINT
5010 LPRINT SPC(2) I2$ SPC(P1);: LPRINT USING FORMAT3$;C3#;
5020 K9=1: RETURN
5030 'PRINT END OF COGS SECN
5040 IF INVFLAG=0 AND PURFL=0 THEN C15#=C13#: GOTO 5320  'C15#=G/P
5042 IF C14#=0# AND K9=1 THEN LPRINT
5050 IF C14# = 0# THEN GOTO 5160  'C14#=COGS
5060 P1=40: GOSUB 3810: LPRINT  'UNDERLINE
5070 I2#=C14#: IF I2# < 0# THEN I2#=I2# * -1#
5080 LPRINT: GOSUB 4460   'SKIP A LINE
5090 GOSUB 3660: GOSUB 4460           'SET SPACE FOR $
5100 LPRINT SPC(2) "TOTAL GOODS AVAILABLE FOR SALE" SPC(P1): LPRINT USING FORMAT3$;C14#
5110 I2#=C12#: IF I2# < 0# THEN I2#=I2# * -1#   'C12#=END INV
5120 GOSUB 3660: GOSUB 4460  'SPACE FOR $
5130 LPRINT SPC(2) "LESS: ENDING INVENTORY" SPC(8) SPC(P1);: LPRINT USING FORMAT3$;C12#;
5140 P1=40: GOSUB 3810: LPRINT  'UNDERLINE
5150 C14#=C14# - C12#      'C14#=COGS. C12#=END INV
5160 I2#=C14#: IF I2# < 0# THEN I2#=I2# * -1#
5170 GOSUB 3720  'SPACE FOR $
5180 LPRINT: GOSUB 4460      'SKIP A LINE
5190 LPRINT SPC(6) "COST OF GOODS SOLD" SPC(8) SPC(P1);: LPRINT USING FORMAT3$;C14#;
5200 C17#=C14#: GOSUB 6270: F71=F71 * -1 'COMPUTE % & REVERSE SIGN
5210 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT"%";
5220 P1=56: GOSUB 3810: LPRINT: GOSUB 4460    'UNDERLINE
5230 LPRINT: GOSUB 4460          'SKIP A LINE
5240 C15#=C13# + C14#   'C15#=GP. C13#=SALES. C14#=COGS
5250 I2#=C15#: IF I2# < 0# THEN I2#=I2# * -1#
5260 GOSUB 3720: GOSUB 4460     'SET SPACE FOR $
5270 I2#=C15#: I2#=I2# * -1#  'CHG SIGN
5280 LPRINT "GROSS MARGIN ON SALES" SPC(11) SPC(P1);: LPRINT USING FORMAT3$;I2#;
5290 C17#=C15#: GOSUB 6270        'COMPUTE %
5300 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT"%"
5310 LPRINT: LPRINT"OPERATING EXPENSES:": P4=P4+2: C18#=0#
5320 RETURN
5330 'OP EXP
5340 IF INVFLAG=0 AND PURFL=0 AND FIRSTEXP=0 THEN C99#=C3#: GOSUB 4730: GOSUB 5310:   C3#=C99#: F6=1: F8=1: FIRSTEXP=1: GOTO 5360
5341 IF INVFLAG=0 AND PURFL=0 THEN GOTO 5360
5342 IF F6=0 THEN C33#=C3#: GOSUB 4730: C3#=C33#: F6=1  'PRINT SALES TOT
5350 IF F8=0 THEN C33#=C3#: GOSUB 5040: C3#=C33#: F8=1  'PRINT COGS
5360 IF F30=1 THEN GOSUB 1880: F30=0: C18#=C18# + F7#: GOTO 5430
5370 I2#=C3#: IF I2# < 0# THEN I2#=I2# * -1#
5380 C18#=C18# + C3#   'C18#=CUM OP EXP
5390 GOSUB 3660  'SPACE FOR $
5400 GOSUB 4460  'CHK FOR NXT PAGE
5410 IF K9=1 THEN LPRINT
5420 LPRINT SPC(2) I2$ SPC(P1);: LPRINT USING FORMAT3$;C3#;
5430 K9=1: RETURN
5440 'PRINT TOT OP EXP & INCOME FROM OPS
5450 IF C18# = 0# AND K9=1 THEN LPRINT
5460 IF C18# = 0# THEN GOTO 5480   'C18#=TOT OP EXP
5470 P1=40: GOSUB 3810: LPRINT  'UNDERLINE
5480 I2#=C18#: IF I2# < 0# THEN I2#=I2# * -1#
5490 LPRINT: GOSUB 4460  'SKIP A LINE
5500 GOSUB 3720: GOSUB 4460  'SPACE FOR $
5510 LPRINT SPC(5) "TOTAL OPERATING EXPENSE" SPC(4) SPC(P1);: LPRINT USING FORMAT3$;C18#;
5520 C17#=C18#: GOSUB 6270: F71=F71 * -1   'COMPUTE % & REVERSE SIGN
5530 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT"%";
5540 P1=56: GOSUB 3810: LPRINT  'UNDERLINE
5550 LPRINT: GOSUB 4460  'SKIP A LINE
5560 I2#=C15# + C18#: IF I2# < 0# THEN I2#=I2# * -1#    'C15#=GP. C18#=TOT OP EX
5570 GOSUB 3720: GOSUB 4460  'SPACE FOR $
5580 I2#=C15# + C18#: I2#=I2# * -1#  'CHG SIGN
5590 LPRINT "INCOME FROM PRIMARY OPERATIONS" SPC(2) SPC(P1);: LPRINT USING FORMAT3$;I2#;
5600 C17#=C15# + C18#: GOSUB 6270  'COMPUTE %
5610 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT"%"
5620 IF F4 > 50 THEN GOSUB 4480  'CHK FOR SKP PAGE
5630 RETURN
5640 'OTHER REVENUE
5650 IF F6=0 THEN C33#=C3#: GOSUB 4730: C3#=C33#: F6=1  'PRINT SALES TOT
5660 IF F8=0 THEN C33#=C3#: GOSUB 5040: C3#=C33#: F8=1  'PRINT COGS
5670 IF F9=0 THEN C33#=C3#: GOSUB 5450: C3#=C33#: F9=1  'PRINT TOT OP EXP
5680 IF I1$ = F2$ THEN GOTO 5730
5690 F2$=I1$
5700 IF F4 > 50 THEN GOSUB 4480  'CHK FOR SKP PAGE
5710 LPRINT: K2=1
5720 LPRINT I1$: P4=P4+1   'PRINT ACCT CLASSI
5730 IF F30=1 THEN GOSUB 1880: F30=0: C19#=C19# + F7#: GOTO 5800 'C19#= OTHER
5740 I2#=C3#: IF I2# < 0# THEN I2#=I2# * -1#
5750 C19#=C19# + C3#   'C19#=CUM TOT
5760 GOSUB 3660: GOSUB 4460  'SPACE FOR $
5770 GOSUB 4460   'CHK FOR NXT PAGE
5780 IF K9=1 AND K2=0 THEN LPRINT
5790 LPRINT SPC(2) I2$ SPC(P1);: LPRINT USING FORMAT3$;C3#;
5800 K9=1: K2=0: RETURN
5810 '***
5820 'PRINT OTHER CAT. TOTAL
5830 I2#=C19#: IF I2# < 0# THEN I2#=I2# * -1#
5840 P1=40: GOSUB 3810   'UNDERLINE
5850 GOSUB 3720: P1=P1-22
5860 IF P1 > 0 THEN LPRINT SPC(P1);
5870 LPRINT USING FORMAT3$;C19#;
5880 C17#=C19#: GOSUB 6270: F71=F71 * -1  'COMPUTE % & REVERSE SIGN
5890 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT"%";
5900 P1=56: GOSUB 3810    'UNDERLINE
5910 C20#=C15# + (C18# + C19#)    'C20#=NET BEFORE INC-TX.C15#=G/P.C18#=TOT OP EXP.C19#=TOT OTHER
5920 I2#=C20#: IF I2# < 0# THEN I2#=I2# * -1#
5930 GOSUB 3720: LPRINT: P4=P4+1: GOSUB 4460  'SPACE FOR $
5940 I2#=C20#: I2#=I2# * -1#
5950 LPRINT"INCOME BEFORE INCOME TAX" SPC(8) SPC(P1);: LPRINT USING FORMAT3$;I2#;
5960 C17#=C20#: GOSUB 6270   'COMPUTE %
5970 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT "%"
5980 RETURN
5990 I2#=C21#: IF I2# < 0# THEN I2#=I2# * -1#
6000 IF K1 <> 8 THEN GOTO 6020
6010 P1=40: GOSUB 3810: LPRINT    'UNDERLINE
6020 GOSUB 3720: GOSUB 4460   'SET SPACE FOR $
6030 IF K9=1 THEN LPRINT
6040 LPRINT"INCOME TAX EXPENSE" SPC(14) SPC(P1);: LPRINT USING FORMAT3$;C21#;
6050 C17#=C21#: GOSUB 6270: F71=F71 * -1   'COMPUTE % & REVERSE SIGN
6060 LPRINT SPC(1);: LPRINT USING "###.#-";F71;: LPRINT"%";
6070 RETURN
6080 '***
6090 'INCOME TAX EXP
6100 IF F6=0 THEN C33#=C3#: GOSUB 4730: C3#=C33#: F6=1  'PRINT SALES TOT
6110 IF F8=0 THEN C33#=C3#: GOSUB 5040: C3#=C33#: F8=1  'PRINT COGS
6120 IF F9=0 THEN C33#=C3#: GOSUB 5450: C3#=C33#: F9=1  'PRINT TOT OP EXP
6130 IF F10=0 THEN C33#=C3#: GOSUB 5830: C3#=C33#: F10=1 'PRINT OTHER
6140 IF I1$ = F2$ THEN GOTO 6180
6150 F2$=I1$
6160 IF F4 > 50 THEN GOSUB 4480
6170 LPRINT I1$: P4=P4+1
6180 IF F30=1 THEN GOSUB 1880: F30=0: C21#=C21# + F7#: GOTO 6250 'C21#=TOT INC/TX
6190 I2#=C3#: IF I2# < 0# THEN I2#=I2# * -1#
6200 C21#=C21# + C3#  'C21#=TOT INC TX EXP
6210 GOSUB 3660  'SET SPACE FOR $
6220 GOSUB 4460   'CHK FOR NXT PAGE
6230 IF U9= 1 THEN LPRINT  'SPACE DOWN
6240 LPRINT SPC(2) I2$ SPC(P1);: LPRINT USING FORMAT3$;C3#;
6250 U9=1: RETURN
6260 'COMPUTE %
6270 IF C17# = 0# OR C13# => 0# THEN F71=0: GOTO 6300
6280 F71# = (C17#/C13#) * 1000#
6282 IF F71# > 32767# OR F71# < -32767# THEN F71 = 0: GOTO 6300
6290 F71 = (CINT(F71#))/10#
6300 RETURN
6310 IF ERR=53 THEN GOTO 6340
6320 IF ERR=24 OR ERR=25 OR ERR=27 THEN GOTO 6370
6330 ON ERROR GOTO 0
6340 CLS: LOCATE 10,2
6350 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
6360 PRINT"TO THE DAILY MENU.": GOSUB 3570: GOTO 6640
6370 CLS: LOCATE 10,2
6380 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
6390 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 3570
6400 CLS: RESUME
6410 GOSUB 3550: I8$=""
6420 FOR X = 1 TO LENGTH
6430 I8$=I8$ + CHR$(254)
6440 NEXT X
6450 LOCATE ROW,COLUMN
6460 PRINT I8$;
6470 POINTER = 1: A$=" "
6480 WHILE (ASC(A$) <> 13)
6490 A$ = INPUT$(1)
6500 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 6620
6510 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 6570
6520 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 6620
6530 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 6600
6540 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 6600
6550 IF (ASC(A$) <> 8) THEN GOTO 6590
6560 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
6570    MID$(I8$,POINTER-1,1) = CHR$(254)
6580    POINTER = POINTER -1
6590 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
6600 LOCATE ROW,COLUMN
6610 PRINT I8$
6620 WEND
6630 RETURN
6640 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END
6998 'CHK IF ACTIVE PURCHASES IN G/L.
7000 CLASSI$=" ": PURFL=0: F1=S1-1
7010 WHILE CLASSI$ <> "PURCHASES                "
7020 F1=F1+1: GET #1,F1: CLASSI$=X1$
7030 WEND
7040 F1=F1-1: CLASSI$=" "
7050 WHILE CLASSI$ <> "OPERATING EXPENSES       "
7060 F1=F1+1: GET #1,F1: CLASSI$=X1$ :F1$=X4$: IF F1$="1" THEN  PURFL=1
7070 WEND
7080 F1$=" "
7090 RETURN
8000 LOCATE 1,1
8010 PRINT"PERHAPS YOU WOULD LIKE TO START AGAIN AND REENTER ALL OF YOUR INFORMATION"
8020 PRINT"ABOUT PRIMARY AND CONTRA ACCOUNTS - AT THE POINT WHERE CPA-LEDGER ASKS YOU"
8030 PRINT"WHETHER OR NOT THERE ARE ANY PRIMARY AND CONTRA ACCOUNTS.": PRINT
8040 PRINT"DO YOU WISH TO START AGAIN?  ENTER `Y' FOR `YES' OR `N' FOR `NO'."
8050 ROW=5: COLUMN=69: LENGTH=1: GOSUB 6410
8060 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 8080 ELSE GOTO 8050
8080 IF I8$="Y" OR I8$="y" THEN GOTO 1320
8090 LOCATE 1,1: FOR U= 1 TO 5: LOCATE U,1: PRINT SPACE$(80): NEXT U
9000 RETURN

POST.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM POST.BAS
1010 CLEAR: KEY OFF: CLS: ON ERROR GOTO 4560
1090 OPEN "R",1,"INVPRO.FIL",23
1100 FIELD #1,1 AS V1$,8 AS V2$,8 AS V3$,6 AS V4$
1110 LSET V1$="0": LSET V2$=MKD$(0#): LSET V3$=MKD$(0#): LSET V4$="NODATE"
1120 PUT #1,1: CLOSE #1  'CLEAR INVPRO.FIL
1130 GOSUB 2090  'OPEN FILES
1140 INPUT #3,F1: FOR I = 1 TO F1-1: INPUT #3,B20: IF I <> 4 THEN GOTO 1160
1142 IF B20=0 THEN GOTO 1170
1150 DIM B2(B20): FOR J = 1 TO B20: INPUT #3,F2: B2(J)=F2: NEXT J: GOTO 1170
1160 NEXT I
1170 INPUT #3,F1: INPUT #3,M3: INPUT #3,T1$: F1=0: F2=0
1180 CLS: LOCATE 8,1
1190 PRINT"ENTER TODAY'S DATE. (USE FORMAT MMDDYY.  I.E. JUNE 8, 1984 = 060884.)"
1200 ROW=8: COLUMN=72: LENGTH=6: GOSUB 4670
1210 IF LEFT$(I8$,1)=" " OR I8$ < "0" OR LEN(I8$) < 6 THEN GOTO 1200
1220 F2=1: GOSUB 2720: IF F1 <> 0 THEN GOTO 1200
1230 GOSUB 3230: IF F1 <> 0 THEN GOTO 1200
1240 I3$=I8$: CLS: LOCATE 12,31: PRINT"PLEASE STAND BY.": GOSUB 3370
1250 'DISPLAY START MESSAGES AND INSTRUCTIONS.
1260 LOCATE 12,1: PRINT SPACE$(80): GOSUB 3580: IF I8$="N" OR I8$="n" THEN GOTO 4880
1270 'M1 SETS LIMIT ON DEBIT AND CREDIT POSTINGS UNDER ONE ENTRY.
1280 M1=30: DIM A1(M1): DIM A2#(M1): DIM A7$(M1)
1290        DIM A3(M1): DIM A4#(M1): DIM A10$(M1)
1300        DIM A11$(M1): DIM B4$(M1)
1310 FORMAT2$="####"
1320 FORMAT1$="###########,.##"
1330 FORMAT4$="###############,.##"
1340 CLS: GOSUB 4040: GOSUB 4460: GOSUB 4480
1350 'LOCATE LINE FOR POSTING.
1360  P1=14
1370 LOCATE P1,11: IF F3=1 THEN GOTO 1470
1380 'TRANS. DATE
1390 GOSUB 4660: ROW=P1: COLUMN=12: LENGTH=6: GOSUB 4670
1400 IF F11=1 AND I8$="S" THEN I7$=J2$: GOTO 1450
1410 IF LEFT$(I8$,1)=" " OR I8$ < "0" THEN GOTO 1390
1420 F2=1: GOSUB 2720: IF F1 <> 0 THEN GOTO 1390
1430 GOSUB 3230: IF F1 <> 0 THEN GOTO 1390
1440 I7$=I8$: J2$=I8$
1450 LOCATE P1,12: PRINT SPACE$(6): LOCATE P1,11: PRINT I7$
1460 'ACCT NBR
1470 GOSUB 4660: ROW=P1: COLUMN=22: LENGTH=4: GOSUB 4670
1480 IF F3=1 AND I8$="Q" THEN GOTO 1490 ELSE GOTO 1530
1490 LOCATE P1,1: PRINT"ENTER EXPLANATION FOR THE ABOVE ENTRY."
1500 ROW=P1: COLUMN=49: LENGTH=22: GOSUB 4670
1510 IF LEFT$(I8$,1) = " " OR LEFT$(I8$,1) < "A" THEN GOTO 1500
1520 F100$=I8$: GOSUB 2330: F6$=" ": F90$=" ": GOTO 1950
1530 F2=1: GOSUB 2720: IF F1 <> 0 OR I8$ < "0" THEN GOTO 1470
1540 I1=VAL(I8$): IF I1 > M3 THEN GOSUB 3210: LOCATE 2,1: GOSUB 4220: GOSUB 4030: GOTO 1470
1550 IF I1 < 1 THEN GOTO 1470
1560 LOCATE P1,22: PRINT SPACE$(4): LOCATE P1,21: PRINT I1: GET #1,I1: I5$=X4$
1570 'ACTIVE ACCT?
1580 IF I5$="1" THEN F1=0: GOTO 1620
1590 GOSUB 3280: IF I8$="N" OR I8$="n" THEN  GOSUB 4030: GOTO 1470
1600 GOSUB 4120: GOTO 1980
1610 'DR OR CR?
1620 GOSUB 4660: ROW=P1: COLUMN=32: LENGTH=1: GOSUB 4670: I2$=I8$: GOSUB 2700
1630 IF F1 <> 0 THEN GOTO 1620
1640 'INPUT AND VERIFY DOLLAR AMOUNT.
1650 GOSUB 4660: ROW=P1: COLUMN=39: LENGTH=10: GOSUB 4670
1660 F2=0: GOSUB 2720: IF F1=1 THEN GOSUB 3500: GOTO 1650
1670 I2#=VAL(I8$): IF I2# > 0# AND I2# =< 9999999.99# THEN LOCATE P1,39: PRINT SPACE$(11);: LOCATE P1,38: PRINT I2#;: GOTO 1700
1680 GOSUB 3500: GOTO 1650
1690 'TRANS REF
1700 IF F3=1 THEN GOTO 1770
1710 GOSUB 4660: ROW=P1: COLUMN=53: LENGTH=10: GOSUB 4670
1720 IF F11=1 AND I8$="S" THEN J1$=J3$: GOTO 1750
1730 IF I8$ < "0" OR LEFT$(I8$,1) = " " THEN GOTO 1710
1740 J1$=I8$: J3$=I8$
1750 F3=1: F11=1: LOCATE 12,54: PRINT SPACE$(7);: LOCATE 13,53: PRINT SPACE$(9);: LOCATE P1,52: PRINT SPACE$(12)
1760 ' CHK NBR NEEDED?
1770 IF I2$="D" THEN F6$=" ": F90$=" ": GOTO 1900
1780 F1=0: FOR W = 1 TO B20: IF I1=B2(W) THEN F1=1: W=B20
1782 NEXT W
1790 IF F1=0 THEN F6$=" ": F90$=" ": GOTO 1900
1800 LOCATE 12,65: PRINT"CHECK";: LOCATE 13,65: PRINT"NUMBER"
1810 GOSUB 4660: F2=1: ROW=P1: COLUMN=65: LENGTH=6: GOSUB 4670
1820 IF I8$ < "0" OR LEFT$(I8$,1) = " " THEN GOTO 1810
1830 F6$=I8$: LOCATE P1,65: PRINT SPACE$(7): LOCATE P1,65: PRINT F6$
1840 'PAYEE
1850 LOCATE P1+1,1: PRINT SPACE$(80);: LOCATE P1+1,1
1860 PRINT"ENTER PAYEE FOR THE ABOVE CHECK.    ";
1870 GOSUB 4660: ROW=P1+1: COLUMN=38: LENGTH=30: GOSUB 4670
1880 IF I8$ < "0" OR LEFT$(I8$,1) = " " THEN GOTO 1850
1890 F90$=I8$: LOCATE 12,65: PRINT SPACE$(6): LOCATE 13,65: PRINT SPACE$(7): LOCATE P1,65: PRINT SPACE$(7): LOCATE P1+1,1: PRINT SPACE$(80);
1900 GOSUB 2180: F6$=" ": F90$=" "   'SAVE ENTRY
1910 'CHECK FOR EXCEEDING MAX. POSTINGS.
1920 IF F1 <> 1 THEN GOTO 1370
1930 ' F1=1 MAX. DR. OR CR. ENTRIES EXCEEDED.  F1=2 NO DR. OR CR. INPUT.
1940 ' F1=3 DO NOT DESIRE TO POST. F1=4 DR. <> CR.  F1=5 DR=CR AND POST.
1950 IF F1=1 OR F1=2 OR F1=3 OR F1=4 THEN GOTO 1980
1960 CLS: LOCATE 12,34: PRINT"PRINTING": LOCATE 8,1: GOSUB 2890    'POST ENTR
1970 C5=C5+1: C6#=C6#+C3#: C7#=C7#+C4#
1980 CLS: LOCATE 8,1: PRINT"DO YOU DESIRE TO ENTER ADDITIONAL DEBITS AND CREDITS?": LOCATE 11,1: L1=11: GOSUB 3160: IF I8$="N" OR I8$="n" THEN GOTO 2010
1990 CLS: GOSUB 4040: GOSUB 4460: GOSUB 4480: B1=0: C1=0: C2=0: F3=0: C3#=0#: C4#=0#: Z1=0: GOTO 1360
2000 'PRINT SUMMARY DATA.
2010 IF P3 > 55 THEN P4=66-P3 :GOSUB 3360: GOSUB 3370
2020 FOR I = 1 TO 5: LPRINT: NEXT I
2030 LPRINT"NUMBER OF ENTRIES POSTED                              =        ";: LPRINT USING FORMAT2$;C5
2040 LPRINT"VALUE OF ALL DEBITS POSTED                            = $";: LPRINT USING FORMAT4$;C6#
2050 LPRINT"VALUE OF ALL CREDITS POSTED                           = $";: LPRINT USING FORMAT4$;C7#
2060 IF C6# > C7# THEN C26# = C6# - C7# ELSE C26# = C7# - C6#
2070 LPRINT"DIFFERENCE - DEBITS LESS CREDITS POSTED               = $";: LPRINT USING FORMAT4$;C26#
2080 GOTO 4880
2090 OPEN "PASACT.FIL" FOR INPUT AS #3
2100 OPEN "R",1,"GENLEG.FIL",111
2110 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
2120 OPEN "GENJNL.FIL" FOR APPEND AS #2
2130 RETURN
2140 F1=1: GOSUB 3210: LOCATE 5,1
2150 PRINT"MAXIMUM OF ";M1;" DEBIT OR ";M1;" CREDIT POSTING EXCEEDED."
2160 PRINT"REDESIGN YOUR ENTRY SO THAT MAXIMUMS WILL NOT BE EXCEEDED."
2170 PRINT"NONE OF THIS ENTRY WILL BE POSTED UNTIL YOU REDESIGN THE ENTRY.": PRINT: GOSUB 2840: CLS: RETURN
2180 F1=0
2190 IF I2$="C" THEN GOTO 2240
2200 C1=C1+1: C3#=C3#+I2#: IF C1 <= M1 THEN GOTO 2220
2210 GOSUB 2140: GOTO 2280
2220 A1(C1)=I1: A2#(C1)=I2#: GOSUB 2300: GOTO 2280
2230 ' I1=ACCT#; I2#=$; F6$=CHK#; F90$=PAYEE
2240 C2=C2+1: C4#=C4#+I2#: IF C2 <= M1 THEN GOTO 2260
2250 GOSUB 2140: GOTO 2280
2260 A3(C2)=I1: A4#(C2)=I2#: A10$(C2)=F6$: B4$(C2)=F90$
2270 GOSUB 2300: IF F6$ <> " " AND F90$ <> " " THEN GOSUB 4500
2280 RETURN
2290 'CHK MAX LINES ON SCREEN.
2300 IF P1=21 THEN GOSUB 3840: P1=15: GOTO 2320
2310 P1=P1+1
2320 RETURN
2330 CLS: LOCATE 2,1
2340 CLS: PRINT"YOUR INPUT WILL BE DISPLAYED ON THE SCREEN SO THAT YOU MAY VERIFY"
2350 PRINT"IT.  (FOR YOUR INFORMATION, ACCOUNT TITLES ASSIGNED TO THE ACCOUNT"
2360 PRINT"NUMBERS THAT YOU INPUT WILL ALSO BE DISPLAYED.)  CAREFULLY NOTE ANY"
2370 PRINT"ERRORS SO THAT INCORRECT DATA WILL NOT BE POSTED TO THE ACCOUNTS.": PRINT: GOSUB 2840
2380 F1=0: A1=C1: F1$="DEBIT": C9=0: CLS
2390 GOSUB 3930
2400 FOR I = 1 TO A1
2410 C9=C9+1
2420 IF C9 > 10 THEN GOSUB 3960: C9=1: LOCATE 14,1
2430 IF F1=0 THEN I1=A1(I): I2#=A2#(I): GOTO 2450
2440 I1=A3(I): I2#=A4#(I): F6$=A10$(I): F90$=B4$(I)
2450 GET #1,I1
2460 I4$=X2$: GOSUB 4290
2470 IF I=A1 AND F1$="CREDIT" THEN PRINT"ENTRY EXPLANATION = "; F100$
2480 NEXT I
2490 IF A1=0 THEN LOCATE 15,13: PRINT"****THERE WERE NO ";F1$" ENTRIES.****"
2500 GOSUB 4270:LOCATE 4,1: PRINT"THE LIST OF ";F1$;" ENTRIES IS COMPLETE.  NOTE ANY INPUT ERRORS.": LOCATE 8,1: GOSUB 2840: CLS
2510 IF F1=1 THEN GOTO 2530
2520 C9=0: F1=1: A1=C2: F1$="CREDIT": CLS: GOTO 2390
2530 CLS: LOCATE 5,1: PRINT"DO YOU DESIRE TO POST THE DEBIT AND CREDIT ENTRIES THAT YOU JUST REVIEWED?";: L1=7: LOCATE 7,1: GOSUB 3160
2540 IF I8$="N" OR I8$="n" THEN CLS: F1=3: GOSUB 4120: GOTO 2690
2550 IF C3# > C4# THEN C26# = C3# - C4# ELSE C26# = C4# - C3#
2560 IF C26# < 0.01# THEN F1=5: GOTO 2690
2570 IF C3# > C4# THEN C26# = C3# - C4# ELSE C26# = C4# - C3#
2580 IF C26# < 0.01# THEN GOTO 2690
2590 CLS: LOCATE 5,1: F1=4
2600 PRINT"FOR THE ENTRY THAT YOU JUST REVIEWED, THE TOTAL VALUE OF THE DEBITS"
2610 PRINT"DO NOT EQUAL THE TOTAL VALUE OF THE CREDITS.  NONE OF THE DEBITS"
2620 PRINT"OR CREDITS FOR THIS ENTRY WILL BE POSTED TO THE GENERAL LEDGER."
2630 PRINT"CAREFULLY REVIEW THE DEBIT AND CREDIT AMOUNTS AND REENTER THE ENTIRE"
2640 PRINT"ENTRY FROM THE BEGINNING.  THE TOTAL VALUES ARE AS FOLLOWS:"
2650 PRINT
2660 PRINT"  TOTAL VALUE OF DEBITS             = $";: PRINT USING FORMAT4$;C3#
2670 PRINT"  TOTAL VALUE OF CREDITS            = $";: PRINT USING FORMAT4$;C4#
2680 LOCATE 14,1: F1=6: GOSUB 4130: F1=2
2690 RETURN
2700 F1=1: IF I2$="D" OR I2$="C" THEN F1=0
2702 IF I2$="d" OR I2$="c" THEN GOSUB 4900
2710 RETURN
2720 Q1=0: Q2=0: Q3=0: F1=0
2730 FOR I = 1 TO LEN(I8$): IF F2=1 THEN GOTO 2780
2740 IF MID$(I8$,I,1) <>  "."  THEN  GOTO 2780
2750 Q1=Q1+1: Q3=Q3+1: I6$=RIGHT$(I8$,3): I9$=LEFT$(I6$,1)
2760 IF I9$ <> "." THEN Q1=2: I=LEN(I8$)
2770 GOTO 2790
2780 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN Q2=Q2+1
2790 NEXT I
2800 IF F2=0 AND Q1>1 THEN F1=1
2810 IF (F2=0 OR F2=1) AND  Q2>0 THEN F1=1
2822 IF  I8$="" OR ((Q3 > 1) OR (LEN(I8$) = 1 AND I8$=".") OR (LEN(I8$) = 2 AND LEFT$(I8$,1) = ".")) THEN F1=1
2830 RETURN
2840 PRINT"PRESS ANY KEY TO CONTINUE.": GOSUB 4660
2850 K$=INKEY$
2860 IF K$="" THEN GOTO 2850
2870 RETURN
2880 'POST AND PRINT
2890 C8=C1: F1=1
2900 FOR I = 1 TO C8
2910 IF F1=2 THEN GOTO 2990
2920 I1=A1(I): GET #1,I1: I2#=A2#(I): GOSUB 4350
2930 ' I1=ACCT#;I2#=$; F6$=CHK#;F90$=PAYEE
2940 IF C1=I THEN I2$="2" ELSE I2$="D"
2950 I4$=X2$
2960 IF I=1 THEN J3$=J1$: I3$=I7$: GOSUB 3490: LPRINT SPC(1);: GOTO 2980
2970 LPRINT SPC(9);
2980 LPRINT USING FORMAT2$;I1;: LPRINT SPC(3) I4$ SPC(P1);: LPRINT USING FORMAT3$;I2#: GOSUB 4320: GOTO 3020
2990 I1=A3(I): GET #1,I1: F6$=A10$(I): I2#=A4#(I): F90$=B4$(I): GOSUB 4350
3000 I4$=X2$: IF I=C2 THEN I2$="1" ELSE I2$="C"
3010 LPRINT SPC(9);: LPRINT USING FORMAT2$;I1;: LPRINT SPC(6) I4$ SPC(P1);: LPRINT USING FORMAT3$;I2#: GOSUB 4320
3020 LSET X3$=I7$: LSET X9$=J1$
3030 IF F1=1 THEN O1#=I2#: O2#=CVD(Y3$): I2#=I2#+O2#: LSET Y3$=MKD$(I2#): I2#=O1#: GOTO 3080
3040 IF F1=2 THEN O1#=I2#: O2#=CVD(Y4$): I2#=I2#+O2#: LSET Y4$=MKD$(I2#): I2#=O1#
3050 ' POST THE GENERAL JOURNAL. I7$=TRANSACTION DATE; I1=ACCOUNT NUMBER;
3060 ' I2$=D OR DEBIT, C FOR CREDIT; J1$=POSTING REFERENCE; F6$=CHECK NUMBER
3070 ' I2#=TRANSACTION AMOUNT; F90$=PAYEE FOR CHECK; F100$=TRANS EXPLANATION
3080 IF I=1 THEN WRITE #2,0,F100$,J1$,I7$
3100 WRITE #2,I1,I2$,I2#,F6$,F90$
3110  PUT #1,I1
3120 NEXT I
3130 F1=F1+1: C8=C2: IF F1=2 THEN GOTO 2900
3140 GOSUB 4510: LPRINT: LPRINT: P3=P3+1: GOSUB 4320
3150 RETURN
3160 PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO'.";
3170 GOSUB 4660: ROW=L1: COLUMN=42: LENGTH=1: GOSUB 4670
3180 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 3200
3190 GOTO 3170
3200 L1=0: RETURN
3210 FOR I = 1 TO 10: LOCATE I,1: PRINT SPACE$(80): NEXT I: RETURN
3220 'CHECK THE DATE.
3230 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 3270
3240 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 3270
3250 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 3270
3260 F1=0
3270 RETURN
3280 L1=9: GOSUB 3210: LOCATE 1,1
3290 PRINT"YOU SELECTED AN INACTIVE ACCOUNT FOR POSTING.  THE ACCOUNT NUMBER"
3300 PRINT"THAT YOU SELECTED IS NUMBER ";I1;".  BEFORE A GENERAL LEDGER ACCOUNT"
3310 PRINT"CAN BE POSTED, IT   M-U-S-T   FIRST BE CLASSIFIED AS AN ACTIVE ACCOUNT"
3320 PRINT"BY USING OPTION 8 OF THE DAILY MENU.  OTHERWISE, THE ENTRY WILL"
3330 PRINT"NOT BE PERMITTED.": PRINT
3340 PRINT"DO YOU WISH TO RETURN TO THE DAILY MENU?": PRINT: GOSUB 3160
3350 RETURN
3360 FOR L = 1 TO P4: LPRINT: NEXT L: RETURN
3370 P2=P2+1: P3=13
3380 FOR L = 1 TO 6
3390 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";P2: GOTO 3420
3400 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: IF L=5 THEN GOSUB 3490: LPRINT: GOTO 3420
3410 LPRINT
3420 NEXT L
3430 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
3440 LPRINT SPC(29) "GENERAL LEDGER ENTRIES": LPRINT: LPRINT
3450 LPRINT SPC(9) "ACCT."
3460 LPRINT SPC(2) "DATE" SPC(3) "NBR." SPC(3) "ACCOUNT TITLE" SPC(28) "DEBIT" SPC(9) "CREDIT"
3470 LPRINT
3480 RETURN
3490 LPRINT LEFT$(I3$,2);"/";MID$(I3$,3,2);"/";RIGHT$(I3$,2);: RETURN
3500 GOSUB 3210: LOCATE 2,1
3510 PRINT"YOUR INPUT FOR THE DOLLAR AMOUNT IS INCORRECT.  THE O-N-L-Y ALLOWABLE"
3520 PRINT"CHARACTERS FOR THE DOLLAR AMOUNT ARE ZERO(0) THROUGH NINE (9) AND A DECIMAL"
3530 PRINT"POINT TO SEPARATE DOLLARS AND CENTS.  EXAMPLES OF CORRECT INPUT, FOR EITHER"
3540 PRINT"DEBITS OR CREDITS, ARE SHOWN BELOW."
3550  PRINT".01  1   1.00  1.01   126   126.00   126.59   1648   1648.00   1648.25"
3560 PRINT"THE MINIMUM DOLLAR AMOUNT FOR ANY ONE DEBIT OR CREDIT IS .01."
3570 PRINT"THE MAXIMUM DOLLAR AMOUNT FOR ANY ONE DEBIT OR CREDIT IS 9999999.99.": PRINT: GOSUB 2840: GOSUB 4030: RETURN
3580 L1=11: LOCATE 8,1: PRINT"WOULD YOU LIKE A BRIEFING ON HOW TO USE THIS COMPUTER PROGRAM TO BE"
3590 PRINT"DISPLAYED ON THE SCREEN?": LOCATE 11,1: GOSUB 3160
3600 IF I8$="N" OR I8$="n" THEN CLS: I8$=" ": GOTO 3830
3610 CLS: LOCATE 5,1
3620 PRINT"THIS COMPUTER PROGRAM IS TO BE USED ONLY FOR POSTING DAILY OR ADJUSTING ENTRIES"
3630 PRINT"TO THE GENERAL LEDGER ACCOUNTS.  EACH GENERAL LEDGER ACCOUNT TO BE POSTED MUST"
3640 PRINT"(REPEAT, MUST) BE AN ACTIVE ACCOUNT.  YOU CAN DETERMINE WHICH ACCOUNTS ARE"
3650 PRINT"ACTIVE BY RETURNING TO THE DAILY MENU, SELECTING OPTION 7, AND SPECIFYING THAT"
3660 PRINT"ALL ACCOUNTS BE PRINTED.  IF YOU DESIRE TO RECLASSIFY AN ACCOUNT FROM INACTIVE"
3670 PRINT"ACTIVE STATUS (SO THAT YOU WILL BE ALLOWED TO POST A TRANSACTION TO IT), YOU"
3680 PRINT"YOU SHOULD USE OPTION 8 OF THE DAILY MEMU.": PRINT
3690 PRINT"DO YOU WISH TO CONTINUE WITH THIS SESSION?": PRINT
3700 L1=15: GOSUB 3160: IF I8$="N" OR I8$="n" THEN GOTO 3830
3710 CLS: LOCATE 1,1: PRINT"THE COMPUTER IS READY TO START ACCEPTING YOUR GENERAL LEDGER ENTRIES.": PRINT
3720 PRINT"EACH GENERAL LEDGER ENTRY REQUIRES AT LEAST ONE DEBIT AND ONE CREDIT.": PRINT
3730 PRINT"EACH DEBIT OR CREDIT, IN TURN, REQUIRES INPUT UNDER DESCRIPTIVE COLUMN"
3740 PRINT"HEADINGS THAT WILL APPEAR ON THE COMPUTER SCREEN.": PRINT
3750 PRINT"TO ASSIST YOU BRIEF INSTRUCTIONS WILL BE DISPLAYED ABOVE THE COLUMN HEADINGS.": PRINT
3760 PRINT"AFTER EACH CREDIT TO A BANK ACCOUNT, THE COMPUTER WILL ASK YOU FOR THE PAYEE'S"
3770 PRINT"NAME.  THE COMPUTER WILL PROMPT YOU FOR THIS INPUT.": PRINT
3780 PRINT"ALL MESSAGES WILL APPEAR ABOVE THE COLUMN HEADINGS.  THE ERROR MESSAGES"
3790 PRINT"ARE SELF EXPLANATORY.": PRINT
3800 PRINT"PRESS THE RETURN KEY AFTER YOU ENTER EACH REQUESTED INPUT.": PRINT
3810 PRINT"NEVER, UNDER  A-N-Y  CIRCUMSTANCES, INTERRUPT THIS PROGRAM BY PRESSING THE"
3820 PRINT"'Ctrl - Break' KEYS ON YOUR KEYBOARD!": PRINT: GOSUB 2840: CLS
3830 RETURN
3840 P1=0: GOSUB 3210: LOCATE 1,1
3850 PRINT"BECAUSE YOU HAVE MORE ENTRIES TO INPUT AND THE SCREEN IS FULL, THE"
3860 PRINT"LINES BELOW WILL BE ERASED TO MAKE ROOM FOR YOUR ADDITIONAL ENTRIES."
3870 PRINT"BEFORE ERASING THE LINES, THE COMPUTER IS PAUSING SO THAT YOU CAN MAKE"
3880 PRINT"WHATEVER NOTES THAT YOU MIGHT WISH.  (EVEN THOUGH THE LINES BELOW WILL"
3890 PRINT"BE ERASED FROM THE SCREEN, THE DATA WILL N-O-T BE ERASED FROM THE"
3900 PRINT"COMPUTER'S MEMORY.)": PRINT: LOCATE 9,1: GOSUB 2840
3910 CLS: GOSUB 4040: GOSUB 4460 :RETURN
3920 'DISPLAY COLUMN HEADINGS ON SCREEN.
3930 LOCATE 12,1: PRINT SPC(7) "ACCOUNT" SPC(40) "DOLLAR" SPC(2) "POSTING";: IF F1$="CREDIT" THEN PRINT SPC(4) "CHECK" ELSE PRINT
3940 PRINT SPC(1) "DATE" SPC(2) "NUMBER" SPC(2) "ACCOUNT TITLE" SPC(26) "AMOUNT" SPC(2) "REFERENCE";: IF F1$="CREDIT" THEN PRINT SPC(2) "NUMBER" ELSE PRINT
3950 RETURN
3960 GOSUB 4270: LOCATE 3,1
3970 PRINT"BECAUSE THE SCREEN IS FULL, THE ";F1$;" ENTRIES BELOW WILL BE ERASED SO THAT"
3980 PRINT"ADDITIONAL ";F1$" ENTRIES CAN BE DISPLAYED FOR YOUR REVIEW.  THE COMPUTER IS"
3990 PRINT"PAUSING SO THAT YOU CAN REVIEW THE ENTRIES AND MAKE WHATEVER NOTES THAT YOU"
4000 PRINT"MIGHT WISH.  (EVEN THOUGH THE LINES BELOW WILL BE ERASED FROM THE SCREEN,"
4010 PRINT"THE DATA WILL N-O-T BE ERASED FROM THE COMPUTER'S MEMORY.)"
4020 PRINT: LOCATE 9,1: GOSUB 2840: CLS: GOSUB 3930: RETURN
4030 GOSUB 3210
4040 LOCATE 1,1: PRINT"EACH DEBIT OR CREDIT ENTRY REQUIRES INPUT IN THE COLUMNS BELOW."
4050 PRINT" 1. `DATE' COLUMN IS FOR TRANSACTION DATE. USE FORMAT MMDDYY- 6/30/84 = 063084."
4060 PRINT" 2. `POSTING REFERENCE' COLUMN IS FOR FUTURE REFERENCE TO SUPPORTING DOCUMENTA-"
4070 PRINT"    TION. EXAMPLES ARE SALES INVOICE NUMBER AND PURCHASE INVOICE NUMBER."
4080 PRINT" 3. INPUT AN  `S'  (FOR SAME)   TO USE THE PREVIOUS DATE OR POSTING REFERENCE."
4090 PRINT" 4. PRESS THE RETURN KEY AFTER YOU HAVE COMPLETED YOUR INPUT IN A COLUMN."
4100 PRINT" 5. **** AFTER YOU HAVE COMPLETED ALL INPUT FOR A GENERAL LEDGER ENTRY, INPUT"
4110 PRINT"    A  `Q'  (FOR QUIT) WHEN YOU ARE ASKED FOR THE NEXT `ACCOUNT NUMBER'.****": PRINT STRING$(75,"*"): RETURN
4120 CLS: LOCATE 2,1
4130 PRINT"THE COMPUTER IS PAUSING FOR YOU TO REVIEW YOUR SOURCE DOCUMENTATION."
4140 PRINT"DETERMINE WHETHER YOUR DOCUMENTATION OR YOUR INPUT IS IN ERROR."
4150 PRINT"REMEMBER, NO DEBITS OR CREDITS OF THIS ENTRY WILL BE POSTED TO THE"
4160 PRINT"GENERAL LEDGER.  REINPUT THIS ENTRY EITHER DURING THIS SESSION OR"
4170 PRINT"AT A LATER TIME.  IN   E-I-T-H-E-R   CASE,    C-A-R-E-F-U-L-L-Y    MARK THE"
4180 PRINT"ENTRY SO THAT YOU WILL REMEMBER THAT IT IS TO BE REENTERED."
4190 IF F1=6 THEN LOCATE 21,1: GOTO 4210
4200 LOCATE 9,1
4210 GOSUB 2840: RETURN
4220 PRINT"YOUR INPUT FOR THE ACCOUNT NUMBER IS TOO LARGE. THE LARGEST ACCOUNT"
4230 PRINT"NUMBER IN THE GENERAL LEDGER IS ACCOUNT NUMBER ";M3;".  IF DESIRED,"
4240 PRINT"YOU CAN DETERMINE THE ACCOUNT NUMBERS IN THE GENERAL LEDGER BY"
4250 PRINT"SELECTING OPTION 7 IN THE DAILY MENU AND SPECIFYING THAT ALL"
4260 PRINT"ACCOUNTS BE PRINTED.": LOCATE 8,1: GOSUB 2840: RETURN
4270 LOCATE 2,1: PRINT"YOUR ";F1$;" ENTRIES (WITH ACCOUNT TITLES) APPEAR BELOW.": RETURN
4280 'PRINT ENTRIES ON SCREEN.
4290 LOCATE (C9+13),1: PRINT I7$;: LOCATE (C9+13),9: PRINT USING FORMAT2$;I1;: LOCATE (C9+13),16: PRINT I4$;: LOCATE (C9+13),46: PRINT USING FORMAT1$;I2#;: LOCATE (C9+13),63: PRINT J1$;
4300 IF F1$="CREDIT" AND (F6$ <> " " AND F90$ <> " ") THEN LOCATE (C9+13),74: PRINT F6$;
4310 RETURN
4320 P3=P3+1
4330 IF P3>55 THEN P4=66-P3: GOSUB 3360: GOSUB 3370
4340 RETURN
4350 IF F1=2 THEN GOTO 4400
4360 IF I2# > 999999.99# THEN P1=1: FORMAT3$="###########,.##": GOTO 4440
4370 IF I2# > 999.99# THEN P1=5: FORMAT3$="#######,.##": GOTO 4440
4380 IF I2# > 0.99# THEN P1=10: FORMAT3$="###.##": GOTO 4440
4390 IF I2# < 1# THEN P1=13: FORMAT3$=".##": GOTO 4440
4400 IF I2# > 999999.99# THEN P1=13: FORMAT3$="###########,.##": GOTO 4440
4410 IF I2# > 999.99# THEN P1=17: FORMAT3$="#######,.##": GOTO 4440
4420 IF I2# > 0.99# THEN P1=22: FORMAT3$="###.##": GOTO 4440
4430 IF I2# < 1# THEN P1=25: FORMAT3$=".##"
4440 RETURN
4450 'DISPLAY POSTING HEADINGS.
4460 LOCATE 12,20: PRINT "ACCOUNT" SPC(2) "D=DEBIT" SPC(3) "DOLLAR"
4470 LOCATE 13,20: PRINT "NUMBER" SPC(3) "C=CREDIT" SPC(2) "AMOUNT"SPC(8): RETURN
4480 LOCATE 13,12: PRINT"DATE": LOCATE 12,54: PRINT"POSTING": LOCATE 13,53: PRINT"REFERENCE": RETURN
4490 'SAVE CHECK NUMBERS
4500 Z1=Z1+1: A11$(Z1)=F6$: A7$(Z1)=F90$: RETURN
4510 LPRINT SPC(22) F100$
4520 LPRINT SPC(22) "POSTING REFERENCE = ";J1$
4530 P3=P3+1: GOSUB 4320
4540 FOR I = 1 TO Z1
4550 LPRINT SPC(22) "CHECK NBR.  "; A11$(I) " TO " A7$(I): GOSUB 4320: NEXT I: Z1=0: RETURN
4560 IF ERR=53 THEN GOTO 4590
4570 IF ERR=24 OR ERR=25 OR ERR=27 THEN GOTO 4620
4580 ON ERROR GOTO 0
4590 CLS: LOCATE 10,2
4600 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
4610 PRINT"TO THE DAILY MENU.": GOSUB 4660: GOSUB 2850: GOTO 4880
4620 CLS: LOCATE 10,2
4630 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
4640 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 4660: GOSUB 2850
4650 CLS: RESUME
4660 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
4670 GOSUB 4660: I8$=""
4680 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
4690 LOCATE ROW,COLUMN
4700 PRINT I8$;
4710 POINTER = 1: A$=" "
4720 WHILE (ASC(A$) <> 13)
4730 A$ = INPUT$(1)
4740 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 4860
4750 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 4810
4760 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 4860
4770 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 4840
4780 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 4840
4790 IF (ASC(A$) <> 8) THEN GOTO 4830
4800 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
4810    MID$(I8$,POINTER-1,1) = CHR$(254)
4820    POINTER = POINTER -1
4830 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
4840 LOCATE ROW,COLUMN
4850 PRINT I8$
4860 WEND
4870 RETURN
4880 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END
4900 LOCATE 11,1: PRINT SPACE$(75);: LOCATE 11,15: PRINT"***************** PRESS YOUR CAPS LOCK KEY ***************": RETURN

PSTCLS.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM PSTCLS.BAS
1010 CLEAR: ON ERROR GOTO 1910
1080 CLS: LOCATE 12,31: PRINT"PLEASE STAND BY.": GOSUB 1570
1090 INPUT #3,F1: FOR I = 1 TO F1-1: INPUT #3,F2
1100 IF I=1 THEN GOTO 1140
1110 IF I=2 THEN B1=F2: GOTO 1140  'BEG INV A/C#
1120 IF I=3 THEN R1=F2: GOTO 1140  'R/E A/C#
1130 IF I=4 THEN F3=F2: GOTO 1150  'QTY BANK A/C
1140 NEXT I
1150 FOR I = 1 TO F3: INPUT #3,F2: NEXT I
1160 INPUT #3,F2: S1=F2 'SALES A/C#
1170 INPUT #3,F2: INPUT #3,T1$ 'CO NAME
1180 CLOSE #3: F1=0: F2=0: F3=0
1190 OPEN "R",3,"INVPRO.FIL",23
1200 FIELD #3,1 AS V1$,8 AS V2$,8 AS V3$,6 AS V4$
1210 GET #3,1: G1$=V1$: G4#=CVD(V2$): G3#=CVD(V3$): I8$=V4$ 'G4#=END INV G3#=N/PI8$=DATE
1220 IF G1$="1" THEN GOTO 1300
1230 CLS: LOCATE 5,1
1240 PRINT"YOU HAVE EITHER (1) NOT YET USED OPTION 3 OF THE DAILY MENU TO PREPARE AN"
1250 PRINT"INCOME STATEMENT AND A BALANCE SHEET OR (2) YOU USED DAILY OPTION 1 SINCE YOU"
1260 PRINT"LAST USED OPTION 3.  YOU MUST USE DAILY MENU OPTION 3 BEFORE THE CURRENTLY"
1270 PRINT"REQUESTED POST-CLOSING TRIAL BALANCE WILL BE PREPARED."
1280 PRINT"PRESS ANY KEY AND YOU WILL BE RETURNED TO THE DAILY MENU.": PRINT
1290 GOSUB 1970: GOTO 2460
1300 CLS: LOCATE 12,31: PRINT"PLEASE STAND BY.": GOSUB 1680
1310 OPEN "LPT1:" AS #2: C10=S1
1320 FOR J = 1 TO C10: C1=C1+1: GET #1,C1: I1=VAL(X4$)
1330 IF C1=S1 THEN GOTO 1550   'S1=SALES A/C#
1340 IF I1=0 OR I1=2 THEN GOTO 1540
1350 I3$=X2$: I4$=X8$
1360 IF I4$="D" OR I4$="C" OR I4$="1" OR I4$="2" THEN GOTO 1390
1370 CLS: LOCATE 10,1: PRINT"INCORRECT DATA FOUND. PROCESSING TERMINATED."
1380 PRINT"PRESS ANY KEY TO RETURN TO THE DAILY MENU.": GOSUB 1970: GOTO 2460
1390 C2#=CVD(Y1$): C3#=CVD(Y2$): C4#=CVD(Y3$): C5#=CVD(Y4$)
1400 C6#=C2#+C4#: C7#=C3#+C5#
1410 IF C1 <> R1 OR (C1 = R1 AND G3# = 0#) THEN GOTO 1440
1420 IF G3# < 0# THEN G3# = G3# * -1#: C7# = C7# + G3#: GOTO 1440
1430 C6# = C6# + G3#
1440 IF C6# => C7# THEN I2# = C6# - C7# ELSE I2# = C7# - C6#
1450 IF C1=B1 THEN I2#=G4# 'G4#=END INV
1460 IF (I4$="D" OR I4$="2") AND C6# <  C7# THEN F1=2: C9#=C9#+I2#: GOTO 1500
1470 IF (I4$="D" OR I4$="2") AND C6# => C7# THEN F1=1: C8#=C8#+I2#: GOTO 1500
1480 IF (I4$="C" OR I4$="1") AND C7# <  C6# THEN F1=1: C8#=C8#+I2#: GOTO 1500
1490 IF (I4$="C" OR I4$="1") AND C7# => C6# THEN F1=2: C9#=C9#+I2#
1500 GOSUB 1800: IF F5=1 THEN WIDTH #2,80: PRINT #2,
1510 WIDTH #2,255
1520 PRINT #2,SPC(5);: PRINT #2,USING "####";C1;: PRINT #2,SPC(4) I3$ SPC(P1);: PRINT #2,USING FORMAT3$;I2#: F5=1
1530 P3=P3+1: IF P3 > 50 THEN WIDTH #2,80: PRINT #2,: F5=0: P3=66-P3: GOSUB 1670: GOSUB 1680
1540 NEXT J
1550 GOSUB 2080
1560 FOR I = 1 TO 10: LPRINT: NEXT I: GOTO 2460
1570 OPEN "PASACT.FIL" FOR INPUT AS #3
1580 OPEN "R",#1,"GENLEG.FIL",111
1590 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
1600 RETURN
1610 PRINT"PRESS ANY KEY TO CONTINUE.": GOSUB 1970: RETURN
1620 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 1660
1630 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 1660
1640 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 1660
1650 F1=0
1660 RETURN
1670 FOR L = 1 TO P3: LPRINT: NEXT L: RETURN
1680 P2=P2+1: P3=13
1690 FOR L = 1 TO 6
1700 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";P2: GOTO 1730
1710 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: GOSUB 1790: GOTO 1730
1720 LPRINT
1730 NEXT L
1740 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
1750 LPRINT SPC(27) "POST-CLOSING TRIAL BALANCE": LPRINT: LPRINT
1760 LPRINT SPC(5) "ACCOUNT"
1770 LPRINT SPC(5) "NUMBER" SPC(4) "ACCOUNT TITLE" SPC(26) "DEBIT" SPC(10) "CREDIT"
1780 LPRINT: RETURN
1790 LPRINT LEFT$(I8$,2);"/";MID$(I8$,3,2);"/";RIGHT$(I8$,2): RETURN
1800 IF F1=2 THEN GOTO 1850
1810 IF I2# > 999999.99# THEN P1=1: FORMAT3$="###########,.##": GOTO 1890
1820 IF I2# > 999.99# THEN P1=5: FORMAT3$="#######,.##": GOTO 1890
1830 IF I2# > 0.99# THEN P1=10: FORMAT3$="###.##": GOTO 1890
1840 IF I2# < 1# THEN P1=13: FORMAT3$=".##": GOTO 1890
1850 IF I2# > 999999.99# THEN P1=17: FORMAT3$="###########,.##": GOTO 1890
1860 IF I2# > 999.99# THEN P1=21: FORMAT3$="#######,.##": GOTO 1890
1870 IF I2# > 0.99# THEN P1=26: FORMAT3$="###.##": GOTO 1890
1880 IF I2# < 1# THEN P1=29: FORMAT3$=".##"
1890 RETURN
1900 ' ERROR HANDLING ROUTINE.
1910 IF ERR=25 OR ERR=27 THEN GOTO 2010
1920 IF ERR=53 THEN GOTO 1940
1930 ON ERROR GOTO 0
1940 CLS: LOCATE 10,1
1950 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
1960 PRINT"TO THE DAILY MENU.": GOSUB 1970: GOTO 2460
1970 GOSUB 2060
1980 K$=INKEY$
1990 IF K$="" THEN GOTO 1980
2000 RETURN
2010 CLS: LOCATE 10,2
2020 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
2030 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 1970
2040 CLS: RESUME
2050 ' CLEAR KEYBOARD BUFFER.
2060 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
2070 ' PRINT LAST ACCOUNT AND TOTALS.
2080 WIDTH #2,80
2090 PRINT #2,SPC(45) STRING$(14,"_") SPC(2) STRING$(14,"_")
2100 PRINT #2,
2110 WIDTH #2,255
2120 I2#=C8#: F1=1: GOSUB 1800
2130 PRINT #2,SPC(5) "TOTALS"  SPC(32) SPC(P1);: PRINT #2,USING FORMAT3$;I2#;
2140 I2#=C9#: F1=2: GOSUB 1800: P1=P1-16
2150 PRINT #2,SPC(P1);: PRINT #2,USING FORMAT3$;I2#
2160 WIDTH #2,80
2170 PRINT #2,SPC(45) STRING$(14,"_") SPC(2) STRING$(14,"_")
2180 PRINT #2,SPC(45) STRING$(14,"-") SPC(2) STRING$(14,"-")
2190 CLOSE #2
2200 RETURN
2210 GOSUB 2060: I8$=""
2220 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
2230 LOCATE ROW,COLUMN
2240 PRINT I8$;
2250 POINTER = 1: A$=" "
2260 WHILE (ASC(A$) <> 13)
2270 A$ = INPUT$(1)
2280 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 2400
2290 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 2350
2300 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 2400
2310 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 2380
2320 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 2380
2330 IF (ASC(A$) <> 8) THEN GOTO 2370
2340 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
2350    MID$(I8$,POINTER-1,1) = CHR$(254)
2360    POINTER = POINTER -1
2370 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
2380 LOCATE ROW,COLUMN
2390 PRINT I8$
2400 WEND
2410 RETURN
2420 F1=0: FOR I = 1 TO LEN(I8$)
2430 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN F1=1
2440 NEXT I
2450 RETURN
2460 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END

SELTRA.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM SELTRA.BAS
1010 CLEAR: DIM A1(30): DIM A2#(30): DIM A7$(30): DIM C11$(30)
1020 DIM A3(30): DIM A4#(30): DIM A10$(30): DIM A11$(30)
1030 CLS: ON ERROR GOTO 3520
1040 GOSUB 3240: FORMAT2$="####"  'OPEN FILE
1050 FORMAT1$="###########,.##"
1060 INPUT #3,F1: FOR I = 1 TO F1-1: INPUT #3,C1: NEXT I: INPUT #3,T1$: C1=0: F1=0
1070 CLS: LOCATE 10,1: PRINT"ENTER TODAY'S DATE. USE FORMAT MMDDYY. (I.E., JUNE 8, 1984 = 060884).";: GOSUB 3620: ROW=10: COLUMN=73: LENGTH=6: GOSUB 3630
1080 X20$=I8$: GOSUB 3430: IF F1 <> 0 OR LEN(I8$) < 6 THEN GOTO 1070
1090 GOSUB 3190: IF F1 <> 0 THEN GOTO 1070
1100 D10$=I8$: CLS: GOSUB 3490: GOSUB 2840
1110 CLS: LOCATE 1,1: PRINT "SELECT ONE OF THE FOLLOWING NUMBERS.  EXCEPT FOR NUMBER 6, YOUR SELECTION"
1120 PRINT"WILL GOVERN WHICH ADDITIONAL INPUT WILL BE REQUESTED."
1130 PRINT" 1. A SPECIFIC TRANSACTION DATE OR A RANGE OF TRANSACTION DATES."
1140 PRINT" 2. A SPECIFIC ACCOUNT NUMBER OR A RANGE OF ACCOUNT NUMBERS."
1150 PRINT" 3. A SPECIFIC DOLLAR AMOUNT OR A RANGE OF DOLLAR AMOUNTS."
1160 PRINT" 4. A SPECIFIC CHECK NUMBER OR A RANGE OF CHECK NUMBERS."
1170 PRINT" 5. A SPECIFIC POSTING REFERENCE."
1180 PRINT" 6. NO CRITERIA - ALL GENERAL LEDGER ENTRIES WILL BE PRINTED.": PRINT
1190 LOCATE 11,1: PRINT"WHICH NUMBER DO YOU SELECT?";: GOSUB 3620: ROW=11: COLUMN=31: LENGTH=1: GOSUB 3630: I10$=I8$
1200 IF I10$ < "1" OR I10$ >"6" THEN X1=13: X2=11: GOSUB 3420: GOTO 1190
1210 F10=VAL(I10$)
1220 IF F10=6 THEN I30$="    ": I31$="9999": CLS: GOSUB 3490: GOSUB 3500: LOCATE 15,24: PRINT"EXAMINING DEBIT/CREDIT NUMBER": GOTO 2060
1230 IF I10$="1" THEN LOCATE 15,1 ELSE LOCATE 13,1
1240 PRINT "SELECT ANOTHER NUMBER.  LIKE THE FIRST NUMBER, ABOVE, YOUR SELECTION WILL"
1250 PRINT"GOVERN WHICH ADDITIONAL INPUT WILL BE REQUESTED."
1260 PRINT" 1. A SPECIFIC TRANSACTION MONTH AND DAY, SUCH AS MAY 16."
1270 PRINT" 2. A SPECIFIC TRANSACTION MONTH, SUCH AS MAY."
1280 PRINT" 3. A RANGE OF TRANSACTION MONTHS, SUCH AS FROM MAY TO SEPTEMBER."
1290 IF I10$="1" THEN GOTO 1310
1300 PRINT" 4. DISREGARD THE TRANSACTION DATE. (THE DATE WILL WILL IGNORED.)"
1310 LOCATE 21,1: PRINT"WHICH NUMBER DO YOU SELECT?";: GOSUB 3620: ROW=21: COLUMN=31: LENGTH=1: GOSUB 3630: I11$=I8$
1320 IF (I11$ <"1" OR (I10$="1" AND I11$ > "3") OR (I10$ > "1" AND I11$ > "4")) THEN X2=22: X1=22: GOSUB 3420: GOTO 1310
1330 F20=VAL(I11$)
1340 IF I10$="1" THEN I12$="TRANSACTION DATE": GOTO 1430
1350 IF I10$="2" THEN I12$="ACCOUNT NUMBER": GOTO 1430
1360 IF I10$="3" THEN I12$="DOLLAR AMOUNT": GOTO 1430
1370 IF I10$="4" THEN I12$="CHECK NUMBER": GOTO 1430
1380 CLS: LOCATE 5,1: PRINT"THE FIRST NUMBER THAT YOU ENTERED DIRECTS CPA-LEDGER TO SELECT ENTRIES BASED ON"
1390 PRINT"A SPECIFIC POSTING REFERENCE."
1400 LOCATE 8,1: PRINT"ENTER THE TRANSACTION REFERENCE.";: GOSUB 3620: ROW=8: COLUMN=36: LENGTH=10: GOSUB 3630: I20$=I8$
1410 IF LEFT$(I20$,1)= " " OR I20$ < "0" THEN GOTO 1400
1420 LOCATE 8,36: PRINT SPACE$(10): LOCATE 8,36: PRINT I20$: GOTO 1710
1430 CLS: LOCATE 5,1: PRINT"THE FIRST NUMBER THAT YOU ENTERED DIRECTS CPA-LEDGER TO SELECT ENTRIES BASED ON"
1440 PRINT"A SPECIFIC ";I12$;" OR A RANGE OF ";I12$;"S."
1450 IF I10$="1" THEN GOTO 1710
1460 LOCATE 8,1: PRINT"ENTER `1' TO USE A SPECIFIC ";I12$;" OR"
1470 PRINT"      `2' TO USE A RANGE OF ";I12$;"S.  ";: GOSUB 3620: ROW=9: COLUMN=49: LENGTH=1: GOSUB 3630: I20$=I8$
1480 IF I20$ < "1" OR I20$ > "2" THEN X1=11: X2=9: GOSUB 3420: GOTO 1460
1490 F30=VAL(I20$)
1500 IF F10=1 THEN GOTO 1710
1510 IF I20$ <> "1" THEN GOTO 1600
1520 LOCATE 11,1: PRINT"ENTER THE SPECIFIC ";I12$;".";: GOSUB 3620: ROW=11
1530 IF I10$="2" THEN COLUMN=38: LENGTH=4: GOTO 1560
1540 IF I10$="3" THEN COLUMN=37: LENGTH=10: GOTO 1560
1550 COLUMN=36: LENGTH=6
1560 GOSUB 3630: I20$=I8$
1570 IF I10$ > "4" THEN GOTO 1710
1580 X20$=I20$: GOSUB 3430: IF F1=0 AND VAL(I20$) > 0 THEN GOTO 1710
1590 X1=13: X2=11: GOSUB 3420: GOTO 1520
1600 LOCATE 11,1: PRINT"ENTER THE BEGINNING (LOW)  ";I12$".";: GOSUB 3620: ROW=11: COLUMN=44: LENGTH=10: GOSUB 3630: I20$=I8$
1610 IF I10$ > "4" THEN LOCATE 11,44: PRINT SPACE$(10): LOCATE 11,44: PRINT I20$: GOTO 1640
1620 X20$=I20$: GOSUB 3430: IF F1=0 AND VAL(I20$) > 0 THEN LOCATE 11,44: PRINT SPACE$(10): LOCATE 11,44: PRINT I20$: GOTO 1640
1630 X1=13: X2=11: GOSUB 3420: GOTO 1600
1640 LOCATE 12,1: PRINT"ENTER THE ENDING (HIGH)    ";I12$".";: GOSUB 3620: ROW=12: COLUMN=44: LENGTH=10: GOSUB 3630: I21$=I8$
1650 IF I10$ > "4" THEN LOCATE 12,44: PRINT SPACE$(10): LOCATE 12,44: PRINT I21$: GOTO 1710
1660 X20$=I21$: GOSUB 3430
1670 IF F1=0 AND VAL(I21$) > 0 THEN LOCATE 12,44: PRINT SPACE$(10): LOCATE 12,44: PRINT I21$: GOTO 1690
1680 X1=14: X2=12: GOSUB 3420: GOTO 1640
1690 IF I21$ > I20$ THEN GOTO 1710
1700 X1=14: X2=12: GOSUB 3420: LOCATE 11,1: PRINT SPACE$(80): GOTO 1600
1710 IF I11$="1" THEN I12$="ON A SPECIFIC TRANSACTION MONTH AND DAY."
1720 IF I11$="2" THEN I12$="DURING A SPECIFIC TRANSACTION MONTH."
1730 IF I11$="3" THEN I12$="DURING A RANGE OF MONTHS."
1740 IF I11$="4" THEN GOTO 1980
1750 LOCATE 14,1: PRINT"THE SECOND NUMBER THAT YOU ENTERED DIRECTS CPA-LEDGER TO SELECT ENTRIES"
1760 PRINT"BASED ON ";I12$: PRINT
1770 IF I11$="2" THEN GOTO 1830
1780 IF I11$="3" THEN GOTO 1870
1790 LOCATE 17,1: PRINT"ENTER THE SPECIFIC TRANSACTION MONTH AND DAY."
1800 PRINT"(USE FORMAT MMDD.  I.E., JULY 16 = 0716).";: GOSUB 3620: ROW=18: COLUMN=45: LENGTH=4: GOSUB 3630: I30$=I8$
1810 IF LEN(I30$) < 4 OR LEFT$(I30$,2) < "01" OR LEFT$(I30$,2) > "12" OR RIGHT$(I30$,2) < "01" OR RIGHT$(I30$,2) > "31" THEN X1=19: X2=17: GOSUB 3420: LOCATE X2+1,1: PRINT SPACE$(80): GOTO 1790
1820 GOTO 1980
1830 LOCATE 17,1: PRINT"ENTER THE TRANSACTION MONTH. (USE FORMAT MM. I.E., JULY = 07).";: GOSUB 3620: ROW=17: COLUMN=72: LENGTH=2: GOSUB 3630: I30$=I8$
1840 X20$=I30$: GOSUB 3430
1850 IF F1=0 AND VAL(I30$) > 0 AND VAL(I30$) < 13 AND LEN(I30$) > 1 AND LEN(I30$) < 3 THEN GOTO 1980
1860 X1=19: X2=17: GOSUB 3420: GOTO 1830
1870 LOCATE 17,1: PRINT"ENTER THE BEGINNING (LOW) MONTH.  (USE FORMAT MM. I.E., JULY = 07).";: ROW=17: COLUMN=72: LENGTH=2: GOSUB 3630: I30$=I8$
1880 X20$=I30$: GOSUB 3430
1890 IF F1=0 AND VAL(I30$) > 0 AND VAL(I30$) < 13  AND LEN(I30$) > 1 AND LEN(I30$) < 3 THEN GOTO 1910
1900 X1=19: X2=17: GOSUB 3420: GOTO 1870
1910 LOCATE 18,1: PRINT"ENTER THE ENDING (HIGH) MONTH. (USE FORMAT MM. I.E., OCTOBER = 10).";: ROW=18: COLUMN=72: LENGTH=2: GOSUB 3630: I31$=I8$
1920 X20$=I31$: GOSUB 3430
1930 IF F1=0 AND VAL(I31$) > 0 AND VAL(I31$) < 13 AND LEN(I31$) > 1 AND LEN(I31$) < 3 THEN GOTO 1950
1940 X1=20: X2=18: GOSUB 3420: GOTO 1910
1950 IF I31$ > I30$ THEN GOTO 1980
1960 X1=20: X2=18: GOSUB 3420: LOCATE 17,1: PRINT SPACE$(80): GOTO 1870
1970 'SEARCH GENERAL JOURNAL.
1980 CLS: GOSUB 3490: GOSUB 3500: CT1=0: LOCATE 15,24: PRINT"EXAMINING DEBIT/CREDIT NUMBER"
1990 IF F20=1 OR F20=2 THEN I31$=I30$
2000 IF (F10 > 1 AND F10 < 6) AND F30 <> 2 THEN I21$=I20$
2010 IF F10=2 THEN I20=VAL(I20$): I21=VAL(I21$): GOTO 2030
2020 IF F10=3 THEN I20#=VAL(I20$): I21#=VAL(I21$)
2030 IF F20=4 THEN I30$="    ": I31$="9999"
2040 IF F10 > 1 THEN GOTO 2170
2050 ' PRINT ENTRIES WITH 1ST OPTION NBR ASSGNMT OF 1 OR 6
2060 WHILE NOT EOF(2)
2062 CT1=CT1+1: LOCATE 15,56: PRINT CT1;
2070 INPUT #2,F1: IF F1 <> 0 THEN GOTO 2100
2080 F5=0: INPUT #2, F100$,J1$,I7$: GOSUB 3390: GOTO 2140
2090 ' F100$=XACTION EXPLA; J1$=POST REF; I7$=DATE
2100 I1=F1: INPUT #2, I2$,I2#,F6$,F90$
2110 ' I1=ACCT#;I2$=DR/CR;I2#=$;F6$CHK# OR BLANK
2120 IF I10$ < I30$ OR I10$ > I31$ THEN GOTO 2140
2130 Z88=1: GOSUB 2710   'PRINT
2140 WEND
2150 GOTO 2340
2160 'PRINT J/ENTRIES WITH 1ST OPTION NBR ASSIGNMT OF 2-5!
2170 F3=0: C1=0: C2=0: Z88=0: Z89=0
2180 WHILE NOT EOF(2)
2182 CT1=CT1+1: LOCATE 15,56: PRINT CT1;
2190 INPUT #2,F1: IF F1 <> 0 THEN GOTO 2210
2200 INPUT #2, F100$,J1$,I7$: GOSUB 3390: GOTO 2330
2210 I1=F1: INPUT #2, I2$,I2#,F6$,F90$
2220 IF I10$ < I30$ OR I10$ > I31$ THEN GOTO 2330  'SKP IF DATE OUT OF RANGE
2230 IF F10 <> 5 THEN GOTO 2260  'LOOK FOR POSTING REF.
2240 IF J1$ < I20$ OR J1$ > I21$ THEN GOTO 2330  'CHK POST. REF.
2250 Z88=1: GOSUB 2710: GOTO 2330   'PRINT DIRECT
2260 IF F10=3 THEN GOTO 2290
2270 IF F10=4 THEN GOTO 2300
2280 IF I1  < I20  OR I1  > I21  THEN GOTO 2320 ELSE GOTO 2310  'ACCT. #
2290 IF I2# < I20# OR I2# > I21# THEN GOTO 2320 ELSE GOTO 2310 'CHK $
2300 IF F6$ < I20$ OR F6$ > I21$ THEN GOTO 2320 ELSE GOTO 2310 'CHK CHK#
2310 Z88=1: Z89=1 'SET FLAGS FOR A HIT
2320 GOSUB 2450  'SAVE FOR POSSIBLE LATER PRINTING
2330 WEND
2340 IF Z88=1 THEN GOTO 2370
2350 CLS: LOCATE 9,1: PRINT"NO ENTRIES, MEETING YOUR SELECTION CRITERIA, WERE FOUND."
2360 PRINT"DO YOU WISH TO TRY AGAIN?": GOTO 2390
2370 CLS: LOCATE 9,1: PRINT"ENTRIES THAT MET YOUR SELECTION CRITERIA HAVE BEEN PRINTED."
2380 PRINT"DO YOU WISH TO PRINT ADDITIONAL ENTRIES?"
2390 GOSUB 3620: PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO'.";: ROW=11: COLUMN=40: LENGTH=1: GOSUB 3630
2400 IF I8$ = "Y" OR I8$="y" OR I8$ = "N" OR I8$="n" THEN GOTO 2420
2410 LOCATE 14,1: GOSUB 3350: CLS: GOTO 2340
2420 IF I8$="Y" OR I8$="y" THEN CLOSE #2: GOSUB 3270: CLS: Z88=0: Z89=0: GOTO 1110
2430 GOTO 3840   'EOF
2440 'SAVE THE DEBIT OR CREDIT ENTRY IN ARRAYS.
2450 IF I2$="C" OR I2$ = "1" THEN GOTO 2470
2460 C1=C1+1: A1(C1)=I1: A2#(C1)=I2#: GOTO 2490
2470 C2=C2+1
2480 A3(C2)=I1: A4#(C2)=I2#: A10$(C2)=F6$: IF F6$ <> " " THEN C11$(C2)=F90$
2490 IF I2$="1" AND Z89=1 THEN Z89=0: GOSUB 2530: LPRINT: GOSUB 2970
2500 IF I2$="1" THEN C1=0: C2=0: F3=0
2510 RETURN
2520 'PRINT THE POSTINGS - FROM ARRAYS.
2530 C8=C1: F1=1
2540 FOR I = 1 TO C8
2550 IF F1=2 THEN GOTO 2610
2560 I1=A1(I): GET #1,I1: I2#=A2#(I): GOSUB 2990
2570 I4$=X2$
2580 IF I=1 THEN D11$=D10$: D10$=I7$: GOSUB 2950: D10$=D11$: LPRINT SPC(2);: GOTO 2600
2590 LPRINT SPC(10);
2600 LPRINT USING FORMAT2$;I1;: LPRINT SPC(3) I4$ SPC(P1);: LPRINT USING FORMAT3$;I2#: GOSUB 2970: GOTO 2650
2610 I1=A3(I): GET #1,I1: F6$=A10$(I): I2#=A4#(I): GOSUB 2990
2620 I4$=X2$
2630 LPRINT SPC(10);: LPRINT USING FORMAT2$;I1;: LPRINT SPC(6) I4$ SPC(P1);: LPRINT USING FORMAT3$;I2#: F6$=A10$(I): F90$=C11$(I): GOSUB 2970
2640 GOSUB 3100
2650 NEXT I
2660 F1=F1+1: C8=C2
2670 IF F1=2 THEN GOTO 2540
2680 GOSUB 3140: LPRINT: GOSUB 2970
2690 RETURN
2700 ' PRINT THE POSTING - DIRECT.
2710 IF I2$="C" OR I2$="1" THEN GOTO 2770
2720 IF F5=0 THEN F5=1: D11$=D10$: D10$=I7$: GOSUB 2950: D10$=D11$: LPRINT SPC(2);: GOTO 2740
2730 LPRINT SPC(10);
2740 GET #1,I1: I4$=X2$: F1=1: GOSUB 2990
2750 LPRINT USING FORMAT2$;I1;: LPRINT SPC(3) I4$ SPC(P1);: LPRINT USING FORMAT3$;I2#: GOSUB 2970
2760 GOTO 2800
2770 GET #1,I1: I4$=X2$: F1=2: GOSUB 2990
2780 LPRINT SPC(10);: LPRINT USING "####";I1;: LPRINT SPC(6) I4$ SPC(P1);: LPRINT USING FORMAT3$;I2#: GOSUB 2970: GOSUB 3100
2790 IF I2$="1" THEN GOSUB 3140: F3=0: LPRINT: GOSUB 2970
2800 RETURN
2810 'SKIP TO TOP OF NEXT PAGE.
2820 FOR L = 1 TO P3: LPRINT: NEXT L: RETURN
2830 'PRINT PAGE HEADINGS.
2840 P2=P2+1: P3=13
2850 FOR L = 1 TO 6
2860 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";P2: GOTO 2890
2870 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: IF L=5 THEN GOSUB 2950: LPRINT: GOTO 2890
2880 LPRINT
2890 NEXT L
2900 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
2910 LPRINT SPC(24) "PREVIOUS GENERAL LEDGER ENTRIES": LPRINT: LPRINT
2920 LPRINT SPC(9) "ACCOUNT"
2930 LPRINT SPC(2) "DATE" SPC(3) "NUMBER" SPC(2) "ACCOUNT TITLE" SPC(28) "DEBIT" SPC(9) "CREDIT": LPRINT: RETURN
2940 'PRINT THE DATE.
2950 LPRINT LEFT$(D10$,2);"/";MID$(D10$,3,2);"/";RIGHT$(D10$,2);: RETURN
2960 ' CHECK POSITION OF PRINTER.
2970 P3=P3+1: IF P3>55 THEN P3=66-P3: GOSUB 2820: GOSUB 2840: RETURN
2980 'SET PRINT FORMAT
2990 IF F1=2 THEN GOTO 3040
3000 IF I2# > 999999.99# THEN P1=1: FORMAT3$="###########,.##": GOTO 3080
3010 IF I2# > 999.99# THEN P1=5: FORMAT3$="#######,.##": GOTO 3080
3020 IF I2# > 0.99# THEN P1=10: FORMAT3$="###.##": GOTO 3080
3030 IF I2# < 1# THEN P1=13: FORMAT3$=".##": GOTO 3080
3040 IF I2# > 999999.99# THEN P1=13: FORMAT3$="###########,.##": GOTO 3080
3050 IF I2# > 999.99# THEN P1=17: FORMAT3$="#######,.##": GOTO 3080
3060 IF I2# > 0.99# THEN P1=22: FORMAT3$="###.##": GOTO 3080
3070 IF I2# < 1# THEN P1=25: FORMAT3$=".##"
3080 RETURN
3090 'SAVE CHECK NUMBERS
3100 IF F6$=" " THEN GOTO 3120
3110 F3=F3+1: A11$(F3)=F6$: A7$(F3)=F90$
3120 RETURN
3130 'PRINT POSTING REF. AND CHECK NUMBERS
3140 LPRINT SPC(22) "EXPLANATION " F100$
3150 LPRINT SPC(22) "POSTING REFERENCE ";J1$
3160 P3=P3+1: GOSUB 2970
3170 FOR I = 1 TO F3
3180 LPRINT SPC(22) "CHK. NUMBER  ";A11$(I) " TO "  A7$(I): GOSUB 2970: NEXT I: RETURN
3190 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 3230
3200 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 3230
3210 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 3230
3220 F1=0
3230 RETURN
3240 OPEN "PASACT.FIL" FOR INPUT AS #3
3250 OPEN "R",1,"GENLEG.FIL",111
3260 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
3270 OPEN "GENJNL.FIL" FOR INPUT AS #2
3280 ' WRITTEN AS:  0,F100$,J1$,I7$ ONE TIME FOR EACH ENTRY.
3290 '                                0 = NEW ENTRY. F100$=TRANS EXPLA.
3300 '                                J1$=POSTING REF. I7$=TRANS DATE.
3310 '              I1,I2$,I2#,F6$,F90$   I1=ACCT#, I2$=DR/CR, I2#=$
3320 '                                    F6$=CHK#0! F90$=PAYEE
3330 RETURN
3340 ' ERROR MESSAGE.
3350 PRINT"ENTRY IS INCORRECT.  TRY AGAIN.  PRESS ANY KEY TO CONTINUE.": GOSUB 3620
3360 K$=INKEY$
3370 IF K$="" THEN GOTO 3360
3380 RETURN
3390 IF F20=1 THEN I10$=LEFT$(I7$,4): GOTO 3410
3400 IF F20=2 OR F20=3 OR F20=4 THEN I10$=LEFT$(I7$,2)
3410 RETURN
3420 LOCATE X1,1: GOSUB 3350: LOCATE X1,1: PRINT SPACE$(80): LOCATE X2,1: RETURN
3430 F1=0: F6=0
3440 FOR I = 1 TO LEN(X20$)
3450 IF F10=3 AND MID$(X20$,I,1) = "." THEN F6=F6+1: GOTO 3470
3460 IF MID$(X20$,I,1) < "0" OR MID$(X20$,I,1) > "9" THEN F1=1: I=LEN(X20$)
3470 NEXT I: IF F6>1 THEN F1=1
3480 RETURN
3490 LOCATE 10,32: PRINT"PLEASE STAND BY.": RETURN
3500 LOCATE 11,32: PRINT"SEARCHING FILE.": RETURN
3510 ' ERROR HANDLING ROUTINE.
3520 IF ERR=53 THEN GOTO 3550
3530 IF ERR=25 OR ERR=27 THEN GOTO 3580
3540 ON ERROR GOTO 0
3550 CLS: LOCATE 10,2
3560 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
3570 PRINT"TO THE DAILY MENU.": GOSUB 3620: GOSUB 3360: GOTO 3840
3580 CLS: LOCATE 10,2
3590 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
3600 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 3620: GOSUB 3360
3610 CLS: RESUME
3620 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
3630 GOSUB 3620: I8$=""
3640 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
3650 LOCATE ROW,COLUMN
3660 PRINT I8$;
3670 POINTER = 1: A$=" "
3680 WHILE (ASC(A$) <> 13)
3690 A$ = INPUT$(1)
3700 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 3820
3710 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 3770
3720 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 3820
3730 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 3800
3740 IF (POINTER = 1) AND (ASC(A$) = 8) THEN GOTO 3800
3750 IF (ASC(A$) <> 8) THEN GOTO 3790
3760 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
3770    MID$(I8$,POINTER-1,1) = CHR$(254)
3780    POINTER = POINTER -1
3790 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
3800 LOCATE ROW,COLUMN
3810 PRINT I8$
3820 WEND
3830 RETURN
3840 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END

SETUP.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 KEY OFF: CLS: LOCATE 5,1
1010 LOCATE 3,1: PRINT SPC(35) "CPA-LEDGER"
1020 LOCATE 5,1: PRINT SPC(35) "SETUP MENU": LOCATE 8,1
1030 PRINT"SELECT ONE OF THE OPTION NUMBERS BELOW.": PRINT
1040 PRINT"  1. ESTABLISH A NEW GENERAL LEDGER AND ASSIGN ACCOUNT TITLES."
1050 PRINT"  2. IDENTIFY SELECTED ACCOUNT NUMBERS THAT ARE IN THE NEW GENERAL
1060 PRINT"     LEDGER AND IDENTIFY YOUR BUSINESS NAME."
1070 PRINT"  3. ASSIGN BEGINNING DOLLAR AMOUNTS TO NEW GENERAL LEDGER ACCOUNTS."
1072 PRINT"  4. GO TO THE DAILY MENU."
1080 PRINT"  5. STOP ALL CPA-LEDGER PROCESSING AND RETURN CONTROL TO PC-DOS."
1082 GOSUB 9000
1090 LOCATE 17,1: PRINT"WHICH OPTION NUMBER DO YOU SELECT?";: GOSUB 1290: ROW=17: COLUMN=37: LENGTH=1: GOSUB 1300
1100 F1=0:FOR I = 1 TO LEN(I8$): IF MID$(I8$,I,1) < "1" OR MID$(I8$,I,1) > "9" THEN F1=1
1102 NEXT I
1110 IF F1 = 0 AND VAL(I8$) => 1 AND VAL(I8$) =< 5 THEN GOTO 1160
1120 LOCATE 22,1: PRINT"ENTRY IS INCORRECT. TRY AGAIN. PRESS ANY KEY TO CONTINUE.": GOSUB 1290: GOSUB 1130: LOCATE 22,1: PRINT SPACE$(80): GOTO 1090
1130 K$=INKEY$
1140 IF K$="" THEN GOTO 1130
1142 RETURN
1150 LOCATE 22,1: PRINT SPACE$(80)
1160 IF I8$="5" THEN CLS: SYSTEM
1162 IF I8$="2" THEN GOTO 1270
1164 IF I8$="4" THEN GOTO 1282
1180 CLS: LOCATE 10,1: PRINT"ADJUST THE PAPER IN YOUR PRINTER SO THAT THE PAPER IS AT TOP-OF-PAGE.": PRINT
1190 PRINT"THE PAPER WILL BE AT TOP-OF-PAGE WHEN THE PRINTER WILL PRINT ON THE VERY FIRST"
1200 PRINT"LINE AT THE TOP OF THE PAGE.": PRINT
1230 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 1290
1240 K$=INKEY$
1250 IF K$="" THEN GOTO 1240
1260 IF I8$="1" THEN GOSUB 1510: RUN "GENLGR.BAS": END
1270 IF I8$="2" THEN GOSUB 1510: RUN "STOACT.BAS": END
1280 IF I8$="3" THEN GOSUB 1510: RUN "OPNBAL.BAS": END
1282 IF I8$="4" THEN GOSUB 1510: RUN "DAILY.BAS": END
1284 CLS: LOCATE 10,1
1286 PRINT"THIS PROGRAM HAS BEEN MODIFIED IMPROPERLY.  CHECK KEYS FOR RUN STATEMENTS.": END
1290 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
1300 I8$=""
1310 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
1320 LOCATE ROW,COLUMN
1330 PRINT I8$;
1340 POINTER = 1: A$=" "
1350 WHILE (ASC(A$) <> 13)
1360 A$ = INPUT$(1)
1370 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 1490
1380 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 1440
1390 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 1490
1400 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 1470
1410 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 1470
1420 IF (ASC(A$) <> 8) THEN GOTO 1460
1430 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
1440    MID$(I8$,POINTER-1,1) = CHR$(254)
1450    POINTER = POINTER -1
1460 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
1470 LOCATE ROW,COLUMN
1480 PRINT I8$
1490 WEND
1500 RETURN
1510 CLS: LOCATE 10,31: PRINT"PLEASE STAND BY.": RETURN
9000 LOCATE 23,1: PRINT"(C) COPYRIGHT 1986 TRONOLONE & FOSTER, PC
9002 LOCATE 1,1: PRINT"ASSISTANCE?"
9004 LOCATE 2,4: PRINT"WRITE"
9006 LOCATE 3,1: PRINT"JIM FOSTER"
9008 LOCATE 4,1: PRINT"8529 GREELEY BLVD."
9010 LOCATE 5,1: PRINT"SPRINGFIELD, VIRGINIA  22152"
9100 LOCATE 1,67: PRINT"ASSISTANCE?"
9200 LOCATE 2,70: PRINT"CALL"
9300 LOCATE 3,67: PRINT"JIM FOSTER"
9400 LOCATE 4,65: PRINT"(703) 569-2254"
9500 LOCATE 5,65: PRINT"AFTER 7:30 PM"
9600 LOCATE 6,67: PRINT"OR ANYTIME"
9700 LOCATE 7,67: PRINT" WEEKENDS."
9800 RETURN

STOACT.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 ' STOACT.  THE ORDER OF DATA IN PASACT.FIL IS:
1100 '  1. THE QUANTITY OF ACCOUNTS BEFORE THE COMPANY NAME
1200 '  2. ACCOUNT NUMBER FOR ACCTS REC.
1300 '  3.   "       "     "  BEGINNING INVENTORY
1400 '  4.   "       "     "  RETAINED EARNINGS
1500 '  5.   "       "     "  QTY. OF BANK ACCOUNTS
1600 '  6.   "       "     "  THE BANK ACCOUNT NUMBERS (QTY DEPENDS ON #5)
1700 '  7.   "       "     "  ACCOUNT NUMBER FOR SALES
1800 '  8.   "       "     "  LAST ACCOUNT IN THE FILE
1900 '  9.   "       "     "  COMPANY NAME
2000 CLEAR: CLS: LOCATE 10,1: ON ERROR GOTO 25000
2100 DIM B(30): DIM A(20): DIM C(9)  'A( FOR A/C NOS.
2200 CLS: LOCATE 1,1
2300 PRINT"SEVERAL OF THE COMPUTER PROGRAMS THAT PROCESS YOUR TRANSACTIONS NEED TO KNOW"
2400 PRINT"THE ACCOUNT NUMBERS THAT HAVE BEEN ASSIGNED TO VARIOUS ACCOUNTS.  THIS"
2500 PRINT"COMPUTER PROGRAM ASKS YOU TO ENTER THE APPROPRIATE ACCOUNT NUMBERS AND STORES"
2600 PRINT"THEM FOR AUTOMATIC REFERENCE WHEN THEY ARE NEEDED.": PRINT
2700 PRINT"USE A CURRENT LISTING OF GENERAL LEDGER ACCOUNTS WHILE MAKING INPUT TO THIS"
2800 PRINT"COMPUTER PROGRAM.": PRINT
2900 PRINT"PROCESSING WILL BE AS FOLLOWS.  THE COMPUTER WILL DISPLAY THE NAME OF AN"
3000 PRINT"ACCOUNT ON THE COMPUTER SCREEN AND ASK YOU TO ENTER THE ACCOUNT NUMBER FOR THAT"
3100 PRINT"ACCOUNT.  THE NAME DISPLAYED MAY NOT BE EXACTLY THE SAME AS YOU ASSIGNED IN THE"
3200 PRINT"GENERAL LEDGER, BUT YOU WILL KNOW WHICH ACCOUNT IS BEING REFERENCED.": PRINT
3300 PRINT"AFTER YOU GIVE YOUR INPUT, THE COMPUTER WILL DISPLAY THE ACTUAL ACCOUNT TITLE"
3400 PRINT"FOR THAT ACCOUNT NUMBER AND ASK YOU TO CONFIRM YOUR INPUT.": PRINT
3500 PRINT"YOU MAY BE ASKED TO ENTER AN ACCOUNT NUMBER FOR AN ACCOUNT THAT IS NOT INCLUDED"
3600 PRINT"IN THE GENERAL LEDGER.  IN THIS CASE, ENTER A 0 (ZERO).  THE COMPUTER WILL"
3700 PRINT"RECOGINZE THE ZERO AS PERTAINING TO AN ACCOUNT THAT IS NOT IN THE GENERAL"
3800 PRINT"LEDGER.": PRINT
3900 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE."
4000 GOSUB 16300
4100 C1=0: F1=0: M3=0
4200 CLS: LOCATE 12,32: PRINT"PLEASE STAND BY."
4202 OPEN "PASACT.FIL" FOR INPUT AS #2: INPUT #2,LASTACTNO,FRMCHK
4204 IF FRMCHK=30000 THEN GOTO 4400  'FRMCHK=30000 IF COMING FROM OPTION 1
4206 CLS: LOCATE 10,1: PRINT"ARE YOU COMING TO THIS OPTION OF THE SETUP MENU TO CORRECT PREVIOUS MISTAKES IN"
4208 PRINT"IDENTIFYING ACCOUNT NUMBERS?  (IF NOT, YOU WILL BE RETURNED TO THE DAILY MENU.)": PRINT
4210 PRINT"ENTER `Y'  (YES, CONTINUE PROCESSING) OR `N'  (NO, RETURN TO DAILY MENU.)"
4212 ROW=13: COLUMN=76: LENGTH=1: GOSUB 22800
4214 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 4216 ELSE GOTO 4212
4216 IF I8$="N" OR I8$="n" THEN RUN "DAILY.BAS": END
4218 CLS: LOCATE 10,1: PRINT"BE SURE TO HAVE A CURRENT LISTING OF YOUR GENERAL LEDGER ACOUNTS BEFORE YOU"
4220 PRINT"CONTINUE.  IT IS VERY IMPORTANT THAT YOU GIVE CPA-LEDGER THE PROPER ACCOUNT"
4222 PRINT"NUMBERS.  OTHERWISE, THE DAILY MENU OPTIONS WILL NOT EXECUTE PROPERLY.": PRINT
4224 PRINT"DO NOT RELY ON YOUR MEMORY.  HAVE A CURRENT LISTING OF THE ACCOUNT NUMBERS IN"
4226 PRINT"FRONT OF YOU FOR REFERENCE.": PRINT
4228 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 16300: CLS
4230 FOR I = 1 TO LASTACTNO-2: INPUT #2,F2     '1ST 2 RECS ALREADY READ
4232 IF I=3 AND F2=0 THEN GOTO 4242     'I=3 WHEN AT QTY OF BANK ACCOUNTS
4234 IF I=3 AND F2 <> 0 THEN GOTO 4238  'BANK ACCTS ARE STORED- BYPASS THEM
4236 GOTO 4240
4238 FOR J = 1 TO F2: INPUT #2,F3: NEXT J: GOTO 4242  'BYPASS BANK ACCTS
4240 NEXT I
4242 INPUT #2,S1          'A/C# SALES
4244 INPUT #2,LASTACTNO   'LAST A/C#
4400 CLOSE: GOSUB 14700: WHILE I1$ <> "SALES                    "
4500 M3=M3+1: GET #1,M3: I1$=X1$
4600 IF F1=1 THEN GOTO 4900
4700 IF I1$="SALES                    " THEN Z99=M3: F1=1
4800 WEND
4900 M3=LASTACTNO: FOR V = 1 TO 3
5000 IF V=1 THEN T1$="ACCOUNTS RECEIVABLE": GOTO 5300
5100 IF V=2 THEN T1$="BEGINNING MERCHANDISE INVENTORY": GOTO 5300
5200 IF V=3 THEN T1$="RETAINED EARNINGS": GOSUB 26100
5300 CLS: IF V=2 THEN LOCATE 15,1: PRINT"IF YOU DO NOT WISH TO HAVE A COST OF GOODS SOLD SECTION ON YOUR INCOME STATE-"
5400 IF V=2 THEN LOCATE 16,1: PRINT"MENT, ENTER 0 (ZERO).  THE COST OF GOODS SECTION IS OMITTED FROM YOUR INCOME"
5500 IF V=2 THEN LOCATE 17,1: PRINT"INCOME STATEMENT IF YOU ENTER A 0 (ZERO) NOW   A-N-D  IF YOU DID NOT"
5600 IF V=2 THEN LOCATE 18,1: PRINT"INCLUDE ANY ACTIVE ACCOUNTS FOR PURCHASES WHILE USING OPTION 1 OF THE"
5700 IF V=2 THEN LOCATE 19,1: PRINT"SETUP MENU.": LOCATE 10,1: GOTO 5900
5800 CLS: LOCATE 10,1
5900 PRINT"ENTER THE ACCOUNT NUMBER FOR ";T1$;".  ";: GOSUB 22700: ROW=10: COLUMN=64: LENGTH=4: GOSUB 22800
6000 GOSUB 15400      'CHK FOR NONNUMS
6100 IF V=2 THEN LOCATE 15,1: PRINT SPACE$(80): LOCATE 16,1: PRINT SPACE$(80): LOCATE 17,1: PRINT SPACE$(80): LOCATE 18,1: PRINT SPACE$(80): LOCATE 19,1: PRINT SPACE$(12)
6200 IF I8$ < "0" THEN GOTO 5300
6300 IF F1=1 THEN GOSUB 15900: GOSUB 16100: GOTO 5300
6400 C1=VAL(I8$)
6500 IF C1 > M3 THEN GOSUB 16700: GOTO 5300  'CHK ACCT NBR UPPER LIMIT
6600 IF C1 > 0 THEN GOTO 7000
6700 IF V=3 THEN GOSUB 26100: GOTO 5300
6800 GOSUB 17900   'VERIFY INPUT OF ZERO FOR ACCT NBR
6900 IF I8$ = "N" OR I8$="n" THEN GOTO 5300 ELSE CLS: GOTO 8400
7000 GET #1,C1
7100 I5$=X4$
7200 IF I5$ = "1" THEN GOTO 7400
7300 GOSUB 20400: GOTO 5300
7400 F1=0
7500 FOR K = 1 TO C2       'CHK FOR DOUBLE ENTRY OF ACCT NBR
7600 IF A(K)=C1 THEN F1=1
7700 NEXT K
7800 IF F1=0 THEN GOTO 8200
7900 GOSUB 21800            'ERROR MSG
8000 IF F1=2 THEN CLOSE: KILL "*.FIL": GOTO 24900   'RETURN TO SETUP MENU.
8100 GOTO 5300
8200 GOSUB 18600   'DISPLAY INPUT FOR VERIFICATION
8300 IF I8$= "N" OR I8$="n" THEN GOTO 5300
8400 WRITE #2,C1: C2=C2+1: A(C2)=C1: F11=F11+1
8500 NEXT V: CLS:OLDC2=C2
8600 CLS: LOCATE 5,1
8700 PRINT"HOW MANY DIFFERENT CHECKING ACCOUNTS SHOULD BE INCLUDED IN THE GENERAL LEDGER?"
8800 PRINT"CAREFULLY NOTE THAT THE REQUESTED INPUT IS FOR THE NUMBER OF DIFFERENT CHECKING"
8900 PRINT"ACCOUNTS  -  NOT FOR THE NUMBER OF BANKS IN WHICH YOU HAVE THOSE CHECKING"
9000 PRINT"ACCOUNTS.  FOR EXAMPLE, IT YOU HAVE TWO DIFFERENT CHECKING ACCOUNTS IN ONE"
9100 PRINT"BANK, YOUR INPUT SHOULD BE  2.  IF YOU HAVE FIVE CHECKING ACCOUNTS IN TWO"
9200 PRINT"BANKS, YOUR INPUT SHOULD BE  5."
9300 LOCATE 18,1: PRINT SPACE$(80): LOCATE 18,1
9400 PRINT"ENTER YOUR INPUT NOW.";: GOSUB 22700: ROW=18: COLUMN=25: LENGTH=1: GOSUB 22800
9500 GOSUB 15400
9600 IF F1=1 THEN LOCATE 20,1: GOSUB 16000: LOCATE 21,1: GOSUB 16200: LOCATE 20,1: PRINT SPACE$(80): LOCATE 21,1: PRINT SPACE$(80): GOTO 9300
9700 C11=VAL(I8$)
9800 QTYACTS=C11  'SAVE QTY BANK ACTS.
9900 IF C11 = 0 THEN  WRITE #2,QTYACTS: F11=F11+1: GOTO 13100  'NO BANK ACTS.
10000 T1$=" BANK ACCOUNT "
10100 BNKACT=0: FOR V = 1 TO C11
10200 CLS: LOCATE 10,1
10300 PRINT"ENTER THE ACCOUNT NUMBER FOR";T1$;V;" OF ";C11;".";: GOSUB 22700: ROW=10: COLUMN=55: LENGTH=4: GOSUB 22800
10400 GOSUB 15400      'CHK FOR NONNUMS
10500 IF F1=1 THEN GOSUB 15900: GOSUB 16100: GOTO 10200
10600 C1=VAL(I8$)
10700 IF C1 > M3 THEN GOSUB 16700: GOTO 10200  'CHK ACCT NBR UPPER LIMIT
10800 IF C1 > 0 THEN GOTO 11100
10900 F1=0: GOSUB 17100: IF F1=1 THEN GOTO 8600 ELSE GOTO 10200  'ERROR MESSAGE
11000 IF I8$ = "N" OR I8$="n" THEN GOTO 10200 ELSE GOTO 12500
11100 GET #1,C1
11200 I5$=X4$
11300 IF I5$ = "1" THEN GOTO 11500
11400 GOSUB 20400: GOTO 10200
11500 F1=0
11600 FOR K = 1 TO C2       'CHK FOR DOUBLE ENTRY OF ACCT NBR
11700 IF A(K)=C1 THEN F1=1
11800 NEXT K
11900 IF F1=0 THEN GOTO 12300
12000 GOSUB 21800            'ERROR MSG
12100 IF F1=2 THEN CLOSE: KILL "*.FIL": GOTO 24900   'RETURN TO SETUP MENU.
12200 GOTO 10200
12300 GOSUB 18600   'DISPLAY INPUT FOR VERIFICATION
12400 IF I8$= "N" OR I8$="n" THEN GOTO 10200
12500 BNKACT=BNKACT+1: C(BNKACT)=C1: C2=C2+1: A(C2)=C1:  'SAVE BANK ACCT#
12600 NEXT V
12700 WRITE #2,QTYACTS: F11=F11+1: IF BNKACT=QTYACTS THEN GOTO 13000
12800 CLS: LOCATE 10,1: PRINT"NON-RECOVERABLE ERROR.  IF YOU NEED ASSISTANCE, CALL JIM FOSTER.  TELEPHONE AND"
12900 PRINT"ADDRESS ARE IN USER'S MANUAL.": END
13000 FOR I = 1 TO QTYACTS: WRITE #2,C(I): F11=F11+1: NEXT I
13100 CLOSE #2: OPEN "PASACT.FIL" FOR INPUT AS #2
13200 FOR S = 1 TO F11: INPUT #2,C1: B(S)=C1: NEXT S: CLOSE #2
13300 OPEN "PASACT.FIL" FOR OUTPUT AS #2
13400 WRITE #2,F11+3
13500 FOR P = 1 TO F11: WRITE #2,B(P): NEXT P: F11=F11+1
13600 WRITE #2,Z99: WRITE #2,M3: F11=F11+2  'WRITE SALES ACCT#(Z99) AND LAST REC#(M3)
13700 CLS: LOCATE 5,1
13800 PRINT"ONE LAST INPUT IS REQUIRED BEFORE PROCESSING BY THIS PROGRAM WILL BE COMPLETE."
13900 PRINT"THAT INPUT IS THE NAME OF THE COMPANY OR THE INDIVIDUAL FOR WHOM FINANCIAL"
14000 PRINT"RECORDS ARE TO BE MAINTAINED.  FOR EXAMPLE, IF THE NAME IS `ABC COMPANY', YOUR"
14100 PRINT"INPUT SHOULD BE `ABC COMPANY' (WITHOUT THE QUOTES).": PRINT
14200 PRINT"ENTER THE NAME NOW.": ROW=10: COLUMN=23: LENGTH=30: GOSUB 22800
14300 IF LEFT$(I8$,1) = " " THEN GOTO 13700
14400 WRITE #2,I8$  'WRITE COMPANY NAME
14500 LSET V1$="0": LSET V2$=MKD$(0#): LSET V3$=MKD$(0#): PUT #3,1
14600 GOTO 24900
14700 OPEN "TEST1.FIL" FOR INPUT AS #2: CLOSE #2
14800 OPEN "TEST2.FIL" FOR OUTPUT AS #2: CLOSE #2
14900 OPEN "R",1,"GENLEG.FIL",111
15000 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
15100 OPEN "R",3,"INVPRO.FIL",17
15200 FIELD #3,1 AS V1$,8 AS V2$,8 AS V3$
15300 OPEN "PASACT.FIL" FOR OUTPUT AS #2: RETURN
15400 F1=0
15500 FOR I = 1 TO LEN(I8$)
15600 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN F1=1: I=LEN(I8$)
15700 NEXT I
15800 RETURN
15900 LOCATE 18,1
16000 PRINT"ENTRY IS INCORRECT.  TRY AGAIN.": RETURN
16100 LOCATE 19,1
16200 PRINT"PRESS ANY KEY TO CONTINUE.
16300 GOSUB 22700
16400 K$=INKEY$
16500 IF K$="" THEN GOTO 16400
16600 RETURN
16700 LOCATE 15,1
16800 PRINT"THE ACCOUNT NUMBER THAT YOU INPUT IS TOO LARGE.  THE LARGEST ACCOUNT NUMBER IN"
16900 PRINT"THE GENERAL LEDGER IS ";M3;".  CONSULT A CURRENT LISTING OF THE ACCOUNTS AND"
17000 PRINT"TRY AGAIN.  PRESS ANY KEY TO CONTINUE.": GOSUB 16300: RETURN
17100 LOCATE 13,1: PRINT"YOUR ENTRY IS INCORRECT.  YOU MUST ENTER AN ACCOUNT NUMBER FOR A BANK OR START"
17200 LOCATE 14,1: PRINT"AGAIN AT THE POINT WHERE YOU ENTER THE NUMBER OF CHECKING ACCOUNTS TO BE"
17300 LOCATE 15,1: PRINT"INCLUDED IN THE GENERAL LEDGER.  DO YOU WISH TO START AGAIN?"
17400 LOCATE 17,1: PRINT"ENTER `Y' FOR `YES' OR `NO' FOR `NO'.";
17500 ROW=17: COLUMN=40: LENGTH=1: GOSUB 22800
17600 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 17700  ELSE GOTO 17500
17700 IF I8$="Y" OR I8$="y" THEN F1=1: C2=OLDC2
17800 RETURN
17900 LOCATE 13,1: PRINT"YOUR INPUT FOR THE ACCOUNT NUMBER IS ZERO (0).  FOR THAT INPUT, A ZERO, THE"
18000 PRINT"COMPUTER WILL ASSUME THAT THE ABOVE ACCOUNT IS NOT CURRENTLY INCLUDED IN THE"
18100 PRINT"GENERAL LEDGER.  IS THAT ASSUMPTION CORRECT?  ANSWER BY ENTERING `Y' FOR `YES'"
18200 LOCATE 16,1: PRINT SPACE$(80): LOCATE 16,1: PRINT"OR `N' FOR `NO'.";: GOSUB 22700: ROW=16: COLUMN=20: LENGTH=1: GOSUB 22800
18300 IF I8$ = "Y" OR I8$="y" OR I8$ = "N" OR I8$="n" THEN GOTO 18500
18400 LOCATE 18,1: GOSUB 16000: LOCATE 19,1: GOSUB 16200: LOCATE 18,1: PRINT SPACE$(80): LOCATE 19,1: PRINT SPACE$(80): GOTO 18200
18500 RETURN
18600 CLS: LOCATE 2,1
18700 PRINT"YOUR INPUT FOR THE ACCOUNT NUMBER IS DISPLAYED BELOW.  FOR YOUR REVIEW, ALSO"
18800 PRINT"DISPLAYED IS THE ACCOUNT'S TITLE AS IT IS RECORDED IN THE GENERAL LEDGER."
18900 PRINT"REVIEW BOTH THE ACCOUNT NUMBER AND THE ACCOUNT TITLE.  IF THE ACCOUNT TITLE"
19000 PRINT"IS NOT FOR  ****** ";T1$;" ******, YOUR INPUT FOR THE"
19100 PRINT"ACCOUNT NUMBER IS INCORRECT.": PRINT
19200 GET #1,C1
19300 T5$=X2$
19400 PRINT SPC(6) "ACCOUNT"
19500 PRINT SPC(6) "NUMBER" SPC(3) STRING$(8,"*") " ACCOUNT TITLE " STRING$(7,"*")
19600 PRINT
19700 PRINT SPC(7);: PRINT USING "####";C1;: PRINT SPC(4) T5$
19800 PRINT
19900 LOCATE 13,1: PRINT SPACE$(80): LOCATE 13,1: PRINT"IS YOUR INPUT FOR THE ACCOUNT NUMBER CORRECT?  ANSWER WITH `Y' FOR `YES' OR"
20000 PRINT"`N' FOR `NO'. ";: GOSUB 22700: ROW=14: COLUMN=16: LENGTH=1: GOSUB 22800
20100 IF I8$ = "Y" OR I8$="y" OR I8$ = "N" OR I8$="y" THEN GOTO 20300
20200 LOCATE 16,1: GOSUB 16000: LOCATE 17,1: GOSUB 16200: LOCATE 16,1: PRINT SPACE$(80): LOCATE 17,1: PRINT SPACE$(80): GOTO 19900
20300 RETURN
20400 LOCATE 12,1
20500 PRINT"YOUR INPUT IS FOR AN INACTIVE ACCOUNT.  ONLY ACTIVE ACCOUNTS CAN BE PROCESSED"
20600 PRINT"AT THIS POINT.  CONSULT THE PRINTOUT FROM OPTION 1 OF THE SETUP MENU.": PRINT
20700 PRINT"IF YOU MADE A MISTAKE IN OPTION 1 OF THE SETUP MENU AND THIS ACCOUNT IS NOT"
20800 PRINT"INCLUDED IN THE OPTION 1 PRINTOUT, ANSWER `Y' TO THE QUESTION THAT FOLLOWS AND"
20900 PRINT"YOU WILL BE RETURNED TO THE SETUP MENU FOR USING OPTION 1 TO REENTER ALL OF"
21000 PRINT"YOUR ACCOUNT INFORMATION.  UPON REENTERING YOUR ACCOUNT INFORMATION, BE VERY"
21100 PRINT"CAREFUL AND TRY TO AVOID MISTAKES.": PRINT
21200 PRINT"DO YOU WISH TO RETURN TO THE SETUP MENU TO START AGAIN?"
21300 PRINT"ENTER `Y' FOR `YES' OR `N' FOR `NO'"
21400 ROW=22: COLUMN=39: LENGTH=1: GOSUB 22800
21500 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 21600 ELSE GOTO 21400
21600 IF I8$="Y" OR I8$="y" THEN CLOSE: KILL "*.FIL": RUN "SETUP.BAS"
21700 RETURN
21800 LOCATE 12,1: GOSUB 16000    'ENTRY IS INCORRECT
21900 PRINT"YOU INPUT THE SAME ACCOUNT NUMBER MORE THAN ONE TIME.  IF YOUR ARE UNSURE OF"
22000 PRINT"YOUR INPUT, YOU MAY, IF YOU DESIRE, RETURN TO THE SETUP MENU AND START AGAIN,"
22100 PRINT"WITH OPTION 1 (AND ALL THE INPUT REQUIRED BY OPTION 1).  DO YOU DESIRE TO"
22200 PRINT"RETURN TO THE SETUP MENU?  ANSWER `Y' FOR `YES' OR `N' FOR `NO'.";
22300 ROW=16: COLUMN=67: LENGTH=1: GOSUB 22800
22400 IF I8$= "Y" OR I8$="y" OR I8$ = "N" OR I8$="n" THEN GOTO 22500 ELSE GOTO 22300
22500 IF I8$ = "Y" OR I8$="y" THEN F1=2 ELSE F1=0
22600 RETURN
22700 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
22800 GOSUB 22700: I8$=""
22900 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
23000 LOCATE ROW,COLUMN
23100 PRINT I8$;
23200 POINTER = 1: A$=" "
23300 WHILE (ASC(A$) <> 13)
23400 A$ = INPUT$(1)
23500 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 24700
23600 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 24200
23700 IF (POINTER > LENGTH) THEN BEEP: BEEP: BEEP: GOTO 24700
23800 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 24500
23900 IF (POINTER = 1) AND (ASC(A$) = 8) THEN BEEP: BEEP: BEEP: GOTO 24500
24000 IF (ASC(A$) <> 8) THEN GOTO 24400
24100 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
24200    MID$(I8$,POINTER-1,1) = CHR$(254)
24300    POINTER = POINTER -1
24400 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
24500 LOCATE ROW,COLUMN
24600 PRINT I8$
24700 WEND
24800 RETURN
24900 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "SETUP.BAS": END
25000 IF ERR=53 THEN GOTO 25300
25100 IF ERR=25 OR ERR=27 THEN GOTO 25700
25200 ON ERROR GOTO 0
25300 CLS: LOCATE 10,1
25400 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
25500 PRINT"TO THE SETUP MENU.": GOSUB 16300
25600 GOTO 24900
25700 CLS: LOCATE 10,2
25800 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
25900 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 16300
26000 CLS: RESUME
26100 CLS: LOCATE 5,1
26200 PRINT"SINCE THIS VERSION OF CPA-LEDGER IS FOR CORPORATIONS, YOU MUST HAVE AT LEAST"
26300 PRINT"ONE RETAINED EARNINGS ACCOUNT IN YOUR STATEMENT OF FINANCIAL CONDITION.": PRINT
26400 PRINT"THE ACCOUNT NUMBER THAT YOU ENTER SHOULD BE THE ONE TO BE USED FOR POSTING"
26500 PRINT"PROFITS AND LOSSES.  ANY OTHER RETAINED EARNINGS ACCOUNTS THAT YOU ESTABLISH"
26600 PRINT"ARE FOR YOUR OWN INFORMATION -  CPA-LEDGER DOES NOT USE THEM FOR POSTING"
26700 PRINT"PROFITS AND LOSSES.": PRINT
26800 PRINT"IF YOU DID NOT INCLUDE AT LEAST ONE RETAINED EARNINGS ACCOUNT IN THE STATEMENT"
26900 PRINT"FINANCIAL POSITION, ANSWER `N' (FOR `NO') TO THE QUESTION THAT FOLLOWS AND"
27000 PRINT"USE OPTION 1 OF THE SETUP MENU AGAIN, THIS TIME INCLUDING AT LEAST ONE RETAINED"
27100 PRINT"EARNINGS ACCOUNT.": PRINT: PRINT
27200 PRINT"DID YOU INCLUDE A RETAINED EARNINGS ACCOUNT IN"
27300 PRINT"THE STATEMENT OF FINANCIAL CONDITION?"
27400 ROW=20: COLUMN=50: LENGTH=1: GOSUB 22800
27500 IF I8$="Y" OR I8$="y" OR I8$="N" OR I8$="n" THEN GOTO 27600 ELSE GOTO 27400
27600 IF I8$="Y" OR I8$="y" THEN GOTO 27800
27700 CLOSE: KILL "*.FIL": GOTO 24900
27800 RETURN

TRIBAL.BAS

500  ' COPYRIGHT 1986 TRONOLONE & FOSTER, PC
1000 REM TRIBAL.BAS
1010 CLEAR: ON ERROR GOTO 1700
1080 CLS: LOCATE 12,31: PRINT"PLEASE STAND BY.": GOSUB 1360
1090 INPUT #3,F1: FOR I = 1 TO F1-1: INPUT #3,C10: NEXT I: INPUT #3,T1$
1100 CLS: LOCATE 8,1
1110 PRINT"ENTER TODAY'S DATE. USE FORMAT MMDDYY.  (I.E. JUNE 8, 1984 = 060884.)"
1120 ROW=8: COLUMN=73: LENGTH=6: GOSUB 2000: GOSUB 1410
1130 IF F1 <> 0 OR LEN(I8$) < 6 THEN GOTO 1100
1140 GOSUB 2210: IF F1 <> 0 THEN GOTO 1100
1150 CLS: LOCATE 12,31: PRINT"PLEASE STAND BY.": GOSUB 1470
1160 OPEN "LPT1:" AS #2
1170 FOR J = 1 TO C10: C1=C1+1: GET #1,C1: I1=VAL(X4$)
1180 IF I1=0 OR I1=2 THEN GOTO 1330
1190 I3$=X2$: I4$=X8$
1200 IF I4$="D" OR I4$="C" OR I4$="1" OR I4$="2" THEN GOTO 1220
1210 CLS: LOCATE 10,1: PRINT"INCORRECT DATA FOUND. PROCESSING TERMINATED.": GOSUB 1760: GOTO 2250
1220 C2#=CVD(Y1$): C3#=CVD(Y2$): C4#=CVD(Y3$): C5#=CVD(Y4$)
1230 C6#=C2#+C4#: C7#=C3#+C5#
1240 IF C6# => C7# THEN I2# = C6# - C7# ELSE I2# = C7# - C6#
1250 IF (I4$="D" OR I4$="2") AND C6# < C7# THEN F1=2: C9#=C9#+I2#: GOTO 1290
1260 IF (I4$="D" OR I4$="2") AND C6# => C7# THEN F1=1: C8#=C8#+I2#: GOTO 1290
1270 IF (I4$="C" OR I4$="1") AND C7# <  C6# THEN F1=1: C8#=C8#+I2#: GOTO 1290
1280 IF (I4$="C" OR I4$="1") AND C7# => C6# THEN F1=2: C9#=C9#+I2#
1290 GOSUB 1590: IF F5=1 THEN WIDTH #2,80: PRINT #2,
1300 WIDTH #2,255
1310 PRINT #2,SPC(5);: PRINT #2,USING "####";C1;: PRINT #2,SPC(4) I3$ SPC(P1);: PRINT #2,USING FORMAT3$;I2#: F5=1
1320 P3=P3+1: IF P3 > 50 THEN WIDTH #2,80: PRINT #2,: F5=0: P3=66-P3: GOSUB 1460: GOSUB 1470
1330 NEXT J
1340 GOSUB 1870
1350 FOR I = 1 TO 10: LPRINT: NEXT I: GOTO 2250
1360 OPEN "PASACT.FIL" FOR INPUT AS #3
1370 OPEN "R",#1,"GENLEG.FIL",111
1380 FIELD #1,25 AS X1$,30 AS X2$,6 AS X3$,1 AS X4$,4 AS X5$,2 AS X7$,1 AS X8$,10 AS X9$,8 AS Y1$,8 AS Y2$,8 AS Y3$,8 AS Y4$
1390 RETURN
1400 PRINT"PRESS ANY KEY TO CONTINUE.": GOSUB 1760: RETURN
1410 D1$=LEFT$(I8$,2): IF D1$ < "01" OR D1$ > "12" THEN F1=1: GOTO 1450
1420 D1$=MID$(I8$,3,2): IF D1$ < "01" OR D1$ > "31" THEN F1=1: GOTO 1450
1430 D1$=RIGHT$(I8$,2): IF D1$ < "86" THEN F1=1: GOTO 1450
1440 F1=0
1450 RETURN
1460 FOR L = 1 TO P3: LPRINT: NEXT L: RETURN
1470 P2=P2+1: P3=13
1480 FOR L = 1 TO 6
1490 IF L=4 THEN LPRINT SPACE$(69);"PAGE ";P2: GOTO 1520
1500 IF L=5 THEN LPRINT SPC(59) "RUNDATE  ";: GOSUB 1580: GOTO 1520
1510 LPRINT
1520 NEXT L
1530 FF1=LEN(T1$): FF1=40-(INT(FF1)/2): LPRINT SPACE$(FF1);T1$
1540 LPRINT SPC(28) "UNADJUSTED TRIAL BALANCE": LPRINT: LPRINT
1550 LPRINT SPC(5) "ACCOUNT"
1560 LPRINT SPC(5) "NUMBER" SPC(4) "ACCOUNT TITLE" SPC(26) "DEBIT" SPC(10) "CREDIT"
1570 LPRINT: RETURN
1580 LPRINT LEFT$(I8$,2);"/";MID$(I8$,3,2);"/";RIGHT$(I8$,2): RETURN
1590 IF F1=2 THEN GOTO 1640
1600 IF I2# > 999999.99# THEN P1=1: FORMAT3$="###########,.##": GOTO 1680
1610 IF I2# > 999.99# THEN P1=5: FORMAT3$="#######,.##": GOTO 1680
1620 IF I2# > 0.99# THEN P1=10: FORMAT3$="###.##": GOTO 1680
1630 IF I2# < 1# THEN P1=13: FORMAT3$=".##": GOTO 1680
1640 IF I2# > 999999.99# THEN P1=17: FORMAT3$="###########,.##": GOTO 1680
1650 IF I2# > 999.99# THEN P1=21: FORMAT3$="#######,.##": GOTO 1680
1660 IF I2# > 0.99# THEN P1=26: FORMAT3$="###.##": GOTO 1680
1670 IF I2# < 1# THEN P1=29: FORMAT3$=".##"
1680 RETURN
1690 ' ERROR HANDLING ROUTINE.
1700 IF ERR=53 THEN GOTO 1730
1710 IF ERR= 25 OR ERR=27 THEN GOTO 1800
1720 ON ERROR GOTO 0
1730 CLS: LOCATE 10,1
1740 PRINT"GENERAL LEDGER DATA FILES NOT FOUND. PRESS ANY KEY AND YOU WILL BE RETURNED"
1750 PRINT"TO THE DAILY MENU.": GOSUB 1760: GOTO 2250
1760 GOSUB 1850
1770 K$=INKEY$
1780 IF K$="" THEN GOTO 1770
1790 RETURN
1800 CLS: LOCATE 10,2
1810 PRINT"CHECK YOUR PRINTER.  IT IS EITHER NOT TURNED ON OR IT IS OUT OF PAPER."
1820 PRINT"PRESS ANY KEY WHEN YOU ARE READY TO CONTINUE.": GOSUB 1760
1830 CLS: RESUME
1840 ' CLEAR KEYBOARD BUFFER.
1850 DEF SEG=0: POKE 1050, PEEK(1052): RETURN
1860 ' PRINT LAST ACCOUNT AND TOTALS.
1870 WIDTH #2,80
1880 PRINT #2,SPC(45) STRING$(14,"_") SPC(2) STRING$(14,"_")
1890 PRINT #2,
1900 WIDTH #2,255
1910 I2#=C8#: F1=1: GOSUB 1590
1920 PRINT #2,SPC(5) "TOTALS"  SPC(32) SPC(P1);: PRINT #2,USING FORMAT3$;I2#;
1930 I2#=C9#: F1=2: GOSUB 1590: P1=P1-16
1940 PRINT #2,SPC(P1);: PRINT #2,USING FORMAT3$;I2#
1950 WIDTH #2,80
1960 PRINT #2,SPC(45) STRING$(14,"_") SPC(2) STRING$(14,"_")
1970 PRINT #2,SPC(45) STRING$(14,"-") SPC(2) STRING$(14,"-")
1980 CLOSE #2
1990 RETURN
2000 GOSUB 1850: I8$=""
2010 FOR X = 1 TO LENGTH: I8$=I8$ + CHR$(254): NEXT X
2020 LOCATE ROW,COLUMN
2030 PRINT I8$;
2040 POINTER = 1: A$=" "
2050 WHILE (ASC(A$) <> 13)
2060 A$ = INPUT$(1)
2070 IF (POINTER > LENGTH) AND (ASC(A$) = 13) THEN GOTO 2190
2080 IF (POINTER > LENGTH) AND (ASC(A$) = 8) THEN GOTO 2140
2090 IF (POINTER > LENGTH) THEN GOTO 2190
2100 IF (ASC(A$) >= 32) THEN MID$(I8$,POINTER,1) = A$: POINTER = POINTER +1:  GOTO 2170
2110 IF (POINTER = 1) AND (ASC(A$) = 8) THEN GOTO 2170
2120 IF (ASC(A$) <> 8) THEN GOTO 2160
2130 IF MID$(I8$,POINTER,1) = CHR$(254) THEN
2140    MID$(I8$,POINTER-1,1) = CHR$(254)
2150    POINTER = POINTER -1
2160 IF (ASC(A$) = 13) THEN I8$ = MID$(I8$,1,POINTER-1): POINTER = LENGTH + 1
2170 LOCATE ROW,COLUMN
2180 PRINT I8$
2190 WEND
2200 RETURN
2210 F1=0: FOR I = 1 TO LEN(I8$)
2220 IF MID$(I8$,I,1) < "0" OR MID$(I8$,I,1) > "9" THEN F1=1
2230 NEXT I
2240 RETURN
2250 CLOSE: FOR I = 1 TO 10: LPRINT: NEXT I: RUN "DAILY.BAS": END

Directory of PC-SIG Library Disk #0466

 Volume in drive A has no label
 Directory of A:\

ACTDTL   BAS     10186   1-23-89  10:12a
ANALYS   FIL       135   7-08-88  12:23a
APNDX-A  TXT      2491   1-23-89  10:19a
APNDX-B  TXT     17769   1-23-89  10:19a
APNDX-C  TXT      7599   1-23-89  10:19a
APNDX-D  TXT     38245   1-23-89  10:19a
APNDX-E  TXT     54214   1-23-89  10:19a
CHKREG   BAS      9994   1-23-89  10:12a
CHP12-14 TXT     26383   1-23-89  10:20a
DAILY    BAS      3949   1-23-89  10:11a
EXPACTS  FIL        18   1-01-80   1:24a
GENJNL   FIL      4827   6-26-88  12:02a
GENLEG   FIL     32412   1-01-80  12:55a
GENLGR   BAS      9706   1-23-89  10:10a
GLACTS   BAS      6524   1-23-89  10:10a
INVPRO   FIL        23   1-03-80   3:12a
NEWACT   BAS     15537   1-23-89  10:11a
OPNBAL   BAS     17579   1-23-89  10:10a
PANDL    BAS     24552   1-23-89  10:11a
PASACT   FIL        53  10-14-87  12:12a
POST     BAS     17464   1-23-89  10:12a
PSTCLS   BAS      5192   1-23-89  10:12a
READ     ME       4672   1-03-80  12:53a
SELTRA   BAS     12564   1-23-89  10:11a
SETUP    BAS      2717   1-23-89  10:12a
STDACT   FIL       322   1-01-80   1:02a
STOACT   BAS     13735   1-23-89  10:12a
TEST1    FIL         1   1-01-80   1:01a
TEST2    FIL         1   1-01-80  12:36a
TRIBAL   BAS      4247   1-23-89  10:11a
GO       BAT        91   3-14-89   9:24a
       31 file(s)     343202 bytes
                           0 bytes free