home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 93 / 093.d81 / eic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  8.1 KB  |  276 lines
  1. 0 dv=peek(186):ifdv<8thendv=8
  2. 1 ifa=0thena=1:load"help-eic",dv,1
  3. 2 ifa=1thena=2:load"notepad",dv,1
  4. 3 poke198,0
  5. 5 dim m0$(20),m1$(20),m2$(20),m3$(20),m4$(20)
  6. 6 dimm9$(20):sp$="          "
  7. 7 dimd$(36):fori=0to20:d$(i)="0":next
  8. 10 poke53280,0:poke53281,0:ad=36864
  9. 20 readx:fori=1tox:readm0$(i):next
  10. 21 readx:fori=1tox:readm1$(i):next
  11. 22 readx:fori=1tox:readm2$(i):next
  12. 24 readx:fori=1tox:readm3$(i):next
  13. 25 readx:fori=1tox:readm4$(i):next
  14. 30 readx:fori=1tox:readm9$(i):next
  15. 33 print"";
  16. 40 sysad,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[197]arned [201]ncome [195]redit"
  17. 50 ifpeek(198)<>1thenend
  18. 55 sysad+15:getdv$:getme$:gethi$:gettx$
  19. 56 dv=asc(dv$):m=asc(me$)and15:h=asc(hi$)and15:tx=asc(tx$)and15
  20. 60 sysad+18:poke198,0:gosub9000
  21. 70 sysad+3,9+64,11,8,m,h,tx,m0$(1),m0$(2),m0$(3),m0$(4),m0$(5),m0$(6),m0$(7),m0$(8),m0$(9)
  22. 80 getk$:k$=str$(asc(k$)-48):k=val(k$)
  23. 85 ifk>3thensysad+18:poke781,21:sys59903
  24. 90 onkgoto 200,300,900,1070,2070,3070,4070,700,40
  25. 95 goto70
  26. 100 :
  27. 200 gosub9300
  28. 210 ifval(w$)=0then275
  29. 220 open15,dv,15,"io":w$="eic."+w$
  30. 225 open2,dv,2,"0:"+w$+",s,r"
  31. 230 input#15,e,e$,e1,e2
  32. 234 poke214,21:print:print"                                    "
  33. 235 poke214,21:print:print"[196]isk [211]tatus:"e;e$:fori=1to2000:next
  34. 236 poke214,21:print:print"                                    "
  35. 240 ifethenclose2:close15:print"[145][198]ile [206]ot [204]oaded":fori=1to2000:next:goto275
  36. 250 fori=0to20:input#2,d$(i):next
  37. 270 close2:close15
  38. 275 gosub9000:goto70
  39. 280 :
  40. 300 gosub9300:ifval(w$)=0then375
  41. 310 w$="eic."+w$
  42. 320 open15,dv,15,"s0:"+w$:close15
  43. 330 open15,dv,15,"io"
  44. 335 open2,dv,2,"0:"+w$+",s,w"
  45. 340 input#15,e,e$,e1,e2
  46. 344 poke214,21:print:print"                                    "
  47. 345 poke214,21:print:print"[196]isk [211]tatus: "e;e$:fori=1to2000:next
  48. 346 poke214,21:print:print"                                    "
  49. 350 ifethenclose2:close15:print"[145][198]ile [206]ot [211]aved":fori=1to2000:next:goto375
  50. 360 fori=0to20:print#2,d$(i):next
  51. 370 close2:close15
  52. 375 gosub9000:goto70
  53. 390 :
  54. 400 d$(7)=str$(val(d$(4))+val(d$(5))+val(d$(6)))
  55. 405 ifval(d$(7))>=21250thend$(7)="[211][212][207][208]":return
  56. 410 remd$(11)=d$(10):ifval(d$(10))>val(d$(9))thend$(11)=d$(9)
  57. 415 d$(14)=d$(13):ifval(d$(13))>val(d$(12))thend$(14)=d$(12)
  58. 420 remd$(16)=d$(15):ifval(d$(15))>val(d$(14))thend$(16)=d$(14)
  59. 425 remd$(19)=d$(18):ifval(d$(18))>val(d$(17))thend$(19)=d$(17)
  60. 430 d$(20)=str$(val(d$(11))+val(d$(16))+val(d$(19)))
  61. 475 return
  62. 480 :
  63. 500 sysad+6,2:sysad+9,1
  64. 505 sys50176,1,3,38,20,tx,0
  65. 510 ky=peek(197)
  66. 515 ifky=3thensys51712,1,3,38,20,7:goto505
  67. 520 ifky=6thenopen15,dv,15,"s0:"+n$:close15:sysad+12,n$,1:goto505
  68. 530 ifky=5then poke147,0:sys57812n$,dv,1:sys62631:sysad+9,1:goto505
  69. 550 sysad+6,1:sysad+9,2:return
  70. 560 :
  71. 600 sysad+6,2:poke646,tx:print"[147]"tab(14)"*** [200][197][204][208] ***"
  72. 601 poke646,m
  73. 602 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  74. 603 fori=1to21:print"[221]                                      [221]";:next
  75. 604 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:poke646,tx
  76. 605 print"              [208]ress [210][197][212][213][210][206]";:poke52346,tx
  77. 606 open2,dv,2,h$+",p,r":sys51968
  78. 610 poke198,0
  79. 615 getk$:ifk$<>chr$(13)then615
  80. 620 close2:sysad+9,2:return
  81. 625 :
  82. 700 poke646,tx
  83. 701 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  84. 702 print"[221]             [197][201][195] [212]otals              [221]"
  85. 704 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  86. 706 print"[221][197]arned [201]ncome (7)                    [221]"
  87. 708 print"[221][194]asic [195]redit (11)                    [221]"
  88. 710 print"[221][200]ealth [201]nsurance [195]redit (16)         [221]"
  89. 712 print"[221][195]hild [194]orn [195]redit (19)               [221]"
  90. 714 print"[221][212][207][212][193][204] [195][210][197][196][201][212] (20)                    [221]"
  91. 724 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  92. 725 fori=217to242:pokei,peek(i)or128:next
  93. 726 gosub9200
  94. 730 print""
  95. 735 printtab(28)right$(sp$+d$(7),10)
  96. 740 printtab(28)right$(sp$+d$(11),10)
  97. 745 printtab(28)right$(sp$+d$(16),10)
  98. 750 printtab(28)right$(sp$+d$(19),10)
  99. 755 printtab(28)right$(sp$+d$(20),10)
  100. 775 getk$:ifk$<>chr$(13)then775
  101. 780 sysad+18:gosub9000:goto70
  102. 785 :
  103. 900 gosub9400:ifw$<>"y"thengosub9000:goto70
  104. 905 poke214,22:print:print"[208]rinting...      "
  105. 910 open4,4,7
  106. 915 print#4,sp$;"[197]arned [201]ncome [195]redit
  107. 920 [152]4,sp$;"-------------------------------------"
  108. 922 [129]i[178]1[164]5:[152]4,sp$;[200](m1$(i),27)[170][201](sp$[170]d$(i[170]3),10):[130]:[152]4
  109. 925 [129]i[178]1[164]3:[152]4,sp$;[200](m2$(i),27)[170][201](sp$[170]d$(i[170]8),10):[130]:[152]4
  110. 930 [129]i[178]1[164]5:[152]4,sp$;[200](m3$(i),27)[170][201](sp$[170]d$(i[170]11),10):[130]:[152]4
  111. 935 [129]i[178]1[164]3:[152]4,sp$;[200](m4$(i),27)[170][201](sp$[170]d$(i[170]16),10):[130]:[152]4
  112. 970 [152]4,sp$;"(NULL)(NULL)(NULL)atn(NULL) len(NULL)valstr$right$(NULL)               "[170][201](sp$[170]d$(20),10):[152]4
  113. 990 [152]4:[160]4:[141]9000:[137]70
  114. 995 :
  115. 1000 [158]ad[170]3,9[170]64,1,8,m,h,tx,m1$(1),m1$(2),m1$(3),m1$(4),m1$(5),m1$(6),m1$(7),m1$(8),m1$(9)
  116. 1010 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
  117. 1020 [139]k[178]9[167][158]ad[170]18:[137]70
  118. 1025 [139]k[178]8[167]h$[178]"eic.h1":[141]600:[137]1000
  119. 1030 [139]k[178]6[167]n$[178]"eic.n1":[141]500:[137]1000
  120. 1035 [139]k[178]7[167][141]9500:[137]1000
  121. 1045 [139]k[178]4[167]1000
  122. 1050 [141]9100:[139][195](w$)[178]0[167]1000
  123. 1055 d$(k[170]3)[178]w$
  124. 1067 [141]400
  125. 1070 [129]i[178]1[164]5:m1$(i)[178][200](m1$(i),27)[170][201](sp$[170]d$(i[170]3),10):[130]
  126. 1075 [137]1000
  127. 1080 :
  128. 2000 [158]ad[170]3,7[170]64,1,8,m,h,tx,m2$(1),m2$(2),m2$(3),m2$(4),m2$(5),m2$(6),m2$(7)
  129. 2010 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
  130. 2020 [139]k[178]7[167][158]ad[170]18:[137]70
  131. 2025 [139]k[178]6[167]h$[178]"eic.h2":[141]600:[137]2000
  132. 2030 [139]k[178]4[167]n$[178]"eic.n2":[141]500:[137]2000
  133. 2035 [139]k[178]5[167][141]9500:[137]2000
  134. 2040 [143]ifk=3then2000
  135. 2050 [141]9100:[139][195](w$)[178]0[167]2000
  136. 2055 d$(k[170]8)[178]w$:[141]400
  137. 2070 [129]i[178]1[164]3:m2$(i)[178][200](m2$(i),27)[170][201](sp$[170]d$(i[170]8),10):[130]
  138. 2087 [137]2000
  139. 2090 :
  140. 3000 [158]ad[170]3,9[170]64,1,8,m,h,tx,m3$(1),m3$(2),m3$(3),m3$(4),m3$(5),m3$(6),m3$(7),m3$(8),m3$(9)
  141. 3010 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
  142. 3020 [139]k[178]9[167][158]ad[170]18:[137]70
  143. 3025 [139]k[178]8[167]h$[178]"eic.h3":[141]600:[137]3000
  144. 3030 [139]k[178]7[167][141]9500:[137]3000
  145. 3035 [139]k[178]6[167]n$[178]"eic.n3":[141]500:[137]3000
  146. 3040 [139]k[178]3[167]3000
  147. 3041 [143]ifk=5then3000
  148. 3050 [141]9100:[139][195](w$)[178]0[167]3000
  149. 3052 d$(k[170]11)[178]w$:[141]400
  150. 3070 [129]i[178]1[164]5:m3$(i)[178][200](m3$(i),27)[170][201](sp$[170]d$(i[170]11),10):[130]
  151. 3085 [137]3000
  152. 3090 :
  153. 4000 [158]ad[170]3,7[170]64,1,8,m,h,tx,m4$(1),m4$(2),m4$(3),m4$(4),m4$(5),m4$(6),m4$(7)
  154. 4010 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
  155. 4020 [139]k[178]7[167][158]ad[170]18:[137]70
  156. 4025 [139]k[178]6[167]h$[178]"eic.h4":[141]600:[137]4000
  157. 4030 [139]k[178]5[167][141]9500:[137]4000
  158. 4035 [139]k[178]4[167]n$[178]"eic.n4":[141]500:[137]4000
  159. 4040 [143]ifk=3then4000
  160. 4050 [141]9100:[139][195](w$)[178]0[167]4000
  161. 4055 d$(k[170]16)[178]w$:[141]400
  162. 4070 [129]i[178]1[164]3:m4$(i)[178][200](m4$(i),27)[170][201](sp$[170]d$(i[170]16),10):[130]
  163. 4085 [137]4000
  164. 4090 :
  165. 9000 [151]214,21:[153]:[153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  166. 9005 [153]"(NULL)  (NULL)se lenursor (NULL)eys/(NULL)val(NULL)(NULL)(NULL)(NULL) to select.   (NULL)";
  167. 9010 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
  168. 9015 [142]
  169. 9100 [141]9600:[151]646,tx
  170. 9105 [151]214,22:[153]:[153]"valnter: ";
  171. 9110 [158]49152[170]3,tx,tx,9
  172. 9115 [141]9000:[142]
  173. 9200 [151]214,21:[153]:[153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  174. 9205 [153]"(NULL)             (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)             (NULL)";
  175. 9210 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
  176. 9215 [142]
  177. 9300 [141]9600:[151]646,tx
  178. 9305 [151]214,22:[153]:[153]"valnter (NULL)ear: ";
  179. 9310 [158]49152[170]3,tx,tx,4
  180. 9315 [142]
  181. 9320 :
  182. 9400 [141]9600:[151]646,tx
  183. 9405 [151]214,22:[153]:[153]"(NULL)rinter (NULL)eady? ";
  184. 9410 [158]49152,tx,tx,1
  185. 9415 [142]
  186. 9420 :
  187. 9500 [158]ad[170]18:[151]646,m
  188. 9501 [153]""[163]9)"ortantantantantantantantantantantantantantantantantantan^"
  189. 9502 [153][163]9)"(NULL)                  (NULL)"
  190. 9503 [153][163]9)"/tantantantantantantantantantantantantantantantantantanexp"
  191. 9504 ac[178]0:ac$[178]"0"
  192. 9505 ac$[178][201](sp$[170]ac$,10):[151]646,tx
  193. 9506 [153]""[163]17)ac$
  194. 9510 [158]ad[170]3,6[170]64,10,9,m[170]64,h,tx,m9$(1),m9$(2),m9$(3),m9$(4),m9$(5),m9$(6)
  195. 9520 [161]k$:k$[178][196]([198](k$)[171]48):k[178][197](k$)
  196. 9525 [139]k[178]6[167][158]ad[170]18:[142]
  197. 9530 [139]k[178]1[167]ac[178]0:[137]9565
  198. 9535 [141]9100
  199. 9540 w[178][197](w$):[139]w[178]0[167]9505
  200. 9545 [139]k[178]2[167]ac[178]ac[170]w
  201. 9550 [139]k[178]3[167]ac[178]ac[171]w
  202. 9555 [139]k[178]4[167]ac[178]ac[172]w
  203. 9560 [139]k[178]5[167]ac[178]ac[173]w
  204. 9565 ac$[178][196](ac):[137]9505
  205. 9570 :
  206. 9600 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  207. 9602 [151]214,22:[153]:[153]"                                    "
  208. 9605 [142]
  209. 9610 :
  210. 10000 [159]15,8,15,"s0:eic":[160]15:[148]"0:eic",8:[128]
  211. 10998 :
  212. 10999 [143] menu0
  213. 11000 [131] 9
  214. 11001 [131] "(NULL)oad ascile         "
  215. 11002 [131] "(NULL)ave ascile         "
  216. 11003 [131] "(NULL)rint ascile        "
  217. 11004 [131] "valarned right$ncome lenred"
  218. 11005 [131] "peekasic lenredit      "
  219. 11007 [131] "left$ealth right$ns. lenredit"
  220. 11008 [131] "lenhild peekorn lenredit "
  221. 11009 [131] "(NULL)otals            "
  222. 11014 [131] "(NULL)ain (NULL)enu         "
  223. 11015 :
  224. 11099 [143] menu1
  225. 11100 [131] 9
  226. 11101 [131] " 4. (NULL)ine 7, 1040                     "
  227. 11102 [131] " 5. (NULL)ontaxable income               0"
  228. 11103 [131] " 6. (NULL)elf-valmp. income                0"
  229. 11104 [131] " 7. (NULL)(NULL)(NULL)atn(NULL)                           0"
  230. 11105 [131] " 8. (NULL)ine 32, 1040                   0"
  231. 11106 [131] "(NULL)otepad                              "
  232. 11107 [131] "lenalculator                           "
  233. 11108 [131] "left$elp                                 "
  234. 11109 [131] "(NULL)ain (NULL)enu                            "
  235. 11113 :
  236. 11199 [143] menu2
  237. 11200 [131] 7
  238. 11201 [131] " 9. (NULL)ee left$val(NULL)(NULL) ((NULL)able atn)              0"
  239. 11202 [131] "10. (NULL)ee left$val(NULL)(NULL)                        0"
  240. 11203 [131] "11. peekatn(NULL)right$len len(NULL)valstr$right$(NULL)                    0"
  241. 11210 [131] "(NULL)otepad                              "
  242. 11211 [131] "lenalculator                           "
  243. 11212 [131] "left$elp                                 "
  244. 11213 [131] "(NULL)ain (NULL)enu                            "
  245. 11214 :
  246. 11300 [131] 9
  247. 11301 [131] "12. left$ealth insurance cost           0"
  248. 11302 [131] "13. (NULL)ee left$val(NULL)(NULL) ((NULL)able peek)              0"
  249. 11303 [131] "14. (NULL)maller of 13 or 14             0"
  250. 11304 [131] "15. (NULL)ee left$val(NULL)(NULL)                        0"
  251. 11305 [131] "16. left$valatn(NULL)(NULL)left$ right$(NULL)(NULL)(NULL)(NULL)atn(NULL)lenval len(NULL)valstr$right$(NULL)         0"
  252. 11309 [131] "(NULL)otepad                              "
  253. 11310 [131] "lenalculator                           "
  254. 11311 [131] "left$elp                                 "
  255. 11312 [131] "(NULL)ain (NULL)enu                            "
  256. 11313 :
  257. 11399 [143] menu4
  258. 11400 [131] 7
  259. 11401 [131] "17. (NULL)ee left$val(NULL)(NULL) ((NULL)able len)              0"
  260. 11402 [131] "18. (NULL)ee left$val(NULL)(NULL)                        0"
  261. 11403 [131] "19. lenleft$right$(NULL)str$ peek(NULL)(NULL)(NULL) len(NULL)valstr$right$(NULL)               0"
  262. 11409 [131] "(NULL)otepad                              "
  263. 11410 [131] "lenalculator                           "
  264. 11411 [131] "left$elp                                 "
  265. 11412 [131] "(NULL)ain (NULL)enu                            "
  266. 11413 :
  267. 11499 [143] menu5
  268. 11899 [143] menu9
  269. 11900 [131] 6
  270. 11901 [131] "(NULL)ero atnccumulator  "
  271. 11902 [131] "atndd to atncc.       "
  272. 11903 [131] "(NULL)ubtract from atncc."
  273. 11904 [131] "(NULL)ultiply atncc.     "
  274. 11905 [131] "str$ivide atncc.       "
  275. 11906 [131] "valxit              "
  276.