REM Acorn Invaders
REM Packed by Make v1.41b 30/5/08 On 31 May 2008
ONERRORPROCv:END
MODE28:OFF:a$="Acorn Invaders. (c)2008 DynaByte Software":PRINTa$:PRINTSTRING$(LEN(a$),"-"):PRINT:aa%=FALSE:b$="<Invaders$Dir>.Resources.":PRINT"Checking files...":IFNOTFNj(b$+"Gfx0","Sprites")THENaa%=TRUE
IFNOTFNj(b$+"Gfx1","Charset")THENaa%=TRUE
IFNOTFNj(b$+"Intro","Music")THENaa%=TRUE
IFNOTFNj(b$+"Creds","Credits")THENaa%=TRUE
IFNOTFNj(b$+"Msg","Messages")THENaa%=TRUE
IFNOTFNj(b$+"SWIs","Lookups")THENaa%=TRUE
IFaa%THENERROR255,"File Missing!!"
PRINT:PRINT"Loading Messages...":ba%=FNr(b$+"Msg","SGSM"):DIMf%(ba%),b$(ba%):PROCi(b$+"Msg","SGSM",f%(),b$()):PRINTFNa(3):ca%=FNr(b$+"ImgLUT","SGSM"):DIMg%(ca%),c$(ca%):PROCi(b$+"ImgLUT","SGSM",g%(),c$()):PRINTFNa(13)
da%=FNr(b$+"SWIs","SGSM"):DIMh%(da%),d$(da%):PROCi(b$+"SWIs","SGSM",h%(),d$()):PRINTFNa(1):OSCLI"PlayVolume 0":OSCLI"Playmod "+b$+"Intro":OSCLI"PlayPause":aa%=FALSE:ea%=0:fa%=1:ga%=TRUE:ha%=0:DIMa$(10),c%(10):DIMd%(10):PRINTFNa(2)
PROCw:SYSFNe(1),,FNe(2)TOia%:PRINTFNa(4):ja%=FNu(b$+"Gfx0"):PRINTFNa(5):ka%=FNu(b$+"Gfx1"):la%=ja%:PRINTFNa(6):ma%=OPENIN(b$+"Creds"):INPUT#ma%,g$:IFg$<>"DERC"THEN
CLOSE#ma%:ERROR255,FNa(101):END
ENDIF
INPUT#ma%,ha%:DIMe$(ha%),e%(ha%):FORi%=1TOha%:INPUT#ma%,e%(i%),e$(i%):NEXTi%:CLOSE#ma%:PRINTFNa(7);:l$=b$+"HiTable":IFFNv(l$)<>1THEN
IFNOTFNw(0,b$)THEN
ga%=FALSE:PRINTFNa(8)
ELSE:PRINTFNa(9)
ENDIF
PROCx(ga%)
ELSE:IFNOTFNw(1,l$)THEN
ga%=FALSE:PRINTFNa(10)
ELSE:PRINTFNa(11)
ENDIF
PROCy
ENDIF
PRINTFNa(12):PROCe(150):b%=0:a%=4:f%=8:k%=12:M%=16:N%=20:q%=24:na%=28:E%=32:oa%=36:pa%=40:qa%=44:ra%=48:sa%=52:ta%=56:ua%=60:va%=64:wa%=68:xa%=16:ya%=20:za%=24:V%=28:T%=32:Aa%=16:Ba%=20:h%=FNd(36):P%=FNd(24):K%=FNd(16)
CLS:PROCm:h%!V%=FNc(8,1):h%!T%=FNc(8,2)+7:P%!f%=FNc(6,1):P%!k%=FNc(6,2):P%!Aa%=h%!k%-50:P%!Ba%=30:OSCLI"PlayVolume 127":OSCLI"PlayStart":REPEAT:CLS:aa%=FNz:IFNOTaa%THENCLS:PROCz
UNTILaa%:CLS:K%!f%=220:K%!k%=40:K%=FNs(K%,h%):K%!a%-=3:PROCj(K%):PROCn(FNa(31),10):IFfa%=1THEN
FORi%=127TO1STEP-2:OSCLI"PlayVolume "+STR$(i%):PROCe(4):NEXTi%:OSCLI"PlayStop":OSCLI"PlayVolume 127"
ENDIF
PROCo:END
DEFFNz:LOCALi%,H%,I%,B%,O%,d%,U%,Ca%,m%:LOCALDa%,Q%,Ea%,Fa%,Ga%,Ha%,x%,y%,J%,s$,a$:H%=FNh(FNd(16),0):I%=FNh(FNd(16),0):B%=FNh(FNd(16),0):d%=FNh(FNd(16),0):U%=FNh(FNd(16),0):Q%=FNh(FNd(16),0):m%=FNh(FNd(16),0)
H%!f%=FNc(100,1):H%!k%=FNc(40,2):H%!b%=FNf(H%,h%):H%!a%=800:I%!f%=FNc(150,1):I%!k%=FNc(40,2):I%!b%=FNf(I%,h%):I%!a%=H%!a%-I%!k%:B%!f%=640:B%!k%=500:B%!b%=FNf(B%,h%):B%!a%=200:d%!f%=FNc(40,1):d%!k%=FNc(20,2):d%!b%=B%!b%+150
d%!a%=(B%!a%+B%!k%)-125:m%!f%=FNc(30,1):m%!k%=FNc(15,2):U%!f%=FNc(20,1):U%!k%=FNc(20,2):U%!b%=B%!b%+150+FNf(U%,d%):Ca%=FNi(U%):Da%=FNi(U%)::Da%!a%=d%!a%-40-Da%!k%:Ca%!a%=Da%!a%-40-Ca%!k%:U%!a%=Ca%!a%-40-U%!k%
Q%!f%=FNc(20,1):Q%!k%=FNc(20,2):Q%!b%=B%!b%+150+FNf(Q%,d%):Ea%=FNi(Q%):Fa%=FNi(Q%):Ha%=FNi(Q%):Ga%=FNi(Q%):Ia%=FNi(Q%)::Q%!a%=(B%!a%+B%!k%)-120:Ea%!a%=Q%!a%-60:Fa%!a%=Ea%!a%-60:Ha%!a%=Fa%!a%-90:Ia%!a%=Ha%!a%-60:Ga%!a%=Ia%!a%-60
PROCf(P%!Aa%):PROCf(P%!Ba%):FORi%=0-H%!f%TOH%!b%STEP5:WAIT:PROCa(FNb(100),i%,H%!a%):PROCe(1):NEXTi%:FORi%=h%!f%TOI%!b%STEP-5:WAIT:PROCa(FNb(101),i%,I%!a%):PROCe(1):NEXTi%:a$=FNa(32):O%=LEN(a$)*h%!V%:y%=170:PROCb(FNk(O%,h%!f%),y%,a$,11):a$=FNa(33)
O%=LEN(a$)*h%!V%:y%-=h%!T%:PROCb(FNk(O%,h%!f%),y%,a$,11):WHILENOTINKEY(-99)ANDNOTINKEY(-17)ANDNOTINKEY(-82):y%=B%!a%+B%!k%:FORi%=1TOha%:a$=FNo(e$(i%)):x%=FNg(a$):CASEe%(i%)OF
WHEN-1:y%-=h%!T%
WHEN-2:y%-=(2*h%!T%)
OTHERWISE:y%-=e%(i%)
ENDCASE
PROCb(x%,y%,a$,0):NEXTi%:J%=FNq:IFJ%=1THEN=TRUE
IFJ%=2THEN=FALSE
PROCd(B%):a$=FNa(57)+" "+FNa(34):x%=FNg(a$):y%=B%!a%+B%!k%-20:PROCb(x%,y%,a$,0):a$=FNa(35):y%-=h%!T%:x%=FNg(a$):PROCb(x%,y%,a$,0):x%=d%!b%+d%!f%+10:PROCa(FNb(11),d%!b%,d%!a%):a$=FNa(36)+" "+FNa(40):PROCb(x%,d%!a%+10,a$,0)
PROCa(FNb(24),Da%!b%,Da%!a%):a$=FNa(37)+" "+FNa(40):PROCb(x%,Da%!a%+12,a$,0):PROCa(FNb(22),Ca%!b%,Ca%!a%):a$=FNa(38)+" "+FNa(40):PROCb(x%,Ca%!a%+12,a$,0):PROCa(FNb(20),U%!b%,U%!a%):a$=FNa(39)+" "+FNa(40):PROCb(x%,U%!a%+12,a$,0)
O%=m%!f%/h%!V%+2:s$=FNa(66):a$=s$+STRING$(O%," ")+FNa(67):x%=FNg(a$):y%=U%!a%-(3*h%!T%):PROCb(x%,y%,a$,0):m%!b%=x%+7+(LEN(s$)*h%!V%):m%!a%=y%:PROCa(FNb(1),m%!b%,m%!a%):J%=FNq:IFJ%=1THEN=TRUE
IFJ%=2THEN=FALSE
PROCd(B%):a$=FNa(41):x%=FNg(a$):y%=B%!a%+B%!k%-20:PROCb(x%,y%,a$,0):x%=Q%!b%+Q%!f%+10:PROCa(FNb(102),Q%!b%,Q%!a%):a$=FNa(42)+" "+FNa(43):PROCb(x%,Q%!a%+12,a$,0):PROCa(FNb(103),Ea%!b%,Ea%!a%):a$=FNa(42)+" "+FNa(44):PROCb(x%,Ea%!a%+12,a$,0)
PROCa(FNb(104),Fa%!b%,Fa%!a%):PROCb(x%,Fa%!a%+12,FNa(45),0):PROCa(FNb(105),Ia%!b%,Ia%!a%):a$=FNa(46)+" "+FNa(49):PROCb(x%,Ia%!a%+12,a$,0):PROCa(FNb(106),Ha%!b%,Ha%!a%):PROCb(x%,Ha%!a%+12,FNa(47),0):PROCa(FNb(107),Ga%!b%,Ga%!a%)
a$=FNa(48)+" "+FNa(49):PROCb(x%,Ga%!a%+12,a$,0):J%=FNq:IFJ%=1THEN=TRUE
IFJ%=2THEN=FALSE
PROCd(B%):a$=FNa(50):IFga%THENa$=FNa(51)
x%=FNg(a$):y%=B%!a%+B%!k%-20:PROCb(x%,y%,a$,0):a$=FNa(58)+" "+FNa(52):x%=FNg(a$):y%-=h%!T%:PROCb(x%,y%,a$,0):y%=(B%!a%+B%!k%)-100:a$=" "+FNa(68)+"  "+FNa(69):a$+=STRING$(12," ")+FNa(57)+".":a$+=STRING$(3," ")+FNa(60)+".":x%=FNg(a$):PROCb(x%,y%,a$,0):y%-=2*h%!T%
FORi%=1TO10:IFi%<10THEN
a$="  "+STR$(i%)+".  "
ELSE:a$=" "+STR$(i%)+".  "
ENDIF
s$=FNo(a$(i%)):a$+=FNl(s$,8," ",FALSE):a$+=" .... ":a$+=FNx(STR$(c%(i%)),10):a$+=" ... "+FNx(STR$(d%(i%)),3):x%=FNg(a$):PROCb(x%,y%-(i%*(h%!T%+5)),a$,0):NEXTi%:J%=FNq:IFJ%=1THEN=TRUE
IFJ%=2THEN=FALSE
PROCd(B%):ENDWHILE:ERROR255,FNa(102):=FALSE
DEFFNq:LOCALt%,J%:t%=TIME+750:J%=FALSE:REPEAT:IFINKEY(-82)THENPROCp
IFINKEY(-102)THENPROCq
UNTILTIME>=t%ORINKEY(-17)ORINKEY(-99):IFINKEY(-17)THENJ%=1
IFINKEY(-99)THENJ%=2
IFJ%THEN
PROCc(H%):PROCc(I%):PROCc(B%):PROCc(d%):PROCc(U%):PROCc(Ca%):PROCc(Da%):PROCc(Q%):PROCc(Ea%):PROCc(Fa%):PROCc(Ga%):PROCc(Ha%):PROCc(Ia%):PROCc(m%)
ENDIF
=J%
DEFFNg(a$):LOCALO%:O%=LEN(a$)*h%!V%:=B%!b%+FNk(O%,B%!f%)
DEFPROCz:LOCALm%,p%,d%,e%,o%:LOCALD%:LOCALb%(),a%():LOCALW%,X%,Ja%,Ka%:LOCALLa%,Ma%,Na%:LOCALOa%,Pa%,Qa%,Ra%,Sa%:LOCALTa%,O%,a$,x%,y%,i%,j%:m%=FNd(32):p%=FNd(40):d%=FNd(48):e%=FNd(68):D%=FNd(16):o%=FNd(36):DIMb%(10,6),a%(7)
W%=0:X%=4:Ja%=8:Ka%=12:La%=16:Ma%=20:Na%=24:Oa%=pa%:Pa%=qa%:Qa%=ra%:Ra%=ua%:Sa%=va%:m%!f%=FNc(30,1):m%!k%=FNc(15,2):m%!b%=FNf(m%,h%):m%!a%=50:m%!N%=6:m%!M%=m%!N%:D%!f%=FNc(20,1):D%!k%=FNc(20,2)
d%!f%=FNc(40,1):d%!k%=FNc(20,2):d%!a%=P%!Aa%-(10+d%!k%):d%!N%=5:d%!q%=FALSE:d%!qa%=1:p%!f%=FNc(5,1):p%!k%=FNc(20,2):p%!q%=FALSE:p%!N%=10:o%!Ja%=1:o%!X%=0:o%!W%=3:o%!Ka%=FALSE:o%!La%=0:o%!E%=0:o%!Na%=o%!X%
e%!Oa%=FNc(20,1):e%!Pa%=10:e%!Qa%=6:e%!q%=TRUE:e%!Sa%=4:FORi%=1TO7:a%(i%)=FNd(44):a%(i%)=FNh(a%(i%),0):a%(i%)!f%=FNc(5,1):a%(i%)!k%=FNc(20,2):NEXTi%:PROCf(P%!Aa%):PROCf(P%!Ba%):PROCA(0,c%(1),o%!W%,o%!Ja%)
PROCB:PROCa(FNb(1),m%!b%,m%!a%):REPEAT:Ta%=FALSE:IFo%!La%=0THEN
IFINKEY(-74)THENPROCC(m%!b%,m%!a%)
IFINKEY(-98)THENPROCD:Ta%=TRUE
IFINKEY(-67)THENPROCE:Ta%=TRUE
IFINKEY(-17)THENPROCF
ENDIF
IFINKEY(-102)THENPROCq
IFINKEY(-82)THENPROCp
IFINKEY(-56)THENPROCG
IFo%!La%=0
IFTa%THEN
m%!b%+=m%!M%:PROCa(FNb(1),m%!b%,m%!a%)
ENDIF
ENDIF
IFo%!W%>0THEN
IFo%!La%=0THEN
PROCH:PROCI:PROCJ:PROCK
ELSE:PROCL
ENDIF
ENDIF
WAIT:UNTILo%!W%=0:K%!f%=240:K%!k%=40:K%=FNs(K%,h%):K%!a%-=3:PROCd(K%):PROCj(K%):a$=FNa(49)+" "+FNa(53):PROCn(a$,11):PROCe(750):IFNOTo%!Ka%THEN
IFo%!X%>=c%(10)THEN
PROCM(o%)
ENDIF
ENDIF
PROCc(m%):PROCc(e%):PROCc(d%):PROCc(p%):PROCc(o%):PROCc(D%):FORi%=1TO7:PROCc(a%(i%)):NEXTi%:ENDPROC
DEFPROCD:IFm%!b%<=0THEN
m%!b%=0
ELSE:m%!M%=0-m%!N%
ENDIF
ENDPROC
DEFPROCE:IFm%!b%>=h%!f%-m%!f%THEN
m%!b%=h%!f%-m%!f%
ELSE:m%!M%=0+m%!N%
ENDIF
ENDPROC
DEFPROCC(x%,y%):IFNOTp%!q%THEN
p%!q%=TRUE:p%!b%=x%+(m%!f%/2):p%!a%=y%+m%!k%
ENDIF
ENDPROC
DEFPROCp:REPEAT:UNTILNOTINKEY(-82):OSCLI"ScreenSave <Invaders$Dir>.Dump"+STR$(ea%):ea%+=1:ENDPROC
DEFPROCF:LOCALi%:FORi%=1TO7:a%(i%)!q%=FALSE:NEXTi%:o%!W%=0:o%!Ka%=TRUE:ENDPROC
DEFPROCq:REPEAT:UNTILNOTINKEY(-102):fa%=FNm(fa%):IFfa%=1THENOSCLI"PlayStart"ELSEOSCLI"PlayPause"
ENDPROC
DEFPROCG:REPEATUNTILNOTINKEY(-56):o%!La%=FNm(o%!La%):o%!Ma%=o%!La%:PROCr(o%!Ma%):ENDPROC
DEFPROCS:IFd%!q%THEN
IFNOTd%!na%THEN
d%!na%=TRUE:d%!oa%=d%!E%:PROCa(FNb(12),d%!b%,d%!a%)
ENDIF
ENDIF
ENDPROC
DEFPROCH:LOCALUa%,Va%:Ua%=oa%:IFp%!q%THEN
p%!Ua%=FALSE:IFp%!a%>=P%!Aa%-p%!k%THEN
p%!q%=FALSE:p%!Ua%=TRUE
ENDIF
IFp%!Ua%THEN
Va%=FNi(p%):Va%!a%-=2:PROCd(Va%):PROCc(Va%)
ELSE:PROCa(FNb(5),p%!b%,p%!a%)
ENDIF
p%!a%+=p%!N%
ENDIF
ENDPROC
DEFPROCI:LOCALWa%,Xa%,Ya%,h$:Wa%=oa%:Xa%=pa%:Ya%=qa%:IFNOTd%!q%THEN
IFFNn(4)ANDFNn(5)THEN
d%!q%=TRUE:d%!na%=FALSE:d%!Xa%=0:d%!Ya%=0:IFFNn(50)THEN
d%!M%=0-d%!N%:d%!b%=h%!f%
ELSE:d%!M%=0+d%!N%:d%!b%=0-d%!f%
ENDIF
ENDIF
ELSE:d%!Xa%+=1:d%!E%+=1:IFd%!b%<=0-d%!f%ANDSGN(d%!M%)=-1THEN
d%!Wa%=FALSE:d%!q%=FALSE:d%!E%=0:ENDPROC
ENDIF
IFd%!b%>h%!f%ANDSGN(d%!M%)=1THEN
d%!Wa%=FALSE:d%!q%=FALSE:d%!E%=0:ENDPROC
ENDIF
IFNOTd%!na%THEN
IFFNp(p%,d%)THEN
PROCd(p%):PROCa(FNb(12),d%!b%,d%!a%):d%!Wa%=d%!E%:d%!na%=TRUE:p%!q%=FALSE:PROCg(500)
ENDIF
ELSE:IFFNp(p%,d%)THEN
PROCd(p%):p%!q%=FALSE
ENDIF
ENDIF
IFNOTd%!na%THEN
IFd%!Xa%>=1000THENd%!Xa%=0
IFd%!Xa%MOD10=0THEN
d%!Ya%=FNm(d%!Ya%)
ENDIF
h$=FNb(10)+STR$(d%!Ya%):PROCa(h$,d%!b%,d%!a%):d%!b%+=d%!M%
ELSE:IFd%!E%>=d%!Wa%+80THEN
PROCd(d%):d%!q%=FALSE:d%!Wa%=FALSE:d%!E%=0:d%!Ya%=TRUE
ELSE:IFd%!E%>=d%!Wa%+60THEN
PROCa(FNb(15),d%!b%,d%!a%)
ELSE:IFd%!E%>=d%!Wa%+40THEN
PROCa(FNb(14),d%!b%,d%!a%)
ELSE:IFd%!E%>=d%!Wa%+20THEN
PROCa(FNb(13),d%!b%,d%!a%)
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDPROC
DEFPROCJ:LOCALZa%,z%,F%,L%,_a%,`a%,ab%,Y%:LOCALG%,bb%,cb%:G%=oa%:bb%=sa%:cb%=ta%:e%!E%+=1:IFe%!E%MOD5=0THENe%!G%=FNm(e%!G%)
IFe%!E%>1000THENe%!E%=0
Za%=e%!b%+e%!f%:Y%=0-((e%!bb%-1)*(D%!f%+e%!Oa%)):IFZa%>=h%!f%THEN
e%!M%=0-e%!N%:PROCs
ENDIF
IFe%!b%<=Y%THEN
e%!M%=0+e%!N%:PROCs
ENDIF
Y%=e%!a%+((e%!Ra%-1)*D%!k%):IFY%<=m%!a%+m%!k%THEN
PROCN:ENDPROC
ENDIF
IFFNp(p%,e%)THEN
z%=D%!f%+e%!Oa%:IF(p%!b%-e%!b%)MODz%<=D%!f%THEN
F%=((p%!a%-e%!a%)DIVD%!k%)+1:L%=((p%!b%-e%!b%)DIVz%)+1:IFSGN(b%(L%,F%))=1THEN
b%(L%,F%)=-5:PROCd(p%):p%!q%=FALSE:e%!na%+=1:CASEF%OF
WHEN1,2:PROCg(50)
WHEN3,4:PROCg(75)
WHEN5,6:PROCg(100)
ENDCASE
ENDIF
ENDIF
ENDIF
IFe%!na%>=e%!Pa%*e%!Qa%THEN
o%!Ja%+=1:PROCd(e%):PROCf(P%!Ba%):PROCh(o%!W%):PROCk(o%!Ja%):PROCt
ENDIF
_a%=TRUE:`a%=TRUE:FORF%=1TOe%!Qa%:IFb%(e%!cb%,F%)<>0THEN_a%=FALSE
IFb%(e%!bb%,F%)<>0THEN`a%=FALSE
NEXTF%:ab%=TRUE:FORL%=1TOe%!Pa%:IFb%(L%,e%!Ra%)<>0THENab%=FALSE
NEXTL%:IF`a%THENe%!bb%+=1
IF_a%THEN
e%!f%-=(D%!f%+e%!Oa%):e%!cb%-=1
ENDIF
IFab%THENe%!Ra%+=1
e%!b%+=e%!M%:PROCl:ENDPROC
DEFPROCK:LOCALG%,db%,eb%,i%,j%,x%,y%,fb%,gb%,h$,k$:G%=oa%:db%=pa%:FORi%=1TO7:IFNOTa%(i%)!q%THEN
fb%=RND(10):gb%=o%!Ja%+5:IFgb%>100THEN
gb%=100:IFo%!Ja%MOD10=0THENe%!Sa%+=1
ENDIF
IFFNn(gb%)ANDFNn(e%!Sa%)THEN
IFb%(fb%,e%!Ra%)>0THEN
x%=e%!b%+(fb%-1)*(D%!f%+e%!Oa%):y%=e%!a%+(e%!Ra%-1)*D%!k%:a%(i%)!b%=x%+D%!f%/2:a%(i%)!a%=y%:a%(i%)!q%=TRUE:a%(i%)!na%=FALSE:a%(i%)!E%=0:a%(i%)!db%=1:a%(i%)!G%=0:eb%=4:IFFNn(25)THENa%(i%)!db%=2:eb%=eb%/2
a%(i%)!N%=eb%:a%(i%)!M%=a%(i%)!N%
ENDIF
ENDIF
ELSE:a%(i%)!E%+=1:IFa%(i%)!E%>1000THENa%(i%)!E%=0
IFa%(i%)!E%MOD5=0THEN
a%(i%)!G%+=1
ENDIF
IFa%(i%)!db%=1ANDa%(i%)!G%>1THEN
a%(i%)!G%=0
ENDIF
IFa%(i%)!db%=2ANDa%(i%)!G%>3THEN
a%(i%)!G%=0
ENDIF
a%(i%)!a%-=a%(i%)!M%:k$=STR$(a%(i%)!G%):IFa%(i%)!db%=2ANDa%(i%)!G%=3THENk$="1"
h$=FNb(30)+STR$(a%(i%)!db%)+k$:PROCa(h$,a%(i%)!b%,a%(i%)!a%):IFa%(i%)!a%<=P%!Ba%+(P%!k%+5)THEN
a%(i%)!q%=FALSE:PROCd(a%(i%))
ENDIF
IFFNp(a%(i%),m%)ANDa%(i%)!q%THEN
FORj%=1TO3:PROCa(FNb(2)+STR$(j%),m%!b%,m%!a%):PROCe(20):WAIT:NEXTj%:PROCd(m%):IFp%!q%THEN
PROCd(p%):p%!q%=FALSE
ENDIF
m%!b%=FNf(m%,h%):o%!W%-=1:PROCh(o%!W%):PROCd(a%(i%)):a%(i%)!q%=FALSE:PROCa(FNb(1),m%!b%,m%!a%)
ENDIF
IFFNp(p%,a%(i%))ANDa%(i%)!q%THEN
IFa%(i%)!db%=1THEN
a%(i%)!q%=FALSE:PROCg(5):PROCd(a%(i%))
ENDIF
PROCd(p%):p%!q%=FALSE
ENDIF
ENDIF
NEXTi%:ENDPROC
DEFPROCL:o%!E%+=1:IFo%!E%=1000THENo%!E%=0
IFo%!E%MOD50=0THEN
o%!Ma%=FNm(o%!Ma%)
ENDIF
PROCr(o%!Ma%):ENDPROC
DEFPROCx(hb%):LOCALi%,n$:FORi%=1TO10:IFi%MOD2=0THENn$=FNa(71)ELSEn$=FNa(70)
a$(i%)=FNo(n$):c%(i%)=(11-i%)*1000:d%(i%)=0:NEXTi%:IFhb%THENPROCu
ENDPROC
DEFPROCy:LOCALi%,R%:R%=OPENIN"<Invaders$Dir>.Resources.HiTable":FORi%=1TO10:INPUT#R%,a$(i%),c%(i%):INPUT#R%,d%(i%):NEXTi%:CLOSE#R%:ENDPROC
DEFPROCu:LOCALi%,R%:R%=OPENOUT"<Invaders$Dir>.Resources.HiTable":FORi%=1TO10:PRINT#R%,a$(i%),c%(i%):PRINT#R%,d%(i%):NEXTi%:CLOSE#R%:ENDPROC
DEFPROCM(o%):LOCALI%,H%,ib%,g%,i%,jb%,O%,x%,y%,a$:H%=FNd(16):I%=FNd(16):H%!f%=FNc(100,1):H%!k%=FNc(40,2):H%!b%=FNf(H%,h%):H%!a%=800:I%!f%=FNc(150,1):I%!k%=FNc(40,2):I%!b%=FNf(I%,h%):I%!a%=H%!a%-I%!k%:jb%=0:FORi%=10TO1STEP-1
IFo%!X%>=c%(i%)THENjb%=i%
NEXTi%:FORi%=9TOjb%STEP-1:a$(i%+1)=a$(i%):c%(i%+1)=c%(i%):d%(i%+1)=d%(i%):NEXTi%:c%(jb%)=o%!X%:d%(jb%)=o%!Ja%:CLS:PROCf(P%!Aa%):PROCf(P%!Ba%):PROCa(FNb(100),H%!b%,H%!a%):PROCa(FNb(101),I%!b%,I%!a%):a$=FNa(54)+" "+STR$(o%!X%)
a$+=" "+FNa(55)+" "+STR$(jb%)+FNA(jb%):O%=LEN(a$)*h%!V%:x%=FNk(O%,h%!f%):y%=I%!a%-170:PROCb(x%,y%,a$,0):PROCc(H%):PROCc(I%):K%!f%=165:K%!k%=40:K%=FNs(K%,h%):PROCj(K%):x%=K%!b%+20:y%=K%!a%+12:a$="":i%=1:ib%=FALSE
OSCLI"FX 21,0":REPEAT:g%=GET:CASEg%OF
WHEN13:ib%=TRUE
WHEN8:i%-=1:a$=LEFT$(a$,i%-1)
OTHERWISE:IFi%<9ANDFNB(g%)THENi%+=1:a$+=CHR$(g%)
ENDCASE
IFi%<1THENi%=1
PROCb(x%,y%,STRING$(8," "),0):IFa$=""THEN
PROCb(x%,y%," ",0)
ELSE:PROCb(x%,y%,a$,0)
ENDIF
UNTILib%:IFa$=""ORa$=" "THENa$=FNa(56)
a$(jb%)=FNo(a$):IFga%THENPROCu
ENDPROC
DEFFNB(kb%):LOCALUa%:Ua%=FALSE:IFkb%>=32ANDkb%<=126THENUa%=TRUE
=Ua%
DEFPROCA(lb%,mb%,l%,r%):LOCALx%,a$:a$=FNa(57)+FNl(STR$(lb%),10," ",TRUE):PROCb(0,h%!k%-h%!T%,a$,0):a$=FNa(58)+" "+FNa(57):a$+=" "+FNa(59)+FNl(STR$(mb%),10," ",TRUE):x%=h%!f%-LEN(a$)*h%!V%:PROCb(x%,h%!k%-h%!T%,a$,0):PROCh(l%):PROCk(r%):ENDPROC
DEFPROCh(nb%):LOCALa$:PROCa(FNb(1),0,0):a$=" = "+STR$(nb%):PROCb(m%!f%,0,a$,0):ENDPROC
DEFPROCk(nb%):LOCALx%,a$:a$=FNa(60)+" "+FNa(59):a$+=FNl(STR$(nb%),3,"0",TRUE):x%=h%!f%-LEN(a$)*h%!V%:PROCb(x%,0,a$,0):ENDPROC
DEFPROCr(ob%):LOCALx%,y%,O%,a$:a$=FNa(49)+" "+FNa(61):IFob%=0ORo%!La%=0THEN
a$=STRING$(LEN(a$)," ")
ENDIF
O%=LEN(a$)*h%!V%:x%=FNk(O%,h%!f%):y%=h%!k%-h%!T%:PROCb(x%,y%,a$,0):ENDPROC
DEFPROCg(pb%):LOCALx%,a$:o%!X%+=pb%:a$=FNa(57)+" "+FNa(59):a$+=FNl(STR$(o%!X%),10," ",TRUE):PROCb(0,h%!k%-h%!T%,a$,0):IFo%!X%-o%!Na%>=5000THEN
o%!W%+=1:PROCh(o%!W%):o%!Na%=o%!X%
ENDIF
IFo%!X%>c%(1)THEN
a$=FNa(58)+" "+FNa(57)+" ":a$+=FNa(59):a$+=FNl(STR$(o%!X%),10," ",TRUE):x%=h%!f%-LEN(a$)*h%!V%:PROCb(x%,h%!k%-h%!T%,a$,0)
ENDIF
ENDPROC
DEFPROCB:LOCALG%,bb%,cb%,Ra%:G%=oa%:bb%=sa%:cb%=ta%:Ra%=ua%:PROCt:PROCl:ENDPROC
DEFPROCt:LOCALF%,L%,s%:e%!b%=50:e%!a%=550:e%!G%=0:e%!na%=0:e%!N%=3:e%!M%=e%!N%:e%!bb%=1:e%!cb%=e%!Pa%:e%!Ra%=1:s%=(e%!Pa%*D%!f%)+((e%!Pa%-1)*e%!Oa%):e%!f%=s%:e%!k%=e%!Qa%*D%!k%:FORL%=1TOe%!Pa%:FORF%=1TOe%!Qa%
b%(L%,F%)=((F%+1)/2)+(e%!G%*10):NEXTF%:NEXTL%:ENDPROC
DEFPROCl:LOCALF%,L%,x%,y%,v%:v%=FNd(16):FORL%=e%!bb%TOe%!cb%:x%=e%!b%+((L%-1)*(D%!f%+e%!Oa%)):FORF%=e%!Ra%TOe%!Qa%:y%=e%!a%+((F%-1)*D%!k%):IFb%(L%,F%)>0THEN
b%(L%,F%)=((F%+1)/2)+(e%!G%*10)
ENDIF
IFb%(L%,F%)<>0THEN
CASESGN(b%(L%,F%))OF
WHEN-1:PROCO(x%,y%,L%,F%)
WHEN1:PROCa(FNb(27)+STR$(b%(L%,F%)),x%,y%)
ENDCASE
ELSE:v%!b%=x%:v%!a%=y%:v%!f%=D%!f%:v%!k%=D%!k%:PROCd(v%)
ENDIF
NEXTF%:NEXTL%:PROCc(v%):ENDPROC
DEFPROCO(x%,y%,r%,c%):LOCALqb%:qb%=FNd(16):b%(r%,c%)+=1:PROCa(FNb(26),x%,y%):IFb%(r%,c%)=0THEN
qb%!b%=x%:qb%!a%=y%:qb%!f%=D%!f%:qb%!k%=D%!k%:PROCd(qb%)
ENDIF
PROCc(qb%):ENDPROC
DEFPROCs:LOCALv%,i%:v%=FNd(16):FORi%=1TO3:e%!a%-=D%!k%/3:PROCl:NEXTi%:v%!b%=e%!b%:v%!a%=e%!a%+e%!k%:v%!f%=e%!f%:v%!k%=D%!k%:PROCd(v%):PROCc(v%):ENDPROC
DEFPROCN:LOCALS%,Z%,G%,rb%,N%,i%,j$:N%=1:sb%=24:S%=FNd(28):Z%=FNd(28):PROCd(e%):PROCd(m%):IFp%!q%THEN
PROCd(p%):p%!q%=FALSE
ENDIF
IFd%!q%THEN
PROCd(d%):d%!q%=FALSE
ENDIF
FORi%=1TO7:IFa%(i%)!q%THEN
PROCd(a%(i%)):a%(i%)!q%=FALSE
ENDIF
NEXTi%:m%!b%=FNf(m%,h%):S%!b%=0-D%!f%:S%!a%=m%!a%:S%!M%=N%:Z%!b%=h%!f%:Z%!a%=m%!a%:Z%!M%=0-N%:o%!W%=0:PROCf(P%!Ba%):PROCh(o%!W%):PROCk(o%!Ja%):PROCa(FNb(1),m%!b%,m%!a%):G%=0:rb%=FALSE:REPEAT:S%!b%+=S%!M%:S%!sb%=S%!b%+D%!f%:Z%!b%+=Z%!M%:G%+=1
IFG%MOD20=0THENrb%=FNm(rb%)
IFG%>1000THENG%=0
IFrb%THENj$=FNb(21)ELSEj$=FNb(20)
PROCa(j$,S%!b%,S%!a%):PROCa(j$,Z%!b%,Z%!a%):PROCe(2):WAIT:UNTILS%!sb%>=m%!b%:FORi%=1TO10:PROCa(FNb(20),S%!b%,S%!a%):PROCa(FNb(20),Z%!b%,Z%!a%):PROCe(20):PROCa(FNb(21),S%!b%,S%!a%):PROCa(FNb(21),Z%!b%,Z%!a%):PROCe(20):WAIT:NEXTi%:FORi%=1TO3
PROCa(FNb(2)+STR$(i%),m%!b%,m%!a%):PROCe(20):WAIT:NEXTi%:PROCe(20):PROCd(m%):PROCc(S%):PROCc(Z%):ENDPROC
DEFFNu(d$):LOCALtb%,C%:C%=FNC(d$)+256:tb%=FNd(C%):!tb%=C%:tb%!4=0:tb%!8=16:tb%!12=16:SYSia%,256+10,tb%,d$:SYSia%,256+17,tb%:=tb%
DEFPROCb(x%,y%,a$,ub%):LOCALi%,vb%:la%=ka%:vb%=h%!V%:FORi%=1TOLEN(a$):PROCa(STR$(ASC(MID$(a$,i%,1))),x%+((i%-1)*vb%),y%):IFub%>0THENPROCe(ub%)
NEXTi%:la%=ja%:ENDPROC
DEFPROCa(r$,x%,y%):LOCALwb%:SYSia%,256+24,la%,r$TO,,wb%:SYSia%,512+34,la%,wb%,x%,y%,0:ENDPROC
DEFPROCd(w%):GCOL0,0TINT0:RECTANGLEFILLw%!b%,w%!a%,w%!f%,w%!k%:ENDPROC
DEFFNk(xb%,h%):=(h%/2)-(xb%/2)
DEFPROCn(a$,yb%):LOCALO%,y%:O%=LEN(a$)*h%!V%:y%=(h%!k%/2)-(h%!T%/2):PROCb(FNk(O%,h%!f%),y%,a$,yb%):ENDPROC
DEFFNf(zb%,Ab%):=(Ab%!f%/2)-(zb%!f%/2)
DEFFNs(zb%,Ab%):LOCALx%,y%:zb%!b%=(Ab%!f%/2)-(zb%!f%/2):zb%!a%=(Ab%!k%/2)-(zb%!k%/2):=zb%
DEFPROCf(a%):LOCALi%,Bb%:Bb%=h%!f%/P%!f%:FORi%=1TOBb%+1:PROCa(FNb(108),(i%-1)*P%!f%,a%):NEXTi%:ENDPROC
DEFPROCj(w%):LOCALx%,y%,Cb%,Db%,Eb%,Fb%,i%:Cb%=FNc(3,1):Db%=FNc(3,2):Eb%=1:Fb%=3:FORi%=1TOw%!f%:x%=w%!b%+((i%-1)*Eb%):PROCa(FNb(113),x%,w%!a%):PROCa(FNb(113),x%,w%!a%+(w%!k%-(2*Fb%))):NEXTi%:x%=w%!b%+(w%!f%-Cb%):FORi%=1TOw%!k%-1
PROCa(FNb(114),w%!b%,w%!a%+((i%-1)*Eb%)):PROCa(FNb(114),x%,w%!a%+((i%-1)*Eb%)):NEXTi%:PROCa(FNb(111),w%!b%,w%!a%):PROCa(FNb(109),w%!b%,(w%!a%+w%!k%)-Db%):PROCa(FNb(112),w%!b%+(w%!f%-Cb%),w%!a%):x%=(w%!b%+w%!f%)-Cb%:y%=(w%!a%+w%!k%)-Db%
PROCa(FNb(110),x%,y%):ENDPROC
DEFFNr(d$,g$):LOCAL_%,Gb%,i$:_%=OPENIN(d$):INPUT#_%,i$:IFi$<>g$THENCLOSE#_%:ERROR255,"Bad Magic!"
INPUT#_%,Gb%:CLOSE#_%:=Gb%
DEFPROCi(d$,g$,RETURNi%(),RETURNf$()):LOCAL_%,i%,Gb%,i$:_%=OPENIN(d$):INPUT#_%,i$:IFi$<>g$THENCLOSE#_%:ERROR255,"Bad Magic!"
INPUT#_%,Gb%:FORi%=1TOGb%:INPUT#_%,i%(i%),f$(i%):NEXTi%:CLOSE#_%:ENDPROC
DEFFNa(Hb%):=FNt(Hb%,ba%,f%(),b$(),106)
DEFFNb(Hb%):=FNt(Hb%,ca%,g%(),c$(),107)
DEFFNe(Hb%):=FNt(Hb%,da%,h%(),d$(),108)
DEFFNt(Hb%,Ib%,j%(),g$(),Jb%):LOCALi%,Kb%:Kb%=0:FORi%=1TOIb%:IFj%(i%)=Hb%THENKb%=i%:i%=Ib%
NEXTi%:IFKb%=0THENERROR255,FNa(Jb%)+" "+STR$(Hb%)
=FNo(g$(Kb%))
DEFPROCm:LOCALv%:v%=FNd(20):v%!0=4:v%!4=5:v%!8=11:v%!12=12:v%!16=-1:SYSFNe(5),v%,v%:h%!xa%=v%!0:h%!ya%=v%!4:h%!f%=(v%!8)+1<<v%!0:h%!k%=(v%!12)+1<<v%!4:h%!za%=MODE:PROCc(v%):ENDPROC
DEFFNc(C%,Lb%):LOCALMb%,Nb%:Nb%=MODE:IFNb%<>h%!za%THENPROCm
CASELb%OF
WHEN1:Mb%=C%<<h%!xa%
WHEN2:Mb%=C%<<h%!ya%
WHEN3:Mb%=C%>>h%!xa%
WHEN4:Mb%=C%>>h%!ya%
OTHERWISE:ERROR255,FNa(103)+" "+STR$(Lb%)
ENDCASE
=Mb%
DEFFNp(w%,Ob%):LOCALPb%,Qb%,Rb%,Sb%:Rb%=FALSE:Sb%=FALSE:IFw%!q%ANDOb%!q%THEN
Pb%=Ob%!b%+Ob%!f%:Qb%=Ob%!a%+Ob%!k%:IFw%!b%>=Ob%!b%ANDw%!b%<Pb%THENRb%=TRUE
IFw%!a%>=Ob%!a%ANDw%!a%<Qb%THENSb%=TRUE
ENDIF
=Rb%ANDSb%
DEFPROCv:LOCALm$:ONERROROFF
m$=" Panic!!!":CASEERROF
WHEN17:m$="Program Terminated."
WHEN254:m$="ASH"+m$
WHEN255:m$="Game"+m$
OTHERWISE:m$="System"+m$
ENDCASE
PRINTm$:PRINTSTRING$(LEN(m$),"="):PRINT:REPORT:PRINT" at line : ";ERL:OSCLI"PlayStop":PROCo:ENDPROC
DEFFNj(t$,o$):LOCALe$,J%,Kb%:Kb%=FALSE:e$=STRING$(10," "):RIGHT$(e$,3)=" : ":LEFT$(e$,LEN(o$))=o$:J%=FNv(t$):IFJ%=1THEN
e$+="OK.":Kb%=TRUE
ELSE:e$+="Missing!!"
ENDIF
PRINTe$:=Kb%
DEFFNn(n%):LOCALTb%:Tb%=RND(100):=Tb%<=n%
DEFFNo(a$):LOCALi%,p$:FORi%=1TOLEN(a$):p$+=CHR$(ASC(MID$(a$,i%,1))EOR131):NEXTi%:=p$
DEFPROCe(n%):LOCALt%:t%=TIME+n%:REPEAT:UNTILTIME>=t%:ENDPROC
DEFFNm(n%):=n%EOR1
DEFFNA(n%):LOCALc$,u%:u%=VAL(RIGHT$(STR$(n%),1)):c$=FNa(65):IFu%>=1ANDu%<=3THENc$=FNa(u%+61)
=c$
DEFFNl(a$,Ub%,q$,Vb%):LOCALWb%,c$:Wb%=Ub%-LEN(a$):IFWb%<=0THEN
c$=LEFT$(a$,Ub%)
ELSE:IFVb%THEN
c$=STRING$(Ub%,q$):RIGHT$(c$,LEN(a$))=a$
ELSE:c$=a$+STRING$(Wb%,q$)
ENDIF
ENDIF
=c$
DEFFNx(a$,Ub%):LOCALc$:c$=STRING$(Ub%," "):RIGHT$(c$,LEN(a$))=a$:=c$
DEFFNv(f$):LOCALKb%:SYS"XOS_File",17,f$TOKb%:=Kb%
DEFFNC(f$):LOCALC%:SYSFNe(3),5,f$TO,,,,C%:=C%
DEFFNw(Lb%,f$):LOCALR%,Xb%,Yb%,Zb%:Zb%=FALSE:CASELb%OF
WHEN0:R%=OPENUP(f$+"chkfile")
WHEN1:R%=OPENUP(f$)
OTHERWISE:ERROR255,FNa(104)+" "+STR$(Lb%)
ENDCASE
IFR%<>0THEN
SYSFNe(4),254,R%TOYb%;Xb%:IF(Xb%AND1)THEN
CLOSE#R%:ERROR255,FNa(105)
ENDIF
IF((Yb%AND(1<<7))<>0)THENZb%=TRUE
CLOSE#R%
ENDIF
=Zb%
DEFPROCw:LOCAL_b%:`%=0:`b%=0:SYSFNe(10),-1,-1TOac%:SYSFNe(11)TObc%;_b%:IF_b%AND1THENbc%=16384
PROCP(bc%):ENDPROC
DEFPROCo:IF`%THEN
SYSFNe(10),`%-32768,-1TOac%:`%=0:`b%=0
ENDIF
ENDPROC
DEFFNd(cc%):LOCALA%,C%:C%=(cc%+15)AND-4:A%=FND(C%):IFA%ELSEERROR254,FNa(111)
A%!0=&DEADDEAD:A%!4=cc%:!(A%-8+(A%!-4))=&DEADDEAD:=A%+8
DEFPROCc(RETURNA%):A%-=8:IFA%!0<>&DEADDEADTHENERROR254,FNa(112)
IF!(A%-8+(A%!-4))<>&DEADDEADTHEN
ERROR254,FNa(113)
ENDIF
`b%-=A%!-4:SYSFNe(12),3,`%,A%:A%=0:ENDPROC
DEFFNy(A%):LOCALv%:v%=A%-4:=v%!0
DEFFNh(A%,pb%):PROCQ(A%,pb%):=A%
DEFPROCQ(A%,pb%):LOCALY%,C%:C%=FNy(A%):FORY%=0TOC%-4STEP4:A%!Y%=pb%:NEXTY%:ENDPROC
DEFFNi(A%):LOCALdc%,Y%,C%:C%=FNy(A%):dc%=FNd(C%):FORY%=0TOC%-4STEP4:dc%!Y%=A%!Y%:NEXTY%:=dc%
DEFPROCP(C%):IF`%THENERROR254,FNa(115)
C%=(C%+bc%-1)ANDNOT(bc%-1):`%=HIMEM:SYSFNe(10),ac%+C%,-1TOac%:C%=ac%+32768-`%:IFC%<1THEN
`%=0:ERROR254,FNa(116)
ELSE:SYSFNe(12),0,`%,,C%
ENDIF
`b%=0:ENDPROC
DEFPROCR(cc%):LOCALec%:ec%=ac%:SYSFNe(10),ac%+cc%,-1TOac%:cc%=ac%-ec%:IFcc%THENSYSFNe(12),5,`%,,cc%TO,,,cc%
ENDPROC
DEFFND(cc%):LOCALA%,_b%:SYSFNe(13),2,`%,,cc%TO,,A%;_b%:IF_b%AND1THEN
PROCR((cc%+bc%)ANDNOT(bc%-1)):SYSFNe(13),2,`%,,cc%TO,,A%;_b%:IF_b%AND1THEN=0
ENDIF
`b%+=A%!-4:=A%