home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_37_(10-1984).d64 / budgeteer_64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  132 lines
  1. 100 X=1:REM MAKE X=0 FOR TAPE,OR X=1 TO USE DISK
  2. 105 POKE 53280,12:POKE 53281,11:PRINTCHR$(14)
  3. 110 T$="[147][154]             [146][155]  [194][213][196][199][197][212][197][197][210]  [154]              [155]"
  4. 115 S=54272:FOR Q=S TO S+23:POKE Q,0:NEXT
  5. 120 DIM A$(11),A(11),B%(11):DEF FNR(X)=INT(X*100+.5)/100:PRINT T$""
  6. 130 PRINT"[212]ODAY'S [196]ATE";:GOSUB1080:INPUT DD$:PRINT:GOTO230
  7. 140 PRINT T$:PRINT"[155]  [196]ATE:[152]"D$:PRINT"[155]  [204]AST [193]MOUNT:$[152]"A
  8. 150 GOSUB190:PRINT:FOR R=1TO9:PRINT"  [155]"R"[157].."A$(R)"..$[152]"TAB(B%(R))A(R):NEXT
  9. 160 PRINT"  [155]10.."A$(10)"..$[152]"TAB(B%(10))A(10):PRINT
  10. 170 PRINT"  [155]11.."A$(11)"..$[152]"TAB(B%(11))A(11):PRINT:RETURN
  11. 190 FOR R=1TO11
  12. 200 IF ABS(A(R))=>1 THEN B%(R)=32-LEN(STR$(INT(ABS(A(R)))))
  13. 210 IF ABS(A(R))<1 THEN B%(R)=31
  14. 220 NEXT:RETURN
  15. 230 FOR R=1TO11:READ A$(R):NEXT
  16. 240 DATA"[200][207][213][211][201][206][199]........","[213][212][201][204][201][212][201][197][211]......"
  17. 243 DATA"[201][206][211][213][210][193][206][195][197]......","[211][197][210][214][201][195][197] [195][200][193][210][199][197][211]"
  18. 247 DATA"[195][210][197][196][201][212][160][195][193][210][196][211]..."
  19. 250 DATA"[214][193][195][193][212][201][207][206].......","[205][197][196][201][195][193][204]........"
  20. 253 DATA"[194][207][207][203][211]&[205][193][199][193][218][201][206][197][211]","[211][212][207][210][197] [195][200][193][210][199][197][211].."
  21. 257 DATA"[205][201][211][195][197][204][204][193][206][197][207][213][211]..","[212][207][212][193][204][160][194][193][204][193][206][195][197].."
  22. 270 GOSUB1050
  23. 280 IF X THEN OPEN1,8,2,"0:CHBKFILE,READ":GOTO 350
  24. 290 PRINT"[201]NSERT DATA CASSETTE AND REWIND TO READ BALANCES.
  25. 300 [153]:[153]"(null)EADY?...(null)RESS (null)
  26. 310 GET A$:IF A$="" THEN310
  27. 320 IF A$="N" THEN END
  28. 330 IF A$<>"Y" THEN290
  29. 340 OPEN1,1,0,"CHBKFILE"
  30. 350 FOR R=1TO11:INPUT#1,A(R):NEXT:INPUT#1,D$:CLOSE1
  31. 360 GOSUB140
  32. 370 PRINT"[155][212]RANSACTION?  [217]/[206]"
  33. 375 GOSUB1080
  34. 380 GET A$:IF A$="" THEN380
  35. 390 IF A$="Y" THEN450
  36. 400 IF A$="N" THEN740
  37. 410 GOSUB1160:FOR R=1TO3
  38. 420 PRINT""SPC(14)"   ":FOR M=1TO300:NEXT
  39. 430 PRINT""SPC(14)"[217]/[206]":FOR M=1TO300:NEXT
  40. 440 NEXT:GOTO380
  41. 450 T=T+1:IF T=1 THEN D$=DD$
  42. 460 PRINT"[205]ENU: [212]=ACCT [212]RANSFER
  43. 470 [153][166]6)"LEN=WRITE LENHECK
  44. 480 PRINTSPC(6)"[196]=MAKE [196]EPOSIT
  45. 485 [141]1080
  46. 490 [161] A$:[139] A$[178]""[167]490
  47. 500 [139] A$[178]"C"[167]590
  48. 510 [139] A$[178]"D"[167]620
  49. 520 [139] A$[178]"T"[167]650
  50. 530 [141]1160:[129] R[178]1[164]3
  51. 540 [153]""[166]6)" "
  52. 550 [153][166]6)" ":[153][166]6)" ":[129] M[178]1[164]300:[130]
  53. 560 [153]""[166]6)"(null)"
  54. 570 [153][166]6)"LEN":[153][166]6)"STR$":[129] M[178]1[164]300:[130]
  55. 580 [130]:[137]490
  56. 590 [153]""
  57. 591 [153]"ATNMT OF LENHECK,ATNCCT #";:[141]1080:[133] A,L
  58. 600 [139] L[177]10 [176] L[179]1 [176] L[171][181](L)[177]0 [167] [141]1160:[137]590
  59. 610 A(11)[178][165]R(A(11)[171]A):A(L)[178][165]R(A(L)[171]A):[137]640
  60. 620 [153]:[153]"ATNMT OF STR$EPOSIT";:[141]1080:[133] A
  61. 630 L[178]10:A(11)[178][165]R(A(11)[170]A):A(L)[178][165]R(A(L)[170]A)
  62. 640 [141]140:E[178]L:F[178]12:[137]690
  63. 650 [153]""
  64. 651 [153]"ATNMT,FROM #,TO #";:[141]1080:[133] A,A1,A2
  65. 653 [139] A1[177]10 [176] A1[179]1 [176] A1[171][181](A1)[177]0 [167] [141]1160:[137]650
  66. 660 [139] A2[177]10 [176] A2[179]1 [176] A2[171][181](A2)[177]0 [167] [141]1160:[137]650
  67. 670 A(A1)[178][165]R(A(A1)[171]A):A(A2)[178][165]R(A(A2)[170]A)
  68. 680 [141]140:E[178]A1:F[178]A2
  69. 690 [139] E[177]6 [167] [153]""[166]255)[166]198)[166]E[172]40[171]255)"*":[137]710
  70. 700 [153]""[166]198)[166]E[172]40)"*"
  71. 710 [139] F[177]6 [167] [153]""[166]255)[166]198)[166]F[172]40[171]255)"*":[137]730
  72. 720 [153]""[166]198)[166]F[172]40)"*"
  73. 730 [129] M[178]1[164]750:[130]:[153]"":[137]370
  74. 740 [139] T[178]0 [167]870
  75. 750 Z[178]0:[129] R[178]1[164]10:Z[178]Z[170]A(R):[130]
  76. 760 [139] [182](Z[171]A(11))[178][177].01 [167]940
  77. 770 [141] 140:[153]"(null)UM OF ATNCCOUNTS=(null)OTAL PEEKALANCE":[141] 1000
  78. 780 [139] X [167] [159]1,8,2,"@0:CHBKFILE,WRITE":[137]840
  79. 790 [153]:[153]"(null)EADY?...PRESS (null)
  80. 800 GET A$:IF A$=""THEN800
  81. 810 IF A$="N" THEN880
  82. 820 IF A$<>"Y" THEN780
  83. 830 OPEN1,1,1,"CHBKFILE"
  84. 840 R$=CHR$(13):FOR R=1TO11:PRINT#1,A(R);R$;:NEXT
  85. 850 PRINT#1,D$;R$;:CLOSE1
  86. 855 PRINT T$:PRINT"[196]ATE:"D$:PRINT"[200]AD"T" TRANS.":GOSUB150
  87. 860 PRINT"[206]EW FILE DONE.":END
  88. 870 GOSUB140:PRINT"[206]O TRANSACTIONS.":PRINT"[198]ILE NOT CHANGED.":END
  89. 880 GOSUB140:PRINT"[194]ALANCES HAVE CHANGED."
  90. 890 PRINT"[215]RITE NEW FILE?"
  91. 900 GET A$:IF A$="" THEN900
  92. 910 IF A$="N" THEN END
  93. 920 IF A$<>"Y" THEN880
  94. 930 GOTO360
  95. 935 GOSUB140:PRINT"[197]RROR - [206]O BALANCE.":PRINT"[193]CCT [211]UM="Z
  96. 940 PRINT"[195]HBK [194]ALANCE="A(11)
  97. 950 PRINT"[196]O YOU WISH TO CONTINUE?"
  98. 960 GET A$:IF A$="" THEN960
  99. 970 IF A$="N" THENEND
  100. 980 IF A$<>"Y" THEN940
  101. 990 GOTO360
  102. 1000 PRINT"[201]NSERT DATA DISK OR TAPE"
  103. 1002 PRINT"[208]RESSING '[211][212][207][208]' WILL ABORT SESSION"
  104. 1005 PRINT" (TRANSACTIONS WILL BE LOST)
  105. 1008 [153]" ANY OTHER KEY WILL SAVE DATA."
  106. 1009 [141]1080
  107. 1010 [161] A$:[139] A$[178]"" [167]1010
  108. 1030 [142]
  109. 1050 [153]"RIGHT$NSERT DATA DISK OR TAPE"
  110. 1055 [153]"(null)RESS ANY KEY TO LOAD DATA."
  111. 1058 [141]1080
  112. 1060 [161] A$:[139] A$[178]"" [167]1060
  113. 1070 [142]
  114. 1080 [129] Q[178]S [164] S[170]22:[151] Q,0:[130]
  115. 1090 [151] S[170]5,0:[151] S[170]19,0
  116. 1095 [151] S[170]6,7:[151] S[170]20,7
  117. 1100 [151] S[170]24,15
  118. 1110 [151] S[170]4,33:[151]S[170]18,19
  119. 1120 [151] S,0:[151] S[170]1,75
  120. 1130 [151] S[170]14,1:[151] S[170]15,75
  121. 1135 [151] S[170]4,32:[151]S[170]18,18
  122. 1140 [129] Q[178]1[164]150:[130]
  123. 1150 [151] S[170]1,0:[151] S[170]15,0:[142]
  124. 1160 [129] Q[178]S [164] S[170]22:[151] Q,0:[130]
  125. 1170 [151] S[170]5,15:[151] S[170]12,15
  126. 1175 [151] S[170]3,4:[151]3[170]10,4
  127. 1180 [151] S[170]24,6
  128. 1190 [151] S[170]4,65:[151]S[170]18,65
  129. 1200 [151] S[170]1,12:[151] S[170]8,14
  130. 1210 [129] Q[178]1[164]250:[130]
  131. 1220 [151] S[170]1,0:[151] S[170]8,0:[142]
  132.