home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / _backup / !BackUp / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1993-08-27  |  4.5 KB  |  180 lines
  1.  >!RunImage
  2.  For !BackUp
  3.  26/8/92
  4. 6e$="1.06 (26 Aug 92)":
  5. $+" at line "+
  6. $+" at line "+
  7. &400C7,,c%
  8. &400C8,,c%
  9. &400C5,,c%
  10. &400C6,,c%
  11. 17,18:
  12. &400DD:
  13. b(ba%):$F%="":
  14. $v%="s!backup"
  15. :$v%="sbackupbusy"
  16. 1!a%=-2:a%!4=ca%:a%!8=0:a%!12=0:
  17. &400CD,,a%:
  18. 67782:
  19. ):m%=
  20. a("Disc Full"):
  21. 67796:
  22. ):m%=
  23. 214:s%+=1:
  24. $+" at line "+
  25. ):m%=
  26. a$(s%)=""
  27. :k%+=1:
  28. k%>q%k%=1
  29. ("<BackUp$Dir>.Data"):
  30. &5,"Copy "+a$(s%)+" adfs::BackUp"+
  31. k%+".$."+
  32. e(a$(s%))+" R"+d$:s%+=1
  33. a% 512,w% 256,G% 512,M% 20,da% 512,N% 256,c% 256,z% 3,O% 30,ea% 512,fa% 256,n% 512,ga% 64,ha% 6000,F% 10,v% 30,ia% 512,ja% 128:
  34. a$(100),b$(20),J% 256
  35. o%=0:e%=
  36. "<BackUp$Dir>.Messages":
  37. b$(o%)=
  38. #e%:o%+=1:
  39. &400C0,200,&4B534154,"BackUp":$v%="s!backup":$F%="":ca%=
  40. d(-2,0,0,68,68,45323,"",F%,v%,9)
  41. :$M%="Error from !BackUp":$O%="123456789":m%=
  42. :$z%="":A%=-104:B%=0:e%=
  43. ("<BackUp$Dir>.Data"):q%=
  44. #e%):k%=
  45. #e%):j%=0:
  46. #e%a$(j%)=
  47. #e%:j%+=1
  48. &400D9,,"<BackUp$Dir>.Templates":Q%=
  49. b(da%,N%,255,"info"):l%=
  50. b(ea%,fa%,255,"addf"):h%=
  51. b(n%,ga%,63,"remo"):t%=
  52. b(ia%,ja%,127,"opts"):
  53. &400DA:$(N%+139)=e$
  54. (pR%=n%!40:u%=n%!44+74:ka%=u%:S%=n%!48:T%=n%!52:I%=n%+88+(((n%!84)-1)*32):la%=I%!0:U%=I%!4:ma%=I%!8:V%=I%!12:
  55. a(C%,na%,g%,K%,a$):!C%=na%:C%!4=g%:C%!8=K%:$(C%+12)=a$:
  56. i:f%=w%:$f%="!Backup":f%!12=459271:f%!16=16*13:f%!20=44:f%!24=0:
  57. a(f%+28,2,w%+200,&7091031,"No of disks"):
  58. a(f%+52,0,-1,&7091031,"Add file"):
  59. a(f%+76,2,-1,&7091031,"Remove file"):
  60. a(f%+100,2,t%,&7091031,"Copy options")
  61. a(f%+124,0,Q%,&7091031,"Info"):
  62. a(f%+148,128,-1,&7091031,"Quit"):f%=w%+200:$f%="No of disks":f%!12=459271:f%!16=16*12:f%!20=44:f%!24=0:f%!28=132:f%!32=-1:f%!36=&700F101:f%!40=z%:f%!44=O%:f%!48=2:
  63. k:x%=!c%:y%=c%!4:oa%=c%!8:r%=c%!12:i%=c%!16:
  64. n(x%,y%,r%=-2)
  65. 0*m%=
  66. :s%=0:
  67. ):d$="":
  68. c(t%,0)d$+="D"
  69. c(t%,1)d$+="F"
  70. c(t%,2)d$+="N"
  71. 4:a$(j%)=b$:j%+=1:
  72. c(l%):e%=
  73. ("<BackUp$Dir>.Data"):
  74. #e%,b$:
  75. c(l%)
  76. 6:a$(j%)=b$:j%+=1:
  77. c(l%)
  78. c(h%):
  79. b$=a$(i%-1):
  80. g%=i%-1
  81. j%+1:a$(g%)=a$(g%+1):
  82. :j%-=1:e%=
  83. "<BackUp$Dir>.Data":
  84. #e%,a$(g%):
  85. &5,"SetType <BackUp$Dir>.Data FFF"
  86. n(pa%,Z%,qa%):
  87. qa%Z%=434
  88. &400D4,,w%,pa%-64,Z%:
  89. 0:q%=
  90. ($z%):$z%="":
  91. k%>q%k%=1
  92. B4e%=
  93. ("<BackUp$Dir>.Data"):
  94. e(l%,1,""):
  95. f(l%)
  96. 5:E%=
  97. f(h%):
  98. c%!16
  99. 0:E%=
  100. #c%!20,"Run "+
  101. f("BackUp$Dir")
  102. 1282:
  103. f(f$):
  104. &23,f$,J%,255,0,3
  105. ,,b%:J%?b%=13:=$J%
  106. q:r%=c%!20:
  107. r%=l%
  108. RBb$="":g%=c%+43:
  109. g%?1<>0:g%+=1:b$+=
  110. e(l%,1,
  111. b$,127)):
  112. b(_%,i%,ra%,g$):
  113. &400DB,,_%,i%,i%+ra%,-1,g$,0:
  114. &400C1,,_%
  115. p%:=p%
  116. a(h$):
  117. &400EF,0:G%!0=255:$(G%+4)=h$:
  118. &400DF,G%,18,M%
  119. ,sa%:=sa%
  120. d(r%,ta%,ua%,va%,wa%,K%,a$,`%,xa%,ya%):a%!0=r%:a%!4=ta%:a%!8=ua%:a%!12=va%:a%!16=wa%:a%!20=K%:
  121. :$(a%+24)=a$:
  122. :a%!24=`%:a%!28=xa%:a%!32=ya%
  123. &400C2,,a%
  124. p%:=p%
  125. c(p%):!a%=p%:
  126. &400CB,,a%:a%!28=0:
  127. &400C6,,a%:
  128. s:c%!12=c%!8:c%!16=4:
  129. &400E7,17,c%,c%!4:
  130. f(p%):
  131. t:!a%=p%:
  132. &400CB,,a%:
  133. u:P%=
  134. a%!28=-1:
  135. &400C5,,a%:
  136. t:a%!0=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:
  137. &31,a%,a%+20:za%=1<<(a%!20):Aa%=1<<(a%!24):Ba%=(a%!28+1)*za%:Ca%=(a%!32+1)*Aa%:
  138. u:W%=a%!12-a%!4:H%=a%!16-a%!8:X%=(Ba%-W%)/2:Y%=(Ca%-H%)/2:a%!4=X%:a%!8=Y%:a%!12=X%+W%:a%!16=Y%+H%:
  139. e(L%,i%,i$):!a%=L%:a%!4=i%:
  140. &400CE,,a%:$(a%!28)=i$:a%!8=0:a%!12=0:
  141. &400CD,,a%:
  142. e(c$):
  143. c$,".")>0:c$=
  144. c$,".")+1):
  145. v(a$):d%=
  146. d(h%,16,A%,748,A%+48,&7003335,"",ha%+B%,-1,50):
  147. e(h%,d%,a$):A%-=50:B%+=50:
  148. &400D1,h%,la%,U%,ma%,V%:U%-=48:V%-=48:u%-=48:a%!0=R%:a%!4=u%:a%!8=S%:a%!12=T%:
  149. &400D7,h%,a%:
  150. p:Da%=(B%/50)+1:a%!0=h%:
  151. a%!4=1
  152. Da%+1:
  153. &400C4,,a%:
  154. :B%=0:A%=-104:u%=ka%:a%!0=R%:a%!4=u%:a%!8=S%:a%!12=T%:
  155. &400D7,h%,a%:
  156. a$(g%)<>""
  157. a$(g%),50))
  158. c(h%):
  159. f(h%):
  160. r:Ea%=c%!32:i%=c%!36:
  161. d("ico")
  162. d("add")
  163. d("rem")
  164. d("inf")
  165. d("opt")
  166. d(a$):
  167. 20:g%=
  168. b$(o%),":"):
  169. b$(o%),g%-1):
  170. j$=a$
  171. b$(o%),
  172. b$(o%)-g%))
  173. w(a$):Fa%=
  174. a$+1:c%!12=c%!8:c%!16=1283:$(c%+20)=a$+
  175. 0:!c%=(24+Fa%)
  176. &400E7,17,c%,c%!4:
  177. c(L%,i%):!a%=L%:a%!4=i%:
  178. &400CE,,a%:=((a%!24
  179. 2097152)=2097152)
  180.