home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / wallstreet (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  12.8 KB  |  318 lines
  1. 10 goto100
  2. 20 fori=217to242:pokei,peek(i)or128:next
  3. 22 poke214,21:print:print"      [154][212]otal [211]hares on hand:[158]     [157][157][157][157][157]"ts
  4. 24 print"    [154][208]resent value of stock:[158]         [157][157][157][157][157][157][157][157][157]"abs(ta);
  5. 26 ifta<0thenprint"+";
  6. 27 print:printmv$
  7. 28 return
  8. 100 ifpeek(174)<255thenifi<2theni=i+1:load"wall wiz"+str$(i),8,1
  9. 110 clr:poke53280,0:poke53281,0
  10. 111 hd$=""
  11. 120 dima$,a1,a5,aa,ab,ac,ad,ae,af,as,b$,bk,bm,bs,c,c$,ch,cl,e6,e$,e1$,ee,f$,fg
  12. 130 dimhb,hd$,i,ii,it,j,j1,l,l2,lb,li,lw,ms$,n,n1,n2,pm$,pn,r,ra,rc,s$,s1$,s2$
  13. 140 dimsl,sm,sp$,t,ta,ts,v,vs,w$,w1,w2,w4,w5,x,y,yn$,z$,e2$,e3$,rb$,lb$
  14. 150 dimw1(66),l1(66),h1(66),w2(66),h2(66),w3(66),l3(66),h3(66),w4(66),h4(66)
  15. 160 dimw5(66),h5(66),w6(66),l6(66),h6(66)
  16. 170 dimb3$(22),b4(22),b5(22),b6(22),b8(22),s3$(22),s4(22),s5(22),s6(22),s8(22)
  17. 180 dimu3$(22),u4(22),u5(22),u8(22),j1(66),l(22),n(22),m$(10,1),x(10),y(10)
  18. 190 fori=1to10:readm$(i,1),m$(i,0),x(i),y(i):next:open15,8,15
  19. 200 bs=16384:bm=bs+8192-1024:sm=bs+7168-1024
  20. 210 sp$="[152]                                      ":a$="[167][157]":w$="[165][157]
  21. 215 mv$[178]" asc1open - valnter a transaction    asc3 open- (NULL)enuon"
  22. 217 ss$[178]"                                      on"
  23. 220 [129]i[178]1[164]18:lb$[178]lb$[170]a$:rb$[178]rb$[170]w$:[130]:i[178][184](0):ac[178]49200:ad[178]49299:ae[178]49845:af[178]50700
  24. 230 [151]680,96:[151]681,92:[158]ac,0:[158]ac,1,16:[158]ae:[158]af:[137]800
  25. 240 [151]56576,2:[151]53272,120:[151]53265,[194](53265)[176]32:aa[178]1:[142]
  26. 250 [143]
  27. 260 [151]53272,23:[151]53265,27:[151]56576,151:aa[178]0:[142]
  28. 270 ms$[178]"(NULL)ake (NULL)ew lenhart first. atnny key...":[141]2710:[151]198,0:[146]198,1:[161]a$
  29. 280 it[178]1:ms$[178]pm$:[141]2710:[142]
  30. 290 [151]848,209:[151]896,112:[151]50563,186:[151]50564,204:[158]50560:ra[178]4:[142]
  31. 300 [151]848,209:[151]896,112:[151]50563,40:[151]50564,205:[158]50560:ra[178]2:[142]
  32. 310 [151]848,209:[151]896,112:[151]50563,62:[151]50564,205:[158]50560:ra[178]1:[142]
  33. 320 [151]848,209:[151]896,112:[158]50610:ra[178].5:[142]
  34. 330 [151]24352,64:[151]24353,64:[151]848,209:[151]851,121:rc[178]125
  35. 340 [151]847,112:[151]850,0:[158]830:[151]847,144:[151]850,8:[158]830:[142]
  36. 350 [151]24352,64:[151]24353,64:[151]848,209:[151]851,121:rc[178]12.5:[151]847,144:[151]850,8:[158]830:[142]
  37. 360 [151]24352,64:[151]24353,64:[151]848,209:[151]851,121:rc[178]1.25
  38. 370 [151]847,144:[151]850,0:[158]830:[151]847,128:[151]850,8:[158]830:[142]
  39. 380 [158]ad,x,y,fg[172]16:[142]
  40. 390 [141]250:[153]"loadlist (NULL)all (NULL)treet files this disk: wait":[159]1,8,0,"$ww.*":[161]#1,a$,b$
  41. 400 [161]#1,a$,b$:[161]#1,a$,b$:c[178]0:[139]a$[179][177]""[167]c[178][198](a$)
  42. 410 [139]b$[179][177]""[167]c[178]c[170][198](b$)[172]256
  43. 420 [153][202]([196](c),2);[163]3);
  44. 430 [161]#1,b$:[139]st[179][177]0[167]500
  45. 440 [139]b$[179][177][199](34)[167]430
  46. 450 [161]#1,b$:[139]b$[179][177][199](34)[167][153]b$;:[137]450
  47. 460 [161]#1,b$:[139]b$[178][199](32)[167]460
  48. 470 [153][163]22);:c$[178]"
  49. 480 c$=c$+b$:get#1,b$:ifb$<>""then480
  50. 490 printleft$(c$,3):ifst=0then400
  51. 500 print" blocks free ":close1:print:print"[208]ress any key...[152]":poke198,0:wait198,1:geta$:gosub770:return
  52. 510 open3,3:open4,4,7:print"";:forii=0to11:input#3,a$:iflen(a$)>40thena$=left$(a$,40)+chr$(13)+mid$(a$,41)
  53. 520 ifpos(0)=40thena$=chr$(13)
  54. 530 print#4,a$:next:close3:close4:return
  55. 540 nn=len(s$):ee=0:fori=1tonn:ch=asc(mid$(s$,i,1)):ifch>31andch<64thenpn=ch
  56. 550 ifch>63andch<96thenpn=ch-64
  57. 560 cl=pn*8+53248:hb=int(cl/256):lb=cl-hb*256:poke850,ee:poke847,lb:poke848,hb:sys830
  58. 570 ee=ee+8:next:return
  59. 580 ifaa=1thengosub250
  60. 590 poke828,0:iff$<>""thenpoke828,7:run
  61. 600 ms$="[157][157][157][157][157][204]oad which file?":gosub2710:gosub2780:ifleft$(w$,3)="ww."thenw$=mid$(w$,4)
  62. 610 f$=w$:iff$=""thenms$=pm$:gosub2710:return
  63. 620 poke680,96:sysac,0:ms$="searching for "+f$:gosub2710
  64. 630 open1,8,2,"0:ww."+f$+"s,r":gosub2880:ifa$<>"ok"thenms$=a$:gosub2710:run
  65. 640 input#1,f$,sd$,ra,w3,l,s1$:ms$="[204]oading "+f$:gosub2710:fori=0tow3:input#1,l1(i),l3(i)
  66. 650 input#1,h1(i),h2(i),h3(i),h4(i),h5(i):next:input#1,rc:n2=l:forj=0ton2
  67. 660 input#1,b4(j),b5(j),b6(j),b3$(j):input#1,s4(j),s5(j),s6(j),s3$(j)
  68. 670 input#1,u4(j),u5(j),u3$(j):next:close1:gosub240:sysae:sysaf:s$=f$:poke850,0:poke851,96:gosub540
  69. 680 s$=sd$:poke850,0:poke851,97:gosub540:ifra=4thengosub290
  70. 690 ifra=2thengosub300
  71. 700 ifra=1thengosub310
  72. 710 ifra=.5thengosub320
  73. 720 ifrc=125thengosub330
  74. 730 ifrc=12.5thengosub360
  75. 740 ifrc=1.25thengosub360
  76. 750 n=w3:forj=0ton:w1=j:gosub1480:w2=j:gosub1550:w3=j:gosub1630:w4=j:gosub1710:w5=j:gosub1770:next:return
  77. 760 rem
  78. 770 poke53280,0:poke53281,0:print"[147]":gosub2630:gosub2700
  79. 780 ms$="[213]se [195][210][211][210] [203][197][217][211] and [210][197][212][213][210][206]":pm$=ms$:gosub2710:ti$="000000":it=1
  80. 790 ab=0:r=1:return
  81. 800 ifpeek(828)=7thengosub580
  82. 810 gosub760:poke198,0:ifpeek(828)=5thengosub1100
  83. 820 geta$:ifti>15thent=nott:gosub2720:ti$="000000
  84. 830 [139]a$[178]""[167]820
  85. 840 t[178][171]1:[141]2720:[139]a$[178]""[167]it[178][171][168]it[172][171](it[179]10):t[178]0:[141]2720:[137]820
  86. 850 [139]a$[178]"cmd"[167]it[178][168][171]it[170]10[172](it[178]1):t[178]0:[141]2720:[137]820
  87. 860 [139]a$[178]""[167]it[178]it[170]2:[139]it[178]11[167]it[178]2
  88. 870 [139]it[177]11[167]it[178]1:t[178]0:[141]2720:[137]820
  89. 880 [139]a$[178]""[167]t[178]0:[141]2720:[137]820
  90. 890 [139]a$[178]"on"[167]it[178]it[171]2:[139]it[178][171]1[167]it[178]10
  91. 900 [139]it[178]0[167]it[178]10:t[178]0:[141]2720:[137]820
  92. 910 [139]a$[178]"on"[167]t[178]0:[141]2720:[137]820
  93. 920 [139]a$[179][177][199](13)[167]820
  94. 930 a$[178]m$(it,0)
  95. 940 [139]a$[178]"input"[167][141]240:[151]198,0:[146]198,1:[161]a$:[141]260:[153]"
  96. 950 ifa$="[137]"thengosub1270
  97. 960 ifa$="[134]"thenprint"":gosub250:ms$=pm$:gosub2710
  98. 970 ifa$="[138]"then2150
  99. 980 ifa$="[135]"thengosub1100
  100. 990 ifa$="[139]"theni=i+20:gosub2010:goto990
  101. 1000 ifa$="[136]"thengosub580:gosub2900:gosub260:i=0:goto940
  102. 1010 ifa$="[140]"thengosub1340
  103. 1020 ifa$="*"thengosub390
  104. 1030 ifa$="^"thengosub240:poke2,1:sys51200
  105. 1040 ifa$="\"thenpoke680,96:sysac,0:clr
  106. 1050 ifa$="@"thengosub510
  107. 1060 ifa$=""thengosub2930
  108. 1070 ifa$=" "then1090
  109. 1080 goto820
  110. 1090 goto820
  111. 1100 ifaa=1thengosub250
  112. 1130 poke828,0:iff$<>""thenpoke828,5:run
  113. 1140 sysac,0:sysae:sysaf:ms$="[157][157][157][157][157][157][206]ame of chart:":gosub2710:gosub2780:f$=w$
  114. 1150 iff$=""thenyn$="n":goto1120
  115. 1160 s$=f$:poke850,0:poke851,96:gosub540
  116. 1170 ms$="[157][157][157][157][211]tart date (mo/da/yr)":gosub2710:li=8:gosub2780:sd$=w$
  117. 1180 s$=sd$:poke850,0:poke851,97:gosub540
  118. 1190 gosub2890:ms$="[211]elect scale: (1/2/3/4)":gosub2710
  119. 1195 poke214,7:print
  120. 1200 print"[152][211]cale 0-20, 0-40, 0-80, 0-160":poke198,0:wait198,1:gosub2710
  121. 1210 geta$:sl=val(a$):ifsl<1orsl>4then1195
  122. 1220 gosub2710:onslgosub290,300,310,320
  123. 1230 printleft$(hd$,10)"[152][215]eekly volume: (0-.2), (0-2), (0-20)":print"[201]n millions.
  124. 1240 ms$[178]"(NULL)elect scale: (1/2/3)":[141]2710:[151]198,0:[146]198,1:[161]a$:[141]2710
  125. 1250 vs[178][197](a$):[139]vs[179]1[176]vs[177]3[167]vs[178]1
  126. 1260 [145]vs[141]330,350,360:[151]199,0:[141]2890:[141]2700:ms$[178]pm$:[141]2710:it[178]2:[137]820
  127. 1270 [139]aa[178]1[167][141]250
  128. 1280 [139]f$[178]""[167][141]270:[142]
  129. 1290 [151]199,0:[141]2890:[151]214,7:[151]211,7:[153]"print#1. str$ow mid$ones      4. (NULL)ield
  130. 1300 printtab(7)"2. [215]eekly volume  5. [208]/[197]":printtab(7)"3. [211]tock/[198]und     6. [197]rase
  131. 1310 ms$[178]"(NULL)elect (1-6)":[141]2710:[153]"":[151]198,0:[146]198,1:[161]a$:a1[178][197](a$)
  132. 1320 [139]a1[179]1[176]a1[177]6[167][141]2890:[141]2700:ms$[178]pm$:[141]2710:[142]
  133. 1330 [145]a1[141]1420,1510,1570,1660,1730,1790:[141]2890:ms$[178]pm$:[141]2710:[141]2700:[142]
  134. 1340 [139]aa[178]1[167][141]250
  135. 1350 ms$[178]"(NULL)ave?  atnre you sure? ((NULL)/(NULL))":[141]2710:[151]198,0:[146]198,1:[161]yn$
  136. 1360 [139]yn$[179][177]"y"[167]ms$[178]pm$:[141]2710:[142]
  137. 1370 [152]15,"s0:ww."[170]f$:[159]1,8,2,"0:ww."[170]f$[170]"s,w":z$[178][199](13)
  138. 1380 [152]1,f$;z$;sd$;z$;ra;z$;w3;z$;l;z$;s1$:n[178]w3:[129]i[178]0[164]n:[152]1,l1(i);z$;l3(i)
  139. 1390 [152]1,h1(i);z$;h2(i);z$;h3(i);z$;h4(i);z$;h5(i):[130]:[152]1,rc:n2[178]l:[129]j[178]0[164]n2
  140. 1400 [152]1,b4(j);z$;b5(j);z$;b6(j);z$;b3$(j):[152]1,s4(j);z$;s5(j);z$;s6(j);z$;s3$(j)
  141. 1410 [152]1,u4(j);z$;u5(j);z$;u3$(j):[130]:[160]1:[141]760:[142]
  142. 1420 ms$[178]"str$ (NULL)close(NULL)closeclose mid$close(NULL)close(NULL) val (NULL)":[141]2710:[141]2660:[151]214,8
  143. 1430 [153]"onprint#(NULL)eek? (1 - 64)     cmdcmdcmdcmd";:li[178]2:[141]2780:w1[178][197](w$)
  144. 1435 [139]w1[177]64[167][153]:[151]214,8:[137]1430
  145. 1440 [153]:li[178]4:[151]214,10:[153]"on"[163]2)"(NULL)ow amount? (1700-3400)      cmdcmdcmdcmdcmd";
  146. 1445 [141]2780
  147. 1450 l1(w1)[178][197](w$):[139]l1(w1)[179]1700[176]l1(w1)[177]3400[167]1440
  148. 1460 li[178]4:[153][200](hd$,13)"left$igh amount? (1700-3400)      cmdcmdcmdcmdcmdon";
  149. 1465 [141]2780
  150. 1470 [153]:h1(w1)[178][197](w$):[139]h1(w1)[179]1700[176]h1(w1)[177]3400[167][153]:[137]1460
  151. 1480 fg[178]10:bk[178]0:x[178]w1[172]4[170]20:[139]h1(w1)[178]0[176]l1(w1)[178]0[167][142]
  152. 1490 [129]y[178]106[171](h1(w1)[173]37)[164]106[171](l1(w1)[173]37):[141]380:[130]
  153. 1500 x[178]x[170]1:[129]y[178]106[171](h1(w1)[173]37)[164]106[171](l1(w1)[173]37):[141]380:[130]:[142]
  154. 1510 ms$[178]"(NULL) val val (NULL)close(NULL)close(NULL)close  (NULL)close(NULL) (NULL) (NULL) (NULL) val":[141]2710:[141]2890:[151]214,8
  155. 1520 [153]"onprint#(NULL)eek? (1 - 66)     cmdcmdcmdcmd";:li[178]2:[141]2780:w2[178][197](w$)
  156. 1525 [139]w2[177]66[167][153]:[151]214,8:[137]1520
  157. 1530 [153]:li[178]4:[151]214,10:[153]"on"[163]2)"atnmount?       cmdcmdcmdcmdcmd";:[141]2780:h2(w2)[178][197](w$)
  158. 1540 [139]h2(w2)[172]rc[177]25[167]1530
  159. 1550 fg[178]4:bk[178]0:x[178]w2[172]4[170]20:l2[178]188:[139]h2(w2)[178]0[167][142]
  160. 1560 [129]y[178]188[171](h2(w2)[172]rc)[164]l2:[141]380:[130]:x[178]x[170]1:[129]y[178]188[171](h2(w2)[172]rc)[164]l2:[141]380:[130]:[142]
  161. 1570 ms$[178]"(NULL)atn(NULL)(NULL) (NULL)(NULL)(NULL)valval(NULL) (NULL)right$(NULL)atn(NULL)str$":[141]2710:[141]2890:[151]214,8
  162. 1580 [153]"onprint#(NULL)eek? (1 - 66)     cmdcmdcmdcmd";:li[178]2:[141]2780:w3[178][197](w$)
  163. 1585 [139]w3[177]66[167][153]:[151]214,8:[137]1580
  164. 1590 [153]:li[178]4:[151]214,10:[153]"on"[163]2)"(NULL)ow amount?       cmdcmdcmdcmdcmd";:[141]2780
  165. 1600 l3(w3)[178][197](w$):[139]l3(w3)[172]ra[177]85[167]1590
  166. 1610 li[178]4:[153][200](hd$,13)"left$igh amount      cmdcmdcmdcmdcmdon";:[141]2780
  167. 1620 [153]:h3(w3)[178][197](w$):[139]h3(w1)[172]ra[177]85[167][153]:[137]1610
  168. 1630 fg[178]7:bk[178]0:x[178]w3[172]4[170]20:[139]h3(w3)[178]0[176]l3(w3)[178]0[167][142]
  169. 1640 [129]y[178]132[171](h3(w3)[172]ra)[164]132[171](l3(w3)[172]ra):[141]380:[130]
  170. 1650 x[178]x[170]1:[129]y[178]132[171](h3(w3)[172]ra)[164]132[171](l3(w3)[172]ra):[141]380:[130]:[142]
  171. 1660 ms$[178]"(NULL)closeright$ val (NULL) str$":[141]2710:[141]2890
  172. 1665 [151]214,7:[153]
  173. 1670 [153]"print#(NULL)eek? (1 - 66)     cmdcmdcmdcmd";:li[178]2:[141]2780:w4[178][197](w$)
  174. 1680 [139]w4[179]1[176]w4[177]66[167]1665
  175. 1685 [151]214,9:[153]
  176. 1690 [153]"(NULL)ercent (0 - 17)      cmdcmdcmdcmdcmd";:[141]2780:h4(w4)[178][197](w$)
  177. 1700 [139]h4(w4)[179]0[176]h4(w4)[177]16[167]1685
  178. 1710 fg[178]3:bk[178]0:x[178]w4[172]4[170]20:[139]h4(w4)[178]0[167][142]
  179. 1720 y[178]132[171](h4(w4)[172]4):[141]380:x[178]x[170]1:y[178]132[171](h4(w4)[172]4):[141]380:[142]
  180. 1730 ms$[178]"(NULL) / val   (NULL)closeatnclose(NULL) right$ (NULL)":[141]2710:[141]2890:[151]214,8
  181. 1740 li[178]2:[153]"onprint#(NULL)eek (1 - 66)      cmdcmdcmdcmdcmd";:[141]2780:w5[178][197](w$)
  182. 1750 li[178]3:[139]w5[177]66[167][153]:[151]214,8:[137]1740
  183. 1760 [151]214,8:[153]"on"[163]24)"atnmount      cmdcmdcmdcmdcmd";:[141]2780:h5(w5)[178][197](w$):[139]h5(w5)[177]16[167][153]:[137]1760
  184. 1770 fg[178]3:bk[178]0:x[178]w5[172]4[170]20:[139]h5(w5)[178]0[167][142]
  185. 1780 y[178]132[171](h5(w5)[172]4):[141]380:x[178]x[170]1:y[178]132[171](h5(w5)[172]4):[141]380:[142]
  186. 1790 ms$[178]"val (NULL) atn (NULL) val":[141]2710:[151]214,15:[151]211,0
  187. 1800 [153]"on(NULL)eek (1 - 66)     cmdcmdcmdcmd";:[141]2780:w6[178][197](w$)
  188. 1805 [139]w6[179]1[176]w6[177]66[167][153][151]214,15:[137]1800
  189. 1810 [151]214,15:[153]"on"[163]21)"(NULL)hich field? (1-5)
  190. 1820 geta$:ifa$<"1"ora$>"5"then1820
  191. 1830 e6=val(a$):gosub2890:fg=0:bk=0:x=w6*4+20:one6gosub1890,1940,1840,1980,1980:return
  192. 1840 ms$="[197][160][210] [193] [211] [197] [160] [211] [212] [207] [195] [203] / [198] [213] [206] [196]":gosub2710:print:poke214,8
  193. 1850 li=4:print"[145][204]ow amount? ";:gosub2780:l6(w6)=val(w$)
  194. 1860 li=4:printtab(20)"[200]igh amount? ";:gosub2780:h6(w6)=val(w$)
  195. 1870 fory=132-(h6(w6)*ra)to132-(l6(w6)*ra):gosub380:next
  196. 1880 x=x+1:fory=132-(h6(w6)*ra)to132-(l6(w6)*ra):gosub380:next:return
  197. 1890 ms$="[197] [210] [193] [211] [197] [160] [196] [207] [215] [160] [202] [207][160][206][160][197] [211]":gosub2710:print:poke214,8
  198. 1900 li=4:print"[145][204]ow amount? ";:gosub2780:l6(w6)=val(w$)
  199. 1910 li=4:printtab(20)"[200]igh [193]mount? ";:gosub2780:h6(w6)=val(w$)
  200. 1920 fory=119-(h6(w6)/20)to119-(l6(w6)/20):gosub380:next
  201. 1930 x=x+1:fory=119-(h6(w6)/20)to119-(l6(w6)/20):gosub380:next:return
  202. 1940 ms$="[197][210][193][211][197][160][215][197][197][203][204][217][160][214][207][204][213][205][197]":gosub2710:print
  203. 1950 li=2:poke214,8:print"[145][193]mount?     [157][157][157][157]";:gosub2780:h6(w6)=val(w$)
  204. 1960 ifh6(w6)<0orh6(w6)>20thenprint:goto1950
  205. 1970 l6=188:fory=188-(h6(w6)/.8)tol6:gosub380:next:x=x+1:fory=188-(h6(w6)/.8)tol6:gosub380:next:return
  206. 1980 ms$="[197][210][193][211][197] [217][201][197][204][196] & [208]/[197] [210][193][212][201][207]":gosub2710:print:poke214,8
  207. 1990 li=2:print"[145][193]mount? (%) ";:gosub2780:h6(w6)=val(w$):y=132-(h6(w6)*4):gosub380
  208. 2000 x=x+1:y=132-(h6(w6)*4):gosub380:return:stop
  209. 2010 ifaa=1thengosub250
  210. 2020 ifab=1thenreturn
  211. 2030 n1=w3:ifi<0ori>n1theni=1
  212. 2040 print"[147][153] name "f$spc(3)" starts "sd$:print"[155][215]eek  [196]ow [202].  [214]ol.   [211]tk/[198]nd  [217]ld  [208]/[197]
  213. 2050 [139]i[178]1[167][151]53280,6
  214. 2060 [129]j1[178]i[164]i[170]19:[153]"printcmd"j1:[153][163]2)"on"l1(j1):[153][163]7)"on"h1(j1):[153][163]12)"on"h2(j1)
  215. 2070 [153][163]17)"on"l3(j1):[153][163]23)"on"h3(j1):[153][163]30)"on"h4(j1):[153][163]34)"on"h5(j1):[139]j1[177]65[167][142]
  216. 2080 [130]:[151]214,22:[153]"list(NULL)(NULL)atnlenval page/len(NULL)(NULL)(NULL)-(NULL) print/(NULL)val(NULL)(NULL)(NULL)(NULL) exit
  217. 2090 geta$:ifa$=""then2090
  218. 2100 ifa$=" "thena$="[139]":poke53280,14:return
  219. 2110 ifa$=""thengosub2130:gosub510:goto2090
  220. 2120 a$="":gosub770:return
  221. 2130 ifpeek(53280)=246thenreturn
  222. 2140 print"";:forii=1to2:print"                                      ":next:return
  223. 2150 ifaa=1thengosub250
  224. 2160 print"[147]":gosub2360:ifl=0thengoto2400
  225. 2170 gosub2300
  226. 2180 geta$:ifa$<>"[133]"anda$<>"[134]"anda$<>""then2180
  227. 2190 ifa$<>"[133]"then2200
  228. 2195 ifl<20then2220
  229. 2197 goto2180
  230. 2200 ifa$=""thengosub510:goto2180
  231. 2210 goto800:goto2180
  232. 2220 s2$="":poke214,23:print"[212]ransaction [153] b [146] [159] s [146] [156] u [146] (b,s,u)       [145]"
  233. 2230 gets2$:ifs2$<>"b"ands2$<>"s"ands2$<>"u"ands2$<>chr$(13)then2230
  234. 2240 ifs2$=chr$(13)then2180
  235. 2245 l=l+1
  236. 2250 ifs2$="b"thengosub2430:goto2180
  237. 2260 ifs2$="s"thengosub2500:goto2180
  238. 2270 gosub2570:goto2180
  239. 2300 a5=0:ts=0:ta=0:n2=l:forl=1ton2:ifb5(l)thengosub2470
  240. 2310 ifs5(l)thengosub2540
  241. 2320 ifu5(l)thengosub2600
  242. 2330 ifb3$(l)<>""thena5=1
  243. 2340 next:gosub20
  244. 2348 l=l-1:ifa5=0thenl=2
  245. 2350 return
  246. 2360 print"[158] "s1$" [146] "tab(7)"[153] [194]ought [146] [159] [211]old [146] [156] [213]pdate [146] [129] [212]otal [146]
  247. 2370 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan for value wait
  248. 2380 print"[196]ate  #[211]hr [208]rice  [212]otal  [195]omm"
  249. 2382 poke214,20:print:print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  250. 2385 return
  251. 2400 print"[147]":s1$="[217]ear":gosub2360:poke214,22:print:s1$=""
  252. 2405 print"[215]hich year? (xxxx)";:li=4:gosub2780:s1$=w$
  253. 2410 ifs1$=""thengosub760:goto820
  254. 2420 gosub2360:l=l+2:goto2170
  255. 2430 poke214,23:print:printss$:print"[196]ate (mo/da)";:li=5:gosub2780:b3$(l)=w$
  256. 2440 printss$:print"[206]umber of [211]hares";:gosub2780:b4(l)=v
  257. 2450 printss$:print"[208]rice [208]er [211]hare";:gosub2780:b5(l)=v
  258. 2460 printss$:print"[195]ommission";:gosub2780:b6(l)=v
  259. 2470 poke214,l:print"[153]"b3$(l);tab(5)b4(l);tab(11)b5(l);tab(17)int(b4(l)*b5(l))
  260. 2480 b8(l)=b4(l)*b5(l)-b6(l):print"[145]"tab(24)b6(l);tab(30)b8(l)
  261. 2490 ta=ta+b8(l)-s8(l):ts=ts+b4(l):gosub20:return
  262. 2500 poke214,23:print:printss$:print"[196]ate (mo/da)";:li=5:gosub2780:s3$(l)=w$
  263. 2510 printss$:print"[206]umber of [211]hares";:gosub2780:s4(l)=v
  264. 2515 ifv>tsthen2510
  265. 2520 printss$:print"[208]rice [208]er [211]hare";:gosub2780:s5(l)=v
  266. 2530 printss$:print"[195]ommission";:gosub2780:s6(l)=v
  267. 2540 poke214,l:print"[159]"s3$(l);tab(5)s4(l);tab(11)s5(l);tab(17)int(s4(l)*s5(l))
  268. 2550 print"[145]"tab(24)s6(l):s8(l)=s4(l)*s5(l)-s6(l):print"[145]"tab(30)s8(l):ta=ta-s8(l):ts=ts-s4(l)
  269. 2560 gosub20:return
  270. 2570 poke214,23:print:printss$:print"[196]ate (mo/da)";:gosub2780:u3$(l)=w$
  271. 2580 u4(l)=ts:rem printss$:print"[206]umber of [211]hares";:gosub2780:u4(l)=v
  272. 2590 printss$:print"[206]ew [208]rice";:gosub2780:u5(l)=v
  273. 2600 poke214,l:print"[156]"u3$(l);tab(5)u4(l);tab(11)u5(l)
  274. 2610 print"[145]"tab(17)int(u4(l)*u5(l)):u8(l)=u4(l)*u5(l):print"[145]"tab(30)u8(l)
  275. 2620 ta=0:ta=u8(l):ts=u4(l):gosub20:return
  276. 2630 hd$="
  277. 2631 [153]"waitcontpospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  278. 2632 [129]i[178]1[164]3:[153]"open                                      ":[130]
  279. 2633 [153]"frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  280. 2640 :
  281. 2650 [153][200](hd$,21)"waitlistpospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  282. 2651 [129]i[178]1[164]3:[153]"print#                                      ":[130]
  283. 2652 [153]"pokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  284. 2660 [153][200](hd$,6)"waitlistpospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  285. 2661 [129]i[178]1[164]13:[153]"print#                                      ":[130]
  286. 2670 [153]"pokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  287. 2680 [153]"open (NULL) atn (NULL) (NULL)   (NULL)close(NULL)close(NULL)closeval val (NULL)close  (NULL)closeright$ (NULL)closeatn (NULL) str$":[151]53280,6
  288. 2690 [153]"sys"lb$""[163]39)rb$"":[129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[142]
  289. 2700 [129]it[178]1[164]10:t[178][171]1:[141]2720:[130]:it[178]1:[142]
  290. 2710 [153][200](hd$,23)sp$"on":[153][166]20[171][195](ms$)[173]2)""ms$;:ms$[178]"":[142]
  291. 2720 [151]199,[171]t:[153][200](hd$,y(it))"print#"[166]x(it))m$(it,1):[142]
  292. 2730 [131]" (NULL)ake (NULL)ew lenhart ","read",0,8," (NULL)ake valntries ","goto",23,8
  293. 2740 [131]" (NULL)ransactions   ","run",0,10," (NULL)rint lenhart  ","^",23,10
  294. 2750 [131]" (NULL)oad (NULL)ld lenhart ","let",0,12," (NULL)ave lenhart   ","restore",23,12
  295. 2760 [131]" (NULL)how str$ata      ","if",0,14," str$irectory    ","*",23,14
  296. 2770 [131]" (NULL)iew lenhart     ","input",0,16," (NULL)uit         ","",23,16
  297. 2780 w$[178]"":[153]">cmd";:[139]li[178]0[167]li[178]14
  298. 2790 [161]a$:[139]a$[178]"on"[176]a$[178]""[176]a$[178]"cmd"[176]a$[178]""[176]a$[178]""[176]a$[178]"load"[176]a$[178]""[167]2790
  299. 2800 lw[178][195](w$):as[178][198](a$):[139]as[178]13[176]as[178]141[176]as[178]20[167]2850
  300. 2810 [139][194](653)[178]2[176][194](653)[178]4[176]as[178]148[167]2790
  301. 2820 [139]lw[178]li[175](as[179][177]20[175]as[179][177]13[175]as[179][177]141)[167]2790
  302. 2830 [139]as[178]34[176](as[177][178]133[175]as[179][178]140)[176](as[177][178]1[175]as[179][178]31)[167]2790
  303. 2840 w$[178]w$[170]a$:[153]a$">cmd";:lw[178][195](w$):[137]2790
  304. 2850 [139]as[178]20[175]w$[179][177]""[167]w$[178][200](w$,lw[171]1):[153]"cmd< cmdcmd";:[137]2790
  305. 2860 [139]as[178]20[175]w$[178]""[167]2790
  306. 2870 [139]as[178]13[167][153]" on":lw[178][195](w$):v[178][197](w$):li[178]0:[142]
  307. 2880 [132]15,w$,a$:[142]
  308. 2890 [153]"";:[129]i[178]1[164]13:[153]"print#                                      ";:[130]:[153]"":[142]
  309. 2900 [161]a$:[139]a$[178]""[167]2900
  310. 2910 [139]a$[179][177]"goto"[175]a$[179][177]"run"[175]a$[179][177]"if"[167]a$[178]"dim
  311. 2920 return
  312. 2930 ms$="[209]uit?  [193]re you sure? (y/n)":gosub2710:poke198,0:wait198,1:geta$
  313. 2940 ifa$<>"y"thenms$=pm$:gosub2710:return
  314. 2950 clr
  315. 2970 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer<>63thenprint"[147]":end
  316. 2980 q$=chr$(34):poke646,peek(53281):print"[147]":print"load"q$a$q$",8
  317. 2990 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  318.