home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / fileutils / filters / !Filters / !Config (.txt) next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-07-30  |  3.7 KB  |  181 lines
  1.  >!Config (TaskFilters)
  2.  by KCE Software (Andrew Kemp)
  3.  June 1994
  4. UZ(1)):
  5. &5,Ua$+"!RunMod":
  6. UY(UY%):
  7. &400C5,,UZ%
  8. Ub(UZ%!0,UZ%!4,UZ%!8,UZ%!16)
  9. 17,18:
  10. Uc(UZ%!0,UZ%!4,UZ%!8,UZ%!12,UZ%!16,UZ%!20)
  11. Ud(Ue%):
  12. &400D0,,-1:Ug%!0=
  13. :$(Ug%+4)=
  14. $:$(Ug%+4)=
  15. $+" (Internal error code "+
  16. )+") Quit?"+
  17. &400DF,Ug%,3,Uh$ 
  18. ,Ui%:
  19. Ui%=1 
  20. Uj(Uk%):
  21. &400D0,,-1:
  22. &400DF,Uk%,1,Uh$:
  23. Ul(Um%):
  24. Um%?0>31:Un$+=
  25. (?Um%):Um%+=1:
  26. :=Un$
  27. Uo(Uo$,Up$,Uq$,Ur$,Us$):Uo$=
  28. Ut(Ue%,Uo$,Up$,Uq$,Ur$,Us$):UZ%!0=24+(
  29. (Uo$) 
  30. &FFFFFC):UZ%!12=UZ%!8:UZ%!16=&503:$(UZ%+20)=Uo$+
  31. &400E7,17,UZ%,UZ%!4:
  32. Uu(Uv%,Uw%):
  33. Uw%>7 
  34. Uo("configwh"+
  35. (Uw%),"","","","")
  36. Uo("configwh","","","","")
  37. Uy(Uv%,Uw%,Uz$):Ug%!0=Uv%:Ug%!4=Uw%:
  38. &400CE,,Ug%:$Ug%!28=Uz$:Ug%!8=0:Ug%!12=0:
  39. &400CD,,Ug%:
  40. VU(Uv%,Uw%):Ug%!0=Uv%:Ug%!4=Uw%:
  41. &400CE,,Ug%:=(Ug%!24 
  42. 1<<21)>0
  43. VV(Uv%,Uw%,VW%):
  44. VU(Uv%,Uw%)<>VW% 
  45. VX(Uv%,Uw%,
  46. (VW%=
  47. )<<21,1<<21)
  48. VX(Uv%,Uw%,VY%,VZ%):Ug%!0=Uv%:Ug%!4=Uw%:Ug%!8=VY%:Ug%!12=VZ%:
  49. &400CD,,Ug%:
  50. Vb:Ue%=
  51. Vc(Ua$+"Messages"):
  52. Ve(Ue%):
  53. Vf(Ux%):Vg%=
  54. Vh(Ua$+"Options",%1110000):
  55. Vi(Vg%):
  56. &5,"Unset Alt$State":
  57. Va:Vj$="Config 0.02 (09-Jun-94)":Ua$="TaskFilter:":Uh$="TaskFilters: Config":Vk%=&1000:UX%=
  58. :Vl%=3:
  59. UZ% &100,Ug% Vk%,Vm% 256:
  60. Vn(Vo%,Vp%):
  61. &35,Vo%,Vp% 
  62. ,,Vq%:=Vq%
  63. Vt%):Vs%=(
  64. Vn(-1,11)+1)<<
  65. Vn(-1,4):Vt%=(
  66. Vn(-1,12)+1)<<
  67. Vn(-1,5):
  68. Ub(Vu%,Vv%,Vw%,Uw%):
  69. Vw%=1 
  70. Vw%=4 
  71. Vw%=4 
  72. Vi(Vg%)
  73. 9:Vg%=
  74. Vy(Vg%,Ua$+"Options"):
  75. Vw%=4 
  76. &400C7,,UZ%:
  77. ,,Vw%:
  78. Vw%=0
  79. Ud(Ue%):
  80. &41504,Ue%:
  81. &1E,7,,Ue%:
  82. Vz(Ue%,WU$,Up$,Uq$,Ur$,Us$):
  83. Uk%:Ug%!0=17:$(Ug%+4)=WU$+
  84. &61506,Ug%,Ue%,0,,Up$,Uq$,Ur$,Us$ 
  85. Uj(Uk%):
  86. Vc(WV$):
  87. Ue%,Um%,WW%,WX%:
  88. &41500,,WV$ 
  89. WW%,,WX%:
  90. Um%=0
  91. Um% WX%
  92. &1E,6,,,16 
  93. ,,Ue%:
  94. &41501,Ue%,WV$,Um%:=Ue%
  95. Ut(Ue%,WU$,Up$,Uq$,Ur$,Us$):
  96. &41502,Ue%,WU$,Vm%,256,Up$,Uq$,Ur$,Us$ 
  97. ,,WY%:=
  98. Ul(Vm%)
  99. UZ(WZ%):
  100. &400C7,WZ%,UZ% 
  101. Wa%:=Wa%
  102. Vh(Wb$,Wc%):
  103. Wd%,We%,Wf%,Wg%,WW%:
  104. &8,17,Wb$ 
  105. We%,,,,Wd%:
  106. 0:Wf%=Wc%
  107. Wd%=4 
  108. &20008,16,Wb$,Ug%,0 
  109. Wg%;WW%:
  110. (WW% 
  111. Uj(Wg%):UX%=
  112. :Wf%=Ug%!0
  113. Vz(Ue%,"corrupt","","","",""):UX%=
  114. Vz(Ue%,"isdir","","","",""):UX%=
  115. :=Wf%
  116. Wf%,Uw%:
  117. Uw%=10 
  118. 10+Vl%-1:
  119. VU(Ux%,Uw%) 
  120. Wf%=Wf% 
  121. 1<<(Uw%-10+4)
  122. Uw%:=Wf%
  123. Vi(Wf%):
  124. Uw%=10 
  125. 10+Vl%-1:
  126. VV(Ux%,Uw%,(Wf% 
  127. (1<<(Uw%-10+4)))>0):
  128. Vy(Wf%,Wb$):Ug%!0=Wf%:
  129. &20008,10,Wb$,&ffd,,Ug%,Ug%+4 
  130. Wg%;WW%:
  131. (WW% 
  132. Uj(Wg%)
  133. Vb:$(Ug%+0)="TASK":
  134. &400C0,310,Ug%!0,Uh$,-1 
  135. ,Wh%:
  136. Uf:$(Ug%+0)="TASK":
  137. &400DD,Wh%,Ug%!0:
  138. Uc(WX%,Wi%,Wj%,Wk%,Wl%,Wm%):
  139. 0:UX%=
  140. &502:
  141. Uu(UZ%!32,UZ%!36)
  142. &400C2:
  143. Wi%<>Wh% 
  144. Ul(UZ%+28)=Uh$ 
  145. Wn(Uv%):Ug%!0=Uv%:
  146. &400C6,,Ug%:
  147. Wo(Wp$):
  148. Wq%,Wr%,Ws%,Wt%,Uv%:
  149. &400DB,,-1,,,-1,Wp$,0 
  150. ,Ws%,Wt%:
  151. Wq% Ws%,Wr% Wt%:
  152. &400DB,,Wq%,Wr%,Wr%+Wt%,-1,Wp$,0:
  153. &400C1,,Wq% 
  154. Uv%:=Uv%
  155. Ve(Ue%):
  156. Uy(Ux%,4," "+
  157. Ut(Ue%,"configw4","","","","")+" "):
  158. Wu%=5 
  159. 10+Vl%-1:
  160. Uy(Ux%,Wu%,
  161. Ut(Ue%,"configw"+
  162. (Wu%),"","","","")):
  163. Wv(Ux%,
  164. Ut(Ue%,"configwt","","","","")):
  165. Ww$,Wx%,Wy$,Wz%:
  166. &400D9,,Ua$+"Templates":Ux%=
  167. Wo("config"):
  168. &400DA,,Ua$+"Templates":
  169. XU(Uv%):Ug%!0=Uv%:
  170. &400CB,,Ug%:=(((Ug%!32) 
  171. (1<<16))>0)
  172. Vf(Uv%):
  173. XV%,XW%,Vs%,Vt%:
  174. Vr(Vs%,Vt%):Ug%!0=Uv%:
  175. &400CB,0,Ug%:Ug%!28=-1:XV%=Ug%!12-Ug%!4:XW%=Ug%!16-Ug%!8:Ug%!4=(Vs%-XV%)/2:Ug%!8=(Vt%-XW%)/2:Ug%!12=(Vs%+XV%)/2:Ug%!16=(Vt%+XW%)/2:
  176. &400C5,,Ug%:
  177. Wv(Uv%,XX$):Ug%!0=Uv%:
  178. &400CC,,Ug%:$(Ug%!76)=XX$:
  179. XU(Uv%) 
  180. ,Ug%!4,Ug%!16,Ug%!12,Ug%!16+44)
  181.