home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / meditate / MEditate / !Manual / Lunchtime (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1994-02-07  |  9KB  |  464 lines
  1.  !MEditate Read-only v. 3.31 (c) A.J.Bennett N.Davies 7/2/94
  2. A=3.31:v%=A%:
  3. *playstart
  4.     Cy%=
  5. :*FX200,1
  6. R:Iy%=Z%:
  7. &406c2:
  8. Z("wimppalette "+Z$+".!Magpal"):
  9. 6,113,1:
  10. 46,290,T%,"menuscreen",0,0:
  11. Qy%,Sy%,e%:
  12. e%<>0:
  13. :*playpause
  14. :Cy%=
  15. :*playstart
  16. R:M%=
  17. ("<MagEdit$Dir>.magsystem.MagData"):M$=
  18. #M%:Fy%=
  19. #M%):M$=
  20. #M%:a%=
  21. #M%):M$=
  22. #M%:ey%=
  23. #M%):M$=
  24. #M%:ay%=
  25. #M%):M$=
  26. #M%:Dy%=
  27. #M%):M$=
  28. #M%:X$=
  29. #M%:M$=
  30. #M%:U%=
  31. #M%):M$=
  32. #M%:h%=
  33. #M%):M$=
  34. #M%:X%=
  35. #M%):M$=
  36. #M%:O%=
  37. #M%):M$=
  38. #M%):
  39. S%(y%),A%(y%),M%(y%),Z%(y%):
  40. y%:M$=
  41. #M%:S%(P%)=
  42. #M%):M%(P%)=
  43. #M%):A%(P%)=
  44. #M%):Z%(P%)=
  45. #M%):
  46. *key 1 <253>
  47. ((O%-X%)/32)-1:C_%=
  48. ((h%-U%)/16):
  49. S$(w%*Fy%),Z$(w%*Fy%):Wy%=1:W%=0:
  50. A$(a%),F%(a%*0.8),C%(a%*0.8),P%(a%*0.8),J%(a%*0.8):
  51. W%(a%*0.8):L$="":iy%=0:Uy%=1:wy%=2:py%=4:U_%=5:T_%=7:L_%=8:u%=7:j%=0:S$="":
  52. f%255,vy%1023:
  53. M$(Fy%):
  54. K_%255,A_%255,F$(30)
  55. C$="":
  56. T%ey%:
  57. sy%ay%:
  58. Q%Dy%:!T%=ey%:!sy%=ay%:!Q%=Dy%:Q%!4=0:Q%!8=16:Q%!12=16:g%=0:Yy%=0:d%=
  59. :B$="<MagEdit$Dir>.magsystem":M=(h%+U%)/2:M%=
  60. (B$+".bannerfile"):g%=
  61. 8,255,B$+".bannerfile",T%+4:
  62. C$(g%)
  63. C$(9)
  64. t(T%,g%):
  65. g%:C$(P%)=F$(P%):
  66. :Ly%=256:
  67. n%Ly%:!n%=Ly%:
  68. 8,255,B$+".!pointer",n%+4:
  69. 46,36+256,n%,"ptr_hand",2,0,0,0,0:
  70. e:K%=
  71. 8,5,"<MagEdit$Dir>.articles.check"
  72. :N$="<MagEdit$Dir>.articles.text":Z$="<MagEdit$Dir>.articles.palettes":J$="<MagEdit$Dir>.articles.sprites"
  73. 8,5,"<MagEdit$Dir>.^.articles.check"
  74. :N$="<MagEdit$Dir>.^.articles.text":Z$="<MagEdit$Dir>.^.articles.palettes":J$="<MagEdit$Dir>.^.articles.sprites"
  75. 11,16)"Please Insert a MAGAZINE DISK into drive 0 and press a key":S=
  76. :*MOUNT 0
  77. 8,5,"$.articles.check"
  78.  NK%=
  79. :N$="$.articles.text":Z$="$.articles.palettes":J$="$.articles.sprites"
  80. Z(Z$+"."+X$):
  81. &406c2:
  82. Z("wimppalette "+Z$+".!Magpal"):
  83. Z(Y$):
  84. (Y$):
  85. 23,253,0,0,0,0,0,0,0,0:
  86. 23,254,0,0,0,0,0,0,0,0:
  87. S%,C%,q%:
  88. q%<>0
  89. Qy%,Sy%,e%:
  90. e%=0:
  91. F(G_%,H_%,q%):
  92. &40743,(G_%<<8)+(H_%<<16)+(q%<<24):
  93. S%<h%
  94. S%>U%
  95. C%<O%
  96. C%>X%
  97. S%<A%(1)
  98. S%>S%(1)
  99. C%<Z%(1)
  100. C%>M%(1)
  101. S%<A%(3)
  102. S%>S%(3)
  103. C%<Z%(3)
  104. C%>M%(3)
  105. S%<A%(4)
  106. S%>S%(4)
  107. C%<Z%(4)
  108. C%>M%(4)
  109. S%<A%(5)
  110. S%>S%(5)
  111. C%<Z%(5)
  112. C%>M%(5)
  113. A:Gy%=0:
  114. S%>F%(P%)
  115. S%<P%(P%)
  116. C%>C%(P%)
  117. C%<J%(P%)
  118. Gy%=P%
  119. Gy%<>0
  120. T(Gy%):
  121. W(1):
  122. w("Are You Sure That You Want To Quit? (Y/N)",H$):
  123. H$="yes"
  124. Z("wimppalette "+Z$+".!Palette"):
  125. 46,36+256,n%,"ptr_hand",2,0,0,0,0:*FX25,0
  126. *playpause
  127. &400e3,Iy%:
  128. 24,U%;X%;h%;O%;:
  129. 17:*FX25
  130. &406c2:
  131. "  Error Number ";
  132. ;" at line ";
  133. :*FX25
  134. &406c2:
  135. &406c0:W_%=
  136. :M$()="PAA":M%=
  137. (N$+"."+
  138. M(p%)):
  139. #M%,A:
  140. o("This is file is incompatible with this version of the Editor"):
  141. #M%,G$,C$,m%,S$:
  142. #M%,M$(P%):
  143. #M%,S$(P%):
  144. #M%,Z$(0):
  145. #M%,Z$(P%):
  146. Z$(P%)=""
  147. Z$(P%)=Z$(P%-1)
  148. C$<>""
  149. Z("wimppalette "+Z$+"."+C$)
  150. S$<>""
  151. Z(Z$+"."+S$)
  152. G$<>""
  153. G9M%=
  154. (J$+"."+G$):Yy%=
  155. 8,255,J$+"."+G$,sy%+4
  156. &406c1:
  157. X(o%):=
  158. Z$(o%),3,1))
  159. V(o%):=
  160. Z$(o%),4,1))
  161. T(o%):=
  162. Z$(o%),5)
  163. L(o%):=
  164. Z$(o%),1))
  165. R(o%):=
  166. Z$(o%),2,1))
  167. Z(K$):=
  168. (K$)-
  169. ("A")
  170. H(Jy%):=
  171. M$(Jy%),1))
  172. U(Jy%):=
  173. M$(Jy%),2,1))
  174. P(Jy%):=
  175. M$(Jy%),3,1))
  176. N(Jy%):=
  177. M$(Jy%),4)
  178. V:z%=
  179. ((m%-1)/w%):
  180. (m%-1)/w%<>z%
  181. z%+=1
  182. V:N%=1:
  183. Q(N%):Ky%=
  184. S%,C%,jy%:
  185. jy%<>0
  186. O:S$()="":Z$()="":
  187. S$<>""
  188. Z(Z$+".Large"):S$=""
  189. C$<>""
  190. Z(Z$+".!magpal")
  191. M$()="PAA":Yy%=0:N%=0:
  192. Q(c%):
  193. 46,290,T%,"menuscreen",0,0:d%=
  194. C:l%=
  195. H(c%):q%=
  196. U(c%):
  197. q%<>l%
  198. 0,128+q%:
  199. P(c%)>0
  200. N(c%))
  201. _AL%=(c%-1)*w%+1:
  202. Y%=O%-16
  203. O%-32*w%
  204. q:L%=L%+1:
  205. q:By%=U%+8+(
  206. L(L%))*16:xy%=
  207. R(L%)*16:j%=
  208. V(L%):u%=
  209. X(L%):I$=
  210. T(L%):
  211. j%<>q%
  212. By%-8,Y%-31,xy%+8,31
  213. u%<>l%
  214. I$="C"
  215. By%+xy%/2-(
  216. (S$(L%))-1)*8,Y%
  217. By%+4,Y%
  218. ;S$(L%):
  219. k(F$):
  220. P(c%):P$=
  221. F$,"|")-1):F$=
  222. F$,"|")+1):
  223. U(sy%,
  224. P$,11),U%+
  225. P$,5)),X%+
  226. P$,6,5))):
  227. S%<A%(2)
  228. S%>S%(2)
  229. C%<Z%(2)
  230. C%>M%(2)
  231. S%<A%(1)
  232. S%>S%(1)
  233. C%<Z%(1)
  234. C%>M%(1)
  235. S%<A%(3)
  236. S%>S%(3)
  237. C%<Z%(3)
  238. C%>M%(3)
  239. S%<A%(5)
  240. S%>S%(5)
  241. C%<Z%(5)
  242. C%>M%(5)
  243. A:Ky%=
  244. :N%=0:
  245. A:N%=N%+1:
  246. N%>z%
  247. N%=z%:
  248. Q(N%):
  249. A:N%=N%-1:
  250. N%=1:
  251. Q(N%):
  252. o(A$):s%=
  253. (A$)*16+16:
  254. s%<19*16+16
  255. s%=19*16+16
  256. _%=96:b%=(1280-s%)/2:R%=(1024-_%)/2:
  257. 46,16+256,Q%,"temp",0,b%,R%,b%+s%,R%+_%:
  258. F(0,25,120):
  259. b%,R%,s%,_%:
  260. F(255,255,255):
  261. b%,R%,s%,_%:
  262. (1280-
  263. (A$)*16)/2,R%+_%/6*5:
  264. (1280-19*16)/2,R%+_%/2:
  265. ;"<Click to Continue>":
  266. Qy%,Sy%,e%:
  267. e%<>0:
  268. 46,290,Q%,"temp",b%,R%:
  269. 46,25+256,Q%,"temp":
  270. w(A$,
  271. V$):`%=
  272. (A$)*16+16:r%=64:t%=(1280-`%)/2:x%=(1024-r%)/2:
  273. 46,16+256,Q%,"temp",0,t%,x%,t%+`%,x%+r%:
  274. F(0,25,120):
  275. t%,x%,`%,r%:
  276. F(255,255,255):
  277. t%,x%,`%,r%:
  278. (1280-
  279. (A$)*16)/2,x%+r%/4*3:
  280. ;`y%:G%=`y%
  281. V$="yes"
  282. V$="no"
  283. 46,290,Q%,"temp",t%,x%:
  284. 46,25+256,Q%,"temp":
  285. t(I_%,D_%):F$()="":
  286. D_%:F$(I%)="":
  287. 46,269,I_%,A_%,12,I%
  288. ,,,Z:
  289. Z-1:F$(I%)+=
  290. (A_%?J%):
  291. 8,5,Z$+".freemenus"
  292. y&M%=
  293. (Z$+".freemenus"):L$=
  294. :L$=""
  295. 8,5,Z$+".newmenus"
  296. |IM%=
  297. (Z$+".newmenus"):A$(0)=
  298. A$(0),3)):A$(S%)=
  299. W(B_%):Wy%=B_%:X_%=
  300. A$(0),Wy%*3+1,3)):
  301. 46,290,T%,"menuscreen",0,0:d%=
  302. 0,128+Ay%:
  303. 0,zy%:
  304. Xy%:Vy%=
  305. S(k%):
  306. Vy%=iy%
  307. l(k%)
  308. Vy%=py%
  309. f(k%)
  310. l(S%):
  311. 5:Q$=
  312. M(S%):
  313. Ay%<>
  314. J(S%)
  315. J(S%):
  316. F(S%)-6,X%+
  317. C(S%)+2,
  318. (Q$)*16+12,-34
  319. I(S%):
  320. F(S%),X%+
  321. C(S%):
  322. f(Oy%):
  323. U(T%,
  324. M(Oy%),
  325. F(Oy%)+U%,
  326. C(Oy%)+X%):
  327. L:A$=A$(
  328. W(Wy%)):S%=
  329. A$,"|"):ny%=
  330. A$,1,S%-1)):A$=
  331. A$,S%+1):zy%=
  332. A$,2)):Ay%=
  333. A$,3,2)):A$=
  334. A$,6):S%=
  335. A$,"|"):O$=
  336. A$,1,S%-1):A$=
  337. A$,S%+1):D$=A$:Xy%=
  338. (D$)/3:u%=zy%:j%=Ay%:
  339. My:W%=0:
  340. Xy%:C%=
  341. S(S%):
  342. C%=Uy%
  343. C%=wy%
  344. ~W%+=1:F%(W%)=
  345. F(S%)+U%:C%(W%)=
  346. C(S%)+X%:P%(W%)=F%(W%)+
  347. Q(S%):J%(W%)=C%(W%)+
  348. G(S%):W%(W%)=S%:
  349. F%(W%)>P%(W%)
  350. F%(W%),P%(W%)
  351. C%(W%)>J%(W%)
  352. C%(W%),J%(W%)
  353. T(P_%):p%=W%(P_%):
  354. S(p%)=wy%
  355. S(p%)=Uy%:
  356. M(p%))):
  357. W(ny%):
  358. W(yy%):
  359. yy%>(
  360. (A$(0))/3)-1i%=0
  361. A$(0),3+(yy%-1)*3+1,3))
  362. A(H%):=
  363. D$,((H%-1)*3)+1,3))
  364. S(H%):=
  365. A(H%)),1))
  366. F(H%):=
  367. A(H%)),2,5))
  368. C(H%):=
  369. A(H%)),7,5))
  370. I(H%):=
  371. A(H%)),12,2))
  372. J(H%):=
  373. A(H%)),14,2))
  374. Q(H%):=
  375. A(H%)),16,5))
  376. G(H%):=
  377. A(H%)),21,5))
  378. M(H%):=
  379. A(H%)),26)
  380. 6,112,2:
  381. 6,112,1:
  382. 46,16+256,Q%,"temp",0,U%,X%,h%,O%:
  383. 46,290,Q%,"temp",U%,X%:
  384. 46,25+256,Q%,"temp":
  385. K(i%,T$):
  386. &400ed,256,i%,T$,,,,,f%:
  387. 46,280,i%,T$
  388. ,,Ny%:
  389. Ny%!32=44
  390.     Zy%=0
  391. Ty%=0
  392. 2048-8
  393. 8:vy%!(Ty%>>1)=Ny%!(Ty%+44):
  394. :Zy%=vy%
  395. 255:f%?V%=V%:
  396. Ny%!32=44+2048
  397. 264004,Zy%!(V%<<2)
  398. f%?V%:
  399. &40740,12,Zy%,-1,-1,f%
  400. :Hy%=-1:
  401. f%?V%<>V%Hy%=f%
  402. U(My%,W$,S%,C%):
  403. 46,296,My%,W$
  404. ,,,Qy%,Sy%,,uy%:
  405. uy%=12
  406. 46,290,My%,W$,S%,C%,8:
  407. K(My%,W$):
  408. 46,308,My%,W$,S%,C%,8,,Hy%:
  409. F%1000:
  410. Z_%28+24*2:
  411. qy%4:$qy%="TASK":
  412. &400c0,200,!qy%,"MEditate :Read-Only"
  413. N_%,ty%:
  414. ky%3000:
  415. 8,255,"<MagEdit$Dir>.!Sprites",ky%+4:R_%=
  416. B("!iconbar"):
  417. j("<MagEdit$Dir>.Templates"):Z_%=
  418. D:_y%=
  419. B(U$):!F%=-1:F%!4=0:F%!8=0:F%!12=68:F%!16=68:F%!20=8450:
  420. F%!24 (
  421. U$+1):$(F%!24)=U$:F%!28=ky%:F%!32=(
  422. U$+1):
  423. &400c2,,F%
  424. oy%:=oy%
  425. Ay:S_%=&9fdb3:
  426. &400c7,S_%,F%
  427. &400c5,,F%
  428. &400c6,,F%
  429. 17,18:
  430. F%!16=0
  431. j(R$):
  432. my%3064:Ry%=512:
  433. by%Ry%:
  434. &400d9,,R$:
  435. &400db,,my%,by%,by%+Ry%,-1,"Info",0:
  436. &400c1,,my%
  437. &400da:
  438. B%28+24*2:hy%=B%:$B%="MEditate":B%?12=7:B%?13=14:B%?14=7:B%?15=0:B%!16=13*16:B%!20=44:B%!24=0:B%+=28:B%!0=2:B%!4=M_%:B%!8=&7000021:$(B%+12)="Info"+
  439. 0:B%+=24:B%!0=128:B%!4=-1:B%!8=&7000021:$(B%+12)="Quit"+
  440. 0:=hy%
  441. Y:ly%=F%!0:V_%=F%!4:fy%=F%!8:Py%=F%!12:F_%=F%!16:
  442. Py%=-2
  443. &400d4,,Z_%,ly%-11*8,208
  444. d:dy%=F%!0:Q_%=F%!4:J_%=F%!5:
  445. &400cf,,F%:cy%=F%!8:
  446. cy%=1
  447. *rmkill trackermodule
  448. *rmkill memalloc
  449. &400dd,ty%,!qy%:
  450. z:Iy%=
  451. :*screensize 160
  452. e%,ry%:
  453. ry%<160000
  454. I("Message From MEditate","Can't get enough screen memory"):
  455. Z(Z$+"."+X$):
  456. Z("wimppalette "+Z$+".!Magpal"):
  457. 46,36+256,n%,"ptr_hand",2,0,0,0,0:
  458. 6,113,1:
  459. 46,290,T%,"menuscreen",0,0:
  460. *playstart
  461. I(_$,A$):$(F%+4)=A$+
  462. 0:!F%=1:
  463. &400df,F%,17,_$:
  464.