Home » Archimedes archive » Archimedes World » AW-1995-01-Disc1.adf » Disk1Jan95 » !AWJan95/Goodies/Warfare2/!Warfare/!Runimage
!AWJan95/Goodies/Warfare2/!Warfare/!Runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1995-01-Disc1.adf » Disk1Jan95 |
| Filename: | !AWJan95/Goodies/Warfare2/!Warfare/!Runimage |
| Read OK: | ✔ |
| File size: | 25B7 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1
2*screenload <Grav$Dir>.Title
3OFF:PROCj:TIME=0:REPEAT:MOUSEX,Y,Z:I=INKEY(0):UNTILI<>-1ORZ<>0ORTIME>500:MODE15:MODE13:OFF:PROCk:ONERRORPROCl
4REPEAT:PROCm:PROCn:REPEAT:PROCo:PROCp:c%=3-c%:UNTILd%>0ANDd%<3:PROCq(d%):PROCr:TIME=0:REPEAT:MOUSEX,Y,Z:I=INKEY(0):UNTILZ<>0ORI<>-1ORTIME>200:UNTIL0:END
5DEFFNx(X):=X DIV4
6DEFFNy(Y):=(1024-Y)DIV4
7DEFFNb(X%,Y%):GCOL63TINT255:LOCALN%,H%,f%:H%=0:FORN%=1TOm%:f%=(X%-b%(N%,3))^2+(Y%-b%(N%,4))^2:IFf%<m%(b%(N%,5))THENH%=10:N%=m%
8NEXT:IFa%(0,0)<>0THEN
9FORN%=1TOa%(0,0):f%=(X%-(a%(N%,1)+48))^2+(Y%-(a%(N%,2)-48))^2:IFf%<1500THENH%=10+N%:N%=a%(0,0)
10NEXT
11ENDIF
12IFH%<>0THEN=H%
13IFX%>16ANDX%<176ANDY%>c%(1)-72ANDY%<c%(1)THENH%=FNc(X%,Y%)
14IFX%>1080ANDX%<1240ANDY%>c%(2)-72ANDY%<c%(2)THENH%=FNd(X%,Y%)
15=H%
16DEFFNc(X,Y):IFX>44ANDX<172ANDY>c%(1)-68ANDY<c%(1)-36THEN=1
17IFX>60ANDX<132ANDY>c%(1)-40ANDY<c%(1)-28THEN=1
18IFX>60ANDX<76ANDY>c%(1)-32ANDY<c%(1)-12THEN=1
19=0
20DEFFNd(X,Y):IFX>1108ANDX<1236ANDY>c%(2)-64ANDY<c%(2)-32THEN=2
21IFX>1148ANDX<1220ANDY>c%(2)-36ANDY<c%(2)-24THEN=2
22IFX>1204ANDX<1220ANDY>c%(2)-28ANDY<c%(2)-8THEN=2
23=0
24DEFPROCj:DIMm%(4):m%()=2704,4626,10816,18496,41616:DIMd%(4):d%()=48,68,104,136,204:DIMj% 11300:DIMT% 10900:DIMU% 40:DIMn% 1024*81:DIMh%(100,1):DIMa$(10,1):a$()="":a$(0,1)="99999999":n%!0=1024*81:n%!4=0:n%!8=16:n%!12=16:DIMb%(7,5):DIMa%(5,7)
25DIMc%(2),j%(2),i%(2):DIMa(2,4),e%(2):DIMf%(5),g%(5):FORN=1TO4:DIMA% 1024:g%(N)=A%:NEXT:OSCLI("LOAD <Grav$Dir>.usprite "+STR$~T%):PROCs:s%=0:FORN=1TO2:DIMA% 2000:i%(N)=A%:NEXT:T=TIME+100:h=0:REPEAT:h+=1:UNTILTIME>T:h=h/40
26*POINTER 1
27MOUSEOFF:ENDPROC
28DEFPROCt:!e%=0:c%(1)=256+RND(512):c%(2)=256+RND(512):a%()=0:PROCu:c%=1:d%=0:q=400:r=.999:a(1,1)=90:a(1,2)=5:a(1,3)=640:a(1,4)=512:a(2,1)=270:a(2,2)=5:a(2,3)=640:a(2,4)=512:i=0:e%()=0:FORN=1TO100:h%(N,0)=RND(1280):h%(N,1)=RND(880):NEXT:ENDPROC
29DEFPROCu:LOCALg%,i%,V%,W%,_%,`%,a%:i%=0:REPEAT:i%+=1:g%=0:REPEAT:b%(i%,1)=25+RND(134):b%(i%,2)=4/3*PI*b%(i%,1)^3:b%(i%,3)=b%(i%,1)+RND(1280-2*b%(i%,1)):b%(i%,4)=b%(i%,1)+100+RND(700-2*b%(i%,1)):b%(i%,5)=b%(i%,1)DIV40:g%+=1:UNTILFNe(i%)ORg%=40:UNTILi%=7ORg%=40:m%=i%
30IFg%=40THENm%-=1
31a%=0:g%=0:REPEAT:REPEAT:V%=RND(780)+250:_%=RND(780)+250:W%=RND(700)+100:`%=RND(700)+100:g%+=1:UNTILg%=200ORFNf(V%,W%,_%,`%):UNTILa%=4OR(g%=200ANDa%=1):ENDPROC
32DEFFNf(A,B,C,D):LOCALt%,F,k%,aa%,z%,G%,x%,y%,N,F%:t%=-1:aa%=SQR((C-A)^2+(D-B)^2):k%=aa%DIV40:IFk%=0THENk%=1
33z%=(C-A)DIVk%:G%=(D-B)DIVk%:FORN=0TOk%:x%=A+N*z%:y%=B+N*G%:FORF%=1TOm%:f%=(x%-b%(F%,3))^2+(y%-b%(F%,4))^2:IFf%<m%(b%(F%,5))+10400THENt%=0:F%=m%:N=k%
34NEXT:NEXT:IFt%THEN
35a%+=1:a%(0,0)=a%:a%(a%,5)=k%*10:a%(a%,3)=1:a%(a%,4)=1:a%(a%,1)=A-40:a%(a%,2)=B+40:a%(a%,6)=z%/10:a%(a%,7)=G%/10
36ENDIF
37=t%
38DEFFNe(N):LOCALf%,F:f%=SQR((b%(N,3)-17)^2+(b%(N,4)-c%(1)-9)^2):IFf%<b%(N,1)+200THEN=0
39f%=SQR((b%(N,3)-1120-17)^2+(b%(N,4)-c%(2)-9)^2):IFf%<b%(N,1)+200THEN=0
40IFN=1THEN=-1
41ba%=TRUE:FORF=1TON-1:ca%=b%(N,1)+b%(F,1)+200:f%=SQR((b%(N,3)-b%(F,3))^2+(b%(N,4)-b%(F,4))^2):IFf%<ca%THENba%=0:F=N-1
42NEXT:=ba%
43DEFPROCn:LOCALN,Q:PROCg:FORN=1TO100:!(h%+RND(81920))=208:!(h%+RND(81920))=44:NEXT:PROCi(T%,0,0):PROCa("a1",g%(1)):PROCa("a2",g%(2)):PROCa("a3",g%(3)):PROCa("a4",g%(4)):PROCa("p1",i%(1)):PROCa("p2",i%(2)):j%(1)=FNa(i%(1),FNx(16),FNy(c%(1)))
44j%(2)=FNa(i%(2),FNx(1080),FNy(c%(2))):FORN=1TOm%:Q=(b%(N,1)DIV40):PROCa("e"+STR$(Q+2),j%):PROCi(j%,FNx(b%(N,3)-d%(Q)),FNy(b%(N,4)+d%(Q))):NEXT:IFa%(0,0)<>0THEN
45FORN=1TOa%(0,0):f%(N)=FNa(g%(N),FNx(a%(N,1)),FNy(a%(N,2))):NEXT
46ENDIF
47PROCb:ENDPROC
48DEFPROCq(S):LOCALN,P:FORN=1TO7:PROCa("ex"+STR$(S)+STR$(N),i%(S)):WAIT:WAIT:PROCb:NEXT
49*CHANNELVOICE 1 Laugh
50SOUND1,-15,64,100:PROCd(j%(S)):PROCb:ENDPROC
51DEFPROCo:LOCALv,d,X%,Y%,Z%,u%,I%,da%,ea%,J%,K%,Q%,x%,y%:MOUSEON
52MOUSETOa(c%,3),a(c%,4):PROCa("ptr"+STR$(c%),U%):J%=-1:K%=-1:d=a(c%,1):v=a(c%,2):IFc%=1THENu%=100ELSEu%=1160
53I%=c%(c%)-47:fa%=FNa(U%,0,0):IFc%=1THEN
54MOUSECOLOUR1,0,0,128:MOUSECOLOUR2,0,0,255:GCOL48TINT255
55ELSE:MOUSECOLOUR1,128,0,0:MOUSECOLOUR2,255,0,0:GCOL3TINT255
56ENDIF
57REPEAT:MOUSEX%,Y%,Z%:IFJ%<>X%ORK%<>Y THEN
58J%=X%:K%=Y%:d=FNg(X%-u%,Y%-I%,0,100):da%=u%+100*COS(RAD(d-90)):ea%=I%+100*SIN(-RAD(d-90)):PROCe(fa%,da%DIV4,(1024-ea%)DIV4)
59ELSE:FORQ%=1TOh>>1
60ENDIF
61IFZ%=1ANDv<8.7THENv+=.05
62IFZ%=2ANDv>1THENv-=.05
63IFa%(0,0)<>0THEN
64FORQ%=1TOa%(0,0):a%(Q%,1)+=a%(Q%,6)*a%(Q%,4):a%(Q%,2)+=a%(Q%,7)*a%(Q%,4):IFa%(Q%,3)=a%(Q%,5)ORa%(Q%,3)=0THENa%(Q%,4)=-a%(Q%,4)
65a%(Q%,3)+=a%(Q%,4):PROCe(f%(Q%),a%(Q%,1)DIV4,FNy(a%(Q%,2))):NEXT
66ENDIF
67PROCb:RECTANGLEFILL958,924,v*30.5,14:COLOUR57TINT255:PRINTTAB(2,30);e%(1);:COLOUR39TINT255:PRINTTAB(34,30);e%(2);:UNTILZ%=4:PROCd(fa%):a(c%,1)=d:a(c%,2)=v:a(c%,3)=X%:a(c%,4)=Y%:MOUSEOFF
68*CHANNELVOICE 1 FIRE
69SOUND1,-15,40,100:ENDPROC
70DEFFNg(s,t,u,w):LOCALA,b,c:A=SQR(s^2+t^2):IFA=0THEN=0
71b=DEG(ASN(t/A)):IFs<0THENb=180-b
72A=SQR(u^2+w^2):IFA=0THEN=0
73c=DEG(ASN(w/A)):IFu<0THENc=180-c
74IF(c-b)<0THEN=360+c-b ELSE=c-b
75DEFPROCp:LOCALx%,y%,k,l,i%,a,m,o%,e,f,p%,L%,M%,Q%:IFc%=1THENx%=100ELSEx%=1160
76y%=c%(c%)-47:p%=0:L%=0:M%=0:x%=x%+75*COS(RAD(a(c%,1)-90)):y%=y%+75*SIN(-RAD(a(c%,1)-90)):PROCa("b"+STR$(c%),j%):o%=FNa(j%,0,0):TIME=0:e=SINRADa(c%,1)*a(c%,2):f=COSRADa(c%,1)*a(c%,2):REPEAT:REPEAT:k=0:l=0:FORi%=1TOm%:a=(x%-b%(i%,3))^2+(y%-b%(i%,4))^2:IFa=0THENa=1
77m=b%(i%,2)/a:a=SQR(a):k+=m*(b%(i%,3)-x%)/a:l+=m*(b%(i%,4)-y%)/a:e+=(k/q*r):f+=(l/q*r):IF(e>12ORf>12)ANDp%THENe=e/2:f=f/2
78x%+=e:y%+=f:NEXT:IFx%>-4ANDx%<1284ANDy%>-4ANDy%<884THEN
79IFp%THENPROCv
80p%=0:IFa%(0,0)<>0THEN
81FORQ%=1TOa%(0,0):a%(Q%,1)+=a%(Q%,6)*a%(Q%,4):a%(Q%,2)+=a%(Q%,7)*a%(Q%,4):IFa%(Q%,3)=a%(Q%,5)ORa%(Q%,3)=0THENa%(Q%,4)=-a%(Q%,4)
82a%(Q%,3)+=a%(Q%,4):PROCe(f%(Q%),a%(Q%,1)DIV4,FNy(a%(Q%,2))):NEXT
83ENDIF
84PROCe(o%,FNx(x%),FNy(y%)):PROCb
85ELSE:IFNOTp%THENPROCw
86p%=-1:WAIT:GCOL0TINT0:POINT480+(L%/4),312+(M%/4):IFc%=1THENGCOL63TINT0ELSEGCOL31TINT255
87POINT480+(x%/4),312+(y%/4):L%=x%:M%=y%
88ENDIF
89FORN=1TOh:NEXT:COLOUR29TINT0:PRINTTAB(17,30);TIME;:COLOUR57TINT255:PRINTTAB(2,30);e%(1);:COLOUR39TINT255:PRINTTAB(34,30);e%(2);:d%=FNb(x%+8,y%-8):UNTILd%>0ORx%<-1920ORx%>3200ORy%<-1320ORy%>2200:i=TIME:IFd%>0THEN
90*CHANNELVOICE 1 ST-01:sample
91SOUND1,-15,40,100:PROCe(o%,FNx(x%-20),FNy(y%+16)):FORN=1TO4:PROCa("smex"+STR$(N),j%):WAIT:WAIT:PROCb:NEXT
92ENDIF
93IFd%>10THEN
94PROCd(o%):PROCd(f%(a%(0,0))):e%(c%)+=i:FORQ%=1TO7:a%(d%-10,Q%)=a%(a%(0,0),Q%):NEXT:PROCe(f%(d%-10),FNx(a%(d%-10,1)),FNy(a%(d%-10,2))):PROCx(f%(d%-10),g%(a%(0,0))):a%(0,0)-=1
95ENDIF
96UNTILd%>0ORx%<-1920ORx%>3200ORy%<-1320ORy%>2200:IFd%>0ANDd%<3THENe%(3-d%)+=i
97IFd%<11THENPROCd(o%)
98PROCb:ENDPROC
99DEFPROCw:LOCALN:PROCd(o%):PROCb:o%=FNa(j%,0,0):SYS"OS_SpriteOp",256+16,n%,"screen",0,0,0,1280,880:b%!0=1:b%!4=1:b%!8=4:b%!12=4:GCOL0TINT0:RECTANGLEFILL0,0,1280,884:GCOL21TINT0:FORN=1TO50:PLOT69,h%(N,0),h%(N,1):NEXT:GCOL42TINT0:FORN=51TO100:PLOT69,h%(N,0),h%(N,1):NEXT
100SYS"OS_SpriteOp",256+52,n%,"screen",480,312,0,b%,0:GCOL63TINT0:RECTANGLE484,312,312,216:ENDPROC
101DEFPROCv:SYS"OS_SpriteOp",256+25,n%,"screen":ENDPROC
102DEFPROCc(a$,x%,y%,ga%):y%=y%*40:IFx%=-1THENx%=(1280-LEN(a$)*32)/2
103VDU5
104GCOL0TINT0:MOVEx%+4,y%:PRINTa$:MOVEx%-4,y%:PRINTa$:MOVEx%,y%+4:PRINTa$:MOVEx%,y%-4:PRINTa$:MOVEx%+4,y%+4:PRINTa$:MOVEx%+4,y%-4:PRINTa$:MOVEx%-4,y%+4:PRINTa$:MOVEx%-4,y%-4:PRINTa$:GCOLga%TINT255:MOVEx%,y%:PRINTa$:VDU4:OFF
105ENDPROC
106DEFPROCs:LOCALC,N:C=OPENIN("<Grav$Dir>.HiScores"):IFC=0THENCLOSE#C:ENDPROC
107FORN=1TO10:INPUT#C,a$(N,0):INPUT#C,a$(N,1):NEXT:CLOSE#C:ENDPROC
108DEFPROCy:LOCALC,N:C=OPENOUT("<Grav$Dir>.HiScores"):FORN=1TO10:PRINT#C,a$(N,0):PRINT#C,a$(N,1):NEXT:CLOSE#C:ENDPROC
109DEFPROCz:LOCALN:FORN=1TO10:PROCc(a$(N,0),254,17-N,63):PROCc(a$(N,1),1026-LEN(a$(N,1))*32,17-N,63):NEXT:ENDPROC
110DEFPROCr:LOCALN$,N:IFa%(0,0)<>0THEN
111FORN=1TOa%(0,0):PROCd(f%(N)):NEXT
112ENDIF
113IFe%(3-d%)<=VAL(a$(10,0))THENENDPROC
114PROCg:PROCa("e6",j%):PROCi(j%,105,40):PROCb:PROCc("Player "+STR$(d%)+" has been destroyed",-1,18,57):PROCc("Please enter your name",-1,16,57):PROCc("player "+STR$(3-d%)+":",-1,15,57):COLOUR29TINT255:N$=FNh(20,"................"):N=10:REPEAT:IFe%(3-d%)>VAL(a$(N,1))THEN
115a$(N,0)=a$(N-1,0):a$(N,1)=a$(N-1,1)
116ENDIF
117N-=1:UNTILe%(3-d%)<VAL(a$(N,1)):a$(N+1,0)=N$:a$(N+1,1)=STR$(e%(3-d%)):PROCy:ENDPROC
118DEFFNh(y,t$):LOCALx,j:x=1:j=LEN(t$):REPEAT:PRINTTAB((40-LEN(t$))/2,y)t$:REPEAT:G=GET:UNTIL(G>31ANDG<128)ORG=13:IFG=127THEN
119MID$(t$,x-1)=".":IFx>1THENx-=1
120ELSE:IFG<>13ANDx<=j THEN
121MID$(t$,x)=CHR$G:IFx<=j THENx+=1
122ENDIF
123ENDIF
124UNTILG=13:FORN=x TOj:MID$(t$,N)=" ":NEXT:=t$
125DEFPROCm:s%=-1:IFv%<>r%THENPROCh
126MOUSEOFF:s%=-1:aa=1:i=0:ba=0:ca=0:da=5:ha%=0:!e%=0::PROCg:FORN=1TO100:!(h%+RND(81920))=208:!(h%+RND(81920))=44:NEXT:PROCb:PROCf(-20,886,1320,40):PROCf(-20,90,1320,40):PROCf(160,204,960,572):PROCf(230,820,820,172):PROCf(220,70,840,80):PROCc("Welcome to !Warfare",-1,24,57)
127PROCc("by",-1,23,44):PROCc("Robert Taylor",-1,22,29):PROCc("High Scores",-1,18,39):PROCc("Press any key to start",-1,3,57):PROCz:PROCt:REPEAT:MOUSEX,Y,Z:I=INKEY(0):UNTILZ<>0ORI<>-1:MOUSEON
128s%=0:ENDPROC
129DEFPROCf(X,Y,W,H):LOCALN,F:GCOL0,0TINT64:RECTANGLEFILLX,Y,W,H:GCOL0,0TINT255:RECTANGLEFILLX+4,Y+4,W-8,H-8:GCOL0,21TINT64:RECTANGLEFILLX+8,Y+8,W-16,H-16:GCOL0,21TINT255:RECTANGLEFILLX+12,Y+12,W-24,H-24:GCOL0,42TINT64:RECTANGLEFILLX+16,Y+16,W-32,H-32:ENDPROC
130DEFPROCl:IFERR=17THEN
131IFs%THEN*Desktop
132ELSE:MODE12:PRINTREPORT$;" at line ";STR$(ERL):END
133ENDIF
134ENDPROC
135DEFPROCk:DIMO% 1024*35:DIMh% 1024*81:DIMe% 1024*2:DIMb% 1024:DIMk%(2):OSCLI("LOAD <Grav$Dir>.csprite "+STR$~O%):PROCA:PROCg:!e%=0:!z=e%:!E=h%+8:SYS"OS_Byte",113,1:SYS"OS_Byte",112,1:r%=1:v%=1:!b%=149:b%!4=-1:SYS"OS_ReadVduVariables",b%,b%+8:k%(1)=b%!8:PROCh
136SYS"OS_ReadVduVariables",b%,b%+8:k%(2)=b%!8:PROCh:ENDPROC
137DEFPROCh:v%=3-v%:WAIT:SYS"OS_Byte",113,v%:ENDPROC
138DEFPROCB:r%=3-r%:SYS"OS_Byte",112,r%:ENDPROC
139DEFPROCg:A%=h%:B%=h%+1024*80:CALLL:ENDPROC
140DEFFNa(n,x,y):LOCALq%:q%=!e%:!(e%+q%*12+4)=n:!(e%+q%*12+8)=x:!(e%+q%*12+12)=y:!e%=q%+1:=q%+1
141DEFPROCe(g,x,y):IFx<0x=0
142IFx>319x=319
143IFy<0y=0
144IFy>255y=255
145!(e%+g*12-4)=x:!(e%+g*12)=y:ENDPROC
146DEFPROCx(g,n):!(e%+g*12-8)=n:ENDPROC
147DEFPROCd(g):LOCALN:!e%=!e%-1:FORN=g TO!e%:!(e%+N*12-8)=!(e%+N*12+4):!(e%+N*12-4)=!(e%+N*12+8):!(e%+N*12)=!(e%+N*12+12):NEXT:ENDPROC
148DEFPROCi(ia%,x,y):!o=h%+8:D%=ia%:E%=h%+8+x+y*320:CALLJ:ENDPROC
149DEFPROCb:PROCB:!p=k%(r%):CALLM:PROCh:ENDPROC
150DEFPROCa(b$,R%):LOCALN,S%,w%:S%=O%!0:w%=-1:l%=O%+4:FORN=0TOS%-1:IF$(l%+20*N)=b$THENw%=!(l%+16+20*N)
151NEXT:IFw%=-1THENERROR17,"Sprite "+b$+" does not exist."
152l%=l%+w%+S%*20:R%!0=l%!0:R%!4=l%!4:B%=R%+8:C%=l%!8:D%=l%+13:E%=B%+81920:CALLO:ENDPROC
153DEFPROCA:DIMja% 3072:FORK=0TO2STEP2:P%=ja%:::::[OPT K:.z:EQUD0:.p:EQUD0:.E:EQUD0:.o:EQUD0:.fa: ]:P%+=1024:[OPT K:.O:.R:LDRB7,[3,#1] !:LDRB8,[3,#1] !:MOV9,8:.U:STRB7,[1,#1] !:SUBS9,9,#1:BNE U
154SUBS2,2,#1:BNE R:MOV PC,14:.M:LDR0,E:LDR1,p:MOV2,#256:.V:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}
155LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:SUBS2,2,#1:BNE V:LDR0,z:LDR1,p:STR1,o:SUB0,0,#4:LDR2,[0,#4] !:CMP2,#0:MOVEQ PC,14:MOV12,14
156._:LDR3,[0,#4] !:LDR5,[0,#4] !:LDR4,[0,#4] !:MOV6,#320:MUL 4,6,4:ADD4,4,5:ADD4,4,1:BL J:SUBS2,2,#1:BNE _:MOV PC,12:.J:SUB3,3,#4:LDR5,[3,#4] !:LDR6,[3,#4] !:ADD3,3,#4:LDR9,o:MOV10,4:SUB10,10,9
157.` CMP10,#320:SUBGE10,10,#320:BGE `:RSB10,10,#320:MOV11,#0:CMP5,10:SUBGE11,5,10:MOVGE5,10:ADD9,9,#81920:.ga:MOV8,5:.ha:LDRB7,[3,#1] !:CMP7,#227:STRNEB7,[4]:ADD4,4,#1:SUBS8,8,#1:BNE ha
158ADD4,4,#320:SUB4,4,5:ADD3,3,11:CMP4,9:MOVGE PC,14:SUBS6,6,#1:BNE ga:MOV PC,14:.L:MOV2,#0:MOV3,#0:MOV4,#0:MOV5,#0:MOV6,#0:MOV7,#0:MOV8,#0:MOV9,#0:.ia:STMIA0!,{2-9}:CMP0,1:BLS ia:MOV PC,14: ]:NEXT:ENDPROC
*screenload <Grav$Dir>.Title
A�:�j:�=0:�:ȗX,Y,Z:I=�(0):�I<>-1�Z<>0��>500:�15:�13:�:�k:��l
\�:�m:�n:�:�o:�p:c%=3-c%:�d%>0�d%<3:�q(d%):�r:�=0:�:ȗX,Y,Z:I=�(0):�Z<>0�I<>-1��>200:�0:�
ݤx(X):=X �4
ݤy(Y):=(1024-Y)�4
oݤb(X%,Y%):�63Ȝ255:�N%,H%,f%:H%=0:�N%=1�m%:f%=(X%-b%(N%,3))^2+(Y%-b%(N%,4))^2:�f%<m%(b%(N%,5))�H%=10:N%=m%
�:�a%(0,0)<>0�
[�N%=1�a%(0,0):f%=(X%-(a%(N%,1)+48))^2+(Y%-(a%(N%,2)-48))^2:�f%<1500�H%=10+N%:N%=a%(0,0)
�
�
�H%<>0�=H%
3�X%>16�X%<176�Y%>c%(1)-72�Y%<c%(1)�H%=�c(X%,Y%)
6�X%>1080�X%<1240�Y%>c%(2)-72�Y%<c%(2)�H%=�d(X%,Y%)
=H%
1ݤc(X,Y):�X>44�X<172�Y>c%(1)-68�Y<c%(1)-36�=1
(�X>60�X<132�Y>c%(1)-40�Y<c%(1)-28�=1
'�X>60�X<76�Y>c%(1)-32�Y<c%(1)-12�=1
=0
4ݤd(X,Y):�X>1108�X<1236�Y>c%(2)-64�Y<c%(2)-32�=2
+�X>1148�X<1220�Y>c%(2)-36�Y<c%(2)-24�=2
*�X>1204�X<1220�Y>c%(2)-28�Y<c%(2)-8�=2
=0
���j:�m%(4):m%()=2704,4626,10816,18496,41616:�d%(4):d%()=48,68,104,136,204:�j% 11300:�T% 10900:�U% 40:�n% 1024*81:�h%(100,1):�a$(10,1):a$()="":a$(0,1)="99999999":n%!0=1024*81:n%!4=0:n%!8=16:n%!12=16:�b%(7,5):�a%(5,7)
��c%(2),j%(2),i%(2):�a(2,4),e%(2):�f%(5),g%(5):�N=1�4:�A% 1024:g%(N)=A%:�:�("LOAD <Grav$Dir>.usprite "+�~T%):�s:s%=0:�N=1�2:�A% 2000:i%(N)=A%:�:T=�+100:h=0:�:h+=1:��>T:h=h/40
*POINTER 1
ȗ�:�
���t:!e%=0:c%(1)=256+�(512):c%(2)=256+�(512):a%()=0:�u:c%=1:d%=0:q=400:r=.999:a(1,1)=90:a(1,2)=5:a(1,3)=640:a(1,4)=512:a(2,1)=270:a(2,2)=5:a(2,3)=640:a(2,4)=512:i=0:e%()=0:�N=1�100:h%(N,0)=�(1280):h%(N,1)=�(880):�:�
���u:�g%,i%,V%,W%,_%,`%,a%:i%=0:�:i%+=1:g%=0:�:b%(i%,1)=25+�(134):b%(i%,2)=4/3*�*b%(i%,1)^3:b%(i%,3)=b%(i%,1)+�(1280-2*b%(i%,1)):b%(i%,4)=b%(i%,1)+100+�(700-2*b%(i%,1)):b%(i%,5)=b%(i%,1)�40:g%+=1:��e(i%)�g%=40:�i%=7�g%=40:m%=i%
�g%=40�m%-=1
}a%=0:g%=0:�:�:V%=�(780)+250:_%=�(780)+250:W%=�(700)+100:`%=�(700)+100:g%+=1:�g%=200��f(V%,W%,_%,`%):�a%=4�(g%=200�a%=1):�
`ݤf(A,B,C,D):�t%,F,k%,aa%,z%,G%,x%,y%,N,F%:t%=-1:aa%=�((C-A)^2+(D-B)^2):k%=aa%�40:�k%=0�k%=1
!�z%=(C-A)�k%:G%=(D-B)�k%:�N=0�k%:x%=A+N*z%:y%=B+N*G%:�F%=1�m%:f%=(x%-b%(F%,3))^2+(y%-b%(F%,4))^2:�f%<m%(b%(F%,5))+10400�t%=0:F%=m%:N=k%
" �:�:�t%�
#sa%+=1:a%(0,0)=a%:a%(a%,5)=k%*10:a%(a%,3)=1:a%(a%,4)=1:a%(a%,1)=A-40:a%(a%,2)=B+40:a%(a%,6)=z%/10:a%(a%,7)=G%/10
$�
%=t%
&Lݤe(N):�f%,F:f%=�((b%(N,3)-17)^2+(b%(N,4)-c%(1)-9)^2):�f%<b%(N,1)+200�=0
'Df%=�((b%(N,3)-1120-17)^2+(b%(N,4)-c%(2)-9)^2):�f%<b%(N,1)+200�=0
( �N=1�=-1
)lba%=�:�F=1�N-1:ca%=b%(N,1)+b%(F,1)+200:f%=�((b%(N,3)-b%(F,3))^2+(b%(N,4)-b%(F,4))^2):�f%<ca%�ba%=0:F=N-1
*
�:=ba%
+���n:�N,Q:�g:�N=1�100:!(h%+�(81920))=208:!(h%+�(81920))=44:�:�i(T%,0,0):�a("a1",g%(1)):�a("a2",g%(2)):�a("a3",g%(3)):�a("a4",g%(4)):�a("p1",i%(1)):�a("p2",i%(2)):j%(1)=�a(i%(1),�x(16),�y(c%(1)))
,�j%(2)=�a(i%(2),�x(1080),�y(c%(2))):�N=1�m%:Q=(b%(N,1)�40):�a("e"+�(Q+2),j%):�i(j%,�x(b%(N,3)-d%(Q)),�y(b%(N,4)+d%(Q))):�:�a%(0,0)<>0�
-:�N=1�a%(0,0):f%(N)=�a(g%(N),�x(a%(N,1)),�y(a%(N,2))):�
.�
/�b:�
0:��q(S):�N,P:�N=1�7:�a("ex"+�(S)+�(N),i%(S)):Ȗ:Ȗ:�b:�
1*CHANNELVOICE 1 Laugh
2 �1,-15,64,100:�d(j%(S)):�b:�
36��o:�v,d,X%,Y%,Z%,u%,I%,da%,ea%,J%,K%,Q%,x%,y%:ȗ�
4^ȗ�a(c%,3),a(c%,4):�a("ptr"+�(c%),U%):J%=-1:K%=-1:d=a(c%,1):v=a(c%,2):�c%=1�u%=100�u%=1160
5&I%=c%(c%)-47:fa%=�a(U%,0,0):�c%=1�
6&ȗ�1,0,0,128:ȗ�2,0,0,255:�48Ȝ255
7'�:ȗ�1,128,0,0:ȗ�2,255,0,0:�3Ȝ255
8�
9 �:ȗX%,Y%,Z%:�J%<>X%�K%<>Y �
:oJ%=X%:K%=Y%:d=�g(X%-u%,Y%-I%,0,100):da%=u%+100*�(�(d-90)):ea%=I%+100*�(-�(d-90)):�e(fa%,da%�4,(1024-ea%)�4)
;�:�Q%=1�h>>1
<�
=�Z%=1�v<8.7�v+=.05
>�Z%=2�v>1�v-=.05
?�a%(0,0)<>0�
@z�Q%=1�a%(0,0):a%(Q%,1)+=a%(Q%,6)*a%(Q%,4):a%(Q%,2)+=a%(Q%,7)*a%(Q%,4):�a%(Q%,3)=a%(Q%,5)�a%(Q%,3)=0�a%(Q%,4)=-a%(Q%,4)
A;a%(Q%,3)+=a%(Q%,4):�e(f%(Q%),a%(Q%,1)�4,�y(a%(Q%,2))):�
B�
C��b:ȓȐ958,924,v*30.5,14:�57Ȝ255:�2,30);e%(1);:�39Ȝ255:�34,30);e%(2);:�Z%=4:�d(fa%):a(c%,1)=d:a(c%,2)=v:a(c%,3)=X%:a(c%,4)=Y%:ȗ�
D*CHANNELVOICE 1 FIRE
E�1,-15,40,100:�
F,ݤg(s,t,u,w):�A,b,c:A=�(s^2+t^2):�A=0�=0
G b=�(�(t/A)):�s<0�b=180-b
HA=�(u^2+w^2):�A=0�=0
I c=�(�(w/A)):�u<0�c=180-c
J�(c-b)<0�=360+c-b �=c-b
KA��p:�x%,y%,k,l,i%,a,m,o%,e,f,p%,L%,M%,Q%:�c%=1�x%=100�x%=1160
L�y%=c%(c%)-47:p%=0:L%=0:M%=0:x%=x%+75*�(�(a(c%,1)-90)):y%=y%+75*�(-�(a(c%,1)-90)):�a("b"+�(c%),j%):o%=�a(j%,0,0):�=0:e=��a(c%,1)*a(c%,2):f=��a(c%,1)*a(c%,2):�:�:k=0:l=0:�i%=1�m%:a=(x%-b%(i%,3))^2+(y%-b%(i%,4))^2:�a=0�a=1
Msm=b%(i%,2)/a:a=�(a):k+=m*(b%(i%,3)-x%)/a:l+=m*(b%(i%,4)-y%)/a:e+=(k/q*r):f+=(l/q*r):�(e>12�f>12)�p%�e=e/2:f=f/2
N.x%+=e:y%+=f:�:�x%>-4�x%<1284�y%>-4�y%<884�
O
�p%��v
Pp%=0:�a%(0,0)<>0�
Qz�Q%=1�a%(0,0):a%(Q%,1)+=a%(Q%,6)*a%(Q%,4):a%(Q%,2)+=a%(Q%,7)*a%(Q%,4):�a%(Q%,3)=a%(Q%,5)�a%(Q%,3)=0�a%(Q%,4)=-a%(Q%,4)
R;a%(Q%,3)+=a%(Q%,4):�e(f%(Q%),a%(Q%,1)�4,�y(a%(Q%,2))):�
S�
T�e(o%,�x(x%),�y(y%)):�b
U
�:�p%��w
V@p%=-1:Ȗ:�0Ȝ0:Ȓ480+(L%/4),312+(M%/4):�c%=1��63Ȝ0��31Ȝ255
W'Ȓ480+(x%/4),312+(y%/4):L%=x%:M%=y%
X�
Y��N=1�h:�:�29Ȝ0:�17,30);�;:�57Ȝ255:�2,30);e%(1);:�39Ȝ255:�34,30);e%(2);:d%=�b(x%+8,y%-8):�d%>0�x%<-1920�x%>3200�y%<-1320�y%>2200:i=�:�d%>0�
Z *CHANNELVOICE 1 ST-01:sample
[Q�1,-15,40,100:�e(o%,�x(x%-20),�y(y%+16)):�N=1�4:�a("smex"+�(N),j%):Ȗ:Ȗ:�b:�
\�
] �d%>10�
^��d(o%):�d(f%(a%(0,0))):e%(c%)+=i:�Q%=1�7:a%(d%-10,Q%)=a%(a%(0,0),Q%):�:�e(f%(d%-10),�x(a%(d%-10,1)),�y(a%(d%-10,2))):�x(f%(d%-10),g%(a%(0,0))):a%(0,0)-=1
_�
`B�d%>0�x%<-1920�x%>3200�y%<-1320�y%>2200:�d%>0�d%<3�e%(3-d%)+=i
a�d%<11��d(o%)
b�b:�
c���w:�N:�d(o%):�b:o%=�a(j%,0,0):ș"OS_SpriteOp",256+16,n%,"screen",0,0,0,1280,880:b%!0=1:b%!4=1:b%!8=4:b%!12=4:�0Ȝ0:ȓȐ0,0,1280,884:�21Ȝ0:�N=1�50:�69,h%(N,0),h%(N,1):�:�42Ȝ0:�N=51�100:�69,h%(N,0),h%(N,1):�
dPș"OS_SpriteOp",256+52,n%,"screen",480,312,0,b%,0:�63Ȝ0:ȓ484,312,312,216:�
e,��v:ș"OS_SpriteOp",256+25,n%,"screen":�
f:��c(a$,x%,y%,ga%):y%=y%*40:�x%=-1�x%=(1280-�(a$)*32)/2
g�5
h��0Ȝ0:�x%+4,y%:�a$:�x%-4,y%:�a$:�x%,y%+4:�a$:�x%,y%-4:�a$:�x%+4,y%+4:�a$:�x%+4,y%-4:�a$:�x%-4,y%+4:�a$:�x%-4,y%-4:�a$:�ga%Ȝ255:�x%,y%:�a$:�4:�
i�
j2��s:�C,N:C=�("<Grav$Dir>.HiScores"):�C=0��#C:�
k+�N=1�10:�#C,a$(N,0):�#C,a$(N,1):�:�#C:�
lO��y:�C,N:C=�("<Grav$Dir>.HiScores"):�N=1�10:�#C,a$(N,0):�#C,a$(N,1):�:�#C:�
mU��z:�N:�N=1�10:�c(a$(N,0),254,17-N,63):�c(a$(N,1),1026-�(a$(N,1))*32,17-N,63):�:�
n��r:�N$,N:�a%(0,0)<>0�
o �N=1�a%(0,0):�d(f%(N)):�
p�
q �e%(3-d%)<=�(a$(10,0))��
r��g:�a("e6",j%):�i(j%,105,40):�b:�c("Player "+�(d%)+" has been destroyed",-1,18,57):�c("Please enter your name",-1,16,57):�c("player "+�(3-d%)+":",-1,15,57):�29Ȝ255:N$=�h(20,"................"):N=10:�:�e%(3-d%)>�(a$(N,1))�
s'a$(N,0)=a$(N-1,0):a$(N,1)=a$(N-1,1)
t�
uEN-=1:�e%(3-d%)<�(a$(N,1)):a$(N+1,0)=N$:a$(N+1,1)=�(e%(3-d%)):�y:�
vUݤh(y,t$):�x,j:x=1:j=�(t$):�:�(40-�(t$))/2,y)t$:�:G=�:�(G>31�G<128)�G=13:�G=127�
w�t$,x-1)=".":�x>1�x-=1
x�:�G<>13�x<=j �
y�t$,x)=�G:�x<=j �x+=1
z�
{�
|"�G=13:�N=x �j:�t$,N)=" ":�:=t$
}��m:s%=-1:�v%<>r%��h
~�ȗ�:s%=-1:aa=1:i=0:ba=0:ca=0:da=5:ha%=0:!e%=0::�g:�N=1�100:!(h%+�(81920))=208:!(h%+�(81920))=44:�:�b:�f(-20,886,1320,40):�f(-20,90,1320,40):�f(160,204,960,572):�f(230,820,820,172):�f(220,70,840,80):�c("Welcome to !Warfare",-1,24,57)
��c("by",-1,23,44):�c("Robert Taylor",-1,22,29):�c("High Scores",-1,18,39):�c("Press any key to start",-1,3,57):�z:�t:�:ȗX,Y,Z:I=�(0):�Z<>0�I<>-1:ȗ�
�
s%=0:�
����f(X,Y,W,H):�N,F:�0,0Ȝ64:ȓȐX,Y,W,H:�0,0Ȝ255:ȓȐX+4,Y+4,W-8,H-8:�0,21Ȝ64:ȓȐX+8,Y+8,W-16,H-16:�0,21Ȝ255:ȓȐX+12,Y+12,W-24,H-24:�0,42Ȝ64:ȓȐX+16,Y+16,W-32,H-32:�
���l:�=17�
��s%�*Desktop
� �:�12:�$;" at line ";�(�):�
��
��
����k:�O% 1024*35:�h% 1024*81:�e% 1024*2:�b% 1024:�k%(2):�("LOAD <Grav$Dir>.csprite "+�~O%):�A:�g:!e%=0:!z=e%:!E=h%+8:ș"OS_Byte",113,1:ș"OS_Byte",112,1:r%=1:v%=1:!b%=149:b%!4=-1:ș"OS_ReadVduVariables",b%,b%+8:k%(1)=b%!8:�h
�3ș"OS_ReadVduVariables",b%,b%+8:k%(2)=b%!8:�h:�
�'��h:v%=3-v%:Ȗ:ș"OS_Byte",113,v%:�
�$��B:r%=3-r%:ș"OS_Byte",112,r%:�
� ��g:A%=h%:B%=h%+1024*80:�L:�
�Yݤa(n,x,y):�q%:q%=!e%:!(e%+q%*12+4)=n:!(e%+q%*12+8)=x:!(e%+q%*12+12)=y:!e%=q%+1:=q%+1
���e(g,x,y):�x<0x=0
��x>319x=319
� �y<0y=0
��y>255y=255
�!!(e%+g*12-4)=x:!(e%+g*12)=y:�
� ��x(g,n):!(e%+g*12-8)=n:�
�r��d(g):�N:!e%=!e%-1:�N=g �!e%:!(e%+N*12-8)=!(e%+N*12+4):!(e%+N*12-4)=!(e%+N*12+8):!(e%+N*12)=!(e%+N*12+12):�:�
�4��i(ia%,x,y):!o=h%+8:D%=ia%:E%=h%+8+x+y*320:�J:�
� ��b:�B:!p=k%(r%):�M:�h:�
�W��a(b$,R%):�N,S%,w%:S%=O%!0:w%=-1:l%=O%+4:�N=0�S%-1:�$(l%+20*N)=b$�w%=!(l%+16+20*N)
�0�:�w%=-1��17,"Sprite "+b$+" does not exist."
�Pl%=l%+w%+S%*20:R%!0=l%!0:R%!4=l%!4:B%=R%+8:C%=l%!8:D%=l%+13:E%=B%+81920:�O:�
����A:�ja% 3072:�K=0�2�2:P%=ja%:::::[OPT K:.z:EQUD0:.p:EQUD0:.E:EQUD0:.o:EQUD0:.fa: ]:P%+=1024:[OPT K:.O:.R:LDRB7,[3,#1] !:LDRB8,[3,#1] !:MOV9,8:.U:STRB7,[1,#1] !:SUBS9,9,#1:BNE U
��SUBS2,2,#1:BNE R:MOV PC,14:.M:LDR0,E:LDR1,p:MOV2,#256:.V:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}
��LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:LDMIA0!,{3-12}:STMIA1!,{3-12}:SUBS2,2,#1:BNE V:LDR0,z:LDR1,p:STR1,o:SUB0,0,#4:LDR2,[0,#4] !:CMP2,#0:�Q PC,14:MOV12,14
��._:LDR3,[0,#4] !:LDR5,[0,#4] !:LDR4,[0,#4] !:MOV6,#320:MUL 4,6,4:ADD4,4,5:ADD4,4,1:BL J:SUBS2,2,#1:BNE _:MOV PC,12:.J:SUB3,3,#4:LDR5,[3,#4] !:LDR6,[3,#4] !:ADD3,3,#4:LDR9,o:MOV10,4:SUB10,10,9
��.` CMP10,#320:SUBGE10,10,#320:BGE `:RSB10,10,#320:MOV11,#0:CMP5,10:SUBGE11,5,10:MOVGE5,10:ADD9,9,#81920:.ga:MOV8,5:.ha:LDRB7,[3,#1] !:CMP7,#227:STRNEB7,[4]:ADD4,4,#1:SUBS8,8,#1:BNE ha
��ADD4,4,#320:SUB4,4,5:ADD3,3,11:CMP4,9:MOVGE PC,14:SUBS6,6,#1:BNE ga:MOV PC,14:.L:MOV2,#0:MOV3,#0:MOV4,#0:MOV5,#0:MOV6,#0:MOV7,#0:MOV8,#0:MOV9,#0:.ia:STMIA0!,{2-9}:CMP0,1:BLS ia:MOV PC,14: ]:�:�
� 00000000 0d 00 01 04 0d 00 02 20 2a 73 63 72 65 65 6e 6c |....... *screenl|
00000010 6f 61 64 20 3c 47 72 61 76 24 44 69 72 3e 2e 54 |oad <Grav$Dir>.T|
00000020 69 74 6c 65 0d 00 03 41 87 3a f2 6a 3a d1 3d 30 |itle...A.:.j:.=0|
00000030 3a f5 3a c8 97 58 2c 59 2c 5a 3a 49 3d a6 28 30 |:.:..X,Y,Z:I=.(0|
00000040 29 3a fd 49 3c 3e 2d 31 84 5a 3c 3e 30 84 91 3e |):.I<>-1.Z<>0..>|
00000050 35 30 30 3a eb 31 35 3a eb 31 33 3a 87 3a f2 6b |500:.15:.13:.:.k|
00000060 3a ee 85 f2 6c 0d 00 04 5c f5 3a f2 6d 3a f2 6e |:...l...\.:.m:.n|
00000070 3a f5 3a f2 6f 3a f2 70 3a 63 25 3d 33 2d 63 25 |:.:.o:.p:c%=3-c%|
00000080 3a fd 64 25 3e 30 80 64 25 3c 33 3a f2 71 28 64 |:.d%>0.d%<3:.q(d|
00000090 25 29 3a f2 72 3a d1 3d 30 3a f5 3a c8 97 58 2c |%):.r:.=0:.:..X,|
000000a0 59 2c 5a 3a 49 3d a6 28 30 29 3a fd 5a 3c 3e 30 |Y,Z:I=.(0):.Z<>0|
000000b0 84 49 3c 3e 2d 31 84 91 3e 32 30 30 3a fd 30 3a |.I<>-1..>200:.0:|
000000c0 e0 0d 00 05 10 dd a4 78 28 58 29 3a 3d 58 20 81 |.......x(X):=X .|
000000d0 34 0d 00 06 16 dd a4 79 28 59 29 3a 3d 28 31 30 |4......y(Y):=(10|
000000e0 32 34 2d 59 29 81 34 0d 00 07 6f dd a4 62 28 58 |24-Y).4...o..b(X|
000000f0 25 2c 59 25 29 3a e6 36 33 c8 9c 32 35 35 3a ea |%,Y%):.63..255:.|
00000100 4e 25 2c 48 25 2c 66 25 3a 48 25 3d 30 3a e3 4e |N%,H%,f%:H%=0:.N|
00000110 25 3d 31 b8 6d 25 3a 66 25 3d 28 58 25 2d 62 25 |%=1.m%:f%=(X%-b%|
00000120 28 4e 25 2c 33 29 29 5e 32 2b 28 59 25 2d 62 25 |(N%,3))^2+(Y%-b%|
00000130 28 4e 25 2c 34 29 29 5e 32 3a e7 66 25 3c 6d 25 |(N%,4))^2:.f%<m%|
00000140 28 62 25 28 4e 25 2c 35 29 29 8c 48 25 3d 31 30 |(b%(N%,5)).H%=10|
00000150 3a 4e 25 3d 6d 25 0d 00 08 12 ed 3a e7 61 25 28 |:N%=m%.....:.a%(|
00000160 30 2c 30 29 3c 3e 30 8c 0d 00 09 5b e3 4e 25 3d |0,0)<>0....[.N%=|
00000170 31 b8 61 25 28 30 2c 30 29 3a 66 25 3d 28 58 25 |1.a%(0,0):f%=(X%|
00000180 2d 28 61 25 28 4e 25 2c 31 29 2b 34 38 29 29 5e |-(a%(N%,1)+48))^|
00000190 32 2b 28 59 25 2d 28 61 25 28 4e 25 2c 32 29 2d |2+(Y%-(a%(N%,2)-|
000001a0 34 38 29 29 5e 32 3a e7 66 25 3c 31 35 30 30 8c |48))^2:.f%<1500.|
000001b0 48 25 3d 31 30 2b 4e 25 3a 4e 25 3d 61 25 28 30 |H%=10+N%:N%=a%(0|
000001c0 2c 30 29 0d 00 0a 05 ed 0d 00 0b 05 cd 0d 00 0c |,0).............|
000001d0 0e e7 48 25 3c 3e 30 8c 3d 48 25 0d 00 0d 33 e7 |..H%<>0.=H%...3.|
000001e0 58 25 3e 31 36 80 58 25 3c 31 37 36 80 59 25 3e |X%>16.X%<176.Y%>|
000001f0 63 25 28 31 29 2d 37 32 80 59 25 3c 63 25 28 31 |c%(1)-72.Y%<c%(1|
00000200 29 8c 48 25 3d a4 63 28 58 25 2c 59 25 29 0d 00 |).H%=.c(X%,Y%)..|
00000210 0e 36 e7 58 25 3e 31 30 38 30 80 58 25 3c 31 32 |.6.X%>1080.X%<12|
00000220 34 30 80 59 25 3e 63 25 28 32 29 2d 37 32 80 59 |40.Y%>c%(2)-72.Y|
00000230 25 3c 63 25 28 32 29 8c 48 25 3d a4 64 28 58 25 |%<c%(2).H%=.d(X%|
00000240 2c 59 25 29 0d 00 0f 07 3d 48 25 0d 00 10 31 dd |,Y%)....=H%...1.|
00000250 a4 63 28 58 2c 59 29 3a e7 58 3e 34 34 80 58 3c |.c(X,Y):.X>44.X<|
00000260 31 37 32 80 59 3e 63 25 28 31 29 2d 36 38 80 59 |172.Y>c%(1)-68.Y|
00000270 3c 63 25 28 31 29 2d 33 36 8c 3d 31 0d 00 11 28 |<c%(1)-36.=1...(|
00000280 e7 58 3e 36 30 80 58 3c 31 33 32 80 59 3e 63 25 |.X>60.X<132.Y>c%|
00000290 28 31 29 2d 34 30 80 59 3c 63 25 28 31 29 2d 32 |(1)-40.Y<c%(1)-2|
000002a0 38 8c 3d 31 0d 00 12 27 e7 58 3e 36 30 80 58 3c |8.=1...'.X>60.X<|
000002b0 37 36 80 59 3e 63 25 28 31 29 2d 33 32 80 59 3c |76.Y>c%(1)-32.Y<|
000002c0 63 25 28 31 29 2d 31 32 8c 3d 31 0d 00 13 06 3d |c%(1)-12.=1....=|
000002d0 30 0d 00 14 34 dd a4 64 28 58 2c 59 29 3a e7 58 |0...4..d(X,Y):.X|
000002e0 3e 31 31 30 38 80 58 3c 31 32 33 36 80 59 3e 63 |>1108.X<1236.Y>c|
000002f0 25 28 32 29 2d 36 34 80 59 3c 63 25 28 32 29 2d |%(2)-64.Y<c%(2)-|
00000300 33 32 8c 3d 32 0d 00 15 2b e7 58 3e 31 31 34 38 |32.=2...+.X>1148|
00000310 80 58 3c 31 32 32 30 80 59 3e 63 25 28 32 29 2d |.X<1220.Y>c%(2)-|
00000320 33 36 80 59 3c 63 25 28 32 29 2d 32 34 8c 3d 32 |36.Y<c%(2)-24.=2|
00000330 0d 00 16 2a e7 58 3e 31 32 30 34 80 58 3c 31 32 |...*.X>1204.X<12|
00000340 32 30 80 59 3e 63 25 28 32 29 2d 32 38 80 59 3c |20.Y>c%(2)-28.Y<|
00000350 63 25 28 32 29 2d 38 8c 3d 32 0d 00 17 06 3d 30 |c%(2)-8.=2....=0|
00000360 0d 00 18 db dd f2 6a 3a de 6d 25 28 34 29 3a 6d |......j:.m%(4):m|
00000370 25 28 29 3d 32 37 30 34 2c 34 36 32 36 2c 31 30 |%()=2704,4626,10|
00000380 38 31 36 2c 31 38 34 39 36 2c 34 31 36 31 36 3a |816,18496,41616:|
00000390 de 64 25 28 34 29 3a 64 25 28 29 3d 34 38 2c 36 |.d%(4):d%()=48,6|
000003a0 38 2c 31 30 34 2c 31 33 36 2c 32 30 34 3a de 6a |8,104,136,204:.j|
000003b0 25 20 31 31 33 30 30 3a de 54 25 20 31 30 39 30 |% 11300:.T% 1090|
000003c0 30 3a de 55 25 20 34 30 3a de 6e 25 20 31 30 32 |0:.U% 40:.n% 102|
000003d0 34 2a 38 31 3a de 68 25 28 31 30 30 2c 31 29 3a |4*81:.h%(100,1):|
000003e0 de 61 24 28 31 30 2c 31 29 3a 61 24 28 29 3d 22 |.a$(10,1):a$()="|
000003f0 22 3a 61 24 28 30 2c 31 29 3d 22 39 39 39 39 39 |":a$(0,1)="99999|
00000400 39 39 39 22 3a 6e 25 21 30 3d 31 30 32 34 2a 38 |999":n%!0=1024*8|
00000410 31 3a 6e 25 21 34 3d 30 3a 6e 25 21 38 3d 31 36 |1:n%!4=0:n%!8=16|
00000420 3a 6e 25 21 31 32 3d 31 36 3a de 62 25 28 37 2c |:n%!12=16:.b%(7,|
00000430 35 29 3a de 61 25 28 35 2c 37 29 0d 00 19 b1 de |5):.a%(5,7).....|
00000440 63 25 28 32 29 2c 6a 25 28 32 29 2c 69 25 28 32 |c%(2),j%(2),i%(2|
00000450 29 3a de 61 28 32 2c 34 29 2c 65 25 28 32 29 3a |):.a(2,4),e%(2):|
00000460 de 66 25 28 35 29 2c 67 25 28 35 29 3a e3 4e 3d |.f%(5),g%(5):.N=|
00000470 31 b8 34 3a de 41 25 20 31 30 32 34 3a 67 25 28 |1.4:.A% 1024:g%(|
00000480 4e 29 3d 41 25 3a ed 3a ff 28 22 4c 4f 41 44 20 |N)=A%:.:.("LOAD |
00000490 3c 47 72 61 76 24 44 69 72 3e 2e 75 73 70 72 69 |<Grav$Dir>.uspri|
000004a0 74 65 20 22 2b c3 7e 54 25 29 3a f2 73 3a 73 25 |te "+.~T%):.s:s%|
000004b0 3d 30 3a e3 4e 3d 31 b8 32 3a de 41 25 20 32 30 |=0:.N=1.2:.A% 20|
000004c0 30 30 3a 69 25 28 4e 29 3d 41 25 3a ed 3a 54 3d |00:i%(N)=A%:.:T=|
000004d0 91 2b 31 30 30 3a 68 3d 30 3a f5 3a 68 2b 3d 31 |.+100:h=0:.:h+=1|
000004e0 3a fd 91 3e 54 3a 68 3d 68 2f 34 30 0d 00 1a 0e |:..>T:h=h/40....|
000004f0 2a 50 4f 49 4e 54 45 52 20 31 0d 00 1b 09 c8 97 |*POINTER 1......|
00000500 87 3a e1 0d 00 1c da dd f2 74 3a 21 65 25 3d 30 |.:.......t:!e%=0|
00000510 3a 63 25 28 31 29 3d 32 35 36 2b b3 28 35 31 32 |:c%(1)=256+.(512|
00000520 29 3a 63 25 28 32 29 3d 32 35 36 2b b3 28 35 31 |):c%(2)=256+.(51|
00000530 32 29 3a 61 25 28 29 3d 30 3a f2 75 3a 63 25 3d |2):a%()=0:.u:c%=|
00000540 31 3a 64 25 3d 30 3a 71 3d 34 30 30 3a 72 3d 2e |1:d%=0:q=400:r=.|
00000550 39 39 39 3a 61 28 31 2c 31 29 3d 39 30 3a 61 28 |999:a(1,1)=90:a(|
00000560 31 2c 32 29 3d 35 3a 61 28 31 2c 33 29 3d 36 34 |1,2)=5:a(1,3)=64|
00000570 30 3a 61 28 31 2c 34 29 3d 35 31 32 3a 61 28 32 |0:a(1,4)=512:a(2|
00000580 2c 31 29 3d 32 37 30 3a 61 28 32 2c 32 29 3d 35 |,1)=270:a(2,2)=5|
00000590 3a 61 28 32 2c 33 29 3d 36 34 30 3a 61 28 32 2c |:a(2,3)=640:a(2,|
000005a0 34 29 3d 35 31 32 3a 69 3d 30 3a 65 25 28 29 3d |4)=512:i=0:e%()=|
000005b0 30 3a e3 4e 3d 31 b8 31 30 30 3a 68 25 28 4e 2c |0:.N=1.100:h%(N,|
000005c0 30 29 3d b3 28 31 32 38 30 29 3a 68 25 28 4e 2c |0)=.(1280):h%(N,|
000005d0 31 29 3d b3 28 38 38 30 29 3a ed 3a e1 0d 00 1d |1)=.(880):.:....|
000005e0 e6 dd f2 75 3a ea 67 25 2c 69 25 2c 56 25 2c 57 |...u:.g%,i%,V%,W|
000005f0 25 2c 5f 25 2c 60 25 2c 61 25 3a 69 25 3d 30 3a |%,_%,`%,a%:i%=0:|
00000600 f5 3a 69 25 2b 3d 31 3a 67 25 3d 30 3a f5 3a 62 |.:i%+=1:g%=0:.:b|
00000610 25 28 69 25 2c 31 29 3d 32 35 2b b3 28 31 33 34 |%(i%,1)=25+.(134|
00000620 29 3a 62 25 28 69 25 2c 32 29 3d 34 2f 33 2a af |):b%(i%,2)=4/3*.|
00000630 2a 62 25 28 69 25 2c 31 29 5e 33 3a 62 25 28 69 |*b%(i%,1)^3:b%(i|
00000640 25 2c 33 29 3d 62 25 28 69 25 2c 31 29 2b b3 28 |%,3)=b%(i%,1)+.(|
00000650 31 32 38 30 2d 32 2a 62 25 28 69 25 2c 31 29 29 |1280-2*b%(i%,1))|
00000660 3a 62 25 28 69 25 2c 34 29 3d 62 25 28 69 25 2c |:b%(i%,4)=b%(i%,|
00000670 31 29 2b 31 30 30 2b b3 28 37 30 30 2d 32 2a 62 |1)+100+.(700-2*b|
00000680 25 28 69 25 2c 31 29 29 3a 62 25 28 69 25 2c 35 |%(i%,1)):b%(i%,5|
00000690 29 3d 62 25 28 69 25 2c 31 29 81 34 30 3a 67 25 |)=b%(i%,1).40:g%|
000006a0 2b 3d 31 3a fd a4 65 28 69 25 29 84 67 25 3d 34 |+=1:..e(i%).g%=4|
000006b0 30 3a fd 69 25 3d 37 84 67 25 3d 34 30 3a 6d 25 |0:.i%=7.g%=40:m%|
000006c0 3d 69 25 0d 00 1e 10 e7 67 25 3d 34 30 8c 6d 25 |=i%.....g%=40.m%|
000006d0 2d 3d 31 0d 00 1f 7d 61 25 3d 30 3a 67 25 3d 30 |-=1...}a%=0:g%=0|
000006e0 3a f5 3a f5 3a 56 25 3d b3 28 37 38 30 29 2b 32 |:.:.:V%=.(780)+2|
000006f0 35 30 3a 5f 25 3d b3 28 37 38 30 29 2b 32 35 30 |50:_%=.(780)+250|
00000700 3a 57 25 3d b3 28 37 30 30 29 2b 31 30 30 3a 60 |:W%=.(700)+100:`|
00000710 25 3d b3 28 37 30 30 29 2b 31 30 30 3a 67 25 2b |%=.(700)+100:g%+|
00000720 3d 31 3a fd 67 25 3d 32 30 30 84 a4 66 28 56 25 |=1:.g%=200..f(V%|
00000730 2c 57 25 2c 5f 25 2c 60 25 29 3a fd 61 25 3d 34 |,W%,_%,`%):.a%=4|
00000740 84 28 67 25 3d 32 30 30 80 61 25 3d 31 29 3a e1 |.(g%=200.a%=1):.|
00000750 0d 00 20 60 dd a4 66 28 41 2c 42 2c 43 2c 44 29 |.. `..f(A,B,C,D)|
00000760 3a ea 74 25 2c 46 2c 6b 25 2c 61 61 25 2c 7a 25 |:.t%,F,k%,aa%,z%|
00000770 2c 47 25 2c 78 25 2c 79 25 2c 4e 2c 46 25 3a 74 |,G%,x%,y%,N,F%:t|
00000780 25 3d 2d 31 3a 61 61 25 3d b6 28 28 43 2d 41 29 |%=-1:aa%=.((C-A)|
00000790 5e 32 2b 28 44 2d 42 29 5e 32 29 3a 6b 25 3d 61 |^2+(D-B)^2):k%=a|
000007a0 61 25 81 34 30 3a e7 6b 25 3d 30 8c 6b 25 3d 31 |a%.40:.k%=0.k%=1|
000007b0 0d 00 21 8a 7a 25 3d 28 43 2d 41 29 81 6b 25 3a |..!.z%=(C-A).k%:|
000007c0 47 25 3d 28 44 2d 42 29 81 6b 25 3a e3 4e 3d 30 |G%=(D-B).k%:.N=0|
000007d0 b8 6b 25 3a 78 25 3d 41 2b 4e 2a 7a 25 3a 79 25 |.k%:x%=A+N*z%:y%|
000007e0 3d 42 2b 4e 2a 47 25 3a e3 46 25 3d 31 b8 6d 25 |=B+N*G%:.F%=1.m%|
000007f0 3a 66 25 3d 28 78 25 2d 62 25 28 46 25 2c 33 29 |:f%=(x%-b%(F%,3)|
00000800 29 5e 32 2b 28 79 25 2d 62 25 28 46 25 2c 34 29 |)^2+(y%-b%(F%,4)|
00000810 29 5e 32 3a e7 66 25 3c 6d 25 28 62 25 28 46 25 |)^2:.f%<m%(b%(F%|
00000820 2c 35 29 29 2b 31 30 34 30 30 8c 74 25 3d 30 3a |,5))+10400.t%=0:|
00000830 46 25 3d 6d 25 3a 4e 3d 6b 25 0d 00 22 0c ed 3a |F%=m%:N=k%.."..:|
00000840 ed 3a e7 74 25 8c 0d 00 23 73 61 25 2b 3d 31 3a |.:.t%...#sa%+=1:|
00000850 61 25 28 30 2c 30 29 3d 61 25 3a 61 25 28 61 25 |a%(0,0)=a%:a%(a%|
00000860 2c 35 29 3d 6b 25 2a 31 30 3a 61 25 28 61 25 2c |,5)=k%*10:a%(a%,|
00000870 33 29 3d 31 3a 61 25 28 61 25 2c 34 29 3d 31 3a |3)=1:a%(a%,4)=1:|
00000880 61 25 28 61 25 2c 31 29 3d 41 2d 34 30 3a 61 25 |a%(a%,1)=A-40:a%|
00000890 28 61 25 2c 32 29 3d 42 2b 34 30 3a 61 25 28 61 |(a%,2)=B+40:a%(a|
000008a0 25 2c 36 29 3d 7a 25 2f 31 30 3a 61 25 28 61 25 |%,6)=z%/10:a%(a%|
000008b0 2c 37 29 3d 47 25 2f 31 30 0d 00 24 05 cd 0d 00 |,7)=G%/10..$....|
000008c0 25 07 3d 74 25 0d 00 26 4c dd a4 65 28 4e 29 3a |%.=t%..&L..e(N):|
000008d0 ea 66 25 2c 46 3a 66 25 3d b6 28 28 62 25 28 4e |.f%,F:f%=.((b%(N|
000008e0 2c 33 29 2d 31 37 29 5e 32 2b 28 62 25 28 4e 2c |,3)-17)^2+(b%(N,|
000008f0 34 29 2d 63 25 28 31 29 2d 39 29 5e 32 29 3a e7 |4)-c%(1)-9)^2):.|
00000900 66 25 3c 62 25 28 4e 2c 31 29 2b 32 30 30 8c 3d |f%<b%(N,1)+200.=|
00000910 30 0d 00 27 44 66 25 3d b6 28 28 62 25 28 4e 2c |0..'Df%=.((b%(N,|
00000920 33 29 2d 31 31 32 30 2d 31 37 29 5e 32 2b 28 62 |3)-1120-17)^2+(b|
00000930 25 28 4e 2c 34 29 2d 63 25 28 32 29 2d 39 29 5e |%(N,4)-c%(2)-9)^|
00000940 32 29 3a e7 66 25 3c 62 25 28 4e 2c 31 29 2b 32 |2):.f%<b%(N,1)+2|
00000950 30 30 8c 3d 30 0d 00 28 0c e7 4e 3d 31 8c 3d 2d |00.=0..(..N=1.=-|
00000960 31 0d 00 29 6c 62 61 25 3d b9 3a e3 46 3d 31 b8 |1..)lba%=.:.F=1.|
00000970 4e 2d 31 3a 63 61 25 3d 62 25 28 4e 2c 31 29 2b |N-1:ca%=b%(N,1)+|
00000980 62 25 28 46 2c 31 29 2b 32 30 30 3a 66 25 3d b6 |b%(F,1)+200:f%=.|
00000990 28 28 62 25 28 4e 2c 33 29 2d 62 25 28 46 2c 33 |((b%(N,3)-b%(F,3|
000009a0 29 29 5e 32 2b 28 62 25 28 4e 2c 34 29 2d 62 25 |))^2+(b%(N,4)-b%|
000009b0 28 46 2c 34 29 29 5e 32 29 3a e7 66 25 3c 63 61 |(F,4))^2):.f%<ca|
000009c0 25 8c 62 61 25 3d 30 3a 46 3d 4e 2d 31 0d 00 2a |%.ba%=0:F=N-1..*|
000009d0 0a ed 3a 3d 62 61 25 0d 00 2b c5 dd f2 6e 3a ea |..:=ba%..+...n:.|
000009e0 4e 2c 51 3a f2 67 3a e3 4e 3d 31 b8 31 30 30 3a |N,Q:.g:.N=1.100:|
000009f0 21 28 68 25 2b b3 28 38 31 39 32 30 29 29 3d 32 |!(h%+.(81920))=2|
00000a00 30 38 3a 21 28 68 25 2b b3 28 38 31 39 32 30 29 |08:!(h%+.(81920)|
00000a10 29 3d 34 34 3a ed 3a f2 69 28 54 25 2c 30 2c 30 |)=44:.:.i(T%,0,0|
00000a20 29 3a f2 61 28 22 61 31 22 2c 67 25 28 31 29 29 |):.a("a1",g%(1))|
00000a30 3a f2 61 28 22 61 32 22 2c 67 25 28 32 29 29 3a |:.a("a2",g%(2)):|
00000a40 f2 61 28 22 61 33 22 2c 67 25 28 33 29 29 3a f2 |.a("a3",g%(3)):.|
00000a50 61 28 22 61 34 22 2c 67 25 28 34 29 29 3a f2 61 |a("a4",g%(4)):.a|
00000a60 28 22 70 31 22 2c 69 25 28 31 29 29 3a f2 61 28 |("p1",i%(1)):.a(|
00000a70 22 70 32 22 2c 69 25 28 32 29 29 3a 6a 25 28 31 |"p2",i%(2)):j%(1|
00000a80 29 3d a4 61 28 69 25 28 31 29 2c a4 78 28 31 36 |)=.a(i%(1),.x(16|
00000a90 29 2c a4 79 28 63 25 28 31 29 29 29 0d 00 2c 89 |),.y(c%(1)))..,.|
00000aa0 6a 25 28 32 29 3d a4 61 28 69 25 28 32 29 2c a4 |j%(2)=.a(i%(2),.|
00000ab0 78 28 31 30 38 30 29 2c a4 79 28 63 25 28 32 29 |x(1080),.y(c%(2)|
00000ac0 29 29 3a e3 4e 3d 31 b8 6d 25 3a 51 3d 28 62 25 |)):.N=1.m%:Q=(b%|
00000ad0 28 4e 2c 31 29 81 34 30 29 3a f2 61 28 22 65 22 |(N,1).40):.a("e"|
00000ae0 2b c3 28 51 2b 32 29 2c 6a 25 29 3a f2 69 28 6a |+.(Q+2),j%):.i(j|
00000af0 25 2c a4 78 28 62 25 28 4e 2c 33 29 2d 64 25 28 |%,.x(b%(N,3)-d%(|
00000b00 51 29 29 2c a4 79 28 62 25 28 4e 2c 34 29 2b 64 |Q)),.y(b%(N,4)+d|
00000b10 25 28 51 29 29 29 3a ed 3a e7 61 25 28 30 2c 30 |%(Q))):.:.a%(0,0|
00000b20 29 3c 3e 30 8c 0d 00 2d 3a e3 4e 3d 31 b8 61 25 |)<>0...-:.N=1.a%|
00000b30 28 30 2c 30 29 3a 66 25 28 4e 29 3d a4 61 28 67 |(0,0):f%(N)=.a(g|
00000b40 25 28 4e 29 2c a4 78 28 61 25 28 4e 2c 31 29 29 |%(N),.x(a%(N,1))|
00000b50 2c a4 79 28 61 25 28 4e 2c 32 29 29 29 3a ed 0d |,.y(a%(N,2))):..|
00000b60 00 2e 05 cd 0d 00 2f 08 f2 62 3a e1 0d 00 30 3a |....../..b:...0:|
00000b70 dd f2 71 28 53 29 3a ea 4e 2c 50 3a e3 4e 3d 31 |..q(S):.N,P:.N=1|
00000b80 b8 37 3a f2 61 28 22 65 78 22 2b c3 28 53 29 2b |.7:.a("ex"+.(S)+|
00000b90 c3 28 4e 29 2c 69 25 28 53 29 29 3a c8 96 3a c8 |.(N),i%(S)):..:.|
00000ba0 96 3a f2 62 3a ed 0d 00 31 19 2a 43 48 41 4e 4e |.:.b:...1.*CHANN|
00000bb0 45 4c 56 4f 49 43 45 20 31 20 4c 61 75 67 68 0d |ELVOICE 1 Laugh.|
00000bc0 00 32 20 d4 31 2c 2d 31 35 2c 36 34 2c 31 30 30 |.2 .1,-15,64,100|
00000bd0 3a f2 64 28 6a 25 28 53 29 29 3a f2 62 3a e1 0d |:.d(j%(S)):.b:..|
00000be0 00 33 36 dd f2 6f 3a ea 76 2c 64 2c 58 25 2c 59 |.36..o:.v,d,X%,Y|
00000bf0 25 2c 5a 25 2c 75 25 2c 49 25 2c 64 61 25 2c 65 |%,Z%,u%,I%,da%,e|
00000c00 61 25 2c 4a 25 2c 4b 25 2c 51 25 2c 78 25 2c 79 |a%,J%,K%,Q%,x%,y|
00000c10 25 3a c8 97 ee 0d 00 34 5e c8 97 b8 61 28 63 25 |%:.....4^...a(c%|
00000c20 2c 33 29 2c 61 28 63 25 2c 34 29 3a f2 61 28 22 |,3),a(c%,4):.a("|
00000c30 70 74 72 22 2b c3 28 63 25 29 2c 55 25 29 3a 4a |ptr"+.(c%),U%):J|
00000c40 25 3d 2d 31 3a 4b 25 3d 2d 31 3a 64 3d 61 28 63 |%=-1:K%=-1:d=a(c|
00000c50 25 2c 31 29 3a 76 3d 61 28 63 25 2c 32 29 3a e7 |%,1):v=a(c%,2):.|
00000c60 63 25 3d 31 8c 75 25 3d 31 30 30 8b 75 25 3d 31 |c%=1.u%=100.u%=1|
00000c70 31 36 30 0d 00 35 26 49 25 3d 63 25 28 63 25 29 |160..5&I%=c%(c%)|
00000c80 2d 34 37 3a 66 61 25 3d a4 61 28 55 25 2c 30 2c |-47:fa%=.a(U%,0,|
00000c90 30 29 3a e7 63 25 3d 31 8c 0d 00 36 26 c8 97 fb |0):.c%=1...6&...|
00000ca0 31 2c 30 2c 30 2c 31 32 38 3a c8 97 fb 32 2c 30 |1,0,0,128:...2,0|
00000cb0 2c 30 2c 32 35 35 3a e6 34 38 c8 9c 32 35 35 0d |,0,255:.48..255.|
00000cc0 00 37 27 cc 3a c8 97 fb 31 2c 31 32 38 2c 30 2c |.7'.:...1,128,0,|
00000cd0 30 3a c8 97 fb 32 2c 32 35 35 2c 30 2c 30 3a e6 |0:...2,255,0,0:.|
00000ce0 33 c8 9c 32 35 35 0d 00 38 05 cd 0d 00 39 20 f5 |3..255..8....9 .|
00000cf0 3a c8 97 58 25 2c 59 25 2c 5a 25 3a e7 4a 25 3c |:..X%,Y%,Z%:.J%<|
00000d00 3e 58 25 84 4b 25 3c 3e 59 20 8c 0d 00 3a 6f 4a |>X%.K%<>Y ...:oJ|
00000d10 25 3d 58 25 3a 4b 25 3d 59 25 3a 64 3d a4 67 28 |%=X%:K%=Y%:d=.g(|
00000d20 58 25 2d 75 25 2c 59 25 2d 49 25 2c 30 2c 31 30 |X%-u%,Y%-I%,0,10|
00000d30 30 29 3a 64 61 25 3d 75 25 2b 31 30 30 2a 9b 28 |0):da%=u%+100*.(|
00000d40 b2 28 64 2d 39 30 29 29 3a 65 61 25 3d 49 25 2b |.(d-90)):ea%=I%+|
00000d50 31 30 30 2a b5 28 2d b2 28 64 2d 39 30 29 29 3a |100*.(-.(d-90)):|
00000d60 f2 65 28 66 61 25 2c 64 61 25 81 34 2c 28 31 30 |.e(fa%,da%.4,(10|
00000d70 32 34 2d 65 61 25 29 81 34 29 0d 00 3b 10 cc 3a |24-ea%).4)..;..:|
00000d80 e3 51 25 3d 31 b8 68 3e 3e 31 0d 00 3c 05 cd 0d |.Q%=1.h>>1..<...|
00000d90 00 3d 16 e7 5a 25 3d 31 80 76 3c 38 2e 37 8c 76 |.=..Z%=1.v<8.7.v|
00000da0 2b 3d 2e 30 35 0d 00 3e 14 e7 5a 25 3d 32 80 76 |+=.05..>..Z%=2.v|
00000db0 3e 31 8c 76 2d 3d 2e 30 35 0d 00 3f 10 e7 61 25 |>1.v-=.05..?..a%|
00000dc0 28 30 2c 30 29 3c 3e 30 8c 0d 00 40 7a e3 51 25 |(0,0)<>0...@z.Q%|
00000dd0 3d 31 b8 61 25 28 30 2c 30 29 3a 61 25 28 51 25 |=1.a%(0,0):a%(Q%|
00000de0 2c 31 29 2b 3d 61 25 28 51 25 2c 36 29 2a 61 25 |,1)+=a%(Q%,6)*a%|
00000df0 28 51 25 2c 34 29 3a 61 25 28 51 25 2c 32 29 2b |(Q%,4):a%(Q%,2)+|
00000e00 3d 61 25 28 51 25 2c 37 29 2a 61 25 28 51 25 2c |=a%(Q%,7)*a%(Q%,|
00000e10 34 29 3a e7 61 25 28 51 25 2c 33 29 3d 61 25 28 |4):.a%(Q%,3)=a%(|
00000e20 51 25 2c 35 29 84 61 25 28 51 25 2c 33 29 3d 30 |Q%,5).a%(Q%,3)=0|
00000e30 8c 61 25 28 51 25 2c 34 29 3d 2d 61 25 28 51 25 |.a%(Q%,4)=-a%(Q%|
00000e40 2c 34 29 0d 00 41 3b 61 25 28 51 25 2c 33 29 2b |,4)..A;a%(Q%,3)+|
00000e50 3d 61 25 28 51 25 2c 34 29 3a f2 65 28 66 25 28 |=a%(Q%,4):.e(f%(|
00000e60 51 25 29 2c 61 25 28 51 25 2c 31 29 81 34 2c a4 |Q%),a%(Q%,1).4,.|
00000e70 79 28 61 25 28 51 25 2c 32 29 29 29 3a ed 0d 00 |y(a%(Q%,2))):...|
00000e80 42 05 cd 0d 00 43 89 f2 62 3a c8 93 c8 90 39 35 |B....C..b:....95|
00000e90 38 2c 39 32 34 2c 76 2a 33 30 2e 35 2c 31 34 3a |8,924,v*30.5,14:|
00000ea0 fb 35 37 c8 9c 32 35 35 3a f1 8a 32 2c 33 30 29 |.57..255:..2,30)|
00000eb0 3b 65 25 28 31 29 3b 3a fb 33 39 c8 9c 32 35 35 |;e%(1);:.39..255|
00000ec0 3a f1 8a 33 34 2c 33 30 29 3b 65 25 28 32 29 3b |:..34,30);e%(2);|
00000ed0 3a fd 5a 25 3d 34 3a f2 64 28 66 61 25 29 3a 61 |:.Z%=4:.d(fa%):a|
00000ee0 28 63 25 2c 31 29 3d 64 3a 61 28 63 25 2c 32 29 |(c%,1)=d:a(c%,2)|
00000ef0 3d 76 3a 61 28 63 25 2c 33 29 3d 58 25 3a 61 28 |=v:a(c%,3)=X%:a(|
00000f00 63 25 2c 34 29 3d 59 25 3a c8 97 87 0d 00 44 18 |c%,4)=Y%:.....D.|
00000f10 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 45 20 31 20 |*CHANNELVOICE 1 |
00000f20 46 49 52 45 0d 00 45 13 d4 31 2c 2d 31 35 2c 34 |FIRE..E..1,-15,4|
00000f30 30 2c 31 30 30 3a e1 0d 00 46 2c dd a4 67 28 73 |0,100:...F,..g(s|
00000f40 2c 74 2c 75 2c 77 29 3a ea 41 2c 62 2c 63 3a 41 |,t,u,w):.A,b,c:A|
00000f50 3d b6 28 73 5e 32 2b 74 5e 32 29 3a e7 41 3d 30 |=.(s^2+t^2):.A=0|
00000f60 8c 3d 30 0d 00 47 1c 62 3d 9d 28 98 28 74 2f 41 |.=0..G.b=.(.(t/A|
00000f70 29 29 3a e7 73 3c 30 8c 62 3d 31 38 30 2d 62 0d |)):.s<0.b=180-b.|
00000f80 00 48 18 41 3d b6 28 75 5e 32 2b 77 5e 32 29 3a |.H.A=.(u^2+w^2):|
00000f90 e7 41 3d 30 8c 3d 30 0d 00 49 1c 63 3d 9d 28 98 |.A=0.=0..I.c=.(.|
00000fa0 28 77 2f 41 29 29 3a e7 75 3c 30 8c 63 3d 31 38 |(w/A)):.u<0.c=18|
00000fb0 30 2d 63 0d 00 4a 1b e7 28 63 2d 62 29 3c 30 8c |0-c..J..(c-b)<0.|
00000fc0 3d 33 36 30 2b 63 2d 62 20 8b 3d 63 2d 62 0d 00 |=360+c-b .=c-b..|
00000fd0 4b 41 dd f2 70 3a ea 78 25 2c 79 25 2c 6b 2c 6c |KA..p:.x%,y%,k,l|
00000fe0 2c 69 25 2c 61 2c 6d 2c 6f 25 2c 65 2c 66 2c 70 |,i%,a,m,o%,e,f,p|
00000ff0 25 2c 4c 25 2c 4d 25 2c 51 25 3a e7 63 25 3d 31 |%,L%,M%,Q%:.c%=1|
00001000 8c 78 25 3d 31 30 30 8b 78 25 3d 31 31 36 30 0d |.x%=100.x%=1160.|
00001010 00 4c df 79 25 3d 63 25 28 63 25 29 2d 34 37 3a |.L.y%=c%(c%)-47:|
00001020 70 25 3d 30 3a 4c 25 3d 30 3a 4d 25 3d 30 3a 78 |p%=0:L%=0:M%=0:x|
00001030 25 3d 78 25 2b 37 35 2a 9b 28 b2 28 61 28 63 25 |%=x%+75*.(.(a(c%|
00001040 2c 31 29 2d 39 30 29 29 3a 79 25 3d 79 25 2b 37 |,1)-90)):y%=y%+7|
00001050 35 2a b5 28 2d b2 28 61 28 63 25 2c 31 29 2d 39 |5*.(-.(a(c%,1)-9|
00001060 30 29 29 3a f2 61 28 22 62 22 2b c3 28 63 25 29 |0)):.a("b"+.(c%)|
00001070 2c 6a 25 29 3a 6f 25 3d a4 61 28 6a 25 2c 30 2c |,j%):o%=.a(j%,0,|
00001080 30 29 3a d1 3d 30 3a 65 3d b5 b2 61 28 63 25 2c |0):.=0:e=..a(c%,|
00001090 31 29 2a 61 28 63 25 2c 32 29 3a 66 3d 9b b2 61 |1)*a(c%,2):f=..a|
000010a0 28 63 25 2c 31 29 2a 61 28 63 25 2c 32 29 3a f5 |(c%,1)*a(c%,2):.|
000010b0 3a f5 3a 6b 3d 30 3a 6c 3d 30 3a e3 69 25 3d 31 |:.:k=0:l=0:.i%=1|
000010c0 b8 6d 25 3a 61 3d 28 78 25 2d 62 25 28 69 25 2c |.m%:a=(x%-b%(i%,|
000010d0 33 29 29 5e 32 2b 28 79 25 2d 62 25 28 69 25 2c |3))^2+(y%-b%(i%,|
000010e0 34 29 29 5e 32 3a e7 61 3d 30 8c 61 3d 31 0d 00 |4))^2:.a=0.a=1..|
000010f0 4d 73 6d 3d 62 25 28 69 25 2c 32 29 2f 61 3a 61 |Msm=b%(i%,2)/a:a|
00001100 3d b6 28 61 29 3a 6b 2b 3d 6d 2a 28 62 25 28 69 |=.(a):k+=m*(b%(i|
00001110 25 2c 33 29 2d 78 25 29 2f 61 3a 6c 2b 3d 6d 2a |%,3)-x%)/a:l+=m*|
00001120 28 62 25 28 69 25 2c 34 29 2d 79 25 29 2f 61 3a |(b%(i%,4)-y%)/a:|
00001130 65 2b 3d 28 6b 2f 71 2a 72 29 3a 66 2b 3d 28 6c |e+=(k/q*r):f+=(l|
00001140 2f 71 2a 72 29 3a e7 28 65 3e 31 32 84 66 3e 31 |/q*r):.(e>12.f>1|
00001150 32 29 80 70 25 8c 65 3d 65 2f 32 3a 66 3d 66 2f |2).p%.e=e/2:f=f/|
00001160 32 0d 00 4e 2e 78 25 2b 3d 65 3a 79 25 2b 3d 66 |2..N.x%+=e:y%+=f|
00001170 3a ed 3a e7 78 25 3e 2d 34 80 78 25 3c 31 32 38 |:.:.x%>-4.x%<128|
00001180 34 80 79 25 3e 2d 34 80 79 25 3c 38 38 34 8c 0d |4.y%>-4.y%<884..|
00001190 00 4f 0a e7 70 25 8c f2 76 0d 00 50 15 70 25 3d |.O..p%..v..P.p%=|
000011a0 30 3a e7 61 25 28 30 2c 30 29 3c 3e 30 8c 0d 00 |0:.a%(0,0)<>0...|
000011b0 51 7a e3 51 25 3d 31 b8 61 25 28 30 2c 30 29 3a |Qz.Q%=1.a%(0,0):|
000011c0 61 25 28 51 25 2c 31 29 2b 3d 61 25 28 51 25 2c |a%(Q%,1)+=a%(Q%,|
000011d0 36 29 2a 61 25 28 51 25 2c 34 29 3a 61 25 28 51 |6)*a%(Q%,4):a%(Q|
000011e0 25 2c 32 29 2b 3d 61 25 28 51 25 2c 37 29 2a 61 |%,2)+=a%(Q%,7)*a|
000011f0 25 28 51 25 2c 34 29 3a e7 61 25 28 51 25 2c 33 |%(Q%,4):.a%(Q%,3|
00001200 29 3d 61 25 28 51 25 2c 35 29 84 61 25 28 51 25 |)=a%(Q%,5).a%(Q%|
00001210 2c 33 29 3d 30 8c 61 25 28 51 25 2c 34 29 3d 2d |,3)=0.a%(Q%,4)=-|
00001220 61 25 28 51 25 2c 34 29 0d 00 52 3b 61 25 28 51 |a%(Q%,4)..R;a%(Q|
00001230 25 2c 33 29 2b 3d 61 25 28 51 25 2c 34 29 3a f2 |%,3)+=a%(Q%,4):.|
00001240 65 28 66 25 28 51 25 29 2c 61 25 28 51 25 2c 31 |e(f%(Q%),a%(Q%,1|
00001250 29 81 34 2c a4 79 28 61 25 28 51 25 2c 32 29 29 |).4,.y(a%(Q%,2))|
00001260 29 3a ed 0d 00 53 05 cd 0d 00 54 1b f2 65 28 6f |):...S....T..e(o|
00001270 25 2c a4 78 28 78 25 29 2c a4 79 28 79 25 29 29 |%,.x(x%),.y(y%))|
00001280 3a f2 62 0d 00 55 0d cc 3a e7 ac 70 25 8c f2 77 |:.b..U..:..p%..w|
00001290 0d 00 56 40 70 25 3d 2d 31 3a c8 96 3a e6 30 c8 |..V@p%=-1:..:.0.|
000012a0 9c 30 3a c8 92 34 38 30 2b 28 4c 25 2f 34 29 2c |.0:..480+(L%/4),|
000012b0 33 31 32 2b 28 4d 25 2f 34 29 3a e7 63 25 3d 31 |312+(M%/4):.c%=1|
000012c0 8c e6 36 33 c8 9c 30 8b e6 33 31 c8 9c 32 35 35 |..63..0..31..255|
000012d0 0d 00 57 27 c8 92 34 38 30 2b 28 78 25 2f 34 29 |..W'..480+(x%/4)|
000012e0 2c 33 31 32 2b 28 79 25 2f 34 29 3a 4c 25 3d 78 |,312+(y%/4):L%=x|
000012f0 25 3a 4d 25 3d 79 25 0d 00 58 05 cd 0d 00 59 94 |%:M%=y%..X....Y.|
00001300 e3 4e 3d 31 b8 68 3a ed 3a fb 32 39 c8 9c 30 3a |.N=1.h:.:.29..0:|
00001310 f1 8a 31 37 2c 33 30 29 3b 91 3b 3a fb 35 37 c8 |..17,30);.;:.57.|
00001320 9c 32 35 35 3a f1 8a 32 2c 33 30 29 3b 65 25 28 |.255:..2,30);e%(|
00001330 31 29 3b 3a fb 33 39 c8 9c 32 35 35 3a f1 8a 33 |1);:.39..255:..3|
00001340 34 2c 33 30 29 3b 65 25 28 32 29 3b 3a 64 25 3d |4,30);e%(2);:d%=|
00001350 a4 62 28 78 25 2b 38 2c 79 25 2d 38 29 3a fd 64 |.b(x%+8,y%-8):.d|
00001360 25 3e 30 84 78 25 3c 2d 31 39 32 30 84 78 25 3e |%>0.x%<-1920.x%>|
00001370 33 32 30 30 84 79 25 3c 2d 31 33 32 30 84 79 25 |3200.y%<-1320.y%|
00001380 3e 32 32 30 30 3a 69 3d 91 3a e7 64 25 3e 30 8c |>2200:i=.:.d%>0.|
00001390 0d 00 5a 20 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 |..Z *CHANNELVOIC|
000013a0 45 20 31 20 53 54 2d 30 31 3a 73 61 6d 70 6c 65 |E 1 ST-01:sample|
000013b0 0d 00 5b 51 d4 31 2c 2d 31 35 2c 34 30 2c 31 30 |..[Q.1,-15,40,10|
000013c0 30 3a f2 65 28 6f 25 2c a4 78 28 78 25 2d 32 30 |0:.e(o%,.x(x%-20|
000013d0 29 2c a4 79 28 79 25 2b 31 36 29 29 3a e3 4e 3d |),.y(y%+16)):.N=|
000013e0 31 b8 34 3a f2 61 28 22 73 6d 65 78 22 2b c3 28 |1.4:.a("smex"+.(|
000013f0 4e 29 2c 6a 25 29 3a c8 96 3a c8 96 3a f2 62 3a |N),j%):..:..:.b:|
00001400 ed 0d 00 5c 05 cd 0d 00 5d 0b e7 64 25 3e 31 30 |...\....]..d%>10|
00001410 8c 0d 00 5e 9d f2 64 28 6f 25 29 3a f2 64 28 66 |...^..d(o%):.d(f|
00001420 25 28 61 25 28 30 2c 30 29 29 29 3a 65 25 28 63 |%(a%(0,0))):e%(c|
00001430 25 29 2b 3d 69 3a e3 51 25 3d 31 b8 37 3a 61 25 |%)+=i:.Q%=1.7:a%|
00001440 28 64 25 2d 31 30 2c 51 25 29 3d 61 25 28 61 25 |(d%-10,Q%)=a%(a%|
00001450 28 30 2c 30 29 2c 51 25 29 3a ed 3a f2 65 28 66 |(0,0),Q%):.:.e(f|
00001460 25 28 64 25 2d 31 30 29 2c a4 78 28 61 25 28 64 |%(d%-10),.x(a%(d|
00001470 25 2d 31 30 2c 31 29 29 2c a4 79 28 61 25 28 64 |%-10,1)),.y(a%(d|
00001480 25 2d 31 30 2c 32 29 29 29 3a f2 78 28 66 25 28 |%-10,2))):.x(f%(|
00001490 64 25 2d 31 30 29 2c 67 25 28 61 25 28 30 2c 30 |d%-10),g%(a%(0,0|
000014a0 29 29 29 3a 61 25 28 30 2c 30 29 2d 3d 31 0d 00 |))):a%(0,0)-=1..|
000014b0 5f 05 cd 0d 00 60 42 fd 64 25 3e 30 84 78 25 3c |_....`B.d%>0.x%<|
000014c0 2d 31 39 32 30 84 78 25 3e 33 32 30 30 84 79 25 |-1920.x%>3200.y%|
000014d0 3c 2d 31 33 32 30 84 79 25 3e 32 32 30 30 3a e7 |<-1320.y%>2200:.|
000014e0 64 25 3e 30 80 64 25 3c 33 8c 65 25 28 33 2d 64 |d%>0.d%<3.e%(3-d|
000014f0 25 29 2b 3d 69 0d 00 61 11 e7 64 25 3c 31 31 8c |%)+=i..a..d%<11.|
00001500 f2 64 28 6f 25 29 0d 00 62 08 f2 62 3a e1 0d 00 |.d(o%)..b..b:...|
00001510 63 d4 dd f2 77 3a ea 4e 3a f2 64 28 6f 25 29 3a |c...w:.N:.d(o%):|
00001520 f2 62 3a 6f 25 3d a4 61 28 6a 25 2c 30 2c 30 29 |.b:o%=.a(j%,0,0)|
00001530 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"|
00001540 2c 32 35 36 2b 31 36 2c 6e 25 2c 22 73 63 72 65 |,256+16,n%,"scre|
00001550 65 6e 22 2c 30 2c 30 2c 30 2c 31 32 38 30 2c 38 |en",0,0,0,1280,8|
00001560 38 30 3a 62 25 21 30 3d 31 3a 62 25 21 34 3d 31 |80:b%!0=1:b%!4=1|
00001570 3a 62 25 21 38 3d 34 3a 62 25 21 31 32 3d 34 3a |:b%!8=4:b%!12=4:|
00001580 e6 30 c8 9c 30 3a c8 93 c8 90 30 2c 30 2c 31 32 |.0..0:....0,0,12|
00001590 38 30 2c 38 38 34 3a e6 32 31 c8 9c 30 3a e3 4e |80,884:.21..0:.N|
000015a0 3d 31 b8 35 30 3a f0 36 39 2c 68 25 28 4e 2c 30 |=1.50:.69,h%(N,0|
000015b0 29 2c 68 25 28 4e 2c 31 29 3a ed 3a e6 34 32 c8 |),h%(N,1):.:.42.|
000015c0 9c 30 3a e3 4e 3d 35 31 b8 31 30 30 3a f0 36 39 |.0:.N=51.100:.69|
000015d0 2c 68 25 28 4e 2c 30 29 2c 68 25 28 4e 2c 31 29 |,h%(N,0),h%(N,1)|
000015e0 3a ed 0d 00 64 50 c8 99 22 4f 53 5f 53 70 72 69 |:...dP.."OS_Spri|
000015f0 74 65 4f 70 22 2c 32 35 36 2b 35 32 2c 6e 25 2c |teOp",256+52,n%,|
00001600 22 73 63 72 65 65 6e 22 2c 34 38 30 2c 33 31 32 |"screen",480,312|
00001610 2c 30 2c 62 25 2c 30 3a e6 36 33 c8 9c 30 3a c8 |,0,b%,0:.63..0:.|
00001620 93 34 38 34 2c 33 31 32 2c 33 31 32 2c 32 31 36 |.484,312,312,216|
00001630 3a e1 0d 00 65 2c dd f2 76 3a c8 99 22 4f 53 5f |:...e,..v:.."OS_|
00001640 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 32 35 |SpriteOp",256+25|
00001650 2c 6e 25 2c 22 73 63 72 65 65 6e 22 3a e1 0d 00 |,n%,"screen":...|
00001660 66 3a dd f2 63 28 61 24 2c 78 25 2c 79 25 2c 67 |f:..c(a$,x%,y%,g|
00001670 61 25 29 3a 79 25 3d 79 25 2a 34 30 3a e7 78 25 |a%):y%=y%*40:.x%|
00001680 3d 2d 31 8c 78 25 3d 28 31 32 38 30 2d a9 28 61 |=-1.x%=(1280-.(a|
00001690 24 29 2a 33 32 29 2f 32 0d 00 67 06 ef 35 0d 00 |$)*32)/2..g..5..|
000016a0 68 93 e6 30 c8 9c 30 3a ec 78 25 2b 34 2c 79 25 |h..0..0:.x%+4,y%|
000016b0 3a f1 61 24 3a ec 78 25 2d 34 2c 79 25 3a f1 61 |:.a$:.x%-4,y%:.a|
000016c0 24 3a ec 78 25 2c 79 25 2b 34 3a f1 61 24 3a ec |$:.x%,y%+4:.a$:.|
000016d0 78 25 2c 79 25 2d 34 3a f1 61 24 3a ec 78 25 2b |x%,y%-4:.a$:.x%+|
000016e0 34 2c 79 25 2b 34 3a f1 61 24 3a ec 78 25 2b 34 |4,y%+4:.a$:.x%+4|
000016f0 2c 79 25 2d 34 3a f1 61 24 3a ec 78 25 2d 34 2c |,y%-4:.a$:.x%-4,|
00001700 79 25 2b 34 3a f1 61 24 3a ec 78 25 2d 34 2c 79 |y%+4:.a$:.x%-4,y|
00001710 25 2d 34 3a f1 61 24 3a e6 67 61 25 c8 9c 32 35 |%-4:.a$:.ga%..25|
00001720 35 3a ec 78 25 2c 79 25 3a f1 61 24 3a ef 34 3a |5:.x%,y%:.a$:.4:|
00001730 87 0d 00 69 05 e1 0d 00 6a 32 dd f2 73 3a ea 43 |...i....j2..s:.C|
00001740 2c 4e 3a 43 3d 8e 28 22 3c 47 72 61 76 24 44 69 |,N:C=.("<Grav$Di|
00001750 72 3e 2e 48 69 53 63 6f 72 65 73 22 29 3a e7 43 |r>.HiScores"):.C|
00001760 3d 30 8c d9 23 43 3a e1 0d 00 6b 2b e3 4e 3d 31 |=0..#C:...k+.N=1|
00001770 b8 31 30 3a e8 23 43 2c 61 24 28 4e 2c 30 29 3a |.10:.#C,a$(N,0):|
00001780 e8 23 43 2c 61 24 28 4e 2c 31 29 3a ed 3a d9 23 |.#C,a$(N,1):.:.#|
00001790 43 3a e1 0d 00 6c 4f dd f2 79 3a ea 43 2c 4e 3a |C:...lO..y:.C,N:|
000017a0 43 3d ae 28 22 3c 47 72 61 76 24 44 69 72 3e 2e |C=.("<Grav$Dir>.|
000017b0 48 69 53 63 6f 72 65 73 22 29 3a e3 4e 3d 31 b8 |HiScores"):.N=1.|
000017c0 31 30 3a f1 23 43 2c 61 24 28 4e 2c 30 29 3a f1 |10:.#C,a$(N,0):.|
000017d0 23 43 2c 61 24 28 4e 2c 31 29 3a ed 3a d9 23 43 |#C,a$(N,1):.:.#C|
000017e0 3a e1 0d 00 6d 55 dd f2 7a 3a ea 4e 3a e3 4e 3d |:...mU..z:.N:.N=|
000017f0 31 b8 31 30 3a f2 63 28 61 24 28 4e 2c 30 29 2c |1.10:.c(a$(N,0),|
00001800 32 35 34 2c 31 37 2d 4e 2c 36 33 29 3a f2 63 28 |254,17-N,63):.c(|
00001810 61 24 28 4e 2c 31 29 2c 31 30 32 36 2d a9 28 61 |a$(N,1),1026-.(a|
00001820 24 28 4e 2c 31 29 29 2a 33 32 2c 31 37 2d 4e 2c |$(N,1))*32,17-N,|
00001830 36 33 29 3a ed 3a e1 0d 00 6e 1a dd f2 72 3a ea |63):.:...n...r:.|
00001840 4e 24 2c 4e 3a e7 61 25 28 30 2c 30 29 3c 3e 30 |N$,N:.a%(0,0)<>0|
00001850 8c 0d 00 6f 1c e3 4e 3d 31 b8 61 25 28 30 2c 30 |...o..N=1.a%(0,0|
00001860 29 3a f2 64 28 66 25 28 4e 29 29 3a ed 0d 00 70 |):.d(f%(N)):...p|
00001870 05 cd 0d 00 71 1c e7 65 25 28 33 2d 64 25 29 3c |....q..e%(3-d%)<|
00001880 3d bb 28 61 24 28 31 30 2c 30 29 29 8c e1 0d 00 |=.(a$(10,0))....|
00001890 72 e2 f2 67 3a f2 61 28 22 65 36 22 2c 6a 25 29 |r..g:.a("e6",j%)|
000018a0 3a f2 69 28 6a 25 2c 31 30 35 2c 34 30 29 3a f2 |:.i(j%,105,40):.|
000018b0 62 3a f2 63 28 22 50 6c 61 79 65 72 20 22 2b c3 |b:.c("Player "+.|
000018c0 28 64 25 29 2b 22 20 68 61 73 20 62 65 65 6e 20 |(d%)+" has been |
000018d0 64 65 73 74 72 6f 79 65 64 22 2c 2d 31 2c 31 38 |destroyed",-1,18|
000018e0 2c 35 37 29 3a f2 63 28 22 50 6c 65 61 73 65 20 |,57):.c("Please |
000018f0 65 6e 74 65 72 20 79 6f 75 72 20 6e 61 6d 65 22 |enter your name"|
00001900 2c 2d 31 2c 31 36 2c 35 37 29 3a f2 63 28 22 70 |,-1,16,57):.c("p|
00001910 6c 61 79 65 72 20 22 2b c3 28 33 2d 64 25 29 2b |layer "+.(3-d%)+|
00001920 22 3a 22 2c 2d 31 2c 31 35 2c 35 37 29 3a fb 32 |":",-1,15,57):.2|
00001930 39 c8 9c 32 35 35 3a 4e 24 3d a4 68 28 32 30 2c |9..255:N$=.h(20,|
00001940 22 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e |"...............|
00001950 2e 22 29 3a 4e 3d 31 30 3a f5 3a e7 65 25 28 33 |."):N=10:.:.e%(3|
00001960 2d 64 25 29 3e bb 28 61 24 28 4e 2c 31 29 29 8c |-d%)>.(a$(N,1)).|
00001970 0d 00 73 27 61 24 28 4e 2c 30 29 3d 61 24 28 4e |..s'a$(N,0)=a$(N|
00001980 2d 31 2c 30 29 3a 61 24 28 4e 2c 31 29 3d 61 24 |-1,0):a$(N,1)=a$|
00001990 28 4e 2d 31 2c 31 29 0d 00 74 05 cd 0d 00 75 45 |(N-1,1)..t....uE|
000019a0 4e 2d 3d 31 3a fd 65 25 28 33 2d 64 25 29 3c bb |N-=1:.e%(3-d%)<.|
000019b0 28 61 24 28 4e 2c 31 29 29 3a 61 24 28 4e 2b 31 |(a$(N,1)):a$(N+1|
000019c0 2c 30 29 3d 4e 24 3a 61 24 28 4e 2b 31 2c 31 29 |,0)=N$:a$(N+1,1)|
000019d0 3d c3 28 65 25 28 33 2d 64 25 29 29 3a f2 79 3a |=.(e%(3-d%)):.y:|
000019e0 e1 0d 00 76 55 dd a4 68 28 79 2c 74 24 29 3a ea |...vU..h(y,t$):.|
000019f0 78 2c 6a 3a 78 3d 31 3a 6a 3d a9 28 74 24 29 3a |x,j:x=1:j=.(t$):|
00001a00 f5 3a f1 8a 28 34 30 2d a9 28 74 24 29 29 2f 32 |.:..(40-.(t$))/2|
00001a10 2c 79 29 74 24 3a f5 3a 47 3d a5 3a fd 28 47 3e |,y)t$:.:G=.:.(G>|
00001a20 33 31 80 47 3c 31 32 38 29 84 47 3d 31 33 3a e7 |31.G<128).G=13:.|
00001a30 47 3d 31 32 37 8c 0d 00 77 1a c1 74 24 2c 78 2d |G=127...w..t$,x-|
00001a40 31 29 3d 22 2e 22 3a e7 78 3e 31 8c 78 2d 3d 31 |1)=".":.x>1.x-=1|
00001a50 0d 00 78 13 cc 3a e7 47 3c 3e 31 33 80 78 3c 3d |..x..:.G<>13.x<=|
00001a60 6a 20 8c 0d 00 79 19 c1 74 24 2c 78 29 3d bd 47 |j ...y..t$,x)=.G|
00001a70 3a e7 78 3c 3d 6a 20 8c 78 2b 3d 31 0d 00 7a 05 |:.x<=j .x+=1..z.|
00001a80 cd 0d 00 7b 05 cd 0d 00 7c 22 fd 47 3d 31 33 3a |...{....|".G=13:|
00001a90 e3 4e 3d 78 20 b8 6a 3a c1 74 24 2c 4e 29 3d 22 |.N=x .j:.t$,N)="|
00001aa0 20 22 3a ed 3a 3d 74 24 0d 00 7d 18 dd f2 6d 3a | ":.:=t$..}...m:|
00001ab0 73 25 3d 2d 31 3a e7 76 25 3c 3e 72 25 8c f2 68 |s%=-1:.v%<>r%..h|
00001ac0 0d 00 7e ec c8 97 87 3a 73 25 3d 2d 31 3a 61 61 |..~....:s%=-1:aa|
00001ad0 3d 31 3a 69 3d 30 3a 62 61 3d 30 3a 63 61 3d 30 |=1:i=0:ba=0:ca=0|
00001ae0 3a 64 61 3d 35 3a 68 61 25 3d 30 3a 21 65 25 3d |:da=5:ha%=0:!e%=|
00001af0 30 3a 3a f2 67 3a e3 4e 3d 31 b8 31 30 30 3a 21 |0::.g:.N=1.100:!|
00001b00 28 68 25 2b b3 28 38 31 39 32 30 29 29 3d 32 30 |(h%+.(81920))=20|
00001b10 38 3a 21 28 68 25 2b b3 28 38 31 39 32 30 29 29 |8:!(h%+.(81920))|
00001b20 3d 34 34 3a ed 3a f2 62 3a f2 66 28 2d 32 30 2c |=44:.:.b:.f(-20,|
00001b30 38 38 36 2c 31 33 32 30 2c 34 30 29 3a f2 66 28 |886,1320,40):.f(|
00001b40 2d 32 30 2c 39 30 2c 31 33 32 30 2c 34 30 29 3a |-20,90,1320,40):|
00001b50 f2 66 28 31 36 30 2c 32 30 34 2c 39 36 30 2c 35 |.f(160,204,960,5|
00001b60 37 32 29 3a f2 66 28 32 33 30 2c 38 32 30 2c 38 |72):.f(230,820,8|
00001b70 32 30 2c 31 37 32 29 3a f2 66 28 32 32 30 2c 37 |20,172):.f(220,7|
00001b80 30 2c 38 34 30 2c 38 30 29 3a f2 63 28 22 57 65 |0,840,80):.c("We|
00001b90 6c 63 6f 6d 65 20 74 6f 20 21 57 61 72 66 61 72 |lcome to !Warfar|
00001ba0 65 22 2c 2d 31 2c 32 34 2c 35 37 29 0d 00 7f 99 |e",-1,24,57)....|
00001bb0 f2 63 28 22 62 79 22 2c 2d 31 2c 32 33 2c 34 34 |.c("by",-1,23,44|
00001bc0 29 3a f2 63 28 22 52 6f 62 65 72 74 20 54 61 79 |):.c("Robert Tay|
00001bd0 6c 6f 72 22 2c 2d 31 2c 32 32 2c 32 39 29 3a f2 |lor",-1,22,29):.|
00001be0 63 28 22 48 69 67 68 20 53 63 6f 72 65 73 22 2c |c("High Scores",|
00001bf0 2d 31 2c 31 38 2c 33 39 29 3a f2 63 28 22 50 72 |-1,18,39):.c("Pr|
00001c00 65 73 73 20 61 6e 79 20 6b 65 79 20 74 6f 20 73 |ess any key to s|
00001c10 74 61 72 74 22 2c 2d 31 2c 33 2c 35 37 29 3a f2 |tart",-1,3,57):.|
00001c20 7a 3a f2 74 3a f5 3a c8 97 58 2c 59 2c 5a 3a 49 |z:.t:.:..X,Y,Z:I|
00001c30 3d a6 28 30 29 3a fd 5a 3c 3e 30 84 49 3c 3e 2d |=.(0):.Z<>0.I<>-|
00001c40 31 3a c8 97 ee 0d 00 80 0a 73 25 3d 30 3a e1 0d |1:.......s%=0:..|
00001c50 00 81 af dd f2 66 28 58 2c 59 2c 57 2c 48 29 3a |.....f(X,Y,W,H):|
00001c60 ea 4e 2c 46 3a e6 30 2c 30 c8 9c 36 34 3a c8 93 |.N,F:.0,0..64:..|
00001c70 c8 90 58 2c 59 2c 57 2c 48 3a e6 30 2c 30 c8 9c |..X,Y,W,H:.0,0..|
00001c80 32 35 35 3a c8 93 c8 90 58 2b 34 2c 59 2b 34 2c |255:....X+4,Y+4,|
00001c90 57 2d 38 2c 48 2d 38 3a e6 30 2c 32 31 c8 9c 36 |W-8,H-8:.0,21..6|
00001ca0 34 3a c8 93 c8 90 58 2b 38 2c 59 2b 38 2c 57 2d |4:....X+8,Y+8,W-|
00001cb0 31 36 2c 48 2d 31 36 3a e6 30 2c 32 31 c8 9c 32 |16,H-16:.0,21..2|
00001cc0 35 35 3a c8 93 c8 90 58 2b 31 32 2c 59 2b 31 32 |55:....X+12,Y+12|
00001cd0 2c 57 2d 32 34 2c 48 2d 32 34 3a e6 30 2c 34 32 |,W-24,H-24:.0,42|
00001ce0 c8 9c 36 34 3a c8 93 c8 90 58 2b 31 36 2c 59 2b |..64:....X+16,Y+|
00001cf0 31 36 2c 57 2d 33 32 2c 48 2d 33 32 3a e1 0d 00 |16,W-32,H-32:...|
00001d00 82 0e dd f2 6c 3a e7 9f 3d 31 37 8c 0d 00 83 10 |....l:..=17.....|
00001d10 e7 73 25 8c 2a 44 65 73 6b 74 6f 70 0d 00 84 20 |.s%.*Desktop... |
00001d20 cc 3a eb 31 32 3a f1 f6 24 3b 22 20 61 74 20 6c |.:.12:..$;" at l|
00001d30 69 6e 65 20 22 3b c3 28 9e 29 3a e0 0d 00 85 05 |ine ";.(.):.....|
00001d40 cd 0d 00 86 05 e1 0d 00 87 e3 dd f2 6b 3a de 4f |............k:.O|
00001d50 25 20 31 30 32 34 2a 33 35 3a de 68 25 20 31 30 |% 1024*35:.h% 10|
00001d60 32 34 2a 38 31 3a de 65 25 20 31 30 32 34 2a 32 |24*81:.e% 1024*2|
00001d70 3a de 62 25 20 31 30 32 34 3a de 6b 25 28 32 29 |:.b% 1024:.k%(2)|
00001d80 3a ff 28 22 4c 4f 41 44 20 3c 47 72 61 76 24 44 |:.("LOAD <Grav$D|
00001d90 69 72 3e 2e 63 73 70 72 69 74 65 20 22 2b c3 7e |ir>.csprite "+.~|
00001da0 4f 25 29 3a f2 41 3a f2 67 3a 21 65 25 3d 30 3a |O%):.A:.g:!e%=0:|
00001db0 21 7a 3d 65 25 3a 21 45 3d 68 25 2b 38 3a c8 99 |!z=e%:!E=h%+8:..|
00001dc0 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 31 3a |"OS_Byte",113,1:|
00001dd0 c8 99 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |.."OS_Byte",112,|
00001de0 31 3a 72 25 3d 31 3a 76 25 3d 31 3a 21 62 25 3d |1:r%=1:v%=1:!b%=|
00001df0 31 34 39 3a 62 25 21 34 3d 2d 31 3a c8 99 22 4f |149:b%!4=-1:.."O|
00001e00 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 62 6c |S_ReadVduVariabl|
00001e10 65 73 22 2c 62 25 2c 62 25 2b 38 3a 6b 25 28 31 |es",b%,b%+8:k%(1|
00001e20 29 3d 62 25 21 38 3a f2 68 0d 00 88 33 c8 99 22 |)=b%!8:.h...3.."|
00001e30 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 62 |OS_ReadVduVariab|
00001e40 6c 65 73 22 2c 62 25 2c 62 25 2b 38 3a 6b 25 28 |les",b%,b%+8:k%(|
00001e50 32 29 3d 62 25 21 38 3a f2 68 3a e1 0d 00 89 27 |2)=b%!8:.h:....'|
00001e60 dd f2 68 3a 76 25 3d 33 2d 76 25 3a c8 96 3a c8 |..h:v%=3-v%:..:.|
00001e70 99 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 2c 76 |."OS_Byte",113,v|
00001e80 25 3a e1 0d 00 8a 24 dd f2 42 3a 72 25 3d 33 2d |%:....$..B:r%=3-|
00001e90 72 25 3a c8 99 22 4f 53 5f 42 79 74 65 22 2c 31 |r%:.."OS_Byte",1|
00001ea0 31 32 2c 72 25 3a e1 0d 00 8b 20 dd f2 67 3a 41 |12,r%:.... ..g:A|
00001eb0 25 3d 68 25 3a 42 25 3d 68 25 2b 31 30 32 34 2a |%=h%:B%=h%+1024*|
00001ec0 38 30 3a d6 4c 3a e1 0d 00 8c 59 dd a4 61 28 6e |80:.L:....Y..a(n|
00001ed0 2c 78 2c 79 29 3a ea 71 25 3a 71 25 3d 21 65 25 |,x,y):.q%:q%=!e%|
00001ee0 3a 21 28 65 25 2b 71 25 2a 31 32 2b 34 29 3d 6e |:!(e%+q%*12+4)=n|
00001ef0 3a 21 28 65 25 2b 71 25 2a 31 32 2b 38 29 3d 78 |:!(e%+q%*12+8)=x|
00001f00 3a 21 28 65 25 2b 71 25 2a 31 32 2b 31 32 29 3d |:!(e%+q%*12+12)=|
00001f10 79 3a 21 65 25 3d 71 25 2b 31 3a 3d 71 25 2b 31 |y:!e%=q%+1:=q%+1|
00001f20 0d 00 8d 16 dd f2 65 28 67 2c 78 2c 79 29 3a e7 |......e(g,x,y):.|
00001f30 78 3c 30 78 3d 30 0d 00 8e 0f e7 78 3e 33 31 39 |x<0x=0.....x>319|
00001f40 78 3d 33 31 39 0d 00 8f 0b e7 79 3c 30 79 3d 30 |x=319.....y<0y=0|
00001f50 0d 00 90 0f e7 79 3e 32 35 35 79 3d 32 35 35 0d |.....y>255y=255.|
00001f60 00 91 21 21 28 65 25 2b 67 2a 31 32 2d 34 29 3d |..!!(e%+g*12-4)=|
00001f70 78 3a 21 28 65 25 2b 67 2a 31 32 29 3d 79 3a e1 |x:!(e%+g*12)=y:.|
00001f80 0d 00 92 1d dd f2 78 28 67 2c 6e 29 3a 21 28 65 |......x(g,n):!(e|
00001f90 25 2b 67 2a 31 32 2d 38 29 3d 6e 3a e1 0d 00 93 |%+g*12-8)=n:....|
00001fa0 72 dd f2 64 28 67 29 3a ea 4e 3a 21 65 25 3d 21 |r..d(g):.N:!e%=!|
00001fb0 65 25 2d 31 3a e3 4e 3d 67 20 b8 21 65 25 3a 21 |e%-1:.N=g .!e%:!|
00001fc0 28 65 25 2b 4e 2a 31 32 2d 38 29 3d 21 28 65 25 |(e%+N*12-8)=!(e%|
00001fd0 2b 4e 2a 31 32 2b 34 29 3a 21 28 65 25 2b 4e 2a |+N*12+4):!(e%+N*|
00001fe0 31 32 2d 34 29 3d 21 28 65 25 2b 4e 2a 31 32 2b |12-4)=!(e%+N*12+|
00001ff0 38 29 3a 21 28 65 25 2b 4e 2a 31 32 29 3d 21 28 |8):!(e%+N*12)=!(|
00002000 65 25 2b 4e 2a 31 32 2b 31 32 29 3a ed 3a e1 0d |e%+N*12+12):.:..|
00002010 00 94 34 dd f2 69 28 69 61 25 2c 78 2c 79 29 3a |..4..i(ia%,x,y):|
00002020 21 6f 3d 68 25 2b 38 3a 44 25 3d 69 61 25 3a 45 |!o=h%+8:D%=ia%:E|
00002030 25 3d 68 25 2b 38 2b 78 2b 79 2a 33 32 30 3a d6 |%=h%+8+x+y*320:.|
00002040 4a 3a e1 0d 00 95 1c dd f2 62 3a f2 42 3a 21 70 |J:.......b:.B:!p|
00002050 3d 6b 25 28 72 25 29 3a d6 4d 3a f2 68 3a e1 0d |=k%(r%):.M:.h:..|
00002060 00 96 57 dd f2 61 28 62 24 2c 52 25 29 3a ea 4e |..W..a(b$,R%):.N|
00002070 2c 53 25 2c 77 25 3a 53 25 3d 4f 25 21 30 3a 77 |,S%,w%:S%=O%!0:w|
00002080 25 3d 2d 31 3a 6c 25 3d 4f 25 2b 34 3a e3 4e 3d |%=-1:l%=O%+4:.N=|
00002090 30 b8 53 25 2d 31 3a e7 24 28 6c 25 2b 32 30 2a |0.S%-1:.$(l%+20*|
000020a0 4e 29 3d 62 24 8c 77 25 3d 21 28 6c 25 2b 31 36 |N)=b$.w%=!(l%+16|
000020b0 2b 32 30 2a 4e 29 0d 00 97 30 ed 3a e7 77 25 3d |+20*N)...0.:.w%=|
000020c0 2d 31 8c 85 31 37 2c 22 53 70 72 69 74 65 20 22 |-1..17,"Sprite "|
000020d0 2b 62 24 2b 22 20 64 6f 65 73 20 6e 6f 74 20 65 |+b$+" does not e|
000020e0 78 69 73 74 2e 22 0d 00 98 50 6c 25 3d 6c 25 2b |xist."...Pl%=l%+|
000020f0 77 25 2b 53 25 2a 32 30 3a 52 25 21 30 3d 6c 25 |w%+S%*20:R%!0=l%|
00002100 21 30 3a 52 25 21 34 3d 6c 25 21 34 3a 42 25 3d |!0:R%!4=l%!4:B%=|
00002110 52 25 2b 38 3a 43 25 3d 6c 25 21 38 3a 44 25 3d |R%+8:C%=l%!8:D%=|
00002120 6c 25 2b 31 33 3a 45 25 3d 42 25 2b 38 31 39 32 |l%+13:E%=B%+8192|
00002130 30 3a d6 4f 3a e1 0d 00 99 b5 dd f2 41 3a de 6a |0:.O:.......A:.j|
00002140 61 25 20 33 30 37 32 3a e3 4b 3d 30 b8 32 88 32 |a% 3072:.K=0.2.2|
00002150 3a 50 25 3d 6a 61 25 3a 3a 3a 3a 3a 5b 4f 50 54 |:P%=ja%:::::[OPT|
00002160 20 4b 3a 2e 7a 3a 45 51 55 44 30 3a 2e 70 3a 45 | K:.z:EQUD0:.p:E|
00002170 51 55 44 30 3a 2e 45 3a 45 51 55 44 30 3a 2e 6f |QUD0:.E:EQUD0:.o|
00002180 3a 45 51 55 44 30 3a 2e 66 61 3a 20 5d 3a 50 25 |:EQUD0:.fa: ]:P%|
00002190 2b 3d 31 30 32 34 3a 5b 4f 50 54 20 4b 3a 2e 4f |+=1024:[OPT K:.O|
000021a0 3a 2e 52 3a 4c 44 52 42 37 2c 5b 33 2c 23 31 5d |:.R:LDRB7,[3,#1]|
000021b0 20 21 3a 4c 44 52 42 38 2c 5b 33 2c 23 31 5d 20 | !:LDRB8,[3,#1] |
000021c0 21 3a 4d 4f 56 39 2c 38 3a 2e 55 3a 53 54 52 42 |!:MOV9,8:.U:STRB|
000021d0 37 2c 5b 31 2c 23 31 5d 20 21 3a 53 55 42 53 39 |7,[1,#1] !:SUBS9|
000021e0 2c 39 2c 23 31 3a 42 4e 45 20 55 0d 00 9a d2 53 |,9,#1:BNE U....S|
000021f0 55 42 53 32 2c 32 2c 23 31 3a 42 4e 45 20 52 3a |UBS2,2,#1:BNE R:|
00002200 4d 4f 56 20 50 43 2c 31 34 3a 2e 4d 3a 4c 44 52 |MOV PC,14:.M:LDR|
00002210 30 2c 45 3a 4c 44 52 31 2c 70 3a 4d 4f 56 32 2c |0,E:LDR1,p:MOV2,|
00002220 23 32 35 36 3a 2e 56 3a 4c 44 4d 49 41 30 21 2c |#256:.V:LDMIA0!,|
00002230 7b 33 2d 31 32 7d 3a 53 54 4d 49 41 31 21 2c 7b |{3-12}:STMIA1!,{|
00002240 33 2d 31 32 7d 3a 4c 44 4d 49 41 30 21 2c 7b 33 |3-12}:LDMIA0!,{3|
00002250 2d 31 32 7d 3a 53 54 4d 49 41 31 21 2c 7b 33 2d |-12}:STMIA1!,{3-|
00002260 31 32 7d 3a 4c 44 4d 49 41 30 21 2c 7b 33 2d 31 |12}:LDMIA0!,{3-1|
00002270 32 7d 3a 53 54 4d 49 41 31 21 2c 7b 33 2d 31 32 |2}:STMIA1!,{3-12|
00002280 7d 3a 4c 44 4d 49 41 30 21 2c 7b 33 2d 31 32 7d |}:LDMIA0!,{3-12}|
00002290 3a 53 54 4d 49 41 31 21 2c 7b 33 2d 31 32 7d 3a |:STMIA1!,{3-12}:|
000022a0 4c 44 4d 49 41 30 21 2c 7b 33 2d 31 32 7d 3a 53 |LDMIA0!,{3-12}:S|
000022b0 54 4d 49 41 31 21 2c 7b 33 2d 31 32 7d 0d 00 9b |TMIA1!,{3-12}...|
000022c0 b5 4c 44 4d 49 41 30 21 2c 7b 33 2d 31 32 7d 3a |.LDMIA0!,{3-12}:|
000022d0 53 54 4d 49 41 31 21 2c 7b 33 2d 31 32 7d 3a 4c |STMIA1!,{3-12}:L|
000022e0 44 4d 49 41 30 21 2c 7b 33 2d 31 32 7d 3a 53 54 |DMIA0!,{3-12}:ST|
000022f0 4d 49 41 31 21 2c 7b 33 2d 31 32 7d 3a 4c 44 4d |MIA1!,{3-12}:LDM|
00002300 49 41 30 21 2c 7b 33 2d 31 32 7d 3a 53 54 4d 49 |IA0!,{3-12}:STMI|
00002310 41 31 21 2c 7b 33 2d 31 32 7d 3a 53 55 42 53 32 |A1!,{3-12}:SUBS2|
00002320 2c 32 2c 23 31 3a 42 4e 45 20 56 3a 4c 44 52 30 |,2,#1:BNE V:LDR0|
00002330 2c 7a 3a 4c 44 52 31 2c 70 3a 53 54 52 31 2c 6f |,z:LDR1,p:STR1,o|
00002340 3a 53 55 42 30 2c 30 2c 23 34 3a 4c 44 52 32 2c |:SUB0,0,#4:LDR2,|
00002350 5b 30 2c 23 34 5d 20 21 3a 43 4d 50 32 2c 23 30 |[0,#4] !:CMP2,#0|
00002360 3a ec 51 20 50 43 2c 31 34 3a 4d 4f 56 31 32 2c |:.Q PC,14:MOV12,|
00002370 31 34 0d 00 9c c3 2e 5f 3a 4c 44 52 33 2c 5b 30 |14....._:LDR3,[0|
00002380 2c 23 34 5d 20 21 3a 4c 44 52 35 2c 5b 30 2c 23 |,#4] !:LDR5,[0,#|
00002390 34 5d 20 21 3a 4c 44 52 34 2c 5b 30 2c 23 34 5d |4] !:LDR4,[0,#4]|
000023a0 20 21 3a 4d 4f 56 36 2c 23 33 32 30 3a 4d 55 4c | !:MOV6,#320:MUL|
000023b0 20 34 2c 36 2c 34 3a 41 44 44 34 2c 34 2c 35 3a | 4,6,4:ADD4,4,5:|
000023c0 41 44 44 34 2c 34 2c 31 3a 42 4c 20 4a 3a 53 55 |ADD4,4,1:BL J:SU|
000023d0 42 53 32 2c 32 2c 23 31 3a 42 4e 45 20 5f 3a 4d |BS2,2,#1:BNE _:M|
000023e0 4f 56 20 50 43 2c 31 32 3a 2e 4a 3a 53 55 42 33 |OV PC,12:.J:SUB3|
000023f0 2c 33 2c 23 34 3a 4c 44 52 35 2c 5b 33 2c 23 34 |,3,#4:LDR5,[3,#4|
00002400 5d 20 21 3a 4c 44 52 36 2c 5b 33 2c 23 34 5d 20 |] !:LDR6,[3,#4] |
00002410 21 3a 41 44 44 33 2c 33 2c 23 34 3a 4c 44 52 39 |!:ADD3,3,#4:LDR9|
00002420 2c 6f 3a 4d 4f 56 31 30 2c 34 3a 53 55 42 31 30 |,o:MOV10,4:SUB10|
00002430 2c 31 30 2c 39 0d 00 9d bb 2e 60 20 43 4d 50 31 |,10,9.....` CMP1|
00002440 30 2c 23 33 32 30 3a 53 55 42 47 45 31 30 2c 31 |0,#320:SUBGE10,1|
00002450 30 2c 23 33 32 30 3a 42 47 45 20 60 3a 52 53 42 |0,#320:BGE `:RSB|
00002460 31 30 2c 31 30 2c 23 33 32 30 3a 4d 4f 56 31 31 |10,10,#320:MOV11|
00002470 2c 23 30 3a 43 4d 50 35 2c 31 30 3a 53 55 42 47 |,#0:CMP5,10:SUBG|
00002480 45 31 31 2c 35 2c 31 30 3a 4d 4f 56 47 45 35 2c |E11,5,10:MOVGE5,|
00002490 31 30 3a 41 44 44 39 2c 39 2c 23 38 31 39 32 30 |10:ADD9,9,#81920|
000024a0 3a 2e 67 61 3a 4d 4f 56 38 2c 35 3a 2e 68 61 3a |:.ga:MOV8,5:.ha:|
000024b0 4c 44 52 42 37 2c 5b 33 2c 23 31 5d 20 21 3a 43 |LDRB7,[3,#1] !:C|
000024c0 4d 50 37 2c 23 32 32 37 3a 53 54 52 4e 45 42 37 |MP7,#227:STRNEB7|
000024d0 2c 5b 34 5d 3a 41 44 44 34 2c 34 2c 23 31 3a 53 |,[4]:ADD4,4,#1:S|
000024e0 55 42 53 38 2c 38 2c 23 31 3a 42 4e 45 20 68 61 |UBS8,8,#1:BNE ha|
000024f0 0d 00 9e c5 41 44 44 34 2c 34 2c 23 33 32 30 3a |....ADD4,4,#320:|
00002500 53 55 42 34 2c 34 2c 35 3a 41 44 44 33 2c 33 2c |SUB4,4,5:ADD3,3,|
00002510 31 31 3a 43 4d 50 34 2c 39 3a 4d 4f 56 47 45 20 |11:CMP4,9:MOVGE |
00002520 50 43 2c 31 34 3a 53 55 42 53 36 2c 36 2c 23 31 |PC,14:SUBS6,6,#1|
00002530 3a 42 4e 45 20 67 61 3a 4d 4f 56 20 50 43 2c 31 |:BNE ga:MOV PC,1|
00002540 34 3a 2e 4c 3a 4d 4f 56 32 2c 23 30 3a 4d 4f 56 |4:.L:MOV2,#0:MOV|
00002550 33 2c 23 30 3a 4d 4f 56 34 2c 23 30 3a 4d 4f 56 |3,#0:MOV4,#0:MOV|
00002560 35 2c 23 30 3a 4d 4f 56 36 2c 23 30 3a 4d 4f 56 |5,#0:MOV6,#0:MOV|
00002570 37 2c 23 30 3a 4d 4f 56 38 2c 23 30 3a 4d 4f 56 |7,#0:MOV8,#0:MOV|
00002580 39 2c 23 30 3a 2e 69 61 3a 53 54 4d 49 41 30 21 |9,#0:.ia:STMIA0!|
00002590 2c 7b 32 2d 39 7d 3a 43 4d 50 30 2c 31 3a 42 4c |,{2-9}:CMP0,1:BL|
000025a0 53 20 69 61 3a 4d 4f 56 20 50 43 2c 31 34 3a 20 |S ia:MOV PC,14: |
000025b0 5d 3a ed 3a e1 0d ff |]:.:...|
000025b7 
.