home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 93 / 093.d81 / ss (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  235 lines
  1. 0 dv=peek(186):ifdv<8thendv=8
  2. 1 ifa=0thena=1:load"help-ss",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)
  6. 6 dimm9$(20):sp$="          "
  7. 7 dimd$(23):fori=7to18:d$(i)="0":next
  8. 8 fori=1to6:d$(i)=" ":next:fs=1:d$(1)="[186]"
  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. 24 readx:fori=1tox:readm3$(i):next
  14. 30 readx:fori=1tox:readm9$(i):next
  15. 31 fori=1to6:readb$(i):next:d$(15)=b$(fs)
  16. 33 print"";:gosub400
  17. 40 sysad,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[211][211] [212]ax [215]orksheet"
  18. 50 ifpeek(198)<>1thenend
  19. 55 sysad+15:getdv$:getme$:gethi$:gettx$
  20. 56 dv=asc(dv$):m=asc(me$)and15:h=asc(hi$)and15:tx=asc(tx$)and15
  21. 60 sysad+18:poke198,0:gosub9000
  22. 70 sysad+3,7+64,11,8,m,h,tx,m0$(1),m0$(2),m0$(3),m0$(4),m0$(5),m0$(6),m0$(7)
  23. 80 getk$:k$=str$(asc(k$)-48):k=val(k$)
  24. 85 ifk>3thensysad+18:poke781,21:sys59903
  25. 90 onkgoto 200,300,900,1070,2070,3070,40
  26. 95 goto70
  27. 100 :
  28. 200 gosub9300
  29. 210 ifval(w$)=0then275
  30. 220 open15,dv,15,"io":w$="ss."+w$
  31. 225 open2,dv,2,"0:"+w$+",s,r"
  32. 230 input#15,e,e$,e1,e2
  33. 234 poke214,21:print:print"                                    "
  34. 235 poke214,21:print:print"[196]isk [211]tatus:"e;e$:fori=1to2000:next
  35. 236 poke214,21:print:print"                                    "
  36. 240 ifethenclose2:close15:print"[145][198]ile [206]ot [204]oaded":fori=1to2000:next:goto275
  37. 250 fori=7to18:input#2,d$(i):next
  38. 255 input#2,fs
  39. 270 close2:close15
  40. 275 gosub9000:goto70
  41. 280 :
  42. 300 gosub9300:ifval(w$)=0then375
  43. 310 w$="ss."+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. 360 fori=7to18:print#2,d$(i):next
  53. 365 print#2,fs
  54. 370 close2:close15
  55. 375 gosub9000:goto70
  56. 390 :
  57. 400 d$(8)=str$(int(val(d$(7))*.5+.5))
  58. 410 d$(12)=str$(val(d$(8))+val(d$(9))+val(d$(10))+val(d$(11)))
  59. 415 d$(14)=str$(val(d$(12))-val(d$(13)))
  60. 420 d$(15)=b$(fs)
  61. 430 d$(16)=str$(val(d$(14))-val(d$(15))):ifsgn(val(d$(16)))=-1thend$(16)="0"
  62. 435 d$(17)=str$(int(val(d$(16))/2+.5))
  63. 440 d$(18)=d$(8):ifval(d$(8))>val(d$(17))thend$(18)=d$(17)
  64. 475 return
  65. 480 :
  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. 900 gosub9400:ifw$<>"y"thengosub9000:goto70
  86. 905 poke214,22:print:print"[208]rinting...      "
  87. 910 open4,4,7
  88. 915 print#4,sp$;"[211]ocial [211]ecurity [212]ax [215]orksheet"
  89. 920 print#4,sp$;"-------------------------------------"
  90. 921 print#4,sp$;left$(m1$(fs),35)+right$(sp$+d$(fs),2):print#4
  91. 925 fori=1to6:print#4,sp$;left$(m2$(i),27)+right$(sp$+d$(i+6),10):next:print#4
  92. 930 fori=1to6:print#4,sp$;left$(m3$(i),27)+right$(sp$+d$(i+12),10):next:print#4
  93. 990 print#4:close4:gosub9000:goto70
  94. 995 :
  95. 1000 sysad+3,10+64,1,8,m,h,tx,m1$(1),m1$(2),m1$(3),m1$(4),m1$(5),m1$(6),m1$(7),m1$(8),m1$(9),m1$(10)
  96. 1010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  97. 1020 ifk=10thensysad+18:goto70
  98. 1025 ifk=9thenh$="ss.h1":gosub600:goto1000
  99. 1030 ifk=7thenn$="ss.n1":gosub500:goto1000
  100. 1035 ifk=8thengosub9500:goto1000
  101. 1050 fori=1to6:d$(i)=" ":next:d$(k)="[186]":fs=k
  102. 1067 gosub400
  103. 1070 fori=1to6:m1$(i)=left$(m1$(i),35)+right$(sp$+d$(i),2):next
  104. 1075 goto1000
  105. 1080 :
  106. 2000 sysad+3,10+64,1,8,m,h,tx,m2$(1),m2$(2),m2$(3),m2$(4),m2$(5),m2$(6),m2$(7),m2$(8),m2$(9),m2$(10)
  107. 2010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  108. 2020 ifk=10thensysad+18:goto70
  109. 2025 ifk=9thenh$="ss.h2":gosub600:goto2000
  110. 2030 ifk=7thenn$="ss.n2":gosub500:goto2000
  111. 2035 ifk=8thengosub9500:goto2000
  112. 2040 ifk=2then2000
  113. 2042 ifk=6then2000
  114. 2050 gosub9100:iflen(w$)=0then2000
  115. 2055 d$(k+6)=w$:gosub400
  116. 2070 fori=1to6:m2$(i)=left$(m2$(i),27)+right$(sp$+d$(i+6),10):next
  117. 2087 goto2000
  118. 2090 :
  119. 3000 sysad+3,10+64,1,8,m,h,tx,m3$(1),m3$(2),m3$(3),m3$(4),m3$(5),m3$(6),m3$(7),m3$(8),m3$(9),m3$(10)
  120. 3010 getk$:k$=str$(asc(k$)-48):k=val(k$)
  121. 3020 ifk=10thensysad+18:goto70
  122. 3025 ifk=9thenh$="ss.h3":gosub600:goto3000
  123. 3030 ifk=8thengosub9500:goto3000
  124. 3035 ifk=7thenn$="ss.n3":gosub500:goto3000
  125. 3040 ifk<>1then3000
  126. 3050 gosub9100:iflen(w$)=0then3000
  127. 3052 d$(k+12)=w$:gosub400
  128. 3070 fori=1to6:m3$(i)=left$(m3$(i),27)+right$(sp$+d$(i+12),10):next
  129. 3085 goto3000
  130. 3090 :
  131. 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]";
  132. 9005 print"[221]  [213]se [195]ursor [203]eys/[210][197][212][213][210][206] to select.   [221]";
  133. 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
  134. 9015 return
  135. 9100 gosub9600:poke646,tx
  136. 9105 poke214,22:print:print"[197]nter: ";
  137. 9110 sys49152+3,tx,tx,9
  138. 9115 gosub9000:return
  139. 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]";
  140. 9205 print"[221]             [208]ress [210][197][212][213][210][206]             [221]";
  141. 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
  142. 9215 return
  143. 9300 gosub9600:poke646,tx
  144. 9305 poke214,22:print:print"[197]nter [217]ear: ";
  145. 9310 sys49152+3,tx,tx,4
  146. 9315 return
  147. 9320 :
  148. 9400 gosub9600:poke646,tx
  149. 9405 poke214,22:print:print"[208]rinter [210]eady? ";
  150. 9410 sys49152,tx,tx,1
  151. 9415 return
  152. 9420 :
  153. 9500 sysad+18:poke646,m
  154. 9501 print""tab(9)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  155. 9502 printtab(9)"[221]                  [221]"
  156. 9503 printtab(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  157. 9504 ac=0:ac$="0"
  158. 9505 ac$=right$(sp$+ac$,10):poke646,tx
  159. 9506 print""tab(17)ac$
  160. 9510 sysad+3,6+64,10,9,m+64,h,tx,m9$(1),m9$(2),m9$(3),m9$(4),m9$(5),m9$(6)
  161. 9520 getk$:k$=str$(asc(k$)-48):k=val(k$)
  162. 9525 ifk=6thensysad+18:return
  163. 9530 ifk=1thenac=0:goto9565
  164. 9535 gosub9100
  165. 9540 w=val(w$):ifw=0then9505
  166. 9545 ifk=2thenac=ac+w
  167. 9550 ifk=3thenac=ac-w
  168. 9555 ifk=4thenac=ac*w
  169. 9560 ifk=5thenac=ac/w
  170. 9565 ac$=str$(ac):goto9505
  171. 9570 :
  172. 9600 fori=217to242:pokei,peek(i)or128:next
  173. 9602 poke214,22:print:print"                                    "
  174. 9605 return
  175. 9610 :
  176. 10000 open15,8,15,"s0:ss":close15:save"0:ss",8:end
  177. 10998 :
  178. 10999 rem menu0
  179. 11000 data 7
  180. 11001 data "[204]oad [198]ile         "
  181. 11002 data "[211]ave [198]ile         "
  182. 11003 data "[208]rint [198]ile        "
  183. 11004 data "[198]iling [211]tatus     "
  184. 11005 data "[204]ines 1-6         "
  185. 11007 data "[204]ines 7-12        "
  186. 11014 data "[205]ain [205]enu