home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Internet / PD / News_Email / 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. 304064,y%,0,N%:
  516. 304077
  517. 304064,M%,0,N%:b$="N"+
  518. (b$)-1):L%=0:ga%=0:a%!24=
  519. (e$):a%!28=
  520. (h$):
  521. k(R%,110,32):
  522. N(5,k%,1):
  523. Ba:g$=
  524. b(a%,32):
  525. g$=""
  526. b$,1)="N"
  527. g$," ")>0
  528. g$," ")-1)
  529. 304069,y%,ha%+
  530. (g$)+1:
  531. 304069,M%,(L%+1)*4:
  532. 304075:$(!y%+ha%)=g$:?(!y%+ha%+
  533. (g$))=0:!(!M%+(L%*4))=ha%:
  534. 304076:ha%+=(
  535. (g$)+1):L%+=1:
  536. (g$)>ga%
  537. N(5,k%,0)
  538. c$<>l$
  539. 263872:q%=
  540. f(c$):
  541. 304077
  542. 435136,j%,q%,N%
  543. j%=0:
  544. a("nomem")):
  545. 304075:
  546. 8,16,c$,!j%,0:A%=!j%:B%=(!j%)+q%:p%=
  547. (ra%):
  548. 304076:
  549. 304077
  550. 435136,t%,p%*4,N%
  551. t%=0:
  552. a("nomem")):
  553. 304075:A%=!j%:B%=!t%:C%=p%:fa%=(
  554. (sa%))-1:
  555. 304076:la%=
  556. h(1):
  557. d(o%,1,h%):
  558. d(o%,3,P%):
  559. d(g%,3,h%):
  560. d(g%,5,h%):
  561. 304074:
  562. 263873
  563. h(2):
  564. d(o%,1,P%):
  565. d(o%,3,P%):
  566. d(g%,3,P%):
  567. d(g%,5,P%)
  568. u:la%=
  569. j%<>0
  570. 304065,j%:
  571. 304078,j%:j%=0
  572. t%<>0
  573. 304065,t%:
  574. 304078,t%:t%=0
  575. J:L%=0:ga%=0:
  576. y%<>0
  577. 304065,y%:
  578. 304078,y%:y%=0
  579. M%<>0
  580. 304065,M%:
  581. 304078,M%:M%=0
  582. r:T%=0:ia%=0:
  583. Q%<>0
  584. 304065,Q%:
  585. 304078,Q%:Q%=0
  586. i(s%)=
  587. b(!j%,!(!t%+(s%*4)))
  588. j(s%)=
  589. b(!y%,!(!M%+(s%*4)))
  590. n(s%)=
  591. b(!j%,!(!Q%+(s%*4)))
  592. I(k$):
  593. k$=""
  594. d$=k$:
  595. m$,1)="1"
  596. (2ca%=120:
  597. a(1,I%,
  598. e("c-addgrp",
  599. d$,35))):
  600. s(I%)
  601. :$(a%+32)=d$+
  602. k(R%,120,(37+
  603. (d$))
  604. pa(k$):
  605. k$=""
  606. d$=k$:
  607. m$,2,1)="1"
  608. 52ca%=130:
  609. a(1,I%,
  610. e("c-remgrp",
  611. d$,35))):
  612. s(I%)
  613. :$(a%+32)=d$+
  614. k(R%,130,(37+
  615. (d$))
  616. na:kb%=
  617. m$,3,1)="1"
  618. ga%>0
  619. c$<>l$
  620. 263872:
  621. a(1,w%,
  622. a("g-merge")):
  623. p(w%,-1):
  624. 41,26,c$,s$,128+2:f=
  625. (s$):
  626. L%-1:
  627. j(J%):
  628. 131113,27,q$,,2:
  629. 262380,-1,-1
  630. ,lb%,mb%:
  631. mb%<(64*1024)
  632. a("nomemsort")):
  633. 41,26,s$,c$,128+2:kb%=
  634. 262380,-1,mb%:
  635. 262366,"%Run <Groups$Dir>.PostMerge "+c$+" "+s$+" { > "+q$+" }":
  636. 262380,-1,lb%:q%=
  637. f(q$):
  638. 41,26,s$,c$,128+2:f=
  639. (q$):O$=
  640. e("sortfailed",O$)):kb%=
  641. 41,27,s$,,2
  642. 131113,27,q$,,2:b$+="l":
  643. 263873
  644. !a%=3:
  645. 7,14,a%:
  646. 193,a%,b%,256,"%24%MI%SE"
  647. 193,a%,b%,256,"%YR%MN%DY"
  648. e$:f=
  649. (p$+".Config"):n$=
  650. #f,e$:
  651. #f,h$:
  652. a(8,d%,e$):
  653. a(10,d%,h$):b$+="n":
  654. b$+="c":
  655. h(nb%):m%=nb%:
  656. J%=nb%
  657. xa(o%,J%,0)
  658. ya(o%,J%,0)
  659. q(r%,p%,fa%):
  660. a(6,k%,
  661. e("num1",
  662. (p%))):
  663. d(g%,4,h%)
  664. d(g%,4,P%)
  665. q(r%,L%,ga%):
  666. a(6,k%,
  667. e("num2",
  668. (L%))):
  669. e(u%):
  670. O(5,k%,0)
  671. O(5,k%,1):
  672. za(5,k%)
  673. q(r%,T%,ia%):
  674. a(6,k%,
  675. e("num3",
  676. (T%))):
  677. e(u%)
  678. )!a%=r%:
  679. 262347,,a%:
  680. (a%!32
  681. 1<<16)>0
  682.  a%!20=0:a%!24=0:
  683. 262341,,a%
  684. y(r%):
  685. a(2,k%,
  686. a("source"+
  687. (nb%))):
  688. l(Aa%):!a%=r%:
  689. 262347,,a%:a%!24=-(Aa%*32):
  690. 262341,,a%:
  691. L(nb%):
  692. nb%=1
  693. c$=l$
  694. nb%=3
  695. h(nb%):
  696. t(C$,ob%):
  697. C$=""
  698. 262356,,-1:
  699. j("badpattern"):
  700. 304077
  701. 304064,Q%,0,N%:A%=a%:$a%=C$+
  702. 0:B%=A%+
  703. (C$):E%=t%:F%=j%:G%=p%:H%=Q%:T%=0:ia%=fa%:pb%=
  704. (ua%):T%=hb%!pb%:ia%=hb%!(pb%+4):
  705. 262356,,-1
  706. h(3):
  707. d(o%,3,h%):
  708. l(qb%,n$):
  709. qb%=-1
  710. 304075:A%=!t%:B%=p%:C%=qb%:D%=!j%:E%=a%:$(a%)=n$+
  711. 0:`a%=
  712. (ta%):
  713. 304076:=`a%
  714. b$=""
  715. b$,1)
  716. R%<>-1
  717. a(1,w%,
  718. a("g-newsbase"))
  719. p(k%,-1):
  720. e(w%):
  721. a(1,w%,
  722. a("g-feed")):
  723. a(1,w%,
  724. a("g-new")):
  725. a(1,w%,
  726. a("g-full")):
  727. s(za%):
  728. i:b$=
  729. (b$)-1):
  730. a(4,d%,c$):
  731. a(8,d%,e$):
  732. a(10,d%,h$):
  733. b(18,d%,
  734. m$,1))):
  735. b(19,d%,
  736. m$,2,1))):
  737. b(20,d%,
  738. m$,3,1))):
  739. p(d%,-1):
  740. M(4,d%):
  741. G:F$=c$:G$=e$:H$=h$:c$=
  742. d(4,d%):e$=
  743. d(8,d%):h$=
  744. d(10,d%):m$=
  745. g(18,d%))+
  746. g(19,d%))+
  747. g(20,d%)):rb%=
  748. c$<>l$
  749. (c$):
  750. j("listgone"):rb%=
  751. 1nsb%=
  752. e$,2)):tb%=
  753. e$,3,2)):ub%=
  754. e$,2)):
  755. (e$)<>6
  756. ub%<1
  757. ub%>31
  758. tb%<1
  759. tb%>12
  760. sb%<80
  761. j("datefmt"):rb%=
  762. 6bvb%=
  763. h$,2)):tb%=
  764. h$,3,2)):wb%=
  765. h$,2)):
  766. (h$)<>6
  767. vb%>23
  768. tb%>59
  769. wb%>59
  770. j("timefmt"):rb%=
  771. (p$+".Config"):
  772. #f,c$:
  773. #f,e$:
  774. #f,h$:
  775. #f,m$:
  776. c$<>F$
  777. e$<>G$
  778. h$<>H$
  779. b$+="n":
  780. e(d%)
  781. :e$=G$:h$=H$:c$=F$
  782. h:X%=
  783. o:k$="":
  784. X%<=p%-1
  785. i(X%)
  786. X%<=L%-1
  787. j(X%)
  788. X%<=T%-1
  789. n(X%)
  790. la:o$=
  791. o$=""
  792. !b%=r%:
  793. 262347,,b%:!a%=0:a%!4=5:a%!8=b%!4:a%!12=-((X%+1)*32)+(b%!16-b%!24)-2:a%!16=b%!12:a%!20=-(X%*32)+(b%!16-b%!24)-2:
  794. x:a%!24=0-(xa%-(b%!4)):a%!28=0:a%!32=Wa%+(b%!12-xa%-2):a%!36=Xa%:
  795. 262352,,a%:Z%=1:
  796. 262351,,a%:
  797. a%!12=x%
  798. I(o$)
  799. o:!a%=r%:
  800. 262348,,a%:y=ya%-a%!16+a%!24+4:=(a%!44-y)
  801. k:!a%=x%:
  802. 262348,,a%:y=ya%-a%!16+a%!24+4:=(a%!44-y)
  803. e("url",o$)
  804. b%!0=56:b%!12=0:b%!16=1:b%!20=a%!12:b%!24=a%!16:b%!28=!a%:b%!32=a%!4:b%!36=
  805. (o$):b%!40=4095:$(b%+44)="Newsgroup"+
  806. 262375,17,b%,a%!12,a%!16:
  807. a%!24>=
  808. c$b%=o$:
  809. 262385,N%,b%,a%!4,a%!20,
  810. (o$):a%!12=a%!8:a%!16=7:a%!24=
  811. (o$):
  812. 262375,17,a%,a%!4:o$=""
  813. ga:f=
  814. b(a%,44)):
  815. #f,o$;:
  816. 8,18,a%+44,4095:a%!12=a%!8:a%!16=3:
  817. 262375,18,a%,a%!4:da%=1:
  818. qa:!b%=S%:
  819. 262347,,b%:!a%=S%:a%!4=0:
  820. 262350,,a%:!a%=b%!4+a%!8:a%!4=b%!16+a%!12:a%!8=b%!4+a%!16:a%!12=b%!16+a%!20:
  821. 271360,(1<<7)+(1<<6),1,"file_fff",a%:Z%=2:
  822. 271361:
  823. 262351,,a%:j$=
  824. d(1,S%):
  825. j$,".")>0:j$=
  826. j$,".")+1):
  827. :b%!0=(49+
  828. (j$))
  829. -4:b%!12=0:b%!16=1:b%!20=a%!12:b%!24=a%!16:b%!28=!a%:b%!32=a%!4:b%!36=
  830. (j$):b%!40=4095:$(b%+44)=j$+
  831. 262375,17,b%,a%!12,a%!16:
  832. ha:j$=
  833. b(a%,44):
  834. j$,"<Wimp$Scrap")>0
  835. a("noscrap")):
  836. Q(j$):
  837. H:j$=
  838. d(1,S%):
  839. j$,".")=0
  840. a("howtosave")):
  841. Q(j$):
  842. Q(P$):
  843. 262366,"TaskWindow ""<Groups$Dir>.GrabList -o "+P$+""" -wimpslot 32k -name GrabList -quit":
  844.