home *** CD-ROM | disk | FTP | other *** search
RISC OS BBC BASIC V Source | 1993-08-29 | 2.4 KB | 97 lines |
- >!RunImage
- For !SWIConv2
- NSW 29/08/93
- Jf$="1.02 (29th Aug 93)":
- $+" (internal error code "+
- +")"):
- $+" (internal error code "+
- +")")
- &400C7,,b%
- &400C5,,b%
- &400C6,,b%
- 8:u%=b%!24:
- u%=13
- &400DC,u%
- 17,18:
- &400DD:
- g:a$=
- b(d%,1):
- a$,1)="&"
- (a$)=0
- &39,,a$
- a(d%,1,"&"+
- a$,n%,511:a$="":g%=0:
- :a$+=
- (n%?g%):g%+=1:
- n%?g%=0:
- a(d%,1,a$)
- j(d%,1,
- b(d%,1))):
- 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":
- &400C0,200,&4B534154,"SWI Converter (2)"
- ba%:c%=
- d(-2,0,0,68,68,12298,"!swiconv2",0,0,0)
- :z%=0:p%=0:q%=
- "<SWI$Dir>.Sprites":
- q%=0t%=
- a("What have you done with my sprites file?!"):
- &400DD:
- cA%=(
- #q%)+16:
- f% A%:!f%=A%-1:f%!4=0:f%!8=16:f%!12=16:
- &2E,256+10,f%,"<SWI$Dir>.Sprites":
- &400D9,,"<SWI$Dir>.Templates":L%=
- c(G%,I%,255,"info",f%):d%=
- c(J%,K%,255,"main",f%):
- &400DA:
- e:$e%="SWI Convert":e%!12=459271:e%!16=16*11:e%!20=44:e%!24=0:
- b(e%+28,0,L%,&7091031,"Info"):
- b(e%+52,128,-1,&7091031,"Quit"):
- b%!16
- 0:m%=
- f:x%=!b%:y%=b%!4:M%=b%!8:k%=b%!12:c%=b%!16:
- k(x%,y%,k%=-2)
- l(d%)
- m:i$=
- b(d%,1):
- (i$):
- &6,138,0,
- i$,i%)):
- k(N%,B%,O%):
- O%B%=184
- &400D4,,e%,N%-64,B%:
- 1:m%=
- b(l%,P%,g%,r%,b$):l%!0=P%:l%!4=g%:l%!8=r%:$(l%+12)=b$:
- c(s%,c%,Q%,c$,R%):
- &400DB,,s%,c%,c%+Q%,-1,c$,0:s%!64=R%:
- &400C1,,s%
- h%:=h%
- a(d$):z%=C%:C%=
- C%-z%<200
- p%+=1
- &400DD:
- &400EF,0:o%!0=255:$(o%+4)=d$:
- &400DF,o%,18,v%
- ,S%:=S%
- b(j%,c%):!a%=j%:a%!4=c%:
- &400CE,,a%:=$(a%!28)
- 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%:
- :$(a%+24)=b$:
- :a%!24=D%:a%!28=_%:a%!32=`%
- &400C2,,a%
- h%:=h%
- l(h%):
- n:!a%=h%:
- &400CB,,a%:
- o:w%=
- a%!28=-1:
- &400C5,,a%:
- n:a%!0=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:
- &31,a%,a%+20:ca%=1<<(a%!20):da%=1<<(a%!24):ea%=(a%!28+1)*ca%:fa%=(a%!32+1)*da%:
- 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%:
- a(j%,c%,e$):!a%=j%:a%!4=c%:
- &400CE,,a%:$(a%!28)=e$:a%!8=0:a%!12=0:
- &400CD,,a%:
- j(j%,c%,ga%):
- &400D2,j%,c%,-1,-1,-1,ga%:
-