home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / mag_discs / 14 / programs / strip / !Strip / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1993-08-27  |  4KB  |  178 lines
  1.  >!RunImage
  2.  For !Strip
  3.  14/4/93
  4. ;g$="1.05 (14th April 93)":
  5. $+" at line "+
  6. $+" at line "+
  7. &400C7,,c%
  8. &400C8,,c%
  9. &400C5,,c%
  10. &400C6,,c%
  11. 17,18:
  12. &400DD:
  13. 2:z%=
  14. m:I%=c%!24:k%=!c%:d%=c%!4:
  15. &400DC,I%
  16. c% 256,a% 256,S% 512,J% 256,A% 256,K% 20,L% 256,T% 512,B% 256,U% 512,V% 256,C% 256,W% 512,X% 256,Y% 512,Z% 256:
  17. a$(20):n%=0:o%=
  18. "<Strip$Dir>.Messages":
  19. a$(n%)=
  20. #o%:n%+=1:
  21. &400C0,200,&4B534154,"Stripper"
  22. :$K%="Error from Stripper":M%=
  23. :ba%=
  24. d(-2,0,0,68,68,12298,"!Strip",0,0,0):o%=
  25. "<Strip$Dir>.Sprites":
  26. o%=0H%=
  27. c("What have you done with my sprites file?!"):
  28. &400DD:
  29.  eu%=
  30. #o%+1024:
  31. i% u%:!i%=u%-1:i%!4=0:i%!8=16:i%!12=16:
  32. &2E,256+10,i%,"<Strip$Dir>.Sprites":
  33. &400D9,,"<Strip$Dir>.Templates":`%=
  34. b(S%,J%,255,"info",i%):g%=
  35. b(T%,B%,255,"save",i%):r%=
  36. b(U%,V%,255,"sure",i%):D%=
  37. b(W%,X%,255,"comp",i%):h%=
  38. b(Y%,Z%,255,"cont",i%):
  39. &400DA:$(J%+99)=g$
  40. j:m%=L%:$(m%)="Stripper":m%!12=459271:m%!16=16*11:m%!20=44:m%!24=0:
  41. c(m%+28,0,`%,&7091031,"Info"):
  42. c(m%+52,0,h%,&7091031,"Control"):
  43. c(m%+76,128,-1,&7091031,"Quit"):
  44. c%!16
  45. 0:z%=
  46. #c%!20,"Run "+
  47. f("Strip$Dir")
  48. 1282:
  49. f(h$):
  50. &23,h$,C%,255,0,3
  51. ,,b%:C%?b%=13:=$C%
  52. p:ca%=c%!32:d%=c%!36:
  53. d("dra")
  54. d("sav")
  55. d("sur")
  56. d(a$):
  57. 20:e%=
  58. a$(n%),":"):
  59. a$(n%),e%-1):
  60. i$=a$
  61. a$(n%),
  62. a$(n%)-e%))
  63. q(a$):u%=
  64. a$+1:c%!12=c%!8:c%!16=1283:$(c%+20)=a$+
  65. 0:!c%=(24+u%)
  66. &400E7,17,c%,c%!4:
  67. e(r%):
  68. &400C7,,c%
  69. 0,4,5
  70. 6:k%=c%!12:d%=c%!16:
  71. k%=r%
  72. a(r%):=
  73. a(r%):=
  74. 17,18:
  75. o:E%=c%!40:b$="":e%=c%+43:
  76. e%?1<>0:e%+=1:b$+=
  77. E%<>4095N%=
  78. D`f$="file_"+
  79. ~E%:B%=
  80. d(g%,84,-84,152,-16,&700600A,f$,0,0,0):
  81. e(g%):
  82. f(g%,0,b$):
  83. r(g%,0,
  84. &406C0:
  85. F-c$="":e%=c%+43:
  86. e%?1<>0:e%+=1:c$+=
  87. e(g%,0)
  88. I4O%=
  89. b$=c$
  90. :c$="<Wimp$ScrapDir>.StripScrap"
  91. J-l%=
  92. (b$):da%=
  93. #l%:P%=
  94. (c$):
  95. d$,1)=" ":d$=
  96. d$-1):
  97. d$,1)=" ":d$=
  98. #P%,d$:
  99. &406C4,(
  100. #l%)*100:
  101. #P%:l%=
  102. (c$):ea%=
  103. a(g%):!a%=g%:a%!4=B%:
  104. &400C4,,a%:
  105. "Wipe "+b$+" ~C~VF":
  106. "Copy <Wimp$ScrapDir>.StripScrap "+b$+" ~C~VDQ":c$=b$
  107. &5,"SetType "+c$+" "+
  108. e(D%):
  109. f(D%,2,
  110. da%):
  111. f(D%,3,
  112. ea%):
  113. &406C1:
  114. k:x%=!c%:y%=c%!4:fa%=c%!8:k%=c%!12:d%=c%!16:
  115. t(x%,y%,k%=-2)
  116. 16,64:
  117. s:p%=
  118. a(h%,0)
  119. a(h%,0)
  120. !a%=h%:a%!4=0:a%!8=2097152:a%!12=0:
  121. &400CD,,a%
  122. a(h%,1)
  123. a(h%,1)
  124. !a%=h%:a%!4=1:a%!8=2097152:a%!12=0:
  125. &400CD,,a%
  126. u:s%=
  127. a(h%,0):t%=
  128. a(h%,1):
  129. a(h%):
  130. a(j%,d%):!a%=j%:a%!4=d%:
  131. &400CE,,a%:=((a%!24
  132. (1<<21))=(1<<21))
  133. v:x%=!c%:y%=c%!4:c%!4=5:c%!8=x%-76:c%!16=x%+76:c%!12=y%-52:c%!20=y%+52:c%!24=0:c%!32=&7FFFFFFF:c%!28=0:c%!36=&7FFFFFFF:
  134. 6,161,28
  135. ,,f%:
  136. _%>=310
  137. &42400,197,1,f$,c%+8,c%+24
  138. &400D0,,c%
  139. t(ga%,Q%,ha%):
  140. Q%=228
  141. &400D4,,L%,ga%-64,Q%:
  142. c(v%,ia%,e%,F%,a$):v%!0=ia%:v%!4=e%:v%!8=F%:$(v%+12)=a$:
  143. b(G%,d%,ja%,j$,ka%):
  144. &400DB,,G%,d%,d%+ja%,-1,j$,0:G%!64=ka%:
  145. &400C1,,G%
  146. q%:=q%
  147. c(k$):
  148. &400EF,0:A%!0=255:$(A%+4)=k$:
  149. &400DF,A%,18,K%
  150. ,la%:=la%
  151. e(j%,d%):!a%=j%:a%!4=d%:
  152. &400CE,,a%:=$(a%!28)
  153. d(k%,ma%,na%,oa%,pa%,F%,a$,R%,qa%,ra%):a%!0=k%:a%!4=ma%:a%!8=na%:a%!12=oa%:a%!16=pa%:a%!20=F%:
  154. :$(a%+24)=a$:
  155. :a%!24=R%:a%!28=qa%:a%!32=ra%
  156. &400C2,,a%
  157. q%:=q%
  158. a(q%):!a%=q%:
  159. &400CB,,a%:a%!28=0:
  160. &400C6,,a%:
  161. e(q%):!a%=q%:
  162. &400CB,,a%:a%!28=-1:
  163. &400C5,,a%:
  164. f(j%,d%,l$):!a%=j%:a%!4=d%:
  165. &400CE,,a%:$(a%!28)=l$:a%!8=0:a%!12=0:
  166. &400CD,,a%:
  167. r(j%,d%,sa%):
  168. &400D2,j%,d%,-1,-1,-1,sa%:
  169. &39,,"DragASprite_Stop"
  170. &42401
  171. &400D0,,0:b%=c%:
  172. &400CF,,b%:x%=b%!0:y%=b%!4:j%=b%!12:d%=b%!16:!b%=56:b%!12=0:b%!16=1:b%!20=j%:b%!24=d%:b%!28=x%:b%!32=y%:b%!36=0:b%!40=4095:$(b%+44)=
  173. e(g%,0)):
  174. &400E7,17,c%,j%,d%:M%=
  175. h(e$):
  176. e$,".")>0:e$=
  177. e$,".")+1):
  178.