home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 93 / 093.d81 / 8615 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  261 lines
  1. 0 dv=peek(186):ifdv<8thendv=8
  2. 1 ifa=0thena=1:load"help-8615",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$(19):fori=0to19:d$(i)="0":next:d$(2)="1100"
  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. 23 readx:fori=1tox:readm3$(i):next
  13. 29 readx:fori=1tox:readm9$(i):next
  14. 30 print"";
  15. 40 sysad,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[198]orm 8615"
  16. 50 ifpeek(198)<>1thenend
  17. 55 sysad+15:getdv$:getme$:gethi$:gettx$
  18. 56 dv=asc(dv$):m=asc(me$)and15:h=asc(hi$)and15:tx=asc(tx$)and15
  19. 60 sysad+18:poke198,0:gosub9000
  20. 70 sysad+3,8+64,11,8,m,h,tx,m0$(1),m0$(2),m0$(3),m0$(4),m0$(5),m0$(6),m0$(7),m0$(8)
  21. 80 getk$:k$=str$(asc(k$)-48):k=val(k$)
  22. 85 ifk>3thensysad+18
  23. 90 onkgoto 200,300,900,1080,2075,3075,700,40
  24. 95 goto70
  25. 100 :
  26. 200 gosub9300
  27. 210 ifval(w$)=0then275
  28. 220 open15,dv,15,"io":w$="8615."+w$
  29. 225 open2,dv,2,"0:"+w$+",s,r"
  30. 230 input#15,e,e$,e1,e2
  31. 234 poke214,21:print:print"                                    "
  32. 235 poke214,21:print:print"[196]isk [211]tatus:"e;e$:fori=1to2000:next
  33. 236 poke214,21:print:print"                                    "
  34. 240 ifethenclose2:close15:print"[145][198]ile [206]ot [204]oaded":fori=1to2000:next:goto275
  35. 250 fori=0to19:input#2,d$(i):next
  36. 270 close2:close15
  37. 275 gosub9000:goto70
  38. 280 :
  39. 300 gosub9300:ifval(w$)=0then375
  40. 310 w$="8615."+w$
  41. 320 open15,dv,15,"s0:"+w$:close15
  42. 330 open15,dv,15,"io"
  43. 335 open2,dv,2,"0:"+w$+",s,w"
  44. 340 input#15,e,e$,e1,e2
  45. 344 poke214,21:print:print"                                    "
  46. 345 poke214,21:print:print"[196]isk [211]tatus: "e;e$:fori=1to2000:next
  47. 346 poke214,21:print:print"                                    "
  48. 350 ifethenclose2:close15:print"[145][198]ile [206]ot [211]aved":fori=1to2000:next:goto375
  49. 355 gosub400
  50. 360 fori=0to19:print#2,d$(i):next
  51. 370 close2:close15
  52. 375 gosub9000:goto70
  53. 390 :
  54. 400 d$(3)=str$(val(d$(1))-val(d$(2))):ifval(d$(3))<0thend$(3)="[211][212][207][208]"
  55. 405 d$(5)=d$(4):ifval(d$(4))>val(d$(3))thend$(5)=d$(3)
  56. 410 d$(8)=str$(val(d$(5))+val(d$(6))+val(d$(7)))
  57. 415 d$(11)=str$(val(d$(9))-val(d$(10)))
  58. 420 d$(12)=str$(val(d$(5))+val(d$(7)))
  59. 425 ifval(d$(12))<>0thend$(13)=str$(int(val(d$(5))/val(d$(12))*100+.5))
  60. 430 d$(14)=str$(int(val(d$(11))*val(d$(13))/100))
  61. 435 d$(15)=str$(val(d$(4))-val(d$(5)))
  62. 440 d$(17)=str$(val(d$(14))+val(d$(16)))
  63. 445 d$(19)=d$(18):ifval(d$(18))<val(d$(17))thend$(19)=d$(17)
  64. 450 return
  65. 455 :
  66. 500 sysad+6,2:sysad+9,1
  67. 505 sys50176,1,3,38,20,tx,0
  68. 510 ky=peek(197)
  69. 515 ifky=3thensys51712,1,3,38,20,7:goto505
  70. 520 ifky=6thenopen15,dv,15,"s0:"+n$:close15:sysad+12,n$,1:goto505
  71. 530 ifky=5then poke147,0:sys57812n$,dv,1:sys62631:sysad+9,1:goto505
  72. 550 sysad+6,1:sysad+9,2:return
  73. 560 :
  74. 600 sysad+6,2:poke646,tx:print"[147]"tab(14)"*** [200][197][204][208] ***"
  75. 601 poke646,m
  76. 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]";
  77. 603 fori=1to21:print"[221]                                      [221]";:next
  78. 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
  79. 605 print"              [208]ress [210][197][212][213][210][206]";:poke52346,tx
  80. 606 open2,dv,2,h$+",p,r":sys51968
  81. 610 poke198,0
  82. 615 getk$:ifk$<>chr$(13)then615
  83. 620 close2:sysad+9,2:return
  84. 625 :
  85. 700 poke646,tx
  86. 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]"
  87. 702 print"[221]        [212]otals for [198]orm 8615         [221]"
  88. 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]"
  89. 706 print"[221][206]et [201]nvestment [201]ncome (5)            [221]"
  90. 708 print"[221][212]entative [212]ax (13)                   [221]"
  91. 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]"
  92. 722 print"[221][212][207][212][193][204] [212][193][216]                            [221]"
  93. 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]"
  94. 725 fori=217to242:pokei,peek(i)or128:next
  95. 726 gosub9200
  96. 730 print""
  97. 735 printtab(28)right$(sp$+d$(5),10)
  98. 740 printtab(28)right$(sp$+d$(14),10):print
  99. 770 printtab(28)right$(sp$+d$(19),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$;"[198]orm 8615 - [203]iddie [212]ax"
  107. 920 print#4,sp$;"-------------------------------------"
  108. 925 fori=1to5:print#4,sp$;left$(m1$(i),27)+right$(sp$+d$(i),10):next:print#4
  109. 930 fori=1to9:print#4,sp$;left$(m2$(i),27)+right$(sp$+d$(i+5),10):next:print#4
  110. 935 fori=1to5:print#4,sp$;left$(m3$(i),27)+right$(sp$+d$(i+14),10):next:print#4
  111. 960 print#4:close4:gosub9000:goto70
  112. 995 :
  113. 1000 sysad+3,9+64,1,8,m,h,tx,m1$(1),m1$(2),m1$(3),m1$(4),m1$(5),m1$(6),m1$(7),m1$(8),m1$(9)
  114. 1010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  115. 1020 ifk=9thensysad+18:goto70
  116. 1025 ifk=8thenh$="8615.h1":gosub600:goto1000
  117. 1030 ifk=6thenn$="8615.n1":gosub500:goto1000
  118. 1035 ifk=7thengosub9500:goto1000
  119. 1040 ifk=3then1000
  120. 1041 ifk=5then1000
  121. 1050 gosub9100:iflen(w$)=0then1000
  122. 1070 d$(k)=w$:gosub400
  123. 1080 fori=1to5:m1$(i)=left$(m1$(i),27)+right$(sp$+d$(i),10):next
  124. 1085 goto1000
  125. 1090 :
  126. 2000 sysad+3,13+64,1,7,m,h,tx,m2$(1),m2$(2),m2$(3),m2$(4),m2$(5),m2$(6),m2$(7),m2$(8),m2$(9),m2$(10),m2$(11),m2$(12),m2$(13)
  127. 2010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  128. 2020 ifk=13thensysad+18:goto70
  129. 2025 ifk=12thenh$="8615.h2":gosub600:goto2000
  130. 2030 ifk=10thenn$="8615.n2":gosub500:goto2000
  131. 2035 ifk=11thengosub9500:goto2000
  132. 2045 ifk=3then2000
  133. 2046 ifk>5then2000
  134. 2050 gosub9100:iflen(w$)=0then2000
  135. 2055 d$(k+5)=w$:gosub400
  136. 2075 fori=1to9
  137. 2080 m2$(i)=left$(m2$(i),27)+right$(sp$+d$(i+5),10):next
  138. 2085 goto2000
  139. 2090 :
  140. 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)
  141. 3010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  142. 3020 ifk=9thensysad+18:goto70
  143. 3025 ifk=8thenh$="8615.h3":gosub600:goto3000
  144. 3030 ifk=7thengosub9500:goto3000
  145. 3035 ifk=6thenn$="8615.n3":gosub500:goto3000
  146. 3040 ifk=5then3000
  147. 3042 ifk=1then3000
  148. 3045 ifk=3then3000
  149. 3050 gosub9100:iflen(w$)=0then3000
  150. 3052 d$(k+14)=w$:gosub400
  151. 3075 fori=1to5
  152. 3080 m3$(i)=left$(m3$(i),27)+right$(sp$+d$(i+14),10):next
  153. 3085 goto3000
  154. 3090 :
  155. 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]";
  156. 9005 print"[221]  [213]se [195]ursor [203]eys/[210][197][212][213][210][206] to select.   [221]";
  157. 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
  158. 9015 return
  159. 9100 gosub9600:poke646,tx
  160. 9105 poke214,22:print:print"[197]nter: ";
  161. 9110 sys49152+3,tx,tx,9
  162. 9115 gosub9000:return
  163. 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]";
  164. 9205 print"[221]             [208]ress [210][197][212][213][210][206]             [221]";
  165. 9210 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192