home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / BILL-DIVIDER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.9 KB  |  473 lines

  1. 21 PRINT"[147]"
  2. 31 PRINTCHR$(142)
  3. 41 PRINT"[155]                                       ";
  4. 51 PRINT"    [169]                                ";
  5. 61 PRINT"[155][146]                                    ";
  6. 71 PRINT"    [155][146]           AUTO CALC:  AUTOMATIC";
  7. 81 PRINT"        [155][146]               BILL DIVIDER ";
  8. 91 PRINT"            [155][146]                        ";
  9. 101 PRINT"                [155][146]                   ";
  10. 111 PRINT"                   [146][169][155]                  ";
  11. 121 PRINT"                                       ";
  12. 131 PRINT"   BY       [155]                           ";
  13. 141 PRINT"                                     MI";
  14. 151 PRINT"CHAEL J. CREAMER [155]                      ";
  15. 161 PRINT"                                        ";
  16. 171 PRINT"                                        ";
  17. 181 PRINT"                               THIS PRO";
  18. 191 PRINT"GRAM WILL DIVIDE AND ORGANIZE[155]   UP TO ";
  19. 201 PRINT"4 ROOMMATES FOR VARIOUS UTILITY   BILLS;";
  20. 211 PRINT" INCLUDING TELEPHONE, ELECTRIC,   CABLE ";
  21. 221 PRINT"TELEVISION, AND RENT.[155]                  ";
  22. 231 PRINT"                                   A PR";
  23. 241 PRINT"INTED REPORT IS CREATED AT THE      END ";
  24. 251 PRINT"OF THE PROGRAM.[155]                        ";
  25. 261 PRINT"                                       ";
  26. 271 PRINT"  PRESS ANY KEY TO CONTINUE     [155]       ";
  27. 281 PRINT"                                        ";
  28. 291 GETA$:IFA$=""THEN291
  29. 301 REM*******************************
  30. 311 REM
  31. 321 REM MAIN LOOP
  32. 331 REM
  33. 341 REM*******************************
  34. 351 PRINTCHR$(14):PRINT""
  35. 361 PRINT"[147]"
  36. 371 PRINT"[208]ROGRAM [195]USTOMIZING"
  37. 381 PRINT"------- -----------"
  38. 391 PRINT:PRINT"[197]NTER [204][207][195][193][204] PHONE COMPANY: ";:INPUTP1$
  39. 401 PRINT:PRINT"[197]NTER [208][210][201][205][193][210][217] [204]ONG [196]ISTANCE [195]O.:":INPUTP2$
  40. 411 PRINT:PRINT"[197]NTER [211][197][195][207][206][196][193][210][217] [204]ONG [196]ISTANCE [195]O.:":INPUTP3$
  41. 421 PRINT"[197]NTER NUMBER OF ROOMMATES: "
  42. 431 PRINT" (MAXIMUM OF 4)":INPUTNUM
  43. 441 IFNUM<1ORNUM>4THEN361
  44. 451 PRINT"[147]"
  45. 461 FOR I=1TONUM
  46. 471 PRINT"[197]NTER [198][201][210][211][212] NAME OF ROOMMATE #"I":"
  47. 481 INPUTNAME$(I)
  48. 491 PRINT:PRINT:NEXTI
  49. 501 PRINT"[147]"
  50. 511 PRINT"*** [212]ELEPHONE [205]ONTHLY [195]HARGE ***"
  51. 521 PRINT:PRINT
  52. 531 PRINT:INPUT"[197]NTER MONTHLY CHARGE: ";C1
  53. 541 PRINT"[147]"
  54. 551 PRINT"*** [204]OCAL [211]UBSCRIBER [198]EE ***"
  55. 561 PRINT:PRINT
  56. 571 PRINT:INPUT"[197]NTER [212][207][212][193][204] [211]UBSCRIBER [198]EE: ";C2
  57. 581 PRINT"[147]"
  58. 591 PRINT"*** ";P1$;" [204]ONG [196]ISTANCE ***"
  59. 601 PRINT:PRINT
  60. 611 FORI=1TONUM
  61. 621 PRINT
  62. 631 PRINT"[197]NTER [204]ONG [196]ISTANCE FOR ";NAME$(I);":"
  63. 641 PRINT"  ==> [197]NTER 0 TO END <==":PRINT
  64. 651 INPUTHOLD
  65. 661 C3(I)=C3(I)+HOLD
  66. 671 IFHOLD=0THEN691
  67. 681 PRINT"[145]":GOTO651
  68. 691 NEXTI
  69. 701 PRINT"[147]"
  70. 711 PRINT"*** ";P1$;" [212]AX-- [204]OCAL ***"
  71. 721 PRINT:PRINT:INPUT"[197]NTER TOTAL TAX: ";C4
  72. 731 PRINT"[147]"
  73. 741 PRINT"*** ";P1$;" [212]AX-- [213].[211]. ***"
  74. 751 PRINT:PRINT:INPUT"[197]NTER TOTAL TAX: ";C5
  75. 761 PRINT"[147]"
  76. 771 PRINT"*** ";P2$;" [204]ONG [196]ISTANCE ***"
  77. 781 PRINT
  78. 791 FOR I=1TONUM
  79. 801 PRINT:PRINT"[197]NTER [204]ONG [196]ISTANCE FOR ";NAME$(I)":"
  80. 811 PRINT" ==> [197]NTER 0 TO END <=="
  81. 821 INPUTHOLD
  82. 831 M1(I)=M1(I)+HOLD
  83. 841 IFHOLD=0THEN861
  84. 851 PRINT"[145]":GOTO821
  85. 861 PRINT:NEXTI
  86. 871 PRINT"[147]"
  87. 881 PRINT"*** ";P2$;" [211]URCHARGE ***"
  88. 891 PRINT:PRINT:INPUT"[197]NTER TOTAL [211]URCHARGE:";M2
  89. 901 PRINT"[147]"
  90. 911 PRINT"*** ";P2$;" [198]EDERAL [212]AX ***"
  91. 921 PRINT:PRINT:INPUT"[197]NTER TOTAL TAX: ";M3
  92. 931 PRINT"[147]"
  93. 941 PRINT"*** ";P2$;" [194]ONUS [196]ISCOUNTS ***"
  94. 951 PRINT:PRINT:INPUT"[197]NTER TOTAL DISCOUNT:";M4
  95. 961 PRINT"[147]"
  96. 971 PRINT"*** ";P3$;" [204]ONG [196]ISTANCE ***"
  97. 981 PRINT
  98. 991 FOR I=1TONUM
  99. 1001 PRINT:PRINT"[197]NTER [204]ONG [196]ISTANCE FOR ";NAME$(I);":"
  100. 1011 PRINT" ==> [197]NTER 0 TO END <=="
  101. 1021 INPUTHOLD
  102. 1031 A1(I)=A1(I)+HOLD
  103. 1041 IFHOLD=0THEN1061
  104. 1051 PRINT"[145]":GOTO1021
  105. 1061 PRINT:NEXTI
  106. 1071 PRINT"[147]"
  107. 1081 PRINT"*** ";P3$;" [212]AX [211]URCHARGE ***"
  108. 1091 PRINT:INPUT"[197]NTER TOTAL [211]URCHARGE:";A2
  109. 1101 PRINT"[147]"
  110. 1111 PRINT"*** ";P3$;" [212]AX-- [213].[211]. ***"
  111. 1121 PRINT
  112. 1131 PRINT:INPUT"[197]NTER TOTAL [212]AX: ";A3
  113. 1141 PRINT"[147]"
  114. 1151 PRINT"*** [205]ONTHLY [197]LECTRIC [213]SE ***"
  115. 1161 PRINT:INPUT"[197]NTER TOTAL BILL AMOUNT: ";EL
  116. 1171 PRINT"[147]"
  117. 1181 PRINT"*** [195]ABLE [212]ELEVISION [194]ILL ***"
  118. 1191 PRINT:INPUT"[197]NTER TOTAL BILL AMOUNT: ";TV
  119. 1201 PRINT"[147]"
  120. 1211 PRINT"*** [205]ONTHLY [210]ENT ***"
  121. 1221 PRINT:INPUT"[197]NTER [212][207][212][193][204] MONTHLY RENT: ";RT
  122. 1231 PRINT"[147]"
  123. 1241 PRINT"********** [197]NTRY [195]OMPLETE **********"
  124. 1251 REM ************************
  125. 1261 REM *
  126. 1271 REM *
  127. 1281 REM * CALCULATION ROUTINE
  128. 1291 REM *
  129. 1301 REM ************************
  130. 1311 REM
  131. 1321 REM C & P CALCULATIONS
  132. 1331 REM
  133. 1341 N=C1/NUM:GOSUB4551
  134. 1351 FORI=1TONUM
  135. 1361 C1(I)=N
  136. 1371 NEXTI
  137. 1381 :
  138. 1391 N=C2/NUM:GOSUB4551
  139. 1401 FORI=1TONUM
  140. 1411 C2(I)=N
  141. 1421 NEXTI
  142. 1431 :
  143. 1441 FORI=1TONUM
  144. 1451 LD=LD+C3(I)
  145. 1461 NEXTI
  146. 1471 :
  147. 1481 REM DETERMINING PERCENTAGE OF BILL
  148. 1491 IF LD=0 THEN1701
  149. 1501 FORI=1TONUM
  150. 1511 N=(C3(I)/LD)
  151. 1521 GOSUB4551
  152. 1531 P(I)=N
  153. 1541 NEXTI
  154. 1551 :
  155. 1561 REM TAX-- LOCAL
  156. 1571 FORI=1TONUM
  157. 1581 N=(P(I)*C4)
  158. 1591 GOSUB4551
  159. 1601 C4(I)=N
  160. 1611 NEXTI
  161. 1621 :
  162. 1631 REM TAX-- U.S.
  163. 1641 FORI=1TONUM
  164. 1651 N=(P(I)*C5)
  165. 1661 GOSUB4551
  166. 1671 C5(I)=N
  167. 1681 NEXTI
  168. 1691 :
  169. 1701 REM MCI LONG DISTANCE
  170. 1711 FORI=1TONUM
  171. 1721 MD=MD+M1(I)
  172. 1731 NEXTI
  173. 1741 :
  174. 1751 REM DETERMINING PERCENTAGE OF BILL
  175. 1761 IF MD=0 THEN2041
  176. 1771 FORI=1TONUM
  177. 1781 N=(M1(I)/MD)
  178. 1791 GOSUB4551
  179. 1801 P(I)=N
  180. 1811 NEXTI
  181. 1821 :
  182. 1831 REM MCI SURCHARGE
  183. 1841 FORI=1TONUM
  184. 1851 N=(P(I)*M2)
  185. 1861 GOSUB4551
  186. 1871 M2(I)=N
  187. 1881 NEXTI
  188. 1891 :
  189. 1901 REM MCI FEDERAL TAX
  190. 1911 FORI=1TONUM
  191. 1921 N=(P(I)*M3)
  192. 1931 GOSUB4551
  193. 1941 M3(I)=N
  194. 1951 NEXTI
  195. 1961 :
  196. 1971 REM MCI BONUS DISCOUNTS
  197. 1981 FORI=1TONUM
  198. 1991 N=(P(I)*M4)
  199. 2001 GOSUB4551
  200. 2011 M4(I)=N
  201. 2021 NEXTI
  202. 2031 :
  203. 2041 REM AT&T LONG DISTANCE
  204. 2051 FORI=1TONUM
  205. 2061 AD=AD+A1(I)
  206. 2071 NEXTI
  207. 2081 :
  208. 2091 REM DETERMINING PERCENTAGE
  209. 2101 IF AD=0 THEN2311
  210. 2111 FORI=1TONUM
  211. 2121 N=(A1(I)/AD)
  212. 2131 GOSUB4551
  213. 2141 P(I)=N
  214. 2151 NEXTI
  215. 2161 :
  216. 2171 REM TAX SURCHARGE
  217. 2181 FORI=1TONUM
  218. 2191 N=(P(I)*A2)
  219. 2201 GOSUB4551
  220. 2211 A2(I)=N
  221. 2221 NEXTI
  222. 2231 :
  223. 2241 REM TAX U.S.
  224. 2251 FORI=1TONUM
  225. 2261 N=(P(I)*A3)
  226. 2271 GOSUB4551
  227. 2281 A3(I)=N
  228. 2291 NEXTI
  229. 2301 :
  230. 2311 REM ELECTRICITY
  231. 2321 N=(EL/NUM)
  232. 2331 GOSUB4551
  233. 2341 FORI=1TONUM
  234. 2351 EL(I)=N
  235. 2361 NEXTI
  236. 2371 :
  237. 2381 REM CABLE TELEVISION
  238. 2391 N=(TV/NUM)
  239. 2401 GOSUB4551
  240. 2411 FORI=1TONUM
  241. 2421 TV(I)=N
  242. 2431 NEXTI
  243. 2441 :
  244. 2451 REM MONTHLY RENT
  245. 2461 N=(RT/NUM)
  246. 2471 GOSUB4551
  247. 2481 FORI=1TONUM
  248. 2491 RT(I)=N
  249. 2501 NEXTI
  250. 2511 :
  251. 2521 REM TOTALS FOR EACH ROOMMATE
  252. 2531 FORI=1TONUM
  253. 2541 TT(I)=(C1(I)+C2(I)+C3(I)+C4(I)+C5(I)+M1(I)+M2(I)+M3(I)+A1(I)+A2(I))-M4(I)
  254. 2551 SUB(I)=TT(I)+A3(I)
  255. 2561 TT(I)=SUB(I)+EL(I)+TV(I)+RT(I)
  256. 2571 NEXTI
  257. 2581 :
  258. 2591 REM TOTAL CHARGES (ALL COMBINED)
  259. 2601 TT=C1+C2+LD+C4+C5+MD+M2+M3-M4+AD+A2+A3
  260. 2611 SUB=TT
  261. 2621 TT=SUB+EL+TV+RT
  262. 2631 REM CHECK FOR PRINTER AVAILABILITY
  263. 2641 A$=""
  264. 2651 PRINT"[147]"
  265. 2661 PRINT"****************************************"
  266. 2671 PRINT"[145]"
  267. 2681 PRINT"         [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [208][210][201][206][212]"
  268. 2691 PRINT
  269. 2701 PRINT"****************************************"
  270. 2711 GETA$:IFA$=""THEN2711
  271. 2721 PRINT:INPUT"[197]NTER MONTH...";MO$
  272. 2731 PRINT:PRINT:PRINT:PRINT"     [208][210][201][206][212][201][206][199]."
  273. 2741 REM *********************
  274. 2751 REM *
  275. 2761 REM * PRINT ROUTINE
  276. 2771 REM *
  277. 2781 REM *********************
  278. 2791 OPEN4,4,7
  279. 2801 PRINT#4,CHR$(14);"             ";MO$;" BILLS"
  280. 2811 PRINT#4,CHR$(129)
  281. 2821 PRINT#4
  282. 2831 PRINT#4,CHR$(28);
  283. 2841 PRINT#4,"[194]ILL [196]ESCRIPTION";
  284. 2851 PRINT#4,CHR$(16);"30";"[212][207][212] [195]HARGE";
  285. 2861 PRINT#4,CHR$(16);"42";NAME$(1);
  286. 2871 PRINT#4,CHR$(16);"54";NAME$(2);
  287. 2881 PRINT#4,CHR$(16);"66";NAME$(3);
  288. 2891 PRINT#4,CHR$(16);"78";NAME$(4)
  289. 2901 PRINT#4,"--------------------------------------------------";
  290. 2911 PRINT#4,"----------------------------------------------";
  291. 2921 PRINT#4:PRINT#4,P1$
  292. 2931 PRINT#4,"    [205]ONTHLY [195]HARGE";
  293. 2941 PRINT#4,CHR$(16);"30";C1;
  294. 2951 PRINT#4,CHR$(16);"42";C1(1);
  295. 2961 PRINT#4,CHR$(16);"54";C1(2);
  296. 2971 PRINT#4,CHR$(16);"66";C1(3);
  297. 2981 PRINT#4,CHR$(16);"78";C1(4)
  298. 2991 :
  299. 3001 PRINT#4,"    [204]INE [211]UBSCRIBER";
  300. 3011 PRINT#4,CHR$(16);"30";C2;
  301. 3021 PRINT#4,CHR$(16);"42";C2(1);
  302. 3031 PRINT#4,CHR$(16);"54";C2(2);
  303. 3041 PRINT#4,CHR$(16);"66";C2(3);
  304. 3051 PRINT#4,CHR$(16);"78";C2(4)
  305. 3061 :
  306. 3071 PRINT#4,"    [204]ONG [196]ISTANCE";
  307. 3081 PRINT#4,CHR$(16);"30";LD;
  308. 3091 PRINT#4,CHR$(16);"42";C3(1);
  309. 3101 PRINT#4,CHR$(16);"54";C3(2);
  310. 3111 PRINT#4,CHR$(16);"66";C3(3);
  311. 3121 PRINT#4,CHR$(16);"78";C3(4)
  312. 3131 :
  313. 3141 PRINT#4,"    [212]AX-- [213].[211].";
  314. 3151 PRINT#4,CHR$(16);"30";C5;
  315. 3161 PRINT#4,CHR$(16);"42";C5(1);
  316. 3171 PRINT#4,CHR$(16);"54";C5(2);
  317. 3181 PRINT#4,CHR$(16);"66";C5(3);
  318. 3191 PRINT#4,CHR$(16);"78";C5(4)
  319. 3201 :
  320. 3211 PRINT#4,"    [212]AX-- [204]OCAL";
  321. 3221 PRINT#4,CHR$(16);"30";C4;
  322. 3231 PRINT#4,CHR$(16);"42";C4(1);
  323. 3241 PRINT#4,CHR$(16);"54";C4(2);
  324. 3251 PRINT#4,CHR$(16);"66";C4(3);
  325. 3261 PRINT#4,CHR$(16);"78";C4(4)
  326. 3271 :
  327. 3281 PRINT#4:PRINT#4,P2$
  328. 3291 :
  329. 3301 PRINT#4,"    [204]ONG [196]ISTANCE";
  330. 3311 PRINT#4,CHR$(16);"30";MD;
  331. 3321 PRINT#4,CHR$(16);"42";M1(1);
  332. 3331 PRINT#4,CHR$(16);"54";M1(2);
  333. 3341 PRINT#4,CHR$(16);"66";M1(3);
  334. 3351 PRINT#4,CHR$(16);"78";M1(4)
  335. 3361 :
  336. 3371 PRINT#4,"    [211]URCHARGE";
  337. 3381 PRINT#4,CHR$(16);"30";M2;
  338. 3391 PRINT#4,CHR$(16);"42";M2(1);
  339. 3401 PRINT#4,CHR$(16);"54";M2(2);
  340. 3411 PRINT#4,CHR$(16);"66";M2(3);
  341. 3421 PRINT#4,CHR$(16);"78";M2(4)
  342. 3431 :
  343. 3441 PRINT#4,"    [198]EDERAL [212]AX";
  344. 3451 PRINT#4,CHR$(16);"30";M3;
  345. 3461 PRINT#4,CHR$(16);"42";M3(1);
  346. 3471 PRINT#4,CHR$(16);"54";M3(2);
  347. 3481 PRINT#4,CHR$(16);"66";M3(3);
  348. 3491 PRINT#4,CHR$(16);"78";M3(4)
  349. 3501 :
  350. 3511 PRINT#4,"   -[196]ISCOUNTS";
  351. 3521 PRINT#4,CHR$(16);"30";M4;
  352. 3531 PRINT#4,CHR$(16);"42";M4(1);
  353. 3541 PRINT#4,CHR$(16);"54";M4(2);
  354. 3551 PRINT#4,CHR$(16);"66";M4(3);
  355. 3561 PRINT#4,CHR$(16);"78";M4(4)
  356. 3571 :
  357. 3581 PRINT#4:PRINT#4,P3$
  358. 3591 :
  359. 3601 PRINT#4,"    [204]ONG [196]ISTANCE";
  360. 3611 PRINT#4,CHR$(16);"30";AD;
  361. 3621 PRINT#4,CHR$(16);"42";A1(1);
  362. 3631 PRINT#4,CHR$(16);"54";A1(2);
  363. 3641 PRINT#4,CHR$(16);"66";A1(3);
  364. 3651 PRINT#4,CHR$(16);"78";A1(4)
  365. 3661 :
  366. 3671 PRINT#4,"    [212]AX [211]URCHARGE";
  367. 3681 PRINT#4,CHR$(16);"30";A2;
  368. 3691 PRINT#4,CHR$(16);"42";A2(1);
  369. 3701 PRINT#4,CHR$(16);"54";A2(2);
  370. 3711 PRINT#4,CHR$(16);"66";A2(3);
  371. 3721 PRINT#4,CHR$(16);"78";A2(4)
  372. 3731 :
  373. 3741 PRINT#4,"    [212]AX-- [213].[211].";
  374. 3751 PRINT#4,CHR$(16);"30";A3;
  375. 3761 PRINT#4,CHR$(16);"42";A3(1);
  376. 3771 PRINT#4,CHR$(16);"54";A3(2);
  377. 3781 PRINT#4,CHR$(16);"66";A3(3);
  378. 3791 PRINT#4,CHR$(16);"78";A3(4)
  379. 3801 :
  380. 3811 PRINT#4
  381. 3821 PRINT#4,CHR$(27);CHR$(84);
  382. 3831 PRINT#4,"[212]ELEPHONE [212][207][212][193][204]";
  383. 3841 PRINT#4,CHR$(16);"30";SUB;
  384. 3851 PRINT#4,CHR$(16);"42";SUB(1);
  385. 3861 PRINT#4,CHR$(16);"54";SUB(2);
  386. 3871 PRINT#4,CHR$(16);"66";SUB(3);
  387. 3881 PRINT#4,CHR$(16);"78";SUB(4)
  388. 3891 PRINT#4,CHR$(27);CHR$(73);
  389. 3901 :
  390. 3911 PRINT#4
  391. 3921 :
  392. 3931 PRINT#4,"[197]LECTRICITY [213]SE";
  393. 3941 PRINT#4,CHR$(16);"30";EL;
  394. 3951 PRINT#4,CHR$(16);"42";EL(1);
  395. 3961 PRINT#4,CHR$(16);"54";EL(2);
  396. 3971 PRINT#4,CHR$(16);"66";EL(3);
  397. 3981 PRINT#4,CHR$(16);"78";EL(4)
  398. 3991 :
  399. 4001 PRINT#4
  400. 4011 :
  401. 4021 PRINT#4,"[195]ABLE [212]ELEVISION";
  402. 4031 PRINT#4,CHR$(16);"30";TV;
  403. 4041 PRINT#4,CHR$(16);"42";TV(1);
  404. 4051 PRINT#4,CHR$(16);"54";TV(2);
  405. 4061 PRINT#4,CHR$(16);"66";TV(3);
  406. 4071 PRINT#4,CHR$(16);"78";TV(4)
  407. 4081 :
  408. 4091 PRINT#4
  409. 4101 :
  410. 4111 PRINT#4,"[205]ONTHLY [210]ENT";
  411. 4121 PRINT#4,CHR$(16);"30";RT;
  412. 4131 PRINT#4,CHR$(16);"42";RT(1);
  413. 4141 PRINT#4,CHR$(16);"54";RT(2);
  414. 4151 PRINT#4,CHR$(16);"66";RT(3);
  415. 4161 PRINT#4,CHR$(16);"78";RT(4)
  416. 4171 :
  417. 4181 PRINT#4,CHR$(16);"30";"-----------";
  418. 4191 PRINT#4,CHR$(16);"42";"-----------";
  419. 4201 PRINT#4,CHR$(16);"54";"-----------";
  420. 4211 PRINT#4,CHR$(16);"66";"-----------";
  421. 4221 PRINT#4,CHR$(16);"78";"-----------"
  422. 4231 ::
  423. 4241 PRINT#4,CHR$(27);CHR$(84);
  424. 4251 PRINT#4,"[212][160][207][160][212][160][193][160][204][160][211]";
  425. 4261 PRINT#4,CHR$(16);"30";TT;
  426. 4271 PRINT#4,CHR$(16);"42";TT(1);
  427. 4281 PRINT#4,CHR$(16);"54";TT(2);
  428. 4291 PRINT#4,CHR$(16);"66";TT(3);
  429. 4301 PRINT#4,CHR$(16);"78";TT(4)
  430. 4311 PRINT#4,CHR$(27);CHR$(73);
  431. 4321 :
  432. 4331 PRINT#4,CHR$(12);CHR$(24)
  433. 4341 CLOSE4
  434. 4351 REM **** PRINT ANOTHER COPY? ****
  435. 4361 :
  436. 4371 PRINT"[147]"
  437. 4381 PRINT:PRINT:PRINT"  [208]RINT ANOTHER COPY? ([217]/[206])"
  438. 4391 GETA$:IFA$=""THEN4391
  439. 4401 IFA$="Y"ORA$="[217]"THEN2651
  440. 4411 PRINT"[147]"
  441. 4421 PRINT"[201]F YOU HAVE SUGGESTIONS FOR ADDITIONS"
  442. 4431 PRINT"TO THIS PROGRAM, LET ME KNOW!"
  443. 4441 PRINT
  444. 4451 PRINT"[211]END THEM TO ME ON [209]-[204]INK AT "
  445. 4461 PRINT"[205]ICHAEL[195]39, OR ON THE [203]EG"
  446. 4471 PRINT"TO [205]ICHAEL [202]. [195]REAMER (#188)."
  447. 4472 PRINT:PRINT"[207]R TO:"
  448. 4481 PRINT"[205]ICHAEL [195]REAMER"
  449. 4491 PRINT"2305 [205]OUNTAIN [214]IEW [197]STATES"
  450. 4501 PRINT"[194]LACKSBURG, [214][193] 24060-2917"
  451. 4511 PRINT:PRINT:PRINT
  452. 4521 PRINT"[201] HOPE THIS PROGRAM PROVES USEFUL!"
  453. 4531 PRINT
  454. 4541 END
  455. 4551 REM ****************************
  456. 4561 REM *
  457. 4571 REM * NUMBER FORMATTING ROUTINE
  458. 4581 REM *
  459. 4591 REM ****************************
  460. 4601 K=2
  461. 4611 REM
  462. 4621 REM
  463. 4631 X=INT(N*10^(K+1)):X$=STR$(X)
  464. 4641 IFVAL(RIGHT$(X$,1))>4THENX=X+10
  465. 4651 X$=STR$(X):L=LEN(X$):IFL>K+2THEN4691
  466. 4661 N$="0.":IFL=K+2THEN4681
  467. 4671 FORJ=1TO(K+2-L):N$=N$+"0":NEXT
  468. 4681 N$=N$+MID$(X$,2,L-2):GOTO4701
  469. 4691 N$=MID$(X$,2,L-K-2)+"."+MID$(X$,L-K,K)
  470. 4701 REM
  471. 4711 REM
  472. 4721 N=VAL(N$):RETURN
  473.