� > <basicsave$dir>.JIGSAW
!� by Mike "no sheds" Goldberg
� The Micro User
(�1:*L.JigCode 2840
2�23;8202;0;0;0;
< �19,3,4;0;:� OPTIONAL COLOUR
F�23;6,28;0;0;0;
P�X%(69),Y%(107),y%(107)
Z	�init
d
�init2
n	�pics
x�windows
� �0,0)"JIGsawed or not? Y/N"
�q$=�
��q$<>"Y"�dR@
��pieces
��0,0
��160,224
��1,0,668
��1,960,0
�,�0,0)"How many pieces to split (1-70)";
��nop%:�nop%<1�nop%>70�dR@
�
�0,0)�39
�+�0,0)"PRESS SPACE TO SCRAMBLE!":���=32
��rnd

�1,-13,90,2


�0,0)�39

�draw(CX%,CM%)

":

,�

6	�keys

@�0

J:

T�

^:

h
��init

r�23,255,-1;-1;-1;-1;

|'�23,224,170,85,170,85,170,85,170,85

�U%=0

�t%=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%)
0!&70=x%:!&72=m%:�draw%
:�
D:
N��rot(x%,nx%)
X
�t%=1�
b�draw(CX%,CM%)
l!&70=x%:!&72=nx%:�rot%
v!&70=x%:!&72=M%:�replace%
��draw(CX%,M%)
�$!&70=newX%-&28:!&72=M%:�replace%
��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)
#�-99�t%=0�y%(U%)=1�take:t%=1:�
�-99�t%=1�drop:�
�
 :
*��M(cx%,u%)
4�U%+u%<0�U%+u%>107�
>�u%=1�(U%+u%)�12=0�
H�u%=-1�(U%+u%)�12=11�
RU%=U%+u%
\�draw(CX%,CM%)
fCX%=CX%+cx%
p�draw(CX%,CM%)
z�T=1�150:�
��
�:
�
��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:���>30
.�draw(CX%,CM%)
8y%(U%)=1
Bt%=0
L�
V:
`��init2
j�I%=0�107:y%(I%)=0:�
t	Z%=-1
~z%=0
��J%=0�8
��I%=0�11
�Z%=Z%+1
�#Y%(Z%)=&32A0+(I%*&30)+(J%*1920)
�!�I%>0�I%<11�J%>0�J%<8y%(Z%)=1
��
��
�	Z%=-1
��J%=0�6
��I%=0�9
�Z%=Z%+1
�#X%(Z%)=&3A50+(I%*&30)+(J%*1920)
�

�
�
:
(	��rnd
2C%=0
<�
F�R%=�(70)-1:�X%(R%)>1
P&Q%=R%:q%=R%�10:q%=q%*2:Q%=Q%+13+q%
Zy%(Q%)=0
dC%=C%+1
nV%=�(4)-1:�V%=0�tVE
x�T%=1�V%
�	�rot2
��
�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
��C%=nop%
��
�:
�
��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%)
6�draw(newX%-&28,M%)
@�
J:
T��pieces
^Z%=0
h�J%=0�6
r�I%=0�9
|A%=X%+(I%*&30)+(J%*1920)
�!�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
0�24,0;0;156;1020;
:�0,128:�
D�24,0;0;1276;220;
N�
X�24,0;896;1276;1020;
b�
l�24,1120;0;1276;1020;
v�
��26
��
�:
���pics:�X%,Y%
�	*FX15
�
�131:�
��5
�X%=256:Y%=864
�	��D\H
��
��w$
��0,1
��X%,Y%:�w$
�0,2:�X%+4,Y%+4:�w$
Y%=Y%-96
�w$=" "
 �128
*	�4,26
4G=�-48:�G<1 � G>2�TtH
>
�G=1�test
H
�G=2�load
R�
\��JIGSAW KEYS =,Z X * ? = Move Cursor,SPACE = PICK/PLACE PIECE,RETURN = ROTATE PIECE,OPTIONS =,1) USE THE TEST PIC,2) LOAD YOUR OWN PIC!
f�" "
p:
z
��load
�
�X%,Y%
��
�-�"What is the name of your saved screen?"
�
�name$
�$&700="LOAD "+name$+" 3000"
�Y%=7:�&FFF7
��
�:
���test:�128:�
�
�Z%,a%,b%
�Z%=1
��J%=892�256�-96
	�I%=160�1024�96
		�0,Z%
	,�I%,J%:�1,96,0:�81,-96,-96:�0,3:�81,96,0
	$
Z%=Z%�2+1
	.�
	8
Z%=Z%�2+1
	B�
	L��T@J:add=0
	V�26
	`
�T=1�2
	j<�w$:�5:�0,0:�32,992:�255,255,255,255:�0,1:�32,992:�w$:�4
	ta%=4:b%=5+add
	~�2:�131
	��J%=32�160�4
	��I%=992�960�-4
	��J%,I%)=1�a%,b%)�224
	�b%=b%+1
	��
	�a%=a%+1:b%=5+add
	��
	�add=add+12
	��
	�0�128:�2:�6,14)" THE BBC MICRO TEST SCREEN!"
	��1:�128
	��
�MIKE,LEA!
�

00000000  0d 00 0a 1e f4 20 3e 20  3c 62 61 73 69 63 73 61  |..... > <basicsa|
00000010  76 65 24 64 69 72 3e 2e  4a 49 47 53 41 57 0d 00  |ve$dir>.JIGSAW..|
00000020  14 21 f4 20 62 79 20 4d  69 6b 65 20 22 6e 6f 20  |.!. by Mike "no |
00000030  73 68 65 64 73 22 20 47  6f 6c 64 62 65 72 67 0d  |sheds" Goldberg.|
00000040  00 1e 14 f4 20 54 68 65  20 4d 69 63 72 6f 20 55  |.... The Micro U|
00000050  73 65 72 0d 00 28 16 eb  31 3a 2a 4c 2e 4a 69 67  |ser..(..1:*L.Jig|
00000060  43 6f 64 65 20 32 38 34  30 0d 00 32 13 ef 32 33  |Code 2840..2..23|
00000070  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 3c 20  |;8202;0;0;0;..< |
00000080  ef 31 39 2c 33 2c 34 3b  30 3b 3a f4 20 4f 50 54  |.19,3,4;0;:. OPT|
00000090  49 4f 4e 41 4c 20 43 4f  4c 4f 55 52 0d 00 46 13  |IONAL COLOUR..F.|
000000a0  ef 32 33 3b 36 2c 32 38  3b 30 3b 30 3b 30 3b 0d  |.23;6,28;0;0;0;.|
000000b0  00 50 1b de 58 25 28 36  39 29 2c 59 25 28 31 30  |.P..X%(69),Y%(10|
000000c0  37 29 2c 79 25 28 31 30  37 29 0d 00 5a 09 f2 69  |7),y%(107)..Z..i|
000000d0  6e 69 74 0d 00 64 0a f2  69 6e 69 74 32 0d 00 6e  |nit..d..init2..n|
000000e0  09 f2 70 69 63 73 0d 00  78 0c f2 77 69 6e 64 6f  |..pics..x..windo|
000000f0  77 73 0d 00 82 20 f1 8a  30 2c 30 29 22 4a 49 47  |ws... ..0,0)"JIG|
00000100  73 61 77 65 64 20 6f 72  20 6e 6f 74 3f 20 59 2f  |sawed or not? Y/|
00000110  4e 22 0d 00 8c 08 71 24  3d be 0d 00 96 11 e7 71  |N"....q$=......q|
00000120  24 3c 3e 22 59 22 e5 8d  64 52 40 0d 00 a0 0b f2  |$<>"Y"..dR@.....|
00000130  70 69 65 63 65 73 0d 00  aa 08 e6 30 2c 30 0d 00  |pieces.....0,0..|
00000140  b4 0c ec 31 36 30 2c 32  32 34 0d 00 be 0c f0 31  |...160,224.....1|
00000150  2c 30 2c 36 36 38 0d 00  c8 0c f0 31 2c 39 36 30  |,0,668.....1,960|
00000160  2c 30 0d 00 d2 2c f1 8a  30 2c 30 29 22 48 6f 77  |,0...,..0,0)"How|
00000170  20 6d 61 6e 79 20 70 69  65 63 65 73 20 74 6f 20  | many pieces to |
00000180  73 70 6c 69 74 20 28 31  2d 37 30 29 22 3b 0d 00  |split (1-70)";..|
00000190  dc 1e e8 6e 6f 70 25 3a  e7 6e 6f 70 25 3c 31 84  |...nop%:.nop%<1.|
000001a0  6e 6f 70 25 3e 37 30 e5  8d 64 52 40 0d 00 e6 0d  |nop%>70..dR@....|
000001b0  f1 8a 30 2c 30 29 89 33  39 0d 00 f0 2b f1 8a 30  |..0,0).39...+..0|
000001c0  2c 30 29 22 50 52 45 53  53 20 53 50 41 43 45 20  |,0)"PRESS SPACE |
000001d0  54 4f 20 53 43 52 41 4d  42 4c 45 21 22 3a f5 fd  |TO SCRAMBLE!":..|
000001e0  a5 3d 33 32 0d 00 fa 08  f2 72 6e 64 0d 01 04 0f  |.=32.....rnd....|
000001f0  d4 31 2c 2d 31 33 2c 39  30 2c 32 0d 01 0e 0d f1  |.1,-13,90,2.....|
00000200  8a 30 2c 30 29 89 33 39  0d 01 18 12 f2 64 72 61  |.0,0).39.....dra|
00000210  77 28 43 58 25 2c 43 4d  25 29 0d 01 22 05 3a 0d  |w(CX%,CM%)..".:.|
00000220  01 2c 05 f5 0d 01 36 09  f2 6b 65 79 73 0d 01 40  |.,....6..keys..@|
00000230  06 fd 30 0d 01 4a 05 3a  0d 01 54 05 e0 0d 01 5e  |..0..J.:..T....^|
00000240  05 3a 0d 01 68 0a dd f2  69 6e 69 74 0d 01 72 18  |.:..h...init..r.|
00000250  ef 32 33 2c 32 35 35 2c  2d 31 3b 2d 31 3b 2d 31  |.23,255,-1;-1;-1|
00000260  3b 2d 31 3b 0d 01 7c 27  ef 32 33 2c 32 32 34 2c  |;-1;..|'.23,224,|
00000270  31 37 30 2c 38 35 2c 31  37 30 2c 38 35 2c 31 37  |170,85,170,85,17|
00000280  30 2c 38 35 2c 31 37 30  2c 38 35 0d 01 86 08 55  |0,85,170,85....U|
00000290  25 3d 30 0d 01 90 08 74  25 3d 30 0d 01 9a 0e 72  |%=0....t%=0....r|
000002a0  6f 74 25 3d 26 32 45 30  30 0d 01 a4 0f 64 72 61  |ot%=&2E00....dra|
000002b0  77 25 3d 26 32 44 43 30  0d 01 ae 12 72 65 70 6c  |w%=&2DC0....repl|
000002c0  61 63 65 25 3d 26 32 44  39 30 0d 01 b8 0e 61 6e  |ace%=&2D90....an|
000002d0  64 25 3d 26 32 42 41 30  0d 01 c2 0c 58 25 3d 26  |d%=&2BA0....X%=&|
000002e0  33 41 35 30 0d 01 cc 0c  4d 25 3d 26 32 42 45 30  |3A50....M%=&2BE0|
000002f0  0d 01 d6 0f 6e 65 77 58  25 3d 26 37 36 38 30 0d  |....newX%=&7680.|
00000300  01 e0 0d 43 4d 25 3d 26  32 44 30 30 0d 01 ea 0a  |...CM%=&2D00....|
00000310  43 58 25 3d 58 25 0d 01  f4 0d 43 58 25 3d 26 33  |CX%=X%....CX%=&3|
00000320  32 41 30 0d 01 fe 0b 4c  52 25 3d 26 33 30 0d 02  |2A0....LR%=&30..|
00000330  08 0c 55 44 25 3d 31 39  32 30 0d 02 12 05 e1 0d  |..UD%=1920......|
00000340  02 1c 05 3a 0d 02 26 11  dd f2 64 72 61 77 28 78  |...:..&...draw(x|
00000350  25 2c 6d 25 29 0d 02 30  1a 21 26 37 30 3d 78 25  |%,m%)..0.!&70=x%|
00000360  3a 21 26 37 32 3d 6d 25  3a d6 64 72 61 77 25 0d  |:!&72=m%:.draw%.|
00000370  02 3a 05 e1 0d 02 44 05  3a 0d 02 4e 11 dd f2 72  |.:....D.:..N...r|
00000380  6f 74 28 78 25 2c 6e 78  25 29 0d 02 58 0a e7 74  |ot(x%,nx%)..X..t|
00000390  25 3d 31 e1 0d 02 62 12  f2 64 72 61 77 28 43 58  |%=1...b..draw(CX|
000003a0  25 2c 43 4d 25 29 0d 02  6c 1a 21 26 37 30 3d 78  |%,CM%)..l.!&70=x|
000003b0  25 3a 21 26 37 32 3d 6e  78 25 3a d6 72 6f 74 25  |%:!&72=nx%:.rot%|
000003c0  0d 02 76 1d 21 26 37 30  3d 78 25 3a 21 26 37 32  |..v.!&70=x%:!&72|
000003d0  3d 4d 25 3a d6 72 65 70  6c 61 63 65 25 0d 02 80  |=M%:.replace%...|
000003e0  11 f2 64 72 61 77 28 43  58 25 2c 4d 25 29 0d 02  |..draw(CX%,M%)..|
000003f0  8a 24 21 26 37 30 3d 6e  65 77 58 25 2d 26 32 38  |.$!&70=newX%-&28|
00000400  3a 21 26 37 32 3d 4d 25  3a d6 72 65 70 6c 61 63  |:!&72=M%:.replac|
00000410  65 25 0d 02 94 11 f2 64  72 61 77 28 43 58 25 2c  |e%.....draw(CX%,|
00000420  4d 25 29 0d 02 9e 17 f2  64 72 61 77 28 6e 65 77  |M%).....draw(new|
00000430  58 25 2d 26 32 38 2c 4d  25 29 0d 02 a8 12 f2 64  |X%-&28,M%).....d|
00000440  72 61 77 28 43 58 25 2c  43 4d 25 29 0d 02 b2 05  |raw(CX%,CM%)....|
00000450  e1 0d 02 bc 05 3a 0d 02  c6 0a dd f2 6b 65 79 73  |.....:......keys|
00000460  0d 02 d0 1d e7 a6 2d 35  32 84 a6 2d 37 34 f2 72  |......-52..-74.r|
00000470  6f 74 28 43 58 25 2c 6e  65 77 58 25 29 0d 02 da  |ot(CX%,newX%)...|
00000480  14 e7 a6 2d 39 38 f2 4d  28 2d 4c 52 25 2c 2d 31  |...-98.M(-LR%,-1|
00000490  29 0d 02 e4 12 e7 a6 2d  36 37 f2 4d 28 4c 52 25  |)......-67.M(LR%|
000004a0  2c 31 29 0d 02 ee 15 e7  a6 2d 37 33 f2 4d 28 2d  |,1)......-73.M(-|
000004b0  55 44 25 2c 2d 31 32 29  0d 02 f8 14 e7 a6 2d 31  |UD%,-12)......-1|
000004c0  30 35 f2 4d 28 55 44 25  2c 31 32 29 0d 03 02 23  |05.M(UD%,12)...#|
000004d0  e7 a6 2d 39 39 80 74 25  3d 30 80 79 25 28 55 25  |..-99.t%=0.y%(U%|
000004e0  29 3d 31 f2 74 61 6b 65  3a 74 25 3d 31 3a e1 0d  |)=1.take:t%=1:..|
000004f0  03 0c 15 e7 a6 2d 39 39  80 74 25 3d 31 f2 64 72  |.....-99.t%=1.dr|
00000500  6f 70 3a e1 0d 03 16 05  e1 0d 03 20 05 3a 0d 03  |op:........ .:..|
00000510  2a 0f dd f2 4d 28 63 78  25 2c 75 25 29 0d 03 34  |*...M(cx%,u%)..4|
00000520  17 e7 55 25 2b 75 25 3c  30 84 55 25 2b 75 25 3e  |..U%+u%<0.U%+u%>|
00000530  31 30 37 e1 0d 03 3e 17  e7 75 25 3d 31 e7 28 55  |107...>..u%=1.(U|
00000540  25 2b 75 25 29 83 31 32  3d 30 e1 0d 03 48 19 e7  |%+u%).12=0...H..|
00000550  75 25 3d 2d 31 e7 28 55  25 2b 75 25 29 83 31 32  |u%=-1.(U%+u%).12|
00000560  3d 31 31 e1 0d 03 52 0c  55 25 3d 55 25 2b 75 25  |=11...R.U%=U%+u%|
00000570  0d 03 5c 12 f2 64 72 61  77 28 43 58 25 2c 43 4d  |..\..draw(CX%,CM|
00000580  25 29 0d 03 66 0f 43 58  25 3d 43 58 25 2b 63 78  |%)..f.CX%=CX%+cx|
00000590  25 0d 03 70 12 f2 64 72  61 77 28 43 58 25 2c 43  |%..p..draw(CX%,C|
000005a0  4d 25 29 0d 03 7a 0e e3  54 3d 31 b8 31 35 30 3a  |M%)..z..T=1.150:|
000005b0  ed 0d 03 84 05 e1 0d 03  8e 05 3a 0d 03 98 0a dd  |..........:.....|
000005c0  f2 74 61 6b 65 0d 03 a2  0c 79 25 28 55 25 29 3d  |.take....y%(U%)=|
000005d0  30 0d 03 ac 12 f2 64 72  61 77 28 43 58 25 2c 43  |0.....draw(CX%,C|
000005e0  4d 25 29 0d 03 b6 0d 43  4d 25 3d 26 32 43 30 30  |M%)....CM%=&2C00|
000005f0  0d 03 c0 1f 21 26 37 30  3d 43 58 25 3a 21 26 37  |....!&70=CX%:!&7|
00000600  32 3d 43 4d 25 3a d6 72  65 70 6c 61 63 65 25 0d  |2=CM%:.replace%.|
00000610  03 ca 10 d4 31 2c 2d 31  33 2c 32 30 30 2c 31 0d  |....1,-13,200,1.|
00000620  03 d4 0e d1 3d 30 3a f5  fd 91 3e 33 30 0d 03 de  |....=0:...>30...|
00000630  05 e1 0d 03 e8 05 3a 0d  03 f2 0a dd f2 64 72 6f  |......:......dro|
00000640  70 0d 03 fc 19 e7 79 25  28 55 25 29 3d 31 d4 31  |p.....y%(U%)=1.1|
00000650  2c 2d 31 33 2c 30 2c 32  3a e1 0d 04 06 21 21 26  |,-13,0,2:....!!&|
00000660  37 30 3d 43 58 25 3a 21  26 37 32 3d 26 32 43 37  |70=CX%:!&72=&2C7|
00000670  30 3a d6 72 65 70 6c 61  63 65 25 0d 04 10 0d 43  |0:.replace%....C|
00000680  4d 25 3d 26 32 44 30 30  0d 04 1a 0f d4 31 2c 2d  |M%=&2D00.....1,-|
00000690  31 33 2c 32 30 2c 31 0d  04 24 0e d1 3d 30 3a f5  |13,20,1..$..=0:.|
000006a0  fd 91 3e 33 30 0d 04 2e  12 f2 64 72 61 77 28 43  |..>30.....draw(C|
000006b0  58 25 2c 43 4d 25 29 0d  04 38 0c 79 25 28 55 25  |X%,CM%)..8.y%(U%|
000006c0  29 3d 31 0d 04 42 08 74  25 3d 30 0d 04 4c 05 e1  |)=1..B.t%=0..L..|
000006d0  0d 04 56 05 3a 0d 04 60  0b dd f2 69 6e 69 74 32  |..V.:..`...init2|
000006e0  0d 04 6a 18 e3 49 25 3d  30 b8 31 30 37 3a 79 25  |..j..I%=0.107:y%|
000006f0  28 49 25 29 3d 30 3a ed  0d 04 74 09 5a 25 3d 2d  |(I%)=0:...t.Z%=-|
00000700  31 0d 04 7e 08 7a 25 3d  30 0d 04 88 0b e3 4a 25  |1..~.z%=0.....J%|
00000710  3d 30 b8 38 0d 04 92 0c  e3 49 25 3d 30 b8 31 31  |=0.8.....I%=0.11|
00000720  0d 04 9c 0b 5a 25 3d 5a  25 2b 31 0d 04 a6 23 59  |....Z%=Z%+1...#Y|
00000730  25 28 5a 25 29 3d 26 33  32 41 30 2b 28 49 25 2a  |%(Z%)=&32A0+(I%*|
00000740  26 33 30 29 2b 28 4a 25  2a 31 39 32 30 29 0d 04  |&30)+(J%*1920)..|
00000750  b0 21 e7 49 25 3e 30 80  49 25 3c 31 31 80 4a 25  |.!.I%>0.I%<11.J%|
00000760  3e 30 80 4a 25 3c 38 79  25 28 5a 25 29 3d 31 0d  |>0.J%<8y%(Z%)=1.|
00000770  04 ba 05 ed 0d 04 c4 05  ed 0d 04 ce 09 5a 25 3d  |.............Z%=|
00000780  2d 31 0d 04 d8 0b e3 4a  25 3d 30 b8 36 0d 04 e2  |-1.....J%=0.6...|
00000790  0b e3 49 25 3d 30 b8 39  0d 04 ec 0b 5a 25 3d 5a  |..I%=0.9....Z%=Z|
000007a0  25 2b 31 0d 04 f6 23 58  25 28 5a 25 29 3d 26 33  |%+1...#X%(Z%)=&3|
000007b0  41 35 30 2b 28 49 25 2a  26 33 30 29 2b 28 4a 25  |A50+(I%*&30)+(J%|
000007c0  2a 31 39 32 30 29 0d 05  00 05 ed 0d 05 0a 05 ed  |*1920)..........|
000007d0  0d 05 14 05 e1 0d 05 1e  05 3a 0d 05 28 09 dd f2  |.........:..(...|
000007e0  72 6e 64 0d 05 32 08 43  25 3d 30 0d 05 3c 05 f5  |rnd..2.C%=0..<..|
000007f0  0d 05 46 19 f5 52 25 3d  b3 28 37 30 29 2d 31 3a  |..F..R%=.(70)-1:|
00000800  fd 58 25 28 52 25 29 3e  31 0d 05 50 26 51 25 3d  |.X%(R%)>1..P&Q%=|
00000810  52 25 3a 71 25 3d 52 25  81 31 30 3a 71 25 3d 71  |R%:q%=R%.10:q%=q|
00000820  25 2a 32 3a 51 25 3d 51  25 2b 31 33 2b 71 25 0d  |%*2:Q%=Q%+13+q%.|
00000830  05 5a 0c 79 25 28 51 25  29 3d 30 0d 05 64 0b 43  |.Z.y%(Q%)=0..d.C|
00000840  25 3d 43 25 2b 31 0d 05  6e 18 56 25 3d b3 28 34  |%=C%+1..n.V%=.(4|
00000850  29 2d 31 3a e7 56 25 3d  30 e5 8d 74 56 45 0d 05  |)-1:.V%=0..tVE..|
00000860  78 0c e3 54 25 3d 31 b8  56 25 0d 05 82 09 f2 72  |x..T%=1.V%.....r|
00000870  6f 74 32 0d 05 8c 05 ed  0d 05 96 0c 50 25 3d 26  |ot2.........P%=&|
00000880  32 43 37 30 0d 05 a0 21  21 26 37 30 3d 58 25 28  |2C70...!!&70=X%(|
00000890  52 25 29 3a 21 26 37 32  3d 50 25 3a d6 72 65 70  |R%):!&72=P%:.rep|
000008a0  6c 61 63 65 25 0d 05 aa  14 f2 64 72 61 77 28 58  |lace%.....draw(X|
000008b0  25 28 52 25 29 2c 50 25  29 0d 05 b4 0c 58 25 28  |%(R%),P%)....X%(|
000008c0  52 25 29 3d 31 0d 05 be  1a f5 72 25 3d b3 28 31  |R%)=1.....r%=.(1|
000008d0  30 38 29 2d 31 3a fd 79  25 28 72 25 29 3d 30 0d  |08)-1:.y%(r%)=0.|
000008e0  05 c8 14 f2 64 72 61 77  28 59 25 28 72 25 29 2c  |....draw(Y%(r%),|
000008f0  50 25 29 0d 05 d2 0c 79  25 28 72 25 29 3d 31 0d  |P%)....y%(r%)=1.|
00000900  05 dc 0c fd 43 25 3d 6e  6f 70 25 0d 05 e6 05 e1  |....C%=nop%.....|
00000910  0d 05 f0 05 3a 0d 05 fa  0a dd f2 72 6f 74 32 0d  |....:......rot2.|
00000920  06 04 20 21 26 37 30 3d  58 25 28 52 25 29 3a 21  |.. !&70=X%(R%):!|
00000930  26 37 32 3d 6e 65 77 58  25 3a d6 72 6f 74 25 0d  |&72=newX%:.rot%.|
00000940  06 0e 21 21 26 37 30 3d  58 25 28 52 25 29 3a 21  |..!!&70=X%(R%):!|
00000950  26 37 32 3d 4d 25 3a d6  72 65 70 6c 61 63 65 25  |&72=M%:.replace%|
00000960  0d 06 18 14 f2 64 72 61  77 28 58 25 28 52 25 29  |.....draw(X%(R%)|
00000970  2c 4d 25 29 0d 06 22 24  21 26 37 30 3d 6e 65 77  |,M%).."$!&70=new|
00000980  58 25 2d 26 32 38 3a 21  26 37 32 3d 4d 25 3a d6  |X%-&28:!&72=M%:.|
00000990  72 65 70 6c 61 63 65 25  0d 06 2c 14 f2 64 72 61  |replace%..,..dra|
000009a0  77 28 58 25 28 52 25 29  2c 4d 25 29 0d 06 36 17  |w(X%(R%),M%)..6.|
000009b0  f2 64 72 61 77 28 6e 65  77 58 25 2d 26 32 38 2c  |.draw(newX%-&28,|
000009c0  4d 25 29 0d 06 40 05 e1  0d 06 4a 05 3a 0d 06 54  |M%)..@....J.:..T|
000009d0  0c dd f2 70 69 65 63 65  73 0d 06 5e 08 5a 25 3d  |...pieces..^.Z%=|
000009e0  30 0d 06 68 0b e3 4a 25  3d 30 b8 36 0d 06 72 0b  |0..h..J%=0.6..r.|
000009f0  e3 49 25 3d 30 b8 39 0d  06 7c 1c 41 25 3d 58 25  |.I%=0.9..|.A%=X%|
00000a00  2b 28 49 25 2a 26 33 30  29 2b 28 4a 25 2a 31 39  |+(I%*&30)+(J%*19|
00000a10  32 30 29 0d 06 86 21 e7  5a 25 3d 30 80 49 25 3e  |20)...!.Z%=0.I%>|
00000a20  30 80 49 25 3c 39 f2 61  6e 64 28 41 25 2c 26 32  |0.I%<9.and(A%,&2|
00000a30  42 31 30 29 0d 06 90 25  e7 5a 25 3d 30 80 49 25  |B10)...%.Z%=0.I%|
00000a40  3d 30 80 28 4a 25 83 32  29 3d 30 f2 61 6e 64 28  |=0.(J%.2)=0.and(|
00000a50  41 25 2c 26 32 39 46 30  29 0d 06 9a 25 e7 5a 25  |A%,&29F0)...%.Z%|
00000a60  3d 30 80 49 25 3d 39 80  28 4a 25 83 32 29 3d 31  |=0.I%=9.(J%.2)=1|
00000a70  f2 61 6e 64 28 41 25 2c  26 32 39 36 30 29 0d 06  |.and(A%,&2960)..|
00000a80  a4 21 e7 5a 25 3d 31 80  4a 25 3e 30 80 4a 25 3c  |.!.Z%=1.J%>0.J%<|
00000a90  36 f2 61 6e 64 28 41 25  2c 26 32 41 38 30 29 0d  |6.and(A%,&2A80).|
00000aa0  06 ae 1c e7 5a 25 3d 31  80 4a 25 3d 30 f2 61 6e  |....Z%=1.J%=0.an|
00000ab0  64 28 41 25 2c 26 32 38  44 30 29 0d 06 b8 1c e7  |d(A%,&28D0).....|
00000ac0  5a 25 3d 31 80 4a 25 3d  36 f2 61 6e 64 28 41 25  |Z%=1.J%=6.and(A%|
00000ad0  2c 26 32 38 34 30 29 0d  06 c2 0f 5a 25 3d 28 5a  |,&2840)....Z%=(Z|
00000ae0  25 2b 31 29 83 32 0d 06  cc 05 ed 0d 06 d6 0f 5a  |%+1).2.........Z|
00000af0  25 3d 28 5a 25 2b 31 29  83 32 0d 06 e0 05 ed 0d  |%=(Z%+1).2......|
00000b00  06 ea 05 e1 0d 06 f4 05  3a 0d 06 fe 10 dd f2 61  |........:......a|
00000b10  6e 64 28 78 25 2c 6d 25  29 0d 07 08 19 21 26 37  |nd(x%,m%)....!&7|
00000b20  30 3d 78 25 3a 21 26 37  32 3d 6d 25 3a d6 61 6e  |0=x%:!&72=m%:.an|
00000b30  64 25 0d 07 12 05 e1 0d  07 1c 05 3a 0d 07 26 0d  |d%.........:..&.|
00000b40  dd f2 77 69 6e 64 6f 77  73 0d 07 30 15 ef 32 34  |..windows..0..24|
00000b50  2c 30 3b 30 3b 31 35 36  3b 31 30 32 30 3b 0d 07  |,0;0;156;1020;..|
00000b60  3a 0c e6 30 2c 31 32 38  3a da 0d 07 44 15 ef 32  |:..0,128:...D..2|
00000b70  34 2c 30 3b 30 3b 31 32  37 36 3b 32 32 30 3b 0d  |4,0;0;1276;220;.|
00000b80  07 4e 05 da 0d 07 58 18  ef 32 34 2c 30 3b 38 39  |.N....X..24,0;89|
00000b90  36 3b 31 32 37 36 3b 31  30 32 30 3b 0d 07 62 05  |6;1276;1020;..b.|
00000ba0  da 0d 07 6c 19 ef 32 34  2c 31 31 32 30 3b 30 3b  |...l..24,1120;0;|
00000bb0  31 32 37 36 3b 31 30 32  30 3b 0d 07 76 05 da 0d  |1276;1020;..v...|
00000bc0  07 80 07 ef 32 36 0d 07  8a 05 e1 0d 07 94 05 3a  |....26.........:|
00000bd0  0d 07 9e 11 dd f2 70 69  63 73 3a ea 58 25 2c 59  |......pics:.X%,Y|
00000be0  25 0d 07 a8 09 2a 46 58  31 35 0d 07 b2 0a fb 31  |%....*FX15.....1|
00000bf0  33 31 3a db 0d 07 bc 06  ef 35 0d 07 c6 11 58 25  |31:......5....X%|
00000c00  3d 32 35 36 3a 59 25 3d  38 36 34 0d 07 d0 09 f7  |=256:Y%=864.....|
00000c10  8d 44 5c 48 0d 07 da 05  f5 0d 07 e4 07 f3 77 24  |.D\H..........w$|
00000c20  0d 07 ee 08 e6 30 2c 31  0d 07 f8 0e ec 58 25 2c  |.....0,1.....X%,|
00000c30  59 25 3a f1 77 24 0d 08  02 17 e6 30 2c 32 3a ec  |Y%:.w$.....0,2:.|
00000c40  58 25 2b 34 2c 59 25 2b  34 3a f1 77 24 0d 08 0c  |X%+4,Y%+4:.w$...|
00000c50  0c 59 25 3d 59 25 2d 39  36 0d 08 16 0b fd 77 24  |.Y%=Y%-96.....w$|
00000c60  3d 22 20 22 0d 08 20 08  fb 31 32 38 0d 08 2a 09  |=" ".. ..128..*.|
00000c70  ef 34 2c 32 36 0d 08 34  1a 47 3d a5 2d 34 38 3a  |.4,26..4.G=.-48:|
00000c80  e7 47 3c 31 20 84 20 47  3e 32 e5 8d 54 74 48 0d  |.G<1 . G>2..TtH.|
00000c90  08 3e 0d e7 47 3d 31 f2  74 65 73 74 0d 08 48 0d  |.>..G=1.test..H.|
00000ca0  e7 47 3d 32 f2 6c 6f 61  64 0d 08 52 05 e1 0d 08  |.G=2.load..R....|
00000cb0  5c 8b dc 4a 49 47 53 41  57 20 4b 45 59 53 20 3d  |\..JIGSAW KEYS =|
00000cc0  2c 5a 20 58 20 2a 20 3f  20 3d 20 4d 6f 76 65 20  |,Z X * ? = Move |
00000cd0  43 75 72 73 6f 72 2c 53  50 41 43 45 20 3d 20 50  |Cursor,SPACE = P|
00000ce0  49 43 4b 2f 50 4c 41 43  45 20 50 49 45 43 45 2c  |ICK/PLACE PIECE,|
00000cf0  52 45 54 55 52 4e 20 3d  20 52 4f 54 41 54 45 20  |RETURN = ROTATE |
00000d00  50 49 45 43 45 2c 4f 50  54 49 4f 4e 53 20 3d 2c  |PIECE,OPTIONS =,|
00000d10  31 29 20 55 53 45 20 54  48 45 20 54 45 53 54 20  |1) USE THE TEST |
00000d20  50 49 43 2c 32 29 20 4c  4f 41 44 20 59 4f 55 52  |PIC,2) LOAD YOUR|
00000d30  20 4f 57 4e 20 50 49 43  21 0d 08 66 08 dc 22 20  | OWN PIC!..f.." |
00000d40  22 0d 08 70 05 3a 0d 08  7a 0a dd f2 6c 6f 61 64  |"..p.:..z...load|
00000d50  0d 08 84 0a ea 58 25 2c  59 25 0d 08 8e 05 db 0d  |.....X%,Y%......|
00000d60  08 98 2d f1 22 57 68 61  74 20 69 73 20 74 68 65  |..-."What is the|
00000d70  20 6e 61 6d 65 20 6f 66  20 79 6f 75 72 20 73 61  | name of your sa|
00000d80  76 65 64 20 73 63 72 65  65 6e 3f 22 0d 08 a2 0a  |ved screen?"....|
00000d90  e8 6e 61 6d 65 24 0d 08  ac 1f 24 26 37 30 30 3d  |.name$....$&700=|
00000da0  22 4c 4f 41 44 20 22 2b  6e 61 6d 65 24 2b 22 20  |"LOAD "+name$+" |
00000db0  33 30 30 30 22 0d 08 b6  0f 59 25 3d 37 3a d6 26  |3000"....Y%=7:.&|
00000dc0  46 46 46 37 0d 08 c0 05  e1 0d 08 ca 05 3a 0d 08  |FFF7.........:..|
00000dd0  d4 11 dd f2 74 65 73 74  3a fb 31 32 38 3a db 0d  |....test:.128:..|
00000de0  08 e8 0d ea 5a 25 2c 61  25 2c 62 25 0d 08 f2 08  |....Z%,a%,b%....|
00000df0  5a 25 3d 31 0d 08 fc 13  e3 4a 25 3d 38 39 32 b8  |Z%=1.....J%=892.|
00000e00  32 35 36 88 2d 39 36 0d  09 06 13 e3 49 25 3d 31  |256.-96.....I%=1|
00000e10  36 30 b8 31 30 32 34 88  39 36 0d 09 10 09 e6 30  |60.1024.96.....0|
00000e20  2c 5a 25 0d 09 1a 2c ec  49 25 2c 4a 25 3a f0 31  |,Z%...,.I%,J%:.1|
00000e30  2c 39 36 2c 30 3a f0 38  31 2c 2d 39 36 2c 2d 39  |,96,0:.81,-96,-9|
00000e40  36 3a e6 30 2c 33 3a f0  38 31 2c 39 36 2c 30 0d  |6:.0,3:.81,96,0.|
00000e50  09 24 0d 5a 25 3d 5a 25  83 32 2b 31 0d 09 2e 05  |.$.Z%=Z%.2+1....|
00000e60  ed 0d 09 38 0d 5a 25 3d  5a 25 83 32 2b 31 0d 09  |...8.Z%=Z%.2+1..|
00000e70  42 05 ed 0d 09 4c 0f f7  8d 54 40 4a 3a 61 64 64  |B....L...T@J:add|
00000e80  3d 30 0d 09 56 07 ef 32  36 0d 09 60 0a e3 54 3d  |=0..V..26..`..T=|
00000e90  31 b8 32 0d 09 6a 3c f3  77 24 3a ef 35 3a e6 30  |1.2..j<.w$:.5:.0|
00000ea0  2c 30 3a ec 33 32 2c 39  39 32 3a ef 32 35 35 2c  |,0:.32,992:.255,|
00000eb0  32 35 35 2c 32 35 35 2c  32 35 35 3a e6 30 2c 31  |255,255,255:.0,1|
00000ec0  3a ec 33 32 2c 39 39 32  3a f1 77 24 3a ef 34 0d  |:.32,992:.w$:.4.|
00000ed0  09 74 11 61 25 3d 34 3a  62 25 3d 35 2b 61 64 64  |.t.a%=4:b%=5+add|
00000ee0  0d 09 7e 0b fb 32 3a fb  31 33 31 0d 09 88 10 e3  |..~..2:.131.....|
00000ef0  4a 25 3d 33 32 b8 31 36  30 88 34 0d 09 92 12 e3  |J%=32.160.4.....|
00000f00  49 25 3d 39 39 32 b8 39  36 30 88 2d 34 0d 09 9c  |I%=992.960.-4...|
00000f10  1a e7 b0 4a 25 2c 49 25  29 3d 31 f1 8a 61 25 2c  |...J%,I%)=1..a%,|
00000f20  62 25 29 bd 32 32 34 0d  09 a6 0b 62 25 3d 62 25  |b%).224....b%=b%|
00000f30  2b 31 0d 09 b0 05 ed 0d  09 ba 14 61 25 3d 61 25  |+1.........a%=a%|
00000f40  2b 31 3a 62 25 3d 35 2b  61 64 64 0d 09 c4 05 ed  |+1:b%=5+add.....|
00000f50  0d 09 ce 0e 61 64 64 3d  61 64 64 2b 31 32 0d 09  |....add=add+12..|
00000f60  d8 05 ed 0d 09 e2 30 fb  31 32 38 3a fb 32 3a f1  |......0.128:.2:.|
00000f70  8a 36 2c 31 34 29 22 20  54 48 45 20 42 42 43 20  |.6,14)" THE BBC |
00000f80  4d 49 43 52 4f 20 54 45  53 54 20 53 43 52 45 45  |MICRO TEST SCREE|
00000f90  4e 21 22 0d 09 ec 0b fb  31 3a fb 31 32 38 0d 09  |N!".....1:.128..|
00000fa0  f6 05 e1 0d 0a 00 0e dc  4d 49 4b 45 2c 4c 45 41  |........MIKE,LEA|
00000fb0  21 0d ff                                          |!..|
00000fb3