home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / menus / deskmen_2 / !DeskMen / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-04-16  |  20KB  |  976 lines
  1.  DeskMen 2.01
  2.  (c) 1993,94,95,96 Ian Clark
  3.  Started (v2.00): 01:28:44 12-Mar-1995
  4. $+" at line "+
  5. 263872:A_$="2.01 (04 Apr 1996)":
  6. C_(D_%,2,
  7. C_(D_%,3,
  8. E_("<DMen$Scrap>.DeskMen.SwapFile")
  9. 131077,"Wipe <DMen$Scrap>.DeskMen.SwapFile F~C~V"
  10. F_("DeskMen intro")
  11. 262343,,G_%:
  12. I_("<DMen$Menu>"):
  13. J_% K_%=0:
  14. L_(0):
  15. M_(-2,N_%,1)
  16. 263873:
  17. 262343,&83033,G_%
  18. 262369,&83033,G_%,100
  19. S_(G_%!12,G_%!16,G_%!8,!G_%,G_%!4)
  20. T_(!G_%,G_%!4,G_%!24,G_%!8,G_%!12)
  21. 262354,-1,-1
  22. 17,18:
  23. V_(G_%!16,G_%!12,G_%!4,!G_%)
  24. 262351,,G_%:
  25. G_%!12<>W_%
  26. G_%!12<>X_%
  27. L_(K_%)
  28. G_%!16>-6
  29. Y_(W_%,-1)
  30. 267524,a_%:
  31. 30,7,,a_%:
  32. 262365:
  33. 262341,,G_%
  34. 262342,,G_%:!G_%=e_%:
  35. 262342,,G_%:f_%=
  36. 262342,,G_%:!G_%=X_%:
  37. 262342,,G_%:O_%=
  38. 262342,,G_%
  39. G_% 1024:
  40. g_% 24:
  41. h_% 512:!G_%=0:
  42. 262336,310,&4B534154,"DeskMen",G_%
  43. A_%,i_%:
  44. A_%<316
  45. 0,"DeskMen requires Risc OS 3.10 or later!"
  46. 262343,,G_%
  47. j_%=0:
  48. 262386,2
  49. l_%:l_$=
  50. m_(l_%):n_$="<DMen$Dir>.Resources.Sprites"+l_$:
  51. 8,13,n_$
  52. o_%<>1
  53. n_$="<DMen$Dir>.Resources.Sprites"
  54. 8,13,n_$
  55. ,,,,p_%:p_%+=4:
  56. q_% p_%:!q_%=p_%:q_%!8=16:
  57. 46,&209,q_%:
  58. 46,&20A,q_%,n_$:r_%=0:s_%=0:t_%=0:u_%=0:v_%=0:
  59. 262361,,"<DMen$Dir>.Resources.Templates":
  60. 262363,,-1,-1,,-1,"Info",0
  61. ,b%,i%,,,,t_%:
  62. t_%>0 s_%+=i%
  63. b%>r_% r_%=b%
  64. 262363,,-1,-1,,-1,"Error",0
  65. ,b%,i%,,,,t_%:
  66. t_%>0 s_%+=i%
  67. b%>r_% r_%=b%
  68. 262363,,-1,-1,,-1,"Menu",0
  69. ,b%,i%,,,,t_%:
  70. t_%>0 s_%+=i%
  71. b%>r_% r_%=b%
  72. 262363,,-1,-1,,-1,"Menupane",0
  73. ,b%,i%,,,,t_%:
  74. t_%>0 s_%+=i%
  75. b%>r_% r_%=b%
  76. 262363,,-1,-1,,-1,"Save",0
  77. ,b%,i%,,,,t_%:
  78. t_%>0 s_%+=i%
  79. b%>r_% r_%=b%
  80. 262363,,-1,-1,,-1,"Opts",0
  81. ,b%,i%,,,,t_%:
  82. t_%>0 s_%+=i%
  83. b%>r_% r_%=b%
  84. 262363,,-1,-1,,-1,"Opt1",0
  85. ,b%,i%,,,,t_%:
  86. t_%>0 s_%+=i%
  87. b%>r_% r_%=b%
  88. 262363,,-1,-1,,-1,"Opt2",0
  89. ,b%,i%,,,,t_%:
  90. t_%>0 s_%+=i%
  91. b%>r_% r_%=b%
  92. 262363,,-1,-1,,-1,"pass",0
  93. ,b%,i%,,,,t_%:
  94. t_%>0 s_%+=i%
  95. b%>r_% r_%=b%
  96. 262363,,-1,-1,,-1,"Loading",0
  97. ,b%,i%,,,,t_%:
  98. t_%>0 s_%+=i%
  99. b%>r_% r_%=b%
  100. qr_%=
  101. w_(r_%):
  102. r_%=-1
  103. 0,"Fatal error during initalisation: Unable to claim memory to load window definitions!"
  104. x_%=s_%+1:
  105. s_% s_%:t_%=0:
  106. 262363,,r_%,s_%,s_%+x_%,-1,"Error",0
  107. ,,t_%:r_%!64=q_%:
  108. 262337,,r_%
  109. 262363,,r_%,t_%,s_%+x_%,-1,"Info",0
  110. ,,t_%:r_%!64=q_%:
  111. 262337,,r_%
  112. 262363,,r_%,t_%,s_%+x_%,-1,"Loading",0
  113. ,,t_%
  114. r_%!64=q_%:
  115. 262337,,r_%
  116. 262363,,r_%,t_%,s_%+x_%,-1,"Menu",0
  117. ,,t_%:r_%!64=q_%:
  118. 262337,,r_%
  119. 262363,,r_%,t_%,s_%+x_%,-1,"Menupane",0
  120. ,,t_%:r_%!64=q_%:
  121. 262337,,r_%
  122. 262363,,r_%,t_%,s_%+x_%,-1,"Opts",0
  123. ,,t_%
  124. r_%!64=q_%:
  125. 262337,,r_%
  126. 262363,,r_%,t_%,s_%+x_%,-1,"Opt1",0
  127. ,,t_%:r_%!64=q_%:
  128. 262337,,r_%
  129. 262363,,r_%,t_%,s_%+x_%,-1,"Opt2",0
  130. ,,t_%:r_%!64=q_%:
  131. 262337,,r_%
  132. 262363,,r_%,t_%,s_%+x_%,-1,"Pass",0
  133. ,,t_%
  134. r_%!64=q_%:
  135. 262337,,r_%
  136. 262363,,r_%,t_%,s_%+x_%,-1,"Save",0
  137. ,,t_%:r_%!64=q_%:
  138. 262337,,r_%
  139. 262362:
  140. D`(r_%):E`$="<DMen$Dir>.Resources.Messages":
  141. 267520,,E`$
  142. ,,p_%;F`%
  143. 0,"Fatal error during initialisation: Unable to access message file!"
  144. 30,6,,,20+
  145. ,,a_%:$(a_%+16)=E`$:h_%=
  146. w_(p_%):
  147. 267521,a_%,a_%+16,h_%:G`%=
  148. :H`%=0:I`%=0:J`%=
  149. :f_%=
  150. :O_%=
  151. :K`%=0:K_%=0:J_%=
  152. :Z_%=
  153. :L`%=0:e_%=`_%:M`%=0:N`%=-1:O`%=0:P`%=
  154. :Q`%=
  155. w_(1024)
  156. Q`%=-1
  157. 0,"Fatal error during initialisation: Unable to start due to shortage of memory!"
  158. R`% 14:!R`%=%111:$(R`%+4)="1234"+
  159. S`:O`%=(!R`%>>4)
  160. (!R`%
  161. 1<<6)>0 P`%=
  162. xT`%=
  163. w_(134):!T`%=X_%:T`%!4=0:
  164. 262350,,T`%:
  165. 262340,,T`%:T`%!40=X_%:
  166. 262348,,T`%+40:
  167. V`(z_%,3,A_$,0):
  168. T_(w%,i%,k%,x%,y%):
  169. S_(b_%,0,4,0,0)
  170. 262364,k%
  171. W`:!G_%=-1:G_%!4=0:G_%!8=-16:G_%!12=68:G_%!16=90:G_%!20=&1700301A:$(G_%+24)="!deskmen":
  172. 262338,,G_%
  173. Y`$:Y`$=
  174. Z`("BM00"):D_%=
  175. w_(28+(24*5)):
  176. D_%=-1
  177. b`("ER01",
  178. Z`("ibmenu"))):
  179. $D_%=Y`$:c`%=(
  180. Y`$-1)*16:D_%?12=7:D_%?13=2:D_%?14=7:D_%?15=0:D_%!20=44:D_%!24=0:
  181. Z`("BM01"),2,1,D_%,z_%):
  182. Z`("BM02"),0,2,D_%,-1):
  183. Z`("BM03"),0,3,D_%,-1):
  184. Z`("BM04"),2,4,D_%,C`%):
  185. Z`("BM05"),&80,5,D_%,-1)
  186. D_%!16=c`%:
  187. S_(w%,i%,b%,x%,y%):
  188. J_% K_%=0:
  189. L_(0):
  190. M_(-2,N_%,1)
  191. 262356,,D_%,x%-64,96+(44*5)+(24*2):f`%=D_%
  192. h`(b_%):
  193. 1:!G_%=b_%:
  194. 5,6:k`%=
  195. :!G_%=w%:G_%!4=1:
  196. 262352,,G_%
  197. -1:!G_%=b_%:G_%!4=1:
  198. 262352,,G_%
  199. 1:K_%=K`%:
  200. L_(K_%)
  201. 2:e`%=
  202. %10)>0
  203. l` e`%=
  204. 272002,0
  205. 3:e`%=
  206. l` e`%=
  207. Y_(-1,-1):!G_%=W_%:
  208. m`(i%)
  209. :!G_%=w%:G_%!4=1:
  210. 262352,,G_%
  211. n`%,o`%,p`%:o`%=5:n`%=0:
  212. q`(b_%,o`%)
  213. n`%=o`%
  214. o`%+=1:
  215. n`%>0
  216. o`%=7:
  217. r`(b_%,5,
  218. ):p`%=`_%
  219. 5:p`%=`_%
  220. 6:p`%=A`%
  221. e_%=p`%
  222. dB!G_%=e_%:
  223. 262342,,G_%:e_%=p`%:
  224. f_% !G_%=b_%:
  225. 262347,,G_%:
  226. t_%,s`%:f_%=
  227. :u_%=G_%!4:v_%=G_%!16:t_%=G_%+32:!t_%=e_%:
  228. 262347,,t_%:s`%=t_%!8-t_%!16:u_%+=284:v_%-=20:t_%!4=u_%:t_%!16=v_%:t_%!8=v_%-s`%:t_%!28=G_%!28:
  229. 262341,,t_%:
  230. 262347,,t_%:s`%=t_%!8-t_%!16:t_%!4=u_%:t_%!16=v_%:t_%!8=v_%-s`%:t_%!28=G_%!28:
  231. 262341,,t_%:J`%=
  232. :G_%!28=e_%:
  233. 262341,,G_%:
  234. t_%,s`%:u_%=G_%!4:v_%=G_%!16:t_%=G_%+32:!t_%=X_%:
  235. 262347,,t_%:s`%=t_%!8-t_%!16:u_%+=22:v_%-=14:t_%!4=u_%:t_%!16=v_%:t_%!8=v_%-s`%:t_%!28=-1:t_%!28=G_%!28:
  236. 262341,,t_%:G_%!28=X_%:
  237. 262341,,G_%:
  238. t`%,u`%,v`$,w`$:
  239. V`(B`%,1,"",0):
  240. h`(B`%):
  241. 262354,B`%,1,,,-1,-1:
  242. Y_(B`%,-1):t`%=
  243. 262343,,G_%
  244. G_%!16=2
  245. G_%!24=&D
  246. 17,18:
  247. G_%!16=0 Z_%=
  248. :t`%=
  249. :!G_%=B`%:
  250. 262342,,G_%:u`%=
  251. :v`$=
  252. x`(B`%,1):w`$=
  253. m_(R`%+4):
  254. P`% v`$=
  255. y`(v`$):w`$=
  256. y`(w`$)
  257. v`$=w`$
  258. Z`("incorrect"))
  259. Y_(W_%,-1):=u`%
  260. t_%,u`%:t_%=4:
  261. 3:u`%=
  262. (!R`%
  263. 1<<x%)u`%=
  264. r`(`_%,x%,u`%):
  265. 2:u`%=
  266. (!R`%
  267. 1<<t_%)u`%=
  268. r`(A`%,x%,u`%):t_%+=1:
  269. V`(A`%,4,
  270. m_(R`%+4),-1):
  271. t_%,e`%:t_%=0:
  272. 3:!R`%=!R`%
  273. (1<<t_%):
  274. q`(`_%,x%)!R`%=!R`%
  275. 1<<t_%
  276. Ct_%+=1:
  277. 2:!R`%=!R`%
  278. 1<<t_%:
  279. q`(A`%,x%)!R`%=!R`%
  280. 1<<t_%
  281. Et_%+=1:
  282. :$(R`%+4)=
  283. x`(A`%,4):
  284. 262351,,G_%:
  285. G_%!8<>1 !G_%=b_%:
  286. 0O`%=(!R`%>>4)
  287. (!R`%
  288. 1<<6)>0 P`%=
  289. R`$,t_%,z`%:z`%=14:
  290. z`%:R`%?x%=R`%?x%
  291. :R`$="<DMen$Options>.DMenOpts":
  292. 131080,10,R`$,&FFD,,R`%,R`%+z`%
  293. t_%;F`%:
  294. _`("ER02",
  295. m_(t_%+4),
  296. Z`("saveopts")))
  297. z`%:R`%?x%=R`%?x%
  298. R`$,t_%,z`%:z`%=14:R`$="<DMen$Options>.DMenOpts":
  299. 131080,17,R`$
  300. t_%,,,,``%;F`%:
  301. t_%=0
  302. ``%<>z`%
  303. 131080,16,R`$,R`%,0
  304. t_%;F`%:
  305. _`("ER02",
  306. m_(t_%+4),
  307. Z`("loadopts")))
  308. z`%:R`%?x%=R`%?x%
  309. V_(j_%,Aa%,Ba%,``%):
  310. 0:Z_%=
  311. G_%!40
  312. &FFF:
  313. m_(G_%+44),"<DMen$Menu>"):
  314. I_("<DMen$Menu>")
  315. &317:
  316. m_(G_%+44))
  317. &400C2:
  318. H`%=G_%!4:
  319. I`%=1
  320. 7!G_%=20:G_%!12=0:G_%!16=0:
  321. 262375,17,G_%,H`%:H`%=0
  322. I`%=0
  323. Y_(-1,-1):!G_%=W_%:
  324. R_:O_%=
  325. (!R`%
  326. 1)=0 Z_%=
  327. &400C3:
  328. H`%=G_%!4
  329. L_(K_%)
  330. Da(w%,i%):
  331. i%=N_%
  332. Ea("iconbar")
  333. Ea("infowindow"+
  334. Ea("main"+
  335. Ea("stat"+
  336. h`(b_%):
  337. 4:Z_%=
  338. Ca(Ha$,Ia$):
  339. 263872:
  340. Ja%,Ka$,La%,m%,Ma$,Na%,Oa%,Pa%,Qa%,Ra%,Ka%,Ma%,K_%,Sa%,p_%,Ta%,Ua%,Va%,Wa%,Xa%:
  341. 39,Ia$,G_%,256
  342. Ja%:Ia$=
  343. m_(G_%):
  344. 131085,&40,Ha$
  345. Ja%;F`%:
  346. _`("ER02",
  347. m_(Ja%+4),
  348. Z`("readfile")))
  349. :/La%=0:m%=0:
  350. #Ja%:Ka$=
  351. #Ja%:
  352. Ka$,1)="|"
  353. Ka$,1)="{" m%+=1
  354. Ka$,1)="}"
  355. Z`("ER04")):
  356. #Ja%:
  357. Ka$,1)="}" m%-=1
  358. _`("ER03",
  359. Z`("toomany"))):
  360. #Ja%:
  361. _`("ER03",
  362. (m%)),
  363. Z`("toofew"))):
  364. #Ja%:
  365. 131080,6,Ia$
  366. t_%;F`%:
  367. _`("ER02",
  368. m_(t_%+4),
  369. Z`("delmenu"))):
  370. #Ja%:
  371. 131085,&80,Ia$
  372. Ya%;F`%:
  373. _`("ER02",
  374. m_(K_%+4),
  375. Z`("makemenu"))):
  376. #Ja%:
  377. #Ya%:
  378. Oa%=-1:Qa%=-1:Pa%=-1:Ua%=0:Ta%=0:Va%=0:Ra%=0:Ma%=0:Ka%=0:K_%=-1:Za%=-1:
  379. #Ja%=0:Ka$=
  380. #Ja%:
  381. Ka$,1)="|":Ka$=
  382. #Ja%:
  383. Ka$,1)<>"{"
  384. Z`("ER05")):
  385. #Ja%:
  386. #Ya%:
  387. #Ja%:
  388. Ka$,1)
  389. K_%>=0
  390. b`("ER09",
  391. Ka$-1))):
  392. #Ja%:
  393. #Ya%:
  394. 131080,6,Ia$
  395. aa(Ka$):Ka$=
  396. "|":Ka$=
  397. "}":K_%=
  398. ba:Ka$=
  399. :Ma$=
  400. #Ja%:Ka$=
  401. Ka$,34):Pa%=
  402. Ka$+6,Pa%):?(Pa%+Ka%)=K_%:
  403. Ma$,1)
  404. "{":Sa%=0
  405. "+":Sa%=2
  406. "-":Sa%=3
  407. :Sa%=1
  408. :?(Pa%+Ka%+1)=Sa%:$(Pa%+Ka%+6)=Ka$+
  409. 0:!(Pa%+Ka%+2)=Za%+1:
  410. aa(Ma$)
  411. 1,2,3:
  412. Sa%>1 Ma$=
  413. Ma$,2)
  414. S!(Pa%+Ka%+2)=Ma%:Qa%=
  415. Ma$+1,Qa%):$(Qa%+Ma%)=Ma$+
  416. &A:Ma%+=
  417. Ma$+2:Va%+=
  418. Ma$+2
  419. :Ka%+=
  420. Ka$+7:Ta%+=
  421. Ka$+7:Ka$=
  422. #Ja%:
  423. #Ya%=8:!G_%=Ua%:G_%!4=Ta%:G_%!8=Va%:
  424. 12,2,Ya%,G_%,12:
  425. 12,2,Ya%,Oa%,Ua%:!G_%=
  426. #Ya%:
  427. 12,2,Ya%,Pa%,Ta%:G_%!4=
  428. #Ya%:
  429. 12,2,Ya%,Qa%,Va%:
  430. 12,1,Ya%,G_%,8,0:
  431. #Ya%:
  432. 8,17,Ia$
  433. ,,,,``%:K_%=
  434. w_(``%+8):!K_%=&4D454E55
  435. 8,16,Ia$,K_%+8,0:
  436. 91,,K_%+8,K_%+8+``%,1
  437. Na%:K_%!4=Na%:
  438. ``%:K_%?(x%+8)=K_%?(x%+8)
  439. 8,10,Ia$,&317,,K_%,K_%+(8+``%):
  440. D`(K_%):
  441. D`(N`%):
  442. 263873:
  443. Ia%:Wa%-=1:Ia%=N`%!Wa%:
  444. Wa%<0
  445. Z`("ER10")):
  446. da:=N`%!(Wa%-1)
  447. ea(fa%):N`%=
  448. ca(1,N`%):Wa%+=1:N`%!Wa%=fa%:K_%=fa%:
  449. aa(Ka$):
  450. a$,ga%,K`%:Za%+=1:
  451. ea(Za%):
  452. Ka$,1)="{" Ka$=
  453. Ka$,2)
  454. ;Oa%=
  455. Ka$+2,Oa%):?(Oa%+Ra%)=Za%:
  456. Za%>0 K`%=
  457. K`%=0
  458. C?(Oa%+Ra%+1)=K`%:$(Oa%+Ra%+2)=Ka$+
  459. &A:Ra%+=
  460. Ka$+3:Ua%+=
  461. Ka$+3:
  462. I_(Ha$):
  463. ha%,ia%,ja%,ka%:
  464. 8,17,Ha$
  465. t_%,,,,``%:
  466. t_%<>1
  467. ``%<=0
  468. RJa%=
  469. (Ha$):
  470. 3:G_%?x%=
  471. #Ja%:
  472. !G_%<>&4D454E55
  473. b`("ER06",Ha$)):
  474. #Ja%:
  475. 3:G_%?x%=
  476. #Ja%:
  477. :K_%=
  478. w_(``%-8):
  479. 12,4,Ja%,K_%,``%-8:
  480. #Ja%:
  481. ``%-8:K_%?(x%)=K_%?(x%)
  482. 91,0,K_%,K_%+``%-8,1
  483. Na%<>!G_%
  484. b`("ER07",Ha$)):
  485. ja%=!K_%:ka%=K_%!4:la%=K_%!8:ma%=K_%!12:na%=K_%!16:Oa%=
  486. w_(la%):Pa%=
  487. w_(ma%):Qa%=
  488. w_(na%):
  489. 262385,i_%,K_%+20,i_%,Oa%,la%:
  490. 262385,i_%,K_%+ja%,i_%,Pa%,ma%:
  491. 262385,i_%,K_%+ka%,i_%,Qa%,na%:
  492. D`(K_%):J_%=
  493. L_(K_%):
  494. 263872:
  495. 262354,-1,-1:
  496. t_%,o_%,oa$,o`%,y%,pa%,t%:T`%!4=X_%:y%=T`%!12-T`%!20:o`%=0:pa%=0:t_%=Oa%:o_%=
  497. t_%-Oa%<la%
  498. o_%:m%=?t_%:K`%=t_%?1:t_%+=2:oa$=
  499. qa(t_%):t_%+=1:
  500. m%=K_% o_%=
  501. Z`("ER08")):
  502. !G_%=W_%:
  503. 262348,,G_%:$(G_%!76)=
  504. oa$,47):!G_%=W_%:G_%!36=W_%:
  505. 262368,,G_%+36:!G_%=W_%:
  506. 262347,,G_%:
  507. 262353,-1,G_%!4,G_%!16,G_%!48,G_%!52:!G_%=X_%:
  508. 262339,,G_%:
  509. 262337,,T`%+44
  510. X_%:T`%!4=X_%:t_%=Pa%:
  511. t_%-Pa%<ma%:m%=?t_%
  512. +8t%=t_%?1:t_%+=6:pa%=t_%:oa$=
  513. qa(t_%):t_%+=1:
  514. m%=K_%
  515. T`%!20=y%*o`%:T`%!12=y%*(o`%+1):T`%!28=pa%:pa%+=
  516. oa$+1:
  517. 262338,o`%,T`%+4:!G_%=X_%:G_%!4=o`%:G_%!8=%10<<28:G_%!12=%11<<28:
  518. 262349,,G_%
  519. o`%+=1
  520. K_%=0
  521. M_(W_%,1,1)
  522. M_(W_%,1,0)
  523. !G_%=W_%:G_%!4=1:
  524. 262350,,G_%:G_%!4=W_%:
  525. 262353,W_%,G_%!8,G_%!12,G_%!16,G_%!20:!G_%=T`%!84:G_%!4=T`%!96+(o`%*y%):G_%!8=T`%!96:G_%!12=T`%!96:
  526. 262359,X_%,G_%:
  527. h`(W_%):
  528. d_:O_%=
  529. Y_(W_%,-1):
  530. 263873:
  531. m`(ra%):
  532. t_%,Ka%,p%,o_%:t_%=Pa%:Ka%=-1:o_%=
  533. t_%-Pa%<ma%
  534. o_%:m%=?t_%:t%=t_%?1:p%=t_%!2:t_%+=6:oa$=
  535. qa(t_%):t_%+=1:
  536. m%=K_% Ka%+=1
  537. Ka%=ra%
  538. :I`%=0:
  539. 0:K_%=p%:
  540. L_(p%)
  541. m_(Qa%+p%))
  542. 2:I`%=1:
  543. m_(Qa%+p%))
  544. 3:I`%=2:
  545. m_(Qa%+p%))
  546. sa(Ha$):
  547. ta%,Ja%,t_%,ua%,va%:
  548. (!R`%
  549. %10)>0
  550. (!R`%
  551. 1)>0 ta%=
  552. I`%=0
  553. Ha$,1)="*"
  554. v?$(G_%)="Deskmen: "+Ha$:
  555. 262383,G_%:
  556. 131077,Ha$:
  557. 262383,0
  558. 131080,23,Ha$
  559. ua%,,,,,,va%;F`%:
  560. b`("ER12",
  561. b`("error",
  562. m_(ua%+4)))):
  563. ua%=0
  564. b`("ER12","notfnd")):
  565. ua%=2
  566. va%=&1000
  567. b`("ER12","dirfnd")):
  568. 39,"<DMen$Dir>",G_%,256:
  569. 8,8,"<DMen$Scrap>.DeskMen",0:
  570. 131077,"Wipe <DMen$Scrap>.DeskMen.Swapfile F~C~V":
  571. 13,&80,"<DMen$Scrap>.DeskMen.Swapfile"
  572. #Ja%,"| DeskMen 2.0":
  573. #Ja%,"|"
  574. #Ja%,"| This is the swap file for the DeskMen applicaition":
  575. #Ja%,"| It allows the main application to be removed from memory":
  576. #Ja%,"| This file should be open.":
  577. #Ja%,"":
  578. #Ja%,"/"+Ha$:
  579. #Ja%,"":
  580. #Ja%,"/"+
  581. m_(G_%)+".!Boot"
  582. #Ja%,"WimpSlot -min 64k -max 64k":
  583. #Ja%,"/"+
  584. m_(G_%)+".!RunImage":
  585. 13,0,Ja%:
  586. 8,18,"<DMen$Scrap>.DeskMen.SwapFile",&FEB:
  587. Y_(-1,-1):O_%=
  588. 5,"Filer_Run <DMen$Scrap>.DeskMen.SwapFile":Z_%=
  589. Ha$,1)="*"
  590. 131077,"WimpTask "+Ha$
  591. :G`%=
  592. 131077,"Filer_Run "+Ha$
  593. t_%;F`%:
  594. b`("ER11",
  595. m_(t_%+4))):G`%=
  596. Ha$,1)="*"
  597. 131077,"WimpTask "+Ha$
  598. 131077,"WimpTask "+Ha$
  599. t_%;F`%:
  600. b`("ER11",
  601. m_(t_%+4)))
  602. k_:wa%=
  603. xa%:ya%=wa%-&8000:
  604. 262380,ya%+xa%,-1
  605. ya%:za%=ya%+&8000:
  606. za%<=wa%
  607. 0,"Fatal error during initialisation: Insufficiant memory for heap. Free some memory then try again!"
  608. 29,0,wa%,,za%-wa%:
  609. w_(p_%):
  610. t_%,_a%,`a%,p%:t_%=0:
  611. 29,1,wa%
  612. ,,_a%:p_%=(p_%
  613. 8)*8+8:
  614. _a%<=p_%+8
  615. jp%=1+(p_%
  616. xa%):
  617. 262380,ya%+(p%*xa%),-1
  618. ya%:`a%=za%:za%=ya%+&8000:
  619. 29,5,wa%,,za%-`a%:
  620. 29,1,wa%
  621. ,,_a%
  622. _a%<p_% t_%=-1
  623. t_%<>-1
  624. 29,2,wa%,,p_%
  625. ,,t_%
  626. ca(p_%,Ab%):
  627. t_%,_a%,`a%,p%:
  628. Ab%=-1
  629. w_(p_%)
  630. :t_%=0:
  631. 29,1,wa%
  632. ,,_a%:p_%=(p_%
  633. 8)*8+8:
  634. _a%<=p_%
  635. yp%=1+(p_%
  636. xa%):
  637. 262380,za%+(p%*xa%),-1
  638. ya%:`a%=za%:za%=ya%+&8000:
  639. 29,5,wa%,,p%*xa%:
  640. 29,1,wa%
  641. ,,_a%:
  642. _a%<p_% t_%=-1
  643. t_%<>-1
  644. 131101,4,wa%,Ab%,p_%
  645. ,,t_%;F`%
  646. 1 t_%=-1
  647. :=t_%
  648. t_%):
  649. _a%,Bb%:
  650. t_%>-1
  651. 29,3,wa%,t_%:
  652. 29,1,wa%
  653. ,,_a%:
  654. _a%>xa%
  655. "=Bb%=0:F`%=0:
  656. 131101,5,wa%,,-xa%
  657. ;F`%:
  658. 1)=0 Bb%+=1
  659. 262380,ya%-(Bb%*xa%),-1
  660. ya%:za%=ya%+&8000
  661. 29,5,wa%,,(za%-wa%)-wa%!12
  662. :t_%=-1:
  663. Z`(Cb$):=
  664. _`(Cb$,"","")
  665. b`(Cb$,Db$):=
  666. _`(Cb$,Db$,"")
  667. _`(Cb$,Db$,Eb$):Cb$=Cb$+":"+Cb$:
  668. 267522,a_%,Cb$,h_%,256,Db$,Eb$
  669. ,,Ia$:=Ia$
  670. a`(oa$):
  671. $+" at line "+
  672. 39,oa$,G_%,256:oa$=
  673. m_(G_%):
  674. 6,21,0:
  675. 263874:
  676. M_(y_%,4,1):!G_%=y_%:G_%!4=3:
  677. 262350,,G_%:$(G_%!32)="sprogram":
  678. V`(y_%,0,oa$,0):!G_%=y_%:
  679. 262348,,G_%:$(G_%!76)=
  680. Z`("message?"):
  681. h`(y_%):
  682. Y_(y_%,-1):
  683. 262355,,g_%
  684. 262354,-1,-1:Fb%=
  685. 262343,0,G_%
  686. 262341,,G_%
  687. 262342,,G_%
  688. G_%!16=1 Fb%=
  689. G_%!24=&0D Fb%=
  690. Fb%:!G_%=y_%:
  691. 262342,,G_%:
  692. 393426,!g_%,g_%!4,g_%!8,g_%!12,g_%!16,g_%!20:
  693. M_(y_%,4,0):
  694. Y_(-1,-1):
  695. Gb(oa$):
  696. 6,21,0:
  697. 263874:
  698. h`(y_%):!G_%=y_%:G_%!4=3:
  699. 262350,,G_%:$(G_%!32)="serror":
  700. V`(y_%,0,oa$,0):!G_%=y_%:
  701. 262348,,G_%:$(G_%!76)=
  702. Z`("error?"):
  703. Y_(y_%,-1):
  704. 262355,,g_%:
  705. 262354,-1,-1:Fb%=-1:
  706. 262343,0,G_%
  707. 262341,,G_%
  708. 262342,,G_%
  709. G_%!16=1
  710. G_%!16=4 Fb%=G_%!16
  711. G_%!24=&0D Fb%=1
  712. G_%!24=&1B Fb%=4
  713. Fb%>-1:!G_%=y_%:
  714. 262342,,G_%:
  715. 393426,!g_%,g_%!4,g_%!8,g_%!12,g_%!16,g_%!20:
  716. Y_(-1,-1):
  717. Fb%=4 Fb%=0
  718. $+" at line "+
  719. "Hb%=L`%:
  720. L`%-Hb%<200
  721. Gb("Possible fatal error: "+
  722. $+","+
  723. +". The program may be stuck in a error loop, CANCEL quits immeadiatly (Not cleanly!) CONTINUE continues"):
  724. Ib%=0
  725. 262365:
  726. :L`%=0
  727. :Ib%=
  728. _`("ER00",
  729. 0:Z_%=
  730. Jb(oa$):
  731. $+" at line "+
  732. 6,21,0:
  733. 263874:
  734. h`(y_%):!G_%=y_%:G_%!4=3:
  735. 262350,,G_%:$(G_%!32)="squestion":
  736. V`(y_%,0,oa$,0):!G_%=y_%:
  737. 262348,,G_%:$(G_%!76)=
  738. Z`("query?"):
  739. Y_(y_%,-1):
  740. 262355,,g_%:
  741. 262354,-1,-1:Fb%=-1:
  742. 262343,0,G_%
  743. 262341,,G_%
  744. 262342,,G_%
  745. G_%!16=1
  746. G_%!16=4 Fb%=G_%!16
  747. G_%!24=&0D Fb%=1
  748. G_%!24=&1B Fb%=4
  749. Fb%>-1:!G_%=y_%:
  750. 262342,,G_%:
  751. 262343,%1110000110010111000,G_%
  752. j_%=3
  753. 262342,,G_%
  754. j_%=0:
  755. 262354,!g_%,g_%!4,g_%!8,g_%!12,g_%!16,g_%!20:
  756. Y_(-1,-1):
  757. Fb%=4 Fb%=
  758. :=Fb%
  759. h`(Kb%):
  760. x%,y%,Lb%,Mb%,Nb%,Ob%,w%,h%:G_%!0=4:G_%!4=5:G_%!8=11:G_%!12=12:G_%!16=-1:
  761. 49,G_%,G_%+20:Nb%=1<<(G_%!20):Ob%=1<<(G_%!24):Lb%=(G_%!28+1)*Nb%:Mb%=(G_%!32+1)*Ob%:G_%!0=Kb%:
  762. 262347,,G_%:w%=G_%!12-G_%!4:h%=G_%!16-G_%!8
  763. ex%=(Lb%-w%)/2:y%=(Mb%-h%)/2:G_%!4=x%:G_%!8=y%:G_%!12=x%+w%:G_%!16=y%+h%:G_%!28=-1:
  764. 262341,,G_%:
  765. V`(w%,i%,t$,d%):
  766. Pb%,G_%:G_%=
  767. w_(40):
  768. G_%=-1
  769. b`("ER01","update")):Z_%=
  770. i!G_%=w%:G_%!4=i%:
  771. 262350,,G_%:$(G_%!28)=t$:G_%!4=G_%!8:G_%!8=G_%!12:G_%!12=G_%!16:G_%!16=G_%!20:
  772. )G_%!4+=4:G_%!8+=4:G_%!12-=4:G_%!16-=4
  773. 262345,,G_%
  774. 262346,,G_%
  775. D`(G_%):
  776. Y_(w%,i%):
  777. x%,y%:
  778. w%<>-1
  779. !G_%=w%:
  780. i%=-1
  781. 262347,,G_%:
  782. G_%!4,G_%!8,G_%!12-G_%!4,G_%!16-G_%!8
  783. 262347,,G_%:x%=G_%!4:y%=G_%!16:G_%!4=i%:
  784. 262350,,G_%:
  785. G_%!8+x%,y%+G_%!12,G_%!16-G_%!8,G_%!20-G_%!12
  786. 5,"Pointer"
  787. M_(w%,i%,Qb%):!G_%=w%:G_%!4=i%:G_%!8=0<<23:G_%!12=1<<23:
  788. Qb%=0
  789. 262349,,G_%
  790. 262340,,G_%
  791. d`(ra$,Rb%,ra%,K_%,Sb%):
  792. ra$>12
  793. _`("ER03",ra$)
  794. ra$+1)*16>c`%
  795. c`%=(
  796. ra$+1)*16
  797. 7fP%=K_%+28+(24*(ra%-1)):
  798. 21:[:OPT 0:EQUD Rb%:EQUD Sb%:EQUD&7000021:EQUS ra$+
  799. ra$-1),
  800. 0):]:
  801. t_%,ua%,Ha$:
  802. 262356,-1:t_%=0:ua%=
  803. 272001,t_%,G_%,16
  804. m_(G_%!4)="StrongHelp" ua%=
  805. t_%<0
  806. Q}ua%=!G_%:!G_%=256:G_%!12=0:G_%!16=&43B00:$(G_%+20)="Help_Word <DMen$Dir>.Resources.RTracker !Root"+
  807. 262375,17,G_%,ua%
  808. 131107,"StrongHelp$Dir",G_%,-1
  809. ,,ua%:
  810. ua%<0
  811. 262366,"/<StrongHelp$Dir>.!Run":t%=
  812. :ua%=
  813. 262343,,G_%
  814. j_%=0:Ub%=
  815. Tb:Ub%=
  816. 8,17,"<DMen$Dir>.!StrongHlp"
  817. ua%=2
  818. 262366,"/<DMen$Dir>.!StrongHlp.!Run":t%=
  819. :ua%=
  820. 262343,,G_%
  821. j_%=0:Ub%=
  822. Tb:Ub%=
  823. 262366,"/<DMen$Dir>.!Help"
  824. t_%):
  825. ?t_%>25
  826. Vb$<255:Vb$+=
  827. (?t_%):t_%+=1:
  828. :=Vb$
  829. m_(t_%):
  830. ?t_%>31
  831. Vb$<255:Vb$+=
  832. (?t_%):t_%+=1:
  833. :=Vb$
  834. r`(w%,i%,u`%):
  835. u`%=1
  836. u`%=0
  837. ?!G_%=w%:G_%!4=i%:G_%!8=u`%<<21:G_%!12=1<<21:
  838. 262349,,G_%:
  839. q`(w%,i%):
  840. Qb%:!G_%=w%:G_%!4=i%:
  841. 262350,,G_%:
  842. (G_%!24
  843. (1<<21))=0 Qb%=
  844. Ja%,Ha$:Ja%=G_%!20:
  845. 35,"RTrack$Dir",G_%,255,,3
  846. ,,t_%:G_%?t_%=0:Ha$=
  847. m_(G_%):Ha$="Run "+Ha$+".!Run "+Xb$:$(G_%)=Ha$+
  848. 12,2,Ja%,G_%,
  849. Ha$+1:
  850. C_(K_%,Ka%,e`%):t_%=K_%+(36+(Ka%*24)):!t_%=!t_%
  851. 1<<22:
  852. e`% !t_%=!t_%
  853. 1<<22
  854. Yb(Zb$):
  855. 131129,,Zb$
  856. ;F`%:=((F`%
  857. 1)=0)
  858. ab(J_%,Ka%):=
  859. m_(J_%+40+(24*Ka%))
  860. x`(w%,i%):
  861. t_%:t_%=G_%+48:!t_%=w%:t_%!4=i%:
  862. 262350,,t_%:=
  863. m_(t_%!28)
  864. Ea(oa$):
  865. t_%:bb$=oa$:t_%=G_%!4:
  866. oa$="barmenu3"
  867. oa$="mainmenu0"
  868. oa$="mainmenu3"
  869. cb% oa$+="a"
  870. oa$+="b"
  871. :oa$=
  872. Z`(oa$):!G_%=256:G_%!12=G_%!8:G_%!16=&503:$(G_%+20)=oa$:
  873. 262375,17,G_%,t_%:
  874. E_(Ha$):
  875. 8,17,Ha$
  876. o_%=0=
  877. db(Ha$):
  878. 8,13,Ha$
  879. ,,,,p_%:=p_%
  880. x%,y%:!G_%=C`%:
  881. 262347,,G_%:x%=G_%!4-G_%!20:y%=G_%!16-G_%!24:G_%!4=1:
  882. 262350,,G_%:G_%!4=5:G_%!8=x%+G_%!8:G_%!12=y%+G_%!12:G_%!16=x%+G_%!16:G_%!20=y%+G_%!20:G_%!24=0:G_%!28=0:G_%!32=&7FFFFFFF:G_%!36=&7FFFFFFF:
  883. 271360,197,1,"File_157",G_%+8
  884. 262352,,G_%
  885. Ha$,hb$,t_%:
  886. 402433
  887. 262351,,G_%:G_%!20=G_%!12:G_%!24=G_%!16:G_%!28=!G_%:G_%!32=G_%!4:G_%!36=18:G_%!40=&157:!G_%=64:G_%!12=0:G_%!16=1:Ha$=
  888. x`(C`%,2):t_%=
  889. Ha$,t_%,1)<>"."
  890. t_%>0:hb$=
  891. Ha$,t_%,1)+hb$:t_%-=1:
  892. :$(G_%+44)=hb$
  893. 262375,18,G_%,G_%!20,G_%!24:ib%=0:
  894. jb(Ha$):
  895. Ha$=0
  896. Z`("ER06")):
  897. Ha$,".")=0
  898. 131107,
  899. Ha$,2)),G_%,-1
  900. ,,ua%:
  901. ua%>=0
  902. Z`("ER07")):
  903. 131080,10,Ha$,&157,,kb%,kb%+lb%
  904. t_%;F`%:
  905. _`("ER02",
  906. m_(t_%+4),
  907. Z`("savelist"))):
  908. Ha$="<Wimp$Scrap>"
  909. Ha$="<DMen$Scrap>"
  910. \!G_%=256:G_%!12=G_%!8:G_%!16=3:G_%!36=-1:G_%!40=&157:$(G_%+44)=Ha$:
  911. 262375,18,G_%,G_%!4
  912. nb%:nb%=ib%:
  913. ib%+G_%!24>lb%
  914. ib%=lb%
  915. ib%+=G_%!24
  916. 262385,i_%,kb%+nb%,G_%!4,G_%!20,ib%-nb%:G_%!12=G_%!8:G_%!16=7:G_%!24=ib%-nb%:
  917. 262375,18,G_%,G_%!4:
  918. D`(kb%)
  919.  kb%=
  920. w_(1024):lb%=0:
  921. kb%=-1
  922. Ucb%=
  923. pb(-1,-1):
  924. r`(Fa%,22,cb%):
  925. C_(D_%,3,cb%):
  926. C_(qb%,3,cb%):
  927. C_(qb%,0,cb%):
  928. :G_%!12=G_%!8:G_%!16=6:G_%!20=kb%:G_%!24=1024:!G_%=28:
  929. 262375,18,G_%,G_%!4:ib%=-1
  930. sb:ib%=0:lb%+=G_%!24:
  931. G_%!24<1024
  932. :kb%=
  933. ca(1024,kb%):
  934. kb%=-1
  935. 0Qcb%=
  936. pb(-1,-1):
  937. r`(Fa%,22,cb%):
  938. C_(D_%,3,cb%):
  939. C_(qb%,3,cb%):
  940. C_(qb%,0,cb%)
  941. :!G_%=28:G_%!12=G_%!8:G_%!16=6:G_%!20=kb%+lb%:G_%!24=1024:
  942. 262375,18,G_%,G_%!4
  943. t_%,Ha$:
  944. ib%=0
  945. :tb%=1:t_%=kb%:ub%=-1:vb$=
  946. qa(t_%):
  947. t_%<kb%+lb%:Ha$=
  948. qa(t_%):t_%+=1:ub%+=1:
  949. :cb%=
  950. C_(D_%,3,cb%):
  951. C_(qb%,3,cb%):
  952. pb(tb%,ub%):
  953. C_(qb%,0,cb%):
  954. r`(Fa%,22,cb%):
  955. G_%!16=6
  956. Vg!G_%=256:G_%!12=G_%!8:G_%!16=2:G_%!36=-1:G_%!40=&157:$(G_%+44)="<DMen$Scrap>":
  957. 262375,17,G_%,G_%!4
  958. y`(t$):
  959. x%,l$,a%:
  960. t$:a%=
  961. t$,x%,1)):
  962. a%>96
  963. a%<123 a%=a%
  964. %11011111
  965. xb(w%,i%,u`%):
  966. u`% u`%=1
  967. u`%=0
  968. k?!G_%=w%:G_%!4=i%:G_%!8=u`%<<22:G_%!12=1<<22:
  969. 262349,,G_%:
  970. F_(hb$):
  971. ua%,t_%:t_%=0:ua%=
  972. 272001,t_%,G_%,16
  973. m_(G_%!4)=hb$ua%=
  974. t_%<0
  975. ua%:=ua%
  976.