�"�DEFINER
�2
�=&2F00
(�23;8202;0;0;0;
2	�grid
<	�init
F�
P	�keys
Z�0
d�
n�"�INIT
x
��init
�)�23,224,0,112,112,112,112,112,112,112
�B$=�224
�
X%=320
�
Y%=864
�
A%=704
�
B%=860
�	C%=12
�F%=1:�flash
�%�4:�3:�13,5)"Actual"�14,6)"size"
��5
�	�t`E
��
� 

�"�GRID


��grid

�0,4

"�I%=352�864�32

,�320,I%

6�1,256,0

@�

J�I%=320�576�32

T�I%,352

^�1,0,512

h�

r�0,1

|�690,872

��1,88,0

��1,0,-84

��1,-88,0

��1,0,84

��

� 

��"�KEYS

�
��keys

��-26�move(-32,0,-8,0)

��-122�move(32,0,8,0)

��-58�move(0,32,0,4)

��-42�move(0,-32,0,-4)

��-82�ikon("S")
�-87�ikon("L")
c%=�(0)-48
�c%>-1�c%<8�draw(c%)
&�c%=22�flash
0�
: 
D�"�MOVE
N��move(x%,y%,a%,b%)
X�X%+x%<320�X%+x%>544�
b�Y%+y%<384�Y%+y%>864�
l	�t`E
vX%=X%+x%:Y%=Y%+y%
�A%=A%+a%:B%=B%+b%
�	�t`E
��
� 
��"�DRAW
���draw(c%)
��F%=1c%=c%+8
�	�t`E
��0,c%:�X%,Y%:�B$
�
�69,A%,B%
�	�t`E
��
� 
�"�FLASH
��flash
�5
 .�F%=0F%=1:�4:�2,1)"FLASHING COLOURS":�5:�
*.�F%=1F%=0:�4:�2,1)"ORDINARY COLOURS":�5:�
4�
> 
H�"�LOAD�SAVE
R��ikon(W$)
\	*FX21
f	�t`E
p�W$="L"�load
zscreen%=&3DE0
�mem%=&2F00
��J%=0�1
��I%=0�31
��W$="L"screen%?I%=mem%?I%
��W$="S"mem%?I%=screen%?I%
��
�mem%=mem%+32
�screen%=screen%+640
��
��W$="S"�save
��W$="L"�drawload
��7
�	�t`E
�
 
�"�LOAD
$
��load
.
�X%,Y%
8�4
B*FX21,0
L�2,22)"LOAD "name$
V$&700="LOAD "+name$+" 2F00"
`Y%=7:�&FFF7
j�2,22)�17
t�5
~�
� 
��"�DRAW-LOAD
���drawload
�
�5:�X%,Y%
�X%=320:Y%=864
��J%=860�800�-4
��I%=704�760�8
�K%=�I%,J%):�0,K%
��X%,Y%:�B$
�X%=X%+32
��
�X%=320:Y%=Y%-32
�

�
 
�"�SAVE
(
��save
2
�X%,Y%
<�4
F*FX21,0
P�2,22)"SAVE "name$
Z$$&700="SAVE "+name$+" 2F00 2F40"
dY%=7:�&FFF7
n�2,22)�17
x�5
��
� 
��"�CURSOR GOSUB
� �3,C%:�X%,Y%:�B$:�69,A%,B%:�
�

00000000  0d 00 0a 0e f4 22 83 44  45 46 49 4e 45 52 0d 00  |.....".DEFINER..|
00000010  14 06 eb 32 0d 00 1e 0b  d3 3d 26 32 46 30 30 0d  |...2.....=&2F00.|
00000020  00 28 13 ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.(..23;8202;0;0;|
00000030  30 3b 0d 00 32 09 f2 67  72 69 64 0d 00 3c 09 f2  |0;..2..grid..<..|
00000040  69 6e 69 74 0d 00 46 05  f5 0d 00 50 09 f2 6b 65  |init..F....P..ke|
00000050  79 73 0d 00 5a 06 fd 30  0d 00 64 05 e0 0d 00 6e  |ys..Z..0..d....n|
00000060  0b f4 22 82 49 4e 49 54  0d 00 78 0a dd f2 69 6e  |..".INIT..x...in|
00000070  69 74 0d 00 82 29 ef 32  33 2c 32 32 34 2c 30 2c  |it...).23,224,0,|
00000080  31 31 32 2c 31 31 32 2c  31 31 32 2c 31 31 32 2c  |112,112,112,112,|
00000090  31 31 32 2c 31 31 32 2c  31 31 32 0d 00 8c 0b 42  |112,112,112....B|
000000a0  24 3d bd 32 32 34 0d 00  96 0a 58 25 3d 33 32 30  |$=.224....X%=320|
000000b0  0d 00 a0 0a 59 25 3d 38  36 34 0d 00 aa 0a 41 25  |....Y%=864....A%|
000000c0  3d 37 30 34 0d 00 b4 0a  42 25 3d 38 36 30 0d 00  |=704....B%=860..|
000000d0  be 09 43 25 3d 31 32 0d  00 c8 0f 46 25 3d 31 3a  |..C%=12....F%=1:|
000000e0  f2 66 6c 61 73 68 0d 00  d2 25 ef 34 3a fb 33 3a  |.flash...%.4:.3:|
000000f0  f1 8a 31 33 2c 35 29 22  41 63 74 75 61 6c 22 8a  |..13,5)"Actual".|
00000100  31 34 2c 36 29 22 73 69  7a 65 22 0d 00 dc 06 ef  |14,6)"size".....|
00000110  35 0d 00 e6 09 e4 8d 74  60 45 0d 00 f0 05 e1 0d  |5......t`E......|
00000120  00 fa 05 20 0d 01 04 0b  f4 22 85 47 52 49 44 0d  |... .....".GRID.|
00000130  01 0e 0a dd f2 67 72 69  64 0d 01 18 08 e6 30 2c  |.....grid.....0,|
00000140  34 0d 01 22 12 e3 49 25  3d 33 35 32 b8 38 36 34  |4.."..I%=352.864|
00000150  88 33 32 0d 01 2c 0b ec  33 32 30 2c 49 25 0d 01  |.32..,..320,I%..|
00000160  36 0c f0 31 2c 32 35 36  2c 30 0d 01 40 05 ed 0d  |6..1,256,0..@...|
00000170  01 4a 12 e3 49 25 3d 33  32 30 b8 35 37 36 88 33  |.J..I%=320.576.3|
00000180  32 0d 01 54 0b ec 49 25  2c 33 35 32 0d 01 5e 0c  |2..T..I%,352..^.|
00000190  f0 31 2c 30 2c 35 31 32  0d 01 68 05 ed 0d 01 72  |.1,0,512..h....r|
000001a0  08 e6 30 2c 31 0d 01 7c  0c ec 36 39 30 2c 38 37  |..0,1..|..690,87|
000001b0  32 0d 01 86 0b f0 31 2c  38 38 2c 30 0d 01 90 0c  |2.....1,88,0....|
000001c0  f0 31 2c 30 2c 2d 38 34  0d 01 9a 0c f0 31 2c 2d  |.1,0,-84.....1,-|
000001d0  38 38 2c 30 0d 01 a4 0b  f0 31 2c 30 2c 38 34 0d  |88,0.....1,0,84.|
000001e0  01 ae 05 e1 0d 01 b8 05  20 0d 01 c2 0b f4 22 84  |........ .....".|
000001f0  4b 45 59 53 0d 01 cc 0a  dd f2 6b 65 79 73 0d 01  |KEYS......keys..|
00000200  d6 1a e7 a6 2d 32 36 f2  6d 6f 76 65 28 2d 33 32  |....-26.move(-32|
00000210  2c 30 2c 2d 38 2c 30 29  0d 01 e0 19 e7 a6 2d 31  |,0,-8,0)......-1|
00000220  32 32 f2 6d 6f 76 65 28  33 32 2c 30 2c 38 2c 30  |22.move(32,0,8,0|
00000230  29 0d 01 ea 18 e7 a6 2d  35 38 f2 6d 6f 76 65 28  |)......-58.move(|
00000240  30 2c 33 32 2c 30 2c 34  29 0d 01 f4 1a e7 a6 2d  |0,32,0,4)......-|
00000250  34 32 f2 6d 6f 76 65 28  30 2c 2d 33 32 2c 30 2c  |42.move(0,-32,0,|
00000260  2d 34 29 0d 01 fe 13 e7  a6 2d 38 32 f2 69 6b 6f  |-4)......-82.iko|
00000270  6e 28 22 53 22 29 0d 02  08 13 e7 a6 2d 38 37 f2  |n("S")......-87.|
00000280  69 6b 6f 6e 28 22 4c 22  29 0d 02 12 0e 63 25 3d  |ikon("L")....c%=|
00000290  a6 28 30 29 2d 34 38 0d  02 1c 18 e7 63 25 3e 2d  |.(0)-48.....c%>-|
000002a0  31 80 63 25 3c 38 f2 64  72 61 77 28 63 25 29 0d  |1.c%<8.draw(c%).|
000002b0  02 26 10 e7 63 25 3d 32  32 f2 66 6c 61 73 68 0d  |.&..c%=22.flash.|
000002c0  02 30 05 e1 0d 02 3a 05  20 0d 02 44 0b f4 22 81  |.0....:. ..D..".|
000002d0  4d 4f 56 45 0d 02 4e 17  dd f2 6d 6f 76 65 28 78  |MOVE..N...move(x|
000002e0  25 2c 79 25 2c 61 25 2c  62 25 29 0d 02 58 19 e7  |%,y%,a%,b%)..X..|
000002f0  58 25 2b 78 25 3c 33 32  30 84 58 25 2b 78 25 3e  |X%+x%<320.X%+x%>|
00000300  35 34 34 e1 0d 02 62 19  e7 59 25 2b 79 25 3c 33  |544...b..Y%+y%<3|
00000310  38 34 84 59 25 2b 79 25  3e 38 36 34 e1 0d 02 6c  |84.Y%+y%>864...l|
00000320  09 e4 8d 74 60 45 0d 02  76 15 58 25 3d 58 25 2b  |...t`E..v.X%=X%+|
00000330  78 25 3a 59 25 3d 59 25  2b 79 25 0d 02 80 15 41  |x%:Y%=Y%+y%....A|
00000340  25 3d 41 25 2b 61 25 3a  42 25 3d 42 25 2b 62 25  |%=A%+a%:B%=B%+b%|
00000350  0d 02 8a 09 e4 8d 74 60  45 0d 02 94 05 e1 0d 02  |......t`E.......|
00000360  9e 05 20 0d 02 a8 0b f4  22 86 44 52 41 57 0d 02  |.. .....".DRAW..|
00000370  b2 0e dd f2 64 72 61 77  28 63 25 29 0d 02 bc 10  |....draw(c%)....|
00000380  e7 46 25 3d 31 63 25 3d  63 25 2b 38 0d 02 c6 09  |.F%=1c%=c%+8....|
00000390  e4 8d 74 60 45 0d 02 d0  14 e6 30 2c 63 25 3a ec  |..t`E.....0,c%:.|
000003a0  58 25 2c 59 25 3a f1 42  24 0d 02 da 0d f0 36 39  |X%,Y%:.B$.....69|
000003b0  2c 41 25 2c 42 25 0d 02  e4 09 e4 8d 74 60 45 0d  |,A%,B%......t`E.|
000003c0  02 ee 05 e1 0d 02 f8 05  20 0d 03 02 0c f4 22 82  |........ .....".|
000003d0  46 4c 41 53 48 0d 03 0c  0b dd f2 66 6c 61 73 68  |FLASH......flash|
000003e0  0d 03 16 06 fb 35 0d 03  20 2e e7 46 25 3d 30 46  |.....5.. ..F%=0F|
000003f0  25 3d 31 3a ef 34 3a f1  8a 32 2c 31 29 22 46 4c  |%=1:.4:..2,1)"FL|
00000400  41 53 48 49 4e 47 20 43  4f 4c 4f 55 52 53 22 3a  |ASHING COLOURS":|
00000410  ef 35 3a e1 0d 03 2a 2e  e7 46 25 3d 31 46 25 3d  |.5:...*..F%=1F%=|
00000420  30 3a ef 34 3a f1 8a 32  2c 31 29 22 4f 52 44 49  |0:.4:..2,1)"ORDI|
00000430  4e 41 52 59 20 43 4f 4c  4f 55 52 53 22 3a ef 35  |NARY COLOURS":.5|
00000440  3a e1 0d 03 34 05 e1 0d  03 3e 05 20 0d 03 48 10  |:...4....>. ..H.|
00000450  f4 22 81 4c 4f 41 44 82  53 41 56 45 0d 03 52 0e  |.".LOAD.SAVE..R.|
00000460  dd f2 69 6b 6f 6e 28 57  24 29 0d 03 5c 09 2a 46  |..ikon(W$)..\.*F|
00000470  58 32 31 0d 03 66 09 e4  8d 74 60 45 0d 03 70 10  |X21..f...t`E..p.|
00000480  e7 57 24 3d 22 4c 22 f2  6c 6f 61 64 0d 03 7a 11  |.W$="L".load..z.|
00000490  73 63 72 65 65 6e 25 3d  26 33 44 45 30 0d 03 84  |screen%=&3DE0...|
000004a0  0e 6d 65 6d 25 3d 26 32  46 30 30 0d 03 8e 0b e3  |.mem%=&2F00.....|
000004b0  4a 25 3d 30 b8 31 0d 03  98 0c e3 49 25 3d 30 b8  |J%=0.1.....I%=0.|
000004c0  33 31 0d 03 a2 1d e7 57  24 3d 22 4c 22 73 63 72  |31.....W$="L"scr|
000004d0  65 65 6e 25 3f 49 25 3d  6d 65 6d 25 3f 49 25 0d  |een%?I%=mem%?I%.|
000004e0  03 ac 1d e7 57 24 3d 22  53 22 6d 65 6d 25 3f 49  |....W$="S"mem%?I|
000004f0  25 3d 73 63 72 65 65 6e  25 3f 49 25 0d 03 b6 05  |%=screen%?I%....|
00000500  ed 0d 03 c0 10 6d 65 6d  25 3d 6d 65 6d 25 2b 33  |.....mem%=mem%+3|
00000510  32 0d 03 ca 17 73 63 72  65 65 6e 25 3d 73 63 72  |2....screen%=scr|
00000520  65 65 6e 25 2b 36 34 30  0d 03 d4 05 ed 0d 03 de  |een%+640........|
00000530  10 e7 57 24 3d 22 53 22  f2 73 61 76 65 0d 03 e8  |..W$="S".save...|
00000540  14 e7 57 24 3d 22 4c 22  f2 64 72 61 77 6c 6f 61  |..W$="L".drawloa|
00000550  64 0d 03 f2 06 ef 37 0d  03 fc 09 e4 8d 74 60 45  |d.....7......t`E|
00000560  0d 04 06 05 e1 0d 04 10  05 20 0d 04 1a 0b f4 22  |......... ....."|
00000570  85 4c 4f 41 44 0d 04 24  0a dd f2 6c 6f 61 64 0d  |.LOAD..$...load.|
00000580  04 2e 0a ea 58 25 2c 59  25 0d 04 38 06 ef 34 0d  |....X%,Y%..8..4.|
00000590  04 42 0b 2a 46 58 32 31  2c 30 0d 04 4c 17 e8 8a  |.B.*FX21,0..L...|
000005a0  32 2c 32 32 29 22 4c 4f  41 44 20 22 6e 61 6d 65  |2,22)"LOAD "name|
000005b0  24 0d 04 56 1f 24 26 37  30 30 3d 22 4c 4f 41 44  |$..V.$&700="LOAD|
000005c0  20 22 2b 6e 61 6d 65 24  2b 22 20 32 46 30 30 22  | "+name$+" 2F00"|
000005d0  0d 04 60 0f 59 25 3d 37  3a d6 26 46 46 46 37 0d  |..`.Y%=7:.&FFF7.|
000005e0  04 6a 0e f1 8a 32 2c 32  32 29 89 31 37 0d 04 74  |.j...2,22).17..t|
000005f0  06 ef 35 0d 04 7e 05 e1  0d 04 88 05 20 0d 04 92  |..5..~...... ...|
00000600  10 f4 22 83 44 52 41 57  2d 4c 4f 41 44 0d 04 9c  |..".DRAW-LOAD...|
00000610  0e dd f2 64 72 61 77 6c  6f 61 64 0d 04 a6 0d ef  |...drawload.....|
00000620  35 3a ea 58 25 2c 59 25  0d 04 b0 11 58 25 3d 33  |5:.X%,Y%....X%=3|
00000630  32 30 3a 59 25 3d 38 36  34 0d 04 ba 12 e3 4a 25  |20:Y%=864.....J%|
00000640  3d 38 36 30 b8 38 30 30  88 2d 34 0d 04 c4 11 e3  |=860.800.-4.....|
00000650  49 25 3d 37 30 34 b8 37  36 30 88 38 0d 04 ce 14  |I%=704.760.8....|
00000660  4b 25 3d b0 49 25 2c 4a  25 29 3a e6 30 2c 4b 25  |K%=.I%,J%):.0,K%|
00000670  0d 04 d8 0e ec 58 25 2c  59 25 3a f1 42 24 0d 04  |.....X%,Y%:.B$..|
00000680  e2 0c 58 25 3d 58 25 2b  33 32 0d 04 ec 05 ed 0d  |..X%=X%+32......|
00000690  04 f6 13 58 25 3d 33 32  30 3a 59 25 3d 59 25 2d  |...X%=320:Y%=Y%-|
000006a0  33 32 0d 05 00 05 ed 0d  05 0a 05 e1 0d 05 14 05  |32..............|
000006b0  20 0d 05 1e 0b f4 22 86  53 41 56 45 0d 05 28 0a  | .....".SAVE..(.|
000006c0  dd f2 73 61 76 65 0d 05  32 0a ea 58 25 2c 59 25  |..save..2..X%,Y%|
000006d0  0d 05 3c 06 ef 34 0d 05  46 0b 2a 46 58 32 31 2c  |..<..4..F.*FX21,|
000006e0  30 0d 05 50 17 e8 8a 32  2c 32 32 29 22 53 41 56  |0..P...2,22)"SAV|
000006f0  45 20 22 6e 61 6d 65 24  0d 05 5a 24 24 26 37 30  |E "name$..Z$$&70|
00000700  30 3d 22 53 41 56 45 20  22 2b 6e 61 6d 65 24 2b  |0="SAVE "+name$+|
00000710  22 20 32 46 30 30 20 32  46 34 30 22 0d 05 64 0f  |" 2F00 2F40"..d.|
00000720  59 25 3d 37 3a d6 26 46  46 46 37 0d 05 6e 0e f1  |Y%=7:.&FFF7..n..|
00000730  8a 32 2c 32 32 29 89 31  37 0d 05 78 06 ef 35 0d  |.2,22).17..x..5.|
00000740  05 82 05 e1 0d 05 8c 05  20 0d 05 96 13 f4 22 82  |........ .....".|
00000750  43 55 52 53 4f 52 20 47  4f 53 55 42 0d 05 a0 20  |CURSOR GOSUB... |
00000760  e6 33 2c 43 25 3a ec 58  25 2c 59 25 3a f1 42 24  |.3,C%:.X%,Y%:.B$|
00000770  3a f0 36 39 2c 41 25 2c  42 25 3a f8 0d ff        |:.69,A%,B%:...|
0000077e