� "JIGSAW" Version 1.0
#� BBC Micro Version M. Goldberg
$� ELK Version Upgrade (The) Dave
(8�1:name$="":title$="Press F To Load File":author$=""
2�23;8202;0;0;0;
<�19,3,4;0;
F�23;6,28;0;0;0;
P�X%(69),Y%(107),y%(107)
Z	�init
d
�init2
n	�pics
x�windows
��H%=0��t~@
��pieces
��0,0
��160,224
��1,0,668
��1,960,0
��K%=1 �col:wait$=�(500)
��rnd
��col
��1,-13,90,2
��0,0)�(39)
��draw(CX%,CM%)
�:

�

	�keys

�quit%=1

":

,�:�DZ@

6:

@
��init

J�23,255,-1;-1;-1;-1;

T'�23,224,170,85,170,85,170,85,170,85

^quit%=0

hU%=0

rt%=0

|rot%=&2E00

�draw%=&2DC0

�replace%=&2D90

�and%=&2BA0

�X%=&3A50

�M%=&2BE0

�newX%=&7680

�
CM%=&2D00

�
CX%=X%

�
CX%=&32A0

�LR%=&30

�UD%=1920

��

�:
��draw(x%,m%)
!&70=x%:!&72=m%:�draw%
�
&:
0��rot(x%,nx%)
:
�t%=1�
D�draw(CX%,CM%)
N!&70=x%:!&72=nx%:�rot%
X!&70=x%:!&72=M%:�replace%
b�draw(CX%,M%)
l$!&70=newX%-&28:!&72=M%:�replace%
v�draw(CX%,M%)
��draw(newX%-&28,M%)
��draw(CX%,CM%)
��
�:
�
��keys
��-52��-74 �rot(CX%,newX%)
��-98 �M(-LR%,-1)
��-67 �M(LR%,1)
��-73 �M(-UD%,-12)
��-105 �M(UD%,12)
��-35 �7:quit%=1
�#�-99�t%=0�y%(U%)=1�take:t%=1:�
��-99�t%=1�drop:�
�
:
��M(cx%,u%)
 �U%+u%<0 � U%+u%>107 �
*�u%=1 �(U%+u%)�12=0 �
4�u%=-1 �(U%+u%)�12=11 �
>U%=U%+u%
H�draw(CX%,CM%)
RCX%=CX%+cx%
\�draw(CX%,CM%)
f�FORT=1TO150:NEXT
p�
z:
�
��take
�y%(U%)=0
��draw(CX%,CM%)
�
CM%=&2C00
�!&70=CX%:!&72=CM%:�replace%
��1,-13,200,1
��=0:���>30
��
�:
�
��drop
�� y%(U%)=1 �1,-13,0,2:�
�!!&70=CX%:!&72=&2C70:�replace%
�
CM%=&2D00
�1,-13,20,1
�=0:���>10
�draw(CX%,CM%)
$y%(U%)=1
.t%=0
8�
B:
L��init2
V�I%=0�107:y%(I%)=0:�
`	Z%=-1
jz%=0
t�J%=0�8
~�I%=0�11
�Z%=Z%+1
�#Y%(Z%)=&32A0+(I%*&30)+(J%*1920)
�(�I%>0 � I%<11 � J%>0 � J%<8 y%(Z%)=1
��
��
�	Z%=-1
��J%=0�6
��I%=0�9
�Z%=Z%+1
�#X%(Z%)=&3A50+(I%*&30)+(J%*1920)
��
��
�

:
	��rnd
B%=0
(�
2�R%=�(70)-1:�X%(R%)>1
<&Q%=R%:q%=R%�10:q%=q%*2:Q%=Q%+13+q%
Fy%(Q%)=0
PB%=B%+1
ZV%=�(4)-1:�V%=0�tBE
d�T%=1�V%
n	�rot2
x�
�P%=&2C70
�!!&70=X%(R%):!&72=P%:�replace%
��draw(X%(R%),P%)
�X%(R%)=1
��r%=�(108)-1:�y%(r%)=0
��draw(Y%(r%),P%)
�y%(r%)=1
�
�B%=G%
��
�:
�
��rot2
� !&70=X%(R%):!&72=newX%:�rot%
�!!&70=X%(R%):!&72=M%:�replace%
�draw(X%(R%),M%)
$!&70=newX%-&28:!&72=M%:�replace%
�draw(X%(R%),M%)
"�draw(newX%-&28,M%)
,�
6:
@��pieces
JZ%=0
T�J%=0�6
^�I%=0�9
hA%=X%+(I%*&30)+(J%*1920)
r!�Z%=0�I%>0�I%<9�and(A%,&2B10)
|%�Z%=0�I%=0�(J%�2)=0�and(A%,&29F0)
�%�Z%=0�I%=9�(J%�2)=1�and(A%,&2960)
�!�Z%=1�J%>0�J%<6�and(A%,&2A80)
��Z%=1�J%=0�and(A%,&28D0)
��Z%=1�J%=6�and(A%,&2840)
�Z%=(Z%+1)�2
��
�Z%=(Z%+1)�2
��
��
�:
���and(x%,m%)
�!&70=x%:!&72=m%:�and%
��
:

��windows
�24,0;0;156;1020;
&�0,128:�
0�24,0;0;1276;220;
:�
D�24,0;896;1276;1020;
N�
X�24,1120;0;1276;1020;
b�
l�26
v�
�:
���pics:� X%,Y%
��T=0�3:�19,T,0;0;:�:*FX15
��:*LOAD SCREEN 3000
�	�4:�3
�)�p:�ch:�32,18);:�K%=1�" ON" � �"OFF"
��19,0,4;0;19,1,1;0;
��19,2,7;0;19,3,0;0;
��t(title$)
��132
�G=�
�&�G=13 � G=32 � author$="" �7:�dPG
��G=13 � G=32 �start:�
�G=70 � G=102 �load:�dPG
$�G=42 � G=58 � G%=G%+1:�ch:�ddG
$�G=47 � G=63 � G%=G%-1:�ch:�ddG
 !�G=89 � G=121 � H%=1:�p:�ddG
*!�G=78 � G=110 � H%=0:�p:�ddG
4�G=79 � G=111 � �k:�ddG
>�7:�ddG
H�
R:
\
��load
f�c
p"�t("Filename ....."):name$=""
z�22,4);
�7�:z=�:� z>47 � z<127 � �name$<5 name$=name$+�(z):�z
�5� z=127 � �name$>0 �8,46,8:name$=�name$,�name$-1)
�� z=21 �1:�dRE
�� z=13:C%=0
�inf$=name$+"in"
�A=� inf$
�(�#A, inf$,title$,author$,C%,D%,E%,F%
��#A
� author$=" Author : "+author$
��c
��
�:
���start:�T=0�3:�19,T,0;0;:�
	�:�1
	�m(author$)
	�T=1�30:�:�19,1,7;0;
	$A$=�(210):�19,1,0;0;
	.$&700="LOAD "+name$+" 3000"
	8$Y%=7:�T=0�3:�19,T,0;0;:�:� &FFF7
	B�
	L:
	V��ch
	`�G%>70 � G%=70:�7
	j�G%<1 � G%=1:�7
	t"�29,24);:�G%<10�"0";G% � �;G%
	~�
	�:
	���p
	�-�H%=1��30,21)"YES/no" � �30,21)"yes/NO"
	��
	�:
	���k:�32,18);
	��K%=0 � �" ON":K%=1:�
	��K%=1 � �"OFF":K%=0:�
	�:
	�;��col:�19,0,C%;0;:�19,1,D%;0;:�19,2,E%;0;:�19,3,F%;0;:�
	�:
	�$��c:�130:�2,4)�(35):�T=1�30:�:�
)ݤt(r$):�4:�130:�3:�20-�r$/2,4);:=r$

"ݤm(r$):�4:�20-�r$/2,15);:=r$
�

00000000  0d 00 0a 1a f4 20 22 4a  49 47 53 41 57 22 20 56  |..... "JIGSAW" V|
00000010  65 72 73 69 6f 6e 20 31  2e 30 0d 00 14 23 f4 20  |ersion 1.0...#. |
00000020  42 42 43 20 4d 69 63 72  6f 20 56 65 72 73 69 6f  |BBC Micro Versio|
00000030  6e 20 4d 2e 20 47 6f 6c  64 62 65 72 67 0d 00 1e  |n M. Goldberg...|
00000040  24 f4 20 45 4c 4b 20 56  65 72 73 69 6f 6e 20 55  |$. ELK Version U|
00000050  70 67 72 61 64 65 20 28  54 68 65 29 20 44 61 76  |pgrade (The) Dav|
00000060  65 0d 00 28 38 eb 31 3a  6e 61 6d 65 24 3d 22 22  |e..(8.1:name$=""|
00000070  3a 74 69 74 6c 65 24 3d  22 50 72 65 73 73 20 46  |:title$="Press F|
00000080  20 54 6f 20 4c 6f 61 64  20 46 69 6c 65 22 3a 61  | To Load File":a|
00000090  75 74 68 6f 72 24 3d 22  22 0d 00 32 13 ef 32 33  |uthor$=""..2..23|
000000a0  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 3c 0e  |;8202;0;0;0;..<.|
000000b0  ef 31 39 2c 33 2c 34 3b  30 3b 0d 00 46 13 ef 32  |.19,3,4;0;..F..2|
000000c0  33 3b 36 2c 32 38 3b 30  3b 30 3b 30 3b 0d 00 50  |3;6,28;0;0;0;..P|
000000d0  1b de 58 25 28 36 39 29  2c 59 25 28 31 30 37 29  |..X%(69),Y%(107)|
000000e0  2c 79 25 28 31 30 37 29  0d 00 5a 09 f2 69 6e 69  |,y%(107)..Z..ini|
000000f0  74 0d 00 64 0a f2 69 6e  69 74 32 0d 00 6e 09 f2  |t..d..init2..n..|
00000100  70 69 63 73 0d 00 78 0c  f2 77 69 6e 64 6f 77 73  |pics..x..windows|
00000110  0d 00 82 0f e7 48 25 3d  30 8c e5 8d 74 7e 40 0d  |.....H%=0...t~@.|
00000120  00 8c 0b f2 70 69 65 63  65 73 0d 00 96 08 e6 30  |....pieces.....0|
00000130  2c 30 0d 00 a0 0c ec 31  36 30 2c 32 32 34 0d 00  |,0.....160,224..|
00000140  aa 0c f0 31 2c 30 2c 36  36 38 0d 00 b4 0c f0 31  |...1,0,668.....1|
00000150  2c 39 36 30 2c 30 0d 00  be 1b e7 4b 25 3d 31 20  |,960,0.....K%=1 |
00000160  f2 63 6f 6c 3a 77 61 69  74 24 3d bf 28 35 30 30  |.col:wait$=.(500|
00000170  29 0d 00 c8 08 f2 72 6e  64 0d 00 d2 08 f2 63 6f  |).....rnd.....co|
00000180  6c 0d 00 dc 0f d4 31 2c  2d 31 33 2c 39 30 2c 32  |l.....1,-13,90,2|
00000190  0d 00 e6 0f f1 8a 30 2c  30 29 89 28 33 39 29 0d  |......0,0).(39).|
000001a0  00 f0 12 f2 64 72 61 77  28 43 58 25 2c 43 4d 25  |....draw(CX%,CM%|
000001b0  29 0d 00 fa 05 3a 0d 01  04 05 f5 0d 01 0e 09 f2  |)....:..........|
000001c0  6b 65 79 73 0d 01 18 0c  fd 71 75 69 74 25 3d 31  |keys.....quit%=1|
000001d0  0d 01 22 05 3a 0d 01 2c  0b db 3a e5 8d 44 5a 40  |..".:..,..:..DZ@|
000001e0  0d 01 36 05 3a 0d 01 40  0a dd f2 69 6e 69 74 0d  |..6.:..@...init.|
000001f0  01 4a 18 ef 32 33 2c 32  35 35 2c 2d 31 3b 2d 31  |.J..23,255,-1;-1|
00000200  3b 2d 31 3b 2d 31 3b 0d  01 54 27 ef 32 33 2c 32  |;-1;-1;..T'.23,2|
00000210  32 34 2c 31 37 30 2c 38  35 2c 31 37 30 2c 38 35  |24,170,85,170,85|
00000220  2c 31 37 30 2c 38 35 2c  31 37 30 2c 38 35 0d 01  |,170,85,170,85..|
00000230  5e 0b 71 75 69 74 25 3d  30 0d 01 68 08 55 25 3d  |^.quit%=0..h.U%=|
00000240  30 0d 01 72 08 74 25 3d  30 0d 01 7c 0e 72 6f 74  |0..r.t%=0..|.rot|
00000250  25 3d 26 32 45 30 30 0d  01 86 0f 64 72 61 77 25  |%=&2E00....draw%|
00000260  3d 26 32 44 43 30 0d 01  90 12 72 65 70 6c 61 63  |=&2DC0....replac|
00000270  65 25 3d 26 32 44 39 30  0d 01 9a 0e 61 6e 64 25  |e%=&2D90....and%|
00000280  3d 26 32 42 41 30 0d 01  a4 0c 58 25 3d 26 33 41  |=&2BA0....X%=&3A|
00000290  35 30 0d 01 ae 0c 4d 25  3d 26 32 42 45 30 0d 01  |50....M%=&2BE0..|
000002a0  b8 0f 6e 65 77 58 25 3d  26 37 36 38 30 0d 01 c2  |..newX%=&7680...|
000002b0  0d 43 4d 25 3d 26 32 44  30 30 0d 01 cc 0a 43 58  |.CM%=&2D00....CX|
000002c0  25 3d 58 25 0d 01 d6 0d  43 58 25 3d 26 33 32 41  |%=X%....CX%=&32A|
000002d0  30 0d 01 e0 0b 4c 52 25  3d 26 33 30 0d 01 ea 0c  |0....LR%=&30....|
000002e0  55 44 25 3d 31 39 32 30  0d 01 f4 05 e1 0d 01 fe  |UD%=1920........|
000002f0  05 3a 0d 02 08 11 dd f2  64 72 61 77 28 78 25 2c  |.:......draw(x%,|
00000300  6d 25 29 0d 02 12 1a 21  26 37 30 3d 78 25 3a 21  |m%)....!&70=x%:!|
00000310  26 37 32 3d 6d 25 3a d6  64 72 61 77 25 0d 02 1c  |&72=m%:.draw%...|
00000320  05 e1 0d 02 26 05 3a 0d  02 30 11 dd f2 72 6f 74  |....&.:..0...rot|
00000330  28 78 25 2c 6e 78 25 29  0d 02 3a 0a e7 74 25 3d  |(x%,nx%)..:..t%=|
00000340  31 e1 0d 02 44 12 f2 64  72 61 77 28 43 58 25 2c  |1...D..draw(CX%,|
00000350  43 4d 25 29 0d 02 4e 1a  21 26 37 30 3d 78 25 3a  |CM%)..N.!&70=x%:|
00000360  21 26 37 32 3d 6e 78 25  3a d6 72 6f 74 25 0d 02  |!&72=nx%:.rot%..|
00000370  58 1d 21 26 37 30 3d 78  25 3a 21 26 37 32 3d 4d  |X.!&70=x%:!&72=M|
00000380  25 3a d6 72 65 70 6c 61  63 65 25 0d 02 62 11 f2  |%:.replace%..b..|
00000390  64 72 61 77 28 43 58 25  2c 4d 25 29 0d 02 6c 24  |draw(CX%,M%)..l$|
000003a0  21 26 37 30 3d 6e 65 77  58 25 2d 26 32 38 3a 21  |!&70=newX%-&28:!|
000003b0  26 37 32 3d 4d 25 3a d6  72 65 70 6c 61 63 65 25  |&72=M%:.replace%|
000003c0  0d 02 76 11 f2 64 72 61  77 28 43 58 25 2c 4d 25  |..v..draw(CX%,M%|
000003d0  29 0d 02 80 17 f2 64 72  61 77 28 6e 65 77 58 25  |).....draw(newX%|
000003e0  2d 26 32 38 2c 4d 25 29  0d 02 8a 12 f2 64 72 61  |-&28,M%).....dra|
000003f0  77 28 43 58 25 2c 43 4d  25 29 0d 02 94 05 e1 0d  |w(CX%,CM%)......|
00000400  02 9e 05 3a 0d 02 a8 0a  dd f2 6b 65 79 73 0d 02  |...:......keys..|
00000410  b2 1e e7 a6 2d 35 32 84  a6 2d 37 34 20 f2 72 6f  |....-52..-74 .ro|
00000420  74 28 43 58 25 2c 6e 65  77 58 25 29 0d 02 bc 15  |t(CX%,newX%)....|
00000430  e7 a6 2d 39 38 20 f2 4d  28 2d 4c 52 25 2c 2d 31  |..-98 .M(-LR%,-1|
00000440  29 0d 02 c6 13 e7 a6 2d  36 37 20 f2 4d 28 4c 52  |)......-67 .M(LR|
00000450  25 2c 31 29 0d 02 d0 16  e7 a6 2d 37 33 20 f2 4d  |%,1)......-73 .M|
00000460  28 2d 55 44 25 2c 2d 31  32 29 0d 02 da 15 e7 a6  |(-UD%,-12)......|
00000470  2d 31 30 35 20 f2 4d 28  55 44 25 2c 31 32 29 0d  |-105 .M(UD%,12).|
00000480  02 e4 14 e7 a6 2d 33 35  20 ef 37 3a 71 75 69 74  |.....-35 .7:quit|
00000490  25 3d 31 0d 02 ee 23 e7  a6 2d 39 39 80 74 25 3d  |%=1...#..-99.t%=|
000004a0  30 80 79 25 28 55 25 29  3d 31 f2 74 61 6b 65 3a  |0.y%(U%)=1.take:|
000004b0  74 25 3d 31 3a e1 0d 02  f8 15 e7 a6 2d 39 39 80  |t%=1:.......-99.|
000004c0  74 25 3d 31 f2 64 72 6f  70 3a e1 0d 03 02 05 e1  |t%=1.drop:......|
000004d0  0d 03 0c 05 3a 0d 03 16  0f dd f2 4d 28 63 78 25  |....:......M(cx%|
000004e0  2c 75 25 29 0d 03 20 1a  e7 55 25 2b 75 25 3c 30  |,u%).. ..U%+u%<0|
000004f0  20 84 20 55 25 2b 75 25  3e 31 30 37 20 e1 0d 03  | . U%+u%>107 ...|
00000500  2a 19 e7 75 25 3d 31 20  e7 28 55 25 2b 75 25 29  |*..u%=1 .(U%+u%)|
00000510  83 31 32 3d 30 20 e1 0d  03 34 1b e7 75 25 3d 2d  |.12=0 ...4..u%=-|
00000520  31 20 e7 28 55 25 2b 75  25 29 83 31 32 3d 31 31  |1 .(U%+u%).12=11|
00000530  20 e1 0d 03 3e 0c 55 25  3d 55 25 2b 75 25 0d 03  | ...>.U%=U%+u%..|
00000540  48 12 f2 64 72 61 77 28  43 58 25 2c 43 4d 25 29  |H..draw(CX%,CM%)|
00000550  0d 03 52 0f 43 58 25 3d  43 58 25 2b 63 78 25 0d  |..R.CX%=CX%+cx%.|
00000560  03 5c 12 f2 64 72 61 77  28 43 58 25 2c 43 4d 25  |.\..draw(CX%,CM%|
00000570  29 0d 03 66 15 f4 46 4f  52 54 3d 31 54 4f 31 35  |)..f..FORT=1TO15|
00000580  30 3a 4e 45 58 54 0d 03  70 05 e1 0d 03 7a 05 3a  |0:NEXT..p....z.:|
00000590  0d 03 84 0a dd f2 74 61  6b 65 0d 03 8e 0c 79 25  |......take....y%|
000005a0  28 55 25 29 3d 30 0d 03  98 12 f2 64 72 61 77 28  |(U%)=0.....draw(|
000005b0  43 58 25 2c 43 4d 25 29  0d 03 a2 0d 43 4d 25 3d  |CX%,CM%)....CM%=|
000005c0  26 32 43 30 30 0d 03 ac  1f 21 26 37 30 3d 43 58  |&2C00....!&70=CX|
000005d0  25 3a 21 26 37 32 3d 43  4d 25 3a d6 72 65 70 6c  |%:!&72=CM%:.repl|
000005e0  61 63 65 25 0d 03 b6 10  d4 31 2c 2d 31 33 2c 32  |ace%.....1,-13,2|
000005f0  30 30 2c 31 0d 03 c0 0e  d1 3d 30 3a f5 fd 91 3e  |00,1.....=0:...>|
00000600  33 30 0d 03 ca 05 e1 0d  03 d4 05 3a 0d 03 de 0a  |30.........:....|
00000610  dd f2 64 72 6f 70 0d 03  e8 1b e7 20 79 25 28 55  |..drop..... y%(U|
00000620  25 29 3d 31 20 d4 31 2c  2d 31 33 2c 30 2c 32 3a  |%)=1 .1,-13,0,2:|
00000630  e1 0d 03 f2 21 21 26 37  30 3d 43 58 25 3a 21 26  |....!!&70=CX%:!&|
00000640  37 32 3d 26 32 43 37 30  3a d6 72 65 70 6c 61 63  |72=&2C70:.replac|
00000650  65 25 0d 03 fc 0d 43 4d  25 3d 26 32 44 30 30 0d  |e%....CM%=&2D00.|
00000660  04 06 0f d4 31 2c 2d 31  33 2c 32 30 2c 31 0d 04  |....1,-13,20,1..|
00000670  10 0e d1 3d 30 3a f5 fd  91 3e 31 30 0d 04 1a 12  |...=0:...>10....|
00000680  f2 64 72 61 77 28 43 58  25 2c 43 4d 25 29 0d 04  |.draw(CX%,CM%)..|
00000690  24 0c 79 25 28 55 25 29  3d 31 0d 04 2e 08 74 25  |$.y%(U%)=1....t%|
000006a0  3d 30 0d 04 38 05 e1 0d  04 42 05 3a 0d 04 4c 0b  |=0..8....B.:..L.|
000006b0  dd f2 69 6e 69 74 32 0d  04 56 18 e3 49 25 3d 30  |..init2..V..I%=0|
000006c0  b8 31 30 37 3a 79 25 28  49 25 29 3d 30 3a ed 0d  |.107:y%(I%)=0:..|
000006d0  04 60 09 5a 25 3d 2d 31  0d 04 6a 08 7a 25 3d 30  |.`.Z%=-1..j.z%=0|
000006e0  0d 04 74 0b e3 4a 25 3d  30 b8 38 0d 04 7e 0c e3  |..t..J%=0.8..~..|
000006f0  49 25 3d 30 b8 31 31 0d  04 88 0b 5a 25 3d 5a 25  |I%=0.11....Z%=Z%|
00000700  2b 31 0d 04 92 23 59 25  28 5a 25 29 3d 26 33 32  |+1...#Y%(Z%)=&32|
00000710  41 30 2b 28 49 25 2a 26  33 30 29 2b 28 4a 25 2a  |A0+(I%*&30)+(J%*|
00000720  31 39 32 30 29 0d 04 9c  28 e7 49 25 3e 30 20 80  |1920)...(.I%>0 .|
00000730  20 49 25 3c 31 31 20 80  20 4a 25 3e 30 20 80 20  | I%<11 . J%>0 . |
00000740  4a 25 3c 38 20 79 25 28  5a 25 29 3d 31 0d 04 a6  |J%<8 y%(Z%)=1...|
00000750  05 ed 0d 04 b0 05 ed 0d  04 ba 09 5a 25 3d 2d 31  |...........Z%=-1|
00000760  0d 04 c4 0b e3 4a 25 3d  30 b8 36 0d 04 ce 0b e3  |.....J%=0.6.....|
00000770  49 25 3d 30 b8 39 0d 04  d8 0b 5a 25 3d 5a 25 2b  |I%=0.9....Z%=Z%+|
00000780  31 0d 04 e2 23 58 25 28  5a 25 29 3d 26 33 41 35  |1...#X%(Z%)=&3A5|
00000790  30 2b 28 49 25 2a 26 33  30 29 2b 28 4a 25 2a 31  |0+(I%*&30)+(J%*1|
000007a0  39 32 30 29 0d 04 ec 05  ed 0d 04 f6 05 ed 0d 05  |920)............|
000007b0  00 05 e1 0d 05 0a 05 3a  0d 05 14 09 dd f2 72 6e  |.......:......rn|
000007c0  64 0d 05 1e 08 42 25 3d  30 0d 05 28 05 f5 0d 05  |d....B%=0..(....|
000007d0  32 19 f5 52 25 3d b3 28  37 30 29 2d 31 3a fd 58  |2..R%=.(70)-1:.X|
000007e0  25 28 52 25 29 3e 31 0d  05 3c 26 51 25 3d 52 25  |%(R%)>1..<&Q%=R%|
000007f0  3a 71 25 3d 52 25 81 31  30 3a 71 25 3d 71 25 2a  |:q%=R%.10:q%=q%*|
00000800  32 3a 51 25 3d 51 25 2b  31 33 2b 71 25 0d 05 46  |2:Q%=Q%+13+q%..F|
00000810  0c 79 25 28 51 25 29 3d  30 0d 05 50 0b 42 25 3d  |.y%(Q%)=0..P.B%=|
00000820  42 25 2b 31 0d 05 5a 18  56 25 3d b3 28 34 29 2d  |B%+1..Z.V%=.(4)-|
00000830  31 3a e7 56 25 3d 30 e5  8d 74 42 45 0d 05 64 0c  |1:.V%=0..tBE..d.|
00000840  e3 54 25 3d 31 b8 56 25  0d 05 6e 09 f2 72 6f 74  |.T%=1.V%..n..rot|
00000850  32 0d 05 78 05 ed 0d 05  82 0c 50 25 3d 26 32 43  |2..x......P%=&2C|
00000860  37 30 0d 05 8c 21 21 26  37 30 3d 58 25 28 52 25  |70...!!&70=X%(R%|
00000870  29 3a 21 26 37 32 3d 50  25 3a d6 72 65 70 6c 61  |):!&72=P%:.repla|
00000880  63 65 25 0d 05 96 14 f2  64 72 61 77 28 58 25 28  |ce%.....draw(X%(|
00000890  52 25 29 2c 50 25 29 0d  05 a0 0c 58 25 28 52 25  |R%),P%)....X%(R%|
000008a0  29 3d 31 0d 05 aa 1a f5  72 25 3d b3 28 31 30 38  |)=1.....r%=.(108|
000008b0  29 2d 31 3a fd 79 25 28  72 25 29 3d 30 0d 05 b4  |)-1:.y%(r%)=0...|
000008c0  14 f2 64 72 61 77 28 59  25 28 72 25 29 2c 50 25  |..draw(Y%(r%),P%|
000008d0  29 0d 05 be 0c 79 25 28  72 25 29 3d 31 0d 05 c8  |)....y%(r%)=1...|
000008e0  0a fd 42 25 3d 47 25 0d  05 d2 05 e1 0d 05 dc 05  |..B%=G%.........|
000008f0  3a 0d 05 e6 0a dd f2 72  6f 74 32 0d 05 f0 20 21  |:......rot2... !|
00000900  26 37 30 3d 58 25 28 52  25 29 3a 21 26 37 32 3d  |&70=X%(R%):!&72=|
00000910  6e 65 77 58 25 3a d6 72  6f 74 25 0d 05 fa 21 21  |newX%:.rot%...!!|
00000920  26 37 30 3d 58 25 28 52  25 29 3a 21 26 37 32 3d  |&70=X%(R%):!&72=|
00000930  4d 25 3a d6 72 65 70 6c  61 63 65 25 0d 06 04 14  |M%:.replace%....|
00000940  f2 64 72 61 77 28 58 25  28 52 25 29 2c 4d 25 29  |.draw(X%(R%),M%)|
00000950  0d 06 0e 24 21 26 37 30  3d 6e 65 77 58 25 2d 26  |...$!&70=newX%-&|
00000960  32 38 3a 21 26 37 32 3d  4d 25 3a d6 72 65 70 6c  |28:!&72=M%:.repl|
00000970  61 63 65 25 0d 06 18 14  f2 64 72 61 77 28 58 25  |ace%.....draw(X%|
00000980  28 52 25 29 2c 4d 25 29  0d 06 22 17 f2 64 72 61  |(R%),M%).."..dra|
00000990  77 28 6e 65 77 58 25 2d  26 32 38 2c 4d 25 29 0d  |w(newX%-&28,M%).|
000009a0  06 2c 05 e1 0d 06 36 05  3a 0d 06 40 0c dd f2 70  |.,....6.:..@...p|
000009b0  69 65 63 65 73 0d 06 4a  08 5a 25 3d 30 0d 06 54  |ieces..J.Z%=0..T|
000009c0  0b e3 4a 25 3d 30 b8 36  0d 06 5e 0b e3 49 25 3d  |..J%=0.6..^..I%=|
000009d0  30 b8 39 0d 06 68 1c 41  25 3d 58 25 2b 28 49 25  |0.9..h.A%=X%+(I%|
000009e0  2a 26 33 30 29 2b 28 4a  25 2a 31 39 32 30 29 0d  |*&30)+(J%*1920).|
000009f0  06 72 21 e7 5a 25 3d 30  80 49 25 3e 30 80 49 25  |.r!.Z%=0.I%>0.I%|
00000a00  3c 39 f2 61 6e 64 28 41  25 2c 26 32 42 31 30 29  |<9.and(A%,&2B10)|
00000a10  0d 06 7c 25 e7 5a 25 3d  30 80 49 25 3d 30 80 28  |..|%.Z%=0.I%=0.(|
00000a20  4a 25 83 32 29 3d 30 f2  61 6e 64 28 41 25 2c 26  |J%.2)=0.and(A%,&|
00000a30  32 39 46 30 29 0d 06 86  25 e7 5a 25 3d 30 80 49  |29F0)...%.Z%=0.I|
00000a40  25 3d 39 80 28 4a 25 83  32 29 3d 31 f2 61 6e 64  |%=9.(J%.2)=1.and|
00000a50  28 41 25 2c 26 32 39 36  30 29 0d 06 90 21 e7 5a  |(A%,&2960)...!.Z|
00000a60  25 3d 31 80 4a 25 3e 30  80 4a 25 3c 36 f2 61 6e  |%=1.J%>0.J%<6.an|
00000a70  64 28 41 25 2c 26 32 41  38 30 29 0d 06 9a 1c e7  |d(A%,&2A80).....|
00000a80  5a 25 3d 31 80 4a 25 3d  30 f2 61 6e 64 28 41 25  |Z%=1.J%=0.and(A%|
00000a90  2c 26 32 38 44 30 29 0d  06 a4 1c e7 5a 25 3d 31  |,&28D0).....Z%=1|
00000aa0  80 4a 25 3d 36 f2 61 6e  64 28 41 25 2c 26 32 38  |.J%=6.and(A%,&28|
00000ab0  34 30 29 0d 06 ae 0f 5a  25 3d 28 5a 25 2b 31 29  |40)....Z%=(Z%+1)|
00000ac0  83 32 0d 06 b8 05 ed 0d  06 c2 0f 5a 25 3d 28 5a  |.2.........Z%=(Z|
00000ad0  25 2b 31 29 83 32 0d 06  cc 05 ed 0d 06 d6 05 e1  |%+1).2..........|
00000ae0  0d 06 e0 05 3a 0d 06 ea  10 dd f2 61 6e 64 28 78  |....:......and(x|
00000af0  25 2c 6d 25 29 0d 06 f4  19 21 26 37 30 3d 78 25  |%,m%)....!&70=x%|
00000b00  3a 21 26 37 32 3d 6d 25  3a d6 61 6e 64 25 0d 06  |:!&72=m%:.and%..|
00000b10  fe 05 e1 0d 07 08 05 3a  0d 07 12 0d dd f2 77 69  |.......:......wi|
00000b20  6e 64 6f 77 73 0d 07 1c  15 ef 32 34 2c 30 3b 30  |ndows.....24,0;0|
00000b30  3b 31 35 36 3b 31 30 32  30 3b 0d 07 26 0c e6 30  |;156;1020;..&..0|
00000b40  2c 31 32 38 3a da 0d 07  30 15 ef 32 34 2c 30 3b  |,128:...0..24,0;|
00000b50  30 3b 31 32 37 36 3b 32  32 30 3b 0d 07 3a 05 da  |0;1276;220;..:..|
00000b60  0d 07 44 18 ef 32 34 2c  30 3b 38 39 36 3b 31 32  |..D..24,0;896;12|
00000b70  37 36 3b 31 30 32 30 3b  0d 07 4e 05 da 0d 07 58  |76;1020;..N....X|
00000b80  19 ef 32 34 2c 31 31 32  30 3b 30 3b 31 32 37 36  |..24,1120;0;1276|
00000b90  3b 31 30 32 30 3b 0d 07  62 05 da 0d 07 6c 07 ef  |;1020;..b....l..|
00000ba0  32 36 0d 07 76 05 e1 0d  07 80 05 3a 0d 07 8a 12  |26..v......:....|
00000bb0  dd f2 70 69 63 73 3a ea  20 58 25 2c 59 25 0d 07  |..pics:. X%,Y%..|
00000bc0  94 1d e3 54 3d 30 b8 33  3a ef 31 39 2c 54 2c 30  |...T=0.3:.19,T,0|
00000bd0  3b 30 3b 3a ed 3a 2a 46  58 31 35 0d 07 9e 17 db  |;0;:.:*FX15.....|
00000be0  3a 2a 4c 4f 41 44 20 53  43 52 45 45 4e 20 33 30  |:*LOAD SCREEN 30|
00000bf0  30 30 0d 07 a8 09 ef 34  3a fb 33 0d 07 b2 29 f2  |00.....4:.3...).|
00000c00  70 3a f2 63 68 3a f1 8a  33 32 2c 31 38 29 3b 3a  |p:.ch:..32,18);:|
00000c10  e7 4b 25 3d 31 f1 22 20  4f 4e 22 20 8b 20 f1 22  |.K%=1." ON" . ."|
00000c20  4f 46 46 22 0d 07 bc 17  ef 31 39 2c 30 2c 34 3b  |OFF".....19,0,4;|
00000c30  30 3b 31 39 2c 31 2c 31  3b 30 3b 0d 07 c6 17 ef  |0;19,1,1;0;.....|
00000c40  31 39 2c 32 2c 37 3b 30  3b 31 39 2c 33 2c 30 3b  |19,2,7;0;19,3,0;|
00000c50  30 3b 0d 07 d0 0f f1 a4  74 28 74 69 74 6c 65 24  |0;......t(title$|
00000c60  29 0d 07 da 08 fb 31 33  32 0d 07 e4 07 47 3d a5  |).....132....G=.|
00000c70  0d 07 ee 26 e7 47 3d 31  33 20 84 20 47 3d 33 32  |...&.G=13 . G=32|
00000c80  20 80 20 61 75 74 68 6f  72 24 3d 22 22 20 ef 37  | . author$="" .7|
00000c90  3a e5 8d 64 50 47 0d 07  f8 19 e7 47 3d 31 33 20  |:..dPG.....G=13 |
00000ca0  84 20 47 3d 33 32 20 f2  73 74 61 72 74 3a e1 0d  |. G=32 .start:..|
00000cb0  08 02 1d e7 47 3d 37 30  20 84 20 47 3d 31 30 32  |....G=70 . G=102|
00000cc0  20 f2 6c 6f 61 64 3a e5  8d 64 50 47 0d 08 0c 24  | .load:..dPG...$|
00000cd0  e7 47 3d 34 32 20 84 20  47 3d 35 38 20 8c 20 47  |.G=42 . G=58 . G|
00000ce0  25 3d 47 25 2b 31 3a f2  63 68 3a e5 8d 64 64 47  |%=G%+1:.ch:..ddG|
00000cf0  0d 08 16 24 e7 47 3d 34  37 20 84 20 47 3d 36 33  |...$.G=47 . G=63|
00000d00  20 8c 20 47 25 3d 47 25  2d 31 3a f2 63 68 3a e5  | . G%=G%-1:.ch:.|
00000d10  8d 64 64 47 0d 08 20 21  e7 47 3d 38 39 20 84 20  |.ddG.. !.G=89 . |
00000d20  47 3d 31 32 31 20 8c 20  48 25 3d 31 3a f2 70 3a  |G=121 . H%=1:.p:|
00000d30  e5 8d 64 64 47 0d 08 2a  21 e7 47 3d 37 38 20 84  |..ddG..*!.G=78 .|
00000d40  20 47 3d 31 31 30 20 8c  20 48 25 3d 30 3a f2 70  | G=110 . H%=0:.p|
00000d50  3a e5 8d 64 64 47 0d 08  34 1c e7 47 3d 37 39 20  |:..ddG..4..G=79 |
00000d60  84 20 47 3d 31 31 31 20  8c 20 f2 6b 3a e5 8d 64  |. G=111 . .k:..d|
00000d70  64 47 0d 08 3e 0c ef 37  3a e5 8d 64 64 47 0d 08  |dG..>..7:..ddG..|
00000d80  48 05 e1 0d 08 52 05 3a  0d 08 5c 0a dd f2 6c 6f  |H....R.:..\...lo|
00000d90  61 64 0d 08 66 06 f2 63  0d 08 70 22 f1 a4 74 28  |ad..f..c..p"..t(|
00000da0  22 46 69 6c 65 6e 61 6d  65 20 2e 2e 2e 2e 2e 22  |"Filename ....."|
00000db0  29 3a 6e 61 6d 65 24 3d  22 22 0d 08 7a 0c f1 8a  |):name$=""..z...|
00000dc0  32 32 2c 34 29 3b 0d 08  84 37 f5 3a 7a 3d a5 3a  |22,4);...7.:z=.:|
00000dd0  e7 20 7a 3e 34 37 20 80  20 7a 3c 31 32 37 20 80  |. z>47 . z<127 .|
00000de0  20 a9 6e 61 6d 65 24 3c  35 20 6e 61 6d 65 24 3d  | .name$<5 name$=|
00000df0  6e 61 6d 65 24 2b bd 28  7a 29 3a ef 7a 0d 08 8e  |name$+.(z):.z...|
00000e00  35 e7 20 7a 3d 31 32 37  20 80 20 a9 6e 61 6d 65  |5. z=127 . .name|
00000e10  24 3e 30 20 ef 38 2c 34  36 2c 38 3a 6e 61 6d 65  |$>0 .8,46,8:name|
00000e20  24 3d c0 6e 61 6d 65 24  2c a9 6e 61 6d 65 24 2d  |$=.name$,.name$-|
00000e30  31 29 0d 08 98 13 e7 20  7a 3d 32 31 20 fd 31 3a  |1)..... z=21 .1:|
00000e40  e5 8d 64 52 45 0d 08 a2  0f fd 20 7a 3d 31 33 3a  |..dRE..... z=13:|
00000e50  43 25 3d 30 0d 08 ac 13  69 6e 66 24 3d 6e 61 6d  |C%=0....inf$=nam|
00000e60  65 24 2b 22 69 6e 22 0d  08 b6 0c 41 3d 8e 20 69  |e$+"in"....A=. i|
00000e70  6e 66 24 0d 08 c0 28 e8  23 41 2c 20 69 6e 66 24  |nf$...(.#A, inf$|
00000e80  2c 74 69 74 6c 65 24 2c  61 75 74 68 6f 72 24 2c  |,title$,author$,|
00000e90  43 25 2c 44 25 2c 45 25  2c 46 25 0d 08 ca 07 d9  |C%,D%,E%,F%.....|
00000ea0  23 41 0d 08 d4 20 61 75  74 68 6f 72 24 3d 22 20  |#A... author$=" |
00000eb0  41 75 74 68 6f 72 20 3a  20 22 2b 61 75 74 68 6f  |Author : "+autho|
00000ec0  72 24 0d 08 de 06 f2 63  0d 08 e8 05 e1 0d 08 f2  |r$.....c........|
00000ed0  05 3a 0d 08 fc 1f dd f2  73 74 61 72 74 3a e3 54  |.:......start:.T|
00000ee0  3d 30 b8 33 3a ef 31 39  2c 54 2c 30 3b 30 3b 3a  |=0.3:.19,T,0;0;:|
00000ef0  ed 0d 09 06 08 db 3a fb  31 0d 09 10 10 f1 a4 6d  |......:.1......m|
00000f00  28 61 75 74 68 6f 72 24  29 0d 09 1a 18 e3 54 3d  |(author$).....T=|
00000f10  31 b8 33 30 3a ed 3a ef  31 39 2c 31 2c 37 3b 30  |1.30:.:.19,1,7;0|
00000f20  3b 0d 09 24 18 41 24 3d  bf 28 32 31 30 29 3a ef  |;..$.A$=.(210):.|
00000f30  31 39 2c 31 2c 30 3b 30  3b 0d 09 2e 1f 24 26 37  |19,1,0;0;....$&7|
00000f40  30 30 3d 22 4c 4f 41 44  20 22 2b 6e 61 6d 65 24  |00="LOAD "+name$|
00000f50  2b 22 20 33 30 30 30 22  0d 09 38 24 59 25 3d 37  |+" 3000"..8$Y%=7|
00000f60  3a e3 54 3d 30 b8 33 3a  ef 31 39 2c 54 2c 30 3b  |:.T=0.3:.19,T,0;|
00000f70  30 3b 3a ed 3a d6 20 26  46 46 46 37 0d 09 42 05  |0;:.:. &FFF7..B.|
00000f80  e1 0d 09 4c 05 3a 0d 09  56 08 dd f2 63 68 0d 09  |...L.:..V...ch..|
00000f90  60 15 e7 47 25 3e 37 30  20 8c 20 47 25 3d 37 30  |`..G%>70 . G%=70|
00000fa0  3a ef 37 0d 09 6a 13 e7  47 25 3c 31 20 8c 20 47  |:.7..j..G%<1 . G|
00000fb0  25 3d 31 3a ef 37 0d 09  74 22 f1 8a 32 39 2c 32  |%=1:.7..t"..29,2|
00000fc0  34 29 3b 3a e7 47 25 3c  31 30 f1 22 30 22 3b 47  |4);:.G%<10."0";G|
00000fd0  25 20 8b 20 f1 3b 47 25  0d 09 7e 05 e1 0d 09 88  |% . .;G%..~.....|
00000fe0  05 3a 0d 09 92 07 dd f2  70 0d 09 9c 2d e7 48 25  |.:......p...-.H%|
00000ff0  3d 31 8c f1 8a 33 30 2c  32 31 29 22 59 45 53 2f  |=1...30,21)"YES/|
00001000  6e 6f 22 20 8b 20 f1 8a  33 30 2c 32 31 29 22 79  |no" . ..30,21)"y|
00001010  65 73 2f 4e 4f 22 0d 09  a6 05 e1 0d 09 b0 05 3a  |es/NO".........:|
00001020  0d 09 ba 11 dd f2 6b 3a  f1 8a 33 32 2c 31 38 29  |......k:..32,18)|
00001030  3b 0d 09 c4 19 e7 4b 25  3d 30 20 8c 20 f1 22 20  |;.....K%=0 . ." |
00001040  4f 4e 22 3a 4b 25 3d 31  3a e1 0d 09 ce 19 e7 4b  |ON":K%=1:......K|
00001050  25 3d 31 20 8c 20 f1 22  4f 46 46 22 3a 4b 25 3d  |%=1 . ."OFF":K%=|
00001060  30 3a e1 0d 09 d8 05 3a  0d 09 e2 3b dd f2 63 6f  |0:.....:...;..co|
00001070  6c 3a ef 31 39 2c 30 2c  43 25 3b 30 3b 3a ef 31  |l:.19,0,C%;0;:.1|
00001080  39 2c 31 2c 44 25 3b 30  3b 3a ef 31 39 2c 32 2c  |9,1,D%;0;:.19,2,|
00001090  45 25 3b 30 3b 3a ef 31  39 2c 33 2c 46 25 3b 30  |E%;0;:.19,3,F%;0|
000010a0  3b 3a e1 0d 09 ec 05 3a  0d 09 f6 24 dd f2 63 3a  |;:.....:...$..c:|
000010b0  fb 31 33 30 3a f1 8a 32  2c 34 29 89 28 33 35 29  |.130:..2,4).(35)|
000010c0  3a e3 54 3d 31 b8 33 30  3a ed 3a e1 0d 0a 00 29  |:.T=1.30:.:....)|
000010d0  dd a4 74 28 72 24 29 3a  ef 34 3a fb 31 33 30 3a  |..t(r$):.4:.130:|
000010e0  fb 33 3a f1 8a 32 30 2d  a9 72 24 2f 32 2c 34 29  |.3:..20-.r$/2,4)|
000010f0  3b 3a 3d 72 24 0d 0a 0a  22 dd a4 6d 28 72 24 29  |;:=r$..."..m(r$)|
00001100  3a ef 34 3a f1 8a 32 30  2d a9 72 24 2f 32 2c 31  |:.4:..20-.r$/2,1|
00001110  35 29 3b 3a 3d 72 24 0d  ff                       |5);:=r$..|
00001119