home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / _docanalys / !DocAnalys / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1993-08-27  |  6KB  |  254 lines
  1.  >!RunImage
  2.  For DocAnalysis
  3.  NSW 1/7/93
  4. Kj$="1.00 (1st July 1993)":
  5. $+" (internal error code "+
  6. +")"):
  7. $+" (internal error code "+
  8. +")")
  9. &400C7,,c%
  10. &400C8,,c%
  11. &400C5,,c%
  12. &400C6,,c%
  13. 17,18:
  14. &400DD:
  15. m:ba%=c%!24:g%=c%!4:n%=!c%:
  16. b(e%,7,
  17. #d%*100)+"%"):c$=
  18. c$=""
  19. #d%:d%=0:r%=
  20. :h%=0:
  21. b(e%,11,"Sorting"):
  22. b(e%,7,"0%"):w%=0
  23. <$t%=c$:
  24. ca%:c$=$t%:
  25. l%:$z%=a$(j%):
  26. a%(j%)+=1:
  27. j%<l%+1
  28. !aa$(l%)=c$:a%(l%)=1:l%+=1:
  29. #d%:d%=0:r%=
  30. :h%=0:
  31. b(e%,11,"Sorting"):
  32. b(e%,7,"0%"):w%=0
  33. l%=0o%=
  34. $0M%=
  35. (h%/l%*100):
  36. M%>w%
  37. b(e%,7,
  38. M%+"%"):w%=M%
  39. 2:$t%=a$(h%):$z%=a$(h%+1):
  40. a$(h%),a$(h%+1):
  41. a%(h%),a%(h%+1):A%=
  42. :f$=c$:h%-=2
  43. h%+=1:
  44. h%<0h%=0
  45. h%<l%-1
  46. )%$t%=a$(h%):$z%=f$:
  47. _%A%=
  48. h%-=3
  49. h%<0h%=0
  50. h%=l%-1
  51. b(e%,7,"0%"):w%=0:
  52. b(e%,11,"Checking"):h%=0:A%=
  53. b(e%,7,"--%"):
  54. b(e%,11,"Finished"):
  55. b$=""
  56. (b$):a$="Number of sentences":
  57. #d%,a$+
  58. a$," ")+
  59. D%:a$="Number of commas":
  60. #d%,a$+
  61. a$," ")+
  62. #d%,"Number of words per sentence :":a$="     Max":
  63. #d%,a$+
  64. a$," ")+
  65. N%:a$="     Min":
  66. #d%,a$+
  67. a$," ")+
  68. a$="     Mean":
  69. #d%,a$+
  70. a$," ")+
  71. #d%,"":a$="Word":
  72. #d%,a$+
  73. a$," ")+"Frequency":
  74. l%+1:
  75. a$(E%)<>""
  76. #d%,a$(E%)+
  77. a$(E%)," ")+
  78. a%(E%)
  79. 35,"-"):a$="Total":
  80. #d%,a$+
  81. a$," ")+
  82. #d%:d%=0:
  83. &5,"SetType "+b$+" FFF":
  84. r:P%=0:N%=0:O%=201:
  85. j%>N%:
  86. b%(j%)>0N%=j%
  87. j%<O%:
  88. b%(j%)>0O%=j%
  89. l%:P%+=a%(j%):
  90. D%>0a=P%/D%
  91. e:g$="":
  92. #d%:k%=
  93. #d%:g$+=
  94. k%=13
  95. k%=10:
  96. ".":b%(Q%)+=1:D%+=1:Q%=0
  97. ",":`%+=1
  98. " ":Q%+=1
  99. 1:L%=
  100. c% 256,a% 256,m% 512,ea% 1024,fa% 512,R% 128,ga% 32,t% 128,z% 128,ha% 2048,ia% 512:L%=
  101. :ja%=
  102. :$ga%="Error from DocAnalyse":T%=0:U%=0:
  103. a$(25000),a%(25000),b%(200):
  104. &400C0,200,&4B534154,"DocAnalyse"
  105. f(-1,0,0,68,68,12298,"!docanalys",0,0,0):d%=
  106. "<DocAnalyse$Dir>.Sprites":F%=
  107. #d%+16:
  108. #d%:d%=0:
  109. p% F%:!p%=F%-1:p%!4=0:p%!8=16:p%!12=16:
  110. &2E,256+10,p%,"<DocAnalyse$Dir>.Sprites":
  111. f:r%=
  112. :l%=0:b$="":o%=
  113. :D%=0:`%=0:Q%=0:f$="ZZZZZ":b%()=0:a%()=0:a$()="":B%=t%:C%=z%:
  114. &400D9,,"<DocAnalyse$Dir>.Templates":V%=
  115. c(ea%,fa%,511,"info",p%):e%=
  116. c(ha%,ia%,511,"main",p%):
  117. &400DA:
  118. b(V%,4,j$):
  119. b(e%,8,"Output"):
  120. j:$m%="DocAnalyse":m%!12=459271:m%!16=16*11:m%!20=44:m%!24=0:
  121. g(m%+28,0,V%,&7091031,"Info"):
  122. g(m%+52,128,-1,&7091031,"Quit"):
  123. &400D4,,m%
  124. &400D4,,-1:
  125. k:x%=!c%:y%=c%!4:ma%=c%!8:n%=c%!12:g%=c%!16:
  126. u(x%,y%,n%=-2)
  127. v(e%)
  128. 12:o%=
  129. 16,64:
  130. V-b$="":i%=c%+43:
  131. i%?1<>0:i%+=1:b$+=
  132. d(e%,8)
  133. b$,".")=0
  134. a("er1")):
  135. b(e%,3,
  136. b$,80)):
  137. c%!16
  138. 0:L%=
  139. f:na%=c%!40:
  140. na%<>4095
  141. _`e$="":i%=c%+43:
  142. i%?1<>0:i%+=1:e$+=
  143. (e$):
  144. b(e%,1,
  145. e$,80)):r%=
  146. b(e%,11,"Reading")
  147. #c%!20,"Run "+
  148. g("DocAnalyse$Dir")
  149. 1282:
  150. u(oa%,pa%,qa%):
  151. pa%=186
  152. &400D4,,m%,oa%-64,pa%:
  153. w:x%=!c%:y%=c%!4:c%!4=5:c%!8=x%-76:c%!16=x%+76:c%!12=y%-52:c%!20=y%+52:c%!24=0:c%!32=&7FFFFFFF:c%!28=0:c%!36=&7FFFFFFF:
  154. 6,161,28
  155. ,,f%:
  156. ka%>=310
  157. &42400,197,1,"file_fff",c%+8,c%+24
  158. &400D0,,c%
  159. s:d%=
  160. "<DocAnalyse$Dir>.Messages":G%=0:
  161. #d%:G%+=1:
  162. b$(G%):
  163. #d%=0:
  164. G%:b$(i%)=
  165. #d%:d%=0:
  166. g(q%,ra%,i%,u%,a$):q%!0=ra%:q%!4=i%:q%!8=u%:
  167. a$<12
  168. $(q%+12)=a$
  169. :sa%=ta%:ua%=-1:va%=
  170. a$+1:u%=(u%
  171. -257)
  172. 256:q%!12=sa%:q%!16=ua%:q%!20=va%:$ta%=o$:ta%+=va%
  173. c(Z%,g%,F%,h$,wa%):
  174. $+" whilst trying to load template '"+h$+"'"):
  175. &400DB,,Z%,g%,g%+F%,-1,h$,0:Z%!64=wa%:
  176. &400C1,,Z%
  177. v%:=v%
  178. b(k$):xa%=T%:T%=
  179. T%-xa%<200
  180. U%+=1
  181. &400DD:
  182. &400EF,0:R%!0=255:$(R%+4)=k$:
  183. &400DF,R%,18,ga%
  184. ,ya%:=ya%
  185. d(s%,g%):!a%=s%:a%!4=g%:
  186. &400CE,,a%:=$(a%!28)
  187. f(n%,za%,Aa%,Ba%,Ca%,u%,a$,Da%,Ea%,Fa%):a%!0=n%:a%!4=za%:a%!8=Aa%:a%!12=Ba%:a%!16=Ca%:a%!20=u%:
  188. Da%=0
  189. :$(a%+24)=a$:
  190. :a%!24=Da%:a%!28=Ea%:a%!32=Fa%
  191. &400C2,,a%
  192. v%:=v%
  193. v(v%):
  194. y:!a%=v%:
  195. &400CB,,a%:
  196. z:ja%=
  197. a%!28=-1:
  198. &400C5,,a%:
  199. y:a%!0=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:
  200. &31,a%,a%+20:Ga%=1<<(a%!20):Ha%=1<<(a%!24):Ia%=(a%!28+1)*Ga%:Ja%=(a%!32+1)*Ha%:
  201. z:W%=a%!12-a%!4:H%=a%!16-a%!8:X%=(Ia%-W%)/2:Y%=(Ja%-H%)/2:a%!4=X%:a%!8=Y%:a%!12=X%+W%:a%!16=Y%+H%:
  202. b(s%,g%,i$):!a%=s%:a%!4=g%:
  203. 262350,,a%:
  204. $(a%!28)<>i$
  205. $(a%!28)=i$:a%!8=0:a%!12=0:
  206. 262349,,a%
  207. g(l$):
  208. &23,l$,Ka%,255,0,3
  209. ,,b%:Ka%?b%=13:=$Ka%
  210. &39,,"DragASprite_Stop"
  211. &42401
  212. &400D0,,0:b%=c%:
  213. &400CF,,b%:x%=b%!0:y%=b%!4:s%=b%!12:g%=b%!16:!b%=56:b%!12=0:b%!16=1:b%!20=s%:b%!24=g%:b%!28=x%:b%!32=y%:b%!36=0:b%!40=4095:$(b%+44)=
  214. d(e%,8)):
  215. &400E7,17,c%,s%,g%:S%=
  216. h(d$):
  217. d$,".")>0:d$=
  218. d$,".")+1):
  219. x:n%=c%!32:g%=c%!36:
  220. a("bar"))
  221. 0,5,8,10:
  222. a("wsa"))
  223. a("src"))
  224. a("des"))
  225. a("pct"))
  226. a("tsk"))
  227. a("abo"))
  228. a("sav"))
  229. a("win"))
  230. a("min"))
  231. a("mqu"))
  232. a("inn"))
  233. a("inp"))
  234. a("ina"))
  235. a("inv"))
  236. a("inf"))
  237. a(a$):Ma%=
  238. a$+1:c%!12=c%!8:c%!16=1283:$(c%+20)=a$+
  239. 0:!c%=(24+Ma%)
  240. &400E7,17,c%,c%!4:
  241. a(a$):
  242. G%:i%=
  243. b$(I%),":"):
  244. b$(I%),i%-1):
  245. m$=a$
  246. b$(I%),
  247. b$(I%)-i%)
  248. t:d%=
  249. "<DocAnalyse$Dir>.Code":
  250. #d%+4:
  251. #d%:d%=0:
  252. &5,"Load <DocAnalyse$Dir>.Code "+
  253. ~J%:da%=J%+60:ca%=J%:_%=J%+100:
  254.