� >THE-END
� Acorn Computing
� by MAG & CAT & MARVIN
(�13
2�
<O$="OS_SpriteOp"
Fpath$="<MAG$Dir>."
P	�dims
Z	�init
d�loadem
n�sprites
x&ȑ(1280-width%)/2,(1024-height%)/2
��screen
�
�� loop------------------
��
�	�keys
��0
�� ---------------------
�
�
� dims
�
��dims
��O%(30)
�
�d%(6)
�	nf%=2

�f%(nf%)


�g%(2)

�

"

,
� init

6
��init

@OX%=480

JOY%=352

T�ORIGIN480,352

^
X%=0:Y%=0

hd%(0)=5

rd%(1)=6

|d%=0

��

�

�� screen

���screen

��

�ș O$,&222,S%,O%(1),X%,Y%,8

��

�

�
� KEYS

�
��keys

�&�-40�:ș O$,&222,S%,O%(1),X%,Y%,8

��-49�hole

��-50�decomp
�-18�melt
�-19�radiate
�-20�ignite
&
�-53�eat
0�-37�cube
:�-22�x
D�
N
X#� +++++++++++++++++++++++++++++
b!� LOAD SPRITEfile/SET UP AREA
l��loadem
v
�s$=path$+"OBJECTS"
�file%=�(s$)
�L%=�#file%+64
��#file%
�� S% L%
�S%!0=L%
�ș "OS_SpriteOp",256+9,S%
�!ș "OS_SpriteOp",256+10,S%,s$
��
�
�
� SPRITES
�
��sprites
�
�I%=0�nf%
(�setSprite("flame"+�I%,f%(I%),a%,b%)
�
�I%=0�2
 '�setSprite("grub"+�I%,g%(I%),a%,b%)
*�
4%�setSprite("OBJECT1",O%(1),a%,b%)
>width%=a%:height%=b%
H&�setSprite("BulletHole",bh%,a%,b%)
R�
\
f� set sprites
p"��setSprite(s$,� A%,� W%,� H%)
z(ș "OS_SpriteOp",256+24,S%,s$ � ,,A%
�,ș "OS_SpriteOp",256+40,S%,s$ � ,,,W%,H%
�W%=W%*4:H%=H%*4
��
�
�ș O$,&222,g%,p%,640,220,0
��
�
�� holes
�
��hole
��13,30)�18
��K%=1�10
�size%=11+�(5)
��
a%=�(width%)
b%=�(height%)
p%=�a%,b%):�p%>0
$Q%=2
.�Q%,p%:Ȝ2,0
8ȏȐa%,b%,size%
B�I%=1�32
LȜ2,�(4)*64-64
V�69,a%-32+�(64),b%-32+�(64)
`�
j�0:Ȝ2,0
tȏȐa%-4,b%-4,size%-4
~�
��
�
�� decompose
���decomp
��13,30)"Press 2 to stop"
�����-50
��
��
�a%=�(height%)
�b%=�(width%)
�p%=�a%,b%):�p%>0
��d%(d%):Ȝ2,192
,�p%=d%(d%+1)�0:ȏȐa%,b%,4:�p%:Ȓa%,b%-4

�p%=d%(d%)�d%(d%+1):Ȓa%,b%
Ȓa%,b%
	��-50
(����-50
2�13,30)�18
<�
F
P
� MELT
Z
��melt
d�13,30)"Press 3 to stop"
n����-18
x�
�sx%=X%:sy%=Y%+height%
�mx%=sx%+�(width%)
�my%=sy%
��
�
my%-=4
���mx%,my%)<>0�my%<=Y%
��my%<=Y%�tLE
�ȏmx%,my%,8
�
�p%=�mx%,my%)
�t%=Ȝ(mx%,my%)
��(2)=1p%=7
�
�
�p%:Ȝ2,�(4)*192
ȏȐmx%,my%,8
"�p%:Ȝ2,t%
,ȏȐmx%,my%-8,4+�(8)
6
@
my%-=8
Jmx%=mx%+8-(�(3)*4)
T
^
�=0:���>5
h�-18my%=Y%
r�my%<=Y%��(30)=1
|	��-18
�����-18
��13,30)�18
��
�
�
� radiate
�
��radiate
��13,30)"Press 4 to stop"
�����-19
��
�sx%=X%:sy%=Y%
�sy%=Y%+�(height%)
��
�
sx%+=4
q%=�sx%,sy%)
(�q%>0�sy%>=Y%+height%�sx%>=X%+width%
�q%:Ȓsx%-4,sy%
&�0:Ȓsx%,sy%
0Ȓsx%-4,sy%+8-(�(3)*4)
:�X%,Y%:�1,0,height%
D
sx%=X%
N�-19sy%=Y%+height%
X
b	��-19
l����-19
v�13,30)�18
��
�
�� i g n i t e
���ignite
��13,30)"Press 5 to stop"
�	V%=11
�����-20
��
��
�sx%=�(height%)
�sy%=�(width%)
���sx%,sy%)<>0
�
�k%=1��(20)
�-20�T~H

r%=�(3)-1
 "ș O$,&222,S%,f%(r%),sx%,sy%,8
*
�=0:���>3
4#ș O$,&222,S%,f%(r%),sx%,sy%,V%
>�
H	��-20
R����-20
\�13,30)�18
f�
p
z� eating
�	��eat
��13,30)"Press 6 to stop"
�	V%=11
�����-53
�
��
�sx%=�(height%)
�sy%=�(width%)
���sx%,sy%)<>0
�
��
�
r%=�(3)-1
�"ș O$,&222,S%,g%(r%),sx%,sy%,8
	
�=0:���>4
	#ș O$,&222,S%,g%(r%),sx%,sy%,V%
	�
	$sx%+=8-(�(3)*4)
	.sy%+=8-(�(3)*4)
	8T�sx%<0�sx%>width%�sy%<0�sy%>height%:�:sx%=�(height%):sy%=�(width%):��sx%,sy%)<>0
	B��sx%,sy%)<>0
	L
	V	��-53
	`����-53
	j�13,30)�18
	t�
	~
	�
� cube it
	���cube:����-37
	�
sx%=X%
	�	y%=Y%
	��13,30)"Press 7 to stop"
	�cube%=8
	��0
	��I%=sx%�width%�cube%
	�
�I%,Y%
	��1,0,height%
	��sx%,y%:�1,width%,0
	�
y%+=cube%
�


�
�
(a%=�(width%)�cube%*cube%
2b%=�(height%)�cube%*cube%
<��a%+4,b%+4)<>0
F
P�
Za2%=�(width%)�cube%*cube%
db2%=�(height%)�cube%*cube%
n��a2%+4,b2%+4)<>0
x
�
�a%,b%
�� BY cube%,cube%
��&BE,a2%,b2%
�
�	��-37
�����-37
��13,30)�18
��
�
���x
��
�����-22
��
*�4,30)"For future expansion! Press 8"
	��-22
����-22
"�4,30)�33
,�screen
6�
�

00000000  0d 00 0a 0e f4 20 3e 54  48 45 2d 45 4e 44 0d 00  |..... >THE-END..|
00000010  14 15 f4 20 41 63 6f 72  6e 20 43 6f 6d 70 75 74  |... Acorn Comput|
00000020  69 6e 67 0d 00 1e 1b f4  20 62 79 20 4d 41 47 20  |ing..... by MAG |
00000030  26 20 43 41 54 20 26 20  4d 41 52 56 49 4e 0d 00  |& CAT & MARVIN..|
00000040  28 07 eb 31 33 0d 00 32  05 87 0d 00 3c 14 4f 24  |(..13..2....<.O$|
00000050  3d 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 0d 00  |="OS_SpriteOp"..|
00000060  46 16 70 61 74 68 24 3d  22 3c 4d 41 47 24 44 69  |F.path$="<MAG$Di|
00000070  72 3e 2e 22 0d 00 50 09  f2 64 69 6d 73 0d 00 5a  |r>."..P..dims..Z|
00000080  09 f2 69 6e 69 74 0d 00  64 0b f2 6c 6f 61 64 65  |..init..d..loade|
00000090  6d 0d 00 6e 0c f2 73 70  72 69 74 65 73 0d 00 78  |m..n..sprites..x|
000000a0  26 c8 91 28 31 32 38 30  2d 77 69 64 74 68 25 29  |&..(1280-width%)|
000000b0  2f 32 2c 28 31 30 32 34  2d 68 65 69 67 68 74 25  |/2,(1024-height%|
000000c0  29 2f 32 0d 00 82 0b f2  73 63 72 65 65 6e 0d 00  |)/2.....screen..|
000000d0  8c 04 0d 00 96 1c f4 20  6c 6f 6f 70 2d 2d 2d 2d  |....... loop----|
000000e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
000000f0  a0 05 f5 0d 00 aa 09 f2  6b 65 79 73 0d 00 b4 06  |........keys....|
00000100  fd 30 0d 00 be 1b f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |.0..... --------|
00000110  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 00 c8  |-------------...|
00000120  04 0d 00 d2 0a f4 20 64  69 6d 73 0d 00 dc 0a dd  |...... dims.....|
00000130  f2 64 69 6d 73 0d 00 e6  0b de 4f 25 28 33 30 29  |.dims.....O%(30)|
00000140  0d 00 f0 0a de 64 25 28  36 29 0d 00 fa 09 6e 66  |.....d%(6)....nf|
00000150  25 3d 32 0d 01 04 0c de  66 25 28 6e 66 25 29 0d  |%=2.....f%(nf%).|
00000160  01 0e 0a de 67 25 28 32  29 0d 01 18 05 e1 0d 01  |....g%(2).......|
00000170  22 04 0d 01 2c 0a f4 20  69 6e 69 74 0d 01 36 0a  |"...,.. init..6.|
00000180  dd f2 69 6e 69 74 0d 01  40 0b 4f 58 25 3d 34 38  |..init..@.OX%=48|
00000190  30 0d 01 4a 0b 4f 59 25  3d 33 35 32 0d 01 54 12  |0..J.OY%=352..T.|
000001a0  f4 4f 52 49 47 49 4e 34  38 30 2c 33 35 32 0d 01  |.ORIGIN480,352..|
000001b0  5e 0d 58 25 3d 30 3a 59  25 3d 30 0d 01 68 0b 64  |^.X%=0:Y%=0..h.d|
000001c0  25 28 30 29 3d 35 0d 01  72 0b 64 25 28 31 29 3d  |%(0)=5..r.d%(1)=|
000001d0  36 0d 01 7c 08 64 25 3d  30 0d 01 86 05 e1 0d 01  |6..|.d%=0.......|
000001e0  90 04 0d 01 9a 0c f4 20  73 63 72 65 65 6e 0d 01  |....... screen..|
000001f0  a4 0c dd f2 73 63 72 65  65 6e 0d 01 ae 05 db 0d  |....screen......|
00000200  01 b8 1f c8 99 20 4f 24  2c 26 32 32 32 2c 53 25  |..... O$,&222,S%|
00000210  2c 4f 25 28 31 29 2c 58  25 2c 59 25 2c 38 0d 01  |,O%(1),X%,Y%,8..|
00000220  c2 05 e1 0d 01 cc 04 0d  01 d6 0a f4 20 4b 45 59  |............ KEY|
00000230  53 0d 01 e0 0a dd f2 6b  65 79 73 0d 01 ea 26 e7  |S......keys...&.|
00000240  a6 2d 34 30 db 3a c8 99  20 4f 24 2c 26 32 32 32  |.-40.:.. O$,&222|
00000250  2c 53 25 2c 4f 25 28 31  29 2c 58 25 2c 59 25 2c  |,S%,O%(1),X%,Y%,|
00000260  38 0d 01 f4 0e e7 a6 2d  34 39 f2 68 6f 6c 65 0d  |8......-49.hole.|
00000270  01 fe 10 e7 a6 2d 35 30  f2 64 65 63 6f 6d 70 0d  |.....-50.decomp.|
00000280  02 08 0e e7 a6 2d 31 38  f2 6d 65 6c 74 0d 02 12  |.....-18.melt...|
00000290  11 e7 a6 2d 31 39 f2 72  61 64 69 61 74 65 0d 02  |...-19.radiate..|
000002a0  1c 10 e7 a6 2d 32 30 f2  69 67 6e 69 74 65 0d 02  |....-20.ignite..|
000002b0  26 0d e7 a6 2d 35 33 f2  65 61 74 0d 02 30 0e e7  |&...-53.eat..0..|
000002c0  a6 2d 33 37 f2 63 75 62  65 0d 02 3a 0b e7 a6 2d  |.-37.cube..:...-|
000002d0  32 32 f2 78 0d 02 44 05  e1 0d 02 4e 04 0d 02 58  |22.x..D....N...X|
000002e0  23 f4 20 2b 2b 2b 2b 2b  2b 2b 2b 2b 2b 2b 2b 2b  |#. +++++++++++++|
000002f0  2b 2b 2b 2b 2b 2b 2b 2b  2b 2b 2b 2b 2b 2b 2b 2b  |++++++++++++++++|
00000300  0d 02 62 21 f4 20 4c 4f  41 44 20 53 50 52 49 54  |..b!. LOAD SPRIT|
00000310  45 66 69 6c 65 2f 53 45  54 20 55 50 20 41 52 45  |Efile/SET UP ARE|
00000320  41 0d 02 6c 0c dd f2 6c  6f 61 64 65 6d 0d 02 76  |A..l...loadem..v|
00000330  04 0d 02 80 16 73 24 3d  70 61 74 68 24 2b 22 4f  |.....s$=path$+"O|
00000340  42 4a 45 43 54 53 22 0d  02 8a 0f 66 69 6c 65 25  |BJECTS"....file%|
00000350  3d 8e 28 73 24 29 0d 02  94 11 4c 25 3d a2 23 66  |=.(s$)....L%=.#f|
00000360  69 6c 65 25 2b 36 34 0d  02 9e 0b d9 23 66 69 6c  |ile%+64.....#fil|
00000370  65 25 0d 02 a8 0b de 20  53 25 20 4c 25 0d 02 b2  |e%..... S% L%...|
00000380  0b 53 25 21 30 3d 4c 25  0d 02 bc 1d c8 99 20 22  |.S%!0=L%...... "|
00000390  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
000003a0  2b 39 2c 53 25 0d 02 c6  21 c8 99 20 22 4f 53 5f  |+9,S%...!.. "OS_|
000003b0  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 31 30  |SpriteOp",256+10|
000003c0  2c 53 25 2c 73 24 0d 02  d0 05 e1 0d 02 da 04 0d  |,S%,s$..........|
000003d0  02 e4 0d f4 20 53 50 52  49 54 45 53 0d 02 ee 0d  |.... SPRITES....|
000003e0  dd f2 73 70 72 69 74 65  73 0d 02 f8 0d e3 49 25  |..sprites.....I%|
000003f0  3d 30 b8 6e 66 25 0d 03  02 28 f2 73 65 74 53 70  |=0.nf%...(.setSp|
00000400  72 69 74 65 28 22 66 6c  61 6d 65 22 2b c3 49 25  |rite("flame"+.I%|
00000410  2c 66 25 28 49 25 29 2c  61 25 2c 62 25 29 0d 03  |,f%(I%),a%,b%)..|
00000420  0c 05 ed 0d 03 16 0b e3  49 25 3d 30 b8 32 0d 03  |........I%=0.2..|
00000430  20 27 f2 73 65 74 53 70  72 69 74 65 28 22 67 72  | '.setSprite("gr|
00000440  75 62 22 2b c3 49 25 2c  67 25 28 49 25 29 2c 61  |ub"+.I%,g%(I%),a|
00000450  25 2c 62 25 29 0d 03 2a  05 ed 0d 03 34 25 f2 73  |%,b%)..*....4%.s|
00000460  65 74 53 70 72 69 74 65  28 22 4f 42 4a 45 43 54  |etSprite("OBJECT|
00000470  31 22 2c 4f 25 28 31 29  2c 61 25 2c 62 25 29 0d  |1",O%(1),a%,b%).|
00000480  03 3e 18 77 69 64 74 68  25 3d 61 25 3a 68 65 69  |.>.width%=a%:hei|
00000490  67 68 74 25 3d 62 25 0d  03 48 26 f2 73 65 74 53  |ght%=b%..H&.setS|
000004a0  70 72 69 74 65 28 22 42  75 6c 6c 65 74 48 6f 6c  |prite("BulletHol|
000004b0  65 22 2c 62 68 25 2c 61  25 2c 62 25 29 0d 03 52  |e",bh%,a%,b%)..R|
000004c0  05 e1 0d 03 5c 04 0d 03  66 11 f4 20 73 65 74 20  |....\...f.. set |
000004d0  73 70 72 69 74 65 73 0d  03 70 22 dd f2 73 65 74  |sprites..p"..set|
000004e0  53 70 72 69 74 65 28 73  24 2c f8 20 41 25 2c f8  |Sprite(s$,. A%,.|
000004f0  20 57 25 2c f8 20 48 25  29 0d 03 7a 28 c8 99 20  | W%,. H%)..z(.. |
00000500  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00000510  36 2b 32 34 2c 53 25 2c  73 24 20 b8 20 2c 2c 41  |6+24,S%,s$ . ,,A|
00000520  25 0d 03 84 2c c8 99 20  22 4f 53 5f 53 70 72 69  |%...,.. "OS_Spri|
00000530  74 65 4f 70 22 2c 32 35  36 2b 34 30 2c 53 25 2c  |teOp",256+40,S%,|
00000540  73 24 20 b8 20 2c 2c 2c  57 25 2c 48 25 0d 03 8e  |s$ . ,,,W%,H%...|
00000550  13 57 25 3d 57 25 2a 34  3a 48 25 3d 48 25 2a 34  |.W%=W%*4:H%=H%*4|
00000560  0d 03 98 05 e1 0d 03 a2  04 0d 03 ac 1e c8 99 20  |............... |
00000570  4f 24 2c 26 32 32 32 2c  67 25 2c 70 25 2c 36 34  |O$,&222,g%,p%,64|
00000580  30 2c 32 32 30 2c 30 0d  03 b6 05 e1 0d 03 c0 04  |0,220,0.........|
00000590  0d 03 ca 0b f4 20 68 6f  6c 65 73 0d 03 d4 0a dd  |..... holes.....|
000005a0  f2 68 6f 6c 65 0d 03 de  0f f1 8a 31 33 2c 33 30  |.hole......13,30|
000005b0  29 89 31 38 0d 03 e8 0c  e3 4b 25 3d 31 b8 31 30  |).18.....K%=1.10|
000005c0  0d 03 f2 11 73 69 7a 65  25 3d 31 31 2b b3 28 35  |....size%=11+.(5|
000005d0  29 0d 03 fc 05 f5 0d 04  06 10 61 25 3d b3 28 77  |).........a%=.(w|
000005e0  69 64 74 68 25 29 0d 04  10 11 62 25 3d b3 28 68  |idth%)....b%=.(h|
000005f0  65 69 67 68 74 25 29 0d  04 1a 14 70 25 3d b0 61  |eight%)....p%=.a|
00000600  25 2c 62 25 29 3a fd 70  25 3e 30 0d 04 24 08 51  |%,b%):.p%>0..$.Q|
00000610  25 3d 32 0d 04 2e 10 e6  51 25 2c 70 25 3a c8 9c  |%=2.....Q%,p%:..|
00000620  32 2c 30 0d 04 38 13 c8  8f c8 90 61 25 2c 62 25  |2,0..8.....a%,b%|
00000630  2c 73 69 7a 65 25 0d 04  42 0c e3 49 25 3d 31 b8  |,size%..B..I%=1.|
00000640  33 32 0d 04 4c 12 c8 9c  32 2c b3 28 34 29 2a 36  |32..L...2,.(4)*6|
00000650  34 2d 36 34 0d 04 56 1f  f0 36 39 2c 61 25 2d 33  |4-64..V..69,a%-3|
00000660  32 2b b3 28 36 34 29 2c  62 25 2d 33 32 2b b3 28  |2+.(64),b%-32+.(|
00000670  36 34 29 0d 04 60 05 ed  0d 04 6a 0c e6 30 3a c8  |64)..`....j..0:.|
00000680  9c 32 2c 30 0d 04 74 19  c8 8f c8 90 61 25 2d 34  |.2,0..t.....a%-4|
00000690  2c 62 25 2d 34 2c 73 69  7a 65 25 2d 34 0d 04 7e  |,b%-4,size%-4..~|
000006a0  05 ed 0d 04 88 05 e1 0d  04 92 04 0d 04 9c 0f f4  |................|
000006b0  20 64 65 63 6f 6d 70 6f  73 65 0d 04 a6 0c dd f2  | decompose......|
000006c0  64 65 63 6f 6d 70 0d 04  b0 1d f1 8a 31 33 2c 33  |decomp......13,3|
000006d0  30 29 22 50 72 65 73 73  20 32 20 74 6f 20 73 74  |0)"Press 2 to st|
000006e0  6f 70 22 0d 04 ba 0b f5  fd ac a6 2d 35 30 0d 04  |op"........-50..|
000006f0  c4 05 f5 0d 04 ce 05 f5  0d 04 d8 11 61 25 3d b3  |............a%=.|
00000700  28 68 65 69 67 68 74 25  29 0d 04 e2 10 62 25 3d  |(height%)....b%=|
00000710  b3 28 77 69 64 74 68 25  29 0d 04 ec 14 70 25 3d  |.(width%)....p%=|
00000720  b0 61 25 2c 62 25 29 3a  fd 70 25 3e 30 0d 04 f6  |.a%,b%):.p%>0...|
00000730  13 e6 64 25 28 64 25 29  3a c8 9c 32 2c 31 39 32  |..d%(d%):..2,192|
00000740  0d 05 00 2c e7 70 25 3d  64 25 28 64 25 2b 31 29  |...,.p%=d%(d%+1)|
00000750  e6 30 3a c8 8f c8 90 61  25 2c 62 25 2c 34 3a e6  |.0:....a%,b%,4:.|
00000760  70 25 3a c8 92 61 25 2c  62 25 2d 34 0d 05 0a 1f  |p%:..a%,b%-4....|
00000770  e7 70 25 3d 64 25 28 64  25 29 e6 64 25 28 64 25  |.p%=d%(d%).d%(d%|
00000780  2b 31 29 3a c8 92 61 25  2c 62 25 0d 05 14 0b c8  |+1):..a%,b%.....|
00000790  92 61 25 2c 62 25 0d 05  1e 09 fd a6 2d 35 30 0d  |.a%,b%......-50.|
000007a0  05 28 0b f5 fd ac a6 2d  35 30 0d 05 32 0f f1 8a  |.(.....-50..2...|
000007b0  31 33 2c 33 30 29 89 31  38 0d 05 3c 05 e1 0d 05  |13,30).18..<....|
000007c0  46 04 0d 05 50 0a f4 20  4d 45 4c 54 0d 05 5a 0a  |F...P.. MELT..Z.|
000007d0  dd f2 6d 65 6c 74 0d 05  64 1d f1 8a 31 33 2c 33  |..melt..d...13,3|
000007e0  30 29 22 50 72 65 73 73  20 33 20 74 6f 20 73 74  |0)"Press 3 to st|
000007f0  6f 70 22 0d 05 6e 0b f5  fd ac a6 2d 31 38 0d 05  |op"..n.....-18..|
00000800  78 05 f5 0d 05 82 19 73  78 25 3d 58 25 3a 73 79  |x......sx%=X%:sy|
00000810  25 3d 59 25 2b 68 65 69  67 68 74 25 0d 05 8c 15  |%=Y%+height%....|
00000820  6d 78 25 3d 73 78 25 2b  b3 28 77 69 64 74 68 25  |mx%=sx%+.(width%|
00000830  29 0d 05 96 0b 6d 79 25  3d 73 79 25 0d 05 a0 05  |)....my%=sy%....|
00000840  f5 0d 05 aa 0a 6d 79 25  2d 3d 34 0d 05 b4 19 fd  |.....my%-=4.....|
00000850  b0 6d 78 25 2c 6d 79 25  29 3c 3e 30 84 6d 79 25  |.mx%,my%)<>0.my%|
00000860  3c 3d 59 25 0d 05 be 11  e7 6d 79 25 3c 3d 59 25  |<=Y%.....my%<=Y%|
00000870  e5 8d 74 4c 45 0d 05 c8  0f c8 8f 6d 78 25 2c 6d  |..tLE......mx%,m|
00000880  79 25 2c 38 0d 05 d2 04  0d 05 dc 10 70 25 3d b0  |y%,8........p%=.|
00000890  6d 78 25 2c 6d 79 25 29  0d 05 e6 12 74 25 3d c8  |mx%,my%)....t%=.|
000008a0  9c 28 6d 78 25 2c 6d 79  25 29 0d 05 f0 0f e7 b3  |.(mx%,my%)......|
000008b0  28 32 29 3d 31 70 25 3d  37 0d 05 fa 04 0d 06 04  |(2)=1p%=7.......|
000008c0  05 f5 0d 06 0e 14 e6 70  25 3a c8 9c 32 2c b3 28  |.......p%:..2,.(|
000008d0  34 29 2a 31 39 32 0d 06  18 11 c8 8f c8 90 6d 78  |4)*192........mx|
000008e0  25 2c 6d 79 25 2c 38 0d  06 22 0e e6 70 25 3a c8  |%,my%,8.."..p%:.|
000008f0  9c 32 2c 74 25 0d 06 2c  18 c8 8f c8 90 6d 78 25  |.2,t%..,.....mx%|
00000900  2c 6d 79 25 2d 38 2c 34  2b b3 28 38 29 0d 06 36  |,my%-8,4+.(8)..6|
00000910  04 0d 06 40 0a 6d 79 25  2d 3d 38 0d 06 4a 16 6d  |...@.my%-=8..J.m|
00000920  78 25 3d 6d 78 25 2b 38  2d 28 b3 28 33 29 2a 34  |x%=mx%+8-(.(3)*4|
00000930  29 0d 06 54 04 0d 06 5e  0d d1 3d 30 3a f5 fd 91  |)..T...^..=0:...|
00000940  3e 35 0d 06 68 0f e7 a6  2d 31 38 6d 79 25 3d 59  |>5..h...-18my%=Y|
00000950  25 0d 06 72 14 fd 6d 79  25 3c 3d 59 25 84 b3 28  |%..r..my%<=Y%..(|
00000960  33 30 29 3d 31 0d 06 7c  09 fd a6 2d 31 38 0d 06  |30)=1..|...-18..|
00000970  86 0b f5 fd ac a6 2d 31  38 0d 06 90 0f f1 8a 31  |......-18......1|
00000980  33 2c 33 30 29 89 31 38  0d 06 9a 05 e1 0d 06 a4  |3,30).18........|
00000990  04 0d 06 ae 0d f4 20 72  61 64 69 61 74 65 0d 06  |...... radiate..|
000009a0  b8 0d dd f2 72 61 64 69  61 74 65 0d 06 c2 1d f1  |....radiate.....|
000009b0  8a 31 33 2c 33 30 29 22  50 72 65 73 73 20 34 20  |.13,30)"Press 4 |
000009c0  74 6f 20 73 74 6f 70 22  0d 06 cc 0b f5 fd ac a6  |to stop"........|
000009d0  2d 31 39 0d 06 d6 05 f5  0d 06 e0 11 73 78 25 3d  |-19.........sx%=|
000009e0  58 25 3a 73 79 25 3d 59  25 0d 06 ea 15 73 79 25  |X%:sy%=Y%....sy%|
000009f0  3d 59 25 2b b3 28 68 65  69 67 68 74 25 29 0d 06  |=Y%+.(height%)..|
00000a00  f4 05 f5 0d 06 fe 0a 73  78 25 2b 3d 34 0d 07 08  |.......sx%+=4...|
00000a10  10 71 25 3d b0 73 78 25  2c 73 79 25 29 0d 07 12  |.q%=.sx%,sy%)...|
00000a20  28 fd 71 25 3e 30 84 73  79 25 3e 3d 59 25 2b 68  |(.q%>0.sy%>=Y%+h|
00000a30  65 69 67 68 74 25 84 73  78 25 3e 3d 58 25 2b 77  |eight%.sx%>=X%+w|
00000a40  69 64 74 68 25 0d 07 1c  13 e6 71 25 3a c8 92 73  |idth%.....q%:..s|
00000a50  78 25 2d 34 2c 73 79 25  0d 07 26 10 e6 30 3a c8  |x%-4,sy%..&..0:.|
00000a60  92 73 78 25 2c 73 79 25  0d 07 30 1a c8 92 73 78  |.sx%,sy%..0...sx|
00000a70  25 2d 34 2c 73 79 25 2b  38 2d 28 b3 28 33 29 2a  |%-4,sy%+8-(.(3)*|
00000a80  34 29 0d 07 3a 17 ec 58  25 2c 59 25 3a f0 31 2c  |4)..:..X%,Y%:.1,|
00000a90  30 2c 68 65 69 67 68 74  25 0d 07 44 0a 73 78 25  |0,height%..D.sx%|
00000aa0  3d 58 25 0d 07 4e 17 e7  a6 2d 31 39 73 79 25 3d  |=X%..N...-19sy%=|
00000ab0  59 25 2b 68 65 69 67 68  74 25 0d 07 58 04 0d 07  |Y%+height%..X...|
00000ac0  62 09 fd a6 2d 31 39 0d  07 6c 0b f5 fd ac a6 2d  |b...-19..l.....-|
00000ad0  31 39 0d 07 76 0f f1 8a  31 33 2c 33 30 29 89 31  |19..v...13,30).1|
00000ae0  38 0d 07 80 05 e1 0d 07  8a 04 0d 07 94 11 f4 20  |8.............. |
00000af0  69 20 67 20 6e 20 69 20  74 20 65 0d 07 9e 0c dd  |i g n i t e.....|
00000b00  f2 69 67 6e 69 74 65 0d  07 a8 1d f1 8a 31 33 2c  |.ignite......13,|
00000b10  33 30 29 22 50 72 65 73  73 20 35 20 74 6f 20 73  |30)"Press 5 to s|
00000b20  74 6f 70 22 0d 07 b2 09  56 25 3d 31 31 0d 07 bc  |top"....V%=11...|
00000b30  0b f5 fd ac a6 2d 32 30  0d 07 c6 05 f5 0d 07 d0  |.....-20........|
00000b40  05 f5 0d 07 da 12 73 78  25 3d b3 28 68 65 69 67  |......sx%=.(heig|
00000b50  68 74 25 29 0d 07 e4 11  73 79 25 3d b3 28 77 69  |ht%)....sy%=.(wi|
00000b60  64 74 68 25 29 0d 07 ee  11 fd b0 73 78 25 2c 73  |dth%)......sx%,s|
00000b70  79 25 29 3c 3e 30 0d 07  f8 04 0d 08 02 0f e3 6b  |y%)<>0.........k|
00000b80  25 3d 31 b8 b3 28 32 30  29 0d 08 0c 0e e7 a6 2d  |%=1..(20)......-|
00000b90  32 30 e5 8d 54 7e 48 0d  08 16 0d 72 25 3d b3 28  |20..T~H....r%=.(|
00000ba0  33 29 2d 31 0d 08 20 22  c8 99 20 4f 24 2c 26 32  |3)-1.. ".. O$,&2|
00000bb0  32 32 2c 53 25 2c 66 25  28 72 25 29 2c 73 78 25  |22,S%,f%(r%),sx%|
00000bc0  2c 73 79 25 2c 38 0d 08  2a 0d d1 3d 30 3a f5 fd  |,sy%,8..*..=0:..|
00000bd0  91 3e 33 0d 08 34 23 c8  99 20 4f 24 2c 26 32 32  |.>3..4#.. O$,&22|
00000be0  32 2c 53 25 2c 66 25 28  72 25 29 2c 73 78 25 2c  |2,S%,f%(r%),sx%,|
00000bf0  73 79 25 2c 56 25 0d 08  3e 05 ed 0d 08 48 09 fd  |sy%,V%..>....H..|
00000c00  a6 2d 32 30 0d 08 52 0b  f5 fd ac a6 2d 32 30 0d  |.-20..R.....-20.|
00000c10  08 5c 0f f1 8a 31 33 2c  33 30 29 89 31 38 0d 08  |.\...13,30).18..|
00000c20  66 05 e1 0d 08 70 04 0d  08 7a 0c f4 20 65 61 74  |f....p...z.. eat|
00000c30  69 6e 67 0d 08 84 09 dd  f2 65 61 74 0d 08 8e 1d  |ing......eat....|
00000c40  f1 8a 31 33 2c 33 30 29  22 50 72 65 73 73 20 36  |..13,30)"Press 6|
00000c50  20 74 6f 20 73 74 6f 70  22 0d 08 98 09 56 25 3d  | to stop"....V%=|
00000c60  31 31 0d 08 a2 0b f5 fd  ac a6 2d 35 33 0d 08 ac  |11........-53...|
00000c70  04 0d 08 b6 05 f5 0d 08  c0 12 73 78 25 3d b3 28  |..........sx%=.(|
00000c80  68 65 69 67 68 74 25 29  0d 08 ca 11 73 79 25 3d  |height%)....sy%=|
00000c90  b3 28 77 69 64 74 68 25  29 0d 08 d4 11 fd b0 73  |.(width%)......s|
00000ca0  78 25 2c 73 79 25 29 3c  3e 30 0d 08 de 04 0d 08  |x%,sy%)<>0......|
00000cb0  e8 05 f5 0d 08 f2 0d 72  25 3d b3 28 33 29 2d 31  |.......r%=.(3)-1|
00000cc0  0d 08 fc 22 c8 99 20 4f  24 2c 26 32 32 32 2c 53  |...".. O$,&222,S|
00000cd0  25 2c 67 25 28 72 25 29  2c 73 78 25 2c 73 79 25  |%,g%(r%),sx%,sy%|
00000ce0  2c 38 0d 09 06 0d d1 3d  30 3a f5 fd 91 3e 34 0d  |,8.....=0:...>4.|
00000cf0  09 10 23 c8 99 20 4f 24  2c 26 32 32 32 2c 53 25  |..#.. O$,&222,S%|
00000d00  2c 67 25 28 72 25 29 2c  73 78 25 2c 73 79 25 2c  |,g%(r%),sx%,sy%,|
00000d10  56 25 0d 09 1a 05 f5 0d  09 24 13 73 78 25 2b 3d  |V%.......$.sx%+=|
00000d20  38 2d 28 b3 28 33 29 2a  34 29 0d 09 2e 13 73 79  |8-(.(3)*4)....sy|
00000d30  25 2b 3d 38 2d 28 b3 28  33 29 2a 34 29 0d 09 38  |%+=8-(.(3)*4)..8|
00000d40  54 e7 73 78 25 3c 30 84  73 78 25 3e 77 69 64 74  |T.sx%<0.sx%>widt|
00000d50  68 25 84 73 79 25 3c 30  84 73 79 25 3e 68 65 69  |h%.sy%<0.sy%>hei|
00000d60  67 68 74 25 3a f5 3a 73  78 25 3d b3 28 68 65 69  |ght%:.:sx%=.(hei|
00000d70  67 68 74 25 29 3a 73 79  25 3d b3 28 77 69 64 74  |ght%):sy%=.(widt|
00000d80  68 25 29 3a fd b0 73 78  25 2c 73 79 25 29 3c 3e  |h%):..sx%,sy%)<>|
00000d90  30 0d 09 42 11 fd b0 73  78 25 2c 73 79 25 29 3c  |0..B...sx%,sy%)<|
00000da0  3e 30 0d 09 4c 04 0d 09  56 09 fd a6 2d 35 33 0d  |>0..L...V...-53.|
00000db0  09 60 0b f5 fd ac a6 2d  35 33 0d 09 6a 0f f1 8a  |.`.....-53..j...|
00000dc0  31 33 2c 33 30 29 89 31  38 0d 09 74 05 e1 0d 09  |13,30).18..t....|
00000dd0  7e 04 0d 09 88 0d f4 20  63 75 62 65 20 69 74 0d  |~...... cube it.|
00000de0  09 92 12 dd f2 63 75 62  65 3a f5 fd ac a6 2d 33  |.....cube:....-3|
00000df0  37 0d 09 9c 0a 73 78 25  3d 58 25 0d 09 a6 09 79  |7....sx%=X%....y|
00000e00  25 3d 59 25 0d 09 b0 1d  f1 8a 31 33 2c 33 30 29  |%=Y%......13,30)|
00000e10  22 50 72 65 73 73 20 37  20 74 6f 20 73 74 6f 70  |"Press 7 to stop|
00000e20  22 0d 09 ba 0b 63 75 62  65 25 3d 38 0d 09 c4 06  |"....cube%=8....|
00000e30  e6 30 0d 09 ce 18 e3 49  25 3d 73 78 25 b8 77 69  |.0.....I%=sx%.wi|
00000e40  64 74 68 25 88 63 75 62  65 25 0d 09 d8 0a ec 49  |dth%.cube%.....I|
00000e50  25 2c 59 25 0d 09 e2 10  f0 31 2c 30 2c 68 65 69  |%,Y%.....1,0,hei|
00000e60  67 68 74 25 0d 09 ec 17  ec 73 78 25 2c 79 25 3a  |ght%.....sx%,y%:|
00000e70  f0 31 2c 77 69 64 74 68  25 2c 30 0d 09 f6 0d 79  |.1,width%,0....y|
00000e80  25 2b 3d 63 75 62 65 25  0d 0a 00 05 ed 0d 0a 0a  |%+=cube%........|
00000e90  04 0d 0a 14 05 f5 0d 0a  1e 05 f5 0d 0a 28 1c 61  |.............(.a|
00000ea0  25 3d b3 28 77 69 64 74  68 25 29 81 63 75 62 65  |%=.(width%).cube|
00000eb0  25 2a 63 75 62 65 25 0d  0a 32 1d 62 25 3d b3 28  |%*cube%..2.b%=.(|
00000ec0  68 65 69 67 68 74 25 29  81 63 75 62 65 25 2a 63  |height%).cube%*c|
00000ed0  75 62 65 25 0d 0a 3c 13  fd b0 61 25 2b 34 2c 62  |ube%..<...a%+4,b|
00000ee0  25 2b 34 29 3c 3e 30 0d  0a 46 04 0d 0a 50 05 f5  |%+4)<>0..F...P..|
00000ef0  0d 0a 5a 1d 61 32 25 3d  b3 28 77 69 64 74 68 25  |..Z.a2%=.(width%|
00000f00  29 81 63 75 62 65 25 2a  63 75 62 65 25 0d 0a 64  |).cube%*cube%..d|
00000f10  1e 62 32 25 3d b3 28 68  65 69 67 68 74 25 29 81  |.b2%=.(height%).|
00000f20  63 75 62 65 25 2a 63 75  62 65 25 0d 0a 6e 15 fd  |cube%*cube%..n..|
00000f30  b0 61 32 25 2b 34 2c 62  32 25 2b 34 29 3c 3e 30  |.a2%+4,b2%+4)<>0|
00000f40  0d 0a 78 04 0d 0a 82 0a  ec 61 25 2c 62 25 0d 0a  |..x......a%,b%..|
00000f50  8c 14 ec 20 42 59 20 63  75 62 65 25 2c 63 75 62  |... BY cube%,cub|
00000f60  65 25 0d 0a 96 10 f0 26  42 45 2c 61 32 25 2c 62  |e%.....&BE,a2%,b|
00000f70  32 25 0d 0a a0 04 0d 0a  aa 09 fd a6 2d 33 37 0d  |2%..........-37.|
00000f80  0a b4 0b f5 fd ac a6 2d  33 37 0d 0a be 0f f1 8a  |.......-37......|
00000f90  31 33 2c 33 30 29 89 31  38 0d 0a c8 05 e1 0d 0a  |13,30).18.......|
00000fa0  d2 04 0d 0a dc 07 dd f2  78 0d 0a e6 05 db 0d 0a  |........x.......|
00000fb0  f0 0b f5 fd ac a6 2d 32  32 0d 0a fa 05 f5 0d 0b  |......-22.......|
00000fc0  04 2a f1 8a 34 2c 33 30  29 22 46 6f 72 20 66 75  |.*..4,30)"For fu|
00000fd0  74 75 72 65 20 65 78 70  61 6e 73 69 6f 6e 21 20  |ture expansion! |
00000fe0  50 72 65 73 73 20 38 22  0d 0b 0e 09 fd a6 2d 32  |Press 8"......-2|
00000ff0  32 0d 0b 18 0b f5 fd ac  a6 2d 32 32 0d 0b 22 0e  |2........-22..".|
00001000  f1 8a 34 2c 33 30 29 89  33 33 0d 0b 2c 0b f2 73  |..4,30).33..,..s|
00001010  63 72 65 65 6e 0d 0b 36  05 e1 0d ff              |creen..6....|
0000101c