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