home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / BOOKEEPER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  212 lines
  1. 1 REM - BKEEPER (C) 1979
  2. 2 REM WRITTEN BY JOHN MELISSA JR.
  3. 3 REM 4201 CLAYMONT, APT.2, LAS VEGAS,NV
  4. 4 REM PHONE (702) 734-0849
  5. 10 GOSUB 6510
  6. 30 N=60:POKE59468,14
  7. 40 DIMA(N),B(N)
  8. 45 DEF FNA(K)=K-INT(LOG(ABS(F))/LOG(10)):K=5
  9. 50 FOR J=1 TO N
  10. 55 READ A$
  11. 60 NEXT J
  12. 65 PRINT CHR$(14):(null) TO 5000
  13. 70 PRINT"[147][193]CCOUNT NAME WILL BE DISPLAYED"
  14. 72 PRINT"AFTER[160]ACCOUNT # ENTRY. [201]F WRONG"
  15. 74 PRINT"ACCOUNT, ENTER 0 FOR AMOUNT."
  16. 76 PRINT"[197]NTER 99 FOR ACCOUNT # TO[160]RETURN":PRINT"TO[160]MAINLINE."
  17. 100 GOSUB2000
  18. 101 RESTORE
  19. 102 IF A1=99THEN5000
  20. 105 IF A1<=N THEN 110
  21. 108 PRINT"[193][195][195][207][213][206][212] # [205][213][211][212] [194][197] 1 [212][207]";N:GOTO 100
  22. 110 FOR J=1 TO A1
  23. 120 READ A$
  24. 130 NEXT J
  25. 135 IF A$="" THEN A$="[195][200][197][195][203] #/[206][193][205][197]"
  26. 140 PRINT "   ";A1;A$;
  27. 150 INPUT "-- [193][205][207][213][206][212]  $[157][157][157]";D
  28. 160 A(A1)=A(A1)+D
  29. 170 GOTO 100
  30. 200 PRINT"[147]";:F1=0:LN=1:FOR J=1 TO N
  31. 210 READ A$
  32. 220 IF A$="" THEN 240
  33. 225 IF F1=1THENPRINTSPC(20);
  34. 230 PRINTJ;TAB(4);A$:LN=LN+1
  35. 232 IF LN>22THENGOSUB260
  36. 240 NEXT J
  37. 250 FOR J=LN TO22:PRINT:NEXT:GOSUB700:GOTO 5000
  38. 260 LN=1:IF F1=0THENF1=1:PRINT"";:RETURN
  39. 270 F1=0:GOSUB700:RETURN
  40. 300 REM - SUMMARY -
  41. 310 PRINT"[147][211][213][205][205][193][210][217]               [195][213][210][210][197][206][212]     [217][212][196]
  42. 315 T[178]0:T1[178]0
  43. 320 [153]
  44. 400 [129] J[178]1 [164] N
  45. 410 [135] A$
  46. 412 [139] [195](A$)[177]13[167]420
  47. 414 [129]JF[178]1[164](15[171][195](A$)):A$[178]A$[170]".":[130]
  48. 420 [139] J[179][177]32 [167] 440
  49. 425 [153] [163]21);"TANTANTANTANTANTANTANTAN  TANTANTANTANTANTANTANTAN"
  50. 430 [153]"(null)(null)PEEK(null)(null)(null)ATN(null)";[163]19);:F[178]T:[141]600:[153]F$;[163]29);
  51. 435 F[178]T1:[141]600:[153]F$:LN[178]LN[170]2
  52. 440 [139] A(J)[178]0 [175]B(J)[178]0 [167]480
  53. 442 [139] LN[177]19[167][141]700
  54. 445 LN[178]LN[170]1:[153] J;[163]4);A$;[163]19);
  55. 450 F[178]A(J):[141]600:[153]F$;:T[178]T[170]F
  56. 470 F[178]F[170]B(J):[141]600:[153][163]29)F$:T1[178]T1[170]F
  57. 480 [130] J
  58. 485 [153] [163]21);"TANTANTANTANTANTANTANTAN  TANTANTANTANTANTANTANTAN"
  59. 490 [153]"(null)(null)(null)ATN(null)";[163]19);:F[178]T:[141]600:[153]F$;[163]29);
  60. 495 F[178]T1:[141]600:[153]F$
  61. 500 [141]700:[137]5000
  62. 600 [143] NUM PRINT
  63. 605 F$[178]"":[139] F[178]0[167][142]
  64. 610 F[178][181](F[172]100[170].5)[173]100:[139] [165]A(K)[179]1[167]630
  65. 620 [129] JF[178]1[164][165]A(K):F$[178]F$[170]" ":[130]
  66. 630 F$[178]F$[170][196](F):[139] [195](F$)[179]8[167]F$[178]F$[170]".00"
  67. 640 [139][195](F$)[179]10[167]F$[178]F$[170]"0"
  68. 650 [142]
  69. 700 [153]"      TOTOTOTOTO":[153]"(null)RESS (null)(null)ATNLENVALWAIT TOCLOSECONTINUECLOSE...";
  70. 720 LN[178]0:[161]ZZ$:[139]ZZ$[178]""[167]720
  71. 730 [153]"LOAD...LEN(null)(null)(null)RIGHT$(null)(null)VALSTR$":[142]
  72. 800 [153]"LOADRIGHT$(null)(null)VAL(null)(null) STR$ATN(null)ATN STR$RIGHT$(null)(null)CLOSERIGHT$(null)CLOSESTR$(null)RIGHT$(null)VAL"
  73. 810 [161]AN$:[139] AN$[179][177]"(null)"[167]810
  74. 820 [142]
  75. 1000 [131] MERCHANDISE,ACCTG,ADVERTISING,AUTO,PACKAGING
  76. 1010 [131] CONTRIB,DELIVERY,ELECTRIC
  77. 1020 [131] ENTERTAINMENT,FREIGHT
  78. 1030 [131] HEAT,INSURANCE,INTEREST
  79. 1040 [131] LAUNDRY,LEGAL,LICENSES
  80. 1050 [131] MISC,OFFICE
  81. 1060 [131] POSTAGE,RENT,REPAIRS,SHOP EXP
  82. 1070 [131] TAX-FICA,TAX-STATE U.I.
  83. 1080 [131] TAX-OTHER,SELLING EXP
  84. 1090 [131] SUPPLIES,TELEPHONE
  85. 1100 [131] TRADE DUES,TRAVEL
  86. 1110 [131] WAGES,WATER,,,,,,,,,
  87. 1120 [131] ,,,,,,,,
  88. 1200 [131] NOTES PAYABLE,FED INC TAX,LOANS PAY
  89. 1210 [131] LOANS REC.,PERSONAL,FIXED ASSETS
  90. 1220 [131]  , , ,
  91. 2000 [153]"ATNLENLEN(null) # (01 -";N;"CMD): ";
  92. 2010 [161] NN$:[139] NN$[178]""[167]2010
  93. 2020 [153]NN$;
  94. 2025 M$[178]NN$
  95. 2030 [161] NN$:[139] NN$[178]""[167]2030
  96. 2040 [139] [198](NN$)[178]20 [167] [153]NN$;:[137]2010
  97. 2050 [153]NN$
  98. 2060 M$[178]M$[170]NN$
  99. 2070 A1[178][197](M$)
  100. 2080 [139] A1[178]0 [167] [153]"RIGHT$(null)(null)ATN(null)RIGHT$STR$ VAL(null)(null)(null)(null)":[137] 70
  101. 2099 [142]
  102. 2500 [143] - TOTALS
  103. 2510 T[178]0:T1[178]0
  104. 2520 [129] J[178]1[164]N:T[178]T[170]A(J):T1[178]T1[170]B(J):[130] J
  105. 2530 T1[178]T1[170]T
  106. 2540 [137]490
  107. 3000 [143] SAVE DATA
  108. 3001 [141]800
  109. 3005 [151]243,122:[151]244,2
  110. 3010 [159] 1,8,1,"STR$(null)(null)VAL STR$ATN(null)ATN"
  111. 3020 [129] J[178]1[164]N
  112. 3030 YTD[178][181]((A(J)[170]B(J))[172]100[170].5)[173]100
  113. 3040 [139]YTD[178]0[167]3090
  114. 3050 [152]1,J:[152]1,YTD:[139] Z9[179][178][194](625)[167]3090
  115. 3060 [151]59411,53
  116. 3070 [129]Z9[178]1[164]60:[130]Z9
  117. 3080 [151]59411,61
  118. 3090 Z9[178][194](625):[130]J
  119. 3100 [160] 1
  120. 3110 [137]5000
  121. 4000 [143]/INPUT DATA
  122. 4001 [141]800
  123. 4010 [159]1,8,0,"STR$(null)(null)VAL STR$ATN(null)ATN"
  124. 4015 [153]"ASCRIGHT$(null)VAL ASC(null)(null)(null)STR$"
  125. 4020 [132]1,I:[139]ST[179][177]0[167]4050
  126. 4030 [132]1,B(I)
  127. 4040 [139] ST[178]0[167]4020
  128. 4050 [160]1
  129. 4060 [139]ST[179][177]64[167][153]"RIGHT$(null)(null)(null)(null) VAL(null)(null)(null)(null). (null)(null)=";ST
  130. 4070 [137]5000
  131. 5000 [153]"LOAD":[153] [163]18)"(null)VAL(null)(null)"
  132. 5005 [153] [163]8)"0. RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)
  133. 5010 PRINT TAB(8)"1. [212][210][193][206][211][193][195][212][201][207][206] [197][206][212][210][201][197][211]"
  134. 5020 PRINT TAB(8)"2. [201][206][208][213][212] [196][193][212][193] [198][210][207][205] [196][201][211][203]"
  135. 5030 PRINT TAB(8)"3. [204][201][211][212] [195][200][193][210][212] [207][198] [193][195][195][207][213][206][212][211]"
  136. 5040 PRINT TAB(8)"4. [208][210][201][206][212] [211][213][205][205][193][210][217]"
  137. 5050 PRINT TAB(8)"5. [211][193][214][197] [196][193][212][193] [207][206] [196][201][211][203]
  138. 5055 [153] [163]8)"6. (null)(null)RIGHT$(null)(null) (null)(null)(null)(null)ATN(null)(null) (null)(null)(null)ATN(null)(null)"
  139. 5060 [153] [163]8)"7. VAL(null)STR$"
  140. 5070 [153] [163]8)"VAL(null)(null)VAL(null) LEN(null)(null)(null)ATN(null)STR$ (null)(null)(null)PEEKVAL(null). "
  141. 5080 [161] C$:[139] C$[178]""[167]5080
  142. 5100 [140]:[153]"LOAD"
  143. 5110 [145] [197](C$)[137]70,4000,200,300,3000,2500,5999
  144. 5120 [137] 6000
  145. 5999 [128]
  146. 6000 [153]"LOADRIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) - PEEK(null)VALVAL(null)VAL(null)
  147. 6010 PRINT"    [212]HIS PROGRAM WILL[160]ASSIST[160]YOU[160]IN
  148. 6020 [153]"SUMMARIZINGCLOSECHECKS ANDCLOSECASHCLOSEPAYMENTS
  149. 6030 PRINT"FROM[160]A[160]BUSINESS. [201]T WAS[160]WRITTEN[160]TO[160]BE
  150. 6040 [153]"USEDCLOSEINCLOSECONJUNCTIONCLOSEWITHCLOSETHECLOSEPOPULAR
  151. 6050 PRINT"[196]OME[160][194]OOKKEEPING[160][210]ECORD. [201]T MAY[160]ALSO[160]BE
  152. 6060 [153]"USEDCLOSEBYCLOSEITSELFCLOSEDIRECTLYCLOSEFROMCLOSECHECKSTUBS
  153. 6070 PRINT"OR[160]A[160]CHECKBOOK.
  154. 6080 [153]"    (null)HECLOSEPROGRAMCLOSEWILLCLOSEPROMPTCLOSEYOUCLOSETHROUGH
  155. 6090 PRINT"ENTRY[160]OF[160]EXPENDITURES. [193]FTER[160]THE[160]EXPEN-
  156. 6100 [153]"DITURESCLOSEHAVECLOSEBEENCLOSEENTERED, YOUCLOSEMAYCLOSEORDER
  157. 6110 PRINT"[145]UP[160]A[160]SUMMARY (FROM[160]THE[160]MENU). [212]HE
  158. 6120 [153]"SUMMARY MAYCLOSEBECLOSESAVEDCLOSEONCLOSEACLOSEFLOPPY DISK
  159. 6130 PRINT"AND READ IN THE[160]FOLLOWING[160]MONTH FOR[160][217]EAR[145]
  160. 6140 [153]"ON(null)OCLOSESTR$ATE SUMMARIES.
  161. 6150 PRINT"    [212]HE PROGRAM[160]CONSISTS[160]OF[160]6 SEGMENTS
  162. 6155 [153]"WHICHCLOSEARECLOSECALLEDCLOSEBYCLOSETHECLOSE(null)VAL(null)(null) AND RETURN
  163. 6160 PRINT"TO THE[160]MENU. [197]ACH[160]SEGMENT[160]OPERATES
  164. 6165 [153]"INDEPENDENTLY OFCLOSETHECLOSEOTHERSCLOSEANDCLOSEMAY BE"
  165. 6170 [153]"CALLED WHENEVERCLOSEYOUCLOSEWISH.
  166. 6175 GOSUB 700
  167. 6180 PRINT"    [212]HE[160]FIRST[160]STEP IN[160]USING[160]THIS[160]SYSTEM
  168. 6185 [153]"ISCLOSETOCLOSECLASSIFYCLOSETHECLOSEEXPENDITURES INTO
  169. 6190 PRINT"ACCOUNTS. [200]AVE[160]THE[160]COMPUTER[160]LIST[160]THE
  170. 6195 [153]"ACCOUNTSCLOSEONCLOSETHECLOSESCREENCLOSEWHILECLOSEYOUCLOSEGOCLOSE
  171. 6200 PRINT"THROUGH[160]EACH[160]ITEM[160]WRITING[160]DOWN[160]THE
  172. 6205 [153]"ACCOUNT NUMBERCLOSEON A LIST OFCLOSECHECKSCLOSEAND":[153]"CASHCLOSEPAYMENTS.
  173. 6235 PRINT"    [194]EFORE[160]ENTERING[160]THE[160]EXPENDITURES,
  174. 6240 [153]"TOTALCLOSETHEMCLOSEUPCLOSEANDCLOSESAVECLOSETHAT TOTALCLOSETOCLOSE
  175. 6245 PRINT"VERIFY[160]THE[160]COMPUTER[160]TOTALS. [212]HEN ENTER
  176. 6250 [153]"THE TRANSACTIONSCLOSEINTO THECLOSECOMPUTER. (null)HEN
  177. 6255 PRINT"[145]YOU[160]HAVE[160]ENTERED[160]ALL[160]YOUR[160]TRANSACTIONS,
  178. 6260 [153]"PRINTCLOSETHECLOSESUMMARYCLOSEORCLOSESUMMARYCLOSETOTAL
  179. 6265 PRINT"AND[160]COMPARE[160]THIS[160]TOTAL[160]TO THE[160]TOTAL
  180. 6270 [153]"PREVIOUSLY DETERMINED. RIGHT$FCLOSEYOUCLOSENEEDCLOSETO
  181. 6275 PRINT"MAKE[160]MORE[160]ENTRIES,[160]THEN[160]RETURN[160]TO[160]THE[160]
  182. 6280 [153]"ENTRYCLOSEROUTINE.  (null)HENCLOSETHECLOSESUMMARY ISCLOSE
  183. 6290 PRINT"COMPLETED, SAVE IT ON[160]A DISK FILE.
  184. 6295 [141]700
  185. 6300 [153]"    (null)HECLOSEACCOUNTSCLOSE1 THROUGHCLOSE50 ARECLOSETAXCLOSE
  186. 6310 PRINT"DEDUCTIBLE[160]EXPENSES, AND[160]ACCOUNTS[160]51
  187. 6320 [153]"THROUGHCLOSE60 ARE NON-DEDUCTIBLECLOSEEXPENSES.
  188. 6330 PRINT"[212]O[160]CHANGE[160]THE[160]ACCOUNT[160]TITLES, MODIFY THE
  189. 6340 [153]"ONDATACLOSESTATEMENTSCLOSEBEGINNINGCLOSEATCLOSELINE 1000.
  190. 6350 PRINT"    [212]O CHANGE[160]THE[160]NUMBER[160]OF[160]AVAILABLE
  191. 6360 [153]"ACCOUNTS, CHANGECLOSETHECLOSEVALUECLOSEOFCLOSE(null) INCLOSELINE
  192. 6370 PRINT"30. [201]F[160]YOU[160]NEED[160]TO[160]STOP[160]THE[160]PROGRAM AND
  193. 6380 [153]"RE-ENTERCLOSEWITHOUTCLOSELOSSCLOSEOFCLOSEDATA, THEN
  194. 6390 PRINT"[199][207][212][207] 5000.
  195. 6490 [141]700
  196. 6499 [137]5000
  197. 6500 [143]  ** TITLE PAGE **
  198. 6510 [153]"LOADSYS";:[151] 53280,5:[151] 53281,11
  199. 6520 [129] I[178]1 [164] 38:[153]"(null)WAIT";:[130]
  200. 6530 [129] I[178]1 [164] 22:[153]"CMD(null)WAIT";:[130]
  201. 6540 [129] I[178]1 [164] 37:[153]"CMDCMD(null)WAIT";:[130]
  202. 6545 [129] I[178]1 [164] 22:[153]"ONCMD(null)WAIT";:[130]
  203. 6547 [153] [199](14)""
  204. 6550 [153]"PEEKOOKEEPER (C)
  205. 6555 PRINT"[163][163][163][163][163][163][163][163][163]
  206. 6560 [153] [163]19)"BY
  207. 6565 PRINT TAB(12)"[202]OHN [205]ELISSA JR
  208. 6570 [153] [163]10)
  209. 6575 [153] [163]14)"(null)AS (null)EGAS (null)(null)
  210. 6580 FOR T=1 TO 2500:NEXT T
  211. 6590 RETURN
  212.