REM Acorn Invaders REM Packed by Make v1.41 15/5/08 On 20 Jun 2008 ONERRORPROCx:END MODE28:OFF:a$="Acorn Invaders. (c)2008 DynaByte Software":PRINTa$:PRINTSTRING$(LEN(a$),"-"):PRINT:aa%=FALSE:b$=".Resources.":PRINT"Checking files...":IFNOTFNi(b$+"Gfx0","Sprites")THENaa%=TRUE IFNOTFNi(b$+"Gfx1","Charset")THENaa%=TRUE IFNOTFNi(b$+"Intro","Music")THENaa%=TRUE IFNOTFNi(b$+"Creds","Credits")THENaa%=TRUE IFNOTFNi(b$+"Msg","Messages")THENaa%=TRUE IFNOTFNi(b$+"ImgLUT","Lookups")THENaa%=TRUE IFNOTFNi(b$+"SWIs","Lookups")THENaa%=TRUE IFaa%THENERROR255,"File Missing!!" PRINT:PRINT"Loading Messages...";:ba%=FNr(b$+"Msg","SGSM"):DIMf%(ba%),b$(ba%):PROCj(b$+"Msg","SGSM",f%(),b$()):PRINTFNa(14):PRINTFNa(3);:ca%=FNr(b$+"ImgLUT","TULI"):DIMg%(ca%),c$(ca%):PROCj(b$+"ImgLUT","TULI",g%(),c$()):PRINTFNa(14) PRINTFNa(13);:da%=FNr(b$+"SWIs","TULS"):DIMh%(da%),d$(da%):PROCj(b$+"SWIs","TULS",h%(),d$()):PRINTFNa(14):PRINTFNa(1):OSCLI"PlayVolume 0":OSCLI"Playmod "+b$+"Intro":OSCLI"PlayPause":aa%=FALSE:ea%=0:fa%=1:ga%=127:ha%=TRUE ia%=0:DIMa$(10),c%(10):DIMd%(10):PRINTFNa(2):PROCy:SYSFNe(1),,FNe(2)TOja%:PRINTFNa(4);:ka%=FNu(b$+"Gfx0"):PRINTFNa(14):PRINTFNa(5);:la%=FNu(b$+"Gfx1"):PRINTFNa(14):ma%=ka%:PRINTFNa(6);:na%=OPENIN(b$+"Creds"):INPUT#na%,h$:IFh$<>"DERC"THEN CLOSE#na%:ERROR255,FNa(101):END ENDIF INPUT#na%,ia%:DIMe$(ia%),e%(ia%):FORi%=1TOia%:INPUT#na%,e%(i%),e$(i%):NEXTi%:CLOSE#na%:PRINTFNa(14):PRINTFNa(7);:l$=b$+"HiTable":IFFNv(l$)<>1THEN IFNOTFNw(0,b$)THEN ha%=FALSE:PRINTFNa(8) ELSE:PRINTFNa(9) ENDIF PROCz(ha%) ELSE:IFNOTFNw(1,l$)THEN ha%=FALSE:PRINTFNa(10) ELSE:PRINTFNa(11) ENDIF PROCA ENDIF PRINTFNa(12):PROCe(150):b%=0:a%=4:f%=8:m%=12:L%=16:M%=20:q%=24:U%=28:oa%=32:pa%=36:qa%=40:ra%=44:sa%=48:ta%=52:ua%=56:va%=60:wa%=64:xa%=16:ya%=20:za%=24:W%=28:T%=32:Aa%=16:Ba%=20:h%=FNd(36):P%=FNd(24):J%=FNd(16) CLS:PROCn:h%!W%=FNc(8,1):h%!T%=FNc(8,2)+7:P%!f%=FNc(6,1):P%!m%=FNc(6,2):P%!Aa%=h%!m%-50:P%!Ba%=30:OSCLI"PlayVolume "+STR$(ga%):OSCLI"PlayStart":WHILENOTFNz:CLS:PROCB:ENDWHILE:CLS:J%!f%=220:J%!m%=40:J%=FNs(J%,h%):J%!a%-=3:PROCk(J%):PROCo(FNa(31),10):IFfa%=1THEN FORi%=ga%TO1STEP-2:OSCLI"PlayVolume "+STR$(i%):PROCe(4):NEXTi%:OSCLI"PlayStop":OSCLI"PlayVolume 127" ENDIF PROCp:END DEFFNz:LOCALi%,G%,H%,B%,N%,d%,V%,Ca%,o%:LOCALDa%,Q%,Ea%,Fa%,Ga%,Ha%,x%,y%,I%,s$,a$:G%=FNj(FNd(16),0):H%=FNj(FNd(16),0):B%=FNj(FNd(16),0):d%=FNj(FNd(16),0):V%=FNj(FNd(16),0):Q%=FNj(FNd(16),0):o%=FNj(FNd(16),0) G%!f%=FNc(100,1):G%!m%=FNc(40,2):G%!b%=FNf(G%,h%):G%!a%=800:H%!f%=FNc(150,1):H%!m%=FNc(40,2):H%!b%=FNf(H%,h%):H%!a%=G%!a%-H%!m%:B%!f%=640:B%!m%=500:B%!b%=FNf(B%,h%):B%!a%=200:d%!f%=FNc(40,1):d%!m%=FNc(20,2):d%!b%=B%!b%+150 d%!a%=(B%!a%+B%!m%)-125:o%!f%=FNc(30,1):o%!m%=FNc(15,2):V%!f%=FNc(20,1):V%!m%=FNc(20,2):V%!b%=B%!b%+150+FNf(V%,d%):Ca%=FNh(V%):Da%=FNh(V%)::Da%!a%=d%!a%-40-Da%!m%:Ca%!a%=Da%!a%-40-Ca%!m%:V%!a%=Ca%!a%-40-V%!m% Q%!f%=FNc(20,1):Q%!m%=FNc(20,2):Q%!b%=B%!b%+150+FNf(Q%,d%):Ea%=FNh(Q%):Fa%=FNh(Q%):Ha%=FNh(Q%):Ga%=FNh(Q%):Ia%=FNh(Q%)::Q%!a%=(B%!a%+B%!m%)-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 CLS:PROCf(P%!Aa%):PROCf(P%!Ba%):FORi%=0-G%!f%TOG%!b%STEP5:WAIT:PROCa(FNb(100),i%,G%!a%):PROCe(1):NEXTi%:FORi%=h%!f%TOH%!b%STEP-5:WAIT:PROCa(FNb(101),i%,H%!a%):PROCe(1):NEXTi%:a$=FNa(32):N%=LEN(a$)*h%!W%:y%=170:PROCb(FNl(N%,h%!f%),y%,a$,11):a$=FNa(33) N%=LEN(a$)*h%!W%:y%-=h%!T%:PROCb(FNl(N%,h%!f%),y%,a$,11):WHILENOTINKEY(-99)ANDNOTINKEY(-17)ANDNOTINKEY(-82):y%=B%!a%+B%!m%:FORi%=1TOia%: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%:I%=FNq:IFI%=1THEN=TRUE IFI%=2THEN=FALSE PROCd(B%):a$=FNa(57)+" "+FNa(34):x%=FNg(a$):y%=B%!a%+B%!m%-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),V%!b%,V%!a%):a$=FNa(39)+" "+FNa(40):PROCb(x%,V%!a%+12,a$,0) N%=o%!f%/h%!W%+2:s$=FNa(66):a$=s$+STRING$(N%," ")+FNa(67):x%=FNg(a$):y%=V%!a%-(3*h%!T%):PROCb(x%,y%,a$,0):o%!b%=x%+7+(LEN(s$)*h%!W%):o%!a%=y%:PROCa(FNb(1),o%!b%,o%!a%):I%=FNq:IFI%=1THEN=TRUE IFI%=2THEN=FALSE PROCd(B%):a$=FNa(41):x%=FNg(a$):y%=B%!a%+B%!m%-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):I%=FNq:IFI%=1THEN=TRUE IFI%=2THEN=FALSE PROCd(B%):a$=FNa(50):IFha%THENa$=FNa(51) x%=FNg(a$):y%=B%!a%+B%!m%-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%!m%)-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$+=FNm(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%:I%=FNq:IFI%=1THEN=TRUE IFI%=2THEN=FALSE PROCd(B%):ENDWHILE:ERROR255,FNa(102):=FALSE DEFFNq:LOCALt%,I%:t%=TIME+750:I%=FALSE:REPEAT:IFINKEY(-82)THENPROCq IFINKEY(-102)THENPROCr IFINKEY(-59)THENPROCi(2) IFINKEY(-60)THENPROCi(-2) UNTILTIME>=t%ORINKEY(-17)ORINKEY(-99):IFINKEY(-17)THENI%=1 IFINKEY(-99)THENI%=2 IFI%THEN PROCc(G%):PROCc(H%):PROCc(B%):PROCc(d%):PROCc(V%):PROCc(Ca%):PROCc(Da%):PROCc(Q%):PROCc(Ea%):PROCc(Fa%):PROCc(Ga%):PROCc(Ha%):PROCc(Ia%):PROCc(o%) ENDIF =I% DEFFNg(a$):LOCALN%:N%=LEN(a$)*h%!W%:=B%!b%+FNl(N%,B%!f%) DEFPROCB:LOCALo%,p%,d%,e%,k%:LOCALD%:LOCALb%(),a%():LOCAL_%,X%,Ja%,Ka%:LOCALLa%,Ma%,Na%,Oa%:LOCALPa%,Qa%,Ra%,Sa%,Ta%:LOCALUa%,N%,a$,x%,y%,i%,j%:LOCALO%:o%=FNd(32):p%=FNd(40):d%=FNd(48):e%=FNd(68):D%=FNd(16):k%=FNd(40):DIMb%(10,6),a%(7) _%=0:X%=4:Ja%=8:Ka%=12:La%=16:Ma%=20:Na%=24:Oa%=28:Va%=32:Wa%=36:Pa%=pa%:Qa%=qa%:Ra%=ra%:Sa%=ua%:Ta%=va%:o%!f%=FNc(30,1):o%!m%=FNc(15,2):o%!b%=FNf(o%,h%):o%!a%=50:o%!M%=6:o%!L%=o%!M% D%!f%=FNc(20,1):D%!m%=FNc(20,2):d%!f%=FNc(40,1):d%!m%=FNc(20,2):d%!a%=P%!Aa%-(10+d%!m%):d%!M%=5:d%!q%=FALSE:d%!qa%=1:p%!f%=FNc(5,1):p%!m%=FNc(20,2):p%!q%=FALSE:p%!M%=10:k%!Ja%=1:k%!X%=0:k%!_%=3:k%!Ka%=FALSE:k%!La%=0:k%!Wa%=0:k%!Na%=k%!X%:k%!Oa%=-1 e%!Pa%=FNc(20,1):e%!Qa%=10:e%!Ra%=6:e%!q%=TRUE:e%!Ta%=4:FORi%=1TO7:a%(i%)=FNd(44):PROCs(a%(i%),0):a%(i%)!f%=FNc(5,1):a%(i%)!m%=FNc(20,2):NEXTi%:PROCf(P%!Aa%):PROCf(P%!Ba%):PROCC(0,c%(1),k%!_%,k%!Ja%):PROCD:PROCa(FNb(1),o%!b%,o%!a%) O%=0:WHILEk%!_%>0:Ua%=FALSE:IFk%!La%=0THEN IFINKEY(-74)THENPROCE(o%!b%,o%!a%) IFINKEY(-98)THENPROCF:Ua%=TRUE IFINKEY(-67)THENPROCG:Ua%=TRUE IFINKEY(-17)THENPROCH ENDIF IFINKEY(-102)THENPROCr IFINKEY(-82)THENPROCq IFINKEY(-56)THENPROCI IFINKEY(-59)THENPROCi(2) IFINKEY(-60)THENPROCi(-2) IFk%!La%=0THEN IFUa%THEN o%!b%+=o%!L%:PROCa(FNb(1),o%!b%,o%!a%) ENDIF ENDIF O%+=1:IFO%>=10000THENO%=0 IFk%!La%=0THEN PROCJ:PROCK:PROCL:PROCM:PROCN ELSE:PROCO ENDIF WAIT:ENDWHILE:J%!f%=240:J%!m%=40:J%=FNs(J%,h%):J%!a%-=3:PROCd(J%):PROCk(J%):a$=FNa(49)+" "+FNa(53):PROCo(a$,11):PROCe(750):IFNOTk%!Ka%THEN IFk%!X%>=c%(10)THEN PROCP(k%) ENDIF ENDIF PROCc(o%):PROCc(e%):PROCc(d%):PROCc(p%):PROCc(k%):PROCc(D%):FORi%=1TO7:PROCc(a%(i%)):NEXTi%:ENDPROC DEFPROCF:IFo%!b%<=0THEN o%!b%=0 ELSE:o%!L%=0-o%!M% ENDIF ENDPROC DEFPROCG:IFo%!b%>=h%!f%-o%!f%THEN o%!b%=h%!f%-o%!f% ELSE:o%!L%=0+o%!M% ENDIF ENDPROC DEFPROCE(x%,y%):IFNOTp%!q%THEN p%!q%=TRUE:p%!b%=x%+(o%!f%/2):p%!a%=y%+o%!m% ENDIF ENDPROC DEFPROCq:REPEAT:UNTILNOTINKEY(-82):OSCLI"ScreenSave .Dump"+STR$(ea%):ea%+=1:ENDPROC DEFPROCH:LOCALi%:FORi%=1TO7:a%(i%)!q%=FALSE:NEXTi%:k%!_%=0:k%!Ka%=TRUE:ENDPROC DEFPROCr:REPEAT:UNTILNOTINKEY(-102):fa%=FNk(fa%):IFfa%=1THENOSCLI"PlayStart"ELSEOSCLI"PlayPause" ENDPROC DEFPROCi(Xa%):IFfa%=1THEN IFga%>=1ANDga%<=127THEN ga%+=Xa%:IFga%<1THENga%=1 IFga%>127THENga%=127 OSCLI"PlayVolume "+STR$(ga%) ENDIF ENDIF ENDPROC DEFPROCI:REPEATUNTILNOTINKEY(-56):k%!La%=FNk(k%!La%):k%!Ma%=k%!La%:IFk%!La%=1THEN k%!Wa%=O% ELSE:O%=k%!Wa% ENDIF ENDPROC DEFPROCU:REPEAT:UNTILNOTINKEY():IFd%!q%THEN IFNOTd%!U%THEN d%!U%=TRUE:d%!oa%=O%:PROCa(FNb(12),d%!b%,d%!a%) ENDIF ENDIF ENDPROC DEFPROCJ:LOCALYa%,Za%:Ya%=oa%:IFp%!q%THEN p%!Ya%=FALSE:IFp%!a%>=P%!Aa%-p%!m%THEN p%!q%=FALSE:p%!Ya%=TRUE ENDIF IFp%!Ya%THEN Za%=FNh(p%):Za%!a%-=2:PROCd(Za%):PROCc(Za%) ELSE:PROCa(FNb(5),p%!b%,p%!a%) ENDIF p%!a%+=p%!M% ENDIF ENDPROC DEFPROCK:LOCAL_a%,`a%,ab%,d$:_a%=oa%:`a%=pa%:ab%=qa%:IFNOTd%!q%THEN IFFNn(4)ANDFNn(5)THEN d%!q%=TRUE:d%!U%=FALSE:d%!`a%=0:d%!ab%=0:IFFNn(50)THEN d%!L%=0-d%!M%:d%!b%=h%!f% ELSE:d%!L%=0+d%!M%:d%!b%=0-d%!f% ENDIF ENDIF ELSE:d%!`a%+=1:IFd%!b%<=0-d%!f%ANDSGN(d%!L%)=-1THEN d%!_a%=FALSE:d%!q%=FALSE:ENDPROC ENDIF IFd%!b%>h%!f%ANDSGN(d%!L%)=1THEN d%!_a%=FALSE:d%!q%=FALSE:ENDPROC ENDIF IFNOTd%!U%THEN IFFNp(p%,d%)THEN PROCd(p%):PROCa(FNb(12),d%!b%,d%!a%):d%!_a%=O%:d%!U%=TRUE:p%!q%=FALSE:PROCg(500) ENDIF ELSE:IFFNp(p%,d%)THEN PROCd(p%):p%!q%=FALSE ENDIF ENDIF IFNOTd%!U%THEN IFd%!`a%>=1000THENd%!`a%=0 IFd%!`a%MOD10=0THEN d%!ab%=FNk(d%!ab%) ENDIF d$=FNb(10)+STR$(d%!ab%):PROCa(d$,d%!b%,d%!a%):d%!b%+=d%!L% ELSE:IFO%>=d%!_a%+80THEN PROCd(d%):d%!q%=FALSE:d%!_a%=FALSE:O%=0:d%!ab%=TRUE ELSE:IFO%>=d%!_a%+60THEN PROCa(FNb(15),d%!b%,d%!a%) ELSE:IFO%>=d%!_a%+40THEN PROCa(FNb(14),d%!b%,d%!a%) ELSE:IFO%>=d%!_a%+20THEN PROCa(FNb(13),d%!b%,d%!a%) ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDPROC DEFPROCL:LOCALbb%,z%,E%,K%,cb%,db%,eb%,Y%:LOCALF%,fb%,gb%:F%=oa%:fb%=sa%:gb%=ta%:IFO%MOD5=0THENe%!F%=FNk(e%!F%) bb%=e%!b%+e%!f%:Y%=0-((e%!fb%-1)*(D%!f%+e%!Pa%)):IFbb%>=h%!f%THEN e%!L%=0-e%!M%:PROCt ENDIF IFe%!b%<=Y%THEN e%!L%=0+e%!M%:PROCt ENDIF Y%=e%!a%+((e%!Sa%-1)*D%!m%):IFY%<=o%!a%+o%!m%THEN PROCQ:ENDPROC ENDIF IFFNp(p%,e%)THEN z%=D%!f%+e%!Pa%:IF(p%!b%-e%!b%)MODz%<=D%!f%THEN E%=((p%!a%-e%!a%)DIVD%!m%)+1:K%=((p%!b%-e%!b%)DIVz%)+1:IFSGN(b%(K%,E%))=1THEN b%(K%,E%)=-5:PROCd(p%):p%!q%=FALSE:e%!U%+=1:CASEE%OF WHEN1,2:PROCg(50) WHEN3,4:PROCg(75) WHEN5,6:PROCg(100) ENDCASE ENDIF ENDIF ENDIF IFe%!U%>=e%!Qa%*e%!Ra%THEN k%!Ja%+=1:PROCd(e%):PROCf(P%!Ba%):PROCh(k%!_%):PROCl(k%!Ja%):PROCu ENDIF cb%=TRUE:db%=TRUE:FORE%=1TOe%!Ra%:IFb%(e%!gb%,E%)<>0THENcb%=FALSE IFb%(e%!fb%,E%)<>0THENdb%=FALSE NEXTE%:eb%=TRUE:FORK%=1TOe%!Qa%:IFb%(K%,e%!Sa%)<>0THENeb%=FALSE NEXTK%:IFdb%THENe%!fb%+=1 IFcb%THEN e%!f%-=(D%!f%+e%!Pa%):e%!gb%-=1 ENDIF IFeb%THENe%!Sa%+=1 e%!b%+=e%!L%:PROCm:ENDPROC DEFPROCM:LOCALF%,hb%,ib%,jb%,i%,j%,x%,y%:LOCALkb%,lb%,d$,k$,mb%:F%=oa%:hb%=pa%:ib%=qa%:FORi%=1TO7:IFNOTa%(i%)!q%THEN kb%=RND(10):lb%=k%!Ja%+5:IFlb%>100THEN lb%=100:IFk%!Ja%MOD10=0THENe%!Ta%+=1 ENDIF IFFNn(lb%)ANDFNn(e%!Ta%)THEN IFb%(kb%,e%!Sa%)>0THEN x%=e%!b%+(kb%-1)*(D%!f%+e%!Pa%):y%=e%!a%+((e%!Sa%-1)*D%!m%)-D%!m%:mb%=(D%!f%/2)-(a%(i%)!f%/2):a%(i%)!b%=x%+mb%:a%(i%)!a%=y%:a%(i%)!q%=TRUE:a%(i%)!U%=FALSE:a%(i%)!hb%=1:a%(i%)!F%=0:jb%=4:IFFNn(25)THENa%(i%)!hb%=2:jb%=jb%/2 a%(i%)!M%=jb%:a%(i%)!L%=a%(i%)!M% ENDIF ENDIF ELSE:IFO%MOD5=0THEN a%(i%)!F%+=1 ENDIF IFa%(i%)!hb%=1ANDa%(i%)!F%>1THEN a%(i%)!F%=0 ENDIF IFa%(i%)!hb%=2ANDa%(i%)!F%>3THEN a%(i%)!F%=0 ENDIF k$=STR$(a%(i%)!F%):IFa%(i%)!hb%=2ANDa%(i%)!F%=3THENk$="1" d$=FNb(30)+STR$(a%(i%)!hb%)+k$:IFNOTa%(i%)!U%THEN a%(i%)!a%-=a%(i%)!L%: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%<=P%!Ba%+(P%!m%+5)THEN a%(i%)!q%=FALSE:PROCd(a%(i%)) ENDIF IFFNp(a%(i%),o%)ANDa%(i%)!q%THEN FORj%=1TO3:PROCa(FNb(2)+STR$(j%),o%!b%,o%!a%):PROCe(20):WAIT:NEXTj%:PROCd(o%):IFp%!q%THEN PROCd(p%):p%!q%=FALSE ENDIF o%!b%=FNf(o%,h%):k%!_%-=1:PROCh(k%!_%):PROCd(a%(i%)):a%(i%)!q%=FALSE:PROCa(FNb(1),o%!b%,o%!a%) ENDIF IFFNp(p%,a%(i%))THEN IFa%(i%)!hb%=1THEN IFNOTa%(i%)!U%THEN a%(i%)!U%=TRUE:PROCg(5):d$=FNb(30)+"3":PROCa(d$,a%(i%)!b%,a%(i%)!a%):a%(i%)!ib%=O% ENDIF ENDIF PROCd(p%):p%!q%=FALSE ENDIF IFa%(i%)!U%THEN IFO%-a%(i%)!ib%>=5THEN PROCd(a%(i%)):a%(i%)!q%=FALSE ENDIF ENDIF ENDIF NEXTi%:ENDPROC DEFPROCO:LOCALa$:IFO%MOD50=0THEN k%!Ma%=FNk(k%!Ma%) ENDIF a$=FNa(49)+" "+FNa(61):IFk%!Ma%=0ORk%!La%=0THEN a$=STRING$(LEN(a$)," ") ENDIF PROCv(a$):ENDPROC DEFPROCN:LOCALa$:IFk%!Oa%>=0THEN a$=FNa(66)+" "+FNa(72):IFO%MOD10=0THEN k%!Va%=FNk(k%!Va%):IFk%!Va%=1THENk%!Oa%+=1 ENDIF IFk%!Va%=0THEN a$=STRING$(LEN(a$)," ") ENDIF IFk%!Oa%>5THEN a$=STRING$(LEN(a$)," "):k%!Oa%=-1 ENDIF PROCv(a$) ENDIF ENDPROC DEFPROCz(nb%):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%:IFnb%THENPROCw ENDPROC DEFPROCA:LOCALi%,R%:R%=OPENIN".Resources.HiTable":FORi%=1TO10:INPUT#R%,a$(i%),c%(i%):INPUT#R%,d%(i%):NEXTi%:CLOSE#R%:ENDPROC DEFPROCw:LOCALi%,R%:R%=OPENOUT".Resources.HiTable":FORi%=1TO10:PRINT#R%,a$(i%),c%(i%):PRINT#R%,d%(i%):NEXTi%:CLOSE#R%:ENDPROC DEFPROCP(k%):LOCALH%,G%,ob%,g%,i%,pb%,N%,x%,y%,a$:G%=FNd(16):H%=FNd(16):G%!f%=FNc(100,1):G%!m%=FNc(40,2):G%!b%=FNf(G%,h%):G%!a%=800:H%!f%=FNc(150,1):H%!m%=FNc(40,2):H%!b%=FNf(H%,h%):H%!a%=G%!a%-H%!m%:pb%=0:FORi%=10TO1STEP-1 IFk%!X%>=c%(i%)THENpb%=i% NEXTi%:FORi%=9TOpb%STEP-1:a$(i%+1)=a$(i%):c%(i%+1)=c%(i%):d%(i%+1)=d%(i%):NEXTi%:c%(pb%)=k%!X%:d%(pb%)=k%!Ja%:CLS:PROCf(P%!Aa%):PROCf(P%!Ba%):PROCa(FNb(100),G%!b%,G%!a%):PROCa(FNb(101),H%!b%,H%!a%):a$=FNa(54)+" "+STR$(k%!X%) a$+=" "+FNa(55)+" "+STR$(pb%)+FNA(pb%):N%=LEN(a$)*h%!W%:x%=FNl(N%,h%!f%):y%=H%!a%-170:PROCb(x%,y%,a$,0):PROCc(G%):PROCc(H%):J%!f%=165:J%!m%=40:J%=FNs(J%,h%):PROCk(J%):x%=J%!b%+20:y%=J%!a%+12:a$="":i%=1:ob%=FALSE OSCLI"FX 21,0":REPEAT:g%=GET:CASEg%OF WHEN13:ob%=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 UNTILob%:IFa$=""ORa$=" "THENa$=FNa(56) a$(pb%)=FNo(a$):IFha%THENPROCw ENDPROC DEFFNB(qb%):LOCALYa%:Ya%=FALSE:IFqb%>=32ANDqb%<=126THENYa%=TRUE =Ya% DEFPROCC(rb%,sb%,l%,r%):LOCALx%,a$:a$=FNa(57)+FNm(STR$(rb%),10," ",TRUE):PROCb(0,h%!m%-h%!T%,a$,0):a$=FNa(58)+" "+FNa(57):a$+=" "+FNa(59)+FNm(STR$(sb%),10," ",TRUE):x%=h%!f%-LEN(a$)*h%!W%:PROCb(x%,h%!m%-h%!T%,a$,0):PROCh(l%):PROCl(r%):ENDPROC DEFPROCh(tb%):LOCALa$:PROCa(FNb(1),0,0):a$=" = "+STR$(tb%):PROCb(o%!f%,0,a$,0):ENDPROC DEFPROCl(tb%):LOCALx%,a$:a$=FNa(60)+" "+FNa(59):a$+=FNm(STR$(tb%),3,"0",TRUE):x%=h%!f%-LEN(a$)*h%!W%:PROCb(x%,0,a$,0):ENDPROC DEFPROCv(a$):LOCALx%,y%,N%:N%=LEN(a$)*h%!W%:x%=FNl(N%,h%!f%):y%=h%!m%-h%!T%:PROCb(x%,y%,a$,0):ENDPROC DEFPROCg(ub%):LOCALx%,a$:k%!X%+=ub%:a$=FNa(57)+" "+FNa(59):a$+=FNm(STR$(k%!X%),10," ",TRUE):PROCb(0,h%!m%-h%!T%,a$,0):IFk%!X%-k%!Na%>=5000THEN k%!_%+=1:PROCh(k%!_%):k%!Na%=k%!X%:k%!Oa%=0 ENDIF IFk%!X%>c%(1)THEN a$=FNa(58)+" "+FNa(57)+" ":a$+=FNa(59):a$+=FNm(STR$(k%!X%),10," ",TRUE):x%=h%!f%-LEN(a$)*h%!W%:PROCb(x%,h%!m%-h%!T%,a$,0) ENDIF ENDPROC DEFPROCD:LOCALF%,fb%,gb%,Sa%:F%=oa%:fb%=sa%:gb%=ta%:Sa%=ua%:PROCu:PROCm:ENDPROC DEFPROCu:LOCALE%,K%,s%:e%!b%=50:e%!a%=550:e%!F%=0:e%!U%=0:e%!M%=3:e%!L%=e%!M%:e%!fb%=1:e%!gb%=e%!Qa%:e%!Sa%=1:s%=(e%!Qa%*D%!f%)+((e%!Qa%-1)*e%!Pa%):e%!f%=s%:e%!m%=e%!Ra%*D%!m%:FORK%=1TOe%!Qa%:FORE%=1TOe%!Ra% b%(K%,E%)=((E%+1)/2)+(e%!F%*10):NEXTE%:NEXTK%:ENDPROC DEFPROCm:LOCALE%,K%,x%,y%,v%:v%=FNd(16):FORK%=e%!fb%TOe%!gb%:x%=e%!b%+((K%-1)*(D%!f%+e%!Pa%)):FORE%=e%!Sa%TOe%!Ra%:y%=e%!a%+((E%-1)*D%!m%):IFb%(K%,E%)>0THEN b%(K%,E%)=((E%+1)/2)+(e%!F%*10) ENDIF IFb%(K%,E%)<>0THEN CASESGN(b%(K%,E%))OF WHEN-1:PROCR(x%,y%,K%,E%) WHEN1:PROCa(FNb(27)+STR$(b%(K%,E%)),x%,y%) ENDCASE ELSE:v%!b%=x%:v%!a%=y%:v%!f%=D%!f%:v%!m%=D%!m%:PROCd(v%) ENDIF NEXTE%:NEXTK%:PROCc(v%):ENDPROC DEFPROCR(x%,y%,r%,c%):LOCALvb%:vb%=FNd(16):b%(r%,c%)+=1:PROCa(FNb(26),x%,y%):IFb%(r%,c%)=0THEN vb%!b%=x%:vb%!a%=y%:vb%!f%=D%!f%:vb%!m%=D%!m%:PROCd(vb%) ENDIF PROCc(vb%):ENDPROC DEFPROCt:LOCALv%,i%:v%=FNd(16):FORi%=1TO3:e%!a%-=D%!m%/3:PROCm:NEXTi%:v%!b%=e%!b%:v%!a%=e%!a%+e%!m%:v%!f%=e%!f%:v%!m%=D%!m%:PROCd(v%):PROCc(v%):ENDPROC DEFPROCQ:LOCALS%,Z%,F%,wb%,M%,i%,j$:M%=1:xb%=24:S%=FNd(28):Z%=FNd(28):PROCd(e%):PROCd(o%):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%:o%!b%=FNf(o%,h%):S%!b%=0-D%!f%:S%!a%=o%!a%:S%!L%=M%:Z%!b%=h%!f%:Z%!a%=o%!a%:Z%!L%=0-M%:k%!_%=0:PROCf(P%!Ba%):PROCh(k%!_%):PROCl(k%!Ja%):PROCa(FNb(1),o%!b%,o%!a%):F%=0:wb%=FALSE:REPEAT:S%!b%+=S%!L%:S%!xb%=S%!b%+D%!f%:Z%!b%+=Z%!L%:F%+=1 IFF%MOD20=0THENwb%=FNk(wb%) IFF%>1000THENF%=0 IFwb%THENj$=FNb(21)ELSEj$=FNb(20) PROCa(j$,S%!b%,S%!a%):PROCa(j$,Z%!b%,Z%!a%):PROCe(2):WAIT:UNTILS%!xb%>=o%!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%),o%!b%,o%!a%):PROCe(20):WAIT:NEXTi%:PROCe(20):PROCd(o%):PROCc(S%):PROCc(Z%):ENDPROC DEFFNu(e$):LOCALyb%,C%:C%=FNC(e$)+256:yb%=FNd(C%):!yb%=C%:yb%!4=0:yb%!8=16:yb%!12=16:SYSja%,256+10,yb%,e$:SYSja%,256+17,yb%:=yb% DEFPROCb(x%,y%,a$,zb%):LOCALi%,Ab%:ma%=la%:Ab%=h%!W%:FORi%=1TOLEN(a$):PROCa(STR$(ASC(MID$(a$,i%,1))),x%+((i%-1)*Ab%),y%):IFzb%>0THENPROCe(zb%) NEXTi%:ma%=ka%:ENDPROC DEFPROCa(r$,x%,y%):LOCALBb%:SYSja%,256+24,ma%,r$TO,,Bb%:SYSja%,512+34,ma%,Bb%,x%,y%,0:ENDPROC DEFPROCd(w%):GCOL0,0TINT0:RECTANGLEFILLw%!b%,w%!a%,w%!f%,w%!m%:ENDPROC DEFFNl(Cb%,h%):=(h%/2)-(Cb%/2) DEFPROCo(a$,Db%):LOCALN%,y%:N%=LEN(a$)*h%!W%:y%=(h%!m%/2)-(h%!T%/2):PROCb(FNl(N%,h%!f%),y%,a$,Db%):ENDPROC DEFFNf(Eb%,Fb%):=(Fb%!f%/2)-(Eb%!f%/2) DEFFNs(Eb%,Fb%):LOCALx%,y%:Eb%!b%=(Fb%!f%/2)-(Eb%!f%/2):Eb%!a%=(Fb%!m%/2)-(Eb%!m%/2):=Eb% DEFPROCf(a%):LOCALi%,Gb%:Gb%=h%!f%/P%!f%:FORi%=1TOGb%+1:PROCa(FNb(108),(i%-1)*P%!f%,a%):NEXTi%:ENDPROC DEFPROCk(w%):LOCALx%,y%,Hb%,Ib%,Jb%,Kb%,i%:Hb%=FNc(3,1):Ib%=FNc(3,2):Jb%=1:Kb%=3:FORi%=1TOw%!f%:x%=w%!b%+((i%-1)*Jb%):PROCa(FNb(113),x%,w%!a%):PROCa(FNb(113),x%,w%!a%+(w%!m%-(2*Kb%))):NEXTi%:x%=w%!b%+(w%!f%-Hb%):FORi%=1TOw%!m%-1 PROCa(FNb(114),w%!b%,w%!a%+((i%-1)*Jb%)):PROCa(FNb(114),x%,w%!a%+((i%-1)*Jb%)):NEXTi%:PROCa(FNb(111),w%!b%,w%!a%):PROCa(FNb(109),w%!b%,(w%!a%+w%!m%)-Ib%):PROCa(FNb(112),w%!b%+(w%!f%-Hb%),w%!a%):x%=(w%!b%+w%!f%)-Hb%:y%=(w%!a%+w%!m%)-Ib% PROCa(FNb(110),x%,y%):ENDPROC DEFFNr(e$,h$):LOCAL`%,Lb%,i$:`%=OPENIN(e$):INPUT#`%,i$:IFi$<>h$THENCLOSE#`%:ERROR255,"Bad Magic!" INPUT#`%,Lb%:CLOSE#`%:=Lb% DEFPROCj(e$,h$,RETURNi%(),RETURNf$()):LOCAL`%,i%,Lb%,i$:`%=OPENIN(e$):INPUT#`%,i$:IFi$<>h$THENCLOSE#`%:ERROR255,"Bad Magic!" INPUT#`%,Lb%:FORi%=1TOLb%:INPUT#`%,i%(i%),f$(i%):NEXTi%:CLOSE#`%:ENDPROC DEFFNa(Mb%):=FNt(Mb%,ba%,f%(),b$(),106) DEFFNb(Mb%):=FNt(Mb%,ca%,g%(),c$(),107) DEFFNe(Mb%):=FNt(Mb%,da%,h%(),d$(),108) DEFFNt(Mb%,Nb%,j%(),g$(),Ob%):LOCALi%,Pb%:Pb%=0:FORi%=1TONb%:IFj%(i%)=Mb%THENPb%=i%:i%=Nb% NEXTi%:IFPb%=0THENERROR255,FNa(Ob%)+" "+STR$(Mb%) =FNo(g$(Pb%)) DEFPROCn: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<h%!za%THENPROCn CASEQb%OF WHEN1:Rb%=C%<>h%!xa% WHEN4:Rb%=C%>>h%!ya% OTHERWISE:ERROR255,FNa(103)+" "+STR$(Qb%) ENDCASE =Rb% DEFFNp(w%,Tb%):LOCALUb%,Vb%,Wb%,Xb%:Wb%=FALSE:Xb%=FALSE:IFw%!q%ANDTb%!q%THEN Ub%=Tb%!b%+Tb%!f%:Vb%=Tb%!a%+Tb%!m%:IFw%!b%>=Tb%!b%ANDw%!b%=Tb%!a%ANDw%!a%=t%:ENDPROC DEFFNk(n%):=n%EOR1 DEFFNA(n%):LOCALc$,u%:u%=VAL(RIGHT$(STR$(n%),1)):c$=FNa(65):IFu%>=1ANDu%<=3THENc$=FNa(u%+61) =c$ DEFFNm(a$,Zb%,q$,_b%):LOCAL`b%,c$:`b%=Zb%-LEN(a$):IF`b%<=0THEN c$=LEFT$(a$,Zb%) ELSE:IF_b%THEN c$=STRING$(Zb%,q$):RIGHT$(c$,LEN(a$))=a$ ELSE:c$=a$+STRING$(`b%,q$) ENDIF ENDIF =c$ DEFFNx(a$,Zb%):LOCALc$:c$=STRING$(Zb%," "):RIGHT$(c$,LEN(a$))=a$:=c$ DEFFNv(g$):LOCALPb%:SYS"XOS_File",17,g$TOPb%:=Pb% DEFFNC(g$):LOCALC%:SYSFNe(3),5,g$TO,,,,C%:=C% DEFFNw(Qb%,g$):LOCALR%,ac%,bc%,cc%:cc%=FALSE:CASEQb%OF WHEN0:R%=OPENUP(g$+"chkfile") WHEN1:R%=OPENUP(g$) OTHERWISE:ERROR255,FNa(104)+" "+STR$(Qb%) ENDCASE IFR%<>0THEN SYSFNe(4),254,R%TObc%;ac%:IF(ac%AND1)THEN CLOSE#R%:ERROR255,FNa(105) ENDIF IF((bc%AND(1<<7))<>0)THENcc%=TRUE CLOSE#R% ENDIF =cc% DEFPROCy:LOCALdc%:ec%=0:fc%=0:SYSFNe(10),-1,-1TOgc%:SYSFNe(11)TOhc%;dc%:IFdc%AND1THENhc%=16384 PROCS(hc%):ENDPROC DEFPROCp:IFec%THEN SYSFNe(10),ec%-32768,-1TOgc%:ec%=0:fc%=0 ENDIF ENDPROC DEFFNd(ic%):LOCALA%,C%:C%=(ic%+15)AND-4:A%=FND(C%):IFA%ELSEERROR254,FNa(111) A%!0=&DEADDEAD:A%!4=ic%:!(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 fc%-=A%!-4:SYSFNe(12),3,ec%,A%:A%=0:ENDPROC DEFFNy(A%):LOCALv%:v%=A%-4:=v%!0 DEFFNj(A%,ub%):PROCs(A%,ub%):=A% DEFPROCs(A%,ub%):LOCALY%,C%:C%=FNy(A%):FORY%=0TOC%-4STEP4:A%!Y%=ub%:NEXTY%:ENDPROC DEFFNh(A%):LOCALjc%,Y%,C%:C%=FNy(A%):jc%=FNd(C%):FORY%=0TOC%-4STEP4:jc%!Y%=A%!Y%:NEXTY%:=jc% DEFPROCS(C%):IFec%THENERROR254,FNa(115) C%=(C%+hc%-1)ANDNOT(hc%-1):ec%=HIMEM:SYSFNe(10),gc%+C%,-1TOgc%:C%=gc%+32768-ec%:IFC%<1THEN ec%=0:ERROR254,FNa(116) ELSE:SYSFNe(12),0,ec%,,C% ENDIF fc%=0:ENDPROC DEFPROCT(ic%):LOCALkc%:kc%=gc%:SYSFNe(10),gc%+ic%,-1TOgc%:ic%=gc%-kc%:IFic%THENSYSFNe(12),5,ec%,,ic%TO,,,ic% ENDPROC DEFFND(ic%):LOCALA%,dc%:SYSFNe(13),2,ec%,,ic%TO,,A%;dc%:IFdc%AND1THEN PROCT((ic%+hc%)ANDNOT(hc%-1)):SYSFNe(13),2,ec%,,ic%TO,,A%;dc%:IFdc%AND1THEN=0 ENDIF fc%+=A%!-4:=A%