home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / internet / groups / !Groups / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-07-13  |  17KB  |  844 lines
  1.  >!RunImage file for !Groups   
  2.  David Croft, 1995
  3. ID$="0.14":I$="13-Jul-95":
  4. $+" (internal error code "+
  5. )+")":
  6. J$,"-new")>0
  7. c$=l$
  8. c$=l$
  9. d(o%,1,P%)
  10. A("Whole load process took "+
  11. -n)+" cs"):
  12. )+" bytes free")
  13. a% 1280,b% 256:
  14. b$="wnaoc"
  15. b$="lwnaoc"
  16. ba%=3:m%=1:d$="":ca%=0:Y%=-1:i%=0:da%=0:Z%=0:ea%=150:v%=0:_%=0:
  17. a$(ea%):a$()=
  18. 25," "):a$()="":p%=0:fa%=0:j%=0:t%=0:L%=0:ga%=0:y%=0:M%=0:ha%=0:T%=0:ia%=0:Q%=0:r$="Groups":`%=
  19. 35,r$+"$Dir",a%,1024,0
  20. ,,o:p$=
  21. b(a%,0),o)
  22. 5hl$="<none>":x$="":ja%=0:ka%=
  23. :la%=
  24. :ma%=&FEED10:na%=&FEED11:R%=-1:
  25. 262336,200,&4B534154,r$
  26. T:s$=
  27. a("backup"):q$=
  28. a("scrap"):
  29. s$=""
  30. 0,"backup: token not found in Messages file"
  31. q$=""
  32. 0,"scrap: token not found in Messages file"
  33. a(1,w%,
  34. a("g-loading")):
  35. C(w%):
  36. a(7,oa%,D$+" ("+I$+")"):
  37. (p$+".Config"):
  38. (p$+".Config"):
  39. #f,l$:
  40. #f,"800101":
  41. #f,"000000":
  42. #f,"110":
  43. #f=0:b$+="h":
  44. e("welcome",D$))
  45. c$=l$:
  46. e$="800101":
  47. h$="000000":
  48. m$="110":
  49. (m$)<3:m$+="0":
  50. c$<>l$
  51. (c$):
  52. b$+="h":
  53. j("listgone"):c$=l$
  54. q%,f%:q%=
  55. f(p$+".code"):
  56. pa% q%:qa%=pa%:ra%=pa%+4:sa%=pa%+8:ta%=pa%+16:ua%=pa%+20:
  57. 131080,16,p$+".code",pa%,0
  58. a("code")
  59. a("code")
  60. f(f$):
  61. q%,f%,va%:
  62. 131080,17,f$
  63. va%,,,,q%;f%:
  64. va%<>1
  65. q%=-1
  66. 262343,48,a%
  67. E(O%):
  68. ((O%=17
  69. O%=18)
  70. a%!16=0)
  71. ((O%=17
  72. O%=18)
  73. a%!16=0
  74. a%!4<>N%)
  75. 262343,49,a%
  76. E(O%):
  77. E(O%):
  78. !a%=r%
  79. !a%=x%
  80. !a%=k%
  81. 262341,,a%
  82. 262342,,a%:
  83. !a%=k%
  84. !a%=w%
  85. 17,18:
  86. 131113,27,"<Wimp$Scrap>",,2:
  87. a("rxdied"))
  88. #wa%:
  89. 131113,27,q$,,2
  90. a%!16
  91. a%!20=d%
  92. a(4,d%,
  93. b(a%,44))
  94. 4:da%=0
  95. 10:n$="":
  96. n$=" -new"
  97. #(a%!20),"Filer_Run "+p$+n$
  98. 1282:
  99. 262338:
  100. b(a%,28)=r$
  101. a%!4<>N%
  102. 9!a%=20:a%!12=0:a%!16=0:
  103. 262375,17,a%,a%!4:b$+="o":
  104. 303718:
  105. g("Launch done!"):da%=0
  106. aa:xa%=!a%:ya%=a%!4:z%=a%!8:U%=a%!16:
  107. a%!12
  108. m(g%,xa%-64,ya%)
  109. m(g%,xa%-64,ya%)
  110. m(o%,xa%-64,ya%)
  111. m(g%,xa%-64,ya%)
  112. pa(a$(
  113. e(za%)
  114. a(4,d%,l$)
  115. a(8,d%,"800101"):
  116. a(10,d%,"000000")
  117. e(d%)
  118. (z%=4
  119. z%=1)
  120. d(1,V%),z%=4)
  121. 8$(a%+32)=d$+
  122. k(R%,ca%,(37+
  123. (d$))
  124. 262356,,-1
  125. 262356,,-1
  126. da:n%=a%!24:
  127. n%=13
  128. b(2,S%,1):
  129. b(2,S%,0)
  130. 262364,n%
  131. Y%>-1
  132. i(Y%))
  133. e(u%):ka%=
  134. 398:i%+=1:
  135. i%>(p%-21)
  136. i%=p%-21
  137. l(i%)
  138. 399:i%-=1:
  139. l(i%)
  140. 414:i%+=21:
  141. i%>(p%-21)
  142. i%=p%-21
  143. l(i%)
  144. 415:i%-=21:
  145. l(i%)
  146. 430:i%=p%-21:
  147. l(i%)
  148. 431:i%=0:
  149. l(i%)
  150. (n%>31
  151. n%<128)
  152. n%=395
  153. n%=21
  154. d(0,u%):Aa%=0:
  155. (x$))=x$
  156. Aa%=ja%
  157. Aa%<>-1
  158. l(Aa%,y$):
  159. Y%>-1
  160. l(Y%):
  161. b(1,u%,1):i%=Y%
  162. b(1,u%,0):
  163. x$=y$:ja%=Y%
  164. 262364,n%
  165. n%=13
  166. b(3,V%,1):
  167. d(1,V%),
  168. b(3,V%,0)
  169. 262364,n%
  170. b(2,I%,1):$(a%+32)=d$+
  171. k(R%,ca%,(37+
  172. (d$))
  173. 262356,,-1:
  174. b(2,I%,0)
  175. b(3,I%,1):
  176. 262356,,-1:
  177. b(3,I%,0)
  178. 262364,,n%
  179. a%!4=10
  180. b(14,d%,1):z%=4:
  181. b(14,d%,0)
  182. b(15,d%,1):
  183. e(d%):
  184. b(15,d%,0)
  185. 262364,n%
  186. 262365,N%,&4B534154:
  187. F:!b%=x%:
  188. 262347,,b%:b%!4=a%!4+594:b%!12=b%!4+486:b%!8=a%!8+118:b%!16=a%!8+816:b%!28=a%!28:
  189. 262341,,b%:!b%=r%:
  190. 262347,,b%:b%!4=a%!4+30:b%!12=b%!4+486:b%!8=a%!8+118:b%!16=a%!8+816:b%!28=x%:
  191. 262341,,b%:
  192. k[!b%=u%:
  193. 262347,,b%:b%!4=a%!4:b%!12=a%!12:b%!8=a%!8-44:b%!16=a%!8:b%!28=r%:
  194. 262341,,b%
  195. a%!28=!b%:
  196. 262341,,a%:
  197. 304075:
  198. E%=!t%:F%=!j%:G%=p%
  199. :E%=b%:!E%=0:F%=b%+4:$(F%)="nofull!"+
  200. 2:G%=L%:
  201. ,E%=b%:!E%=0:F%=b%+4:$(F%)=
  202. a("nonew")+
  203. :E%=!M%:F%=!y%
  204. 3:G%=T%:
  205. .E%=b%:!E%=0:F%=b%+4:$(F%)=
  206. a("nomatch")+
  207. :E%=!Q%:F%=!j%
  208. D%=a%:
  209. 304076:
  210. 262344,,a%
  211. Ba%:Ca%=a%!4-a%!20:Da%=a%!16-a%!24:
  212. Ba%:Ea%=a%!32:Fa%=a%!40:Ga%=((Da%-Fa%-4)
  213. 32):Ha%=((Da%-Ea%-4)
  214. Ga%>v%-1Ga%=v%-1
  215. Ha%>v%-1Ha%=v%-1
  216. Ga%<0Ga%=0
  217. Ha%<0Ha%=0
  218. J%=Ga%
  219. Ca%+2,(Da%-(J%*32)-4):
  220. a$(J%):
  221. 262346,,a%
  222. 393424,,0:!a%=
  223. :$(a%+4)=
  224. $+" (internal error code "+
  225. )+"), about to quit."+
  226. 262367,a%,1,r$
  227. 393424,,0:!a%=
  228. :$(a%+4)=
  229. $+" (internal error code "+
  230. )+"), press Cancel to quit program."+
  231. =44$(a%+4)="No room (due to "+
  232. $+"), increase WimpSlot."
  233. 262367,a%,3,r$
  234. g(K$):
  235. 393424,,0:!a%=1:$(a%+4)=K$+
  236. 262367,a%,17,"Message from "+r$:
  237. V:h%=&7009031:P%=&7409031:
  238. Ia% 220:c=0:b=ba%:
  239. o% (28+(24*b)):
  240. v("Source",o%,15):
  241. ba%:Ja%=h%:
  242. Ja%=P%
  243. K(o%,
  244. a("source"+
  245. (J%)),0,-1,Ja%,0):
  246. w(o%):b=8:
  247. K% (28+(24*b)):
  248. v("Big-8",K%,4):
  249. c(K%,"alt",0,-1,h%):
  250. c(K%,"comp",0,-1,h%):
  251. c(K%,"misc",0,-1,h%):
  252. c(K%,"news",0,-1,h%):
  253. c(K%,"rec",0,-1,h%):
  254. c(K%,"sci",0,-1,h%)
  255. c(K%,"soc",0,-1,h%):
  256. c(K%,"talk",0,-1,h%):
  257. w(K%):b=9:
  258. g% (28+(24*b)):
  259. v(r$,g%,16):
  260. c(g%,"Info",0,oa%,h%):
  261. c(g%,"Source",0,o%,h%):
  262. c(g%,"Main hierarchies",0,K%,h%):
  263. c(g%,"Find a group",0,-1,h%)
  264. c(g%,"Wildcard search",2,V%,h%):
  265. c(g%,"Newsgroups list",0,S%,P%):
  266. c(g%,"Configure...",0,-1,h%):
  267. c(g%,"Help",0,-1,h%):
  268. c(g%,"Quit",0,-1,h%):
  269. w(g%):
  270. c>200
  271. 0,"Indirected overflow!"
  272. v(L$,e%,p):$e%=
  273. 0,12):e%?12=7:e%?13=2:e%?14=7:e%?15=0:e%!16=(p+1)*16:e%!20=44:e%!24=0:a=28:
  274. c(e%,t$,d,e,g):
  275. (t$)>11
  276. K(e%,t$,d,e,g,0):
  277. @e%!a=d:e%!(a+4)=e:e%!(a+8)=g:$(e%+(a+12))=
  278. 0,12):a+=24:
  279. K(e%,t$,d,e,g,h):
  280. (t$)+1)h=
  281. (t$)+1
  282. he%!a=d:e%!(a+4)=e:e%!(a+8)=g+(1<<8):e%!(a+12)=Ia%+c:e%!(a+16)=0:e%!(a+20)=h:a+=24:$(Ia%+c)=t$:c+=h:
  283. w(e%):e%!(a-24)=e%!(a-24)+128:
  284. m(e%,Ka%,La%):
  285. 262356,,e%,Ka%,La%:Ma%=Ka%:Na%=La%:Oa%=e%:
  286. 262357,,Oa%,a%,b%:a$=
  287. b(b%,0):
  288. 262351,,b%:Pa%=(b%!8=1):
  289. Oa%=o%
  290. L(!a%+1)
  291. Oa%=g%
  292. a%!0=1
  293. a%!4>-1
  294. L(a%!4+1)
  295. Oa%=g%
  296. a%!0=2
  297. a%!4>-1
  298. a$,".")+1)+".*",
  299. "Info":
  300. m(oa%,b%!0-64,b%!4+64)
  301. "Configure...":
  302. "Find a group":
  303. p(u%,-1):
  304. M(0,u%):ka%=
  305. p(k%,0)
  306. "Help":
  307. 262366,"Filer_Run "+p$+".!Help"
  308. "Quit":`%=
  309. m(Oa%,Ma%,Na%)
  310. xa(W%,s%,Ba%):!(W%+28+((s%-1)*24))=!(W%+28+((s%-1)*24))
  311. 1<<Ba%:
  312. ya(W%,s%,Ba%):!(W%+28+((s%-1)*24))=!(W%+28+((s%-1)*24))
  313. 1<<Ba%:
  314. d(W%,s%,f%):
  315. (!(W%+28+((s%-1)*24)+8)
  316. 1<<8)>0
  317. f%+=1<<8
  318. !(W%+28+((s%-1)*24)+8)=f%:
  319. U:l=1800:
  320. Qa% l:Ra%=Qa%:
  321. 262361,,p$+".Templates":oa%=
  322. c("info"):za%=
  323. c("message"):I%=
  324. c("question"):d%=
  325. c("config"):w%=
  326. c("waiting"):u%=
  327. c("find"):V%=
  328. c("wcard"):k%=
  329. c("main"):r%=
  330. c("source"):x%=
  331. c("feed"):S%=
  332. c("grablist")
  333. 262362:
  334. c(M$):
  335. 262363,,a%,Ra%,Qa%+l,-1,M$,0
  336. ,,Ra%:
  337. 262337,,a%
  338. Sa%:=Sa%
  339. p(c%,Ta%):!a%=c%:
  340. 262347,,a%:
  341. a%!28=-1
  342. c%=k%
  343. 262341,,a%
  344. C(c%):a%!0=c%:
  345. 262347,,a%:
  346. x:Ua%=a%!12-a%!4:Va%=a%!16-a%!8:a%!4=(Wa%/2)-(Ua%/2):a%!8=(Xa%/2)-(Va%/2):a%!12=a%!4+Ua%:a%!16=a%!8+Va%:a%!28=-1:
  347. 262341,,a%:
  348. s(c%):a%!0=c%:
  349. 262347,,a%:
  350. x:Ua%=a%!12-a%!4:Va%=a%!16-a%!8:
  351. 262356,,c%,(Wa%/2)-(Ua%/2),(Xa%/2)+(Va%/2):
  352. e(c%):!a%=c%:
  353. 262342,,a%:
  354. c%=k%
  355. e(r%):
  356. e(x%):
  357. e(u%)
  358. c%=u%
  359. y(c%):!a%=c%:
  360. 262347,,a%:
  361. (a%!32
  362. 1<<16)>0
  363. 262353,-1,a%!4,a%!8,a%!12,a%!16
  364. q(c%,Ya%,Za%):_a%=Ya%*32:
  365. _a%<698
  366. _a%=698
  367. #Za%=(Za%*16)+4:
  368. Za%<486
  369. Za%=486
  370. 5!a%=0:a%!4=-_a%:a%!8=Za%:a%!12=0:
  371. 262359,c%,a%:
  372. a(l%,c%,n$):!b%=c%:b%!4=l%:
  373. 262350,,b%:$(b%!28)=n$:b%!8=0:b%!12=0:
  374. 262349,,b%:
  375. d(l%,c%):!b%=c%:b%!4=l%:
  376. 262350,,b%:=$(b%!28)
  377. b(l%,c%,`a%):!b%=c%:b%!4=l%:b%!8=`a%<<21:b%!12=1<<21:
  378. 262349,,b%:
  379. g(l%,c%):!b%=c%:b%!4=l%:
  380. 262350,,b%:
  381. (b%!24
  382. 1<<21)>0
  383. N(l%,c%,`a%):!b%=c%:b%!4=l%:b%!8=`a%<<22:b%!12=1<<22:
  384. 262349,,b%:
  385. O(l%,c%,`a%):!b%=c%:b%!4=l%:b%!8=`a%<<23:b%!12=1<<23:
  386. 262349,,b%:
  387. M(l%,c%):
  388. 262354,c%,l%,,,-1,
  389. d(l%,c%)):
  390. za(l%,c%):!b%=c%:b%!4=l%:
  391. 262350,,b%:
  392. 262353,c%,b%!8,b%!12,b%!16,b%!20:
  393. b(m,i):z$="":
  394. (m?i)>=32
  395. (z$)<255:z$+=
  396. (m?i):i+=1:
  397. j(n$):
  398. a(n$)):
  399. D(n$):
  400. a(1,za%,n$):
  401. s(za%):
  402. A(E$):!b%=(25+
  403. (E$))
  404. -4:b%!12=0:b%!16=534402:$(b%+20)=E$+
  405. 262375,17,b%,0:
  406. 53,-1,4
  407. ,,ab%:
  408. 53,-1,5
  409. ,,bb%:
  410. 53,-1,11
  411. ,,Wa%:
  412. 53,-1,12
  413. ,,Xa%:Wa%=(Wa%+1)<<ab%:Xa%=(Xa%+1)<<bb%:
  414. ma(k$):
  415. k$=""
  416. (q$):
  417. #wa%,"local://CFS#ADFS::Croft/$/David/Programs/Internet/FreeNet/ArcWEb/!ArcWeb/MyHTML/Welcome":
  418. #wa%:wa%=
  419. (q$):!a%=32:a%!12=0:a%!16=303717:a%!20=N%:a%!24=(1<<22):a%!28=wa%:
  420. 262375,18,a%,0:da%=2:
  421. oa:j=0:cb%=0:
  422. 272001,j,a%,16
  423. j:a$=
  424. b(a%!4,0):
  425. a$="Help"
  426. cb%=!a%
  427. cb%=0
  428. 262366,"Filer_Run Resources:$.Apps.!Help"
  429. :a%!8=4:a%!12=-2:
  430. 262375,6,a%,cb%
  431. ja:l%=a%!36:i$="":
  432. a%!32
  433. oa%:i$="info"
  434. za%:i$="message"
  435. I%:i$="question"
  436. d%:i$="config"
  437. w%:i$="waiting"
  438. u%:i$="find"
  439. V%:i$="wcard"
  440. k%:i$="main"
  441. r%:i$="source"
  442. x%:i$="feed"
  443. i$=""
  444. a("badhelp")
  445. a(i$+"-"+
  446. (l%)):
  447. a$=""
  448. a(i$)
  449. a(i$)+"|m"+a$
  450. =M!a%=(25+
  451. (a$))
  452. -4:a%!12=a%!8:a%!16=1283:$(a%+20)=a$:
  453. 262375,17,a%,a%!4:
  454. db% 256:A$=p$+".Messages":
  455. 267520,,A$
  456. f%,,q%:
  457. eb%=0
  458. eb% q%
  459. 30,6,,,17+
  460. ,,fb%:$(fb%+16)=A$:
  461. 267521,fb%,fb%+16,eb%:
  462. a(u$):
  463. 398594,fb%,u$
  464. ,,v$;f%:
  465. e(u$,B$):
  466. 398594,fb%,u$,db%,256,B$
  467. ,,v$;f%:
  468. m(u$,B$,N$):
  469. 398594,fb%,u$,db%,256,B$,N$
  470. ,,v$;f%:
  471. 267524,fb%:
  472. W:a%!24=54:
  473. k(0,0,28):
  474. k(gb%,hb%,ib%):
  475. gb%=-1
  476. j("nbgone"):
  477. q<!a%=ib%:a%!12=0:a%!16=ma%:a%!20=hb%:
  478. 262375,17,a%,gb%:
  479. ka:w$=
  480. (a%!20):
  481. w$,1)
  482. "9","2","1":
  483. m("comms"+
  484. w$,1),w$,
  485. b(a%,32))):
  486. w$="111"
  487. a%!20
  488. 0:R%=a%!4:
  489. a%!24<54
  490. a("nb-old")):
  491. b$,1)="w"
  492. 10:R%=-1:
  493. e(k%):
  494. C(w%):b$="woc"+b$:
  495. 120:a$(v%)=d$:
  496. (d$)>_%
  497. q(x%,v%+1,_%):
  498. y(x%):v%+=1
  499. 130:b$+="a":
  500. Ca:b$="A"+
  501. (b$)-1):v%=0:a$(0)=
  502. a("nosub"):_%=0:a%!24=1:
  503. k(R%,100,36):
  504. Aa:g$=
  505. b(a%,36):
  506. g$=""
  507. q(x%,v%,_%):
  508. y(x%):
  509. b$,1)="A"
  510. v%>=ea%
  511. j("toomanyfeed"):b$+="h"
  512. :a$(v%)=g$:v%+=1:
  513. (g$)>_%
  514. 304077
  515. 3