� >ABSTRACT
� Crona Mocputign
� by Mabel on her day off
(	�13:�
2� � � �:�:�" at ";�:�
<
FO$="OS_SpriteOp"
P� Load in the Spritefile
Z!sprites$="<MAG$Dir>.ABSfile1"
dfile%=�(sprites$)
nsize%=�#file%+64
x�#file%
�
�@� Dimension an AREA the SIZE of the file to store sprites in
�� area% size%
�area%!0=size%
�
�7� Initialise area to load the sprite definitions to
�ș O$,256+9,area%
�
�2� Now load the sprite definitions to this area
�ș O$,256+10,area%,sprites$
�
�� SCALE DIM
�� scale% 15



� ....init Procs

	NP%=8

"	�dims

,�sprites

6
�initgrab

@�

J	�init

T�initcanvas

^�initpainters

h

r

|� LOOP>>>>>>>>>>>>>>>>>>>

��

�Z%=3-Z%

�ș6,112,Z%

��(10)=1Ȝ2,�(4)*64-64

�	�keys

�� put canvas in

�"ș O$,&222,g%,grabbed%,A%,B%,0

�

�� move active painters

�
�K%=1�NP%

��P%(K%)=1�painter(K%)

��

�
� grab canvas
�grabit

&!� put painters in (if active)
0
�I%=1�NP%
::�P%(I%)=1ș O$,&222,area%,painter%(I%),X%(I%),Y%(I%),8
D�
Nș6,113,Z%
X�restart%=1
b�0
l	�"OK"
v� >>>>>>>>>>>>>>>>>>>>>>>
��
�
�� SORT SPRITES OUT
�
��sprites
�
�I%=1�NP%
�2�setsprite("PAINTER"+�(I%),painter%(I%),w%,h%)
��
��I%=0�1
�.�setsprite("ONOFF"+�(I%),onoff%(I%),w%,h%)
��
�$�setsprite("EASEL",easel%,w%,h%)
��
�
� Init sprites
4��setsprite(string$,� value%,� width%,� height%)
(ș O$,256+24,area%,string$ �,,value%
 1ș O$,256+40,area%,string$ �,,,width%,height%
*�
4
>
� dims
H
��dims
R�painter%(32)
\�X%(32),Y%(32)
f�x%(32),y%(32)
p'�P%(32),D%(32),d%(32),DX%(7),DY%(7)
z�m%(32)
��onoff%(1)
��
�
�
� INIT
�
��init
�restart%=0
�A%=192:B%=192:C%=928:D%=640
�� 1
�X%(1)=640:Y%(1)=192+32
�D%(1)=2:d%(1)=10
�m%(1)=16
�col1%=�(62)
�� 2
X%(2)=640:Y%(2)=Y%(1)+64
D%(2)=3:d%(2)=10
m%(2)=4
$� 3
.X%(3)=640:Y%(3)=Y%(2)+64
8D%(3)=7:d%(3)=15
Bm%(3)=8
L� 4
VX%(4)=640:Y%(4)=Y%(3)+64
`D%(4)=5:d%(4)=5
jm%(4)=16
t� 5
~X%(5)=640:Y%(5)=Y%(4)+64
�D%(5)=6:d%(5)=1
�m%(5)=32
�� 6
�X%(6)=640:Y%(6)=Y%(5)+64
�D%(6)=4:d%(6)=4
�m%(6)=16
�� 7
�X%(7)=640:Y%(7)=Y%(6)+64
�D%(7)=3:d%(7)=2
�m%(7)=32
�� 8
�X%(8)=640:Y%(8)=Y%(7)+64
D%(8)=1:d%(8)=4

m%(8)=32


P%()=0
(
2�
<�I%=0�7
F� DX%(I%),DY%(I%)
P�
ZZ%=1
d�
n
x � DATA for direction offsets
��0,1,1,1,1,0,1,-1
��0,-1,-1,-1,-1,0,-1,1
�
�
� KEYS
�
��keys
�,�-49P%(1)=(P%(1)+1)�2:�onoff(1):����-49
�,�-50P%(2)=(P%(2)+1)�2:�onoff(2):����-50
�,�-18P%(3)=(P%(3)+1)�2:�onoff(3):����-18
�,�-19P%(4)=(P%(4)+1)�2:�onoff(4):����-19
�,�-20P%(5)=(P%(5)+1)�2:�onoff(5):����-20
�,�-53P%(6)=(P%(6)+1)�2:�onoff(6):����-53
�,�-37P%(7)=(P%(7)+1)�2:�onoff(7):����-37
�,�-22P%(8)=(P%(8)+1)�2:�onoff(8):����-22
:�-74ș6,113,Z%:ș O$,&222,g%,grabbed%,A%,B%,0:����-74
�-82�save
�-87�load
"�-52�restart
,�
6
@� init canvas
J��initcanvas
T�26
^�63
h�J%=2�1�-1
rș6,112,J%:�
|!ș O$,&222,area%,easel%,0,0,0
�ȓ Ȑ A%,B%,C%,D%
�
�I%=1�NP%
�3ș O$,&222,area%,onoff%(P%(0)),72,836-(I%*32),8
��
��
��24,A%;B%;C%+A%;D%+B%;
��grabit
��
�
�� init painters
���initpainters
�whereX%=128:whereY%=600
��I%=1�4
<ș O$,&222,area%,painter%(I%),whereX%+(I%*192),whereY%,8
Bș O$,&222,area%,painter%(I%+4),whereX%+(I%*192),whereY%-200,8
�
&Ȝ1,192:�0:�128+63
0A�10,22)"Your 'artist's' tools!"�10,6)"Put Desktop in Mode15"
:0Ȝ1,0:�15,24)"Press SPACE":Ȝ0,192:�128:�63
D
���-99
N�
X
b� init grab area
l��initgrab
v
g$="grab"
�
qq%=40000
�� g% qq%
�g%!0=qq%
�g%!8=16
�ș "OS_SpriteOp",256+9,g%
��
�
�� grab it (while you can!)
���grabit
�*ș O$,&110,g%,g$,0,A%,B%,C%+192,D%+192
�#ș O$,256+24,g%,g$ � ,,grabbed%
�!ș O$,256+40,g%,g$ � ,,,W%,H%
��

� PAINTERS
��painter(p%)
 Ȏ p% �
*� ====== 1 ======
4 � 1
>
�col1%
HȏȐX%(p%)+32,Y%(p%),�(32)
R�edges(p%)
\=d%(p%)-=1:�d%(p%)=0d%(p%)=�(10):D%(p%)=�(8)-1:col1%=�(62)
f� ===============
p
z� ====== 2 ======
� � 2
��3,�(63)
�ȏȐX%(p%),Y%(p%)+64,�(32)
��edges(p%)
�1d%(p%)-=1:�d%(p%)=0d%(p%)=�(10):D%(p%)=�(8)-1
�� ===============
�
�� ====== 3 ======
� � 3
�
�(63)
�!ȓȐX%(p%),Y%(p%),�(64),�(64)
��edges(p%)
�1d%(p%)-=1:�d%(p%)=0d%(p%)=�(20):D%(p%)=�(8)-1
	� ===============
	
	� ====== 4 ======
	$ � 4
	.Ȝ2,192:�63
	8ȏȐX%(p%)+32,Y%(p%)+32,32
	B�edges(p%)
	L0d%(p%)-=1:�d%(p%)=0d%(p%)=�(4):D%(p%)=�(8)-1
	V� ===============
	`
	j� ====== 5 ======
	t � 5
	~
�(30)+10
	� ȏX%(p%)+32,Y%(p%)+32,�(128)
	��edges(p%)
	�1d%(p%)-=1:�d%(p%)=0d%(p%)=�(20):D%(p%)=�(8)-1
	�
	�� ====== 6 ======
	� � 6
	�
�(63)
	�6�X%(p%)+12,Y%(p%)+112:�1,1000-�(2000),1000-�(2000)
	��edges(p%)
	�0d%(p%)-=1:�d%(p%)=0d%(p%)=�(8):D%(p%)=�(8)-1
	�
	�� ====== 7 ======
 � 7:�(4)+20*16

G�X%(p%)+32,Y%(p%)+32:�1,64-�(128),64-�(128):�81,64-�(128),64-�(128)
�edges(p%)
0d%(p%)-=1:�d%(p%)=0d%(p%)=�(4):D%(p%)=�(8)-1
(
2� ====== 8 ======
< � 8
F�12
PJ�A%+�(C%-A%-128),B%+�(D%-B%-128):� BY �(128),�(128):�&BE,X%(p%),Y%(p%)
Z�edges(p%)
d0d%(p%)-=1:�d%(p%)=0d%(p%)=�(2):D%(p%)=�(8)-1
n
x�
��
�
�� check canvas boundaries
���edges(p%)
���X%(p%)+DX%(D%(p%))<A%+C%�X%(p%)+DX%(D%(p%))>A%�Y%(p%)+DY%(D%(p%))<B%+D%�Y%(p%)+DY%(D%(p%))>B%X%(p%)+=DX%(D%(p%))*m%(p%):Y%(p%)+=DY%(D%(p%))*m%(p%)
��
�
�� indicate painter status
���onoff(o%)
��26
��J%=2�1�-1
�ș6,112,J%
�4ș O$,&222,area%,onoff%(P%(o%)),72,836-(o%*32),8
�
�24,A%;B%;C%+A%;D%+B%;
�
"
,� Save your masterpiece
6
��save
@ș6,113,Z%
J	*FX15
T	*FX15
^"ș O$,&222,g%,grabbed%,A%,B%,0
h �0,0)"Save masterpiece as";
r
�name$
|
�0,0)�39
��name$=-1�
�name$=�name$,10)
�$�("SCREENSAVE <MAG$Dir>.")+name$
��
�
�� restart?
�
��restart
�ș6,113,Z%
�	*FX15
�	*FX15
��0,0)"Restart";
��A$:�A$<>"Y"�0,0)�39:�
�restart%=1
�


� LOAD
&
��load
0ș6,113,Z%
:	*FX15
D#�0,0)"Load in saved pic:name";
N
�name$
X
�0,0)�39
bname$=�name$,10)
l$�("SCREENLOAD <MAG$Dir>.")+name$
v�grabit
��
�

00000000  0d 00 0a 0f f4 20 3e 41  42 53 54 52 41 43 54 0d  |..... >ABSTRACT.|
00000010  00 14 15 f4 20 43 72 6f  6e 61 20 4d 6f 63 70 75  |.... Crona Mocpu|
00000020  74 69 67 6e 0d 00 1e 1d  f4 20 62 79 20 4d 61 62  |tign..... by Mab|
00000030  65 6c 20 6f 6e 20 68 65  72 20 64 61 79 20 6f 66  |el on her day of|
00000040  66 0d 00 28 09 eb 31 33  3a 87 0d 00 32 19 ee 20  |f..(..13:...2.. |
00000050  85 20 eb 20 eb 3a f6 3a  f1 22 20 61 74 20 22 3b  |. . .:.:." at ";|
00000060  9e 3a e0 0d 00 3c 04 0d  00 46 14 4f 24 3d 22 4f  |.:...<...F.O$="O|
00000070  53 5f 53 70 72 69 74 65  4f 70 22 0d 00 50 1c f4  |S_SpriteOp"..P..|
00000080  20 4c 6f 61 64 20 69 6e  20 74 68 65 20 53 70 72  | Load in the Spr|
00000090  69 74 65 66 69 6c 65 0d  00 5a 21 73 70 72 69 74  |itefile..Z!sprit|
000000a0  65 73 24 3d 22 3c 4d 41  47 24 44 69 72 3e 2e 41  |es$="<MAG$Dir>.A|
000000b0  42 53 66 69 6c 65 31 22  0d 00 64 15 66 69 6c 65  |BSfile1"..d.file|
000000c0  25 3d 8e 28 73 70 72 69  74 65 73 24 29 0d 00 6e  |%=.(sprites$)..n|
000000d0  14 73 69 7a 65 25 3d a2  23 66 69 6c 65 25 2b 36  |.size%=.#file%+6|
000000e0  34 0d 00 78 0b d9 23 66  69 6c 65 25 0d 00 82 04  |4..x..#file%....|
000000f0  0d 00 8c 40 f4 20 44 69  6d 65 6e 73 69 6f 6e 20  |...@. Dimension |
00000100  61 6e 20 41 52 45 41 20  74 68 65 20 53 49 5a 45  |an AREA the SIZE|
00000110  20 6f 66 20 74 68 65 20  66 69 6c 65 20 74 6f 20  | of the file to |
00000120  73 74 6f 72 65 20 73 70  72 69 74 65 73 20 69 6e  |store sprites in|
00000130  0d 00 96 11 de 20 61 72  65 61 25 20 73 69 7a 65  |..... area% size|
00000140  25 0d 00 a0 11 61 72 65  61 25 21 30 3d 73 69 7a  |%....area%!0=siz|
00000150  65 25 0d 00 aa 04 0d 00  b4 37 f4 20 49 6e 69 74  |e%.......7. Init|
00000160  69 61 6c 69 73 65 20 61  72 65 61 20 74 6f 20 6c  |ialise area to l|
00000170  6f 61 64 20 74 68 65 20  73 70 72 69 74 65 20 64  |oad the sprite d|
00000180  65 66 69 6e 69 74 69 6f  6e 73 20 74 6f 0d 00 be  |efinitions to...|
00000190  15 c8 99 20 4f 24 2c 32  35 36 2b 39 2c 61 72 65  |... O$,256+9,are|
000001a0  61 25 0d 00 c8 04 0d 00  d2 32 f4 20 4e 6f 77 20  |a%.......2. Now |
000001b0  6c 6f 61 64 20 74 68 65  20 73 70 72 69 74 65 20  |load the sprite |
000001c0  64 65 66 69 6e 69 74 69  6f 6e 73 20 74 6f 20 74  |definitions to t|
000001d0  68 69 73 20 61 72 65 61  0d 00 dc 1f c8 99 20 4f  |his area...... O|
000001e0  24 2c 32 35 36 2b 31 30  2c 61 72 65 61 25 2c 73  |$,256+10,area%,s|
000001f0  70 72 69 74 65 73 24 0d  00 e6 04 0d 00 f0 0f f4  |prites$.........|
00000200  20 53 43 41 4c 45 20 44  49 4d 0d 00 fa 0f de 20  | SCALE DIM..... |
00000210  73 63 61 6c 65 25 20 31  35 0d 01 04 04 0d 01 0e  |scale% 15.......|
00000220  14 f4 20 2e 2e 2e 2e 69  6e 69 74 20 50 72 6f 63  |.. ....init Proc|
00000230  73 0d 01 18 09 4e 50 25  3d 38 0d 01 22 09 f2 64  |s....NP%=8.."..d|
00000240  69 6d 73 0d 01 2c 0c f2  73 70 72 69 74 65 73 0d  |ims..,..sprites.|
00000250  01 36 0d f2 69 6e 69 74  67 72 61 62 0d 01 40 05  |.6..initgrab..@.|
00000260  f5 0d 01 4a 09 f2 69 6e  69 74 0d 01 54 0f f2 69  |...J..init..T..i|
00000270  6e 69 74 63 61 6e 76 61  73 0d 01 5e 11 f2 69 6e  |nitcanvas..^..in|
00000280  69 74 70 61 69 6e 74 65  72 73 0d 01 68 04 0d 01  |itpainters..h...|
00000290  72 04 0d 01 7c 1d f4 20  4c 4f 4f 50 3e 3e 3e 3e  |r...|.. LOOP>>>>|
000002a0  3e 3e 3e 3e 3e 3e 3e 3e  3e 3e 3e 3e 3e 3e 3e 0d  |>>>>>>>>>>>>>>>.|
000002b0  01 86 05 f5 0d 01 90 0b  5a 25 3d 33 2d 5a 25 0d  |........Z%=3-Z%.|
000002c0  01 9a 0e c8 99 36 2c 31  31 32 2c 5a 25 0d 01 a4  |.....6,112,Z%...|
000002d0  1a e7 b3 28 31 30 29 3d  31 c8 9c 32 2c b3 28 34  |...(10)=1..2,.(4|
000002e0  29 2a 36 34 2d 36 34 0d  01 ae 09 f2 6b 65 79 73  |)*64-64.....keys|
000002f0  0d 01 b8 13 f4 20 70 75  74 20 63 61 6e 76 61 73  |..... put canvas|
00000300  20 69 6e 0d 01 c2 22 c8  99 20 4f 24 2c 26 32 32  | in...".. O$,&22|
00000310  32 2c 67 25 2c 67 72 61  62 62 65 64 25 2c 41 25  |2,g%,grabbed%,A%|
00000320  2c 42 25 2c 30 0d 01 cc  04 0d 01 d6 1a f4 20 6d  |,B%,0......... m|
00000330  6f 76 65 20 61 63 74 69  76 65 20 70 61 69 6e 74  |ove active paint|
00000340  65 72 73 0d 01 e0 0d e3  4b 25 3d 31 b8 4e 50 25  |ers.....K%=1.NP%|
00000350  0d 01 ea 19 e7 50 25 28  4b 25 29 3d 31 f2 70 61  |.....P%(K%)=1.pa|
00000360  69 6e 74 65 72 28 4b 25  29 0d 01 f4 05 ed 0d 01  |inter(K%).......|
00000370  fe 04 0d 02 08 11 f4 20  67 72 61 62 20 63 61 6e  |....... grab can|
00000380  76 61 73 0d 02 12 0b f2  67 72 61 62 69 74 0d 02  |vas.....grabit..|
00000390  1c 04 0d 02 26 21 f4 20  70 75 74 20 70 61 69 6e  |....&!. put pain|
000003a0  74 65 72 73 20 69 6e 20  28 69 66 20 61 63 74 69  |ters in (if acti|
000003b0  76 65 29 0d 02 30 0d e3  49 25 3d 31 b8 4e 50 25  |ve)..0..I%=1.NP%|
000003c0  0d 02 3a 3a e7 50 25 28  49 25 29 3d 31 c8 99 20  |..::.P%(I%)=1.. |
000003d0  4f 24 2c 26 32 32 32 2c  61 72 65 61 25 2c 70 61  |O$,&222,area%,pa|
000003e0  69 6e 74 65 72 25 28 49  25 29 2c 58 25 28 49 25  |inter%(I%),X%(I%|
000003f0  29 2c 59 25 28 49 25 29  2c 38 0d 02 44 05 ed 0d  |),Y%(I%),8..D...|
00000400  02 4e 0e c8 99 36 2c 31  31 33 2c 5a 25 0d 02 58  |.N...6,113,Z%..X|
00000410  0f fd 72 65 73 74 61 72  74 25 3d 31 0d 02 62 06  |..restart%=1..b.|
00000420  fd 30 0d 02 6c 09 f1 22  4f 4b 22 0d 02 76 1d f4  |.0..l.."OK"..v..|
00000430  20 3e 3e 3e 3e 3e 3e 3e  3e 3e 3e 3e 3e 3e 3e 3e  | >>>>>>>>>>>>>>>|
00000440  3e 3e 3e 3e 3e 3e 3e 3e  0d 02 80 05 e0 0d 02 8a  |>>>>>>>>........|
00000450  04 0d 02 94 16 f4 20 53  4f 52 54 20 53 50 52 49  |...... SORT SPRI|
00000460  54 45 53 20 4f 55 54 0d  02 9e 0d dd f2 73 70 72  |TES OUT......spr|
00000470  69 74 65 73 0d 02 a8 0d  e3 49 25 3d 31 b8 4e 50  |ites.....I%=1.NP|
00000480  25 0d 02 b2 32 f2 73 65  74 73 70 72 69 74 65 28  |%...2.setsprite(|
00000490  22 50 41 49 4e 54 45 52  22 2b c3 28 49 25 29 2c  |"PAINTER"+.(I%),|
000004a0  70 61 69 6e 74 65 72 25  28 49 25 29 2c 77 25 2c  |painter%(I%),w%,|
000004b0  68 25 29 0d 02 bc 05 ed  0d 02 c6 0b e3 49 25 3d  |h%)..........I%=|
000004c0  30 b8 31 0d 02 d0 2e f2  73 65 74 73 70 72 69 74  |0.1.....setsprit|
000004d0  65 28 22 4f 4e 4f 46 46  22 2b c3 28 49 25 29 2c  |e("ONOFF"+.(I%),|
000004e0  6f 6e 6f 66 66 25 28 49  25 29 2c 77 25 2c 68 25  |onoff%(I%),w%,h%|
000004f0  29 0d 02 da 05 ed 0d 02  e4 24 f2 73 65 74 73 70  |)........$.setsp|
00000500  72 69 74 65 28 22 45 41  53 45 4c 22 2c 65 61 73  |rite("EASEL",eas|
00000510  65 6c 25 2c 77 25 2c 68  25 29 0d 02 ee 05 e1 0d  |el%,w%,h%)......|
00000520  02 f8 04 0d 03 02 12 f4  20 49 6e 69 74 20 73 70  |........ Init sp|
00000530  72 69 74 65 73 0d 03 0c  34 dd f2 73 65 74 73 70  |rites...4..setsp|
00000540  72 69 74 65 28 73 74 72  69 6e 67 24 2c f8 20 76  |rite(string$,. v|
00000550  61 6c 75 65 25 2c f8 20  77 69 64 74 68 25 2c f8  |alue%,. width%,.|
00000560  20 68 65 69 67 68 74 25  29 0d 03 16 28 c8 99 20  | height%)...(.. |
00000570  4f 24 2c 32 35 36 2b 32  34 2c 61 72 65 61 25 2c  |O$,256+24,area%,|
00000580  73 74 72 69 6e 67 24 20  b8 2c 2c 76 61 6c 75 65  |string$ .,,value|
00000590  25 0d 03 20 31 c8 99 20  4f 24 2c 32 35 36 2b 34  |%.. 1.. O$,256+4|
000005a0  30 2c 61 72 65 61 25 2c  73 74 72 69 6e 67 24 20  |0,area%,string$ |
000005b0  b8 2c 2c 2c 77 69 64 74  68 25 2c 68 65 69 67 68  |.,,,width%,heigh|
000005c0  74 25 0d 03 2a 05 e1 0d  03 34 04 0d 03 3e 0a f4  |t%..*....4...>..|
000005d0  20 64 69 6d 73 0d 03 48  0a dd f2 64 69 6d 73 0d  | dims..H...dims.|
000005e0  03 52 11 de 70 61 69 6e  74 65 72 25 28 33 32 29  |.R..painter%(32)|
000005f0  0d 03 5c 12 de 58 25 28  33 32 29 2c 59 25 28 33  |..\..X%(32),Y%(3|
00000600  32 29 0d 03 66 12 de 78  25 28 33 32 29 2c 79 25  |2)..f..x%(32),y%|
00000610  28 33 32 29 0d 03 70 27  de 50 25 28 33 32 29 2c  |(32)..p'.P%(32),|
00000620  44 25 28 33 32 29 2c 64  25 28 33 32 29 2c 44 58  |D%(32),d%(32),DX|
00000630  25 28 37 29 2c 44 59 25  28 37 29 0d 03 7a 0b de  |%(7),DY%(7)..z..|
00000640  6d 25 28 33 32 29 0d 03  84 0e de 6f 6e 6f 66 66  |m%(32).....onoff|
00000650  25 28 31 29 0d 03 8e 05  e1 0d 03 98 04 0d 03 a2  |%(1)............|
00000660  0a f4 20 49 4e 49 54 0d  03 ac 0a dd f2 69 6e 69  |.. INIT......ini|
00000670  74 0d 03 b6 0e 72 65 73  74 61 72 74 25 3d 30 0d  |t....restart%=0.|
00000680  03 c0 1f 41 25 3d 31 39  32 3a 42 25 3d 31 39 32  |...A%=192:B%=192|
00000690  3a 43 25 3d 39 32 38 3a  44 25 3d 36 34 30 0d 03  |:C%=928:D%=640..|
000006a0  ca 07 f4 20 31 0d 03 d4  1a 58 25 28 31 29 3d 36  |... 1....X%(1)=6|
000006b0  34 30 3a 59 25 28 31 29  3d 31 39 32 2b 33 32 0d  |40:Y%(1)=192+32.|
000006c0  03 de 14 44 25 28 31 29  3d 32 3a 64 25 28 31 29  |...D%(1)=2:d%(1)|
000006d0  3d 31 30 0d 03 e8 0c 6d  25 28 31 29 3d 31 36 0d  |=10....m%(1)=16.|
000006e0  03 f2 0f 63 6f 6c 31 25  3d b3 28 36 32 29 0d 03  |...col1%=.(62)..|
000006f0  fc 07 f4 20 32 0d 04 06  1c 58 25 28 32 29 3d 36  |... 2....X%(2)=6|
00000700  34 30 3a 59 25 28 32 29  3d 59 25 28 31 29 2b 36  |40:Y%(2)=Y%(1)+6|
00000710  34 0d 04 10 14 44 25 28  32 29 3d 33 3a 64 25 28  |4....D%(2)=3:d%(|
00000720  32 29 3d 31 30 0d 04 1a  0b 6d 25 28 32 29 3d 34  |2)=10....m%(2)=4|
00000730  0d 04 24 07 f4 20 33 0d  04 2e 1c 58 25 28 33 29  |..$.. 3....X%(3)|
00000740  3d 36 34 30 3a 59 25 28  33 29 3d 59 25 28 32 29  |=640:Y%(3)=Y%(2)|
00000750  2b 36 34 0d 04 38 14 44  25 28 33 29 3d 37 3a 64  |+64..8.D%(3)=7:d|
00000760  25 28 33 29 3d 31 35 0d  04 42 0b 6d 25 28 33 29  |%(3)=15..B.m%(3)|
00000770  3d 38 0d 04 4c 07 f4 20  34 0d 04 56 1c 58 25 28  |=8..L.. 4..V.X%(|
00000780  34 29 3d 36 34 30 3a 59  25 28 34 29 3d 59 25 28  |4)=640:Y%(4)=Y%(|
00000790  33 29 2b 36 34 0d 04 60  13 44 25 28 34 29 3d 35  |3)+64..`.D%(4)=5|
000007a0  3a 64 25 28 34 29 3d 35  0d 04 6a 0c 6d 25 28 34  |:d%(4)=5..j.m%(4|
000007b0  29 3d 31 36 0d 04 74 07  f4 20 35 0d 04 7e 1c 58  |)=16..t.. 5..~.X|
000007c0  25 28 35 29 3d 36 34 30  3a 59 25 28 35 29 3d 59  |%(5)=640:Y%(5)=Y|
000007d0  25 28 34 29 2b 36 34 0d  04 88 13 44 25 28 35 29  |%(4)+64....D%(5)|
000007e0  3d 36 3a 64 25 28 35 29  3d 31 0d 04 92 0c 6d 25  |=6:d%(5)=1....m%|
000007f0  28 35 29 3d 33 32 0d 04  9c 07 f4 20 36 0d 04 a6  |(5)=32..... 6...|
00000800  1c 58 25 28 36 29 3d 36  34 30 3a 59 25 28 36 29  |.X%(6)=640:Y%(6)|
00000810  3d 59 25 28 35 29 2b 36  34 0d 04 b0 13 44 25 28  |=Y%(5)+64....D%(|
00000820  36 29 3d 34 3a 64 25 28  36 29 3d 34 0d 04 ba 0c  |6)=4:d%(6)=4....|
00000830  6d 25 28 36 29 3d 31 36  0d 04 c4 07 f4 20 37 0d  |m%(6)=16..... 7.|
00000840  04 ce 1c 58 25 28 37 29  3d 36 34 30 3a 59 25 28  |...X%(7)=640:Y%(|
00000850  37 29 3d 59 25 28 36 29  2b 36 34 0d 04 d8 13 44  |7)=Y%(6)+64....D|
00000860  25 28 37 29 3d 33 3a 64  25 28 37 29 3d 32 0d 04  |%(7)=3:d%(7)=2..|
00000870  e2 0c 6d 25 28 37 29 3d  33 32 0d 04 ec 07 f4 20  |..m%(7)=32..... |
00000880  38 0d 04 f6 1c 58 25 28  38 29 3d 36 34 30 3a 59  |8....X%(8)=640:Y|
00000890  25 28 38 29 3d 59 25 28  37 29 2b 36 34 0d 05 00  |%(8)=Y%(7)+64...|
000008a0  13 44 25 28 38 29 3d 31  3a 64 25 28 38 29 3d 34  |.D%(8)=1:d%(8)=4|
000008b0  0d 05 0a 0c 6d 25 28 38  29 3d 33 32 0d 05 14 04  |....m%(8)=32....|
000008c0  0d 05 1e 0a 50 25 28 29  3d 30 0d 05 28 04 0d 05  |....P%()=0..(...|
000008d0  32 05 f7 0d 05 3c 0b e3  49 25 3d 30 b8 37 0d 05  |2....<..I%=0.7..|
000008e0  46 15 f3 20 44 58 25 28  49 25 29 2c 44 59 25 28  |F.. DX%(I%),DY%(|
000008f0  49 25 29 0d 05 50 05 ed  0d 05 5a 08 5a 25 3d 31  |I%)..P....Z.Z%=1|
00000900  0d 05 64 05 e1 0d 05 6e  04 0d 05 78 20 f4 20 44  |..d....n...x . D|
00000910  41 54 41 20 66 6f 72 20  64 69 72 65 63 74 69 6f  |ATA for directio|
00000920  6e 20 6f 66 66 73 65 74  73 0d 05 82 15 dc 30 2c  |n offsets.....0,|
00000930  31 2c 31 2c 31 2c 31 2c  30 2c 31 2c 2d 31 0d 05  |1,1,1,1,0,1,-1..|
00000940  8c 19 dc 30 2c 2d 31 2c  2d 31 2c 2d 31 2c 2d 31  |...0,-1,-1,-1,-1|
00000950  2c 30 2c 2d 31 2c 31 0d  05 96 04 0d 05 a0 0a f4  |,0,-1,1.........|
00000960  20 4b 45 59 53 0d 05 aa  0a dd f2 6b 65 79 73 0d  | KEYS......keys.|
00000970  05 b4 2c e7 a6 2d 34 39  50 25 28 31 29 3d 28 50  |..,..-49P%(1)=(P|
00000980  25 28 31 29 2b 31 29 83  32 3a f2 6f 6e 6f 66 66  |%(1)+1).2:.onoff|
00000990  28 31 29 3a f5 fd ac a6  2d 34 39 0d 05 be 2c e7  |(1):....-49...,.|
000009a0  a6 2d 35 30 50 25 28 32  29 3d 28 50 25 28 32 29  |.-50P%(2)=(P%(2)|
000009b0  2b 31 29 83 32 3a f2 6f  6e 6f 66 66 28 32 29 3a  |+1).2:.onoff(2):|
000009c0  f5 fd ac a6 2d 35 30 0d  05 c8 2c e7 a6 2d 31 38  |....-50...,..-18|
000009d0  50 25 28 33 29 3d 28 50  25 28 33 29 2b 31 29 83  |P%(3)=(P%(3)+1).|
000009e0  32 3a f2 6f 6e 6f 66 66  28 33 29 3a f5 fd ac a6  |2:.onoff(3):....|
000009f0  2d 31 38 0d 05 d2 2c e7  a6 2d 31 39 50 25 28 34  |-18...,..-19P%(4|
00000a00  29 3d 28 50 25 28 34 29  2b 31 29 83 32 3a f2 6f  |)=(P%(4)+1).2:.o|
00000a10  6e 6f 66 66 28 34 29 3a  f5 fd ac a6 2d 31 39 0d  |noff(4):....-19.|
00000a20  05 dc 2c e7 a6 2d 32 30  50 25 28 35 29 3d 28 50  |..,..-20P%(5)=(P|
00000a30  25 28 35 29 2b 31 29 83  32 3a f2 6f 6e 6f 66 66  |%(5)+1).2:.onoff|
00000a40  28 35 29 3a f5 fd ac a6  2d 32 30 0d 05 e6 2c e7  |(5):....-20...,.|
00000a50  a6 2d 35 33 50 25 28 36  29 3d 28 50 25 28 36 29  |.-53P%(6)=(P%(6)|
00000a60  2b 31 29 83 32 3a f2 6f  6e 6f 66 66 28 36 29 3a  |+1).2:.onoff(6):|
00000a70  f5 fd ac a6 2d 35 33 0d  05 f0 2c e7 a6 2d 33 37  |....-53...,..-37|
00000a80  50 25 28 37 29 3d 28 50  25 28 37 29 2b 31 29 83  |P%(7)=(P%(7)+1).|
00000a90  32 3a f2 6f 6e 6f 66 66  28 37 29 3a f5 fd ac a6  |2:.onoff(7):....|
00000aa0  2d 33 37 0d 05 fa 2c e7  a6 2d 32 32 50 25 28 38  |-37...,..-22P%(8|
00000ab0  29 3d 28 50 25 28 38 29  2b 31 29 83 32 3a f2 6f  |)=(P%(8)+1).2:.o|
00000ac0  6e 6f 66 66 28 38 29 3a  f5 fd ac a6 2d 32 32 0d  |noff(8):....-22.|
00000ad0  06 04 3a e7 a6 2d 37 34  c8 99 36 2c 31 31 33 2c  |..:..-74..6,113,|
00000ae0  5a 25 3a c8 99 20 4f 24  2c 26 32 32 32 2c 67 25  |Z%:.. O$,&222,g%|
00000af0  2c 67 72 61 62 62 65 64  25 2c 41 25 2c 42 25 2c  |,grabbed%,A%,B%,|
00000b00  30 3a f5 fd ac a6 2d 37  34 0d 06 0e 0e e7 a6 2d  |0:....-74......-|
00000b10  38 32 f2 73 61 76 65 0d  06 18 0e e7 a6 2d 38 37  |82.save......-87|
00000b20  f2 6c 6f 61 64 0d 06 22  11 e7 a6 2d 35 32 f2 72  |.load.."...-52.r|
00000b30  65 73 74 61 72 74 0d 06  2c 05 e1 0d 06 36 04 0d  |estart..,....6..|
00000b40  06 40 11 f4 20 69 6e 69  74 20 63 61 6e 76 61 73  |.@.. init canvas|
00000b50  0d 06 4a 10 dd f2 69 6e  69 74 63 61 6e 76 61 73  |..J...initcanvas|
00000b60  0d 06 54 07 ef 32 36 0d  06 5e 07 e6 36 33 0d 06  |..T..26..^..63..|
00000b70  68 0e e3 4a 25 3d 32 b8  31 88 2d 31 0d 06 72 10  |h..J%=2.1.-1..r.|
00000b80  c8 99 36 2c 31 31 32 2c  4a 25 3a db 0d 06 7c 21  |..6,112,J%:...|!|
00000b90  c8 99 20 4f 24 2c 26 32  32 32 2c 61 72 65 61 25  |.. O$,&222,area%|
00000ba0  2c 65 61 73 65 6c 25 2c  30 2c 30 2c 30 0d 06 86  |,easel%,0,0,0...|
00000bb0  15 c8 93 20 c8 90 20 41  25 2c 42 25 2c 43 25 2c  |... .. A%,B%,C%,|
00000bc0  44 25 0d 06 90 0d e3 49  25 3d 31 b8 4e 50 25 0d  |D%.....I%=1.NP%.|
00000bd0  06 9a 33 c8 99 20 4f 24  2c 26 32 32 32 2c 61 72  |..3.. O$,&222,ar|
00000be0  65 61 25 2c 6f 6e 6f 66  66 25 28 50 25 28 30 29  |ea%,onoff%(P%(0)|
00000bf0  29 2c 37 32 2c 38 33 36  2d 28 49 25 2a 33 32 29  |),72,836-(I%*32)|
00000c00  2c 38 0d 06 a4 05 ed 0d  06 ae 05 ed 0d 06 b8 1a  |,8..............|
00000c10  ef 32 34 2c 41 25 3b 42  25 3b 43 25 2b 41 25 3b  |.24,A%;B%;C%+A%;|
00000c20  44 25 2b 42 25 3b 0d 06  c2 0b f2 67 72 61 62 69  |D%+B%;.....grabi|
00000c30  74 0d 06 cc 05 e1 0d 06  d6 04 0d 06 e0 13 f4 20  |t.............. |
00000c40  69 6e 69 74 20 70 61 69  6e 74 65 72 73 0d 06 ea  |init painters...|
00000c50  12 dd f2 69 6e 69 74 70  61 69 6e 74 65 72 73 0d  |...initpainters.|
00000c60  06 f4 1b 77 68 65 72 65  58 25 3d 31 32 38 3a 77  |...whereX%=128:w|
00000c70  68 65 72 65 59 25 3d 36  30 30 0d 06 fe 0b e3 49  |hereY%=600.....I|
00000c80  25 3d 31 b8 34 0d 07 08  3c c8 99 20 4f 24 2c 26  |%=1.4...<.. O$,&|
00000c90  32 32 32 2c 61 72 65 61  25 2c 70 61 69 6e 74 65  |222,area%,painte|
00000ca0  72 25 28 49 25 29 2c 77  68 65 72 65 58 25 2b 28  |r%(I%),whereX%+(|
00000cb0  49 25 2a 31 39 32 29 2c  77 68 65 72 65 59 25 2c  |I%*192),whereY%,|
00000cc0  38 0d 07 12 42 c8 99 20  4f 24 2c 26 32 32 32 2c  |8...B.. O$,&222,|
00000cd0  61 72 65 61 25 2c 70 61  69 6e 74 65 72 25 28 49  |area%,painter%(I|
00000ce0  25 2b 34 29 2c 77 68 65  72 65 58 25 2b 28 49 25  |%+4),whereX%+(I%|
00000cf0  2a 31 39 32 29 2c 77 68  65 72 65 59 25 2d 32 30  |*192),whereY%-20|
00000d00  30 2c 38 0d 07 1c 05 ed  0d 07 26 16 c8 9c 31 2c  |0,8.......&...1,|
00000d10  31 39 32 3a fb 30 3a fb  31 32 38 2b 36 33 0d 07  |192:.0:.128+63..|
00000d20  30 41 f1 8a 31 30 2c 32  32 29 22 59 6f 75 72 20  |0A..10,22)"Your |
00000d30  27 61 72 74 69 73 74 27  73 27 20 74 6f 6f 6c 73  |'artist's' tools|
00000d40  21 22 8a 31 30 2c 36 29  22 50 75 74 20 44 65 73  |!".10,6)"Put Des|
00000d50  6b 74 6f 70 20 69 6e 20  4d 6f 64 65 31 35 22 0d  |ktop in Mode15".|
00000d60  07 3a 30 c8 9c 31 2c 30  3a f1 8a 31 35 2c 32 34  |.:0..1,0:..15,24|
00000d70  29 22 50 72 65 73 73 20  53 50 41 43 45 22 3a c8  |)"Press SPACE":.|
00000d80  9c 30 2c 31 39 32 3a fb  31 32 38 3a fb 36 33 0d  |.0,192:.128:.63.|
00000d90  07 44 0a f5 fd a6 2d 39  39 0d 07 4e 05 e1 0d 07  |.D....-99..N....|
00000da0  58 04 0d 07 62 14 f4 20  69 6e 69 74 20 67 72 61  |X...b.. init gra|
00000db0  62 20 61 72 65 61 0d 07  6c 0e dd f2 69 6e 69 74  |b area..l...init|
00000dc0  67 72 61 62 0d 07 76 0d  67 24 3d 22 67 72 61 62  |grab..v.g$="grab|
00000dd0  22 0d 07 80 0d 71 71 25  3d 34 30 30 30 30 0d 07  |"....qq%=40000..|
00000de0  8a 0c de 20 67 25 20 71  71 25 0d 07 94 0c 67 25  |... g% qq%....g%|
00000df0  21 30 3d 71 71 25 0d 07  9e 0b 67 25 21 38 3d 31  |!0=qq%....g%!8=1|
00000e00  36 0d 07 a8 1d c8 99 20  22 4f 53 5f 53 70 72 69  |6...... "OS_Spri|
00000e10  74 65 4f 70 22 2c 32 35  36 2b 39 2c 67 25 0d 07  |teOp",256+9,g%..|
00000e20  b2 05 e1 0d 07 bc 04 0d  07 c6 1e f4 20 67 72 61  |............ gra|
00000e30  62 20 69 74 20 28 77 68  69 6c 65 20 79 6f 75 20  |b it (while you |
00000e40  63 61 6e 21 29 0d 07 d0  0c dd f2 67 72 61 62 69  |can!)......grabi|
00000e50  74 0d 07 da 2a c8 99 20  4f 24 2c 26 31 31 30 2c  |t...*.. O$,&110,|
00000e60  67 25 2c 67 24 2c 30 2c  41 25 2c 42 25 2c 43 25  |g%,g$,0,A%,B%,C%|
00000e70  2b 31 39 32 2c 44 25 2b  31 39 32 0d 07 e4 23 c8  |+192,D%+192...#.|
00000e80  99 20 4f 24 2c 32 35 36  2b 32 34 2c 67 25 2c 67  |. O$,256+24,g%,g|
00000e90  24 20 b8 20 2c 2c 67 72  61 62 62 65 64 25 0d 07  |$ . ,,grabbed%..|
00000ea0  ee 21 c8 99 20 4f 24 2c  32 35 36 2b 34 30 2c 67  |.!.. O$,256+40,g|
00000eb0  25 2c 67 24 20 b8 20 2c  2c 2c 57 25 2c 48 25 0d  |%,g$ . ,,,W%,H%.|
00000ec0  07 f8 05 e1 0d 08 02 04  0d 08 0c 0e f4 20 50 41  |............. PA|
00000ed0  49 4e 54 45 52 53 0d 08  16 11 dd f2 70 61 69 6e  |INTERS......pain|
00000ee0  74 65 72 28 70 25 29 0d  08 20 0b c8 8e 20 70 25  |ter(p%).. ... p%|
00000ef0  20 ca 0d 08 2a 15 f4 20  3d 3d 3d 3d 3d 3d 20 31  | ...*.. ====== 1|
00000f00  20 3d 3d 3d 3d 3d 3d 0d  08 34 08 20 c9 20 31 0d  | ======..4. . 1.|
00000f10  08 3e 0a e6 63 6f 6c 31  25 0d 08 48 1e c8 8f c8  |.>..col1%..H....|
00000f20  90 58 25 28 70 25 29 2b  33 32 2c 59 25 28 70 25  |.X%(p%)+32,Y%(p%|
00000f30  29 2c b3 28 33 32 29 0d  08 52 0e f2 65 64 67 65  |),.(32)..R..edge|
00000f40  73 28 70 25 29 0d 08 5c  3d 64 25 28 70 25 29 2d  |s(p%)..\=d%(p%)-|
00000f50  3d 31 3a e7 64 25 28 70  25 29 3d 30 64 25 28 70  |=1:.d%(p%)=0d%(p|
00000f60  25 29 3d b3 28 31 30 29  3a 44 25 28 70 25 29 3d  |%)=.(10):D%(p%)=|
00000f70  b3 28 38 29 2d 31 3a 63  6f 6c 31 25 3d b3 28 36  |.(8)-1:col1%=.(6|
00000f80  32 29 0d 08 66 15 f4 20  3d 3d 3d 3d 3d 3d 3d 3d  |2)..f.. ========|
00000f90  3d 3d 3d 3d 3d 3d 3d 0d  08 70 04 0d 08 7a 15 f4  |=======..p...z..|
00000fa0  20 3d 3d 3d 3d 3d 3d 20  32 20 3d 3d 3d 3d 3d 3d  | ====== 2 ======|
00000fb0  0d 08 84 08 20 c9 20 32  0d 08 8e 0c e6 33 2c b3  |.... . 2.....3,.|
00000fc0  28 36 33 29 0d 08 98 1e  c8 8f c8 90 58 25 28 70  |(63)........X%(p|
00000fd0  25 29 2c 59 25 28 70 25  29 2b 36 34 2c b3 28 33  |%),Y%(p%)+64,.(3|
00000fe0  32 29 0d 08 a2 0e f2 65  64 67 65 73 28 70 25 29  |2).....edges(p%)|
00000ff0  0d 08 ac 31 64 25 28 70  25 29 2d 3d 31 3a e7 64  |...1d%(p%)-=1:.d|
00001000  25 28 70 25 29 3d 30 64  25 28 70 25 29 3d b3 28  |%(p%)=0d%(p%)=.(|
00001010  31 30 29 3a 44 25 28 70  25 29 3d b3 28 38 29 2d  |10):D%(p%)=.(8)-|
00001020  31 0d 08 b6 15 f4 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |1..... =========|
00001030  3d 3d 3d 3d 3d 3d 0d 08  c0 04 0d 08 ca 15 f4 20  |======......... |
00001040  3d 3d 3d 3d 3d 3d 20 33  20 3d 3d 3d 3d 3d 3d 0d  |====== 3 ======.|
00001050  08 d4 08 20 c9 20 33 0d  08 de 0a e6 b3 28 36 33  |... . 3......(63|
00001060  29 0d 08 e8 21 c8 93 c8  90 58 25 28 70 25 29 2c  |)...!....X%(p%),|
00001070  59 25 28 70 25 29 2c b3  28 36 34 29 2c b3 28 36  |Y%(p%),.(64),.(6|
00001080  34 29 0d 08 f2 0e f2 65  64 67 65 73 28 70 25 29  |4).....edges(p%)|
00001090  0d 08 fc 31 64 25 28 70  25 29 2d 3d 31 3a e7 64  |...1d%(p%)-=1:.d|
000010a0  25 28 70 25 29 3d 30 64  25 28 70 25 29 3d b3 28  |%(p%)=0d%(p%)=.(|
000010b0  32 30 29 3a 44 25 28 70  25 29 3d b3 28 38 29 2d  |20):D%(p%)=.(8)-|
000010c0  31 0d 09 06 15 f4 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |1..... =========|
000010d0  3d 3d 3d 3d 3d 3d 0d 09  10 04 0d 09 1a 15 f4 20  |======......... |
000010e0  3d 3d 3d 3d 3d 3d 20 34  20 3d 3d 3d 3d 3d 3d 0d  |====== 4 ======.|
000010f0  09 24 08 20 c9 20 34 0d  09 2e 0f c8 9c 32 2c 31  |.$. . 4......2,1|
00001100  39 32 3a e6 36 33 0d 09  38 1e c8 8f c8 90 58 25  |92:.63..8.....X%|
00001110  28 70 25 29 2b 33 32 2c  59 25 28 70 25 29 2b 33  |(p%)+32,Y%(p%)+3|
00001120  32 2c 33 32 0d 09 42 0e  f2 65 64 67 65 73 28 70  |2,32..B..edges(p|
00001130  25 29 0d 09 4c 30 64 25  28 70 25 29 2d 3d 31 3a  |%)..L0d%(p%)-=1:|
00001140  e7 64 25 28 70 25 29 3d  30 64 25 28 70 25 29 3d  |.d%(p%)=0d%(p%)=|
00001150  b3 28 34 29 3a 44 25 28  70 25 29 3d b3 28 38 29  |.(4):D%(p%)=.(8)|
00001160  2d 31 0d 09 56 15 f4 20  3d 3d 3d 3d 3d 3d 3d 3d  |-1..V.. ========|
00001170  3d 3d 3d 3d 3d 3d 3d 0d  09 60 04 0d 09 6a 15 f4  |=======..`...j..|
00001180  20 3d 3d 3d 3d 3d 3d 20  35 20 3d 3d 3d 3d 3d 3d  | ====== 5 ======|
00001190  0d 09 74 08 20 c9 20 35  0d 09 7e 0d e6 b3 28 33  |..t. . 5..~...(3|
000011a0  30 29 2b 31 30 0d 09 88  20 c8 8f 58 25 28 70 25  |0)+10... ..X%(p%|
000011b0  29 2b 33 32 2c 59 25 28  70 25 29 2b 33 32 2c b3  |)+32,Y%(p%)+32,.|
000011c0  28 31 32 38 29 0d 09 92  0e f2 65 64 67 65 73 28  |(128).....edges(|
000011d0  70 25 29 0d 09 9c 31 64  25 28 70 25 29 2d 3d 31  |p%)...1d%(p%)-=1|
000011e0  3a e7 64 25 28 70 25 29  3d 30 64 25 28 70 25 29  |:.d%(p%)=0d%(p%)|
000011f0  3d b3 28 32 30 29 3a 44  25 28 70 25 29 3d b3 28  |=.(20):D%(p%)=.(|
00001200  38 29 2d 31 0d 09 a6 04  0d 09 b0 15 f4 20 3d 3d  |8)-1......... ==|
00001210  3d 3d 3d 3d 20 36 20 3d  3d 3d 3d 3d 3d 0d 09 ba  |==== 6 ======...|
00001220  08 20 c9 20 36 0d 09 c4  0a e6 b3 28 36 33 29 0d  |. . 6......(63).|
00001230  09 ce 36 ec 58 25 28 70  25 29 2b 31 32 2c 59 25  |..6.X%(p%)+12,Y%|
00001240  28 70 25 29 2b 31 31 32  3a f0 31 2c 31 30 30 30  |(p%)+112:.1,1000|
00001250  2d b3 28 32 30 30 30 29  2c 31 30 30 30 2d b3 28  |-.(2000),1000-.(|
00001260  32 30 30 30 29 0d 09 d8  0e f2 65 64 67 65 73 28  |2000).....edges(|
00001270  70 25 29 0d 09 e2 30 64  25 28 70 25 29 2d 3d 31  |p%)...0d%(p%)-=1|
00001280  3a e7 64 25 28 70 25 29  3d 30 64 25 28 70 25 29  |:.d%(p%)=0d%(p%)|
00001290  3d b3 28 38 29 3a 44 25  28 70 25 29 3d b3 28 38  |=.(8):D%(p%)=.(8|
000012a0  29 2d 31 0d 09 ec 04 0d  09 f6 15 f4 20 3d 3d 3d  |)-1......... ===|
000012b0  3d 3d 3d 20 37 20 3d 3d  3d 3d 3d 3d 0d 0a 00 14  |=== 7 ======....|
000012c0  20 c9 20 37 3a e6 b3 28  34 29 2b 32 30 2a 31 36  | . 7:..(4)+20*16|
000012d0  0d 0a 0a 47 ec 58 25 28  70 25 29 2b 33 32 2c 59  |...G.X%(p%)+32,Y|
000012e0  25 28 70 25 29 2b 33 32  3a f0 31 2c 36 34 2d b3  |%(p%)+32:.1,64-.|
000012f0  28 31 32 38 29 2c 36 34  2d b3 28 31 32 38 29 3a  |(128),64-.(128):|
00001300  f0 38 31 2c 36 34 2d b3  28 31 32 38 29 2c 36 34  |.81,64-.(128),64|
00001310  2d b3 28 31 32 38 29 0d  0a 14 0e f2 65 64 67 65  |-.(128).....edge|
00001320  73 28 70 25 29 0d 0a 1e  30 64 25 28 70 25 29 2d  |s(p%)...0d%(p%)-|
00001330  3d 31 3a e7 64 25 28 70  25 29 3d 30 64 25 28 70  |=1:.d%(p%)=0d%(p|
00001340  25 29 3d b3 28 34 29 3a  44 25 28 70 25 29 3d b3  |%)=.(4):D%(p%)=.|
00001350  28 38 29 2d 31 0d 0a 28  04 0d 0a 32 15 f4 20 3d  |(8)-1..(...2.. =|
00001360  3d 3d 3d 3d 3d 20 38 20  3d 3d 3d 3d 3d 3d 0d 0a  |===== 8 ======..|
00001370  3c 08 20 c9 20 38 0d 0a  46 07 e6 31 32 0d 0a 50  |<. . 8..F..12..P|
00001380  4a ec 41 25 2b b3 28 43  25 2d 41 25 2d 31 32 38  |J.A%+.(C%-A%-128|
00001390  29 2c 42 25 2b b3 28 44  25 2d 42 25 2d 31 32 38  |),B%+.(D%-B%-128|
000013a0  29 3a ec 20 42 59 20 b3  28 31 32 38 29 2c b3 28  |):. BY .(128),.(|
000013b0  31 32 38 29 3a f0 26 42  45 2c 58 25 28 70 25 29  |128):.&BE,X%(p%)|
000013c0  2c 59 25 28 70 25 29 0d  0a 5a 0e f2 65 64 67 65  |,Y%(p%)..Z..edge|
000013d0  73 28 70 25 29 0d 0a 64  30 64 25 28 70 25 29 2d  |s(p%)..d0d%(p%)-|
000013e0  3d 31 3a e7 64 25 28 70  25 29 3d 30 64 25 28 70  |=1:.d%(p%)=0d%(p|
000013f0  25 29 3d b3 28 32 29 3a  44 25 28 70 25 29 3d b3  |%)=.(2):D%(p%)=.|
00001400  28 38 29 2d 31 0d 0a 6e  04 0d 0a 78 05 cb 0d 0a  |(8)-1..n...x....|
00001410  82 05 e1 0d 0a 8c 04 0d  0a 96 1d f4 20 63 68 65  |............ che|
00001420  63 6b 20 63 61 6e 76 61  73 20 62 6f 75 6e 64 61  |ck canvas bounda|
00001430  72 69 65 73 0d 0a a0 0f  dd f2 65 64 67 65 73 28  |ries......edges(|
00001440  70 25 29 0d 0a aa 97 e7  58 25 28 70 25 29 2b 44  |p%).....X%(p%)+D|
00001450  58 25 28 44 25 28 70 25  29 29 3c 41 25 2b 43 25  |X%(D%(p%))<A%+C%|
00001460  80 58 25 28 70 25 29 2b  44 58 25 28 44 25 28 70  |.X%(p%)+DX%(D%(p|
00001470  25 29 29 3e 41 25 80 59  25 28 70 25 29 2b 44 59  |%))>A%.Y%(p%)+DY|
00001480  25 28 44 25 28 70 25 29  29 3c 42 25 2b 44 25 80  |%(D%(p%))<B%+D%.|
00001490  59 25 28 70 25 29 2b 44  59 25 28 44 25 28 70 25  |Y%(p%)+DY%(D%(p%|
000014a0  29 29 3e 42 25 58 25 28  70 25 29 2b 3d 44 58 25  |))>B%X%(p%)+=DX%|
000014b0  28 44 25 28 70 25 29 29  2a 6d 25 28 70 25 29 3a  |(D%(p%))*m%(p%):|
000014c0  59 25 28 70 25 29 2b 3d  44 59 25 28 44 25 28 70  |Y%(p%)+=DY%(D%(p|
000014d0  25 29 29 2a 6d 25 28 70  25 29 0d 0a b4 05 e1 0d  |%))*m%(p%)......|
000014e0  0a be 04 0d 0a c8 1d f4  20 69 6e 64 69 63 61 74  |........ indicat|
000014f0  65 20 70 61 69 6e 74 65  72 20 73 74 61 74 75 73  |e painter status|
00001500  0d 0a d2 0f dd f2 6f 6e  6f 66 66 28 6f 25 29 0d  |......onoff(o%).|
00001510  0a dc 07 ef 32 36 0d 0a  e6 0e e3 4a 25 3d 32 b8  |....26.....J%=2.|
00001520  31 88 2d 31 0d 0a f0 0e  c8 99 36 2c 31 31 32 2c  |1.-1......6,112,|
00001530  4a 25 0d 0a fa 34 c8 99  20 4f 24 2c 26 32 32 32  |J%...4.. O$,&222|
00001540  2c 61 72 65 61 25 2c 6f  6e 6f 66 66 25 28 50 25  |,area%,onoff%(P%|
00001550  28 6f 25 29 29 2c 37 32  2c 38 33 36 2d 28 6f 25  |(o%)),72,836-(o%|
00001560  2a 33 32 29 2c 38 0d 0b  04 05 ed 0d 0b 0e 1a ef  |*32),8..........|
00001570  32 34 2c 41 25 3b 42 25  3b 43 25 2b 41 25 3b 44  |24,A%;B%;C%+A%;D|
00001580  25 2b 42 25 3b 0d 0b 18  05 e1 0d 0b 22 04 0d 0b  |%+B%;......."...|
00001590  2c 1b f4 20 53 61 76 65  20 79 6f 75 72 20 6d 61  |,.. Save your ma|
000015a0  73 74 65 72 70 69 65 63  65 0d 0b 36 0a dd f2 73  |sterpiece..6...s|
000015b0  61 76 65 0d 0b 40 0e c8  99 36 2c 31 31 33 2c 5a  |ave..@...6,113,Z|
000015c0  25 0d 0b 4a 09 2a 46 58  31 35 0d 0b 54 09 2a 46  |%..J.*FX15..T.*F|
000015d0  58 31 35 0d 0b 5e 22 c8  99 20 4f 24 2c 26 32 32  |X15..^".. O$,&22|
000015e0  32 2c 67 25 2c 67 72 61  62 62 65 64 25 2c 41 25  |2,g%,grabbed%,A%|
000015f0  2c 42 25 2c 30 0d 0b 68  20 f1 8a 30 2c 30 29 22  |,B%,0..h ..0,0)"|
00001600  53 61 76 65 20 6d 61 73  74 65 72 70 69 65 63 65  |Save masterpiece|
00001610  20 61 73 22 3b 0d 0b 72  0a e8 6e 61 6d 65 24 0d  | as";..r..name$.|
00001620  0b 7c 0d f1 8a 30 2c 30  29 89 33 39 0d 0b 86 0f  |.|...0,0).39....|
00001630  e7 97 6e 61 6d 65 24 3d  2d 31 e1 0d 0b 90 14 6e  |..name$=-1.....n|
00001640  61 6d 65 24 3d c0 6e 61  6d 65 24 2c 31 30 29 0d  |ame$=.name$,10).|
00001650  0b 9a 24 ff 28 22 53 43  52 45 45 4e 53 41 56 45  |..$.("SCREENSAVE|
00001660  20 3c 4d 41 47 24 44 69  72 3e 2e 22 29 2b 6e 61  | <MAG$Dir>.")+na|
00001670  6d 65 24 0d 0b a4 05 e1  0d 0b ae 04 0d 0b b8 0e  |me$.............|
00001680  f4 20 72 65 73 74 61 72  74 3f 0d 0b c2 0d dd f2  |. restart?......|
00001690  72 65 73 74 61 72 74 0d  0b cc 0e c8 99 36 2c 31  |restart......6,1|
000016a0  31 33 2c 5a 25 0d 0b d6  09 2a 46 58 31 35 0d 0b  |13,Z%....*FX15..|
000016b0  e0 09 2a 46 58 31 35 0d  0b ea 14 f1 8a 30 2c 30  |..*FX15......0,0|
000016c0  29 22 52 65 73 74 61 72  74 22 3b 0d 0b f4 1b e8  |)"Restart";.....|
000016d0  41 24 3a e7 41 24 3c 3e  22 59 22 f1 8a 30 2c 30  |A$:.A$<>"Y"..0,0|
000016e0  29 89 33 39 3a e1 0d 0b  fe 0e 72 65 73 74 61 72  |).39:.....restar|
000016f0  74 25 3d 31 0d 0c 08 05  e1 0d 0c 12 04 0d 0c 1c  |t%=1............|
00001700  0a f4 20 4c 4f 41 44 0d  0c 26 0a dd f2 6c 6f 61  |.. LOAD..&...loa|
00001710  64 0d 0c 30 0e c8 99 36  2c 31 31 33 2c 5a 25 0d  |d..0...6,113,Z%.|
00001720  0c 3a 09 2a 46 58 31 35  0d 0c 44 23 f1 8a 30 2c  |.:.*FX15..D#..0,|
00001730  30 29 22 4c 6f 61 64 20  69 6e 20 73 61 76 65 64  |0)"Load in saved|
00001740  20 70 69 63 3a 6e 61 6d  65 22 3b 0d 0c 4e 0a e8  | pic:name";..N..|
00001750  6e 61 6d 65 24 0d 0c 58  0d f1 8a 30 2c 30 29 89  |name$..X...0,0).|
00001760  33 39 0d 0c 62 14 6e 61  6d 65 24 3d c0 6e 61 6d  |39..b.name$=.nam|
00001770  65 24 2c 31 30 29 0d 0c  6c 24 ff 28 22 53 43 52  |e$,10)..l$.("SCR|
00001780  45 45 4e 4c 4f 41 44 20  3c 4d 41 47 24 44 69 72  |EENLOAD <MAG$Dir|
00001790  3e 2e 22 29 2b 6e 61 6d  65 24 0d 0c 76 0b f2 67  |>.")+name$..v..g|
000017a0  72 61 62 69 74 0d 0c 80  05 e1 0d ff              |rabit.......|
000017ac