home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / internet / tldc / !TLDC / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1996-12-19  |  5.2 KB  |  256 lines
  1.  !TLDC version 1.01 19th December 1996
  2.  David Robinson
  3. Z$(100),A$(100),E$(300):e%=
  4. I:x%=
  5. Z("Info"):F%=
  6. Z("Main"):V%=
  7. Z("Intro"):u%=
  8. J("!tldc"):
  9. C(V%):
  10. F(A%)=C%
  11. K:L$=
  12. E("BM"):D%=
  13. G(L$):
  14. B(A%):
  15. t%:=D%
  16. U(A%,Z%,z%,J%,P%):
  17. X(z%,Z%)
  18. C(F%):
  19. Z(F%,1,0):
  20. X(z%,Z%):
  21. N(A%,Z%,s%):
  22. s%=13:
  23. s(F%,6):
  24. B(M%):
  25. 2:O%=
  26. Z(D$):=
  27. S(D$,"<Obey$Dir>.Resources.Templates")
  28. S(D$,T$):
  29. H%,w%,B%,W%,P$,U$:
  30. &400d9,,T$:
  31. &400db,,E%,f%,j%,q%,D$,0
  32. ,,f%:
  33. 1:E%!64=C%
  34. E%!64=
  35. F(A%)
  36. &400c1,,E%
  37. &400da:
  38. &400d6,H%,E%+40,1+2+(1<<8),2+(1<<8):
  39. E%!40
  40. w%=40:
  41. :E%!4=E%!w%:E%!0=H%:
  42. &400ce,,E%:P$=
  43. A(E%!28):
  44. &400c4,,E%:
  45. 1:E%!32=1
  46. 46,264,C%
  47. ,,,B%:W%=0:
  48. W%+=1:
  49. 46,269,C%,h%,20,W%:U$=
  50. A(h%):
  51. W%=B%
  52. P$=U$:
  53. P$=U$
  54. E%!32=C%
  55. E%!32=1
  56. :E%!4=H%:
  57. &400c2,,E%+4
  58. wy%:w%+=4:
  59. (E%!w%)=-1
  60. m%,Ay%:
  61. 53,-1,4
  62. ,,m%:
  63. 53,-1,5
  64. ,,Ay%:
  65. 53,-1,11
  66. ,,J%:
  67. 53,-1,12
  68. ,,P%:J%=(J%+1)<<m%:P%=(P%+1)<<Ay%:
  69. P(E%,
  70. P%):J%=E%!8-E%!0:P%=E%!12-E%!4:
  71. d(E%,ey%,cy%,Qy%,Ly%):!E%=ey%:E%!4=cy%:E%!8=Qy%:E%!12=Ly%:
  72. C(A%):
  73. J%,P%,c%,r%:!E%=A%:
  74. A%=V%`%=1
  75. &400cb,,E%:
  76. R(J%,P%):
  77. P(E%+4,c%,r%):J%=(J%/2)-(c%/2):P%=(P%/2)-(r%/2)+66:
  78. d(E%+4,J%,P%,J%+c%,P%+r%):E%!28=-1:
  79. &400c5,,E%:
  80. _:!E%=V%:
  81. &400c3,,E%:V%=0:`%=0:
  82. J(K$):
  83. Z%:E%!0=-1:E%!4=0:E%!8=0:E%!12=68:E%!16=68:E%!20=12290:$(E%+24)=K$:
  84. &400c2,,E%
  85. Z%:=Z%
  86. Z(A%,Z%,Oy%):
  87. &400d2,A%,Z%,,,-1,Oy%:
  88. M(A%,Z%):E%!0=A%:E%!4=Z%:
  89. &400ce,,E%:=$(E%!28)
  90. E(A%,Z%,R$):E%!0=A%:E%!4=Z%:
  91. &400ce,,E%:$(E%!28)=R$:E%!0=A%:E%!4=Z%:E%!8=0:E%!12=0:
  92. &400cd,,E%:
  93. P(Ky%):=(E%!(4*Ky%))+1
  94. G(E$):
  95. M%,G%,K%,U%,g%,p%:
  96. M%28+
  97. W (E$)*24:M%?12=7:M%?13=2:M%?14=7:M%?15=0:M%!16=140:M%!20=44:M%!24=0:G%=M%+28:$M%=
  98. E$,"\")-1):K%=
  99. E$,"\")-1)):E$+="\":xy%=0:
  100. E$<>"":E$=
  101. E$,"\")+1):
  102. :!G%=0:G%!4=-1:G%!8=&7000021:U%=
  103. E$,"\")-1:g%=
  104. E$,U%),">"):
  105. :p%=x%:G%!4=p%:U%=g%-1
  106. :$(G%+12)=
  107. E$,U%):
  108. U%>K%
  109. K%=U%
  110. G%+=24
  111. :M%!16=16*(K%+1):G%!-24=G%!-24
  112. 128:=M%
  113. W(E$):
  114. B%,W%:B%=0:W%=0:
  115. E$,"\",W%+1):
  116. W%<>0
  117. B%+=1
  118. W%=0:=B%
  119. S%,T%:X$="<tldc$Dir>.Resources.Sprites":S%=
  120. X$:T%=
  121. #S%+16:
  122. C%T%,fy%12:!C%=T%:C%!8=0:
  123. 46,265,C%:
  124. 46,266,C%,X$:i%=C%:
  125. A(a%):
  126. B$:B$="":
  127. (?a%<>13)
  128. (?a%<>0):B$+=
  129. (?a%):a%+=1:
  130. J:G$="tldc":n%=1900:Z%=900:
  131. E%n%,f%Z%:j%=f%+Z%:V$=G$:By%=1:i%=1:
  132. $+" at line "+
  133. &400c0,200,&4b534154,G$
  134. k%,d%:
  135. z(O$):
  136. F(O$,1):
  137. &41504,I%:
  138. &400dd:
  139. F(Y$,Vy%):H$=V$:!E%=255:$(E%+4)=Y$+
  140. &400df,E%,Vy%,H$
  141. ,Hy%:
  142. h%20:Dy%=1:Wy%=2:Ny%=1<<4:dy%=1<<5:Fy%=1<<6:zy%=1<<7:s%=1<<8:M%=1<<9:sy%=1<<10:Yy%=1<<11:qy%=1<<12:Py%=(1<<17)+(1<<18):_y%=1<<18:Xy%=1<<19:A%=0:C%=1:k%=0:d%=0:t%=-2:u%=0:D%=0:l%=0:o%=0:Iy%=-3:Jy%=0:Ty%=2:My%=3:Cy%=2:Uy%=0:ay%=0:Ry%=0:
  143. &400dd,d%,"TASK":
  144. a:Q$="<tldc$Dir>.Resources.Messages":
  145. &41500,,Q$
  146. N%,,y%:
  147. Sy%y%
  148. I%256:$(I%+16)=Q$:
  149. &41501,I%,I%+16,Sy%:
  150. Gy%256:
  151. E(I$):
  152. &41502,I%,I$,Gy%,256,0,0,0,0
  153. ,,A$:=A$
  154. q%256:
  155. 4:q%!N%=0:
  156. q%?N%>0:q%?N%-=1:
  157. &40082,N%:
  158. Y%,Ey%:O%=
  159. :Y%=3608:
  160. &400c7,Y%,E%
  161. q:e%=
  162. :Y%=Y%
  163. &400c5,,E%
  164. B(M%)
  165. 17,18:
  166. &400c8,,E%
  167. v%:A%=E%!0:l%=16+E%!4-E%!20:o%=-16+E%!16-E%!24:
  168. &400ca,,E%
  169. &400cf,,E%:A%=E%!12:ry%=E%!8:!E%=A%:
  170. &400c6,,E%:
  171. O:z%=E%!8:A%=E%!12:Z%=E%!16:J%=E%!0:P%=E%!4:
  172. U(A%,Z%,z%,J%,P%)
  173. Q:M%=
  174. B(A%):
  175. -2:B%=0:
  176. ((D%!(28+B%*24))
  177. 128)=0:B%+=1:
  178. &400d4,,D%,J%-64,141+B%*44
  179. &400d4,,M%,J%-64,P%+20
  180. g:A%=E%!0:Z%=E%!4:s%=E%!24:
  181. N(A%,Z%,s%):
  182. N$:N$=
  183. A(E%+44):
  184. E%!16
  185. 0:O%=
  186. 2:E%!0=b%:E%!4=1:
  187. &400ce,,E%:$(E%!28)=N$:E%!0=b%:E%!4=1:E%!8=0:E%!12=0:
  188. &400cd,,E%:
  189. &400d2,b%,1,,,-1,
  190. 1282:
  191. E%!32
  192. W$:W$=
  193. E("IB"):E%!12=E%!8:E%!16=1283:$(E%+20)=W$+
  194. 0:!E%=(25+
  195. &400e7,17,E%,E%!4:
  196. w:L%=E%!36:
  197. 1,2,3,4,5,6:A$=
  198. E("H"+
  199. (L%)):$(E%+20)=A$
  200. E("H0"):$(E%+20)=A$
  201. :!E%=256:E%!12=E%!8:E%!16=1283:
  202. &400e7,17,E%,E%!4:
  203. c:L%=E%!36:
  204. 8,9:A$=
  205. E("I"+
  206. (L%)):$(E%+20)=A$
  207. E("H0"):$(E%+20)=A$
  208. :!E%=256:E%!12=E%!8:E%!16=1283:
  209. &400e7,17,E%,E%!4:
  210. E(F%,Z%,""):
  211. Z(F%,1,0):
  212. C(M$):
  213. (M$)>0
  214. (M$):
  215. M$,Q%,1)>="a"
  216. M$,Q%,1)<="z"
  217. M$,Q%,1)=
  218. M$,Q%,1))
  219. M:F$=
  220. M(F%,1):
  221. (F$)<2A$=
  222. E("E1"):
  223. F(A$,1):
  224. |6F$=
  225. C(F$):
  226. E(F%,2,C$):
  227. E(F%,3,S$):
  228. E(F%,4,J$):
  229. q:_%=0:
  230. &406c0:X%=
  231. "<tldc$Dir>.Resources.Codes":Zy%=
  232. :_%+=1:E$(_%)=
  233. &406c4,(
  234. #X%/Zy%)*100:
  235. &406c1:
  236. E$(R%),2)
  237. R%:C$=
  238. E("E3"):S$="":J$="":
  239. v:C$="":J$="":S$="":Z$=
  240. (E$(R%)),
  241. ((E$(R%)))-3):A=
  242. Z$,"/"):C$=
  243. Z$,A-1):E=
  244. (C$)+1:Z=
  245. (Z$):M=Z-E:Z$=
  246. Z$,M):A=
  247. Z$,"/"):S$=
  248. Z$,A-1):E=
  249. (S$)+1:Z=
  250. (Z$):M=Z-E:J$=
  251. Z$,M):
  252. s(A%,Z%):E%!0=A%:E%!4=Z%:E%!8=&200000:E%!12=&200000:
  253. &400cd,,E%:
  254. =15:E%!8=0:E%!12=&200000:
  255. &400cd,,E%:
  256.