REM Acorn Invaders
REM Packed by Make v1.41 15/5/08 On 09 Jul 2008
ONERRORPROCx: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$+"ImgLUT","Lookups")THENaa%=TRUE
IFNOTFNj(b$+"SWIs","Lookups")THENaa%=TRUE
IFaa%THENERROR255,"File Missing!!"
PRINT:PRINT"Loading Messages...";:ba%=FNs(b$+"Msg","SGSM"):DIMf%(ba%),b$(ba%):PROCj(b$+"Msg","SGSM",f%(),b$()):PRINTFNa(14):PRINTFNa(9)+" "+FNa(3);:ca%=FNs(b$+"ImgLUT","TULI"):DIMg%(ca%),c$(ca%):PROCj(b$+"ImgLUT","TULI",g%(),c$()):PRINTFNa(14)
PRINTFNa(9)+" "+FNa(13);:da%=FNs(b$+"SWIs","TULS"):DIMh%(da%),d$(da%):PROCj(b$+"SWIs","TULS",h%(),d$()):PRINTFNa(14):PRINTFNa(8)+" "+FNa(1):OSCLI"PlayVolume 0":OSCLI"Playmod "+b$+"Intro":OSCLI"PlayPause":PRINT:PRINTFNa(12):PRINTFNa(8)+" "+FNa(2)
PROCy:o%=FNg(FNe(48),0):o%!0=1:o%!4=127:o%!40=FNv(0):IFo%!40=-1THENERROR255,FNa(109)
PRINTFNa(15)+STR$(o%!40):aa%=FALSE:o%!44=TRUE:ea%=0:DIMa$(10),c%(10):DIMd%(10):PRINT:PRINTFNa(17)+" "+FNa(16):SYSFNd(1),,FNd(2)TOfa%:PRINTFNa(9)+" "+FNa(4);:ga%=FNw(b$+"Gfx0"):PRINTFNa(14):PRINTFNa(9)+" "+FNa(5);:ha%=FNw(b$+"Gfx1"):PRINTFNa(14):ia%=ga%
PRINT:PRINTFNa(9)+" "+FNa(6);:_%=OPENIN(b$+"Creds"):INPUT#_%,i$:IFi$<>"DERC"THEN
CLOSE#_%:ERROR255,FNa(101):END
ENDIF
INPUT#_%,ea%:DIMe$(ea%),e%(ea%):FORi%=1TOea%:INPUT#_%,e%(i%),e$(i%):NEXTi%:CLOSE#_%:PRINTFNa(14):PRINT:PRINTFNa(7):p$=b$+"HiTable":IFFNq(p$)<>1THEN
IFNOTFNx(0,b$)THEN
o%!44=FALSE:PRINTFNa(19)+" "+FNa(10)+" "+FNa(20)
ELSE:PRINTFNa(19)+" "+FNa(11)+" "+FNa(20)
ENDIF
PROCz(o%!44)
ELSE:IFNOTFNx(1,p$)THEN
o%!44=FALSE:PRINTFNa(18)+" "+FNa(10)+" "+FNa(20)
ELSE:PRINTFNa(18)+" "+FNa(11)+" "+FNa(20)
ENDIF
PROCA
ENDIF
PRINT:PRINTFNa(12):PROCe(150):b%=0:a%=4:e%=8:k%=12:M%=16:N%=20:B%=24:`%=28:ja%=32:ka%=36:la%=40:ma%=44:na%=48:oa%=52:pa%=56:qa%=60:ra%=64:sa%=16:ta%=20:ua%=24:V%=28:T%=32:va%=16:wa%=20:f%=FNe(36):Q%=FNe(24):K%=FNe(16)
CLS:PROCo:f%!V%=FNc(8,1):f%!T%=FNc(8,2)+7:Q%!e%=FNc(6,1):Q%!k%=FNc(6,2):Q%!va%=f%!k%-50:Q%!wa%=30:OSCLI"PlayVolume "+STR$(o%!4):OSCLI"PlayStart":WHILENOTFNA:CLS:PROCB:ENDWHILE:CLS:K%!e%=220:K%!k%=40:K%=FNt(K%,f%):K%!a%-=3:PROCk(K%):PROCp(FNa(31),10):IFo%!0=1THEN
FORi%=o%!4TO1STEP-2:OSCLI"PlayVolume "+STR$(i%):PROCe(4):NEXTi%:OSCLI"PlayStop":OSCLI"PlayVolume 127"
ENDIF
PROCq:END
DEFFNA:LOCALi%,H%,I%,v%,O%,h%,U%,xa%,ya%:LOCALm%,R%,za%,Aa%,Ba%,W%,Ca%,Da%,Ea%:LOCALx%,y%,J%,Fa%,s$,a$:Fa%=44:H%=FNg(FNe(16),0):I%=FNg(FNe(16),0):v%=FNg(FNe(16),0):h%=FNg(FNe(16),0):U%=FNg(FNe(16),0):R%=FNg(FNe(16),0):m%=FNg(FNe(16),0)
H%!e%=FNc(100,1):H%!k%=FNc(40,2):H%!b%=FNh(H%,f%):H%!a%=800:I%!e%=FNc(150,1):I%!k%=FNc(40,2):I%!b%=FNh(I%,f%):I%!a%=H%!a%-I%!k%:v%!e%=720:v%!k%=500:v%!b%=FNh(v%,f%):v%!a%=200:h%!e%=FNc(40,1):h%!k%=FNc(20,2)
h%!b%=(v%!b%+v%!e%/2)-150:h%!a%=(v%!a%+v%!k%)-125:m%!e%=FNc(30,1):m%!k%=FNc(15,2):U%!e%=FNc(20,1):U%!k%=FNc(20,2):U%!b%=(v%!b%+v%!e%/2)-150:U%!b%+=FNh(U%,h%):xa%=FNf(U%):ya%=FNf(U%)::ya%!a%=h%!a%-40-ya%!k%:xa%!a%=ya%!a%-40-xa%!k%
U%!a%=xa%!a%-40-U%!k%:R%!e%=FNc(20,1):R%!k%=FNc(20,2):R%!b%=(v%!b%+v%!e%/2)-120:za%=FNf(R%):Aa%=FNf(R%):Ba%=FNf(R%):Ba%!b%=v%!b%:Ga%=FNf(Ba%):Ca%=FNf(Ba%):W%=FNf(R%):W%!b%=v%!b%:W%!b%+=(v%!e%/2)+10
Da%=FNf(W%):Ea%=FNf(W%)::R%!a%=(v%!a%+v%!k%)-120:za%!a%=R%!a%-60:Aa%!a%=za%!a%-60:Ca%!a%=Aa%!a%-90:Ga%!a%=Ca%!a%-60:Ba%!a%=Ga%!a%-60:W%!a%=Aa%!a%-90:Da%!a%=W%!a%-60:Ea%!a%=Da%!a%-60:CLS:PROCf(Q%!va%):PROCf(Q%!wa%)
FORi%=0-H%!e%TOH%!b%STEP5:WAIT:PROCa(FNb(100),i%,H%!a%):PROCe(1):NEXTi%:FORi%=f%!e%TOI%!b%STEP-5:WAIT:PROCa(FNb(101),i%,I%!a%):PROCe(1):NEXTi%:a$=FNa(32):O%=LEN(a$)*f%!V%:y%=170:PROCb(FNl(O%,f%!e%),y%,a$,11):a$=FNa(33):O%=LEN(a$)*f%!V%:y%-=f%!T%
PROCb(FNl(O%,f%!e%),y%,a$,11):WHILENOTINKEY(-99)ANDNOTINKEY(-17)ANDNOTINKEY(-82):y%=v%!a%+v%!k%:FORi%=1TOea%:a$=FNo(e$(i%)):x%=FNi(a$):CASEe%(i%)OF
WHEN-1:y%-=f%!T%
WHEN-2:y%-=(2*f%!T%)
OTHERWISE:y%-=e%(i%)
ENDCASE
PROCb(x%,y%,a$,0):NEXTi%:J%=FNr:IFJ%=1THEN=TRUE
IFJ%=2THEN=FALSE
PROCd(v%):a$=FNa(57)+" "+FNa(34):x%=FNi(a$):y%=v%!a%+v%!k%-20:PROCb(x%,y%,a$,0):a$=FNa(35):y%-=f%!T%:x%=FNi(a$):PROCb(x%,y%,a$,0):x%=h%!b%+h%!e%+10:PROCa(FNb(11),h%!b%,h%!a%):a$=FNa(36)+" "+FNa(40):PROCb(x%,h%!a%+10,a$,0)
PROCa(FNb(24),ya%!b%,ya%!a%):a$=FNa(37)+" "+FNa(40):PROCb(x%,ya%!a%+12,a$,0):PROCa(FNb(22),xa%!b%,xa%!a%):a$=FNa(38)+" "+FNa(40):PROCb(x%,xa%!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%!e%/f%!V%+2:s$=FNa(66):a$=s$+STRING$(O%," ")+FNa(67):x%=FNi(a$):y%=U%!a%-(3*f%!T%):PROCb(x%,y%,a$,0):m%!b%=x%+7+(LEN(s$)*f%!V%):m%!a%=y%:PROCa(FNb(1),m%!b%,m%!a%):J%=FNr:IFJ%=1THEN=TRUE
IFJ%=2THEN=FALSE
PROCd(v%):a$=FNa(41):x%=FNi(a$):y%=v%!a%+v%!k%-20:PROCb(x%,y%,a$,0):x%=R%!b%+R%!e%+10:PROCa(FNb(102),R%!b%,R%!a%):a$=FNa(42)+" "+FNa(43):PROCb(x%,R%!a%+12,a$,0):PROCa(FNb(103),za%!b%,za%!a%):a$=FNa(42)+" "+FNa(44):PROCb(x%,za%!a%+12,a$,0)
PROCa(FNb(104),Aa%!b%,Aa%!a%):PROCb(x%,Aa%!a%+12,FNa(45),0):x%=Ba%!b%+Ba%!e%+10:PROCa(FNb(105),Ga%!b%,Ga%!a%):a$=FNa(46)+" "+FNa(49):PROCb(x%,Ga%!a%+12,a$,0):PROCa(FNb(117),Ca%!b%,Ca%!a%):PROCb(x%,Ca%!a%+12,FNa(76),0)
PROCa(FNb(107),Ba%!b%,Ba%!a%):a$=FNa(48)+" "+FNa(49):PROCb(x%,Ba%!a%+12,a$,0):x%=W%!b%+W%!e%+10:PROCa(FNb(106),W%!b%,W%!a%):a$=FNa(47)+" "+FNa(73):PROCb(x%,W%!a%+12,a$,0):PROCa(FNb(115),Da%!b%,Da%!a%):a$=FNa(47)+" "+FNa(77)+" ":a$+=FNa(74)
PROCb(x%,Da%!a%+12,a$,0):PROCa(FNb(116),Ea%!b%,Ea%!a%):a$=FNa(47)+" "+FNa(77)+" ":a$+=FNa(75):PROCb(x%,Ea%!a%+12,a$,0):J%=FNr:IFJ%=1THEN=TRUE
IFJ%=2THEN=FALSE
PROCd(v%):a$=FNa(50):IFo%!Fa%THENa$=FNa(51)
x%=FNi(a$):y%=v%!a%+v%!k%-20:PROCb(x%,y%,a$,0):a$=FNa(58)+" "+FNa(52):x%=FNi(a$):y%-=f%!T%:PROCb(x%,y%,a$,0):y%=(v%!a%+v%!k%)-100:a$=" "+FNa(68)+"  "+FNa(69):a$+=STRING$(12," ")+FNa(57)+".":a$+=STRING$(3," ")+FNa(60)+".":x%=FNi(a$):PROCb(x%,y%,a$,0):y%-=2*f%!T%
FORi%=1TO10:IFi%<10THEN
a$="  "+STR$(i%)+".  "
ELSE:a$=" "+STR$(i%)+".  "
ENDIF
s$=FNo(a$(i%)):a$+=FNm(s$,8," ",FALSE):a$+=" .... ":a$+=FNy(STR$(c%(i%)),10):a$+=" ... "+FNy(STR$(d%(i%)),3):x%=FNi(a$):PROCb(x%,y%-(i%*(f%!T%+5)),a$,0):NEXTi%:J%=FNr:IFJ%=1THEN=TRUE
IFJ%=2THEN=FALSE
PROCd(v%):ENDWHILE:ERROR255,FNa(102):=FALSE
DEFFNr:LOCALt%,J%:t%=TIME+750:J%=FALSE:REPEAT:IFINKEY(-82)THENPROCr
IFINKEY(-102)THENPROCs
IFINKEY(-59)THENPROCi(2)
IFINKEY(-60)THENPROCi(-2)
UNTILTIME>=t%ORINKEY(-17)ORINKEY(-99):IFINKEY(-17)THENJ%=1
IFINKEY(-99)THENJ%=2
IFJ%THEN
PROCc(H%):PROCc(I%):PROCc(v%):PROCc(h%):PROCc(U%):PROCc(xa%):PROCc(ya%):PROCc(R%):PROCc(za%):PROCc(Aa%):PROCc(Ba%):PROCc(W%):PROCc(Ga%):PROCc(Ca%):PROCc(Da%):PROCc(Ea%):PROCc(m%)
ENDIF
=J%
DEFFNi(a$):LOCALO%:O%=LEN(a$)*f%!V%:=v%!b%+FNl(O%,v%!e%)
DEFPROCB:LOCALm%,q%,h%,d%,w%:LOCALF%:LOCALb%(),a%():LOCALHa%,Ia%,Ja%,Ka%:LOCALX%,La%,Ma%:LOCALNa%:LOCALOa%,Pa%,Qa%,Ra%,Sa%:LOCALTa%,O%,a$,x%,y%,i%,j%:m%=FNe(32):q%=FNe(28):h%=FNe(48):d%=FNe(68):F%=FNe(16):w%=FNg(FNe(16),0):DIMb%(10,6),a%(7)
Ha%=0:Ia%=4:Ja%=8:Ka%=12:Na%=16:X%=28:Oa%=ka%:Pa%=la%:Qa%=ma%:Ra%=pa%:Sa%=qa%:m%!e%=FNc(30,1):m%!k%=FNc(15,2):m%!b%=FNh(m%,f%):m%!a%=50:m%!N%=6:m%!M%=m%!N%:F%!e%=FNc(20,1):F%!k%=FNc(20,2)
h%!e%=FNc(40,1):h%!k%=FNc(20,2):h%!a%=Q%!va%-(10+h%!k%):h%!N%=5:h%!B%=FALSE:h%!la%=1:q%!e%=FNc(5,1):q%!k%=FNc(20,2):q%!B%=FALSE:q%!N%=10:w%!Ja%=1:w%!Ha%=3:w%!Ka%=FALSE:o%!Na%=-1:d%!Oa%=FNc(20,1):d%!Pa%=10:d%!Qa%=6:d%!B%=TRUE:d%!Sa%=4
SYSFNd(6)TOd%!ra%:FORi%=1TO7:a%(i%)=FNe(48):PROCt(a%(i%),0):a%(i%)!e%=FNc(5,1):a%(i%)!k%=FNc(20,2):SYSFNd(6)TOa%(i%)!la%:SYSFNd(6)TOa%(i%)!ma%:NEXTi%:PROCf(Q%!va%):PROCf(Q%!wa%):PROCC(0,c%(1),w%!Ha%,w%!Ja%):PROCD:PROCa(FNb(1),m%!b%,m%!a%)
WHILEw%!Ha%>0:Ta%=FALSE:IFo%!X%=0THEN
IFINKEY(-74)THENPROCE(m%!b%,m%!a%)
IFINKEY(-98)THENPROCF:Ta%=TRUE
IFINKEY(-67)THENPROCG:Ta%=TRUE
IFINKEY(-17)THENPROCH
ENDIF
IFINKEY(-102)THENPROCs
IFINKEY(-82)THENPROCr
IFINKEY(-56)THENPROCI
IFINKEY(-59)THENPROCi(2)
IFINKEY(-60)THENPROCi(-2)
IFo%!X%=0THEN
IFTa%THEN
m%!b%+=m%!M%:PROCa(FNb(1),m%!b%,m%!a%)
ENDIF
ENDIF
IFo%!X%=0THEN
PROCJ:PROCK:PROCL:PROCM:PROCN
ELSE:PROCO
ENDIF
WAIT:ENDWHILE:K%!e%=240:K%!k%=40:K%=FNt(K%,f%):K%!a%-=3:PROCd(K%):PROCk(K%):a$=FNa(49)+" "+FNa(53):PROCp(a$,11):PROCe(750):IFNOTw%!Ka%THEN
IFw%!Ia%>=c%(10)THEN
PROCP(w%)
ENDIF
ENDIF
PROCc(m%):PROCc(d%):PROCc(h%):PROCc(q%):PROCc(w%):PROCc(F%):FORi%=1TO7:PROCc(a%(i%)):NEXTi%:ENDPROC
DEFPROCF:IFm%!b%<=0THEN
m%!b%=0
ELSE:m%!M%=0-m%!N%
ENDIF
ENDPROC
DEFPROCG:IFm%!b%>=f%!e%-m%!e%THEN
m%!b%=f%!e%-m%!e%
ELSE:m%!M%=0+m%!N%
ENDIF
ENDPROC
DEFPROCE(x%,y%):IFNOTq%!B%THEN
q%!B%=TRUE:q%!b%=x%+(m%!e%/2):q%!a%=y%+m%!k%
ENDIF
ENDPROC
DEFPROCr:LOCALUa%,q$:Ua%=40:REPEAT:UNTILNOTINKEY(-82):o%!Ua%=FNv(o%!Ua%):IFo%!Ua%=-1THENERROR255,FNa(109)
q$="<Invaders$Dir>.Screens.Dump"+STR$(o%!Ua%):OSCLI"ScreenSave "+q$:ENDPROC
DEFPROCH:LOCALi%:FORi%=1TO7:a%(i%)!B%=FALSE:NEXTi%:w%!Ha%=0:w%!Ka%=TRUE:ENDPROC
DEFPROCs:LOCALVa%:Va%=0:REPEAT:UNTILNOTINKEY(-102):o%!Va%=FNk(o%!Va%):IFo%!Va%=1THEN
OSCLI"PlayStart"
ELSE:OSCLI"PlayPause"
ENDIF
ENDPROC
DEFPROCi(Wa%):LOCALVa%,Xa%,Ya%,C%:Va%=0:Xa%=4:Ya%=8:IFo%!Va%=1THEN
SYSFNd(6)TOC%:IFC%-o%!Ya%>=10THEN
IFo%!Xa%>=1ANDo%!Xa%<=127THEN
o%!Xa%+=Wa%:o%!Ya%=C%:IFo%!Xa%<1THENo%!Xa%=1
IFo%!Xa%>127THENo%!Xa%=127
OSCLI"PlayVolume "+STR$(o%!Xa%)
ENDIF
ENDIF
ENDIF
ENDPROC
DEFPROCI:LOCALX%,La%,a$:X%=28:La%=32:REPEATUNTILNOTINKEY(-56):a$=FNa(49)+" "+FNa(61):o%!X%=FNk(o%!X%):o%!La%=o%!X%:IFo%!X%=0THEN
a$=STRING$(LEN(a$)," "):PROCl(a$)
ENDIF
ENDPROC
DEFPROCJ:IFq%!B%THEN
IFq%!a%>=Q%!va%-q%!k%THEN
q%!B%=FALSE:q%!a%-=2:PROCd(q%)
ELSE:PROCa(FNb(5),q%!b%,q%!a%)
ENDIF
q%!a%+=q%!N%
ENDIF
ENDPROC
DEFPROCK:LOCALZa%,_a%,`a%,C%,ab%,d$:Za%=ja%:_a%=ka%:`a%=la%:IFNOTh%!B%THEN
IFFNn(4)ANDFNn(5)THEN
h%!B%=TRUE:h%!`%=FALSE:h%!_a%=0:IFFNn(50)THEN
h%!M%=0-h%!N%:h%!b%=f%!e%
ELSE:h%!M%=0+h%!N%:h%!b%=0-h%!e%
ENDIF
ENDIF
ELSE:IFh%!b%<=0-h%!e%ANDSGN(h%!M%)=-1THEN
h%!Za%=FALSE:h%!B%=FALSE:ENDPROC
ENDIF
IFh%!b%>f%!e%ANDSGN(h%!M%)=1THEN
h%!Za%=FALSE:h%!B%=FALSE:ENDPROC
ENDIF
IFNOTh%!`%THEN
IFFNp(q%,h%)THEN
PROCd(q%):PROCa(FNb(12),h%!b%,h%!a%):SYSFNd(6)TOh%!Za%:h%!`%=TRUE:q%!B%=FALSE:PROCg(500)
ENDIF
ELSE:IFFNp(q%,h%)THEN
PROCd(q%):q%!B%=FALSE
ENDIF
ENDIF
IFNOTh%!`%THEN
SYSFNd(6)TOC%:IFC%-h%!`a%>=40THEN
h%!`a%=C%:h%!_a%=FNk(h%!_a%)
ENDIF
d$=FNb(10)+STR$(h%!_a%):PROCa(d$,h%!b%,h%!a%):h%!b%+=h%!M%
ELSE:SYSFNd(6)TOC%:ab%=C%-h%!Za%:IFab%>=300THEN
h%!B%=FALSE:h%!_a%=1:PROCd(h%)
ELSE:IFab%>=250THEN
PROCa(FNb(15),h%!b%,h%!a%)
ELSE:IFab%>=200THEN
PROCa(FNb(14),h%!b%,h%!a%)
ELSE:IFab%>=100THEN
PROCa(FNb(13),h%!b%,h%!a%)
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDPROC
DEFPROCL:LOCALbb%,z%,G%,L%,cb%,db%,eb%,Y%:LOCALP%,fb%,gb%,C%,hb%:P%=ja%:fb%=na%:gb%=oa%:hb%=ra%:SYSFNd(6)TOC%:IFC%-d%!hb%>=50THEN
d%!hb%=C%:d%!P%=FNk(d%!P%)
ENDIF
bb%=d%!b%+d%!e%:Y%=0-((d%!fb%-1)*(F%!e%+d%!Oa%)):IFbb%>=f%!e%THEN
d%!M%=0-d%!N%:PROCu
ENDIF
IFd%!b%<=Y%THEN
d%!M%=0+d%!N%:PROCu
ENDIF
Y%=d%!a%+((d%!Ra%-1)*F%!k%):IFY%<=m%!a%+m%!k%THEN
PROCQ:ENDPROC
ENDIF
IFFNp(q%,d%)THEN
z%=F%!e%+d%!Oa%:IF(q%!b%-d%!b%)MODz%<=F%!e%THEN
G%=((q%!a%-d%!a%)DIVF%!k%)+1:L%=((q%!b%-d%!b%)DIVz%)+1:IFSGN(b%(L%,G%))=1THEN
b%(L%,G%)=-5:PROCd(q%):q%!B%=FALSE:d%!`%+=1:CASEG%OF
WHEN1,2:PROCg(50)
WHEN3,4:PROCg(75)
WHEN5,6:PROCg(100)
ENDCASE
ENDIF
ENDIF
ENDIF
IFd%!`%>=d%!Pa%*d%!Qa%THEN
w%!Ja%+=1:PROCd(d%):PROCf(Q%!wa%):PROCh(w%!Ha%):PROCm(w%!Ja%):PROCa(FNb(1),m%!b%,m%!a%):PROCv
ENDIF
cb%=TRUE:db%=TRUE:FORG%=1TOd%!Qa%:IFb%(d%!gb%,G%)<>0THENcb%=FALSE
IFb%(d%!fb%,G%)<>0THENdb%=FALSE
NEXTG%:eb%=TRUE:FORL%=1TOd%!Pa%:IFb%(L%,d%!Ra%)<>0THENeb%=FALSE
NEXTL%:IFdb%THENd%!fb%+=1
IFcb%THEN
d%!e%-=(F%!e%+d%!Oa%):d%!gb%-=1
ENDIF
IFeb%THENd%!Ra%+=1
d%!b%+=d%!M%:PROCn:ENDPROC
DEFPROCM:LOCALP%,ib%,ab%,jb%,i%,j%,x%,y%:LOCALkb%,lb%,d$,l$,mb%,C%:P%=ja%:ib%=ka%:ab%=la%:nb%=ma%:FORi%=1TO7:IFNOTa%(i%)!B%THEN
kb%=RND(10):lb%=w%!Ja%+5:IFlb%>100THEN
lb%=100:IFw%!Ja%MOD10=0THENd%!Sa%+=1
ENDIF
IFFNn(lb%)ANDFNn(d%!Sa%)THEN
IFb%(kb%,d%!Ra%)>0THEN
x%=d%!b%+(kb%-1)*(F%!e%+d%!Oa%):y%=d%!a%+((d%!Ra%-1)*F%!k%)-F%!k%:mb%=(F%!e%/2)-(a%(i%)!e%/2):a%(i%)!b%=x%+mb%:a%(i%)!a%=y%:a%(i%)!B%=TRUE:a%(i%)!`%=FALSE:a%(i%)!ib%=1:a%(i%)!P%=0:jb%=4:IFFNn(25)THENa%(i%)!ib%=2:jb%=jb%/2
a%(i%)!N%=jb%:a%(i%)!M%=a%(i%)!N%
ENDIF
ENDIF
ELSE:SYSFNd(6)TOC%:IFC%-a%(i%)!nb%>=40THEN
a%(i%)!nb%=C%:a%(i%)!P%+=1
ENDIF
IFa%(i%)!ib%=1ANDa%(i%)!P%>1THEN
a%(i%)!P%=0
ENDIF
IFa%(i%)!ib%=2ANDa%(i%)!P%>3THEN
a%(i%)!P%=0
ENDIF
l$=STR$(a%(i%)!P%):IFa%(i%)!ib%=2ANDa%(i%)!P%=3THENl$="1"
d$=FNb(30)+STR$(a%(i%)!ib%)+l$:IFNOTa%(i%)!`%THEN
a%(i%)!a%-=a%(i%)!M%:PROCa(d$,a%(i%)!b%,a%(i%)!a%)
ELSE:d$=FNb(30)+"3":PROCa(d$,a%(i%)!b%,a%(i%)!a%)
ENDIF
IFa%(i%)!a%<=Q%!wa%+(Q%!k%+5)THEN
a%(i%)!B%=FALSE:PROCd(a%(i%))
ENDIF
IFFNp(a%(i%),m%)ANDa%(i%)!B%THEN
FORj%=1TO3:PROCa(FNb(2)+STR$(j%),m%!b%,m%!a%):PROCe(20):WAIT:NEXTj%:PROCd(m%):IFq%!B%THEN
PROCd(q%):q%!B%=FALSE
ENDIF
m%!b%=FNh(m%,f%):w%!Ha%-=1:PROCh(w%!Ha%):PROCd(a%(i%)):a%(i%)!B%=FALSE:PROCa(FNb(1),m%!b%,m%!a%)
ENDIF
IFFNp(q%,a%(i%))THEN
IFa%(i%)!ib%=1THEN
IFNOTa%(i%)!`%THEN
a%(i%)!`%=TRUE:PROCg(5):d$=FNb(30)+"3":PROCa(d$,a%(i%)!b%,a%(i%)!a%):SYSFNd(6)TOa%(i%)!ab%
ENDIF
ENDIF
PROCd(q%):q%!B%=FALSE
ENDIF
IFa%(i%)!`%THEN
SYSFNd(6)TOC%:IFC%-a%(i%)!ab%>=40THEN
PROCd(a%(i%)):a%(i%)!B%=FALSE
ENDIF
ENDIF
ENDIF
NEXTi%:ENDPROC
DEFPROCO:LOCALX%,La%,Ma%,C%,a$:X%=28:La%=32:Ma%=36:SYSFNd(6)TOC%:IFC%-o%!Ma%>=50THEN
o%!La%=FNk(o%!La%):o%!Ma%=C%
ENDIF
a$=FNa(49)+" "+FNa(61):IFo%!La%=0ORo%!X%=0THEN
a$=STRING$(LEN(a$)," ")
ENDIF
PROCl(a$):ENDPROC
DEFPROCN:LOCALNa%,ob%,pb%,C%,a$:Na%=16:ob%=20:pb%=24:IFo%!Na%>=0THEN
SYSFNd(6)TOC%:a$=FNa(66)+" "+FNa(72):IFC%-o%!pb%>=50THEN
o%!pb%=C%:o%!ob%=FNk(o%!ob%):IFo%!ob%=1THENo%!Na%+=1
ENDIF
IFo%!ob%=0THEN
a$=STRING$(LEN(a$)," ")
ENDIF
IFo%!Na%>5THEN
a$=STRING$(LEN(a$)," "):o%!Na%=-1
ENDIF
PROCl(a$)
ENDIF
ENDPROC
DEFPROCz(qb%):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%:IFqb%THENPROCw
ENDPROC
DEFPROCA:LOCALi%,rb%:rb%=OPENIN"<Invaders$Dir>.Resources.HiTable":FORi%=1TO10:INPUT#rb%,a$(i%),c%(i%):INPUT#rb%,d%(i%):NEXTi%:CLOSE#rb%:ENDPROC
DEFPROCw:LOCALi%,rb%:rb%=OPENOUT"<Invaders$Dir>.Resources.HiTable":FORi%=1TO10:PRINT#rb%,a$(i%),c%(i%):PRINT#rb%,d%(i%):NEXTi%:CLOSE#rb%:ENDPROC
DEFPROCP(w%):LOCALI%,H%,sb%,g%,i%,tb%,O%,x%,y%,a$:LOCALFa%:H%=FNe(16):I%=FNe(16):Fa%=44:H%!e%=FNc(100,1):H%!k%=FNc(40,2):H%!b%=FNh(H%,f%):H%!a%=800:I%!e%=FNc(150,1):I%!k%=FNc(40,2):I%!b%=FNh(I%,f%):I%!a%=H%!a%-I%!k%:tb%=0:FORi%=10TO1STEP-1
IFw%!Ia%>=c%(i%)THENtb%=i%
NEXTi%:FORi%=9TOtb%STEP-1:a$(i%+1)=a$(i%):c%(i%+1)=c%(i%):d%(i%+1)=d%(i%):NEXTi%:c%(tb%)=w%!Ia%:d%(tb%)=w%!Ja%:CLS:PROCf(Q%!va%):PROCf(Q%!wa%):PROCa(FNb(100),H%!b%,H%!a%):PROCa(FNb(101),I%!b%,I%!a%):a$=FNa(54)+" "+STR$(w%!Ia%)
a$+=" "+FNa(55)+" "+STR$(tb%)+FNB(tb%):O%=LEN(a$)*f%!V%:x%=FNl(O%,f%!e%):y%=I%!a%-170:PROCb(x%,y%,a$,0):PROCc(H%):PROCc(I%):K%!e%=165:K%!k%=40:K%=FNt(K%,f%):PROCk(K%):x%=K%!b%+20:y%=K%!a%+12:a$="":i%=1:sb%=FALSE
OSCLI"FX 21,0":REPEAT:g%=GET:CASEg%OF
WHEN13:sb%=TRUE
WHEN8:i%-=1:a$=LEFT$(a$,i%-1)
OTHERWISE:IFi%<9ANDFNC(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
UNTILsb%:IFa$=""ORa$=" "THENa$=FNa(56)
a$(tb%)=FNo(a$):IFo%!Fa%THENPROCw
ENDPROC
DEFFNC(ub%):LOCALvb%:vb%=FALSE:IFub%>=32ANDub%<=126THENvb%=TRUE
=vb%
DEFPROCC(wb%,xb%,l%,r%):LOCALx%,a$:a$=FNa(57)+" "+FNa(59):a$+=FNm(STR$(wb%),10," ",TRUE):PROCb(0,f%!k%-f%!T%,a$,0):a$=FNa(58)+" "+FNa(57):a$+=" "+FNa(59)+FNm(STR$(xb%),10," ",TRUE):x%=f%!e%-LEN(a$)*f%!V%:PROCb(x%,f%!k%-f%!T%,a$,0):PROCh(l%):PROCm(r%):ENDPROC
DEFPROCh(Ua%):LOCALa$:PROCa(FNb(1),0,0):a$=" = "+STR$(Ua%):PROCb(m%!e%,0,a$,0):ENDPROC
DEFPROCm(Ua%):LOCALx%,a$:a$=FNa(60)+" "+FNa(59):a$+=FNm(STR$(Ua%),3,"0",TRUE):x%=f%!e%-LEN(a$)*f%!V%:PROCb(x%,0,a$,0):ENDPROC
DEFPROCl(a$):LOCALx%,y%,O%:O%=LEN(a$)*f%!V%:x%=FNl(O%,f%!e%):y%=f%!k%-f%!T%:PROCb(x%,y%,a$,0):ENDPROC
DEFPROCg(yb%):LOCALzb%,Na%,x%,a$:zb%=12:Na%=16:w%!Ia%+=yb%:a$=FNa(57)+" "+FNa(59):a$+=FNm(STR$(w%!Ia%),10," ",TRUE):PROCb(0,f%!k%-f%!T%,a$,0):IFw%!Ia%-o%!zb%>=5000THEN
w%!Ha%+=1:PROCh(w%!Ha%):o%!zb%=w%!Ia%:o%!Na%=0
ENDIF
IFw%!Ia%>c%(1)THEN
a$=FNa(58)+" "+FNa(57)+" ":a$+=FNa(59):a$+=FNm(STR$(w%!Ia%),10," ",TRUE):x%=f%!e%-LEN(a$)*f%!V%:PROCb(x%,f%!k%-f%!T%,a$,0)
ENDIF
ENDPROC
DEFPROCD:LOCALP%,fb%,gb%,Ra%:P%=ja%:fb%=na%:gb%=oa%:Ra%=pa%:PROCv:PROCn:ENDPROC
DEFPROCv:LOCALG%,L%,s%:d%!b%=50:d%!a%=550:d%!P%=0:d%!`%=0:d%!N%=3:d%!M%=d%!N%:d%!fb%=1:d%!gb%=d%!Pa%:d%!Ra%=1:s%=(d%!Pa%*F%!e%)+((d%!Pa%-1)*d%!Oa%):d%!e%=s%:d%!k%=d%!Qa%*F%!k%:FORL%=1TOd%!Pa%:FORG%=1TOd%!Qa%
b%(L%,G%)=((G%+1)/2)+(d%!P%*10):NEXTG%:NEXTL%:ENDPROC
DEFPROCn:LOCALG%,L%,x%,y%,p%:p%=FNe(16):FORL%=d%!fb%TOd%!gb%:x%=d%!b%+((L%-1)*(F%!e%+d%!Oa%)):FORG%=d%!Ra%TOd%!Qa%:y%=d%!a%+((G%-1)*F%!k%):IFb%(L%,G%)>0THEN
b%(L%,G%)=((G%+1)/2)+(d%!P%*10)
ENDIF
IFb%(L%,G%)<>0THEN
CASESGN(b%(L%,G%))OF
WHEN-1:PROCR(x%,y%,L%,G%)
WHEN1:PROCa(FNb(27)+STR$(b%(L%,G%)),x%,y%)
ENDCASE
ELSE:p%!b%=x%:p%!a%=y%:p%!e%=F%!e%:p%!k%=F%!k%:PROCd(p%)
ENDIF
NEXTG%:NEXTL%:PROCc(p%):ENDPROC
DEFPROCR(x%,y%,r%,c%):LOCALp%:b%(r%,c%)+=1:PROCa(FNb(26),x%,y%):IFb%(r%,c%)=0THEN
p%=FNe(16):p%!b%=x%:p%!a%=y%:p%!e%=F%!e%:p%!k%=F%!k%:PROCd(p%):PROCc(p%)
ENDIF
ENDPROC
DEFPROCu:LOCALp%,i%:p%=FNe(16):FORi%=1TO3:d%!a%-=F%!k%/3:PROCn:NEXTi%:p%!b%=d%!b%:p%!a%=d%!a%+d%!k%:p%!e%=d%!e%:p%!k%=F%!k%:PROCd(p%):PROCc(p%):ENDPROC
DEFPROCQ:LOCALS%,Z%,C%,nb%,Ab%,N%,i%,k$:N%=1:Bb%=24:S%=FNe(28):Z%=FNe(28):PROCd(d%):PROCd(m%):IFq%!B%THEN
PROCd(q%):q%!B%=FALSE
ENDIF
IFh%!B%THEN
PROCd(h%):h%!B%=FALSE
ENDIF
FORi%=1TO7:IFa%(i%)!B%THEN
PROCd(a%(i%)):a%(i%)!B%=FALSE
ENDIF
NEXTi%:m%!b%=FNh(m%,f%):S%!b%=0-F%!e%:S%!a%=m%!a%:S%!M%=N%:Z%!b%=f%!e%:Z%!a%=m%!a%:Z%!M%=0-N%:w%!Ha%=0:PROCf(Q%!wa%):PROCh(w%!Ha%):PROCm(w%!Ja%):PROCa(FNb(1),m%!b%,m%!a%):P%=0:Ab%=FALSE:REPEAT:S%!b%+=S%!M%:S%!Bb%=S%!b%+F%!e%:Z%!b%+=Z%!M%
SYSFNd(6)TOC%:IFC%-nb%>=50THENAb%=FNk(Ab%):nb%=C%
IFAb%THENk$=FNb(21)ELSEk$=FNb(20)
PROCa(k$,S%!b%,S%!a%):PROCa(k$,Z%!b%,Z%!a%):PROCe(2):WAIT:UNTILS%!Bb%>=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
DEFFNw(e$):LOCALCb%,E%:E%=FND(e$)+256:Cb%=FNe(E%):!Cb%=E%:Cb%!4=0:Cb%!8=16:Cb%!12=16:SYSfa%,256+10,Cb%,e$:SYSfa%,256+17,Cb%:=Cb%
DEFPROCb(x%,y%,a$,Db%):LOCALi%,Eb%:ia%=ha%:Eb%=f%!V%:FORi%=1TOLEN(a$):PROCa(STR$(ASC(MID$(a$,i%,1))),x%+((i%-1)*Eb%),y%):IFDb%>0THENPROCe(Db%)
NEXTi%:ia%=ga%:ENDPROC
DEFPROCa(v$,x%,y%):LOCALFb%:SYSfa%,256+24,ia%,v$TO,,Fb%:SYSfa%,512+34,ia%,Fb%,x%,y%,0:ENDPROC
DEFPROCd(A%):GCOL0,0TINT0:RECTANGLEFILLA%!b%,A%!a%,A%!e%,A%!k%:ENDPROC
DEFFNl(Gb%,f%):=(f%/2)-(Gb%/2)
DEFPROCp(a$,Hb%):LOCALO%,y%:O%=LEN(a$)*f%!V%:y%=(f%!k%/2)-(f%!T%/2):PROCb(FNl(O%,f%!e%),y%,a$,Hb%):ENDPROC
DEFFNh(Ib%,Jb%):=(Jb%!e%/2)-(Ib%!e%/2)
DEFFNt(Ib%,Jb%):LOCALx%,y%:Ib%!b%=(Jb%!e%/2)-(Ib%!e%/2):Ib%!a%=(Jb%!k%/2)-(Ib%!k%/2):=Ib%
DEFPROCf(a%):LOCALi%,Kb%:Kb%=f%!e%/Q%!e%:FORi%=1TOKb%+1:PROCa(FNb(108),(i%-1)*Q%!e%,a%):NEXTi%:ENDPROC
DEFPROCk(A%):LOCALx%,y%,Lb%,Mb%,Nb%,Ob%,i%:Lb%=FNc(3,1):Mb%=FNc(3,2):Nb%=1:Ob%=3:FORi%=1TOA%!e%:x%=A%!b%+((i%-1)*Nb%):PROCa(FNb(113),x%,A%!a%):PROCa(FNb(113),x%,A%!a%+(A%!k%-(2*Ob%))):NEXTi%:x%=A%!b%+(A%!e%-Lb%):FORi%=1TOA%!k%-1
PROCa(FNb(114),A%!b%,A%!a%+((i%-1)*Nb%)):PROCa(FNb(114),x%,A%!a%+((i%-1)*Nb%)):NEXTi%:PROCa(FNb(111),A%!b%,A%!a%):PROCa(FNb(109),A%!b%,(A%!a%+A%!k%)-Mb%):PROCa(FNb(112),A%!b%+(A%!e%-Lb%),A%!a%):x%=(A%!b%+A%!e%)-Lb%:y%=(A%!a%+A%!k%)-Mb%
PROCa(FNb(110),x%,y%):ENDPROC
DEFFNs(e$,i$):LOCALPb%,Qb%,j$:Pb%=OPENIN(e$):INPUT#Pb%,j$:IFj$<>i$THENCLOSE#Pb%:ERROR255,"Bad Magic!"
INPUT#Pb%,Qb%:CLOSE#Pb%:=Qb%
DEFPROCj(e$,i$,RETURNi%(),RETURNf$()):LOCALPb%,i%,Qb%,j$:Pb%=OPENIN(e$):INPUT#Pb%,j$:IFj$<>i$THENCLOSE#Pb%:ERROR255,"Bad Magic!"
INPUT#Pb%,Qb%:FORi%=1TOQb%:INPUT#Pb%,i%(i%),f$(i%):NEXTi%:CLOSE#Pb%:ENDPROC
DEFFNa(Rb%):=FNu(Rb%,ba%,f%(),b$(),106)
DEFFNb(Rb%):=FNu(Rb%,ca%,g%(),c$(),107)
DEFFNd(Rb%):=FNu(Rb%,da%,h%(),d$(),108)
DEFFNu(Rb%,Sb%,j%(),g$(),Tb%):LOCALi%,Ub%:Ub%=0:FORi%=1TOSb%:IFj%(i%)=Rb%THENUb%=i%:i%=Sb%
NEXTi%:IFUb%=0THENERROR255,FNa(Tb%)+" "+STR$(Rb%)
=FNo(g$(Ub%))
DEFPROCo:LOCALp%:p%=FNe(20):p%!0=4:p%!4=5:p%!8=11:p%!12=12:p%!16=-1:SYSFNd(5),p%,p%:f%!sa%=p%!0:f%!ta%=p%!4:f%!e%=(p%!8)+1<<p%!0:f%!k%=(p%!12)+1<<p%!4:f%!ua%=MODE:PROCc(p%):ENDPROC
DEFFNc(E%,Vb%):LOCALWb%,Xb%:Xb%=MODE:IFXb%<>f%!ua%THENPROCo
CASEVb%OF
WHEN1:Wb%=E%<<f%!sa%
WHEN2:Wb%=E%<<f%!ta%
WHEN3:Wb%=E%>>f%!sa%
WHEN4:Wb%=E%>>f%!ta%
OTHERWISE:ERROR255,FNa(103)+" "+STR$(Vb%)
ENDCASE
=Wb%
DEFFNp(A%,Yb%):LOCALZb%,_b%,`b%,ac%:`b%=FALSE:ac%=FALSE:IFA%!B%ANDYb%!B%THEN
Zb%=Yb%!b%+Yb%!e%:_b%=Yb%!a%+Yb%!k%:IFA%!b%>=Yb%!b%ANDA%!b%<Zb%THEN`b%=TRUE
IFA%!a%>=Yb%!a%ANDA%!a%<_b%THENac%=TRUE
ENDIF
=`b%ANDac%
DEFPROCx: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":PROCq:ENDPROC
DEFFNj(w$,r$):LOCALf$,J%,Ub%:Ub%=FALSE:f$=STRING$(10," "):RIGHT$(f$,3)=" : ":LEFT$(f$,LEN(r$))=r$:J%=FNq(w$):IFJ%=1THEN
f$+="OK.":Ub%=TRUE
ELSE:f$+="Missing!!"
ENDIF
PRINTf$:=Ub%
DEFFNv(Qb%):LOCALg$,o$:o$="<Invaders$Dir>.Screens.":g$="Dump"+STR$(Qb%):IFFNq(o$+g$)<>0THEN
REPEAT:Qb%+=1:g$="Dump"+STR$(Qb%):UNTILFNq(o$+g$)=0ORLEN(g$)>10:IFLEN(g$)>10THENQb%=-1
ENDIF
=Qb%
DEFFNn(n%):LOCALbc%:bc%=RND(100):=bc%<=n%
DEFFNo(a$):LOCALi%,t$:FORi%=1TOLEN(a$):t$+=CHR$(ASC(MID$(a$,i%,1))EOR131):NEXTi%:=t$
DEFPROCe(n%):LOCALt%:t%=TIME+n%:REPEAT:UNTILTIME>=t%:ENDPROC
DEFFNk(n%):=n%EOR1
DEFFNB(n%):LOCALc$,u%:u%=VAL(RIGHT$(STR$(n%),1)):c$=FNa(65):IFu%>=1ANDu%<=3THENc$=FNa(u%+61)
=c$
DEFFNm(a$,cc%,u$,dc%):LOCALec%,c$:ec%=cc%-LEN(a$):IFec%<=0THEN
c$=LEFT$(a$,cc%)
ELSE:IFdc%THEN
c$=STRING$(cc%,u$):RIGHT$(c$,LEN(a$))=a$
ELSE:c$=a$+STRING$(ec%,u$)
ENDIF
ENDIF
=c$
DEFFNy(a$,cc%):LOCALc$:c$=STRING$(cc%," "):RIGHT$(c$,LEN(a$))=a$:=c$
DEFFNq(h$):LOCALUb%:SYS"XOS_File",17,h$TOUb%:=Ub%
DEFFND(h$):LOCALE%:SYSFNd(3),5,h$TO,,,,E%:=E%
DEFFNx(Vb%,h$):LOCAL_%,fc%,gc%,hc%:hc%=FALSE:CASEVb%OF
WHEN0:_%=OPENUP(h$+"chkfile")
WHEN1:_%=OPENUP(h$)
OTHERWISE:ERROR255,FNa(104)+" "+STR$(Vb%)
ENDCASE
IF_%<>0THEN
SYSFNd(4),254,_%TOgc%;fc%:IF(fc%AND1)THENCLOSE#_%:ERROR255,FNa(105)
IF((gc%AND(1<<7))<>0)THENhc%=TRUE
CLOSE#_%
ENDIF
=hc%
DEFPROCy:LOCALic%:jc%=0:kc%=0:SYSFNd(10),-1,-1TOlc%:SYSFNd(11)TOmc%;ic%:IFic%AND1THENmc%=16384
PROCS(mc%):ENDPROC
DEFPROCq:IFjc%THEN
SYSFNd(10),jc%-32768,-1TOlc%:jc%=0:kc%=0
ENDIF
ENDPROC
DEFFNe(nc%):LOCALD%,E%:E%=(nc%+15)AND-4:D%=FNE(E%):IFD%ELSEERROR254,FNa(111)
D%!0=&DEADDEAD:D%!4=nc%:!(D%-8+(D%!-4))=&DEADDEAD:=D%+8
DEFPROCc(RETURND%):D%-=8:IFD%!0<>&DEADDEADTHENERROR254,FNa(112)
IF!(D%-8+(D%!-4))<>&DEADDEADTHEN
ERROR254,FNa(113)
ENDIF
kc%-=D%!-4:SYSFNd(12),3,jc%,D%:D%=0:ENDPROC
DEFFNz(D%):LOCALp%:p%=D%-4:=p%!0
DEFFNg(D%,yb%):PROCt(D%,yb%):=D%
DEFPROCt(D%,yb%):LOCALY%,E%:E%=FNz(D%):FORY%=0TOE%-4STEP4:D%!Y%=yb%:NEXTY%:ENDPROC
DEFFNf(D%):LOCALoc%,Y%,E%:E%=FNz(D%):oc%=FNe(E%):FORY%=0TOE%-4STEP4:oc%!Y%=D%!Y%:NEXTY%:=oc%
DEFPROCS(E%):IFjc%THENERROR254,FNa(115)
E%=(E%+mc%-1)ANDNOT(mc%-1):jc%=HIMEM:SYSFNd(10),lc%+E%,-1TOlc%:E%=lc%+32768-jc%:IFE%<1THEN
jc%=0:ERROR254,FNa(116)
ELSE:SYSFNd(12),0,jc%,,E%
ENDIF
kc%=0:ENDPROC
DEFPROCT(nc%):LOCALpc%:pc%=lc%:SYSFNd(10),lc%+nc%,-1TOlc%:nc%=lc%-pc%:IFnc%THENSYSFNd(12),5,jc%,,nc%TO,,,nc%
ENDPROC
DEFFNE(nc%):LOCALD%,ic%:SYSFNd(13),2,jc%,,nc%TO,,D%;ic%:IFic%AND1THEN
PROCT((nc%+mc%)ANDNOT(mc%-1)):SYSFNd(13),2,jc%,,nc%TO,,D%;ic%:IFic%AND1THEN=0
ENDIF
kc%+=D%!-4:=D%