home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 129 / 129.d81 / 1040ez (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  291 lines
  1. 0 w$="":dv=peek(186):ifdv<8thendv=8
  2. 1 remifa=0thena=1:load"tool box c000",dv,1
  3. 2 remifa=1thena=2:load"notepad c900",dv,1
  4. 3 poke198,0:sp$="          ":max=12
  5. 5 dim m1$(20),m2$(20),d$(max):fl=0:f1=0:f2=0:f3=0
  6. 6 fori=2tomax:d$(i)="0":next:d$(5)="6250"
  7. 10 poke53280,0:poke53281,0:ad=49152
  8. 21 readx:fori=1tox:readm1$(i):next
  9. 22 readx:fori=1tox:readm2$(i):next
  10. 30 print"[147]";:gosub9500
  11. 40 sysad+21,"[212][193][216] [193][195][195][207][213][206][212][193][206][212]: 1040[197][218]",0,10,0
  12. 43 sysad+18,0,1,38,19,7,0:sysad+15,1,2,38,20,160,14
  13. 46 gosub9000:gosub9500
  14. 50 x=0:y=1:d=10:w=38:tx=14:hi=1:bx=4:ex$=chr$(133)
  15. 52 fori=217to242:pokei,peek(i)or128:next
  16. 54 poke214,y-1:print:print:poke646,tx
  17. 56 fori=1tomax:printtab(x+1)""left$(m1$(i)+sp$,w):next
  18. 58 r=1:r1=1:poke646,hi:poke214,r+y-1:print:printtab(x+1)""left$(m1$(r)+sp$,w)
  19. 62 getk$:ifk$=""then62
  20. 66 ifk$=chr$(13)then135
  21. 68 ifk$="[145]"thengosub891
  22. 70 ifk$=""thengosub850
  23. 78 ifk$="[136]"thengosub1000:ifk=1then52
  24. 88 ifk$="_"thengosub7000:rem exit
  25. 90 ifr=4orr=6thenhi=10
  26. 92 poke646,tx:poke214,r1+y-1:print:printtab(x+1)""left$(m1$(r1+v)+sp$,w)
  27. 94 poke646,hi:poke214,r+y-1:print:printtab(x+1)""left$(m1$(r+v)+sp$,w)
  28. 96 r1=r:hi=1:goto62
  29. 98 :
  30. 135 ifr=4then62
  31. 136 ifr=6then62
  32. 138 ifr=5thengosub800:goto170
  33. 139 if r=1thengosub400:goto170
  34. 140 gosub9100:iflen(w$)=0then62
  35. 141 ww=val(w$):w$=str$(ww)
  36. 145 d$(r)=w$
  37. 160 iflen(w$)=0then52
  38. 165 ifval(d$(3))>400thend$(3)="[211][212][207][208]":fori=6to10:d$(i)="0":next:goto186
  39. 170 d$(4)=str$(val(d$(2))+val(d$(3)))
  40. 171 rem ifflthengosub809
  41. 175 d$(6)=str$(val(d$(4))-val(d$(5))):ifval(d$(6))<0thend$(6)="0"
  42. 176 ifval(d$(6))>50000thend$(6)="[211][212][207][208]"
  43. 177 gosub15000
  44. 178 d$(9)=str$(val(d$(7))+val(d$(8)))
  45. 180 ifval(d$(9))>=val(d$(10))thend$(11)=str$(val(d$(9))-val(d$(10))):d$(12)="0"
  46. 185 ifval(d$(10))>val(d$(9))thend$(12)=str$(val(d$(10))-val(d$(9))):d$(11)="0"
  47. 186 gosub9500
  48. 190 goto52
  49. 195 :
  50. 200 gosub9300
  51. 210 ifval(w$)=0thenclose2:close15:gosub9000:return
  52. 220 open15,dv,15,"io":w$="ez."+w$
  53. 225 open2,dv,2,"0:"+w$+",s,r"
  54. 230 input#15,e,e$,e1,e2
  55. 234 poke214,21:print:print"                                    "
  56. 235 poke214,21:print:print"[196]isk [211]tatus:"e;e$:fori=1to2000:next
  57. 236 poke214,21:print:print"                                    "
  58. 240 ifethenclose2:close15:gosub9000:return
  59. 250 fori=1to12:input#2,d$(i):next
  60. 261 input#2,m1$(1)
  61. 262 input#2,m1$(5)
  62. 263 input#2,fl
  63. 264 input#2,f2
  64. 270 close2:close15
  65. 271 m1$(1)=" "+m1$(1):m1$(5)=" "+m1$(5)
  66. 275 gosub9000:gosub9500:return
  67. 280 :
  68. 300 gosub9300:ifval(w$)=0then375
  69. 310 w$="ez."+w$
  70. 320 open15,dv,15,"s0:"+w$:close15
  71. 330 open15,dv,15,"io"
  72. 335 open2,dv,2,"0:"+w$+",s,w"
  73. 340 input#15,e,e$,e1,e2
  74. 344 poke214,21:print:print"                                    "
  75. 345 poke214,21:print:print"[196]isk [211]tatus: "e;e$:fori=1to2000:next
  76. 346 poke214,21:print:print"                                    "
  77. 350 ifethenclose2:close15:print"[145][198]ile [206]ot [211]aved":fori=1to2000:next:goto375
  78. 360 fori=1to12:print#2,d$(i):next
  79. 361 print#2,m1$(1)
  80. 362 print#2,m1$(5)
  81. 363 print#2,fl
  82. 364 print#2,f2
  83. 370 close2:close15
  84. 375 gosub9000:return
  85. 390 :
  86. 400 f2=not f2
  87. 402 iff2<>0then450
  88. 405 m1$(1)="    [211]ingle                     ":fl=-1:f3=2
  89. 406 rem  iffl=0thend$(5)="6250":gosub9500:return
  90. 407 gosub805:gosub9500:return
  91. 450 m1$(1)="    [205]arried [202]oint              "
  92. 455 f3=2:fl=-1:rem      iffl=0thend$(5)="11250":gosub9500:return
  93. 456 gosub805:gosub9500:return
  94. 470 :
  95. 500 poke781,23:sys59903
  96. 501 poke214,21:print:print"   [198]1=[204]oad  [198]3=[211]ave  [198]5=[208]rint  [198]7=[197]xit  "
  97. 502 sysad+15,1,2,38,20,32,14:n$="ez.n"
  98. 505 sys51456,1,2,38,20,3,0
  99. 510 ky=peek(197)
  100. 515 ifky=6thensysad+3,3:gosub9400:sysad+6,3:ifw$="y"thensysad+27,1,2,38,20,7
  101. 520 ifky=5thenopen15,dv,15,"s0:"+n$:close15:sys57812n$,dv
  102. 525 ifky=5thenpoke193,0:poke194,4:poke174,0:poke175,8:sys62954:goto505
  103. 530 ifky=4then poke147,0:sys57812n$,dv,1:sys62631:goto505:rem load
  104. 550 ifky=3thensysad+6,2:return
  105. 555 goto505
  106. 560 :
  107. 600 print"[147]"tab(14)"[150]*** [200][197][204][208] ***"
  108. 601 sysad+18,0,1,38,21,1,0
  109. 602 h$="t.ez help":sysad+33
  110. 605 sysad+21,"[208]ress [210][197][212][213][210][206]     _ to [197]xit",24,13,0
  111. 606 open2,dv,2,h$+",p,r":sysad+30,14
  112. 610 poke198,0
  113. 611 sysad+21,"       [208]ress [210][197][212][213][210][206]       ",24,10,0
  114. 615 getk$:ifk$<>chr$(13)then615
  115. 620 poke198,0:close2:return
  116. 625 :
  117. 800 rem fl=not flr
  118. 805 iff2<>0then820
  119. 806 fl=notfl
  120. 807 m1$(5)=" 4. [196]ependent-[206]o               "
  121. 808 d$(5)="6250"
  122. 809 iffl=0thenreturn
  123. 810 m1$(5)=" 4. [196]ependent-[217]es              ":ff=0:goto830
  124. 820 f3=f3+1:iff3=3thenf3=0
  125. 822 iff3=0thenm1$(5)=" 4. [196]ependent-[206]o               ":d$(5)="11250":return
  126. 824 iff3=1thenm1$(5)=" 4. [196]ependent-[217]es-[194]oth         ":ff=0:goto830
  127. 825 iff3=2thenm1$(5)=" 4. [196]ependent-[217]es-[207]ne          ":ff=2450
  128. 830 d=6350:if f2=0thend=3800
  129. 832 b=600:c=b:e=d
  130. 834 ifb<val(d$(2))thenc=val(d$(2))
  131. 836 ifc<dthene=c
  132. 838 e=e+ff
  133. 839 d$(5)=str$(e):return
  134. 840 :
  135. 850 r=r+1:ifr<=8thenreturn
  136. 855 r=r-1:ifr<8then return
  137. 860 gosub875
  138. 865 return
  139. 870 :
  140. 875 poke646,tx:poke214,r1+y-1:print:printtab(x+1)left$(m1$(r1+v)+sp$,w)
  141. 880 poke646,tx:poke214,r+y-1:print:printtab(x+1)left$(m1$(r+v)+sp$,w)
  142. 885 return
  143. 890 :
  144. 891 r=r-1:ifr<>0thenreturn
  145. 892 r=1
  146. 893 gosub875
  147. 894 return
  148. 895 :
  149. 900 gosub9400:ifw$<>"y"thengosub9000:return
  150. 910 open4,4,7
  151. 915 print#4,sp$"1040[197][218]"
  152. 920 print#4,sp$"-------------------------------------"
  153. 925 fori=1to6:print#4,sp$;m1$(i):next:print#4
  154. 926 fori=7to10:print#4,sp$;m1$(i):next:print#4
  155. 927 fori=11to12:print#4,sp$;m1$(i):next:print#4
  156. 930 print#4:close4:gosub9000:return
  157. 935 :
  158. 1000 sysad+3,2
  159. 1005 sysad+18,10,5,20,9,13,1
  160. 1010 poke214,5:print
  161. 1015 printtab(11)"[153][204]oad [198]ile"
  162. 1020 printtab(11)"[211]ave [198]ile"
  163. 1025 printtab(11)"[208]rint [198]ile"
  164. 1030 printtab(11)"[200]elp"
  165. 1035 printtab(11)"[195]alculator"
  166. 1036 printtab(11)"[206]otepad"
  167. 1040 printtab(11)"[196]irectory"
  168. 1045 printtab(11)"[196]isk [196]rive #"+str$(dv)
  169. 1057 printtab(11)"[197]xit"
  170. 1060 sysad+12,11,6,29,9,13,1
  171. 1065 k=peek(828)
  172. 1070 onkgosub200,300,900,600,5000,500,6000,6100
  173. 1075 sysad+6,2:return
  174. 1080 :
  175. 5000 sysad+6,2:gosub9600
  176. 5001 sysad+18,11,5,18,1,5,0
  177. 5002 sysad+18,11,8,18,6,5,0:sysad+33:poke214,8:print
  178. 5003 fori=1to6:printtab(12)""m2$(i):next
  179. 5004 ac=0:ac$="0":sysad+3,1
  180. 5005 ac$=right$(sp$+ac$,10):poke646,tx
  181. 5006 sysad+6,1:print""tab(19)ac$
  182. 5010 sysad+12,12,9,29,6,1,10
  183. 5020 k=peek(828)
  184. 5025 ifk=6thensysad+6,2:return
  185. 5030 ifk=1thenac=0:goto5065
  186. 5035 gosub9100
  187. 5040 p=val(w$):ifp=0then5005
  188. 5045 ifk=2thenac=ac+p
  189. 5050 ifk=3thenac=ac-p
  190. 5055 ifk=4thenac=ac*p
  191. 5060 ifk=5thenac=ac/p
  192. 5065 ac$=str$(ac):goto5005
  193. 5070 :
  194. 6000 print"[147][154]"
  195. 6005 sysad,dv
  196. 6007 sysad+21,"[208]ress [210][197][212][213][210][206]",24,10,0
  197. 6008 getk$:ifk$<>chr$(13)then6008
  198. 6015 :return
  199. 6020 :
  200. 6100 gosub9600:poke646,tx
  201. 6105 poke214,21:print:print"[197]nter [196]rive: ";
  202. 6110 sysad+9,2,0,32,1
  203. 6111 ifval(w$)<8orval(w$)>16then6115
  204. 6112 ww=val(w$):open1,ww,1:close1
  205. 6113 ifst=0thendv=ww
  206. 6114 ifst<>0thengosub9200
  207. 6115 gosub9000:return
  208. 6120 :
  209. 7000 gosub9600:poke646,tx
  210. 7005 poke214,21:print:print"[209]uit? [193]re [217]ou [211]ure? ";
  211. 7010 sysad+9,1,1,32,1
  212. 7015 ifw$<>"y"thengosub9000:return
  213. 7020 open15,dv,15,"r0:b.tax=b.tax":input#15,er%:close15
  214. 7025 ifer%<>63thenend
  215. 7030 poke646,peek(53281)
  216. 7035 print"[147]load"chr$(34)"b.tax"chr$(34)","dv
  217. 7040 print"run"
  218. 7045 poke631,13:poke632,13:poke633,13:poke198,3:end
  219. 9000 sysad+33
  220. 9001 poke214,21:print:print"[153][195][210][211][210] [203]eys/[210][197][212][213][210][206] to [211]elect [198]7=[205]enu _[197]xit"
  221. 9015 return
  222. 9020 :
  223. 9100 gosub9600:poke646,tx
  224. 9105 poke214,21:print:print"[197]nter: ";
  225. 9110 sysad+9,9,0,32,1
  226. 9115 gosub9000:return
  227. 9120 :
  228. 9200 sysad+3,3
  229. 9205 sysad+18,6,7,25,3,10,1
  230. 9210 sysad+21,"[201]nvalid [196]rive",9,10,1
  231. 9215 fort=1to1500:next
  232. 9220 sysad+6,3:return
  233. 9300 gosub9600:poke646,tx
  234. 9305 poke214,21:print:print"[197]nter [217]ear: ";
  235. 9310 sysad+9,4,0,32,1
  236. 9315 return
  237. 9320 :
  238. 9400 gosub9600:poke646,tx
  239. 9405 poke214,21:print:print"[208]rinter [210]eady? ";
  240. 9410 sysad+9,1,1,32,1
  241. 9415 return
  242. 9420 :
  243. 9500 fori=1to12
  244. 9505 m1$(i)=left$(m1$(i),27):d$(i)=right$(sp$+d$(i),10)
  245. 9510 m1$(