home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 93 / 093.d81 / 3903 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  9.5 KB  |  324 lines
  1. 0 dv=peek(186):ifdv<8thendv=8
  2. 1 ifa=0thena=1:load"help-3903",dv,1
  3. 2 ifa=1thena=2:load"notepad",dv,1
  4. 3 poke198,0:f1=0:f2=0
  5. 5 dim m0$(20),m1$(20),m2$(20),m3$(20),m4$(20),m5$(20),m6$(20),m7$(20),m8$(20)
  6. 6 dimm9$(20):sp$="          "
  7. 7 dimd$(22):fori=0to22:d$(i)="0":next
  8. 8 d$(21)="3000":d$(19)="1500"
  9. 10 poke53280,0:poke53281,0:ad=36864
  10. 20 readx:fori=1tox:readm0$(i):next
  11. 21 readx:fori=1tox:readm1$(i):next
  12. 22 readx:fori=1tox:readm2$(i):next
  13. 23 readx:fori=1tox:readm3$(i):next
  14. 24 readx:fori=1tox:readm4$(i):next
  15. 25 readx:fori=1tox:readm5$(i):next
  16. 29 readx:fori=1tox:readm9$(i):next
  17. 30 print"";
  18. 40 sysad,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[198]orm 3903"
  19. 50 ifpeek(198)<>1thenend
  20. 55 sysad+15:getdv$:getme$:gethi$:gettx$
  21. 56 dv=asc(dv$):m=asc(me$)and15:h=asc(hi$)and15:tx=asc(tx$)and15
  22. 60 sysad+18:poke198,0:gosub9000
  23. 70 sysad+3,10+64,11,7,m,h,tx,m0$(1),m0$(2),m0$(3),m0$(4),m0$(5),m0$(6),m0$(7),m0$(8),m0$(9),m0$(10)
  24. 80 getk$:k$=str$(asc(k$)-48):k=val(k$)
  25. 85 ifk>3thensysad+18
  26. 90 onkgoto 200,300,900,1080,2075,3075,4075,5050,700,40
  27. 95 goto70
  28. 100 :
  29. 200 gosub9300
  30. 210 ifval(w$)=0then275
  31. 220 open15,dv,15,"io":w$="3903."+w$
  32. 225 open2,dv,2,"0:"+w$+",s,r"
  33. 230 input#15,e,e$,e1,e2
  34. 234 poke214,21:print:print"                                    "
  35. 235 poke214,21:print:print"[196]isk [211]tatus:"e;e$:fori=1to2000:next
  36. 236 poke214,21:print:print"                                    "
  37. 240 ifethenclose2:close15:print"[145][198]ile [206]ot [204]oaded":fori=1to2000:next:goto275
  38. 250 fori=0to22:input#2,d$(i):next
  39. 270 close2:close15
  40. 275 gosub9000:goto70
  41. 280 :
  42. 300 gosub9300:ifval(w$)=0then375
  43. 310 w$="3903."+w$
  44. 320 open15,dv,15,"s0:"+w$:close15
  45. 330 open15,dv,15,"io"
  46. 335 open2,dv,2,"0:"+w$+",s,w"
  47. 340 input#15,e,e$,e1,e2
  48. 344 poke214,21:print:print"                                    "
  49. 345 poke214,21:print:print"[196]isk [211]tatus: "e;e$:fori=1to2000:next
  50. 346 poke214,21:print:print"                                    "
  51. 350 ifethenclose2:close15:print"[145][198]ile [206]ot [211]aved":fori=1to2000:next:goto375
  52. 355 gosub400
  53. 360 fori=0to22:print#2,d$(i):next
  54. 370 close2:close15
  55. 375 gosub9000:goto70
  56. 390 :
  57. 400 x1=1500:x2=3000:iff1thenx1=750:x2=1500
  58. 405 d$(18)=d$(13)
  59. 410 d$(19)=d$(18):ifval(d$(18))>x1thend$(19)=str$(x1)
  60. 415 d$(20)=str$(val(d$(14))+val(d$(15))+val(d$(16))+val(d$(17))+val(d$(19)))
  61. 420 d$(21)=d$(20):ifval(d$(20))>x2thend$(21)=str$(x2)
  62. 425 d$(22)=str$(val(d$(4))+val(d$(8))+val(d$(21)))
  63. 430 d$(0)=d$(22):return
  64. 435 :
  65. 500 sysad+6,2:sysad+9,1
  66. 505 sys50176,1,3,38,20,tx,0
  67. 510 ky=peek(197)
  68. 515 ifky=3thensys51712,1,3,38,20,7:goto505
  69. 520 ifky=6thenopen15,dv,15,"s0:"+n$:close15:sysad+12,n$,1:goto505
  70. 530 ifky=5then poke147,0:sys57812n$,dv,1:sys62631:sysad+9,1:goto505
  71. 550 sysad+6,1:sysad+9,2:return
  72. 560 :
  73. 600 sysad+6,2:poke646,tx:print"[147]"tab(14)"*** [200][197][204][208] ***"
  74. 601 poke646,m
  75. 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]";
  76. 603 fori=1to21:print"[221]                                      [221]";:next
  77. 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
  78. 605 print"              [208]ress [210][197][212][213][210][206]";:poke52346,tx
  79. 606 open2,dv,2,h$+",p,r":sys51968
  80. 610 poke198,0
  81. 615 getk$:ifk$<>chr$(13)then615
  82. 620 close2:sysad+9,2:return
  83. 625 :
  84. 700 poke646,tx
  85. 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]"
  86. 702 print"[221]        [212]otals for [198]orm 3903         [221]"
  87. 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]"
  88. 706 print"[221][212]ransportation                       [221]"
  89. 708 print"[221][205]oving [197]xpenses                      [221]"
  90. 710 print"[221][208]re-[205]oving [197]xpenses                  [221]"
  91. 712 print"[221][210]eal [197]state [197]xpenses                 [221]"
  92. 720 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]"
  93. 722 print"[221][212][207][212][193][204] [193]llowed                        [221]"
  94. 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]"
  95. 725 fori=217to242:pokei,peek(i)or128:next
  96. 726 gosub9200
  97. 730 print""
  98. 735 printtab(28)right$(sp$+d$(4),10)
  99. 740 printtab(28)right$(sp$+d$(8),10)
  100. 745 printtab(28)right$(sp$+d$(13),10)
  101. 750 x$=str$(val(d$(14))+val(d$(15))+val(d$(16))+val(d$(17)))
  102. 755 printtab(28)right$(sp$+x$,10)
  103. 765 gosub400:print
  104. 770 printtab(28)right$(sp$+d$(0),10)
  105. 775 getk$:ifk$<>chr$(13)then775
  106. 780 sysad+18:gosub9000:goto70
  107. 785 :
  108. 900 gosub9400:ifw$<>"y"thengosub9000:goto70
  109. 905 poke214,22:print:print"[208]rinting...      "
  110. 907 gosub400
  111. 910 open4,4,7
  112. 915 print#4,sp$;"[198]orm 3903 - [205]oving [197]xpenses"
  113. 920 print#4,sp$;"-------------------------------------"
  114. 922 print#4,sp$;left$(m1$(1),27)+right$(sp$+d$(4),10):print#4
  115. 925 fori=1to4:print#4,sp$;left$(m2$(i),27)+right$(sp$+d$(i+4),10):next:print#4
  116. 930 fori=1to5:print#4,sp$;left$(m3$(i),27)+right$(sp$+d$(i+8),10):next:print#4
  117. 935 fori=1to4:print#4,sp$;left$(m4$(i),27)+right$(sp$+d$(i+13),10):next:print#4
  118. 950 fori=1to5:print#4,sp$;left$(m5$(i),27)+right$(sp$+d$(i+17),10):next
  119. 960 print#4:close4:gosub9000:goto70
  120. 995 :
  121. 1000 sysad+3,5+64,1,8,m,h,tx,m1$(1),m1$(2),m1$(3),m1$(4),m1$(5)
  122. 1010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  123. 1020 ifk=5thensysad+18:goto70
  124. 1025 ifk=4thenh$="3903.h1":gosub600:goto1000
  125. 1030 ifk=2thenn$="3903.n1":gosub500:goto1000
  126. 1035 ifk=3thengosub9500:goto1000
  127. 1050 gosub9100:iflen(w$)=0then1000
  128. 1070 d$(4)=w$
  129. 1080 m1$(1)=left$(m1$(1),27)+right$(sp$+d$(4),10)
  130. 1085 goto1000
  131. 1090 :
  132. 2000 sysad+3,8+64,1,8,m,h,tx,m2$(1),m2$(2),m2$(3),m2$(4),m2$(5),m2$(6),m2$(7),m2$(8)
  133. 2010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  134. 2020 ifk=8thensysad+18:goto70
  135. 2025 ifk=7thenh$="3903.h2":gosub600:goto2000
  136. 2030 ifk=5thenn$="3903.n2":gosub500:goto2000
  137. 2035 ifk=6thengosub9500:goto2000
  138. 2045 ifk=4then2000
  139. 2046 ifk=3then2000
  140. 2050 gosub9100:iflen(w$)=0then2000
  141. 2055 d$(k+4)=w$:d$(7)=str$(int(val(d$(6))*.8+.5))
  142. 2065 d$(8)=str$(val(d$(5))+val(d$(7)))
  143. 2075 fori=1to4
  144. 2080 m2$(i)=left$(m2$(i),27)+right$(sp$+d$(i+4),10):next
  145. 2085 goto2000
  146. 2090 :
  147. 3000 sysad+3,9+64,1,8,m,h,tx,m3$(1),m3$(2),m3$(3),m3$(4),m3$(5),m3$(6),m3$(7),m3$(8),m3$(9)
  148. 3010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  149. 3020 ifk=9thensysad+18:goto70
  150. 3025 ifk=8thenh$="3903.h3":gosub600:goto3000
  151. 3030 ifk=7thengosub9500:goto3000
  152. 3035 ifk=6thenn$="3903.n3":gosub500:goto3000
  153. 3040 ifk=5then3000
  154. 3045 ifk=4then3000
  155. 3050 gosub9100:iflen(w$)=0then3000
  156. 3052 d$(k+8)=w$
  157. 3055 d$(12)=str$(val(d$(11))*.8)
  158. 3060 tl=val(d$(9))+val(d$(10))+val(d$(12))
  159. 3065 d$(13)=str$(tl)
  160. 3075 fori=1to5
  161. 3080 m3$(i)=left$(m3$(i),27)+right$(sp$+d$(i+8),10):next
  162. 3085 goto3000
  163. 3090 :
  164. 4000 sysad+3,8+64,1,8,m,h,tx,m4$(1),m4$(2),m4$(3),m4$(4),m4$(5),m4$(6),m4$(7),m4$(8)
  165. 4010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  166. 4020 ifk=8thensysad+18:goto70
  167. 4025 ifk=7thenh$="3903.h4":gosub600:goto4000
  168. 4030 ifk=6thengosub9500:goto4000
  169. 4035 ifk=5thenn$="3903.n4":gosub500:goto4000
  170. 4050 gosub9100:iflen(w$)=0then4000
  171. 4055 d$(k+13)=w$
  172. 4075 fori=1to4
  173. 4080 m4$(i)=left$(m4$(i),27)+right$(sp$+d$(i+13),10):next
  174. 4085 goto4000
  175. 4090 :
  176. 5000 sysad+3,9+64,1,8,m,h,tx,m5$(1),m5$(2),m5$(3),m5$(4),m5$(5),m5$(6),m5$(7),m5$(8),m5$(9)
  177. 5010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  178. 5020 ifk=9thensysad+18:goto70
  179. 5025 ifk=8thenh$="3903.h5":gosub600:goto5000
  180. 5030 ifk=7thengosub9500:goto5000
  181. 5035 ifk=6thenn$="3903.n5":gosub500:goto5000
  182. 5040 ifk=1then5000
  183. 5042 ifk=3then5000
  184. 5044 ifk=5then5000
  185. 5050 f1=notf1:iff1=0then5055
  186. 5051 x1=750:x2=1500
  187. 5052 m5$(2)="17. [211]eparate                      750"
  188. 5054 m5$(4)="19. [211]eparate                     1500":goto5070
  189. 5055 x1=1500:x2=3000
  190. 5056 m5$(2)="17. [202]oint                        1500"
  191. 5064 m5$(4)="19. [202]oint                        3000"
  192. 5070 d$(18)=d$(13)
  193. 5072 d$(19)=d$(18):ifval(d$(18))>x1thend$(19)=str$(x1)
  194. 5075 d$(20)=str$(val(d$(14))+val(d$(15))+val(d$(16))+val(d$(17))+val(d$(19)))
  195. 5077 d$(21)=d$(20):ifval(d$(20))>x2thend$(21)=str$(x2)
  196. 5078 d$(22)=str$(val(d$(4))+val(d$(8))+val(d$(21)))
  197. 5080 fori=1to5
  198. 5082 m5$(i)=left$(m5$(i),27)+right$(sp$+d$(i+17),10):next
  199. 5085 goto5000
  200. 5090 :
  201. 9000 poke214,21:print: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]";
  202. 9005 print"[221]  [213]se [195]ursor [203]eys/[210][197][212][213][210][206] to select.   [221]";
  203. 9010 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]";:poke2023,125:poke56295,1
  204. 9015 return
  205. 9100 gosub9600:poke646,tx
  206. 9105 poke214,22:print:print"[197]nter: ";
  207. 9110 sys49152+3,tx,tx,9
  208. 9115 gosub9000:return
  209. 9200 poke214,21:print: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]";
  210. 9205 print"[221]             [208]ress [210][197][212][213][210][206]             [221]";
  211. 9210 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]";:poke2023,125:poke56295,1
  212. 9215 return
  213. 9300 gosub9600:poke646,tx
  214. 9305 poke214,22:print:print"[197]nter [217]ear: ";
  215. 9310 sys49152+3,tx,tx,4
  216. 9315 return
  217. 9320 :
  218. 9400 gosub9600:poke646,tx
  219. 9405 poke214,22:print:print"[208]rinter [210]eady? ";
  220. 9410 sys49152,tx,tx,1
  221. 9415 return
  222. 9420 :
  223. 9500 sysad+18:poke646,m
  224. 9501 print""tab(9)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  225. 9502 printtab(9)"[221]                  [221]"
  226. 9503 printtab(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  227. 9504 ac=0:ac$="0"
  228. 9505 ac$=right$(sp$+ac$,10):poke646,tx
  229. 9506 print""tab(17)ac$
  230. 9510 sysad+3,6+64,10,9,m+64,h,tx,m9$(1),m9$(2),m9$(3),m9$(4),m9$(5),m9$(6)
  231. 9520 getk$:k$=str$(asc(k$)-48):k=val(k$)
  232. 9525 ifk=6thensysad+18:return
  233. 9530 ifk=1thenac=0:goto9565
  234. 9535 gosub9100
  235. 9540 w=val(w$):ifw=0then9505
  236. 9545 ifk=2thenac=ac+w
  237. 9550 ifk=3thenac=ac-w
  238. 9555 ifk=4thenac=ac*w
  239. 9560 ifk=5thenac=ac/w
  240. 9565 ac$=str$(ac):goto9505
  241. 9570 :
  242. 9600 fori=217to242:pokei,peek(i)or128:next
  243. 9602 poke214,22:print:print"                                    "
  244. 9605 return
  245. 9610 :
  246. 10000 open15,8,15,"s0:3903":close15:save"0:3903",8:end
  247. 10998 :
  248. 10999 rem menu0
  249. 11000 data 10
  250. 11001 data "[204]oad [198]ile         "
  251. 11002 data "[211]ave [198]ile         "
  252. 11003 data "[208]rint [198]ile        "
  253. 11004 data "[212]ransportation    "
  254. 11005 data "[205]oving [197]xpenses   "
  255. 11006 data "[208]re-[205]oving [197]xpense"
  256. 11007 data "[210]eal [197]state [197]xp.  "
  257. 11008 data "[196]ollar [204]imits     "
  258. 11012 data "[212]otals            "
  259. 11013 data "[205]ain [205]enu         "
  260. 11014 :
  261. 11099 rem menu1
  262. 11100 data 5
  263. 11101 data " 4. [212]ransportation                  0"
  264. 11105 data "[206]otepad                              "
  265. 11106 data "[195]alculator                           "
  266. 11107 data "[200]elp                                 "
  267. 11108 data "[205]ain [205]enu                            "
  268. 11113 :
  269. 11199 rem menu2
  270. 11200 data 8
  271. 11201 data " 5. [212]ravel and [204]odging              0"
  272. 11202 data " 6. [212]otal [205]eals                     0"
  273. 11203 data " 7. [204]ine 6 * 80%                    0"
  274. 11204 data " 8. [212]otal                           0"
  275. 11205 data "[206]otepad                              "
  276. 11206 data "[195]alculator                           "
  277. 11207 data "[200]elp                                 "
  278. 11208 data "[205]ain [205]enu                            "
  279. 11213 :
  280. 11299 rem menu3
  281. 11300 data 9
  282. 11301 data " 9. [212]ravel and [204]odging              0"
  283. 11302 data "10. [212]emporary [209]uarters              0"
  284. 11303 data "11. [212]otal meals                     0"
  285. 11304 data "12. [204]ine 11 * 80%                   0"
  286. 11305 data "13. [212]otal                           0"
  287. 11308 data "[206]otepad                              "
  288. 11309 data "[195]alculator                           "
  289. 11310 data "[200]elp                                 "
  290. 11311 data "[205]ain [205]enu                            "
  291. 11312 :
  292. 11399 rem menu4
  293. 11400 data 8
  294. 11401 data "14a. [197]xpense of selling             0"
  295. 11402 data "14b. [197]xp. of settling lease         0"
  296. 11403 data "15a. [197]xpense of buying home         0"
  297. 11404 data "15b. [197]xpense of renting             0"
  298. 11405 data "[206]otepad                              "
  299. 11406 data "[195]alculator                           "
  300. 11407 data "[200]elp                                 "
  301. 11408 data "[205]ain [205]enu                            "
  302. 11413 :
  303. 11499 rem menu5
  304. 11500 data 9
  305. 11501 data "16. [204]ine 13                         0"
  306. 11502 data "17. [202]oint                           0"
  307. 11503 data "18. [212]otal lines 14,15,17            0"
  308. 11504 data "19. [202]oint                           0"
  309. 11505 data "20. [212]otal lines 4,8,19               "
  310. 11506 data "[206]otepad                              "
  311. 11507 data "[195]alculator                           "
  312. 11508 data "[200]elp                                 "
  313. 11509 data "[205]ain [205]enu                            "
  314. 11513 :
  315. 11599 rem menu6
  316. 11899 rem menu9
  317. 11900 data 6
  318. 11901 data "[218]ero [193]ccumulator  "
  319. 11902 data "[193]dd to [193]cc.       "
  320. 11903 data "[211]ubtract from [193]cc."
  321. 11904 data "[205]ultiply [193]cc.     "
  322. 11905 data "[196]ivide [193]cc.       "
  323. 11906 data "[197]xit              "
  324.