home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / COMMODOR / 64BUDGET.ARC / BUDGET.INSTRUCT (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  7KB  |  184 lines
  1. 10 PRINT"[147][144]";:POKE53281,12:POKE53280,12:PRINTCHR$(14)
  2. 20 FORI=1TO23
  3. 30 READA$
  4. 40 IFA$="[157]"THENGOSUB80:END
  5. 50 PRINTA$
  6. 60 NEXT
  7. 70 GOSUB80:GOTO20
  8. 80 PRINT"      PRESS A KEY TO CONTINUE[146]";
  9. 90 GETB$:IFB$=""THEN90
  10. 100 PRINT"[147]":RETURN
  11. 10000 DATA"
  12. 10010 [131]"           PEEK(null)STR$CHR$VAL(null) (null)(null)ATN(null)(null)VAL(null)
  13. 10020 DATA"
  14. 10030 [131]"            RIGHT$NSTRUCTIONS
  15. 10040 DATA"
  16. 10050 [131]"LEFT$OME PEEKUDGET (null)LANNER, BY LENHARLES 
  17. 10060 DATA"[211]ILBERGLEITH, WAS FIRST PUBLISHED IN 
  18. 10070 [131]"LENOMPUTE!'S CHR$AZETTE, STR$EC. 1983. (null)HIS IS 
  19. 10080 DATA"AN EHANCED VERSION BY [205]IKE 
  20. 10090 [131]"(null)OZAKIEWICZ.
  21. 10100 DATA"
  22. 10110 [131]"PEEKUDGET (null)LANNER IS USED FOR THAT 
  23. 10120 DATA"PERIODIC FUNCTION OF PREPARING THE HOME
  24. 10130 [131]"BUDGET. (null)SE IT TO FIND OUT IF THERE IS 
  25. 10140 DATA"GOING TO BE ANY MONEY LEFT FOR THE 
  26. 10150 [131]"THINGS THAT YOU WANT TO DO AFTER YOU 
  27. 10160 DATA"HAVE PAID THE BILLS YOU NEED TO PAY.
  28. 10170 [131]"
  29. 10180 DATA"[194]UDGET [208]LANNER IS COMPRISED OF THREE 
  30. 10190 [131]"FILES. (null)(null)ATNSTR$ AND (null)(null)(null) PEEKUDGET.PEEKOOT. RIGHT$T  
  31. 10200 DATA"LOADS THE MACHINE LANGUAGE PORTION OF 
  32. 10210 [131]"THE THE PROGRAM, THEN IT LOADS AND RUNS
  33. 10220 DATA"THE [194][193][211][201][195] PART. [194]UDGET [208]LANNER IS THE 
  34. 10230 [131]"PEEKATN(null)RIGHT$LEN PART, AND PEEKUDGET.ML IS THE 
  35. 10240 DATA"MACHINE LANGUAGE PART
  36. 10250 [131]"
  37. 10260 DATA"[217]OU WILL NOT NEED TO MAKE OUT A 
  38. 10270 [131]"COMPLETELY NEW BUDGET EACH MONTH. 
  39. 10280 DATA"[194]UDGET [208]LANNER ALLOWS YOU TO SAVE YOUR 
  40. 10290 [131]"BUDGET TO DISK, READ IN AN OLD BUDGET 
  41. 10300 DATA"FROM DISK, AND MODIFY A BUDGET. [201]TS 
  42. 10310 [131]"MENU BASED FORMAT MAKES PEEKUDGET (null)LANNER 
  43. 10320 DATA"EASY TO USE. [213]SE THE FUNCTION KEYS TO 
  44. 10330 [131]"SELECT MENU OPTIONS. (null)HE MENU CHOICES 
  45. 10340 DATA"ARE AS FOLLOWS.
  46. 10350 [131]"
  47. 10360 DATA"     1. [196]ISPLAY [197]XPENSES
  48. 10370 [131]"     2. ATNDD (null)EW VALXPENSES
  49. 10380 DATA"     3. [213]PDATE [197]XPENSE [204]IST
  50. 10390 [131]"     4. (null)AVE VALXPENSE (null)IST
  51. 10400 DATA"     5. [196]ELETE [197]XPENSES
  52. 10410 [131]"     6. (null)PTIONS (null)CREEN
  53. 10420 DATA"     7. [204]OAD/[205]ERGE [198]ILES
  54. 10430 [131]"     8. VALND THE (null)ROGRAM
  55. 10440 DATA"
  56. 10450 [131]"(null)OTE THAT ANY MENU SELECTION, ONCE 
  57. 10460 DATA"ENTERRED, MAY BE EXITTED WITHOUT 
  58. 10470 [131]"PERFORMING THE MENU CHOICE. (null)O EXIT THE
  59. 10480 DATA"OPTION, RESPOND *END TO THE FIRST 
  60. 10490 [131]"QUESTION YOU ARE ASKED.
  61. 10500 DATA"
  62. 10510 [131]"(null)PTION 1 CAUSES A LIST OF YOUR EXPENSES
  63. 10520 DATA"TO APPEAR ON THE SCREEN. [217]OUR EXPENSE 
  64. 10530 [131]"LIST MAY BE TOO LARGE TO BE DISPLAYED 
  65. 10540 DATA"ALL AT ONE TIME IN THE [196]ISPLAY EXPENSES
  66. 10550 [131]"OPTION. (null)HE 'LENURSOR (null)P' AND 'LENURSOR 
  67. 10560 DATA"[196]OWN' KEYS WORK IN THE [196]ISPLAY OPTION 
  68. 10570 [131]"TO SCROLL YOUR EXPENSE LIST UP AND 
  69. 10580 DATA"DOWN. [215]HEN IN [207]PTION 1, THE F1 KEY WILL
  70. 10590 [131]"CAUSE THE LIST TO SCROLL AHEAD 20 
  71. 10600 DATA"ITEMS. [201]F YOU HAVE A PRINTER ATTACHED, 
  72. 10610 [131]"THE PEEKRITISH POUND SIGN (\) WILL DUMP 
  73. 10620 DATA"WHATEVER IS ON THE SCREEN TO THE 
  74. 10630 [131]"PRINTER. (null)HE SCREEN DUMP WORKS FROM ANY
  75. 10640 DATA"SCREEN ONCE THE PROGRAM HAS BEEN RUN.
  76. 10650 [131]"
  77. 10660 DATA"[206]OTICE THAT THE EXPENSE LIST IS SORTED 
  78. 10670 [131]"BY (null)EEK STR$UE. (null)HENEVER THE EXPENSE LIST 
  79. 10680 DATA"IS MODIFIED, THE LIST IS RESORTED. [212]HE 
  80. 10690 [131]"TOTAL DUE FOR THE MONTH IS RECALCULATED
  81. 10700 DATA"ALSO WHENEVER THE LIST IS CHANGED.
  82. 10710 [131]"
  83. 10720 DATA"[207]PTION 2 ALLOWS YOU TO ADD [206]EW [197]XPENSES
  84. 10730 [131]"TO THE LIST. (null)HE LIST IS RESORTED AT 
  85. 10740 DATA"THE END OF THIS STEP. [217]OU ARE PROMPTED 
  86. 10750 [131]"FOR AN ITEM'S NAME, AMOUNT, AND WEEK 
  87. 10760 DATA"DUE. [212]HE NEW ITEM IS ASSIGNED AN ITEM 
  88. 10770 [131]"NUMBER. VALND THE ADDITION OF NEW 
  89. 10780 DATA"EXPENSES BY ANSWERING *END TO THE 
  90. 10790 [131]"PROMPT FOR A NEW ITEM NAME.
  91. 10800 DATA"
  92. 10810 [131]"RIGHT$TEM NUMBERS ARE IMPORTANT FOR YOU TO 
  93. 10820 DATA"KNOW WHEN USING THE [213]PDATE AND [196]ELETE 
  94. 10830 [131]"OPTIONS. (null)HESE FUNCTIONS ASK FOR AN 
  95. 10840 DATA"ITEM NUMBER TO PROCESS. [212]HEREFORE, LIST
  96. 10850 [131]"THE EXPENSES BEFORE ATTEMPTING TO 
  97. 10860 DATA"[213]PDATE OR DELETE EXPENSES.
  98. 10870 [131]"
  99. 10880 DATA"[207]PTION 3, THE [213]PDATE [197]XPENSES OPTION 
  100. 10890 [131]"ALLOWS YOU TO ALTER THE NAME, AMOUNT, 
  101. 10900 DATA"AND WEEK DUE FOR ANY ITEM NUMBER. [212]HE 
  102. 10910 [131]"CURRENT VALUES FOR THE ITEM ARE 
  103. 10920 DATA"DISPLAYED AT THE TOP OF THE SCREEN. [201]F 
  104. 10930 [131]"YOU DO NOT WANT TO CHANGE A VALUE, JUST
  105. 10940 DATA"PRESS [210][197][212][213][210][206] IN REPLY TO THE PROMPT, 
  106. 10950 [131]"AND THE OLD VALUE WILL BE RETAINED. ASCOR
  107. 10960 DATA"EXAMPLE, SUPPOSE THAT ITEM #1 WAS 
  108. 10970 [131]"VALLECTRICITY, ITS AMOUNT DUE WAS $35, 
  109. 10980 DATA"AND ITS WEEK DUE WAS 3. [206]EXT MONTH YOU 
  110. 10990 [131]"MAY NEED TO CHANGE THE AMOUNT DUE, BUT 
  111. 11000 DATA"THE NAME AND WEEK DUE WILL STAY THE 
  112. 11010 [131]"SAME. (null)O WHEN YOU UPDATE ITEM 1, JUST 
  113. 11020 DATA"PRESS [210][197][212][213][210][206] WHEN PROMPTED FOR NEW 
  114. 11030 [131]"VALUES FOR ITEM NAME AND WEEK DUE, BUT 
  115. 11040 DATA"ENTER THE NEW AMOUNT DUE.
  116. 11050 [131]"
  117. 11060 DATA"[207]PTION 4 : WHEN YOUR LIST IS ALL DONE, 
  118. 11070 [131]"YOU CAN SAVE IT TO DISK. (null)OU WILL BE 
  119. 11080 DATA"PROMPTED TO EITHER SUPPLY A NAME FOR 
  120. 11090 [131]"THE FILE, OR TO ENTER $. RIGHT$F YOU ENTER 
  121. 11100 DATA"$, A COPY OF THE CURRENT DISK DIRECTORY
  122. 11110 [131]"WILL SCROLL ACROSS YOUR SCREEN. (null)RESS 
  123. 11120 DATA"THE SPACE BAR TO TEMPORARILY STOP THE 
  124. 11130 [131]"SCROLLING, THEN PRESS IT AGAIN TO 
  125. 11140 DATA"COMPLETE THE DIRECTORY LIST.
  126. 11150 [131]"
  127. 11160 DATA"[196]ISK ERRORS ARE TRAPPED. [198]OR EXAMPLE, 
  128. 11170 [131]"IF YOU SUPPLY A FILE NAME FOR YOUR NEW 
  129. 11180 DATA"LIST AND THE NAME ALREADY EXISTS ON 
  130. 11190 [131]"YOUR DISK, YOU WILL BE INFORMED OF THE 
  131. 11200 DATA"MISTAKE. [194]UT THE PROGRAM WILL NOT 
  132. 11210 [131]"'PEEK(null)(null)PEEK' BECAUSE OF YOUR ERROR.
  133. 11220 DATA"
  134. 11230 [131]"(null)PTION 5 ALLOWS YOU TO ELIMINATE 
  135. 11240 DATA"ITEM(S) FROM YOUR EXPENSES LIST. [193]S 
  136. 11250 [131]"MENTIONED ABOVE, YOU MUST KNOW THE ITEM
  137. 11260 DATA"NUMBER(S) OF THE EXPENSE(S) TO BE 
  138. 11270 [131]"DELETED. ATNS YOU HAVE ALREADY GUESSED 
  139. 11280 DATA"FROM ALL OF THE (S)'S, YOU MAY DELETE 
  140. 11290 [131]"ONE ITEM OR A BLOCK OF ITEMS. (null)O DELETE
  141. 11300 DATA"ONE ITEM ONLY, PRESS [210][197][212][213][210][206] INSTEAD OF 
  142. 11310 [131]"SUPPLYING AN ITEM NUMBER TO THE SECOND 
  143. 11320 DATA"PROMPT.
  144. 11330 [131]"
  145. 11340 DATA"[207]PTION 6 DISPLAYS THE [207]PTIONS [204]IST. [215]HY
  146. 11350 [131]"IS THAT USEFUL? (null)SE F6 TO RETURN TO THE
  147. 11360 DATA"[207]PTIONS [204]IST FROM THE [196]ISPLAY [197]XPENSES 
  148. 11370 [131]"OPTION. (null)OU ARE REMINDED OF THIS AT THE
  149. 11380 DATA"BOTTOM OF THE [196]ISPLAY [197]XPENSES SCREEN
  150. 11390 [131]"
  151. 11400 DATA"[207]PTION 7 ALLOWS YOU TO LOAD IN LAST 
  152. 11410 [131]"MONTHS FILE, AND USE IT AS A BASIS FOR 
  153. 11420 DATA"THIS MONTHS BUDGET. [217]OU ARE PRESENTED 
  154. 11430 [131]"WITH THREE SUB-OPTIONS: L/M/$. ATNS WITH 
  155. 11440 DATA"[211]AVE, $ CAUSES THE DISK DIRECTORY TO BE
  156. 11450 [131]"DISPLAYED. RIGHT$F YOU ENTER L, THE PROGRAM 
  157. 11460 DATA"PROMPTS YOU FOR A FILE NAME TO LOAD. 
  158. 11470 [131]"ATNGAIN, DISK ERRORS ARE TRAPPED AS IN 
  159. 11480 DATA"THE [211]AVE OPTION.
  160. 11490 [131]"
  161. 11500 DATA"[201]F YOU SELECT SUB-OPTION M, YOU WILL 
  162. 11510 [131]"ALSO BE PROMPTED FOR A FILE NAME. PEEKUT 
  163. 11520 DATA"THIS TIME A MERGE WILL BE DONE. [212]HE 
  164. 11530 [131]"ITEMS IN THE INPUT FILE WILL BE 
  165. 11540 DATA"COMPARED TO THE ITEMS IN THE FILE 
  166. 11550 [131]"CURRENTLY BEING USED. RIGHT$F THE ITEMS 
  167. 11560 DATA"MATCH, THE AMOUNTS WILL BE AVERAGED. [201]F
  168. 11570 [131]"THEY DO NOT MATCH, THE INPUT ITEM IS 
  169. 11580 DATA"ADDED TO THE LIST. [212]HIS STRANGE PROCESS
  170. 11590 [131]"IS ONE RIGHT$ HAVE NEVER USED.
  171. 11600 DATA"
  172. 11610 [131]"ASCINALLY, SELECT (null)PTION 8 TO END THE 
  173. 11620 DATA"PROGRAM. [202]UST IN CASE YOU FORGOT TO DO 
  174. 11630 [131]"SO PRIOR TO SELECTION OF THIS OPTION, 
  175. 11640 DATA"[207]PTION 8 GIVES YOU THE OPPORTUNITY TO 
  176. 11650 [131]"(null)AVE YOUR BUDGET BEFORE QUITTING.
  177. 11660 DATA"
  178. 11670 [131]"
  179. 11680 DATA"               [205]IKE [203]OZAKIEWICZ
  180. 11690 [131]"               175 (null)HARON STR$R.
  181. 11700 DATA"               [210]OCHESTER, [206][217] 14626
  182. 11710 [131]"               (null)(null)ATN
  183. 11720 DATA"[157]
  184.