home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / databases / progs / addresses1 / !Addresses / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-07-28  |  18.0 KB  |  859 lines
  1.  >!RunImage
  2.  For !Addresses
  3.  NSW 28-Jul-1994
  4. Xx$="1.32 (28-Jul-1994)":
  5. "Error 0 "+
  6. $+" (internal error code "+
  7. +")":
  8. 262365:
  9. $+" (internal error code "+
  10. +")")
  11. c$<>""aa%=
  12. r(c$)
  13. :ba%=
  14. 262343,,e%
  15. 262344,,e%
  16. 262341,,e%
  17. 262342,,e%:
  18. !e%=u%
  19. d(m%):
  20. d(P%):
  21. d(l%):
  22. d(I%):
  23. d(t%):
  24. d(Q%):
  25. c(N%,0):i%=0:
  26. h$,".",i%)>0:i%=
  27. h$,".",i%)+1:
  28. h$,i%-2):
  29. h$,".")>0
  30. 5,"Filer_OpenDir "+h$
  31. !e%=m%:da%=
  32. 17,18:
  33. ba%:ea%=
  34. 262365:
  35. jd%=a%(h%-1):
  36. a(m%,12,21,b%(d%,j%,0)):
  37. a(m%,14,21,b%(d%,j%,1)):
  38. a(m%,15,21,
  39. b%(d%,j%,1)):
  40. b%(d%,j%,1)
  41. a(m%,16,22,
  42. a(m%,17,22,
  43. b(m%,16,""):
  44. b(m%,17,
  45. b$(d%,j%),8))
  46. a(m%,17,22,
  47. a(m%,16,22,
  48. b(m%,17,""):
  49. b(m%,16,
  50. b$(d%,j%),8))
  51. a(m%,13,22,
  52. b%(d%,j%,0)):b$=b$(d%,j%):b$=
  53. b$-8):
  54. b(m%,11,
  55. b$,80)):
  56. b(m%,j%+1,
  57. b$(d%,j%),20)):fa%=b%(d%,j%,1)+11:
  58. l(m%,j%+1,fa%):
  59. I:ga%=ha%:
  60. 262380,32000+ha%
  61. ha%=ga%
  62. b("nis"))
  63. e% 256,ia% 1024,V% 512,ja% 512,ka% 256,la% 512,ma% 256,na% 512,oa% 20,a% 512,pa% 256,K% 640,qa% 1024,ra% 512,sa% 512,ta% 256
  64. ua% 1024,va% 512,wa% 384,xa% 64,a$(499,9),ya% 512,za% 128,a%(499),Aa% 1024,Ba% 570,Ca% 200,Da% 1024,Ea% 512:
  65. Fa% 512,Ga% 128,Z% 256,Ha% 128,Ia% 64,Ja% 128:
  66. b$(499,9),b%(499,9,1),c$(30,1):c$()=
  67. 30," "):c$()="":g$="":
  68. $oa%=
  69. b("er2"):h%=1:o%=1:j%=0:u$="":Ka%=0:da%=
  70. :La%=
  71. :ba%=
  72. :Ma%=
  73. :Na%=
  74. :Oa%=0:Pa%=0:Qa%=Ha%:
  75. 499:a%(k%)=k%:
  76. o("RiscOS$Version")="310"
  77. R% 32:!R%=2:R%!4=3:R%!8=5:R%!12=6:R%!16=6:R%!20=1282:R%!24=262336:R%!28=0:
  78. 262336,310,&4B534154,"Addresses",R%
  79. Ra%,Sa%
  80. 262336,200,&4B534154,"Addresses"
  81. Ra%,Sa%
  82. p(-1,0,0,68,68,12298,"!addresses"):q%=
  83. "<Address$Dir>.Sprites":Ta%=
  84. #q%+1024:
  85. C% Ta%:!C%=Ta%-1:C%!4=0:C%!8=12:C%!12=16:
  86. 46,256+10,C%,"<Address$Dir>.Sprites":
  87. 262380,-1,-1
  88. H:g%=pa%:$g%="Addresses":g%!12=459271:g%!16=16*10:g%!20=44:g%!24=0:
  89. c(g%+28,0,Ua%,&7091031,"Info"):
  90. c(g%+52,0,N%,&7091031,"Save"):
  91. c(g%+76,0,-1,&7091031,"New file"):
  92. c(g%+100,128,-1,&7091031,"Quit")
  93. g%=Ia%:$g%="Date":g%!12=459271:g%!16=16*8:g%!20=44:g%!24=0:
  94. c(g%+28,128,-1,&7091031,"Today"):g%=Ja%:$g%="Correspond":g%!12=459271:g%!16=16*11:g%!20=44:g%!24=0:
  95. c(g%+28,0,-1,&7091031,"Delete"):
  96. c(g%+52,0,-1,&7091031,"Insert")
  97. c(g%+76,0,-1,&7091031,"Raise"):
  98. c(g%+100,128,-1,&7091031,"Lower"):g%=K%:$g%="Addresses":g%!12=459271:g%!16=16*18:g%!20=44:g%!24=0:
  99. c(g%+28,0,-1,&7091031,"Control        F6"):
  100. c(g%+52,0,-1,&7091031,"Search         F4")
  101. c(g%+76,0,-1,&7091031,"Sort           F5"):
  102. c(g%+100,2,-1,&7091031,"Correspondance F7"):
  103. c(g%+124,2,K%+300,&7091031,"Address"):
  104. c(g%+148,0,Ua%,&7091031,"Info"):
  105. c(g%+172,8,K%+500,&7091031,"Save"):
  106. c(g%+196,128,-1,&7091031,"Quit")
  107. g%=K%+300:$g%="Edit":g%!12=459271:g%!16=16*11:g%!20=44:g%!24=0:
  108. c(g%+28,0,-1,&7091031,"Delete"):
  109. c(g%+52,0,-1,&7091031,"Insert"):
  110. c(g%+76,0,-1,&7091031,"Raise"):
  111. c(g%+100,128,-1,&7091031,"Lower")
  112. g%=K%+500:$g%="Save :":g%!12=459271:g%!16=16*16:g%!20=44:g%!24=0:
  113. c(g%+28,0,N%,&7091031,"Whole file   F3"):
  114. c(g%+52,136,n%,&7091031,"This record 
  115. F3"):
  116. 262361,,"<Address$Dir>.Templates":P%=
  117. e(sa%,ta%,255,"cont",C%):m%=
  118. e(Da%,Ea%,511,"crsp",C%):Ua%=
  119. e(ja%,ka%,255,"info",C%):u%=
  120. e(ia%,V%,511,"main",C%):Va%=
  121. e(ya%,za%,127,"modd",C%)
  122. e(la%,ma%,255,"save",-1):l%=
  123. e(qa%,ra%,511,"sear",C%):n%=
  124. e(Aa%,Ba%,569,"sind",C%):I%=
  125. e(ua%,va%,511,"sort",C%):t%=
  126. e(Fa%,Ga%,127,"date",C%):Q%=
  127. e(wa%,xa%,63,"foun",C%):
  128. 262362
  129. $(ka%+99)=x$:$ma%="Addresses":$Ba%="Address":
  130. a(I%,1,21,
  131. a(I%,2,21,
  132. a(I%,3,21,
  133. a(I%,c%,21,
  134. a(l%,3,21,
  135. a(I%,4,21,
  136. a(l%,9,21,
  137. c%=10
  138. a(l%,c%,21,
  139. a(v%,c%):!a%=v%:a%!4=c%:
  140. 262350,,a%:=((a%!24
  141. 2097152)=2097152)
  142. b(l%,16,""):
  143. ):f$=
  144. c(l%,1):r%=
  145. b(Q%,0,f$):
  146. f$=""
  147. b("ser")):
  148. f$,"?")>0
  149. f$,"*")>0
  150. b("mxw")):
  151. u$=f$:Wa%=
  152. a(l%,3):Xa%=
  153. a(l%,9):Ya%=
  154. a(l%,10):Za%=
  155. a(l%,11):_a%=
  156. a(l%,12):`a%=
  157. a(l%,13):ab%=
  158. a(l%,14):
  159. :$a%=f$:A%=a%:
  160. bb%:f$=$a%
  161. "dd$=f$:c$()="":
  162. 30:c$(k%,1)="1":
  163. d$,1)="?":d$=
  164. d$,2):
  165. d$)="?":d$=
  166. d$,"?")>0
  167. rLcb%=0:z%=0:db%=0:
  168. d$,"?",z%)>0:z%=
  169. d$,"?",z%)+1:cb%+=1:
  170. z%=db%+1cb%-=1
  171. vdb%=z%:
  172. :z%=1:
  173. cb%:c$(d%,0)=
  174. d$,z%,
  175. d$,"?",z%)-z%):z%=
  176. d$,"?",z%)+1:
  177. c$(d%,0)=""d%-=1:c$(d%,1)=
  178. c$(d%,1)+1)
  179. c$(d%,0),1)="?"d%-=1
  180. c$(d%,0),1)="?":c$(d%,1)=
  181. c$(d%-1,1)+1):c$(d%,0)=
  182. c$(d%,0),2):
  183. :c$(d%,0)=
  184. d$,z%):
  185. c$(d%,0),1)="?":c$(d%-1,1)=
  186. c$(d%-1,1)+1):c$(d%,0)=
  187. c$(d%,0),2):
  188. Wa%s%=0:L%=o%:
  189. :s%=(
  190. c(l%,5))-1:L%=(
  191. c(l%,7))-1
  192. t(s%,L%,
  193. f(i%,y%):r%=
  194. :e$=a$(a%(i%),y%):
  195. $a%=e$:A%=a%:
  196. bb%:e$=$a%
  197. :l$=e$:k%=0:
  198. d$,"?")>0
  199. e$,c$(1,0))-1:
  200. cb%+1:
  201. e$,c$(d%,0),z%)<>z%+
  202. c$(d%-1,0)+
  203. (c$(d%-1,1))_%=
  204. e$,c$(d%,0)):
  205.     r%=_%
  206. f$,"*")>0
  207. d$,"*")-1):
  208. l$,m$)>0
  209. \-d$=
  210. f$,"*")+1):l$=
  211. l$,m$)+1):k%=1
  212. l$,m$,
  213. m$)<>m$
  214. d$,"*")=0
  215. :r%=_%
  216. f$,"?")=0
  217. f$,"*")=0
  218. e$,d$)>0
  219. g(Q%):
  220. b(Q%,1,"Found"):
  221. d(l%):h%=i%+1:
  222. t(s%,L%,eb%):
  223. i%=s%
  224. 8:r%=
  225. f(i%,y%):
  226. i%=s%
  227. f(i%,0)
  228. 5:r%=
  229. f(i%,y%):
  230. f(i%,6)
  231. 8:r%=
  232. f(i%,y%):
  233. b(l%,16,
  234. b("nfd")):
  235. b(Q%,1,
  236. b("nfd")):
  237. g(l%)
  238. L:S%=e%!24:J%=!e%:c%=e%!4:D%=
  239. 387:fb%=c%:
  240. 262351,,a%:
  241. 262356,,N%,!a%,a%!4:D%=
  242. 388:fb%=c%:
  243. u:O%=
  244. 389:fb%=c%:
  245. g(I%):O%=
  246. 390:fb%=c%:
  247. g(P%):O%=
  248. 391:fb%=c%:
  249. v:O%=
  250. 392:O%=
  251. 262354,-1
  252. 398,13:c%+=1:D%=
  253. 399:c%-=1:D%=
  254. 403:fb%=c%:
  255. 262351,,a%:
  256. 262356,,n%,!a%,a%!4:D%=
  257. ):h%=1:D%=
  258. ):h%=o%:D%=
  259. ):h%-=1:
  260. h%=0:h%=1
  261. :h%+=1:
  262. h%>o%
  263. o%=h%
  264. c%=4c%=14
  265. c%=15c%=5
  266. j(u%,c%,-1)
  267. 13:d%=a%(h%-1):b$=
  268. b$(d%,j%),8):
  269. b$<8:b$+=" ":
  270. :b$(d%,j%)=b$+
  271. c(m%,11):
  272. S%=13
  273. c%=9D%=
  274. c(P%,9)):
  275. S%=13D%=
  276. S%=13D%=
  277. S%=13
  278. c%=1D%=
  279. t%:O%=
  280. 394,398:D%=
  281. :c%+=1:
  282. c%=5:c%=2
  283. 410,399:D%=
  284. :c%-=1:
  285. c%=1:c%=4
  286. 13:D%=
  287. c%<4:c%+=1:
  288. j(t%,c%,-1)
  289. S%=27
  290. 262356,,-1:
  291. d(l%):
  292. j(u%,fb%,-1):
  293. d(I%):
  294. d(Q%)
  295. 262364,S%
  296. 262356,,-1:
  297. :!gb%=e%!20:hb%=e%!24:
  298. k%>=hb%
  299. `%=hb%:U%=18
  300. :`%=k%:U%=17:Na%=
  301. 262385,Sa%,ib%,jb%,gb%,`%:ib%+=`%:k%-=`%:e%!12=e%!8:e%!16=7:e%!20=gb%:e%!24=`%:
  302. 262375,U%,e%,jb%:
  303. k:b$=a$(a%(h%-1),0):=
  304. b$," ")-1)
  305. l:b$=a$(a%(h%-1),0):=
  306. b$," ")+1)
  307. i(b$):$(ib%+k%)=b$:k%+=
  308. b$+1:ib%?(k%-1)=10:
  309. m:ib%=Ca%:k%=0:
  310. a(n%,15)
  311. a(n%,4)
  312. a(n%,5)
  313.  No problem: Nothing to do!
  314. a(n%,4)
  315. a(n%,5)
  316. a(n%,4)
  317. a(n%,5)
  318. i(a$(a%(h%-1),0))
  319. 9:b$=a$(a%(h%-1),p%):
  320. b$<>""
  321. a(n%,p%+5)
  322. i(b$)
  323. a(n%,4)
  324. a(n%,5)
  325. i(a$(a%(h%-1),0))
  326. a(n%,4)
  327. a(n%,5)
  328. a(n%,p%+5)
  329. i(a$(a%(h%-1),p%))
  330. kb%<>n%
  331. m:Na%=
  332. :jb%=e%!4:
  333. :Ka%=e%!4:c$=
  334. c(n%,0)
  335. c$,".",0)=0
  336. b("sav")):
  337. 8,10,c$,4095,,Ca%,Ca%+`%:
  338. 262356,,-1
  339. b(n%,0,c$):
  340. Ka%=0
  341. Re%!0=80:e%!4=Sa%:e%!8=0:e%!12=0:e%!16=3:$(e%+44)=c$:
  342. 262375,18,e%,Ka%:Ka%=0:
  343. Z    c$=
  344. c(N%,0)
  345. c$,".",0)=0
  346. b("sav")):
  347. (c$):i%=0:
  348. :d%=a%(i%):
  349. a$(d%,0)<>""
  350. 9:b$=a$(d%,p%):
  351. b$<>""
  352. p%+b$
  353. 9:b$=b$(d%,p%):
  354. b$<>""
  355. (p%+20)+
  356. (b%(d%,p%,0)*-1)+
  357. (b%(d%,p%,1)*-1)+b$:
  358. #q%,b$
  359. :i%+=1:
  360. 5,"SetType "+c$+" 0E4":Ma%=
  361. 262356,,-1
  362. b(N%,0,c$):
  363. x:c$=
  364. h:d%=a%(h%-1):b$=
  365. b$(d%,j%),8):
  366. b$<8:b$+=" ":
  367. :b$(d%,j%)=b$+c$:b%(d%,j%,0)=
  368. j(m%,11,
  369. T(lb%):mb%=e%!40:
  370. 262351,,a%:J%=a%!12:c%=a%!16:
  371. J%=m%
  372. c%=11
  373. mb%<>228
  374. lb%=3
  375. (-1):aa%=
  376. :aa%=
  377. aa%:ea%=
  378. r(c$)
  379. g(Va%):
  380. 262343,,e%
  381. 0,4,5:
  382.  Ignore
  383. 6:c%=e%!16:
  384. d(Va%):
  385. 17,18:
  386. e%!16
  387. 0:ba%=
  388. 1282:
  389. d(Va%):=
  390. d(Va%):=
  391. r(c$):q%=
  392. (c$):
  393. aa%:nb%=o%:w%=
  394. :a$()="":b$()="":b%()=0:j%=0:o%=0:nb%=0:h%=1:w%=
  395. :$ma%=c$
  396. #q%:b$=
  397. b$-1):
  398. :o%+=1:a$(o%-1,0)=b$:
  399. #q%:b$=
  400. #q%:p%=
  401. b$,1)):b$=
  402. b$-1):
  403. p%<10
  404. a$(o%-1,p%)=b$
  405. b$,1,1):b%(o%-1,p%-20,0)=(t$="1"):t$=
  406. b$,2,1):b%(o%-1,p%-20,1)=(t$="1"):b$=
  407. b$-2):b$(o%-1,p%-20)=b$
  408. k%=nb%
  409. 499:a%(k%)=k%:
  410. b(l%,5,"1"):
  411. b(l%,7,
  412. b(l%,1,""):
  413. b(l%,16,""):
  414. g(l%):
  415. j(l%,1,0):
  416. a(m%,j%+1,21,
  417. g(m%):da%=
  418. g(P%)
  419. g(I%)
  420. 7:ba%=
  421. 0:E%=a%:Ta%=
  422. ob%-a%:v$="":
  423. Ta%:v$+=
  424. (a%?k%):
  425. b(t%,k%,
  426. v$,(k%-2)*2+1,2)):
  427. 3:ba%=
  428. "b":g%=pa%
  429. "d":g%=Ia%
  430. "c":g%=Ja%
  431. :g%=K%
  432. 262356,,g%,!a%-64,a%!4
  433. Y:d%=a%(h%-1):
  434. k%=j%
  435. 8:b$(d%,k%)=b$(d%,k%+1):
  436. pb%=0
  437. 1:b%(d%,k%,pb%)=b%(d%,k%+1,pb%):
  438. 3b$(d%,9)="":b%(d%,9,0)=0:b%(d%,9,1)=0:w%=
  439. Z:d%=a%(h%-1):
  440. -1:b$(d%,k%)=b$(d%,k%-1):
  441. pb%=0
  442. 1:b%(d%,k%,pb%)=b%(d%,k%-1,pb%):
  443. ,:b$(d%,j%)="":b%(d%,j%,0)=0:b%(d%,j%,1)=0:w%=
  444. b("crc")):
  445. A(-1):
  446. A(qb%):d%=a%(h%-1):
  447. b$(d%,j%),b$(d%,j%+qb%):
  448. b%(d%,j%,k%),b%(d%,j%+qb%,k%):
  449. a(m%,j%+1,21,
  450. ):j%+=qb%:
  451. a(m%,j%+1,21,
  452. b("clc")):
  453. A(1):
  454. 262351,,a%:=((a%!8
  455. 1)=1)
  456. q:ea%=
  457. 499:a%(k%)=k%:
  458. :j%=0:h%=1:o%=1:$ma%="Addresses":b$()="":b%()=0:a$()="":w%=
  459. o%=1G%=
  460. b("lre")):
  461. i%=h%
  462. 9:a$(a%(i%-1),y%)=a$(a%(i%),y%):
  463. 9:a$(a%(o%),y%)="":
  464. h%=o%h%-=1
  465. o%-=1:w%=
  466. o%+=1:
  467. i%=o%
  468. 9:a$(a%(i%),y%)=a$(a%(i%-1),y%):
  469. 9:a$(a%(h%-1),y%)="":
  470. :o%+=1:w%=
  471. J:x%=!e%:y%=e%!4:rb%=e%!8:J%=e%!12:c%=e%!16:
  472. g(u%)
  473. 15:sb%=
  474. a(n%,15):
  475. b(l%,1,u$)
  476. 9,10,11,12,13:
  477. aa(l%,9,13,c%):
  478. a(l%,10)
  479. a(l%,11)
  480. a(l%,12)
  481. a(l%,13))
  482. a(l%,9)
  483. a(l%,9,21,
  484. 0:h%=1
  485. 1:h%-=1:
  486. h%=0h%=1
  487. :h%+=1:
  488. h%>o%
  489. o%=h%
  490. 3:h%=o%
  491. d(Q%):
  492. d(l%)
  493. m%:d%=a%(h%-1):
  494. 1,2,3,4,5,6,7,8,9,10:
  495. a(m%,j%+1,21,
  496. ):j%=c%-1:
  497. a(m%,j%+1,21,
  498. 12:b%(d%,j%,0)=
  499. a(m%,12):
  500. a(m%,13,22,
  501. b%(d%,j%,0)):
  502. 13:b$=b$(d%,j%):
  503. Ra%>=310
  504. 5,"Filer_Run "+
  505. b$-8):
  506. 262366,"Run "+
  507. b$-8)
  508. 14:b%(d%,j%,1)=
  509. a(m%,16,22,
  510. a(u%,17,22,
  511. 15:b%(d%,j%,1)=
  512. a(u%,16,22,
  513. a(u%,17,22,
  514. b(t%,5,
  515. b("snt")):
  516. l(t%,5,10):
  517. b(t%,c%,""):
  518. g(t%)
  519. b(t%,5,
  520. b("rcd")):
  521. l(t%,5,11):
  522. b(t%,c%,""):
  523. g(t%)
  524. d(t%)
  525. -2:g$="b":
  526. m(x%,274,pa%)
  527. t%:g$="d":
  528. m(x%,y%,Ia%)
  529. u%:g$="w":
  530. m(x%,y%,K%)
  531. m%:g$="c":
  532. m(x%,y%,Ja%)
  533. 16,64:
  534. c%=1kb%=J%:
  535. B("0e4")
  536. c%=1kb%=J%:
  537. B("fff")
  538. aa(v%,tb%,ub%,vb%):
  539. c%=tb%
  540. a(v%,c%)
  541. a(v%,vb%,21,
  542. w:o$=
  543. c(t%,2):
  544. o$="0"+o$
  545. c(t%,3):
  546. p$="0"+p$
  547. c(t%,4):
  548. q$="9"+q$
  549. fy$=o$+"/"+p$+"/"+q$:
  550. b$(a%(h%-1),j%)<8:b$(a%(h%-1),j%)+=" ":
  551. b$(a%(h%-1),j%),8)=y$:
  552. d(t%):
  553. B(z$):x%=!e%:y%=e%!4:e%!4=5:e%!8=x%-76:e%!16=x%+76:e%!12=y%-52:e%!20=y%+52:e%!24=0:e%!32=&7FFFFFFF:e%!28=0:e%!36=&7FFFFFFF:
  554. 6,161,28
  555. ,,f%:
  556. Ra%>=310
  557. 271360,197,1,"file_"+z$,e%+8,e%+24
  558. 262352,,e%
  559. s%=h%-2:L%=1
  560. :s%=h%-2:L%=(
  561. c(l%,5))-1
  562. i%=s%
  563. 8:r%=
  564. f(i%,y%):
  565. i%=s%
  566. f(i%,0)
  567. 5:r%=
  568. f(i%,y%):
  569. f(i%,6)
  570. 8:r%=
  571. f(i%,y%):
  572. b(Q%,1,
  573. b("nfd"))
  574. s%=h%:L%=o%
  575. :s%=h%:L%=(
  576. c(l%,7))-1
  577. t(s%,L%,
  578. j:r$=
  579. c(u%,5):
  580. h%<o%
  581. r$=""
  582. b(P%,5,
  583. b(P%,7,
  584. b(P%,9,""):
  585. o:wb%=w%:A$=$V%:
  586. a$(a%(h%-1),i%)<>
  587. c(u%,i%+5)
  588. $V%="Addresses *":
  589. :$V%="Addresses"
  590. w%<>wb%
  591. $V%<>A$
  592. C:!a%=u%:
  593. 262347,,a%:
  594. ((a%!32)
  595. (1<<16))=0
  596. g(u%)
  597. 262353,-1,a%!4,a%!16,a%!12,a%!16+40
  598. f(xb%):
  599. g(u%)
  600. 9:a$(a%(h%-1),i%)=
  601. c(u%,i%+5):
  602. $V%="Addresses *"
  603. $V%="Addresses"
  604. !a%=u%:
  605. 262347,,a%:
  606. C:d%=a%(h%-1):
  607. b(u%,i%+5,a$(d%,i%)):
  608. b(m%,i%+1,
  609. b$(d%,i%),20)):fa%=b%(d%,i%,1)+11:
  610. l(m%,i%+1,fa%):
  611. j(u%,5,-1):
  612. 263872:yb%=
  613. a(I%,1):
  614. a(I%,c%)=
  615. zb%=c%
  616. :A%=a%:B%=Z%:
  617. :Ab%=
  618. o%-2:
  619. 3:i$=a$(a%(p%),0):j$=a$(a%(p%+1),0):$a%=
  620. i$," ")-1):$Z%=
  621. j$," ")-1)
  622. 4:i$=a$(a%(p%),0):j$=a$(a%(p%+1),0):$a%=
  623. i$," ")):$Z%=
  624. j$," "))
  625. 5,6,7,8,9,10,11,12:$a%=a$(a%(p%),zb%-4):$Z%=a$(a%(p%+1),zb%-4)
  626. Bb%=0
  627. Bb%=1
  628. d(I%):
  629. 263873:
  630. a%(p%),a%(p%+1):Ab%=
  631. h%=o%
  632. b("cnr")):
  633. a%(h%-1),a%(h%):w%=
  634. b("cnl")):
  635. a%(h%-1),a%(h%-2):w%=
  636. m(Db%,Eb%,g%):
  637. 262356,,g%,Db%-64,Eb%:
  638. e%!16
  639. 0:ba%=
  640. T(e%!16)
  641. 1282:
  642. 262336:
  643. e%!20
  644. n(-2)
  645. K%+500:
  646. (a$(a%(h%-1),0))=0:K%!560=K%!560
  647. 4194304:
  648. :K%!560=(K%!560
  649. 4194304)-4194304
  650. 262376,,e%!20,e%!24,e%!28
  651. n(Fb%):
  652. Fb%=-2
  653. a(n%,15)
  654. a(n%,15,21,Fb%):
  655. a(n%,c%,21,
  656. Fb%):
  657. a(n%,16,23,
  658. :!a%=n%:a%!4=16:
  659. 262340,,a%:!a%=n%:
  660. 262347,,a%:
  661. 262353,n%,a%!20+250,a%!24-260,a%!20+400,a%!24-210
  662. e(Gb%,c%,Hb%,r$,Ib%):
  663. $+" whilst trying to load template '"+r$+"'"):
  664. 262363,,Gb%,c%,c%+Hb%,-1,r$,0:Gb%!64=Ib%:
  665. 262337,,Gb%
  666. d(B$):Kb%=Pa%:Pa%=
  667. Pa%-Kb%<200
  668. Oa%+=1
  669. Pa%-Kb%>200
  670. Oa%=0
  671. Oa%>5
  672. 262365:
  673. 262383,0:na%!0=255:$(na%+4)=B$:
  674. 262367,na%,18,oa%
  675. ,Lb%:=Lb%
  676. c(v%,c%):!a%=v%:a%!4=c%:
  677. 262350,,a%:=$(a%!28)
  678. p(J%,Mb%,Nb%,Ob%,Pb%,Qb%,e$):a%!0=J%:a%!4=Mb%:a%!8=Nb%:a%!12=Ob%:a%!16=Pb%:a%!20=Qb%:$(a%+24)=e$:
  679. 262338,,a%
  680. Jb%:=Jb%
  681. d(Jb%):!a%=Jb%:
  682. 262347,,a%:a%!28=0:
  683. 262342,,a%:
  684. x:e%!12=e%!8:e%!16=4:
  685. 262375,17,e%,e%!4:
  686. g(Jb%):
  687. ea:!a%=Jb%:
  688. 262347,,a%:
  689. fa:La%=
  690. a%!28=-1:
  691. 262341,,a%:
  692. ea:a%!0=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:
  693. 49,a%,a%+20:Rb%=1<<(a%!20):Sb%=1<<(a%!24):Tb%=(a%!28+1)*Rb%:Ub%=(a%!32+1)*Sb%:
  694. fa:W%=a%!12-a%!4:H%=a%!16-a%!8:X%=(Tb%-W%)/2:Y%=(Ub%-H%)/2:a%!4=X%:a%!8=Y%:a%!12=X%+W%:a%!16=Y%+H%:
  695. l(v%,c%,fa%):
  696.  !block%=window%:block%!4=icon%:block%!8=0:block%!12=0:block%?11=col%:block%?15=15
  697.  SYS "Wimp_SetIconState",,block%
  698. b(v%,c%,s$):!a%=v%:a%!4=c%:
  699. 262350,,a%:
  700. $(a%!28)=s$:
  701. s$>a%!36:G%=
  702. d("String too long for icon number "+
  703. c%+"  "+s$):
  704. -$(a%!28)=s$:a%!8=0:a%!12=0:
  705. 262349,,a%:
  706. j(v%,c%,Vb%):
  707. Vb%=-1
  708. c(v%,c%)
  709. 262354,v%,c%,-1,-1,-1,Vb%:
  710. <x%=0:
  711. k$," ",x%)>0:x%=
  712. k$," ",x%)+1:
  713. (k$)-x%+1)
  714. 57,,"DragASprite_Stop"
  715. 271361
  716. 262352,,0:F%=e%:
  717. 262351,,F%:x%=F%!0:y%=F%!4:v%=F%!12:c%=F%!16:!F%=56:F%!12=0:F%!16=1:F%!20=v%:F%!24=c%:F%!28=x%:F%!32=y%:F%!36=0:F%!40=4095:$(F%+44)=
  718. c(kb%,0)):
  719. 262375,17,e%,v%,c%:Ma%=
  720. h:c$="":i%=e%+43:
  721. i%?1<>0:i%+=1:c$+=
  722. q(n$):
  723. n$,".")>0:n$=
  724. n$,".")+1):
  725. c(s%,Xb%,i%,Qb%,e$):s%!0=Xb%:s%!4=i%:s%!8=Qb%:
  726. e$<12
  727. $(s%+12)=e$
  728. :Yb%=Qa%:Zb%=-1:_b%=
  729. e$+1:Qb%=(Qb%
  730. -257)
  731. 256:s%!8=Qb%:s%!12=Yb%:s%!16=Zb%:s%!20=_b%:$Qa%=e$:Qa%+=_b%
  732. O:q%=
  733. "<Address$Dir>.Messages":
  734. q%=0:G%=
  735. d("Who stole my messages?"):
  736. 262365:
  737. `b% (
  738. #q%+16):
  739. 12,4,q%,`b%,
  740. ,,,Bb%:
  741. Bb%<>0:G%=
  742. d("An error has occurred during message loading"):
  743. 262365:
  744. #q%=0:
  745. y:J%=e%!32:c%=e%!36:
  746. -2:a$="bar"
  747. 5:a$="nam"
  748. 6,7,8,9,10:a$="add"
  749. 11:a$="pos"
  750. 12:a$="tel"
  751. 13,14:a$="oth"
  752. :a$="mai"
  753. 12:a$="fil"
  754. 14:a$="sen"
  755. 16:a$=
  756. b("dac"))+
  757. b("snt")+
  758. b("eda")
  759. 15:a$="rec"
  760. 17:a$=
  761. b("dac"))+
  762. b("rcd")+
  763. b("eda")
  764. b%(a%(h%-1),j%,0)
  765. 0:a$="rgr"
  766. -1:a$="run"
  767. 11:a$="crf"
  768. 0,1,2,3,4,5,6,7,8,9,10:a$="crs"
  769. :a$="rsp"
  770. P%:a$="con"
  771. t%:a$="dat"
  772. l%:a$="sea"
  773. I%:a$="sor"
  774. N%:a$="swi"
  775. Ua%:a$="inf"
  776. Q%:a$="fnd"
  777. n%:a$="snd"
  778. Ra%>=310
  779. 262388,1,a%,J%,c%:
  780. 0:a$="mco"
  781. 1:a$="mse"
  782. 2:a$="mso"
  783. 3:a$="mcr"
  784. 4:w$="~adr":
  785. 0:a$="csd"
  786. 1:a$="csi"
  787. 2:a$="csr"
  788. 3:a$="csl"
  789. :a$="mad"
  790. 5:a$="min"
  791. 7:a$="mqu"
  792. "c":w$="~crp":
  793. 0:a$="csd"
  794. 1:a$="csi"
  795. 2:a$="csr"
  796. 3:a$="csl"
  797. :a$=""
  798. 0:a$="min"
  799. 1:a$="msa"
  800. 2:a$="new"
  801. 3:a$="mqu"
  802. :a$=""
  803. :a$=""
  804. b(a$)
  805. a$,"%0")>0:T%=
  806. a$,"%0"):M%=
  807. a$," ",T%):
  808. M%=0:M%=
  809. +H(ac%=
  810. a$,".",T%):
  811. ac%>0
  812. ac%<M%:M%=ac%
  813. +RVa$=
  814. a$,T%-1)+
  815. b(w$)+
  816. a$,M%):
  817. a$,"~")>0:T%=
  818. a$,"~"):M%=
  819. a$," ",T%):
  820. M%=0:M%=
  821. +z(ac%=
  822. a$,".",T%):
  823. ac%>0
  824. ac%<M%:M%=ac%
  825. a$,T%-1)+
  826. a$,T%+1,M%-T%-1))+
  827. a$,M%):
  828. ha(a$):
  829. 0:a$="prw"
  830. a$(a%(h%-1),0)=""
  831. b("pri")+"|M"+
  832. b("prg"):
  833. :a$="pri"
  834. :a$="msa"
  835. ha(e$):Ta%=
  836. e$+1:e%!12=e%!8:e%!16=1283:$(e%+20)=e$+
  837. 0:!e%=(24+Ta%)
  838. 262375,17,e%,e%!4:
  839. b($Z%):A%=`b%:B%=Z%:
  840. bc%:=$Z%
  841. E:q%=
  842. "<Address$Dir>.Code":Hb%=
  843. #q%+4:
  844. U% Hb%:
  845. 5,"LOAD <Address$Dir>.Code "+
  846. ~U%:bb%=U%:Cb%=U%+40:bc%=U%+112:ob%=U%+236:
  847. a(v%,c%,cc%,dc%):!a%=v%:a%!4=c%:
  848. 262350,,a%:
  849. (a%!24
  850. 1<<cc%)=
  851. (dc%<<cc%):
  852. 9!a%=v%:a%!4=c%:a%!8=0:a%!12=1<<cc%:
  853. 262349,,a%:
  854. 8!a%=v%:a%!4=c%:a%!8=1<<cc%:a%!12=1<<cc%:
  855. 262349,,a%
  856. o(C$):
  857. 35,C$,a%,255,0,3
  858. ,,b%:a%?b%=13:=$a%
  859.