home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / compress / cfsaid / !CFSAid / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1993-08-27  |  3.8 KB  |  170 lines
  1.  >!RunImage
  2.  For CFSAid
  3.  NSW 11/8/92
  4. <g$="1.11 (11/08/92)":
  5. $+" at line "+
  6. &400C7,,c%
  7. "sub":
  8. "dir":
  9. &400C8,,c%
  10. &400C5,,c%
  11. &400C6,,c%
  12. 17,18,19:
  13. &400DD:
  14. a% 512,c% 256,U% 512,I% 256,e% 512,B% 100,J% 20,C% 13,V% 512,Z% 256,K% 1,L% 30,_% 512,`% 256,D% 256:
  15. a$(777):i%=
  16. :$L%="scfsbar,cfsbusy":$K%="":$J%="CFS Aid":
  17. &400C0,200,&4B534154,"CFS Aid"
  18. d(-2,0,0,68,68,&700B10B,"",K%,L%,1):
  19. &400D9,,"<CFSAid$Dir>.Templates":N%=
  20. b(U%,I%,255,"info"):n%=
  21. b(V%,Z%,255,"check"):q%=
  22. b(_%,`%,255,"stat"):
  23. &400DA:$(I%+139)=g$:
  24. m:$e%="CFS Aid":e%!12=459271:e%!16=16*11:e%!20=44:e%!24=0:
  25. a(e%+28,0,N%,&7091031,"Info"):
  26. a(e%+52,0,e%+200,&7091031,"Options"):
  27. a(e%+76,128,-1,&7091031,"Quit"):k%=e%+200:$k%="Options":k%!12=459271:k%!16=16*11:k%!20=44:k%!24=0
  28. a(k%+28,128-j%,-1,&7091031,"Confirm"):
  29. n:x%=!c%:y%=c%!4:aa%=c%!8:o%=c%!12:g%=c%!16:
  30. 1,4:!a%=-2:a%!4=E%:a%!8=2097152:a%!12=0:
  31. &400CD,,a%:
  32. e(q%)
  33. f(x%,y%,
  34. g(n%)
  35. g(n%):
  36. h(a$)
  37. 0:j%=(j%
  38. ):e%!228=128-j%
  39. 2:A%=
  40. &400CF,,c%:
  41. c%!8=1
  42. f(O%,F%,
  43. c%!16
  44. 0:A%=
  45. #c%!20,"Run "+
  46. e("CFSAid$Dir")
  47. 1282:
  48. e(h$):
  49. &23,h$,D%,255,0,3
  50. ,,b%:D%?b%=13:=$D%
  51. t:l%=c%!40:a$="":d%=c%+43:
  52. d%?1<>0:d%+=1:a$+=
  53. a$,4)="CFS#"
  54. a$-4)
  55. l%=4096
  56. l%=8192:c$=a$:!a%=-2:a%!4=E%:a%!8=2097152:a%!12=0:
  57. &400CD,,a%:r%=0:m%=
  58. :f%=-1:
  59. b(q%,1,c$):
  60. i(a$)
  61. i(a$):
  62. 7?s%=
  63. (a$):t%=
  64. ("CFS#"+a$):
  65. t%=0z%=
  66. a(a$+" not found"):
  67. 8)P%=
  68. #s%:Q%=
  69. Q%<P%
  70. Q%<P%
  71. h(a$)
  72. u:m%=
  73. b(n%,0,
  74. a$,40)):
  75. e(n%):
  76. h(a$):
  77. &5,"Copy CFS#"+a$+" "+a$:
  78. c:e$="dir":
  79. &C,9,c$+
  80. 0,C%,1,r%,13,"*"
  81. ,,,,r%:
  82. ?Mi$=
  83. 0)-1):a$=c$+"."+i$:
  84. &8,5,a$
  85. l%=0z%=
  86. a(a$+" not found")
  87. i(a$)
  88. v(a$)
  89. i%>-1
  90. f%+=1:e$="sub":
  91. a$(f%)<>""
  92. a$(f%),"CFS#")>0
  93. a$(f%),
  94. a$(f%)-4)
  95. :a$=a$(f%)
  96. I'c$=a$:
  97. b(q%,1,a$):a$(f%)="":r%=0:
  98. :f%=0
  99. f%>i%m%=
  100. :i%=-1:a$()="":!a%=-2:a%!4=E%:a%!8=2097152:a%!12=0:
  101. &400CD,,a%:f%=-1:
  102. b(q%,1,
  103. c("fin"))
  104. v(d$):
  105. f(d$)
  106. i%+=1:a$(i%)=d$
  107. f(j$):
  108. ba%=0
  109. j$=a$(ba%)
  110. f(O%,F%,ca%):
  111. F%=228
  112. &400D4,,e%,O%-64,F%:
  113. a(k$):
  114. &400EF,0:B%!0=255:$(B%+4)=k$:
  115. &400DF,B%,18,J%
  116. ,da%:=da%
  117. t:c%!12=c%!8:c%!16=4:
  118. &400E7,17,c%,c%!4:
  119. g(h%):!a%=h%:
  120. &400CB,,a%:a%!28=0:
  121. &400C6,,a%:
  122. b(R%,g%,ea%,d$):
  123. &400DB,,R%,g%,g%+ea%,-1,d$,0:
  124. &400C1,,R%
  125. h%:=h%
  126. a(u%,fa%,d%,G%,b$):u%!0=fa%:u%!4=d%:u%!8=G%:$(u%+12)=b$:
  127. e(h%):
  128. w:!a%=h%:
  129. &400CB,,a%:
  130. x:M%=
  131. a%!28=-1:
  132. &400C5,,a%:
  133. w:a%!0=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:
  134. &31,a%,a%+20:ga%=1<<(a%!20):ha%=1<<(a%!24):ia%=(a%!28+1)*ga%:ja%=(a%!32+1)*ha%:
  135. x:W%=a%!12-a%!4:H%=a%!16-a%!8:X%=(ia%-W%)/2:Y%=(ja%-H%)/2:a%!4=X%:a%!8=Y%:a%!12=X%+W%:a%!16=Y%+H%:
  136. b(ka%,g%,l$):!a%=ka%:a%!4=g%:
  137. &400CE,,a%:$(a%!28)=l$:a%!8=0:a%!12=0:
  138. &400CD,,a%:
  139. s:o%=c%!32:g%=c%!36:
  140. c("bar"))
  141. c("inf"))
  142. j(b$):la%=
  143. b$+1:c%!12=c%!8:c%!16=1283:$(c%+20)=b$+
  144. 0:!c%=(24+la%)
  145. &400E7,17,c%,c%!4:
  146. c(b$):
  147. w%:d%=
  148. b$(v%),":"):
  149. h0m$=
  150. b$(v%),d%-1):
  151. m$=b$
  152. b$(v%),
  153. b$(v%)-d%)
  154. q:p%=
  155. "<CFSAid$Dir>.Messages":w%=0:
  156. f$<>""
  157. f$,1)<>"#"
  158. w%+=1
  159. b$(w%):
  160. #p%=0:
  161. w%-1:b$(d%)=
  162. b$(d%)=""
  163. b$(d%),1)="#"
  164. d%-=1
  165. d(o%,ma%,na%,oa%,pa%,G%,b$,S%,qa%,ra%):a%!0=o%:a%!4=ma%:a%!8=na%:a%!12=oa%:a%!16=pa%:a%!20=G%:
  166. :$(a%+24)=b$:
  167. :a%!24=S%:a%!28=qa%:a%!32=ra%
  168. &400C2,,a%
  169. h%:=h%
  170.