home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / s1 / swiconv2 / !SWIConv2 / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1993-08-29  |  2KB  |  97 lines
  1.  >!RunImage
  2.  For !SWIConv2
  3.  NSW 29/08/93
  4. Jf$="1.02 (29th Aug 93)":
  5. $+" (internal error code "+
  6. +")"):
  7. $+" (internal error code "+
  8. +")")
  9. &400C7,,b%
  10. &400C5,,b%
  11. &400C6,,b%
  12. 8:u%=b%!24:
  13. u%=13
  14. &400DC,u%
  15. 17,18:
  16. &400DD:
  17. g:a$=
  18. b(d%,1):
  19. a$,1)="&"
  20. (a$)=0
  21. &39,,a$
  22. a(d%,1,"&"+
  23. a$,n%,511:a$="":g%=0:
  24. :a$+=
  25. (n%?g%):g%+=1:
  26. n%?g%=0:
  27. a(d%,1,a$)
  28. j(d%,1,
  29. b(d%,1))):
  30. b% 512,a% 512,aa% 32,G% 512,I% 256,e% 256,o% 128,v% 20,J% 512,K% 256,n% 512:$v%="Error from SWIConv2":
  31. &400C0,200,&4B534154,"SWI Converter (2)"
  32. ba%:c%=
  33. d(-2,0,0,68,68,12298,"!swiconv2",0,0,0)
  34. :z%=0:p%=0:q%=
  35. "<SWI$Dir>.Sprites":
  36. q%=0t%=
  37. a("What have you done with my sprites file?!"):
  38. &400DD:
  39. cA%=(
  40. #q%)+16:
  41. f% A%:!f%=A%-1:f%!4=0:f%!8=16:f%!12=16:
  42. &2E,256+10,f%,"<SWI$Dir>.Sprites":
  43. &400D9,,"<SWI$Dir>.Templates":L%=
  44. c(G%,I%,255,"info",f%):d%=
  45. c(J%,K%,255,"main",f%):
  46. &400DA:
  47. e:$e%="SWI Convert":e%!12=459271:e%!16=16*11:e%!20=44:e%!24=0:
  48. b(e%+28,0,L%,&7091031,"Info"):
  49. b(e%+52,128,-1,&7091031,"Quit"):
  50. b%!16
  51. 0:m%=
  52. f:x%=!b%:y%=b%!4:M%=b%!8:k%=b%!12:c%=b%!16:
  53. k(x%,y%,k%=-2)
  54. l(d%)
  55. m:i$=
  56. b(d%,1):
  57. (i$):
  58. &6,138,0,
  59. i$,i%)):
  60. k(N%,B%,O%):
  61. O%B%=184
  62. &400D4,,e%,N%-64,B%:
  63. 1:m%=
  64. b(l%,P%,g%,r%,b$):l%!0=P%:l%!4=g%:l%!8=r%:$(l%+12)=b$:
  65. c(s%,c%,Q%,c$,R%):
  66. &400DB,,s%,c%,c%+Q%,-1,c$,0:s%!64=R%:
  67. &400C1,,s%
  68. h%:=h%
  69. a(d$):z%=C%:C%=
  70. C%-z%<200
  71. p%+=1
  72. &400DD:
  73. &400EF,0:o%!0=255:$(o%+4)=d$:
  74. &400DF,o%,18,v%
  75. ,S%:=S%
  76. b(j%,c%):!a%=j%:a%!4=c%:
  77. &400CE,,a%:=$(a%!28)
  78. d(k%,T%,U%,V%,Z%,r%,b$,D%,_%,`%):a%!0=k%:a%!4=T%:a%!8=U%:a%!12=V%:a%!16=Z%:a%!20=r%:
  79. :$(a%+24)=b$:
  80. :a%!24=D%:a%!28=_%:a%!32=`%
  81. &400C2,,a%
  82. h%:=h%
  83. l(h%):
  84. n:!a%=h%:
  85. &400CB,,a%:
  86. o:w%=
  87. a%!28=-1:
  88. &400C5,,a%:
  89. n:a%!0=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:
  90. &31,a%,a%+20:ca%=1<<(a%!20):da%=1<<(a%!24):ea%=(a%!28+1)*ca%:fa%=(a%!32+1)*da%:
  91. o:W%=a%!12-a%!4:H%=a%!16-a%!8:X%=(ea%-W%)/2:Y%=(fa%-H%)/2:a%!4=X%:a%!8=Y%:a%!12=X%+W%:a%!16=Y%+H%:
  92. a(j%,c%,e$):!a%=j%:a%!4=c%:
  93. &400CE,,a%:$(a%!28)=e$:a%!8=0:a%!12=0:
  94. &400CD,,a%:
  95. j(j%,c%,ga%):
  96. &400D2,j%,c%,-1,-1,-1,ga%:
  97.