home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / friendly / busone.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-25  |  33.5 KB  |  215 lines
  1. 10 KEY OFF:KEY(1) ON:ON KEY(1) GOSUB 400:KEY(10) ON:ON KEY(10) GOSUB 370:GOTO 40
  2. 20 DEF SEG:POKE 106,0:IF INKEY$<>"" THEN 20
  3. 30 R$=INKEY$:IF R$="" THEN 30 ELSE RETURN
  4. 40 CLS:COLOR 3,0:LOCATE 1,1,0:PRINT"╔"STRING$(78,"═")"╗":FOR I=2 TO 10:LOCATE I,1:PRINT"║":LOCATE I,80:PRINT"║":NEXT:LOCATE 11,1:PRINT"╚"STRING$(78,"═")"╝":COLOR 0,7:LOCATE 4,20:PRINT" B U S I N E S S     S I M U L A T I O N ":COLOR 7,0
  5. 50 LOCATE 6,18:PRINT"A WALK THROUGH THE AUTOMATED ACCOUNTING WORLD":LOCATE 8,22:PRINT"-- Another product of FriendlyWare --":COLOR 11,0:LOCATE 22,22:PRINT"***** Strike Any Key To Continue *****":COLOR 7,0:GOSUB 20
  6. 60 GOSUB 230:LOCATE 7,11:PRINT"The purpose of this system is to show you how easily you can keep":PRINT TAB(7)"your books with  an Automated Accounting  System. By automating  your"
  7. 70 PRINT TAB(7)"current bookkeeping procedures, you can save a great deal of time and":PRINT TAB(7)"decrease your probability of an error. You will be able to accurately":PRINT TAB(7)"determine your financial position at the push of a button."
  8. 80 PRINT TAB(11)"During the next few minutes  we will show you the chain of events":PRINT TAB(7)"which follow a simple transaction. This will include the actual start":PRINT TAB(7)"of the transaction to the Post Closing Trial Balance. We will explain"
  9. 90 PRINT TAB(7)"each step as we lead you through this simulation. Please keep in mind":PRINT TAB(7)"that the business and all  transactions you will be  shown are purely":PRINT TAB(7)"fictional."
  10. 100 COLOR 11,0:LOCATE 23,22:PRINT"***** Strike Any Key To Continue *****":COLOR 7,0:GOSUB 20:GOSUB 230
  11. 110 LOCATE 5,14:PRINT"Below is a list of the steps we will take to show you how":PRINT TAB(9)"easily an automated accounting system can be to implement. You":PRINT TAB(9)"will receive an explanation and an example for each step."
  12. 120 LOCATE 10,5:COLOR 11,0:PRINT"I.  ";:COLOR 7,0:PRINT" FLOW OF ACCOUNTING CYCLE":LOCATE 12,5:COLOR 11:PRINT"II. ";:COLOR 7:PRINT" SET UP CHART OF ACCOUNTS":LOCATE 14,5:COLOR 11:PRINT"III.";:COLOR 7:PRINT" TRANSACTION OCCURS"
  13. 130 LOCATE 16,5:COLOR 11:PRINT"IV. ";:COLOR 7:PRINT" POSTING TO JOURNAL":LOCATE 18,5:COLOR 11:PRINT"V.  ";:COLOR 7:PRINT" POSTING TO LEDGER":LOCATE 20,5:COLOR 11:PRINT"VI. ";:COLOR 7:PRINT" TRIAL BALANCE"
  14. 140 LOCATE 10,47:COLOR 11:PRINT"VII. ";:COLOR 7:PRINT" WORKSHEET PREPARED":LOCATE 12,47:COLOR 11:PRINT"VIII.";:COLOR 7:PRINT" FINANCIAL STATEMENTS":LOCATE 14,47:COLOR 11:PRINT"IX.  ";:COLOR 7:PRINT" ADJUSTING ENTRIES"
  15. 150 LOCATE 16,47:COLOR 11:PRINT"X.   ";:COLOR 7:PRINT" CLOSING ENTRIES":LOCATE 18,47:COLOR 11:PRINT"XI.  ";:COLOR 7:PRINT" POST CLOSING TRIAL BALANCE":LOCATE 20,47:COLOR 11:PRINT"XII. ";:COLOR 7:PRINT" RECAP AND OVERVIEW"
  16. 160 COLOR 11,0:LOCATE 24,23:PRINT"***** Strike Any Key To Start *****";:COLOR 7,0:GOSUB 20
  17. 170 ON KEY(1) GOSUB 400:GOSUB 230:COLOR 15,0:LOCATE 4,25:PRINT"STEP I. FLOW OF ACCOUNTING CYCLE":PRINT TAB(25)STRING$(32,"-"):COLOR 7:COLOR 11,0:LOCATE 23,22:PRINT"***** Strike Any Key To Continue *****":COLOR 7,0:COLOR 15,0:GOSUB 270:GOSUB 20
  18. 180 GOSUB 270:COLOR 15,0:GOSUB 280:GOSUB 20:GOSUB 280:COLOR 15,0:GOSUB 290:GOSUB 20:GOSUB 290:COLOR 15,0:GOSUB 300:GOSUB 20:GOSUB 300:COLOR 15,0:GOSUB 310:GOSUB 20:GOSUB 310:COLOR 15,0:GOSUB 320:GOSUB 20:GOSUB 320:COLOR 15,0:GOSUB 330:GOSUB 20
  19. 190 GOSUB 330:COLOR 15,0:GOSUB 340:GOSUB 20:GOSUB 340:COLOR 15,0:GOSUB 350:GOSUB 20:GOSUB 350:COLOR 15,0:GOSUB 360:GOSUB 20:GOTO 520
  20. 200 PRINT"╔"STRING$(13,"═")"╗":RETURN
  21. 210 PRINT"╚"STRING$(13,"═")"╝":COLOR 3,0:RETURN
  22. 220 LOCATE 7,11:PRINT"╔══════════╦════╦══════════════════════╦═════════╦═════════╗":PRINT TAB(11)"║   DATE   ║ACCT║     ACCOUNT NAME     ║  DEBIT  ║ CREDIT  ║":PRINT TAB(11)"╠══════════╬════╬══════════════════════╬═════════╬═════════╣":RETURN
  23. 230 CLS:COLOR 0,7:PRINT" F1  ";:COLOR 7,0:PRINT" Prev.Sec.":COLOR 11,0:LOCATE 1,19:PRINT"┌"STRING$(43,"─")"┐":LOCATE 2,19:PRINT"│"SPC(43)"│":LOCATE 3,19:PRINT"└"STRING$(43,"─")"┘"
  24. 240 'LOCATE 2,70:COLOR 0,7:PRINT" F1 ";:COLOR 7,0:PRINT" Prev.":LOCATE 3,75:PRINT "page"
  25. 250 LOCATE 3,1:COLOR 0,7:PRINT" F10 ";:COLOR 7,0:PRINT" To Menu"
  26. 260 COLOR 0,7:LOCATE 2,22:PRINT" B U S I N E S S   S I M U L A T I O N ":COLOR 7,0:RETURN
  27. 270 LOCATE 7,1:PRINT"──>":LOCATE 6,5:GOSUB 200:LOCATE 7,5:PRINT"║ SET UP CHART║":LOCATE 8,5:PRINT"║ OF ACCOUNTS ║":LOCATE 9,5:GOTO 210
  28. 280 LOCATE 7,21:PRINT"──>":LOCATE 6,25:GOSUB 200:LOCATE 7,25:PRINT"║ TRANSACTION ║":LOCATE 8,25:PRINT"║   OCCURS    ║":LOCATE 9,25:GOTO 210
  29. 290 LOCATE 7,41:PRINT"──>":LOCATE 6,45:GOSUB 200:LOCATE 7,45:PRINT"║  POSTED TO  ║":LOCATE 8,45:PRINT"║   JOURNAL   ║":LOCATE 9,45:GOTO 210
  30. 300 LOCATE 7,61:PRINT"──>":LOCATE 6,65:GOSUB 200:LOCATE 7,65:PRINT"║  POSTED TO  ║":LOCATE 8,65:PRINT"║   LEDGERS   ║":LOCATE 9,65:GOTO 210
  31. 310 LOCATE 10,72:PRINT"│":LOCATE 11,72:PRINT"V":LOCATE 12,65:GOSUB 200:LOCATE 13,65:PRINT"║    TRIAL    ║":LOCATE 14,65:PRINT"║   BALANCE   ║":LOCATE 15,65:GOTO 210
  32. 320 LOCATE 13,61:PRINT"<──":LOCATE 12,45:GOSUB 200:LOCATE 13,45:PRINT"║  WORKSHEET  ║":LOCATE 14,45:PRINT"║   PREPARED  ║":LOCATE 15,45:GOTO 210
  33. 330 LOCATE 13,41:PRINT"<──":LOCATE 12,25:GOSUB 200:LOCATE 13,25:PRINT"║  FINANCIAL  ║":LOCATE 14,25:PRINT"║ STATEMENTS  ║":LOCATE 15,25:GOTO 210
  34. 340 LOCATE 13,21:PRINT"<──":LOCATE 12,5:GOSUB 200:LOCATE 13,5:PRINT"║  ADJUSTING  ║":LOCATE 14,5:PRINT"║   ENTRIES   ║":LOCATE 15,5:GOTO 210
  35. 350 LOCATE 16,12:PRINT"│":LOCATE 17,12:PRINT"V":LOCATE 18,5:GOSUB 200:LOCATE 19,5:PRINT"║   CLOSING   ║":LOCATE 20,5:PRINT"║   ENTRIES   ║":LOCATE 21,5:GOTO 210
  36. 360 LOCATE 19,21:PRINT"──>":LOCATE 18,25:GOSUB 200:LOCATE 19,25:PRINT"║ POST CLOSING║":LOCATE 20,25:PRINT"║TRIAL BALANCE║":LOCATE 21,25:GOTO 210
  37. 370 CLEAR:ON ERROR GOTO 380:RUN"menu3"
  38. 380 CLEAR:ON ERROR GOTO 390:RUN"menu1"
  39. 390 RUN"menu2"
  40. 400 RETURN 40
  41. 410 RETURN 170
  42. 420 RETURN 520
  43. 430 RETURN 660
  44. 440 RETURN 670
  45. 450 RETURN 680
  46. 460 RETURN 970
  47. 470 RETURN 1060
  48. 480 RETURN 1250
  49. 490 RETURN 1510
  50. 500 RETURN 1680
  51. 510 RETURN 1930
  52. 520 ON KEY(1) GOSUB 410:GOSUB 650
  53. 530 PRINT TAB(17)"The first thing that must be done in automating your":PRINT TAB(12)"bookkeeping procedures is the setting up of your chart of":PRINT TAB(12)"accounts. In order to do this you must determine the type"
  54. 540 PRINT TAB(12)"of transactions you will be making daily.  Can a customer":PRINT TAB(12)"charge his bill?  Do you always pay for your purchases in":PRINT TAB(12)"cash or do you sometimes charge them? Is your income from"
  55. 550 PRINT TAB(12)"sales or service?":PRINT TAB(17)"These are the questions you must ask  yourself.  The":PRINT TAB(12)"level of detail to which you break down  your accounts is":PRINT TAB(12)"your decision.  You can make them as simple or as complex"
  56. 560 PRINT TAB(12)"as you desire.":PRINT TAB(17)"Some examples of accounts are ";:COLOR 11,0:PRINT"CASH, ACCOUNTS PAYABLE":PRINT TAB(12)"ACCOUNTS RECEIVABLE , RENT EXPENSE , SUPPLIES EXPENSE AND":PRINT TAB(12)"REVENUE FROM SALES.":COLOR 7,0
  57. 570 COLOR 11,0:LOCATE 24,19,0:PRINT"***** Strike Any Key To Set Up Accounts *****";:GOSUB 20
  58. 580 GOSUB 650:LOCATE 7,1:PRINT TAB(8)"On the 1st of June,  Homer Jones opened up the ABC Hardware Company.":PRINT TAB(5)"Below is a list of all the accounts he set up, along with the beginning"
  59. 590 PRINT TAB(5)"balances.  These are the only accounts that we will be using during our":PRINT TAB(5)"business walk through.":PRINT:COLOR 11,0
  60. 600 PRINT TAB(9)"ACCOUNT NO     ACCOUNT NAME"SPC(12)"BALANCE      ACCOUNT TYPE":PRINT TAB(9)STRING$(10,"-")"   "STRING$(20,"-")"      --------      "STRING$(12,"-"):COLOR 7,0
  61. 610 PRINT TAB(13)"11       Cash                        $8000        Asset":PRINT TAB(13)"12       Accounts Receivable            $0        Asset":PRINT TAB(13)"14       Supplies                    $6700        Asset"
  62. 620 PRINT TAB(13)"21       Accounts Payable               $0        Liability":PRINT TAB(13)"31       Homer Jones, Capital       $14700        Capital":PRINT TAB(13)"32       Homer Jones, Drawing           $0        Capital"
  63. 630 PRINT TAB(13)"41       Sales                          $0        Revenue":PRINT TAB(13)"51       Salary Expense                 $0        Expense":PRINT TAB(13)"52       Supplies Expense               $0        Expense"
  64. 640 COLOR 11,0:LOCATE 24,17:PRINT"***** Strike Any Key To Start Transactions *****";:COLOR 7,0:GOSUB 20:GOTO 660
  65. 650 GOSUB 230:COLOR 11,0:LOCATE 5,24:PRINT"STEP II. SET UP CHART OF ACCOUNTS":PRINT TAB(24)STRING$(33,"-"):COLOR 7,0:RETURN
  66. 660 ON KEY(1) GOSUB 420:GOSUB 230:GOSUB 690:GOSUB 720
  67. 670 ON KEY(1) GOSUB 430:GOSUB 230:GOSUB 700:GOSUB 740:GOSUB 230:GOSUB 700:GOSUB 780
  68. 680 ON KEY(1) GOSUB 440:GOSUB 230:GOSUB 710:GOSUB 830:GOSUB 230:GOSUB 710:GOSUB 870:GOTO 970
  69. 690 COLOR 11,0:LOCATE 5,26:PRINT"STEP III. TRANSACTIONS OCCUR":PRINT TAB(26)STRING$(28,"-"):LOCATE 23,16:PRINT"***** Strike Any Key To Post To The Journal *****":COLOR 7,0:RETURN
  70. 700 COLOR 11,0:LOCATE 5,26:PRINT" STEP IV. POSTING TO JOURNAL":PRINT TAB(26)" "STRING$(27,"-"):COLOR 7,0:RETURN
  71. 710 COLOR 11,0:LOCATE 4,27:PRINT"STEP V. POSTING TO LEDGERS ":COLOR 7,0:RETURN
  72. 720 LOCATE 8,20:PRINT"On the 3rd day of June, Homer purchased $1500":PRINT TAB(15)"worth of hardware from his supplier.  He paid $500":PRINT TAB(15)"of the  bill in cash and put the  remaining amount"
  73. 730 PRINT TAB(15)"of the bill on his account,  to be paid in full no":PRINT TAB(15)"later than the end of the month.":GOTO 20
  74. 740 LOCATE 7,18:PRINT"The first thing that must be done after a business":PRINT TAB(13)"transaction occurs is the posting to the journals. This":PRINT TAB(13)"should be done as soon as possible. For this simulation"
  75. 750 PRINT TAB(13)"we will be using a double entry system. This means that":PRINT TAB(13)"for every debit that is posted,  a credit entry must be":PRINT TAB(13)"made.  There can be several different accounts involved"
  76. 760 PRINT TAB(13)"in a single transaction.":PRINT TAB(18)"The first entry in the journal for any transaction":PRINT TAB(13)"should have the date it occured. All journal entries in"
  77. 770 PRINT TAB(13)"the transaction must have account number, account name,":PRINT TAB(13)"and either debit or credit amount.":COLOR 11,0:LOCATE 23,16:PRINT"***** Strike Any Key To Post To The Journal *****":COLOR 7,0:GOTO 20
  78. 780 GOSUB 220:PRINT TAB(11)"║ 06/03/82 ║ 14 ║ SUPPLIES             ║ 1500.00 ║         ║":PRINT TAB(11)"║          ║ 11 ║   CASH               ║         ║  500.00 ║":PRINT TAB(11)"║          ║ 21 ║   ACCOUNTS PAYABLE   ║         ║ 1000.00 ║"
  79. 790 PRINT TAB(11)"║          ║    ║     PURCHASED GOODS  ║         ║         ║":PRINT TAB(11)"║          ║    ║                      ║         ║         ║":PRINT TAB(11)"║          ║    ║                      ║         ║         ║"
  80. 800 PRINT TAB(11)"║          ║    ║                      ║         ║         ║":PRINT TAB(11)"╚══════════╩════╩══════════════════════╩═════════╩═════════╝"
  81. 810 PRINT:COLOR 11,0:PRINT TAB(11)"Explanation :";:COLOR 7,0:PRINT TAB(24)" 1) The debit to supplies will increase it.":PRINT TAB(24)" 2) The credit to cash will decrease it.":PRINT TAB(24)" 3) The credit to accounts payable will increase it."
  82. 820 COLOR 11,0:LOCATE 23,16:PRINT"***** Strike Any Key To Post To The Ledger *****":COLOR 7,0:GOTO 20
  83. 830 COLOR 15,0:LOCATE 5,27:PRINT STRING$(26,"-")" ":COLOR 7,0:LOCATE 7,18:PRINT"After you have made your journal entries, you must":PRINT TAB(13)"next transfer these entries, one at a time, to separate"
  84. 840 PRINT TAB(13)"ledgers. The purpose of the ledgers is to summarize all":PRINT TAB(13)"of the activity against any account for a  given period":PRINT TAB(13)"of time. Each account that is set up will have a ledger"
  85. 850 PRINT TAB(13)"of its own.  This ledger will contain every transaction":PRINT TAB(13)"concerning this account and the amount.  The balance of":PRINT TAB(13)"the account before and after  the transaction occurs is"
  86. 860 PRINT TAB(13)"also recorded.":COLOR 11,0:LOCATE 23,16:PRINT"***** Strike Any Key To Post To The Ledger *****":COLOR 7,0:GOTO 20
  87. 870 LOCATE 5,1:COLOR 11,0:PRINT"Supp";:COLOR 7,0:GOSUB 940:AA$="╚══════════╩══════════════════════╩═════════╩═════════╩═════════╩═════════╝"
  88. 880 PRINT TAB(5)"║ 06/01/82 ║ BALANCE              ║ 6700.00 ║         ║ 6700.00 ║         ║":PRINT TAB(5)"║ 06/03/82 ║ PURCHASE OF GOODS    ║ 1500.00 ║         ║ 8200.00 ║         ║":PRINT TAB(5)AA$
  89. 890 LOCATE 12,1:COLOR 11,0:PRINT"Cash";:COLOR 7,0:GOSUB 940
  90. 900 PRINT TAB(5)"║ 06/01/82 ║ BALANCE              ║ 8000.00 ║         ║ 8000.00 ║         ║":PRINT TAB(5)"║ 06/03/82 ║ PURCHASE OF GOODS    ║         ║  500.00 ║ 7500.00 ║         ║":PRINT TAB(5)AA$
  91. 910 LOCATE 19,1:COLOR 11,0:PRINT"Acct":PRINT"Pay.":COLOR 7,0:LOCATE 19,5:GOSUB 940
  92. 920 PRINT TAB(5)"║ 06/01/82 ║ BALANCE              ║         ║    0.00 ║         ║    0.00 ║":PRINT TAB(5)"║ 06/03/82 ║ PURCHASE OF GOODS    ║         ║ 1000.00 ║         ║ 1000.00 ║":PRINT TAB(5)AA$;
  93. 930 COLOR 11,0:LOCATE 25,16:PRINT"***** Strike Any Key For The Trial Balance *****       ";:COLOR 7,0:GOTO 20
  94. 940 LOCATE ,5:PRINT"╔══════════╦"STRING$(22,"═")"╦═════════╦═════════╦═════════╦═════════╗":LOCATE ,5:PRINT"║   DATE   ║         ITEM         ║  DEBIT  ║ CREDIT  ║ BAL DBT ║ BAL CRD ║"
  95. 950 LOCATE ,5:PRINT"╠══════════╬"STRING$(22,"═")"╬═════════╬═════════╬═════════╬═════════╣":RETURN
  96. 960 GOSUB 230:COLOR 11,0:LOCATE 4,30:PRINT"STEP VI. TRIAL BALANCE":PRINT TAB(30)STRING$(22,"-"):COLOR 7,0:RETURN
  97. 970 ON KEY(1) GOSUB 450:GOSUB 960:LOCATE 7,18:PRINT"The purpose of the trial balance is not to provide":PRINT TAB(13)"complete proof of accuracy,  but instead to insure that":PRINT TAB(13)"the debits and the credits are equal. An addition error"
  98. 980 PRINT TAB(13)"will show up but an error such as posting a transaction":PRINT TAB(13)"twice or failing to post it all together or posting one":PRINT TAB(13)"to the wrong accounts will not be detected on the Trial":PRINT TAB(13)"Balance."
  99. 990 COLOR 11,0:LOCATE 23,16:PRINT"***** Strike Any Key For The Trial Balance *****":COLOR 7,0:GOSUB 20:GOSUB 960:LOCATE 7,8
  100. 1000 PRINT TAB(8)"╔══════╦"STRING$(30,"═")"╦"STRING$(23,"═")"╗":PRINT TAB(8)"║ ACCT ║         ACCOUNT NAME         ║     TRIAL BALANCE     ║":PRINT TAB(8)"║      ║"SPC(30)"║   DEBIT       CREDIT  ║"
  101. 1010 PRINT TAB(8)"╠══════╬"STRING$(30,"═")"╬═══════════╦═══════════╣":PRINT TAB(8)"║  11  ║   CASH                       ║ 14,240.00 ║           ║":PRINT TAB(8)"║  12  ║   ACCOUNTS RECEIVABLE        ║  1,695.00 ║           ║"
  102. 1020 PRINT TAB(8)"║  14  ║   SUPPLIES                   ║  5,655.00 ║           ║":PRINT TAB(8)"║  21  ║   ACCOUNTS PAYABLE           ║           ║  3,500.00 ║":PRINT TAB(8)"║  31  ║   OWNER CAPITAL              ║           ║ 14,700.00 ║"
  103. 1030 PRINT TAB(8)"║  32  ║   OWNER CAPITAL, WITHDRAWAL  ║    860.00 ║           ║":PRINT TAB(8)"║  41  ║   SALES                      ║           ║ 12,045.00 ║":PRINT TAB(8)"║  51  ║   SALARY EXPENSE             ║  1,750.00 ║           ║"
  104. 1040 PRINT TAB(8)"║  52  ║   SUPPLIES EXPENSE           ║  6,045.00 ║           ║":PRINT TAB(8)"║      ║                              ╟───────────╫───────────╢":PRINT TAB(8)"║      ║"SPC(30)"║  30245.00 ║  30245.00 ║"
  105. 1050 PRINT TAB(8)"╚══════╩"STRING$(30,"═")"╩═══════════╩═══════════╝":COLOR 11,0:LOCATE 23,15:PRINT"***** Strike Any Key To Prepare The Worksheet *****":COLOR 7,0:GOSUB 20
  106. 1060 ON KEY(1) GOSUB 460:GOSUB 1120:GOSUB 1070:NO=1:GOSUB 1120:GOSUB 1140:GOTO 1250
  107. 1070 LOCATE 7,20:PRINT"The WORKSHEET is a particular type of working":PRINT TAB(16)"paper employed by accountants as a preliminary to":PRINT TAB(16)"the preparation of financial statements.  Its use"
  108. 1080 PRINT TAB(16)"reduces the possibility of overlooking a need for":PRINT TAB(16)"an adjustment, will provide a convenient means of":PRINT TAB(16)"verifying arithmetical accuracy, and provides for"
  109. 1090 PRINT TAB(16)"the arrangement of data in a logical form.":PRINT TAB(20)"A standard WORKSHEET has a column for account":PRINT TAB(16)"titles and eight money columns,  arranged in four"
  110. 1100 PRINT TAB(16)"pairs of debit and credit columns.  The principal":PRINT TAB(16)"headings of the four sets of columns are;":COLOR 11,0:PRINT:PRINT TAB(18)"1) Trial balance          3) Income Statement"
  111. 1110 PRINT TAB(18)"2) Adjustments            4) Balance Sheet":LOCATE 25,18:PRINT"***** Strike Any Key For The Worksheet *****";:COLOR 7,0:GOTO 20
  112. 1120 GOSUB 230:COLOR 11,0:LOCATE 4,27:PRINT"STEP VII. WORKSHEET PREPARED ":COLOR 7,0:IF NO=0 THEN COLOR 11,0:LOCATE 5,27:PRINT STRING$(28,"-"):COLOR 7,0
  113. 1130 RETURN
  114. 1140 LOCATE 5,1:PRINT"╔══╦══════════════════╦═════════════╦═════════════╦═════════════╦═════════════╗":PRINT"║  ║  ACCOUNT NAME    ║TRIAL BALANCE║ ADJUSTMENTS ║  INCOME ST  ║BALANCE SHEET║"
  115. 1150 PRINT"║  ║                  ║ DEB     CRD ║ DEB     CRD ║ DEB     CRD ║ DEB     CRD ║":PRINT"╠══╬══════════════════╬══════╤══════╬══════╤══════╬══════╤══════╬══════╤══════╣"
  116. 1160 PRINT"║11║ CASH             ║14,240│      ║      │ 1,750║      │      ║12,490│      ║":PRINT"║12║ ACCOUNTS REC.    ║ 1,695│      ║      │      ║      │      ║ 1,695│      ║"
  117. 1170 PRINT"║14║ SUPPLIES         ║ 5,655│      ║      │      ║      │      ║ 5,655│      ║":PRINT"║21║ ACCOUNTS PAYABLE ║      │ 3,500║      │      ║      │      ║      │ 3,500║"
  118. 1180 PRINT"║31║ OWNER CAPITAL    ║      │14,700║      │      ║      │      ║      │14,700║":PRINT"║32║ OWNER WITHDRAWAL ║   860│      ║      │      ║      │      ║   860│      ║"
  119. 1190 PRINT"║41║ SALES            ║      │12,045║      │      ║      │12,045║      │      ║":PRINT"║51║ SALARY EXPENSE   ║ 1,750│      ║ 1,750│      ║ 3,500│      ║      │      ║"
  120. 1200 PRINT"║52║ SUPPLIES EXPENSE ║ 6,045│      ║      │      ║ 6,045│      ║      │      ║":PRINT"║  ║                  ╟──────┼──────╢      │      ║      │      ║      │      ║"
  121. 1210 PRINT"║  ║                  ║30,245│30,245╟──────┼──────╫──────┼──────╫──────┼──────╢":PRINT"║  ║                  ╠══════╪══════╣ 1,750│ 1,750║ 9,545│12,045║20,700│18,200║"
  122. 1220 PRINT"║  ║ NET INCOME       ║      │      ╠══════╪══════╣ 2,500│      ║      │ 2,500║":PRINT"║  ║                  ║      │      ║      │      ╟──────┼──────╫──────┼──────╢"
  123. 1230 LOCATE 23,1:PRINT"║  ║                  ║      │      ║      │      ║12,045│12,045║20,700│20,700║";:LOCATE 24,1:PRINT"╚══╩══════════════════╩══════╧══════╩══════╧══════╩══════╧══════╩══════╧══════╝";
  124. 1240 COLOR 11,0:LOCATE 25,15:PRINT"***** Strike Any Key For Financial Statements *****";:COLOR 7,0:GOTO 20
  125. 1250 ON KEY(1) GOSUB 470:GOSUB 1260:GOSUB 1280:GOSUB 1260:GOSUB 1270:GOSUB 1310:GOSUB 1260:GOSUB 1350:GOSUB 1260:GOSUB 1270:GOSUB 1380:GOSUB 1260:GOSUB 1420:GOSUB 1260:GOSUB 1270:GOSUB 1450:GOTO 1510
  126. 1260 GOSUB 230:COLOR 11,0:LOCATE 4,26:PRINT"STEP VIII. FINANCIAL STATEMENTS":COLOR 7,0:RETURN
  127. 1270 LOCATE 5,6:PRINT "╔"STRING$(68,"═")"╗":FOR I=6 TO 23:LOCATE I,6:PRINT"║":LOCATE I,75:PRINT"║";:NEXT:LOCATE 24,6:PRINT "╚"STRING$(68,"═")"╝";:RETURN
  128. 1280 COLOR 11,0:LOCATE 5,26:PRINT STRING$(31,"-"):COLOR 7,0:LOCATE 7,19:PRINT"The purpose of an Income Statement is to reflect":PRINT TAB(15)"the net income amount for a given accounting period."
  129. 1290 PRINT TAB(15)"This is done by simply subtracting the total revenue":PRINT TAB(15)"for the period from the sum of all expenses incurred.":PRINT TAB(15)"The net income determined on the Income Statement is"
  130. 1300 PRINT TAB(15)"carried over to the Capital Statement.":COLOR 11,0:LOCATE 25,17:PRINT"***** Strike Any Key For Income Statement *****";:COLOR 7,0:GOTO 20
  131. 1310 COLOR 11,0:LOCATE 6,35:PRINT"ABC Hardware":LOCATE 7,33:PRINT"Income Statement":LOCATE 8,26:PRINT"For Month Ended June 30 , 1982":COLOR 7,0
  132. 1320 LOCATE 9,6:PRINT "╟"STRING$(68,"─")"╢":LOCATE 10,8:PRINT"Sales . . . . . . . . . . . . . . . . . . . .           $12,045.00":LOCATE 12,8:PRINT"Operating expenses :":LOCATE 13,10:PRINT"Salary expense  . . . . . . . . . . . . . .  $3,500.00"
  133. 1330 LOCATE 14,10:PRINT"Supplies expense  . . . . . . . . . . . . .  $6,045.00":LOCATE 15,54:PRINT STRING$(10,"─"):LOCATE 16,12:PRINT"Total operating expenses  . . . . . . . .            $9,545.00":LOCATE 17,64:PRINT STRING$(10,"─")
  134. 1340 LOCATE 19,8:PRINT"Net income  . . . . . . . . . . . . . . . . .            $2,500.00":LOCATE 20,64:PRINT STRING$(10,"═"):COLOR 11,0:LOCATE 25,17:PRINT"***** Strike Any Key For Capital Statement *****";:COLOR 7,0:GOTO 20
  135. 1350 COLOR 11,0:LOCATE 5,26:PRINT STRING$(31,"-"):COLOR 7,0:LOCATE 7,19:PRINT"The purpose of a Capital Statement is to reflect":PRINT TAB(14)"the changes in capital of a business entity that have"
  136. 1360 PRINT TAB(14)"occured during any accounting period. This is done by":PRINT TAB(14)"taking the Beginning Capital,  adding the net income,":PRINT TAB(14)"and subtracting out any withdrawals that have occured"
  137. 1370 PRINT TAB(14)"resulting in an Ending Capital amount. This amount is":PRINT TAB(14)"carried over to the Balance Sheet.":COLOR 11,0:LOCATE 25,17:PRINT"***** Strike Any Key For Capital Statement *****";:COLOR 7,0:GOTO 20
  138. 1380 COLOR 11,0:LOCATE 6,35:PRINT"ABC Hardware":LOCATE 7,33:PRINT"Capital Statement":LOCATE 8,26:PRINT"For Month Ended June 30 , 1982":COLOR 7,0:LOCATE 9,6:PRINT "╟"STRING$(68,"─")"╢"
  139. 1390 LOCATE 10,8:PRINT"Capital , June 1, 1982  . . . . . . . . . . .           $14,700.00":LOCATE 11,8:PRINT"Net income for the month. . . . . . . . . . .  $2,500.00":LOCATE 12,8:PRINT"Less withdrawals  . . . . . . . . . . . . . .    $860.00"
  140. 1400 LOCATE 13,7:PRINT SPC(50):LOCATE 13,54:PRINT STRING$(10,"─"):LOCATE 14,8:PRINT"Increase in capital . . . . . . . . . . . . .            $1,640.00":LOCATE 15,7:PRINT SPC(60):LOCATE 15,64:PRINT STRING$(10,"─")
  141. 1410 LOCATE 16,8:PRINT"Capital , June 30, 1982 . . . . . . . . . . .           $16,340.00":LOCATE 17,7:PRINT SPC(60):LOCATE 17,64:PRINT STRING$(10,"═"):COLOR 11,0:LOCATE 25,18:PRINT"***** Strike Any Key For Balance Sheet *****";:COLOR 7,0:GOTO 20
  142. 1420 COLOR 11,0:LOCATE 5,26:PRINT STRING$(31,"-"):COLOR 7,0:LOCATE 7,19:PRINT"The purpose of a Balance Sheet is to give a list":PRINT TAB(15)"of assets , liabilities , and capital for a business"
  143. 1430 PRINT TAB(15)"entity as of a specific date,  usually at the end of":PRINT TAB(15)"the month. This document will also serve the purpose":PRINT TAB(15)"of insuring that the sum of all liabilities plus the"
  144. 1440 PRINT TAB(15)"owners capital is equal the sum of all assets.":COLOR 11,0:LOCATE 25,18:PRINT"***** Strike Any Key For Balance Sheet *****";:COLOR 7,0:GOTO 20
  145. 1450 COLOR 11,0:LOCATE 6,35:PRINT"ABC Hardware":LOCATE 7,35:PRINT"Balance Sheet":LOCATE 8,26:PRINT"For Month Ended June 30 , 1982":COLOR 7,0:LOCATE 9,6:PRINT "╟"STRING$(68,"─")"╢"
  146. 1460 LOCATE 10,20:PRINT"Assets":LOCATE 11,8:PRINT"Current assets:":LOCATE 12,10:PRINT"Cash  . . . . . . . . . . . . . . . . . . . $12,490.00":LOCATE 13,10:PRINT"Accounts receivable . . . . . . . . . . . .  $1,695.00"
  147. 1470 LOCATE 14,10:PRINT"Supplies  . . . . . . . . . . . . . . . . .  $5,655.00":LOCATE 15,8:PRINT"Total assets":LOCATE 15,54:PRINT STRING$(10,"─"):LOCATE 15,64:PRINT"$19,840.00":LOCATE 16,64:PRINT STRING$(10,"═")
  148. 1480 LOCATE 17,20:PRINT"Liabilities":LOCATE 18,8:PRINT"Accounts payable  . . . . . . . . . . . . . .  $3,500.00":LOCATE 19,8:PRINT"Total liabilities":LOCATE 19,54:PRINT STRING$(10,"─"):LOCATE 19,64:PRINT" $3,500.00"
  149. 1490 LOCATE 20,20:PRINT"Capital":LOCATE 21,8:PRINT"Homer Jones, capital  . . . . . . . . . . . .           $16,340.00":LOCATE 22,64:PRINT STRING$(10,"─"):LOCATE 23,8:PRINT"Total liabilities and capital . . . . . . . .           $19,840.00"
  150. 1500 COLOR 11,0:LOCATE 25,17:PRINT"***** Strike Any Key For Adjusting Entries *****";:COLOR 7,0:GOTO 20
  151. 1510 ON KEY(1) GOSUB 480:GOSUB 1560:GOSUB 1570:GOSUB 1560:GOSUB 1610:GOSUB 1560:GOSUB 1640:GOTO 1680
  152. 1520 LOCATE ,5:PRINT"╔══════════╦══════════════════════╦═════════╦═════════╦═════════╦═════════╗":LOCATE ,5:PRINT"║   DATE   ║         ITEM         ║  DEBIT  ║ CREDIT  ║ BAL DBT ║ BAL CRD ║"
  153. 1530 LOCATE ,5:PRINT"╠══════════╬══════════════════════╬═════════╬═════════╬═════════╬═════════╣":RETURN
  154. 1540 PRINT TAB(11)"║          ║    ║                      ║         ║         ║":PRINT TAB(11)"║          ║    ║                      ║         ║         ║":PRINT TAB(11)"║          ║    ║                      ║         ║         ║"
  155. 1550 PRINT TAB(11)"╚══════════╩════╩══════════════════════╩═════════╩═════════╝":AA$="╚══════════╩══════════════════════╩═════════╩═════════╩═════════╩═════════╝":RETURN
  156. 1560 GOSUB 230:COLOR 11,0:LOCATE 5,27:PRINT"STEP IX. ADJUSTING ENTRIES":PRINT TAB(27)STRING$(26,"-"):COLOR 7,0:RETURN
  157. 1570 LOCATE 7,19:PRINT"At the end of the accounting period the adjusting":PRINT TAB(14)"entries appearing in the worksheet are recorded in the":PRINT TAB(14)"journal and posted to the ledger,  bringing the ledger"
  158. 1580 PRINT TAB(14)"into agreement with the data reported on the financial":PRINT TAB(14)"statements.  The adjusting entries are dated as of the":PRINT TAB(14)"last day of the accounting cycle, even though they are"
  159. 1590 PRINT TAB(14)"usually recorded at a later date.":PRINT TAB(19)"In this simulation our adjusting entry dealt with":PRINT TAB(14)"the salary expense and cash accounts.  This was due to"
  160. 1600 PRINT TAB(14)"a mistake in payroll which went undetected until after":PRINT TAB(14)"the cutoff date for closing the books.":COLOR 11,0:LOCATE 23,16:PRINT"***** Strike Any Key To Post To The Journal *****":COLOR 7,0:GOTO 20
  161. 1610 GOSUB 220:PRINT TAB(11)"║ 06/30/82 ║ 51 ║ SALARY EXPENSE       ║ 1750.00 ║         ║":PRINT TAB(11)"║          ║ 11 ║   CASH               ║         ║ 1750.00 ║":PRINT TAB(11)"║          ║    ║     PAID EMPLOYEES   ║         ║         ║"
  162. 1620 GOSUB 1540:COLOR 11,0:PRINT TAB(10)"Explanation :";:COLOR 7,0:PRINT" 1) The debit to salary expense will increase it."
  163. 1630 PRINT TAB(23)" 2) The credit to cash will decrease it.":COLOR 11,0:LOCATE 23,16:PRINT"***** Strike Any Key To Post To The Ledger *****":COLOR 7,0:GOTO 20
  164. 1640 LOCATE 7:GOSUB 1520:COLOR 11,0:PRINT"Sal.";:COLOR 7,0:PRINT TAB(5)"║ 06/30/82 ║ BALANCE              ║         ║         ║ 1750.00 ║         ║":PRINT TAB(5)"║ 06/30/82 ║ PAYROLL ADJUSTMENT   ║ 1750.00 ║         ║ 3500.00 ║         ║"
  165. 1650 PRINT TAB(5)AA$:LOCATE 15:GOSUB 1520:COLOR 11,0:PRINT"Cash";:COLOR 7,0
  166. 1660 PRINT TAB(5)"║ 06/30/82 ║ BALANCE              ║         ║         ║14240.00 ║         ║":PRINT TAB(5)"║ 06/30/82 ║ PAYROLL ADJUSTMENT   ║         ║ 1750.00 ║12490.00 ║         ║":PRINT TAB(5)AA$;
  167. 1670 COLOR 11,0:LOCATE 25,17:PRINT"***** Strike Any Key For Closing Entries *****       ";:COLOR 7,0:GOTO 20
  168. 1680 ON KEY(1) GOSUB 490:GOSUB 1690:GOSUB 1720:GOSUB 1690:GOSUB 1760:GOSUB 1690:GOSUB 1800:NO$="N":GOSUB 1690:GOSUB 1860:GOTO 1930
  169. 1690 GOSUB 230:COLOR 11,0:LOCATE 4,29:PRINT"STEP X. CLOSING ENTRIES":COLOR 7,0:IF NO$<>"N" THEN COLOR 11,0:PRINT TAB(29)"-----------------------":COLOR 7,0
  170. 1700 AA$="╚══════════╩══════════════════════╩═════════╩═════════╩═════════╩═════════╝"
  171. 1710 RETURN
  172. 1720 LOCATE 7,18:PRINT"The revenue, expense and drawing accounts are only":PRINT TAB(14)"temporary accounts which are used to classify and sum-":PRINT TAB(14)"marize changes in capital during the accounting period."
  173. 1730 PRINT TAB(14)"At the end of the period the net effect of the balance":PRINT TAB(14)"in these  accounts is recorded in a permanent account.":PRINT TAB(14)"The balances must also be removed so that they will be"
  174. 1740 PRINT TAB(14)"ready for use in the  accumulation of data in the next":PRINT TAB(14)"accounting period. This is accomplished by a series of":PRINT TAB(14)"entries called CLOSING ENTRIES."
  175. 1750 COLOR 11,0:LOCATE 23,16:PRINT"***** Strike Any Key To Post To The Journal *****":COLOR 7,0:GOTO 20
  176. 1760 LOCATE 7:GOSUB 220:PRINT TAB(11)"║ 06/30/82 ║ 41 ║ SALES                ║ 12045.00║         ║":PRINT TAB(11)"║          ║ 31 ║    OWNER CAPITAL     ║         ║ 12045.00║"
  177. 1770 PRINT TAB(11)"║          ║    ║                      ║         ║         ║":PRINT TAB(11)"║          ║ 31 ║ OWNER CAPITAL        ║  9545.00║         ║":PRINT TAB(11)"║          ║ 51 ║    SALARY EXPENSE    ║         ║  3500.00║"
  178. 1780 PRINT TAB(11)"║          ║ 52 ║    SUPPLIES EXPENSE  ║         ║  6045.00║":PRINT TAB(11)"║          ║    ║                      ║         ║         ║":PRINT TAB(11)"║          ║ 31 ║ OWNER CAPITAL        ║   860.00║         ║"
  179. 1790 PRINT TAB(11)"║          ║ 32 ║    OWNER WITHDRAWAL  ║         ║   860.00║":GOSUB 1540:COLOR 11,0:LOCATE 23,16:PRINT"***** Strike Any Key To Post To The Ledger *****":COLOR 7,0:GOTO 20
  180. 1800 LOCATE 7:GOSUB 1520
  181. 1810 COLOR 11,0:PRINT"Own.";:COLOR 7,0:PRINT"║ 06/30/82 ║ BALANCE              ║         ║         ║         ║ 14700.00║":COLOR 11,0:PRINT"Cap.";:COLOR 7,0:PRINT"║ 06/30/82 ║ CLOSE OUT SALES      ║         ║ 12045.00║         ║ 26745.00║"
  182. 1820 PRINT TAB(5)"║ 06/30/82 ║ CLOSE OUT EXPENSES   ║  9545.00║         ║         ║ 17200.00║":PRINT TAB(5)"║ 06/30/82 ║ CLOSE OUT WITHDRAWAL ║   860.00║         ║         ║ 16340.00║":PRINT TAB(5)AA$
  183. 1830 LOCATE 17:GOSUB 1520
  184. 1840 COLOR 11,0:PRINT"Sale";:COLOR 7,0:PRINT TAB(5)"║ 06/30/82 ║ BALANCE              ║         ║         ║         ║ 12045.00║":PRINT TAB(5)"║ 06/30/82 ║ CLOSE OUT ACCOUNT    ║ 12045.00║         ║         ║     0.00║":PRINT TAB(5)AA$;
  185. 1850 COLOR 11,0:LOCATE 25,17:PRINT"***** Strike Any Key To Continue Posting *****       ";:COLOR 7,0:GOTO 20
  186. 1860 LOCATE 5:GOSUB 1520:COLOR 11,0:PRINT"Sal.";:COLOR 7,0:PRINT"║ 06/30/82 ║ BALANCE              ║         ║         ║  3500.00║         ║"
  187. 1870 COLOR 11,0:PRINT"Exp.";:COLOR 7,0:PRINT"║ 06/30/82 ║ CLOSE OUT ACCOUNT    ║         ║  3500.00║     0.00║         ║":PRINT TAB(5)AA$
  188. 1880 LOCATE 12:GOSUB 1520:COLOR 11,0:PRINT"Sup.";:COLOR 7,0:PRINT"║ 06/30/82 ║ BALANCE              ║         ║         ║  6045.00║         ║"
  189. 1890 COLOR 11,0:PRINT"Exp.";:COLOR 7,0:PRINT"║ 06/30/82 ║ CLOSE OUT ACCOUNT    ║         ║  6045.00║     0.00║         ║":PRINT TAB(5)AA$
  190. 1900 LOCATE 19:GOSUB 1520:COLOR 11,0:PRINT"With";:COLOR 7,0:PRINT"║ 06/30/82 ║ BALANCE              ║         ║         ║   860.00║         ║"
  191. 1910 COLOR 11,0:PRINT"draw";:COLOR 7,0:PRINT"║ 06/30/82 ║ CLOSE OUT ACCOUNT    ║         ║   860.00║     0.00║         ║":PRINT TAB(5)AA$;
  192. 1920 COLOR 11,0:LOCATE 25,16:PRINT"***** Strike Any Key For Post-closing Trial BALANCE *****       ";:COLOR 7,0:GOTO 20
  193. 1930 ON KEY(1) GOSUB 500:GOSUB 1940:GOSUB 1960:GOSUB 1940:GOSUB 1950:GOSUB 1990:GOTO 2050
  194. 1940 GOSUB 230:COLOR 11,0:LOCATE 4,24:PRINT"STEP XI. POST-CLOSING TRIAL BALANCE":COLOR 7,0:COLOR 11,0:LOCATE 5,24:PRINT STRING$(35,"-"):COLOR 7,0:RETURN
  195. 1950 LOCATE 6,6:PRINT"╔"STRING$(68,"═")"╗":FOR I=7 TO 23:LOCATE I,6:PRINT"║":LOCATE I,75:PRINT"║";:NEXT:LOCATE 24,6:PRINT"╚"STRING$(68,"═")"╝";:RETURN
  196. 1960 LOCATE 7,21:PRINT"The final procedure of the accounting cycle is":PRINT TAB(15)"the Post-closing trial balance.  The purpose of this":PRINT TAB(15)"step is to assure that the ledgers are in balance at"
  197. 1970 PRINT TAB(15)"the beginning of the new accounting cycle. The items":PRINT TAB(15)"on the post-closing trial balance  should correspond":PRINT TAB(15)"exactly with those reported on the balance sheet."
  198. 1980 COLOR 11,0:LOCATE 25,12:PRINT"***** Strike Any Key For Post-closing Trial Balance *****";:COLOR 7,0:GOTO 20
  199. 1990 COLOR 11,0:LOCATE 7,31:PRINT"ABC Hardware Company":LOCATE 8,28:PRINT"Post-closing Trial Balance":LOCATE 9,34:PRINT"June 30 , 1982":COLOR 7,0:LOCATE 10,6:PRINT "╟"STRING$(68,"─")"╢"
  200. 2000 LOCATE 11,8:PRINT"Cash. . . . . . . . . . . . . . . . .     $12,490.00":LOCATE 13,8:PRINT"Accounts receivable . . . . . . . . .      $1,695.00":LOCATE 15,8:PRINT"Supplies. . . . . . . . . . . . . . .      $5,655.00"
  201. 2010 LOCATE 17,8:PRINT"Accounts payable  . . . . . . . . . .                    $3,500.00":LOCATE 19,8:PRINT"Homer Jones, capital  . . . . . . . .                   $16,340.00"
  202. 2020 LOCATE 23,50:PRINT"$19,840.00    $19,840.00":LOCATE 10,47:PRINT"┬":LOCATE 10,61:PRINT"┬":FOR I=11 TO 23:LOCATE I,47:PRINT"│":LOCATE I,61:PRINT"│":NEXT:LOCATE 24,47:PRINT "╧";:LOCATE 24,61:PRINT "╧";
  203. 2030 LOCATE 21,47:PRINT "├"STRING$(13, "─")"┼"STRING$(13,"─")"╢":COLOR 11,0:LOCATE 25,17:PRINT"***** Strike Any Key For Simulation Recap *****";:COLOR 7,0:GOTO 20
  204. 2040 GOSUB 230:COLOR 11,0:LOCATE 4,28:PRINT"STEP XII. SIMULATION RECAP":COLOR 7,0:COLOR 11,0:LOCATE 5,28:PRINT STRING$(26,"-"):COLOR 7,0:RETURN
  205. 2050 ON KEY(1) GOSUB 510:GOSUB 2040:LOCATE 7,20:PRINT"Now that wasn't so bad was it? We sincerely hope":PRINT TAB(14)"that you have found this simulation both enjoyable and":PRINT TAB(14)"educational.  Keep in mind that everything you saw was"
  206. 2060 PRINT TAB(14)"a scaled down version of the activity of any business.":PRINT TAB(20)"In our decision to present this demonstration we":PRINT TAB(14)"felt like there were 3 tasks we hoped to accomplish;":PRINT
  207. 2070 COLOR 11,0:LOCATE ,14:PRINT" A) ";:COLOR 7,0:PRINT"We wanted to demonstrate the efficiency and power":LOCATE ,18:PRINT"that an automated accounting system is capable of.":PRINT
  208. 2080 COLOR 11,0:LOCATE ,14:PRINT" B) ";:COLOR 7,0:PRINT"We tried to make it clear that while the IBM P.C.":LOCATE ,18:PRINT"is relatively compact and inexpensive, it is able":LOCATE ,18:PRINT"to perform a variety of complex functions.":PRINT
  209. 2090 COLOR 11,0:LOCATE ,14:PRINT" C) ";:COLOR 7,0:PRINT"We hoped to show you what we are capable of doing":LOCATE ,18:PRINT"so that you will use our software in the future.":COLOR 11,0:LOCATE 25,22:PRINT"***** Strike Any Key To Continue *****";
  210. 2100 COLOR 7,0:GOSUB 20:GOSUB 2040:LOCATE 7,20:PRINT"We presented this simulation to you in the hopes":PRINT TAB(14)"that you would learn a little about computers and auto-":PRINT TAB(14)"mation. The steps that we led you through are the same"
  211. 2110 PRINT TAB(14)"11 steps any major corporation must take.":PRINT TAB(20)"From the taking  place of the transaction itself":PRINT TAB(14)"to the Post-closing Trial Balance, we explained enough"
  212. 2120 PRINT TAB(14)"about each procedure to  allow a person with a minimal":PRINT TAB(14)"amount of accounting knowledge to follow the flow of a":PRINT TAB(14)"business.":PRINT TAB(20)"It has been a pleasure  sharing our knowledge of"
  213. 2130 PRINT TAB(14)"automated accounting with you,  and you may anticipate":PRINT TAB(14)"hearing from us in the future."
  214. 2140 COLOR 11,0:LOCATE 25,18:PRINT"***** Strike Any Key To Return To The Menu *****";:COLOR 7,0:GOSUB 20:GOTO 370
  215.