home *** CD-ROM | disk | FTP | other *** search
/ Dream 44 / Amiga_Dream_44.iso / RiscPc / Utils / qedit058.spk / !Qedit / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1997-05-12  |  15KB  |  684 lines
  1.  Qedit  
  2.  David Croft, 1995-7  Multi-transport support by Joseph Heenan
  3. ID$="0.58":E$="12-May-97":
  4. $+" (internal error code "+
  5. )+")":
  6. x%,c$:
  7. (a$):c$=
  8. a$,x%,1):
  9. c$>="A"
  10. c$<="Z"
  11. a$,x%,1)=
  12. (c$)+32)
  13. b$:k$="":B$="":
  14. b("NewsDir$Dir")
  15. a("autondir"))
  16. (Df%=
  17. ("<NewsDir$Dir>.newsbase.startup.c00saved.transport"):
  18. a("autonfile"))
  19. #f%:b$=
  20. e(f%,249):
  21. b$,22)="transport default mail"
  22. b$,24)
  23. b$,22)="transport default news"
  24. b$,24)
  25. k$=""
  26. a("autonmail"))
  27. "in_smtpd":m%=1
  28. "pop":m%=2
  29. "ant":m%=3
  30. "ka9q":m%=4
  31. "termite":m%=5
  32. g("autowmail",k$))
  33. m$=""
  34. a("autonnews"))
  35. "freenews":n%=1
  36. "newshound":n%=2
  37. "ant":n%=3
  38. "ka9q":n%=4
  39. "termite":n%=5
  40. g("autownews",m$))
  41. c(e$):
  42. k(e$):
  43. a("autohow")):
  44. a% 1024,j% 256,a$(7):n$="Qedit":C%=
  45. m:V%=
  46. :l%=8:g%=0:m%=0:n%=0:B$="":k$="":d$="":
  47. 35,n$+"$Dir",a%,1024,0
  48. ,,d:p$=
  49. q(a%,0,d):aa%=537984:ba%=537985:ca%=537986:w%=-1:
  50. 262336,200,&4B534154,n$
  51. ,da%:
  52. L:i$=
  53. a("scrap"):e$=
  54. a("confirm"),1):
  55. e$="N"
  56. e$="n"
  57. s3m%=
  58. a("mail")):n%=
  59. a("news")):
  60. 1:a$(0)="<SMTPServer$MailDir>.spool.mqueue.text":a$(2)="<SMTPServer$MailDir>.held.mqueue.text":a$(4)="<SMTPServer$MailDir>.spool.mqueue.work":a$(6)="<SMTPServer$MailDir>.held.mqueue.work":k$="in_smtpd"
  61. b("SMTPServer$MailDir")
  62. 0,"!FreeSMTP has not been seen by the filer."
  63. 2:a$(0)="<POP$MailDir>.spool.mqueue.text":a$(2)="<POP$MailDir>.held.mqueue.text":a$(4)="<POP$MailDir>.spool.mqueue.work":a$(6)="<POP$MailDir>.held.mqueue.work":k$="pop"
  64. b("POP$MailDir")
  65. 0,"!Pop has not been seen by the filer."
  66. 3:a$(0)="InetSpool:Queue":a$(2)="InetSpool:heldQueue":a$(4)="":a$(6)="":k$="ANT":
  67. b("InetSpool$Path")
  68. 0,"InetSuite has not been seen by the filer."
  69. 4:a$(0)="<Mail$Dir>.spool.mqueue.text":a$(2)="<Mail$Dir>.held.mqueue.text":a$(4)="<Mail$Dir>.spool.mqueue.work":a$(6)="<Mail$Dir>.held.mqueue.work":k$="ka9q"
  70. b("Mail$Dir")
  71. 0,"!tcp/ip has not been seen by the filer."
  72. 5:a$(0)="<Termite$MailBox>.OutTray.Internet.Mail.text":a$(2)="<Termite$MailBox>.OutHeld.Internet.Mail.text":a$(4)="<Termite$MailBox>.OutTray.Internet.Mail.work":a$(6)="<Termite$MailBox>.OutHeld.Internet.Mail.work":k$="termite"
  73. b("Termite$MailBox")
  74. 0,"Termite has not been seen by the filer."
  75. 0,"Unknown mail transport requested"
  76. 1:a$(1)="<FreeNews$Dir>.Data.articles":a$(3)="<FreeNews$Dir>.Data.heldart":a$(5)="<FreeNews$Dir>.Data.badmarker":a$(7)="<FreeNews$Dir>.Data.heldbad":m$="freenews"
  77. b("FreeNews$Dir")
  78. 0,"!FreeNews has not been seen by the filer."
  79. 2:a$(1)="<NewsHound$NewsDir>.articles":a$(3)="<NewsHound$NewsDir>.held":a$(5)="<NewsHound$NewsDir>.badmarker":a$(7)="<NewsHound$NewsDir>.heldbad"
  80. b("NewsHound$NewsDir")
  81. 0,"!NewsHound has not been seen by the filer."
  82. m$="NewsHound"
  83. 3:a$(1)="InetSpool:QueuePost":a$(3)="InetSpool:heldPost":a$(5)="":a$(7)="":m$="ANT":
  84. b("InetSpool$Path")
  85. 0,"InetSuite has not been seen by the filer."
  86. 4:a$(1)="<Mail$Dir>.spool.newsqueue.articles":a$(3)="<Mail$Dir>.held.newsqueue.articles":a$(5)="<Mail$Dir>.spool.newsqueue.badmarker":a$(7)="<Mail$Dir>.held.newsqueue.badmarker":m$="ka9q"
  87. b("Mail$Dir")
  88. 0,"!tcp/ip has not been seen by the filer."
  89. 5:a$(1)="<Termite$MailBox>.OutTray.Internet.News":a$(3)="<Termite$MailBox>.OutHeld.Internet.News":a$(5)="":a$(7)="":m$="termite":
  90. b("Termite$MailBox")
  91. 0,"Termite has not been seen by the filer."
  92. 0,"Unknown news transport requested"
  93. v(7,N%,D$+" ("+E$+")"):
  94. e(k%,
  95. ((H%=17
  96. H%=18)
  97. a%!16=0)
  98. 262369,48,a%,W%+50
  99. S(H%):
  100. S(H%):
  101. !a%=k%
  102. 262341,,a%
  103. !a%=k%
  104. :!a%=k%:
  105. 262342,,a%
  106. 262364,a%!24
  107. 17,18:
  108. 19:s%=
  109. 393438,i$
  110. fa%=0
  111. a("noeditor"):
  112. z(s%)
  113. a%!16
  114. a%!20=11
  115. da%<>a%!4
  116. 1282:
  117. a%!32
  118. n("hqueue")
  119. n("hmessage")
  120. n("hinfo")
  121. #(a%!20),"Filer_Run "+p$
  122. f(a%,44)="<Qedit$Dir>.!Run"
  123. f(a%,44),6)="!Qedit"
  124. a%!40=8192)
  125. 4a%!16=4:a%!12=a%!8:
  126. 262375,17,a%,a%!4:
  127. e(k%,-1)
  128. V:ga%=!a%:ha%=a%!4:ia%=a%!8:
  129. a%!12
  130. k%:b=
  131. o(D%):
  132. 2:p%=b:
  133. B(b):
  134. p(q%,ga%-64,ha%)
  135. (a%(b)
  136. a%!16=2
  137. o(D%)
  138. 262365,da%,&4B534154:
  139. U:W%-=1000:
  140. 262344,,a%
  141. ja%:O%=a%!4-a%!20:E%=a%!16-a%!24:
  142. ja%:ka%=a%!32:la%=a%!40:I%=((E%-la%)
  143. 32)-60:J%=((E%-ka%)
  144. I%>(g%*3)-1I%=(g%*3)-1
  145. J%>(g%*3)-1J%=(g%*3)-1
  146. I%<0I%=0
  147. J%<0J%=0
  148. J%:i%=(c
  149. 3):b%=(c
  150. (a%(i%)
  151. (a%(i%)
  152. 16)=16
  153. K%=13
  154. 262374,K%:
  155. O%+6,E%-(c*32)-60-(i%*10):
  156. h(i%);" ";
  157. d$(i%),6),7);:
  158. b%(i%)>0
  159. b%(i%)>50*1024
  160. (b%(i%)
  161. 1024)+"k",5);" ";
  162. (b%(i%)),5);" ";
  163. i(f$(i%),18);" ";:
  164. b$(i%)
  165. 1:a$="":
  166. (a%(i%)
  167. a$="HELD"
  168. (a%(i%)
  169. a$="edit"
  170. a$<>""
  171. O%+6,E%-(c*32)-60-(i%*10):
  172. 262374,11:
  173. 262374,K%
  174. O%+6+(16*37),E%-(c*32)-60-(i%*10):
  175. c$(i%)
  176. O%+6+(16*37),E%-(c*32)-60-(i%*10):
  177. e$(i%)
  178. 262346,,a%
  179. 393424,,0:!a%=
  180. :$(a%+4)=
  181. $+" (internal error code "+
  182. )+"), about to quit."+
  183. 262367,a%,1,n$
  184. ,m:C%=
  185. 393424,,0:!a%=
  186. :$(a%+4)=
  187. $+" (internal error code "+
  188. )+"), press Cancel to quit program."+
  189. 262367,a%,3,n$
  190. k(F$):
  191. 393424,,0:!a%=1:$(a%+4)=F$+
  192. 262367,a%,17,"Message from "+n$:
  193. m(o$):
  194. 393424,,0:!a%=1:$(a%+4)=o$+
  195. 262367,a%,19,"Question from "+n$
  196. N:c%=&7009031:ma%=&7409031:
  197. X% 250:i=0:r=4:
  198. y% (28+(24*r)):
  199. E("Item",y%,7):
  200. b(y%,"Edit",0,-1,c%):
  201. g(y%,"Hold",0,-1,c%,7):
  202. g(y%,"Release",0,-1,c%,7):
  203. b(y%,"Delete",0,-1,c%):
  204. F(y%):r=6:
  205. q% (28+(24*r)):
  206. E(n$,q%,16)
  207. b(q%,"Info",0,N%,c%):na%=X%+i:
  208. g(q%,"News item XXXXXX",0,y%,c%,21):
  209. b(q%,"Re-check queues",0,-1,c%):
  210. b(q%,"Flush queues",0,-1,c%):
  211. b(q%,"Help",0,-1,c%):
  212. b(q%,"Quit",0,-1,c%):
  213. F(q%):
  214. i>200
  215. 0,"Indirected overflow!"
  216. E(G$,e%,s):$e%=
  217. 0,12):e%?12=7:e%?13=2:e%?14=7:e%?15=0:e%!16=(s+1)*16:e%!20=44:e%!24=0:e=28:
  218. b(e%,h$,n,o,p):
  219. (h$)>11
  220. g(e%,h$,n,o,p,0):
  221. @e%!e=n:e%!(e+4)=o:e%!(e+8)=p:$(e%+(e+12))=
  222. 0,12):e+=24:
  223. g(e%,h$,n,o,p,q):
  224. (h$)+1)q=
  225. (h$)+1
  226. fe%!e=n:e%!(e+4)=o:e%!(e+8)=p+(1<<8):e%!(e+12)=X%+i:e%!(e+16)=0:e%!(e+20)=q:e+=24:$(X%+i)=h$:i+=q:
  227. F(e%):e%!(e-24)=e%!(e-24)+128:
  228. p(e%,oa%,pa%):
  229. 262356,,e%,oa%,pa%:qa%=e%:
  230. 262357,,qa%,a%,j%:a$=
  231. f(j%,0):
  232. 262351,,j%:ra%=(j%!8=1):
  233. !a%=1
  234. a%!8=-1
  235. p%>-1
  236. A(p%)
  237. D(p%)
  238. C(p%)
  239. "Info":
  240. p(N%,j%!0-64,j%!4+64)
  241. "Re-check queues":
  242. "Flush queues":
  243. "Help":
  244. 262366,"Filer_Run "+p$+".!Help"
  245. "Quit":
  246. B(p%):
  247. p(qa%,oa%,pa%)
  248. B(b):
  249. $(na%)="No article"
  250. :$(na%)=
  251. h(b)+" item "+d$(b)
  252. M:j=500:
  253. L% j:u%=L%:Q%=a%:
  254. 262361,,p$+".Templates":
  255. 262363,,Q%,u%,L%+j,-1,"info",0
  256. ,,u%:
  257. 262337,,Q%
  258. 262363,,Q%,u%,L%+j,-1,"queue",0
  259. ,,u%:
  260. 262337,,Q%
  261. 262363,,Q%,u%,L%+j,-1,"find",0
  262. ,,u%:
  263. 262337,,Q%
  264. 262363,,Q%,u%,L%+j,-1,"message",0
  265. ,,u%:
  266. 262337,,Q%
  267. 262362:
  268. e(k,sa%):!a%=k:
  269. 262347,,a%:
  270. a%!28=-1
  271. 262341,,a%:
  272. ca(k):
  273. ta%,ua%,P%,R%,Z%,_%:a%!0=k:
  274. 262347,,a%:
  275. 53,-1,4
  276. ,,ta%:
  277. 53,-1,5
  278. ,,ua%:
  279. 53,-1,11
  280. ,,P%:
  281. 53,-1,12
  282. ,,R%:P%=(P%+1)<<ta%:R%=(R%+1)<<ua%:Z%=a%!12-a%!4:_%=a%!16-a%!8:a%!4=(P%/2)-(Z%/2):a%!8=(R%/2)-(_%/2):a%!12=a%!4+Z%
  283. !)a%!16=a%!8+_%:a%!28=-1:
  284. 262341,,a%:
  285. o(k):!a%=k:
  286. 262342,,a%:
  287. v(t,u,e$):!j%=u:j%!4=t:
  288. 262350,,j%:j%!8=0:j%!12=0:$(j%!28)=e$:
  289. 262349,,j%:
  290. h(S%):
  291. 262353,k%,0,-((S%+1)*3*32)-60-(S%*10),((l%+37)*16)+10,-(S%*3*32)-58-(S%*10):
  292. 262353,k%,0,`%,((l%+37)*16)+10,0:
  293. d:`%=-(g%*((32*3)+10))-52:
  294. `%=-150
  295. @?!a%=0:a%!4=`%:a%!8=((l%+37)*16)+10:a%!12=0:
  296. 262359,k%,a%:
  297. t(s$,d)=
  298. d,"0")+s$,d)
  299. i(s$,d)=
  300. d," "),d)
  301. f(l,g):q$="":
  302. :q$+=
  303. (l?g):g+=1:
  304. l?g<32:=q$
  305. q(l,g,d):q$="":v=g:
  306. :q$+=
  307. (l?g):g+=1:
  308. l?g<32
  309. d=(g-v):=q$
  310. a$(c)<>""
  311. G(a$(c))
  312. G(x$):
  313. s$,d%:d%=
  314. (x$):
  315. d%<>0
  316. :s$=x$:
  317. s$)="."
  318. s$="":
  319. s$<>""
  320. 8,8,x$
  321. u(H$):
  322. 131080,17,H$
  323. F%;M%:
  324. w:g%=0:
  325. 3:z%=0:
  326. z%>-1:
  327. 12,9,a$(c),a%,255,z%,1024,"*"
  328. ,,,T%,z%:g%+=T%:
  329. P:r%=g%+20:
  330. a%(r%),d$(r%):
  331. f$(r%),b%(r%):
  332. b$(r%),c$(r%),e$(r%):d$()=
  333. 10," "):d$()="":f$()=
  334. 18," "):d$()="":b$()=
  335. 40," "):b$()="":c$()=
  336. 40," "):c$()="":e$()=
  337. 50," "):e$()="":
  338. x:b%=0:
  339. 12,11,a$(c),a%,1,0,1024,"*"
  340. ,,,T%,z%:
  341. z%>-1:d$(b%)=
  342. f(a%,29):a%(b%)=c:
  343. Gb$(b%)=
  344. a("sending"):c$(b%)="":e$(b%)="":
  345. (b$(b%))>l%
  346. (b$(b%))
  347. >b%+=T%:
  348. 12,11,a$(c),a%,1,z%,1024,"*"
  349. ,,,T%,z%:
  350. :g%=b%:
  351. s(U%,b%):
  352. =67778
  353. 0,"PROCload called with later%=TRUE - contact author"
  354. [b%(b%)=a%!8:
  355. 193,a%+24,j%,256,"%24:%MI:%SE %DY %M3 %YR":f$(b%)=
  356. f(j%,0):
  357. (a%(b%)
  358. c(b%):
  359. h$=""
  360. d(b%)
  361. (h$):
  362. !b$(b%)=
  363. a("nowork"):c$(b%)=""
  364. e(f,249):
  365. b$,10)<>"MAIL FROM:"
  366. e(f,249)
  367. ("MAIL FROM:"))="MAIL FROM:"
  368. ("MAIL FROM:")+1)
  369. b$,1)="<"
  370. b$,2)
  371. b$,1)=">"
  372. 3c$(b%)="From: "+b$:
  373. (c$(b%))=253
  374. c$(b%)+="..."
  375. Qb$(b%)="To: ":
  376. (b$(b%))<250):b$=
  377. e(f,255-
  378. (b$(b%))):
  379. b$,4)="DATA"
  380. (b$(b%))<254)
  381. (b$(b%))>4)
  382. b$(b%)+=", "
  383. ("RCPT TO:"))="RCPT TO:"
  384. ("RCPT TO:")+1)
  385. b$,1)="<"
  386. b$,2)
  387. b$,1)=">"
  388. b$(b%)+=b$
  389. d(b%)):
  390. e(f,250):
  391. j$,":")-1)
  392. "Subject":e$(b%)=j$
  393. "X-MailList":a%(b%)=a%(b%)
  394. "Approved":a%(b%)=a%(b%)
  395. j$=""
  396. d(b%)):
  397. e(f,250):
  398. j$,":")-1)
  399. "Newsgroups":b$(b%)=j$
  400. "From":c$(b%)=j$
  401. "Subject":e$(b%)=j$
  402. j$=""
  403. (c$(b%))>l%
  404. (c$(b%)):
  405. (b$(b%))>l%
  406. (b$(b%)):
  407. (e$(b%))>l%
  408. (e$(b%)):
  409. e(h,d):a$="":
  410. a<>10
  411. a<>13
  412. (a$)<d-3
  413. (a$)<d
  414. a$+="."
  415. (a$)=d
  416. a<>10
  417. a<>13
  418. a("badwork")
  419. (a$)=d
  420. a<>10
  421. a<>13
  422. 262356,,-1:ra%=
  423. g%>r%
  424. a("notupdated"):V%=
  425. :g%=r%:
  426. a("notupdated"):V%=
  427. @a%(0)=0:d$(0)="":f$(0)="":b%(0)=0:b$(0)="":c$(0)="":e$(0)=""
  428. e(k%,
  429. 262366,"Run "+p$+".!Run":
  430. m:o%=0:va%=-1:C$="":G%=0:
  431. h(b%):
  432. b%(b%)=0
  433. ="None"
  434. (a%(b%)
  435. g$="News"
  436. g$="Mail"
  437. d(b%):
  438. (a%(b%)
  439. (a%(b%)
  440. g$=a$(3)+"."
  441. g$=a$(2)+"."
  442. (a%(b%)
  443. g$=a$(1)+"."
  444. g$=a$(0)+"."
  445. =g$+d$(b%)
  446. c(b%):
  447. (a%(b%)
  448. (a%(b%)
  449. g$=a$(7)+"."
  450. g$=a$(6)+"."
  451. (a%(b%)
  452. g$=a$(5)+"."
  453. g$=a$(4)+"."
  454. g$="."=""
  455. =g$+d$(b%)
  456. r:!a%=k%:
  457. 262348,,a%:y=ha%-a%!16+a%!24:b=(a%!44-(y+58)):
  458. b=-((32*3)+10)
  459. R"b=b
  460. ((32*3)+10):
  461. g%<(b+1)
  462. j(b,o$):
  463. g("cantdo",o$)):=-1
  464. l:wa%=-1:
  465. a%(c)=va%
  466. d$(c)=C$
  467. wa%=c
  468. :=wa%
  469. D(b):
  470. j(b,"hold")
  471. n(b):
  472. s(a%(b)):
  473. h(b):
  474. n(b):
  475. l$,o$,v%:
  476. (a%(b)
  477. :a%(b)=a%(b)
  478. a("inprogress"):
  479. 41,25,l$,r$:=1
  480. rDv%=
  481. c(b):v$=
  482. d(b):a%(b)=a%(b)
  483. 2:l$=
  484. c(b):o$=
  485. d(b):
  486. o(v$)
  487. y%a%(b)=a%(b)
  488. a("vanish"):=2
  489. l$<>""
  490. o(r$)
  491. %a%(b)=a%(b)
  492. a("vanish"):=2
  493. 41,25,r$,l$:v%=
  494. 41,25,v$,o$:=0
  495. C(b):
  496. j(b,"release")
  497. I(b):
  498. s(a%(b)):
  499. h(b):
  500. I(b):
  501. (a%(b)
  502. c(b):v$=
  503. d(b):a%(b)=a%(b)
  504. 2:l$=
  505. c(b):
  506. l$<>""
  507. 41,25,r$,
  508. 41,25,v$,
  509. d(b):
  510. j(p%,"delete")
  511. p("suredel",
  512. h(p%),d$(p%)))
  513. ,p%):
  514. t(xa%,c%):
  515. j(c%,"delete")
  516. c%=-1
  517. c(c%):
  518. l$<>""
  519. 41,27,
  520. c(c%),,2
  521. 41,27,
  522. d(c%),,2:
  523. c%<g%
  524. g%-1:a%(c)=a%(c+1):d$(c)=d$(c+1):f$(c)=f$(c+1):b%(c)=b%(c+1):b$(c)=b$(c+1):c$(c)=c$(c+1):e$(c)=e$(c+1):
  525. g%-=1:
  526. e(k%,0):
  527. s(a%(c%)):
  528. a("cantflush"):
  529. a("sureflush"))
  530. c%=g%-1
  531. ,c%):
  532. da(f$,A%):
  533. f$,9)="Received:"
  534. f$,5)="From:"
  535. d$=""
  536. f$,6)
  537. f$,7)="Sender:"
  538. f$,8):
  539. #A%,f$:
  540. A(b):
  541. v%,A%,f$,h%:
  542. a("already"):
  543. w%=-1
  544. a("neednb"):
  545. (a%(b)
  546. a%(b)=a%(b)
  547. n(b)<>0
  548. a%(b)=a%(b)
  549. n(b)<>0
  550. c(b)=""
  551. d(b)):A%=
  552. (i$):
  553. #v%:f$=
  554. e(v%,250):
  555. f$,4)="DATA"
  556. f$,4)="POST"
  557. f$=""
  558. #A%,"":h%=2
  559. da(f$,A%)
  560. f$<>"."
  561. #A%,f$
  562. ea(i$,4095):
  563. d$=""
  564. d$=c$(s%)
  565. d$,6)="From:"
  566. d$,6)
  567. d$,"<")>0
  568. d$,"<")+1)
  569. d$,"@")>0
  570. d$,"@")-1)
  571. d$,1)=" ":d$=
  572. (d$)-1):
  573. d$)=" ":d$=
  574. :!a%=(49+
  575. (i$))
  576. -4:a%!12=0:a%!16=5:a%!20=k%:a%!28=0:a%!32=0:a%!36=0:a%!40=4095:$(a%+44)=i$:
  577. 262375,18,a%,0:s%=b:va%=a%(b):C$=d$(b):o%=
  578. 8,17,i$
  579. ,,ya%,za%:
  580. e(Y%,
  581. h(b):
  582. #!a%=Y%:
  583. 262347,,a%:
  584. a%!28=-1
  585. G%=a%!28:
  586. o(Y%)
  587. 6!a%=G%:
  588. 393419,,a%
  589. (a%!32
  590. 1<<16)=0
  591. s%=-1
  592. a("vanished"):
  593. z(s%):
  594. 41,27,i$,,2
  595. 8,17,i$
  596. ,,Ba%,Ca%:
  597. Ba%=ya%
  598. Ca%=za%
  599. +(Aa%=
  600. w%=-1
  601. g("afteredit",i$)):
  602. -Ya%!24=0:$(a%+32)=d$+
  603. i(w%,20,(37+
  604. (d$)+2)
  605. -4):$(a%+32)=i$+
  606. h(s%)="Mail"
  607. i(w%,310,(37+
  608. (i$)+1)
  609. i(w%,300,(37+
  610. (i$)+1)
  611. ,s%):
  612. !a%=G%:
  613. 393447,3,a%,G%:
  614. a("cantquit"))
  615. z(c%):
  616. (a%(c%)
  617. I(c%):a%(c%)=a%(c%)
  618. h(c%):
  619. Q:a%!24=53:
  620. i(0,0,28):
  621. i(Da%,Ea%,Fa%):
  622. Da%=-1
  623. a("nbgone"):
  624. Y<!a%=Fa%:a%!12=0:a%!16=aa%:a%!20=Ea%:
  625. 262375,17,a%,Da%:
  626. Y:y$=
  627. (a%!20):
  628. y$,1)
  629. "9","2","1":
  630. p("comms"+
  631. y$,1),y$,
  632. f(a%,32)))
  633. a%!20
  634. 0:w%=a%!4
  635. 10:w%=-1:
  636. a("servergone")
  637. a("newssent")
  638. a("mailsent")
  639. s(F%):
  640. (a%(b%)
  641. w$=B$
  642. w$=k$
  643. p_!a%=(37+
  644. (w$))
  645. -4:a%!12=0:a%!16=ca%:a%!20=11:a%!24=(F%
  646. 1):$(a%+32)=w$+
  647. 262375,17,a%,0:
  648. o(f$):
  649. 8,17,f$+
  650. F%=1=
  651. ea(f$,t%):
  652. 131080,18,f$,t%:
  653. a(e$):
  654. a(e$)):
  655. r(e$):
  656. v(1,D%,e$):
  657. ca(D%):
  658. n(e$):e$=
  659. a(e$)+
  660. 0:!a%=(25+
  661. (e$))
  662. -4:a%!12=a%!8:a%!16=1283:$(a%+20)=e$:
  663. 262375,17,a%,a%!4:
  664. b(h$):
  665. 35,h$,a%,1024,0,0:=
  666. Ga% 256:z$=p$+".Messages":
  667. 267520,,z$
  668. M%,,Ha%:
  669. Ia%=0
  670. Ia% Ha%
  671. 30,6,,,17+
  672. ,,B%:$(B%+16)=z$:
  673. 267521,B%,B%+16,Ia%:
  674. a(t$):
  675. 267522,B%,t$
  676. ,,u$:
  677. g(t$,A$):
  678. 267522,B%,t$,Ga%,256,A$
  679. ,,u$:
  680. p(t$,A$,I$):
  681. 267522,B%,t$,Ga%,256,A$,I$
  682. ,,u$:
  683. 267524,B%:
  684.