home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / wallstreet (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  13KB  |  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