REM Acorn Invaders REM Packed by Make v1.41 15/5/08 On 23 Jul 2008 ONERRORPROCx:END MODE28:OFF:a$="Acorn Invaders. (c)2008 DynaByte Software":PRINTa$:PRINTSTRING$(LEN(a$),"-"):PRINT:k$=".Resources.":l$=k$+"Graphics.":b$=k$+"Data.":r$=k$+"Sound.":aa%=FALSE:PRINT"Checking files...":IFNOTFNj(l$+"Gfx0","Sprites")THENaa%=TRUE IFNOTFNj(l$+"Gfx1","Charset")THENaa%=TRUE IFNOTFNj(r$+"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%):PROCk(b$+"Msg","SGSM",f%(),b$()):PRINTFNa(14):PRINTFNa(9)+" "+FNa(3);:ca%=FNs(b$+"ImgLUT","TULI"):DIMg%(ca%),c$(ca%):PROCk(b$+"ImgLUT","TULI",g%(),c$()):PRINTFNa(14) PRINTFNa(9)+" "+FNa(13);:da%=FNs(b$+"SWIs","TULS"):DIMh%(da%),d$(da%):PROCk(b$+"SWIs","TULS",h%(),d$()):PRINTFNa(14):PRINT:PRINTFNa(12):PRINTFNa(8)+" "+FNa(2):PROCy:k%=FNf(48,0):k%!0=1:k%!4=-1:k%!40=FNv(0):IFk%!40=-1THENERROR255,FNa(109) PRINTFNa(15)+STR$(k%!40):aa%=FALSE:k%!44=TRUE:ea%=0:DIMa$(10),c%(10):DIMd%(10):PRINTFNa(8)+" "+FNa(22):b%=0:a%=4:e%=8:m%=12:M%=16:N%=20:B%=24:fa%=28:ga%=32:ha%=36:ia%=40:ja%=44:ka%=48:la%=52:ma%=56:na%=60:oa%=64 pa%=16:qa%=20:ra%=24:X%=28:U%=32:sa%=16:ta%=20:PRINT:PRINTFNa(8)+" "+FNa(1)+" ";:ua%=0:SYSFNc(30)TOua%:PRINTFNa(21)+" "+STR$(ua%/100):k%!4=FNA(r$+"Intro"):PRINT:PRINTFNa(17)+" "+FNa(16):SYSFNc(1),,FNc(2)TOva%:PRINTFNa(9)+" "+FNa(4);:wa%=FNw(l$+"Gfx0"):PRINTFNa(14) PRINTFNa(9)+" "+FNa(5);:xa%=FNw(l$+"Gfx1"):PRINTFNa(14):ya%=wa%:PRINT:PRINTFNa(9)+" "+FNa(6);:R%=OPENIN(b$+"Creds"):INPUT#R%,i$:IFi$<>"DERC"THEN CLOSE#R%:ERROR255,FNa(101):END ENDIF INPUT#R%,ea%:DIMe$(ea%),e%(ea%):FORi%=1TOea%:INPUT#R%,e%(i%),e$(i%):NEXTi%:CLOSE#R%:PRINTFNa(14):PRINT:PRINTFNa(7):t$=b$+"HiTable":IFFNq(t$)<>1THEN IFNOTFNx(0,k$)THEN k%!44=FALSE:PRINTFNa(19)+" "+FNa(10)+" "+FNa(20) ELSE:PRINTFNa(19)+" "+FNa(11)+" "+FNa(20) ENDIF PROCz(k%!44) ELSE:IFNOTFNx(1,t$)THEN k%!44=FALSE:PRINTFNa(18)+" "+FNa(10)+" "+FNa(20) ELSE:PRINTFNa(18)+" "+FNa(11)+" "+FNa(20) ENDIF PROCA ENDIF PRINT:PRINTFNa(12):PROCe(150):f%=FNe(36):Q%=FNe(24):K%=FNe(16):CLS:PROCp:f%!X%=FNd(8,1):f%!U%=FNd(8,2)+7:Q%!e%=FNd(6,1):Q%!m%=FNd(6,2):Q%!sa%=f%!m%-50:Q%!ta%=30:SYSFNc(33),k%!4:SYSFNc(36),k%!4,128:WHILENOTFNB:CLS:PROCB:ENDWHILE CLS:K%!e%=220:K%!m%=40:K%=FNt(K%,f%):K%!a%-=3:PROCl(K%):PROCq(FNa(31),10):IFk%!0=1THEN SYSFNc(36),k%!4,-1TO,za%:FORi%=za%TO0STEP-2:SYSFNc(36),k%!4,i%:PROCe(4):NEXTi%:SYSFNc(35),k%!4:SYSFNc(32),k%!4:k%!4=-1 ENDIF PROCr:END DEFFNB:LOCALi%,H%,I%,v%,O%,h%,V%,Aa%,Ba%:LOCALo%,S%,Ca%,Da%,Ea%,Y%,Fa%,Ga%,Ha%:LOCALx%,y%,J%,Ia%,s$,a$:Ia%=44:H%=FNf(16,0):I%=FNf(16,0):v%=FNf(16,0):h%=FNf(16,0):V%=FNf(16,0):S%=FNf(16,0):o%=FNf(16,0):H%!e%=FNd(100,1):H%!m%=FNd(40,2) H%!b%=FNh(H%,f%):H%!a%=800:I%!e%=FNd(150,1):I%!m%=FNd(40,2):I%!b%=FNh(I%,f%):I%!a%=H%!a%-I%!m%:v%!e%=720:v%!m%=500:v%!b%=FNh(v%,f%):v%!a%=200:h%!e%=FNd(40,1):h%!m%=FNd(20,2):h%!b%=(v%!b%+v%!e%/2)-150:h%!a%=(v%!a%+v%!m%)-125 o%!e%=FNd(30,1):o%!m%=FNd(15,2):V%!e%=FNd(20,1):V%!m%=FNd(20,2):V%!b%=(v%!b%+v%!e%/2)-150:V%!b%+=FNh(V%,h%):Aa%=FNg(V%):Ba%=FNg(V%)::Ba%!a%=h%!a%-40-Ba%!m%:Aa%!a%=Ba%!a%-40-Aa%!m%:V%!a%=Aa%!a%-40-V%!m% S%!e%=FNd(20,1):S%!m%=FNd(20,2):S%!b%=(v%!b%+v%!e%/2)-120:Ca%=FNg(S%):Da%=FNg(S%):Ea%=FNg(S%):Ea%!b%=v%!b%:Ja%=FNg(Ea%):Fa%=FNg(Ea%):Y%=FNg(S%):Y%!b%=v%!b%:Y%!b%+=(v%!e%/2)+10:Ga%=FNg(Y%):Ha%=FNg(Y%) :S%!a%=(v%!a%+v%!m%)-120:Ca%!a%=S%!a%-60:Da%!a%=Ca%!a%-60:Fa%!a%=Da%!a%-90:Ja%!a%=Fa%!a%-60:Ea%!a%=Ja%!a%-60:Y%!a%=Da%!a%-90:Ga%!a%=Y%!a%-60:Ha%!a%=Ga%!a%-60:CLS:PROCf(Q%!sa%):PROCf(Q%!ta%):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%!X%:y%=170:PROCb(FNk(O%,f%!e%),y%,a$,11):a$=FNa(33):O%=LEN(a$)*f%!X%:y%-=f%!U%:PROCb(FNk(O%,f%!e%),y%,a$,11) WHILENOTINKEY(-99)ANDNOTINKEY(-17)ANDNOTINKEY(-82):y%=v%!a%+v%!m%:FORi%=1TOea%:a$=FNo(e$(i%)):x%=FNi(a$):CASEe%(i%)OF WHEN-1:y%-=f%!U% WHEN-2:y%-=(2*f%!U%) 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%!m%-20:PROCb(x%,y%,a$,0):a$=FNa(35):y%-=f%!U%: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),Ba%!b%,Ba%!a%):a$=FNa(37)+" "+FNa(40):PROCb(x%,Ba%!a%+12,a$,0):PROCa(FNb(22),Aa%!b%,Aa%!a%):a$=FNa(38)+" "+FNa(40):PROCb(x%,Aa%!a%+12,a$,0):PROCa(FNb(20),V%!b%,V%!a%):a$=FNa(39)+" "+FNa(40):PROCb(x%,V%!a%+12,a$,0) O%=o%!e%/f%!X%+2:s$=FNa(66):a$=s$+STRING$(O%," ")+FNa(67):x%=FNi(a$):y%=V%!a%-(3*f%!U%):PROCb(x%,y%,a$,0):o%!b%=x%+7+(LEN(s$)*f%!X%):o%!a%=y%:PROCa(FNb(1),o%!b%,o%!a%):J%=FNr:IFJ%=1THEN=TRUE IFJ%=2THEN=FALSE PROCd(v%):a$=FNa(41):x%=FNi(a$):y%=v%!a%+v%!m%-20:PROCb(x%,y%,a$,0):x%=S%!b%+S%!e%+10:PROCa(FNb(102),S%!b%,S%!a%):a$=FNa(42)+" "+FNa(43):PROCb(x%,S%!a%+12,a$,0):PROCa(FNb(103),Ca%!b%,Ca%!a%):a$=FNa(42)+" "+FNa(44):PROCb(x%,Ca%!a%+12,a$,0) PROCa(FNb(104),Da%!b%,Da%!a%):PROCb(x%,Da%!a%+12,FNa(45),0):x%=Ea%!b%+Ea%!e%+10:PROCa(FNb(105),Ja%!b%,Ja%!a%):a$=FNa(46)+" "+FNa(49):PROCb(x%,Ja%!a%+12,a$,0):PROCa(FNb(117),Fa%!b%,Fa%!a%):PROCb(x%,Fa%!a%+12,FNa(76),0) PROCa(FNb(107),Ea%!b%,Ea%!a%):a$=FNa(48)+" "+FNa(49):PROCb(x%,Ea%!a%+12,a$,0):x%=Y%!b%+Y%!e%+10:PROCa(FNb(106),Y%!b%,Y%!a%):a$=FNa(47)+" "+FNa(73):PROCb(x%,Y%!a%+12,a$,0):PROCa(FNb(115),Ga%!b%,Ga%!a%):a$=FNa(47)+" "+FNa(77)+" ":a$+=FNa(74) PROCb(x%,Ga%!a%+12,a$,0):PROCa(FNb(116),Ha%!b%,Ha%!a%):a$=FNa(47)+" "+FNa(77)+" ":a$+=FNa(75):PROCb(x%,Ha%!a%+12,a$,0):J%=FNr:IFJ%=1THEN=TRUE IFJ%=2THEN=FALSE PROCd(v%):a$=FNa(50):IFk%!Ia%THENa$=FNa(51) x%=FNi(a$):y%=v%!a%+v%!m%-20:PROCb(x%,y%,a$,0):a$=FNa(58)+" "+FNa(52):x%=FNi(a$):y%-=f%!U%:PROCb(x%,y%,a$,0):y%=(v%!a%+v%!m%)-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%!U% FORi%=1TO10:IFi%<10THEN a$=" "+STR$(i%)+". " ELSE:a$=" "+STR$(i%)+". " ENDIF s$=FNo(a$(i%)):a$+=FNl(s$,8," ",FALSE):a$+=" .... ":a$+=FNy(STR$(c%(i%)),10):a$+=" ... "+FNy(STR$(d%(i%)),3):x%=FNi(a$):PROCb(x%,y%-(i%*(f%!U%+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)THENPROCs IFINKEY(-102)THENPROCt IFINKEY(-59)THENPROCj(4) IFINKEY(-60)THENPROCj(-4) 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(V%):PROCc(Aa%):PROCc(Ba%):PROCc(S%):PROCc(Ca%):PROCc(Da%):PROCc(Ea%):PROCc(Y%):PROCc(Ja%):PROCc(Fa%):PROCc(Ga%):PROCc(Ha%):PROCc(o%) ENDIF =J% DEFFNi(a$):LOCALO%:O%=LEN(a$)*f%!X%:=v%!b%+FNk(O%,v%!e%) DEFPROCB:LOCALo%,q%,h%,d%,w%:LOCALF%:LOCALb%(),a%():LOCALKa%,La%,Ma%,Na%:LOCALZ%,Oa%,Pa%:LOCALQa%:LOCALRa%,Sa%,Ta%,Ua%,Va%:LOCALWa%,O%,a$,x%,y%,i%,j%:o%=FNe(32):q%=FNe(28):h%=FNe(48):d%=FNe(68):F%=FNe(16):w%=FNf(16,0):DIMb%(10,6),a%(7) Ka%=0:La%=4:Ma%=8:Na%=12:Qa%=16:Z%=28:Ra%=ha%:Sa%=ia%:Ta%=ja%:Ua%=ma%:Va%=na%:o%!e%=FNd(30,1):o%!m%=FNd(15,2):o%!b%=FNh(o%,f%):o%!a%=50:o%!N%=6:o%!M%=o%!N%:F%!e%=FNd(20,1):F%!m%=FNd(20,2) h%!e%=FNd(40,1):h%!m%=FNd(20,2):h%!a%=Q%!sa%-(10+h%!m%):h%!N%=5:h%!B%=FALSE:h%!ia%=1:q%!e%=FNd(5,1):q%!m%=FNd(20,2):q%!B%=FALSE:q%!N%=10:w%!Ma%=1:w%!Ka%=3:w%!Na%=FALSE:k%!Qa%=-1:d%!Ra%=FNd(20,1):d%!Sa%=10:d%!Ta%=6:d%!B%=TRUE:d%!Va%=4 SYSFNc(6)TOd%!oa%:FORi%=1TO7:a%(i%)=FNf(48,0):a%(i%)!e%=FNd(5,1):a%(i%)!m%=FNd(20,2):SYSFNc(6)TOa%(i%)!ia%:SYSFNc(6)TOa%(i%)!ja%:NEXTi%:PROCf(Q%!sa%):PROCf(Q%!ta%):PROCC(0,c%(1),w%!Ka%,w%!Ma%):PROCD:PROCa(FNb(1),o%!b%,o%!a%) WHILEw%!Ka%>0:Wa%=FALSE:IFk%!Z%=0THEN IFINKEY(-74)THENPROCE(o%!b%,o%!a%) IFINKEY(-98)THENPROCF:Wa%=TRUE IFINKEY(-67)THENPROCG:Wa%=TRUE IFINKEY(-17)THENPROCH ENDIF IFINKEY(-102)THENPROCt IFINKEY(-82)THENPROCs IFINKEY(-56)THENPROCI IFINKEY(-59)THENPROCj(4) IFINKEY(-60)THENPROCj(-4) IFk%!Z%=0THEN IFWa%THEN o%!b%+=o%!M%:PROCa(FNb(1),o%!b%,o%!a%) ENDIF ENDIF IFk%!Z%=0THEN PROCJ:PROCK:PROCL:PROCM:PROCN ELSE:PROCO ENDIF WAIT:ENDWHILE:K%!e%=240:K%!m%=40:K%=FNt(K%,f%):K%!a%-=3:PROCd(K%):PROCl(K%):a$=FNa(49)+" "+FNa(53):PROCq(a$,11):PROCe(750):IFNOTw%!Na%THEN IFw%!La%>=c%(10)THEN PROCP(w%) ENDIF ENDIF PROCc(o%):PROCc(d%):PROCc(h%):PROCc(q%):PROCc(w%):PROCc(F%):FORi%=1TO7:PROCc(a%(i%)):NEXTi%:ENDPROC DEFPROCF:IFo%!b%<=0THEN o%!b%=0 ELSE:o%!M%=0-o%!N% ENDIF ENDPROC DEFPROCG:IFo%!b%>=f%!e%-o%!e%THEN o%!b%=f%!e%-o%!e% ELSE:o%!M%=0+o%!N% ENDIF ENDPROC DEFPROCE(x%,y%):IFNOTq%!B%THEN q%!B%=TRUE:q%!b%=x%+(o%!e%/2):q%!a%=y%+o%!m%:PROCg(4) ENDIF ENDPROC DEFPROCs:LOCALXa%,u$:Xa%=40:REPEAT:UNTILNOTINKEY(-82):k%!Xa%=FNv(k%!Xa%):IFk%!Xa%=-1THENERROR255,FNa(109) u$=".Screens.Dump"+STR$(k%!Xa%):OSCLI"ScreenSave "+u$:ENDPROC DEFPROCH:LOCALi%:FORi%=1TO7:a%(i%)!B%=FALSE:NEXTi%:w%!Ka%=0:w%!Na%=TRUE:ENDPROC DEFPROCt:LOCALYa%,Za%:Ya%=0:Za%=4:REPEAT:UNTILNOTINKEY(-102):k%!Ya%+=1:IFk%!Ya%>2THENk%!Ya%=0 IFk%!Ya%=1THEN SYSFNc(33),k%!Za% ELSE:SYSFNc(34),k%!Za% ENDIF ENDPROC DEFPROCj(_a%):LOCALYa%,Za%,`a%,D%,za%,ab%:Ya%=0:Za%=4:`a%=8:IFk%!Ya%=1THEN SYSFNc(6)TOD%:IFD%-k%!`a%>=10THEN SYSFNc(36),k%!Za%,-1TO,za%:ab%=za%+_a%:IFab%>=0ANDab%<=128THEN SYSFNc(36),k%!Za%,ab%:k%!`a%=D% ENDIF ENDIF ENDIF ENDPROC DEFPROCI:LOCALZ%,Oa%,a$:Z%=28:Oa%=32:REPEATUNTILNOTINKEY(-56):a$=FNa(49)+" "+FNa(61):k%!Z%=FNm(k%!Z%):k%!Oa%=k%!Z%:IFk%!Z%=0THEN a$=STRING$(LEN(a$)," "):PROCm(a$) ENDIF ENDPROC DEFPROCJ:IFq%!B%THEN IFq%!a%>=Q%!sa%-q%!m%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:LOCALbb%,cb%,db%,D%,eb%,d$:bb%=ga%:cb%=ha%:db%=ia%:IFNOTh%!B%THEN IFFNn(4)ANDFNn(5)THEN h%!B%=TRUE:h%!fa%=FALSE:h%!cb%=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%!bb%=FALSE:h%!B%=FALSE:ENDPROC ENDIF IFh%!b%>f%!e%ANDSGN(h%!M%)=1THEN h%!bb%=FALSE:h%!B%=FALSE:ENDPROC ENDIF IFNOTh%!fa%THEN IFFNp(q%,h%)THEN PROCd(q%):PROCa(FNb(12),h%!b%,h%!a%):SYSFNc(6)TOh%!bb%:h%!fa%=TRUE:q%!B%=FALSE:PROCh(500) ENDIF ELSE:IFFNp(q%,h%)THEN PROCd(q%):q%!B%=FALSE ENDIF ENDIF IFNOTh%!fa%THEN SYSFNc(6)TOD%:IFD%-h%!db%>=40THEN h%!db%=D%:h%!cb%=FNm(h%!cb%) ENDIF d$=FNb(10)+STR$(h%!cb%):PROCa(d$,h%!b%,h%!a%):h%!b%+=h%!M% ELSE:SYSFNc(6)TOD%:eb%=D%-h%!bb%:IFeb%>=300THEN h%!B%=FALSE:h%!cb%=1:PROCd(h%) ELSE:IFeb%>=250THEN PROCa(FNb(15),h%!b%,h%!a%) ELSE:IFeb%>=200THEN PROCa(FNb(14),h%!b%,h%!a%) ELSE:IFeb%>=100THEN PROCa(FNb(13),h%!b%,h%!a%) ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDPROC DEFPROCL:LOCALfb%,z%,G%,L%,gb%,hb%,ib%,_%:LOCALP%,jb%,kb%,D%,lb%:P%=ga%:jb%=ka%:kb%=la%:lb%=oa%:SYSFNc(6)TOD%:IFD%-d%!lb%>=50THEN d%!lb%=D%:d%!P%=FNm(d%!P%) ENDIF fb%=d%!b%+d%!e%:_%=0-((d%!jb%-1)*(F%!e%+d%!Ra%)):IFfb%>=f%!e%THEN d%!M%=0-d%!N%:PROCu ENDIF IFd%!b%<=_%THEN d%!M%=0+d%!N%:PROCu ENDIF _%=d%!a%+((d%!Ua%-1)*F%!m%):IF_%<=o%!a%+o%!m%THEN PROCQ:ENDPROC ENDIF IFFNp(q%,d%)THEN z%=F%!e%+d%!Ra%:IF(q%!b%-d%!b%)MODz%<=F%!e%THEN G%=((q%!a%-d%!a%)DIVF%!m%)+1:L%=((q%!b%-d%!b%)DIVz%)+1:IFSGN(b%(L%,G%))=1THEN b%(L%,G%)=-5:PROCd(q%):q%!B%=FALSE:d%!fa%+=1:PROCg(1):CASEG%OF WHEN1,2:PROCh(50) WHEN3,4:PROCh(75) WHEN5,6:PROCh(100) ENDCASE ENDIF ENDIF ENDIF IFd%!fa%>=d%!Sa%*d%!Ta%THEN w%!Ma%+=1:PROCd(d%):PROCf(Q%!ta%):PROCi(w%!Ka%):PROCn(w%!Ma%):PROCa(FNb(1),o%!b%,o%!a%):PROCv ENDIF gb%=TRUE:hb%=TRUE:FORG%=1TOd%!Ta%:IFb%(d%!kb%,G%)<>0THENgb%=FALSE IFb%(d%!jb%,G%)<>0THENhb%=FALSE NEXTG%:ib%=TRUE:FORL%=1TOd%!Sa%:IFb%(L%,d%!Ua%)<>0THENib%=FALSE NEXTL%:IFhb%THENd%!jb%+=1 IFgb%THEN d%!e%-=(F%!e%+d%!Ra%):d%!kb%-=1 ENDIF IFib%THENd%!Ua%+=1 d%!b%+=d%!M%:PROCo:ENDPROC DEFPROCM:LOCALP%,mb%,eb%,nb%,i%,j%,x%,y%:LOCALob%,pb%,d$,p$,qb%,D%:P%=ga%:mb%=ha%:eb%=ia%:rb%=ja%:FORi%=1TO7:IFNOTa%(i%)!B%THEN ob%=RND(10):pb%=w%!Ma%+5:IFpb%>100THEN pb%=100:IFw%!Ma%MOD10=0THENd%!Va%+=1 ENDIF IFFNn(pb%)ANDFNn(d%!Va%)THEN IFb%(ob%,d%!Ua%)>0THEN x%=d%!b%+(ob%-1)*(F%!e%+d%!Ra%):y%=d%!a%+((d%!Ua%-1)*F%!m%)-F%!m%:qb%=(F%!e%/2)-(a%(i%)!e%/2):a%(i%)!b%=x%+qb%:a%(i%)!a%=y%:a%(i%)!B%=TRUE:a%(i%)!fa%=FALSE:a%(i%)!mb%=1:a%(i%)!P%=0:nb%=4:IFFNn(25)THENa%(i%)!mb%=2:nb%=nb%/2 a%(i%)!N%=nb%:a%(i%)!M%=a%(i%)!N%:PROCg(3) ENDIF ENDIF ELSE:SYSFNc(6)TOD%:IFD%-a%(i%)!rb%>=40THEN a%(i%)!rb%=D%:a%(i%)!P%+=1 ENDIF IFa%(i%)!mb%=1ANDa%(i%)!P%>1THEN a%(i%)!P%=0 ENDIF IFa%(i%)!mb%=2ANDa%(i%)!P%>3THEN a%(i%)!P%=0 ENDIF p$=STR$(a%(i%)!P%):IFa%(i%)!mb%=2ANDa%(i%)!P%=3THENp$="1" d$=FNb(30)+STR$(a%(i%)!mb%)+p$:IFNOTa%(i%)!fa%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%!ta%+(Q%!m%+5)THEN a%(i%)!B%=FALSE:PROCd(a%(i%)) ENDIF IFFNp(a%(i%),o%)ANDa%(i%)!B%THEN PROCg(2):FORj%=1TO3:PROCa(FNb(2)+STR$(j%),o%!b%,o%!a%):PROCe(20):WAIT:NEXTj%:PROCd(o%):IFq%!B%THEN PROCd(q%):q%!B%=FALSE ENDIF o%!b%=FNh(o%,f%):w%!Ka%-=1:PROCi(w%!Ka%):PROCd(a%(i%)):a%(i%)!B%=FALSE:PROCa(FNb(1),o%!b%,o%!a%) ENDIF IFFNp(q%,a%(i%))THEN IFa%(i%)!mb%=1THEN IFNOTa%(i%)!fa%THEN a%(i%)!fa%=TRUE:PROCh(5):d$=FNb(30)+"3":PROCa(d$,a%(i%)!b%,a%(i%)!a%):SYSFNc(6)TOa%(i%)!eb% ENDIF ENDIF PROCd(q%):q%!B%=FALSE ENDIF IFa%(i%)!fa%THEN SYSFNc(6)TOD%:IFD%-a%(i%)!eb%>=40THEN PROCd(a%(i%)):a%(i%)!B%=FALSE ENDIF ENDIF ENDIF NEXTi%:ENDPROC DEFPROCO:LOCALZ%,Oa%,Pa%,D%,a$:Z%=28:Oa%=32:Pa%=36:SYSFNc(6)TOD%:IFD%-k%!Pa%>=50THEN k%!Oa%=FNm(k%!Oa%):k%!Pa%=D% ENDIF a$=FNa(49)+" "+FNa(61):IFk%!Oa%=0ORk%!Z%=0THEN a$=STRING$(LEN(a$)," ") ENDIF PROCm(a$):ENDPROC DEFPROCN:LOCALQa%,sb%,tb%,D%,a$:Qa%=16:sb%=20:tb%=24:IFk%!Qa%>=0THEN SYSFNc(6)TOD%:a$=FNa(66)+" "+FNa(72):IFD%-k%!tb%>=50THEN k%!tb%=D%:k%!sb%=FNm(k%!sb%):IFk%!sb%=1THENk%!Qa%+=1 ENDIF IFk%!sb%=0THEN a$=STRING$(LEN(a$)," ") ENDIF IFk%!Qa%>5THEN a$=STRING$(LEN(a$)," "):k%!Qa%=-1 ENDIF PROCm(a$) ENDIF ENDPROC DEFPROCz(ub%):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%:IFub%THENPROCw ENDPROC DEFPROCA:LOCALi%,vb%:vb%=OPENIN(b$+"HiTable"):FORi%=1TO10:INPUT#vb%,a$(i%),c%(i%):INPUT#vb%,d%(i%):NEXTi%:CLOSE#vb%:ENDPROC DEFPROCw:LOCALi%,vb%:vb%=OPENOUT(b$+"HiTable"):FORi%=1TO10:PRINT#vb%,a$(i%),c%(i%):PRINT#vb%,d%(i%):NEXTi%:CLOSE#vb%:ENDPROC DEFPROCP(w%):LOCALI%,H%,wb%,g%,i%,xb%,O%,x%,y%,a$:LOCALIa%:H%=FNe(16):I%=FNe(16):Ia%=44:H%!e%=FNd(100,1):H%!m%=FNd(40,2):H%!b%=FNh(H%,f%):H%!a%=800:I%!e%=FNd(150,1):I%!m%=FNd(40,2):I%!b%=FNh(I%,f%):I%!a%=H%!a%-I%!m%:xb%=0:FORi%=10TO1STEP-1 IFw%!La%>=c%(i%)THENxb%=i% NEXTi%:FORi%=9TOxb%STEP-1:a$(i%+1)=a$(i%):c%(i%+1)=c%(i%):d%(i%+1)=d%(i%):NEXTi%:c%(xb%)=w%!La%:d%(xb%)=w%!Ma%:CLS:PROCf(Q%!sa%):PROCf(Q%!ta%):PROCa(FNb(100),H%!b%,H%!a%):PROCa(FNb(101),I%!b%,I%!a%):a$=FNa(54)+" "+STR$(w%!La%) a$+=" "+FNa(55)+" "+STR$(xb%)+FNC(xb%):O%=LEN(a$)*f%!X%:x%=FNk(O%,f%!e%):y%=I%!a%-170:PROCb(x%,y%,a$,0):PROCc(H%):PROCc(I%):K%!e%=165:K%!m%=40:K%=FNt(K%,f%):PROCl(K%):x%=K%!b%+20:y%=K%!a%+12:a$="":i%=1:wb%=FALSE OSCLI"FX 21,0":REPEAT:g%=GET:CASEg%OF WHEN13:wb%=TRUE WHEN8:i%-=1:a$=LEFT$(a$,i%-1) OTHERWISE:IFi%<9ANDFND(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 UNTILwb%:IFa$=""ORa$=" "THENa$=FNa(56) a$(xb%)=FNo(a$):IFk%!Ia%THENPROCw ENDPROC DEFFND(yb%):LOCALzb%:zb%=FALSE:IFyb%>=32ANDyb%<=126THENzb%=TRUE =zb% DEFPROCC(Ab%,Bb%,l%,r%):LOCALx%,a$:a$=FNa(57)+" "+FNa(59):a$+=FNl(STR$(Ab%),10," ",TRUE):PROCb(0,f%!m%-f%!U%,a$,0):a$=FNa(58)+" "+FNa(57):a$+=" "+FNa(59)+FNl(STR$(Bb%),10," ",TRUE):x%=f%!e%-LEN(a$)*f%!X%:PROCb(x%,f%!m%-f%!U%,a$,0):PROCi(l%):PROCn(r%):ENDPROC DEFPROCi(Xa%):LOCALa$:PROCa(FNb(1),0,0):a$=" = "+STR$(Xa%):PROCb(o%!e%,0,a$,0):ENDPROC DEFPROCn(Xa%):LOCALx%,a$:a$=FNa(60)+" "+FNa(59):a$+=FNl(STR$(Xa%),3,"0",TRUE):x%=f%!e%-LEN(a$)*f%!X%:PROCb(x%,0,a$,0):ENDPROC DEFPROCm(a$):LOCALx%,y%,O%:O%=LEN(a$)*f%!X%:x%=FNk(O%,f%!e%):y%=f%!m%-f%!U%:PROCb(x%,y%,a$,0):ENDPROC DEFPROCh(Cb%):LOCALDb%,Qa%,x%,a$:Db%=12:Qa%=16:w%!La%+=Cb%:a$=FNa(57)+" "+FNa(59):a$+=FNl(STR$(w%!La%),10," ",TRUE):PROCb(0,f%!m%-f%!U%,a$,0):IFw%!La%-k%!Db%>=5000THEN w%!Ka%+=1:PROCi(w%!Ka%):k%!Db%=w%!La%:k%!Qa%=0 ENDIF IFw%!La%>c%(1)THEN a$=FNa(58)+" "+FNa(57)+" ":a$+=FNa(59):a$+=FNl(STR$(w%!La%),10," ",TRUE):x%=f%!e%-LEN(a$)*f%!X%:PROCb(x%,f%!m%-f%!U%,a$,0) ENDIF ENDPROC DEFPROCD:LOCALP%,jb%,kb%,Ua%:P%=ga%:jb%=ka%:kb%=la%:Ua%=ma%:PROCv:PROCo:ENDPROC DEFPROCv:LOCALG%,L%,s%:d%!b%=50:d%!a%=550:d%!P%=0:d%!fa%=0:d%!N%=3:d%!M%=d%!N%:d%!jb%=1:d%!kb%=d%!Sa%:d%!Ua%=1:s%=(d%!Sa%*F%!e%)+((d%!Sa%-1)*d%!Ra%):d%!e%=s%:d%!m%=d%!Ta%*F%!m%:FORL%=1TOd%!Sa%:FORG%=1TOd%!Ta% b%(L%,G%)=((G%+1)/2)+(d%!P%*10):NEXTG%:NEXTL%:ENDPROC DEFPROCo:LOCALG%,L%,x%,y%,p%:p%=FNe(16):FORL%=d%!jb%TOd%!kb%:x%=d%!b%+((L%-1)*(F%!e%+d%!Ra%)):FORG%=d%!Ua%TOd%!Ta%:y%=d%!a%+((G%-1)*F%!m%):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%!m%=F%!m%: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%!m%=F%!m%:PROCd(p%):PROCc(p%) ENDIF ENDPROC DEFPROCu:LOCALp%,i%:p%=FNe(16):FORi%=1TO3:d%!a%-=F%!m%/3:PROCo:NEXTi%:p%!b%=d%!b%:p%!a%=d%!a%+d%!m%:p%!e%=d%!e%:p%!m%=F%!m%:PROCd(p%):PROCc(p%):ENDPROC DEFPROCQ:LOCALT%,`%,D%,rb%,Eb%,N%,i%,o$:N%=1:Fb%=24:T%=FNe(28):`%=FNe(28):PROCd(d%):PROCd(o%):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%:o%!b%=FNh(o%,f%):T%!b%=0-F%!e%:T%!a%=o%!a%:T%!M%=N%:`%!b%=f%!e%:`%!a%=o%!a%:`%!M%=0-N%:w%!Ka%=0:PROCf(Q%!ta%):PROCi(w%!Ka%):PROCn(w%!Ma%):PROCa(FNb(1),o%!b%,o%!a%):P%=0:Eb%=FALSE:REPEAT:T%!b%+=T%!M%:T%!Fb%=T%!b%+F%!e%:`%!b%+=`%!M% SYSFNc(6)TOD%:IFD%-rb%>=50THENEb%=FNm(Eb%):rb%=D% IFEb%THENo$=FNb(21)ELSEo$=FNb(20) PROCa(o$,T%!b%,T%!a%):PROCa(o$,`%!b%,`%!a%):PROCe(2):WAIT:UNTILT%!Fb%>=o%!b%:FORi%=1TO10:PROCa(FNb(20),T%!b%,T%!a%):PROCa(FNb(20),`%!b%,`%!a%):PROCe(20):PROCa(FNb(21),T%!b%,T%!a%):PROCa(FNb(21),`%!b%,`%!a%):PROCe(20):WAIT:NEXTi%:PROCg(2):FORi%=1TO3 PROCa(FNb(2)+STR$(i%),o%!b%,o%!a%):PROCe(20):WAIT:NEXTi%:PROCe(20):PROCd(o%):PROCc(T%):PROCc(`%):ENDPROC DEFFNw(e$):LOCALGb%,E%:E%=FNE(e$)+256:Gb%=FNe(E%):!Gb%=E%:Gb%!4=0:Gb%!8=16:Gb%!12=16:SYSva%,256+10,Gb%,e$:SYSva%,256+17,Gb%:=Gb% DEFPROCb(x%,y%,a$,Hb%):LOCALi%,Ib%:ya%=xa%:Ib%=f%!X%:FORi%=1TOLEN(a$):PROCa(STR$(ASC(MID$(a$,i%,1))),x%+((i%-1)*Ib%),y%):IFHb%>0THENPROCe(Hb%) NEXTi%:ya%=wa%:ENDPROC DEFPROCa(z$,x%,y%):LOCALJb%:SYSva%,256+24,ya%,z$TO,,Jb%:SYSva%,512+34,ya%,Jb%,x%,y%,0:ENDPROC DEFPROCd(A%):GCOL0,0TINT0:RECTANGLEFILLA%!b%,A%!a%,A%!e%,A%!m%:ENDPROC DEFFNk(Kb%,f%):=(f%/2)-(Kb%/2) DEFPROCq(a$,Lb%):LOCALO%,y%:O%=LEN(a$)*f%!X%:y%=(f%!m%/2)-(f%!U%/2):PROCb(FNk(O%,f%!e%),y%,a$,Lb%):ENDPROC DEFFNh(Mb%,Nb%):=(Nb%!e%/2)-(Mb%!e%/2) DEFFNt(Mb%,Nb%):LOCALx%,y%:Mb%!b%=(Nb%!e%/2)-(Mb%!e%/2):Mb%!a%=(Nb%!m%/2)-(Mb%!m%/2):=Mb% DEFPROCf(a%):LOCALi%,Ob%:Ob%=f%!e%/Q%!e%:FORi%=1TOOb%+1:PROCa(FNb(108),(i%-1)*Q%!e%,a%):NEXTi%:ENDPROC DEFPROCl(A%):LOCALx%,y%,Pb%,Qb%,Rb%,Sb%,i%:Pb%=FNd(3,1):Qb%=FNd(3,2):Rb%=1:Sb%=3:FORi%=1TOA%!e%:x%=A%!b%+((i%-1)*Rb%):PROCa(FNb(113),x%,A%!a%):PROCa(FNb(113),x%,A%!a%+(A%!m%-(2*Sb%))):NEXTi%:x%=A%!b%+(A%!e%-Pb%):FORi%=1TOA%!m%-1 PROCa(FNb(114),A%!b%,A%!a%+((i%-1)*Rb%)):PROCa(FNb(114),x%,A%!a%+((i%-1)*Rb%)):NEXTi%:PROCa(FNb(111),A%!b%,A%!a%):PROCa(FNb(109),A%!b%,(A%!a%+A%!m%)-Qb%):PROCa(FNb(112),A%!b%+(A%!e%-Pb%),A%!a%):x%=(A%!b%+A%!e%)-Pb%:y%=(A%!a%+A%!m%)-Qb% PROCa(FNb(110),x%,y%):ENDPROC DEFFNs(e$,i$):LOCALTb%,Ub%,j$:Tb%=OPENIN(e$):INPUT#Tb%,j$:IFj$<>i$THENCLOSE#Tb%:ERROR255,"Bad Magic!" INPUT#Tb%,Ub%:CLOSE#Tb%:=Ub% DEFPROCk(e$,i$,RETURNi%(),RETURNf$()):LOCALTb%,i%,Ub%,j$:Tb%=OPENIN(e$):INPUT#Tb%,j$:IFj$<>i$THENCLOSE#Tb%:ERROR255,"Bad Magic!" INPUT#Tb%,Ub%:FORi%=1TOUb%:INPUT#Tb%,i%(i%),f$(i%):NEXTi%:CLOSE#Tb%:ENDPROC DEFFNa(Vb%):=FNu(Vb%,ba%,f%(),b$(),106) DEFFNb(Vb%):=FNu(Vb%,ca%,g%(),c$(),107) DEFFNc(Vb%):=FNu(Vb%,da%,h%(),d$(),108) DEFFNu(Vb%,Wb%,j%(),g$(),Xb%):LOCALi%,Yb%:Yb%=0:FORi%=1TOWb%:IFj%(i%)=Vb%THENYb%=i%:i%=Wb% NEXTi%:IFYb%=0THENERROR255,FNa(Xb%)+" "+STR$(Vb%) =FNo(g$(Yb%)) DEFFNA(e$):LOCALR%:R%=0:SYSFNc(31),,e$TOR%:=R% DEFPROCg(Zb%):LOCAL_b%,v$:_b%=0:v$=FNa(110)+" "+STR$(Zb%):IFk%!_b%>0THEN IFZb%<1ANDZb%>4THENERROR255,v$ OSCLI"SPlay_fire0"+STR$(Zb%)+"mhh" ENDIF ENDPROC DEFPROCp:LOCALp%:p%=FNe(20):p%!0=4:p%!4=5:p%!8=11:p%!12=12:p%!16=-1:SYSFNc(5),p%,p%:f%!pa%=p%!0:f%!qa%=p%!4:f%!e%=(p%!8)+1<f%!ra%THENPROCp CASE`b%OF WHEN1:ac%=E%<>f%!pa% WHEN4:ac%=E%>>f%!qa% OTHERWISE:ERROR255,FNa(103)+" "+STR$(`b%) ENDCASE =ac% DEFFNp(A%,cc%):LOCALdc%,ec%,fc%,gc%:fc%=FALSE:gc%=FALSE:IFA%!B%ANDcc%!B%THEN dc%=cc%!b%+cc%!e%:ec%=cc%!a%+cc%!m%:IFA%!b%>=cc%!b%ANDA%!b%=cc%!a%ANDA%!a%-1THEN SYS"TimPlayer_SongStop",k%!4:SYS"TimPlayer_SongUnload",k%!4 ENDIF PROCr:ENDPROC DEFFNj(A$,w$):LOCALf$,J%,Yb%:Yb%=FALSE:f$=STRING$(10," "):RIGHT$(f$,3)=" : ":LEFT$(f$,LEN(w$))=w$:J%=FNq(A$):IFJ%=1THEN f$+="OK.":Yb%=TRUE ELSE:f$+="Missing!!" ENDIF PRINTf$:=Yb% DEFFNv(Ub%):LOCALg$,q$:q$=".Screens.":g$="Dump"+STR$(Ub%):IFFNq(q$+g$)<>0THEN REPEAT:Ub%+=1:g$="Dump"+STR$(Ub%):UNTILFNq(q$+g$)=0ORLEN(g$)>10:IFLEN(g$)>10THENUb%=-1 ENDIF =Ub% DEFFNn(n%):LOCALhc%:hc%=RND(100):=hc%<=n% DEFFNo(a$):LOCALi%,x$:FORi%=1TOLEN(a$):x$+=CHR$(ASC(MID$(a$,i%,1))EOR131):NEXTi%:=x$ DEFPROCe(n%):LOCALt%:t%=TIME+n%:REPEAT:UNTILTIME>=t%:ENDPROC DEFFNm(n%):=n%EOR1 DEFFNC(n%):LOCALc$,u%:u%=VAL(RIGHT$(STR$(n%),1)):c$=FNa(65):IFu%>=1ANDu%<=3THENc$=FNa(u%+61) =c$ DEFFNl(a$,ic%,y$,jc%):LOCALkc%,c$:kc%=ic%-LEN(a$):IFkc%<=0THEN c$=LEFT$(a$,ic%) ELSE:IFjc%THEN c$=STRING$(ic%,y$):RIGHT$(c$,LEN(a$))=a$ ELSE:c$=a$+STRING$(kc%,y$) ENDIF ENDIF =c$ DEFFNy(a$,ic%):LOCALc$:c$=STRING$(ic%," "):RIGHT$(c$,LEN(a$))=a$:=c$ DEFFNq(h$):LOCALYb%:SYS"XOS_File",17,h$TOYb%:=Yb% DEFFNE(h$):LOCALE%:SYSFNc(3),5,h$TO,,,,E%:=E% DEFFNx(`b%,h$):LOCALR%,lc%,mc%,nc%:nc%=FALSE:CASE`b%OF WHEN0:R%=OPENUP(h$+"chkfile") WHEN1:R%=OPENUP(h$) OTHERWISE:ERROR255,FNa(104)+" "+STR$(`b%) ENDCASE IFR%<>0THEN SYSFNc(4),254,R%TOmc%;lc%:IF(lc%AND1)THENCLOSE#R%:ERROR255,FNa(105) IF((mc%AND(1<<7))<>0)THENnc%=TRUE CLOSE#R% ENDIF =nc% DEFPROCy:LOCALoc%:pc%=0:qc%=0:SYSFNc(10),-1,-1TOrc%:SYSFNc(11)TOsc%;oc%:IFoc%AND1THENsc%=16384 PROCS(sc%):ENDPROC DEFPROCr:IFpc%THEN SYSFNc(10),pc%-32768,-1TOrc%:pc%=0:qc%=0 ENDIF ENDPROC DEFFNe(W%):LOCALC%,E%:E%=(W%+15)AND-4:C%=FNF(E%):IFC%ELSEERROR254,FNa(211) C%!0=&DEADDEAD:C%!4=W%:!(C%-8+(C%!-4))=&DEADDEAD:=C%+8 DEFFNf(W%,Cb%):LOCALC%:C%=FNe(W%):PROCT(C%,Cb%):=C% DEFPROCc(RETURNC%):C%-=8:IFC%!0<>&DEADDEADTHENERROR254,FNa(212) IF!(C%-8+(C%!-4))<>&DEADDEADTHEN ERROR254,FNa(213) ENDIF qc%-=C%!-4:SYSFNc(12),3,pc%,C%:C%=0:ENDPROC DEFFNz(C%):LOCALp%:p%=C%-4:=p%!0 DEFPROCT(C%,Cb%):LOCAL_%,E%:E%=FNz(C%):FOR_%=0TOE%-4STEP4:C%!_%=Cb%:NEXT_%:ENDPROC DEFFNg(C%):LOCALtc%,_%,E%:E%=FNz(C%):tc%=FNe(E%):FOR_%=0TOE%-4STEP4:tc%!_%=C%!_%:NEXT_%:=tc% DEFPROCS(E%):IFpc%THENERROR254,FNa(215) E%=(E%+sc%-1)ANDNOT(sc%-1):pc%=HIMEM:SYSFNc(10),rc%+E%,-1TOrc%:E%=rc%+32768-pc%:IFE%<1THEN pc%=0:ERROR254,FNa(216) ELSE:SYSFNc(12),0,pc%,,E% ENDIF qc%=0:ENDPROC DEFPROCU(W%):LOCALuc%:uc%=rc%:SYSFNc(10),rc%+W%,-1TOrc%:W%=rc%-uc%:IFW%THENSYSFNc(12),5,pc%,,W%TO,,,W% ENDPROC DEFFNF(W%):LOCALC%,oc%:SYSFNc(13),2,pc%,,W%TO,,C%;oc%:IFoc%AND1THEN PROCU((W%+sc%)ANDNOT(sc%-1)):SYSFNc(13),2,pc%,,W%TO,,C%;oc%:IFoc%AND1THEN=0 ENDIF qc%+=C%!-4:=C%