home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 62 / 062.d81 / chartstar (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  21KB  |  689 lines
  1. 1 ifpeek(669)=0thengosub616
  2. 2 ifpeek(669)<>3then677
  3. 3 goto15
  4. 4 q6$="":poke198,0:u6=53280:db=peek(646)
  5. 5 poke646,rnd(0)*15+1:geta$:print"[164][157]";
  6. 6 ifa$=""then5
  7. 7 ifa$=chr$(13)thenprint" ":a$=q6$:poke646,db:return
  8. 8 if(a$=chr$(20)andlen(q6$))thenq6$=left$(q6$,len(q6$)-1):goto13
  9. 9 iflen(q6$)>=lnthentg%=peek(u6):pokeu6,1:fort6=1to100:next:pokeu6,tg%:goto5
  10. 10 if(a$>=" "anda$<="[223]")then12
  11. 11 goto5
  12. 12 q6$=q6$+a$
  13. 13 print""a$;:ifa$=chr$(34)thenpoke212,0
  14. 14 goto5
  15. 15 dimv(4,40),vv(4,40),ee(4,41),md(4,41),sn$(40)
  16. 16 open1,8,5,"pr.config,s,r":input#1,dn:input#1,sa:input#1,at:input#1,at$:close1
  17. 17 pa$="":ap$=""+pa$+pa$
  18. 18 goto233
  19. 19 forpa=0to3000:next:return
  20. 20 print"[147][154]  vertical or horizontal chart?  (v[154]/h[154])"
  21. 21 gethv$:ifhv$="h"orhv$="v"orhv$=chr$(13)then23
  22. 22 goto21
  23. 23 ifhv$=chr$(13)thenhv$="v
  24. 24 [142]
  25. 25 [153]"loadcont enter data first":[141]19:[137]233
  26. 26 ee(m,d[170]1)[178]x4[171]1
  27. 27 [139]n8[171]ee(m,a[170]1)[179]8[176]n8[171]x4[179]5[167][142]
  28. 28 la[178]0
  29. 29 [129]po[178]p[170]pp[164]p[170]pp[170](pp[173]6)
  30. 30 [205]po[170]2,[181](n8[171]la),po[170]2,ee(m,a[170]1),1
  31. 31 la[178]la[170]1:[130]:[142]
  32. 32 [153]"loadcontwould you like to name"
  33. 33 [153]"    your"dg"groups? (ycont/ncont)":[141]462
  34. 34 [139]jn$[178]"n"[167][142]
  35. 35 [129]a[178]1[164]dg:[153]"opengroup"a;:ln[178]5:[141]4:gd$(a)[178]a$:[130]:[142]
  36. 36 [129]h[178]85[164]160[169]75[173]4
  37. 37 [205]70,h,190,h[170]30,1
  38. 38 [205]190,h[170]30,310,h,1:[130]
  39. 39 [205]190,50,310,80,1:[205]70,80,190,50,1
  40. 40 [205]310,85,190,55,1:[205]310,160,310,80,1:[205]70,160,70,80,1
  41. 41 [205]190,190,190,115,1
  42. 42 [129]h[178]160[164]190[169]30[173]dg
  43. 43 [205]230[171](4[172](200[171]h)),h,230[171](4[172](200[171]h)),h[171]75,1
  44. 44 [205]230[171](4[172](200[171]h)),h[171]75,350[171](4[172](200[171]h)),h[171]105,1:[130]
  45. 45 [224]100,75,1:[142]
  46. 46 :
  47. 47 [139]me[178]8[175]hv$[178]"h"[167][142]
  48. 48 [153]"loadcont  3-d version? (ycont/ncont)"
  49. 49 [141]462:b3$[178]jn$:[153]"load":[142]
  50. 50 b7[178]0.3[172]pp:b6[178]0.15[172]pp:b4[178]u[171]b7:b5[178]u[170]b7
  51. 51 [139]hv$[178]"h"[167]58
  52. 52 [205]b4,n8,b4[170]b6,n8[170]b6,1
  53. 53 [205]b5,n8,b5[170]b6,n8[170]b6,1
  54. 54 [205]b4[170]b6,n8[170]b6,b5[170]b6,n8[170]b6,1
  55. 55 [205]b5[170]b6,n8[170]b6,b5[170]b6,x4[170]b6,1
  56. 56 [205]b5[170]b6,x4[170]b6,b5,x4,1
  57. 57 [205]x1[170]2,x4,x1[170]2[170]b6,x4[170]b6,1:[205] x2,x4,x2[170]b6,x4[170]b6,1:[142]
  58. 58 [205]n8,b4,n8[171]b6,b4[171]b6,1
  59. 59 [205]n8,b5,n8[171]b6,b5[171]b6,1:
  60. 60 [205]n8[171]b6,b4[171]b6,n8[171]b6,b5[171]b6,1
  61. 61 [205]n8[171]b6,b4[171]b6,x1[170]2,b4[171]b6,1:[142]
  62. 62 dx[178]225:dy[178]120:[129]a[178]1[164]dg
  63. 63 dx[178]dx[171]120[173]dg:dy[178]dy[171]30[173]dg
  64. 64 [129]aa[178]1[164]d:tx[178]dx[170]d3:ty[178]dy[170]d4
  65. 65 [139]v(a,aa)[178][179]bv[167]ee(a,aa)[178]0
  66. 66 [211]1:[205]tx[171]11,ty[171]2,tx[171]11,ty[170]ee(a,aa)[170]2,1
  67. 67 [205]tx[171]12,ty,tx[171]12,ty[170]ee(a,aa)[170]2,1:[211]0
  68. 68 [205]tx[171]13,ty[171]2,tx[171]13,ty[170]ee(a,aa),1
  69. 69 [205]tx[171]3,ty[170]ee(a,aa)[170]2,tx[171]13,ty[170]ee(a,aa),1
  70. 70 [211]1:[205]tx[171]2,ty[170]ee(a,aa)[170]1,tx[171]12,ty[170]ee(a,aa)[171]1,1:[211]0
  71. 71 [129]n[178]2[164]ee(a,aa)[170]3
  72. 72 [205] tx[171]10,ty[170]ee(a,aa)[171]n,tx[171]1,ty[170]ee(a,aa)[171]n[170]2,1:[130]
  73. 73 [139]xa[178]4[176]a[179][177]dg[167]80
  74. 74 [139]d[177]9[175]dd[179]15[175]aa[173]2[178][181](aa[173]2)[167]80
  75. 75 [139]d[177]15[175]aa[173]3[178][181](aa[173]3)[167]80
  76. 76 c$[178][196](aa):[139]xa[178]2[167]c$[178][199](64[170]aa)
  77. 77 [139]xa[178]3[167]c$[178][196](ff):ff[178]ff[170]x9
  78. 78 [129]qq[178]1[164][195](c$):[216]1,tx[171]38[171](7[172]qq),ty[171]10[171](2[172]qq),1,[202](c$,([195](c$)[170]1)[171]qq,1)
  79. 79 [130]
  80. 80 d3[178]d3[170]120[173]d:d4[178]d4[171]30[173]d
  81. 81 [130]:d3[178]0:d4[178]0:[130]:aa[178]0:[139]jn$[178]"n"[167]336
  82. 82 pp[178]310:p[178]78:[129]q[178]1[164]dg:pp[178]pp[171](120[173]dg):p[178]p[171](30[173]dg):[129]qq[178]1[164][195](gd$(q))
  83. 83 [129]qq[178]1[164][195](gd$(q)):[216]1,pp[170]14[170](3[172]qq),p[171](8[172]qq)[170]13,1,[202](gd$(q),qq,1)
  84. 84 [130]:[130]:[137]336
  85. 85 [153]"loadcont how do you want to mark your data?
  86. 86 print"1[159]  letter or character":print"2[159]  square"
  87. 87 print"3[159]  nothing"
  88. 88 geti$:if(i$<"1"ori$>"3")and(i$<>chr$(13))then88
  89. 89 ifi$<>"1"then93
  90. 90 print"[154]press the character you want ";
  91. 91 getii$:ifii$=""then91
  92. 92 printii$:fort=1to500:next
  93. 93 ifi$=chr$(13)theni$="2"
  94. 94 print"[147]":return
  95. 95 :
  96. 96 t1=(x2-x1)/d
  97. 97 bg=1:ifgb=0thenbg=0.4
  98. 98 t2=int((t1-10)/(bg*dg))
  99. 99 ift2=>t1thent2=t1
  100. 100 x7=x1+6:n2=int(nn+(gb*ii)):n3=t2/4:y7=x7+n2:y8=x7+t2+n2-1
  101. 101 ifbv>v(m,a)then107
  102. 102 ifm>1then:(NULL)1:fort=y7+1toy8:(NULL) t,n8-1,t,x4,1:next:(NULL)0
  103. 103 ifm=2thenfort=y7toy8:(NULL)t,n8,t,x4,1:next
  104. 104 ifm=1thenforc=1ton8-x4step2:(NULL)y7,x4+c,y8,x4+c,1:next
  105. 105 ifm=4thenforc=y7+1toy8step2:(NULL)c,x4,c,n8,1:next
  106. 106 (NULL) y7,n8,y7+t2,x3,1
  107. 107 y9=y7+(0.5*t2):ifgb$="1"theny9=y7+(0.5*(dg*t2))
  108. 108 ifgb$="2"theny9=y7+(0.7*((dg*t2)/2))
  109. 109 y9=y9-4:return
  110. 110 ifdg=1thengb=1:gb$="1
  111. 111 [139]dg[178]1[167][142]
  112. 112 [153]"loadcont distance between bars"
  113. 113 [153]" 1open  beside each other":[153]" 2open  partly overlapped"
  114. 114 [153]" 3open  overlapped"
  115. 115 [161]gb$:[139](gb$[179]"1"[176]gb$[177]"3")[175]gb$[179][177][199](13)[167]115
  116. 116 gb[178][197](gb$)
  117. 117 [139]gb[178]2[167]gb[178].7:[142]
  118. 118 [139]gb[178]3[167]gb[178]0:[142]
  119. 119 gb[178]1:[142]
  120. 120 [139]w[178]5[167]w[178]0
  121. 121 [153]ap$[170]"  1  2  3  4  5cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"[163]1[170](3[172]w))""w[170]1"wait":[142]
  122. 122 a$[178]"standard ":l$[178]a$[170]"x and y    ":[139]l[178]5[167]l[178]0
  123. 123 [139]l[178]1[167]l$[178]a$[170]"+ horizontal"
  124. 124 [139]l[178]2[167]l$[178]a$[170]"+ vertical  "
  125. 125 [139]l[178]3[167]l$[178]a$[170]"+ horiz. and vert."
  126. 126 [139]l[178]4[167]l$[178]"no axis                       "
  127. 127 r$[178]"invisiblewait":[139]r[173]2[178][181](r[173]2)[167]r$[178]"visible   "
  128. 128 [142]
  129. 129 [139]dg[179]2[167]233
  130. 130 [139]dg[178]2[167]n1[178]1:n2[178]2:[142]
  131. 131 [153]"load"[163]12)"min-max diagram"
  132. 132 [139]dg[177]2[167][153]"compare which 2 groups ( 1 -"dg")"
  133. 133 [153]"  ";:ln[178]1:[141]4:[153]"onand",:n1[178][197](a$)
  134. 134 ln[178]1:[141]4:n2[178][197](a$)
  135. 135 [139](n1[177]dg)[176](n2[177]dg)[176](n1[178]n2)[167]131
  136. 136 [142]
  137. 137 [139]ee(n1,a)[177]ee(n2,a)[167]139
  138. 138 [205] u,ee(n1,a),u,ee(n2,a),1:[142]
  139. 139 [205] u,ee(n2,a),u,ee(n1,a),1:[142]
  140. 140 w[178]4:[153]"load"
  141. 141 [153]ap$[163]8)"contenter rcont for random data"
  142. 142 [153]"open  how many groups of data? (1open-4open)   cmdcmd";
  143. 143 ln[178]1:[141]4:[139](a$[179]"1"[176]a$[177]"4")[175]a$[179][177]"r"[167]142
  144. 144 dg[178][197](a$):[139]a$[178]"r"[167]464
  145. 145 [153]"sys"[170]ap$[163]5)"                          "
  146. 146 [153]"openhow many items in":[153]"      each group? (2-40)   cmdcmd";
  147. 147 ln[178]2:[141]4:d[178][197](a$)
  148. 148 [139]d[177]40[176]d[179]2[167]146
  149. 149 [129]a[178]1[164]dg
  150. 150 [129]b[178]1[164]d
  151. 151 [153]""[170]pa$[163]15)"sysgroup "a
  152. 152 [153][163]16)"          "
  153. 153 [153][163]12)"ondata "b"         cmdcmdcmdcmdcmdcmdcmdcmd";
  154. 154 ln[178]6:[141]4:v(a,b)[178][197](a$)
  155. 155 [153][163]12)"on              "
  156. 156 [139]v(a,b)[179]0[176]v(a,b)[177]10[174]6[167]b[178]b[171]1:[153][163]15)"onout of range!":[141]19:[130]
  157. 157 [130]b:su[178]0:[130]a
  158. 158 ht[178]0:pp$[178]""
  159. 159 [129]a[178]1[164]dg
  160. 160 pp$[178]""
  161. 161 [153]"loadopen"
  162. 162 dd[178]d:[139]d[177]23[167]dd[178]23
  163. 163 [153]ap$[163]21)"sysononongroupwait"a""
  164. 164 [129] b[178]1[164]d
  165. 165 su[178]su[170]v(a,b)
  166. 166 vv(a,b)[178]su
  167. 167 [139]v(a,b)[177]ht[167]ht[178]v(a,b)
  168. 168 ce[178]2:[139]b[177]9[167]ce[178]1
  169. 169 le[178][195]([196](v(a,b)))
  170. 170 [139]b[177]23[167]pp$[178]pp$[170]"":[137]173
  171. 171 [153][163]ce)b"="[163]14[171]le)v(a,b)
  172. 172 [137]174
  173. 173 [153]""[170]pp$[163]21)b"="[163]34[171]le)v(a,b)
  174. 174 [130]b:su[178]0:[139]q[178]4[167]186
  175. 175 [153]ap$[163]18)"contdata okay? (ycont/ncont)"
  176. 176 [141]462
  177. 177 [139]jn$[178]"y"[167]186
  178. 178 ra[178]0:[153][163]17)"conton change? (1 cont-"[196](d)"cont) ";
  179. 179 ln[178]2:[141]4:by[178][197](a$)
  180. 180 [139]by[177]d[167]a[178]a[171]1:[130]a
  181. 181 q[178]5
  182. 182 [153][163]20)"to ";
  183. 183 ln[178]7:[141]4:pa[178][197](a$)
  184. 184 [139]pa[179]0[176]pa[177]10[174]6[167][153][163]17)"on              ":a[178]a[171]1: