C64S tape image fileBOOKS `BOOKS ROOTS SPACE WARS/PING PONGLR>SAUCER ATTACK7HMOTORCYCLE JUMPI UHORSE RACE^MISSLE LAUNCH rCRACK THE SAFE9yHANGMAN LUNAR LANDERE BREAK AWAY ܕPRACTICE PING POiAUTO RACEN aBOMB SQUAD RUN AWAYʰADDITION AND SUB MORTGAGE LOANuDICE THROW!MULTIPLICATION A= PERPETUAL CALENDq CLOCK ]SAVINGS ACCOUNT vDAYS BETWEEN DAY 9RAILROAD 2"$<A(20,20),B$(20),C(20)0FJ120;PB$(J)BZJgd"THIS IS A BOOKKEEPING PROGRAM"x"FOR STUDENTS OF ACCOUNTING. IT WAS DEVISED BY :- "}" J R MACE "" DEPARTMENT OF ACCOUNTING AND FINANCE UNIVERSITY OF LANCASTER""" LANCASTER LA1 4YX"(@"YOUR OPTIONS ARE"_" 1=INPUT A TRANSACTION"" 2=DISPLAY ACCOUNTING STATEMENTS"" 3=REVERSE PREVIOUS TRANSACTION"" 4=SET ALL ACCOUNT BALANCES AT ZERO"%" 5=ADD RESULT TO RESERVES TO CREATE OPENING BALANCE SHEET"K" FOR NEXT ACCOUNTING PERIOD"y" 6=LIST THE ACCOUNT BALANCES "" (AND OPTION TO END THE RUN)"" 7=INPUT NEW BALANCES ON ALL ACCOUNTS""PRESS ANY KEY AFTER THE ACCOUNTING"&"STATEMENTS HAVE BEEN DISPLAYED AND THE"Q"OPTION LIST WILL BE DISPLAYED AGAIN"Wt"ENTER YOUR CHOICE NOW""*";W7W71150W77150W7300,2000,500,600,560,2480,2700""ACCOUNT NUMBER DOES NOT EXIST","ENTER THE NUMBERS OF THE ACCOUNTS"8-"TO BE DEBITED AND CREDITED"b6"IN THAT ORDER SEPARATED BY A COMMA"l71800@"*";F2,F3JF21290TF220290^F31290hF320290"ENTER AMOUNT""*";F1F10400 C(F2)C(F2)F1 C(F3)C(F3)F1 X22& 2000/ 150> X22530^ "NO TRANSACTION AVAILABLE"g 150z C(F2)C(F2)F1 C(F3)C(F3)F1 X2X21 &2000 0F1W5 1J18 2C(J)0 3J 4C(10)C(10)F1 5X21 62000 XK120 lC(K)0 K1 "BALANCES HAVE BEEN ZEROISED"7 @ 150K J19] J;" =",B$(J)d Jq J1018 J;"=",B$(J) J &" 19 =","ACCUMULATED DEPRECIATION ON FIXED ASSETS" 0" 20 =","PROVISION FOR DOUBTFUL DEBTS" : ") B$(8);C(8),B$(7),C(7)9 B$(2),C(2)I B$(3),C(3)Z C(4)02070j B$(4),C(4)t 2080 ,,B$(4),C(4) B$(1),C(1) *W6C(7)C(8)C(2)C(3)C(4)C(1) 4W602130 >"NET PROFIT";W6 H2150 R,,"NET LOSS",W6 \C 7 C(7)W65 ^" TOTAL",C 7 ," TOTAL",C 7? a2160d f" TOTAL",C(7)," TOTAL",C(7)s pW602190 z,,"NET PROFIT";W6 " 2200 "NET LOSS",W6 B$(5),C(5) B$(6),C(6) W5W6C(5)C(6) W502260 "RESULT",W5 2280% ,,"RESULT",W55 W602275B W6W5W6L 2280V W6W5w " TOTAL",W6," TOTAL",W6}  B$(9),C(9),B$(18),C(18) B$(10),C(10),B$(19),C(19)  "ADD RESULT";W5,"SUBTOTAL",C(18)C(19) "SUBTOTAL",C(9)C(10)W5,B$(14),C(14)4 B$(17),C(17),B$(13),C(13)T$ B$(16),C(16),B$(15),C(15)i. ,,B$(20),C(20)8 ,,"SUBTOTAL",C(15)C(20)B ,,B$(11),C(11)L W4C(9)C(10)W5C(17)C(16)V C(12)02420` ,,B$(12),C(12)j 2440t B$(12),C(12)~ W4W4C(12)/ " TOTAL",W4," TOTAL",W4C A$:A$""2450K "T 150 "THE ACCOUNT BALANCES ARE AS FOLLOWS",,"DEBIT","CREDIT" G118 G8B$(G); G82492 B$(G), C(G)0,C(G) C(G)0C(G) G "ACC DEPN", C(19)0,C(G)0 C(19)0C(G)B "DEBT PROV",W C(20)0,C(20)m C(20)0C(20) "ENTER 1 TO END RUN " "OR 2 TO DISPLAY OPTION LIST" U8 U82150 "THE RUN HAS NOW ENDED"  EXPENSES,INTEREST,DEPN,BAD DEBTS7 DIVIDEND,TAX,SALES,C OF SALES,CAPITAL_ RESERVES,CASH,BANK,STOCK,INVESTMTS DEBTORS,CREDITORS,LOAN CAP F A COST,LESS DEPN,LESS PROV J19 "ENTER DEBIT BALANCES AS POSITIVE NUMBERS". "AND ENTER CREDIT BALANCES AS NEGATIVE NUMBERS"4 W "ENTER BALANCE";J;"IE ";B$(J) "PRESENT BALANCE ON THIS ACCOUNT IS",C(J) "*";C(J) J J1018 "ENTER DEBIT BALANCES AS POSITIVE NUMBERS"- "AND ENTER CREDIT BALANCES AS NEGATIVE NUMBERS"3 U "ENTER BALANCE";J;"IE";B$(J) "PRESENT BALANCE ON THIS ACCOUNT IS",C(J) "*";C(J) J "ENTER ACCUMULATED DEPRECIATION ON FIXED ASSETS (A NEGATIVE AMOUNT)" "PRESENT BALANCE ON THIS ACCOUNT IS",C(19), "*";C(19)v "ENTER PROVISION FOR DOUBTFUL DEBTS (A NEGATIVE AMOUNT)" "PRESENT BALANCE ON THIS ACCOUNT IS",C(20) "*";C(20) R0 J120 RRC(J) J R0 150 "TRIAL BALANCE DOES NOT BALANCE": "DEBITS PLUS CREDITS EQUALS";Rg "TOTAL DEBITS MUST EQUAL TOTAL CREDITS"x "TRY AGAIN" 2700