$�><BASICSAVE$DIR>.Mozaic Madness
� by James Bonfield
� (C) The Micro User
(
maxSize=7
2� �>&8000 maxSize=20:� �Dn@
<
� � �Dd@
F	*TAPE
P*SHADOW ON
ZmaxSize=20
d*KEY10S%=FALSE|MOLD|MRUN|M
n� � �error
x�1:�23,1,0;0;0;0;
��instructions:�setup
�"� �>&8000 �12:xx=76 � �2:xx=16
�	�init
��draw_grid
�"�fx(4,1):�fx(11,10):�fx(122,8)
��key:�play_game
�9�I=1�200�4:�1,-15,I,1:�2,-15,I+55,1:�3,-15,I*2.56,1:�
��7
��congratulations
��
�:
�� �draw_grid
�� X=1 � grid

� Y=1 � grid

grid(X,Y)=�(maxCol)

�plot_tile(X,Y,�)

"	�:�:�

,:

6� �plot_tile(X,Y,covered)

@sqrSiz=1020/grid

J#� (X-1)*sqrSiz+8,(Y-1)*sqrSiz+4

T� 0,(grid(X,Y)�128)

^� X*sqrSiz-8,(Y-1)*sqrSiz+4

h� 85,X*sqrSiz-8,Y*sqrSiz-4

r� (X-1)*sqrSiz+8,Y*sqrSiz-4

|&� 85,(X-1)*sqrSiz+8,(Y-1)*sqrSiz+4

�� covered �

�"� size=sqrSiz/6 � sqrSiz/3 � 8

��plot_box(X,Y,0,size):�:�

�:

�� �play_game

�X=grid �2+1:Y=grid �2+1

��

��plot_box(X,Y,7,0)

�OX=X:OY=Y:�scan_keys

��plot_box(OX,OY,0,0)

�� won �

�� �

�:
"� �plot_box(X,Y,colour,shrink)
-� (X-1)*sqrSiz+shrink,(Y-1)*sqrSiz+shrink
� 0,colour
&)� X*sqrSiz-shrink,(Y-1)*sqrSiz+shrink
0%� X*sqrSiz-shrink,Y*sqrSiz-shrink
:)� (X-1)*sqrSiz+shrink,Y*sqrSiz-shrink
D-� (X-1)*sqrSiz+shrink,(Y-1)*sqrSiz+shrink
N�
X:
b� �scan_keys
l%K%=�"ZzXx/?:;1122334455667788",�)
vK%=(K%+1)/2
�� K%=1 � X>1 X=X-1
�� K%=2 � X<grid X=X+1
�� K%=3 � Y>1 Y=Y-1
�� K%=4 � Y<grid Y=Y+1
�.K%=K%-4:� K%>=1 � K%<=maxCol �lay_tile(K%)
��
�:
���lay_tile(K)*FX15
�-� grid(X,Y)>=100 � C(K)=0 � 1,-15,10,10:�
�~� (grid(X,Y)�128)=K � (grid(X-1,Y)�128)=K � (grid(X+1,Y)�128)=K � (grid(X,Y-1)�128)=K � (grid(X,Y+1)�128)=K �1,-15,10,10:�
�r� (grid(X-1,Y-1)�128)=K � (grid(X+1,Y-1)�128)=K � (grid(X-1,Y+1)�128)=K � (grid(X+1,Y+1)�128)=K �1,-15,10,10:�
�%grid(X,Y)=K+128:�plot_tile(X,Y,�)
��1,-15,200,5:C(K)=C(K)-1
�check_won

�key:�
:
 
� �key
*� I=1 � maxCol:� I
4�xx,I*4)�(4)
>�xx,I*4);I" ";C(I)
H�:�
R:
\� �init:won=�:�
f"�C(maxCol),grid(grid+1,grid+1)
p)� I=1 � maxCol:C(I)=grid^2 � maxCol:�
z!total=C(1)*maxCol:lowest=C(1)
�V� total<>grid^2 �:temp=�(5):� C(temp)=lowest:C(temp)=C(temp)+1:total=total+1:�tDC
��23,1,0;0;0;0;:�
�:
�� �setup:� 1
�*� �:�"grid (2-";maxSize") : ";:�""grid
�� grid>=2 � grid<=maxSize
�/�'"DIFFICULTY LEVEL (3-EASY TO 1-HARD) : ";
�(� maxCol=�-48:� maxCol>0 � maxCol <4
�maxCol=maxCol+4:�
�:
�� �check_won
�3total=0:� temp=1 � maxCol:total=total+C(temp):�
�� total=0 won=� � won=�
�
:
� �error
$� �=17 � ��-1 �
.�fx(4,0):�fx(12,0)
8�:�" at line ";�:�
B:
L� �congratulations
V'�9,5)�136�141�132"CONGRATULATIONS"
`'�9,6)�136�141�132"CONGRATULATIONS"
jZ�'''�131"Well done!! You have solved this puzzle"'�131"Now try a different size grid."
t(�8,20)�129"PRESS SPACE TO CONTINUE"
~�:X=�:�X=32
��
�:
�� �instructions:�fx(11,0)
�(�"Do you want instructions?(Y or N)"
�K%=�"Yy",�):� K%=0 �
��fx(200,1)
��display1:�space
��display2:�space
��fx(13,4):�fx(200,0)
��
�:
�� �display1
�2:�14,1)"TILES PUZZLE"

�3
t�''"    This puzzle starts with a coloured  grid. You are given coloured tiles whichmust be placed on the grid."
��''"    The grid can be filled in any order and the tiles can be placed in any      sequence, subject to the following threerules."
(S� 1:�''"1: ";:� 3:�"A tile cannot be placed on a square     of its own colour."
2~� 1:�'"2: ";:� 3:�"A tile cannot be placed next to a       sqaure of its own colour, either side   by side or diagonally."
<S� 1:�'"3: ";:� 3:�"Only one tile may be placed on each     square of the grid."
FC�''"    Note that only the top (exposed)    colour is counted."
P�
Z:
d� �display2:�
n� 2:�18,1)"KEYS"
x"� 1:�'''�(12)"LEFT";�(10)"'Z'"
��'�(12)"RIGHT";�(9)"'X'"
��'�(12)"UP";�(12)"':'"
��'�(12)"DOWN";�(10)"'/'"
��� 3:�'''"    To place a tile, move the flashing  cursor to the required tile. Then press a number from 1 to 5 corresponding with the desired colour."
�L�''"    The game is completed when all of   the tiles have been placed."
�@�''"    If you get stuck then press <ESCAPE>to start again."
��
�:
�� �space:� 2
�$�9,30)"PRESS SPACE TO CONTINUE"
�� � �=32:�
�:
���fx(A%,X%)�Y%:�&FFF4:�
�

00000000  0d 00 0a 24 f4 3e 3c 42  41 53 49 43 53 41 56 45  |...$.><BASICSAVE|
00000010  24 44 49 52 3e 2e 4d 6f  7a 61 69 63 20 4d 61 64  |$DIR>.Mozaic Mad|
00000020  6e 65 73 73 0d 00 14 17  f4 20 62 79 20 4a 61 6d  |ness..... by Jam|
00000030  65 73 20 42 6f 6e 66 69  65 6c 64 0d 00 1e 18 f4  |es Bonfield.....|
00000040  20 28 43 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (C) The Micro U|
00000050  73 65 72 0d 00 28 0d 6d  61 78 53 69 7a 65 3d 37  |ser..(.maxSize=7|
00000060  0d 00 32 1f e7 20 90 3e  26 38 30 30 30 20 6d 61  |..2.. .>&8000 ma|
00000070  78 53 69 7a 65 3d 32 30  3a e5 20 8d 44 6e 40 0d  |xSize=20:. .Dn@.|
00000080  00 3c 0d ee 20 85 20 e5  8d 44 64 40 0d 00 46 09  |.<.. . ..Dd@..F.|
00000090  2a 54 41 50 45 0d 00 50  0e 2a 53 48 41 44 4f 57  |*TAPE..P.*SHADOW|
000000a0  20 4f 4e 0d 00 5a 0e 6d  61 78 53 69 7a 65 3d 32  | ON..Z.maxSize=2|
000000b0  30 0d 00 64 1e 2a 4b 45  59 31 30 53 25 3d 46 41  |0..d.*KEY10S%=FA|
000000c0  4c 53 45 7c 4d 4f 4c 44  7c 4d 52 55 4e 7c 4d 0d  |LSE|MOLD|MRUN|M.|
000000d0  00 6e 0e ee 20 85 20 f2  65 72 72 6f 72 0d 00 78  |.n.. . .error..x|
000000e0  15 eb 31 3a ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |..1:.23,1,0;0;0;|
000000f0  30 3b 0d 00 82 18 f2 69  6e 73 74 72 75 63 74 69  |0;.....instructi|
00000100  6f 6e 73 3a f2 73 65 74  75 70 0d 00 8c 22 e7 20  |ons:.setup...". |
00000110  90 3e 26 38 30 30 30 20  eb 31 32 3a 78 78 3d 37  |.>&8000 .12:xx=7|
00000120  36 20 8b 20 eb 32 3a 78  78 3d 31 36 0d 00 96 09  |6 . .2:xx=16....|
00000130  f2 69 6e 69 74 0d 00 a0  0e f2 64 72 61 77 5f 67  |.init.....draw_g|
00000140  72 69 64 0d 00 aa 22 f2  66 78 28 34 2c 31 29 3a  |rid...".fx(4,1):|
00000150  f2 66 78 28 31 31 2c 31  30 29 3a f2 66 78 28 31  |.fx(11,10):.fx(1|
00000160  32 32 2c 38 29 0d 00 b4  13 f2 6b 65 79 3a f2 70  |22,8).....key:.p|
00000170  6c 61 79 5f 67 61 6d 65  0d 00 be 39 e3 49 3d 31  |lay_game...9.I=1|
00000180  b8 32 30 30 88 34 3a d4  31 2c 2d 31 35 2c 49 2c  |.200.4:.1,-15,I,|
00000190  31 3a d4 32 2c 2d 31 35  2c 49 2b 35 35 2c 31 3a  |1:.2,-15,I+55,1:|
000001a0  d4 33 2c 2d 31 35 2c 49  2a 32 2e 35 36 2c 31 3a  |.3,-15,I*2.56,1:|
000001b0  ed 0d 00 c8 06 eb 37 0d  00 d2 14 f2 63 6f 6e 67  |......7.....cong|
000001c0  72 61 74 75 6c 61 74 69  6f 6e 73 0d 00 dc 05 f9  |ratulations.....|
000001d0  0d 00 e6 05 3a 0d 00 f0  10 dd 20 f2 64 72 61 77  |....:..... .draw|
000001e0  5f 67 72 69 64 0d 00 fa  10 e3 20 58 3d 31 20 b8  |_grid..... X=1 .|
000001f0  20 67 72 69 64 0d 01 04  10 e3 20 59 3d 31 20 b8  | grid..... Y=1 .|
00000200  20 67 72 69 64 0d 01 0e  17 67 72 69 64 28 58 2c  | grid....grid(X,|
00000210  59 29 3d b3 28 6d 61 78  43 6f 6c 29 0d 01 18 15  |Y)=.(maxCol)....|
00000220  f2 70 6c 6f 74 5f 74 69  6c 65 28 58 2c 59 2c a3  |.plot_tile(X,Y,.|
00000230  29 0d 01 22 09 ed 3a ed  3a e1 0d 01 2c 05 3a 0d  |).."..:.:...,.:.|
00000240  01 36 1d dd 20 f2 70 6c  6f 74 5f 74 69 6c 65 28  |.6.. .plot_tile(|
00000250  58 2c 59 2c 63 6f 76 65  72 65 64 29 0d 01 40 14  |X,Y,covered)..@.|
00000260  73 71 72 53 69 7a 3d 31  30 32 30 2f 67 72 69 64  |sqrSiz=1020/grid|
00000270  0d 01 4a 23 ec 20 28 58  2d 31 29 2a 73 71 72 53  |..J#. (X-1)*sqrS|
00000280  69 7a 2b 38 2c 28 59 2d  31 29 2a 73 71 72 53 69  |iz+8,(Y-1)*sqrSi|
00000290  7a 2b 34 0d 01 54 17 e6  20 30 2c 28 67 72 69 64  |z+4..T.. 0,(grid|
000002a0  28 58 2c 59 29 83 31 32  38 29 0d 01 5e 1f ec 20  |(X,Y).128)..^.. |
000002b0  58 2a 73 71 72 53 69 7a  2d 38 2c 28 59 2d 31 29  |X*sqrSiz-8,(Y-1)|
000002c0  2a 73 71 72 53 69 7a 2b  34 0d 01 68 1e f0 20 38  |*sqrSiz+4..h.. 8|
000002d0  35 2c 58 2a 73 71 72 53  69 7a 2d 38 2c 59 2a 73  |5,X*sqrSiz-8,Y*s|
000002e0  71 72 53 69 7a 2d 34 0d  01 72 1f ec 20 28 58 2d  |qrSiz-4..r.. (X-|
000002f0  31 29 2a 73 71 72 53 69  7a 2b 38 2c 59 2a 73 71  |1)*sqrSiz+8,Y*sq|
00000300  72 53 69 7a 2d 34 0d 01  7c 26 f0 20 38 35 2c 28  |rSiz-4..|&. 85,(|
00000310  58 2d 31 29 2a 73 71 72  53 69 7a 2b 38 2c 28 59  |X-1)*sqrSiz+8,(Y|
00000320  2d 31 29 2a 73 71 72 53  69 7a 2b 34 0d 01 86 0f  |-1)*sqrSiz+4....|
00000330  e7 20 63 6f 76 65 72 65  64 20 e1 0d 01 90 22 e3  |. covered ....".|
00000340  20 73 69 7a 65 3d 73 71  72 53 69 7a 2f 36 20 b8  | size=sqrSiz/6 .|
00000350  20 73 71 72 53 69 7a 2f  33 20 88 20 38 0d 01 9a  | sqrSiz/3 . 8...|
00000360  1d f2 70 6c 6f 74 5f 62  6f 78 28 58 2c 59 2c 30  |..plot_box(X,Y,0|
00000370  2c 73 69 7a 65 29 3a ed  3a e1 0d 01 a4 05 3a 0d  |,size):.:.....:.|
00000380  01 ae 10 dd 20 f2 70 6c  61 79 5f 67 61 6d 65 0d  |.... .play_game.|
00000390  01 b8 1b 58 3d 67 72 69  64 20 81 32 2b 31 3a 59  |...X=grid .2+1:Y|
000003a0  3d 67 72 69 64 20 81 32  2b 31 0d 01 c2 05 f5 0d  |=grid .2+1......|
000003b0  01 cc 16 f2 70 6c 6f 74  5f 62 6f 78 28 58 2c 59  |....plot_box(X,Y|
000003c0  2c 37 2c 30 29 0d 01 d6  18 4f 58 3d 58 3a 4f 59  |,7,0)....OX=X:OY|
000003d0  3d 59 3a f2 73 63 61 6e  5f 6b 65 79 73 0d 01 e0  |=Y:.scan_keys...|
000003e0  18 f2 70 6c 6f 74 5f 62  6f 78 28 4f 58 2c 4f 59  |..plot_box(OX,OY|
000003f0  2c 30 2c 30 29 0d 01 ea  0b e7 20 77 6f 6e 20 e1  |,0,0)..... won .|
00000400  0d 01 f4 07 fd 20 a3 0d  01 fe 05 3a 0d 02 08 22  |..... .....:..."|
00000410  dd 20 f2 70 6c 6f 74 5f  62 6f 78 28 58 2c 59 2c  |. .plot_box(X,Y,|
00000420  63 6f 6c 6f 75 72 2c 73  68 72 69 6e 6b 29 0d 02  |colour,shrink)..|
00000430  12 2d ec 20 28 58 2d 31  29 2a 73 71 72 53 69 7a  |.-. (X-1)*sqrSiz|
00000440  2b 73 68 72 69 6e 6b 2c  28 59 2d 31 29 2a 73 71  |+shrink,(Y-1)*sq|
00000450  72 53 69 7a 2b 73 68 72  69 6e 6b 0d 02 1c 0e e6  |rSiz+shrink.....|
00000460  20 30 2c 63 6f 6c 6f 75  72 0d 02 26 29 df 20 58  | 0,colour..&). X|
00000470  2a 73 71 72 53 69 7a 2d  73 68 72 69 6e 6b 2c 28  |*sqrSiz-shrink,(|
00000480  59 2d 31 29 2a 73 71 72  53 69 7a 2b 73 68 72 69  |Y-1)*sqrSiz+shri|
00000490  6e 6b 0d 02 30 25 df 20  58 2a 73 71 72 53 69 7a  |nk..0%. X*sqrSiz|
000004a0  2d 73 68 72 69 6e 6b 2c  59 2a 73 71 72 53 69 7a  |-shrink,Y*sqrSiz|
000004b0  2d 73 68 72 69 6e 6b 0d  02 3a 29 df 20 28 58 2d  |-shrink..:). (X-|
000004c0  31 29 2a 73 71 72 53 69  7a 2b 73 68 72 69 6e 6b  |1)*sqrSiz+shrink|
000004d0  2c 59 2a 73 71 72 53 69  7a 2d 73 68 72 69 6e 6b  |,Y*sqrSiz-shrink|
000004e0  0d 02 44 2d df 20 28 58  2d 31 29 2a 73 71 72 53  |..D-. (X-1)*sqrS|
000004f0  69 7a 2b 73 68 72 69 6e  6b 2c 28 59 2d 31 29 2a  |iz+shrink,(Y-1)*|
00000500  73 71 72 53 69 7a 2b 73  68 72 69 6e 6b 0d 02 4e  |sqrSiz+shrink..N|
00000510  05 e1 0d 02 58 05 3a 0d  02 62 10 dd 20 f2 73 63  |....X.:..b.. .sc|
00000520  61 6e 5f 6b 65 79 73 0d  02 6c 25 4b 25 3d a7 22  |an_keys..l%K%=."|
00000530  5a 7a 58 78 2f 3f 3a 3b  31 31 32 32 33 33 34 34  |ZzXx/?:;11223344|
00000540  35 35 36 36 37 37 38 38  22 2c be 29 0d 02 76 0f  |55667788",.)..v.|
00000550  4b 25 3d 28 4b 25 2b 31  29 2f 32 0d 02 80 16 e7  |K%=(K%+1)/2.....|
00000560  20 4b 25 3d 31 20 e7 20  58 3e 31 20 58 3d 58 2d  | K%=1 . X>1 X=X-|
00000570  31 0d 02 8a 19 e7 20 4b  25 3d 32 20 e7 20 58 3c  |1..... K%=2 . X<|
00000580  67 72 69 64 20 58 3d 58  2b 31 0d 02 94 16 e7 20  |grid X=X+1..... |
00000590  4b 25 3d 33 20 e7 20 59  3e 31 20 59 3d 59 2d 31  |K%=3 . Y>1 Y=Y-1|
000005a0  0d 02 9e 19 e7 20 4b 25  3d 34 20 e7 20 59 3c 67  |..... K%=4 . Y<g|
000005b0  72 69 64 20 59 3d 59 2b  31 0d 02 a8 2e 4b 25 3d  |rid Y=Y+1....K%=|
000005c0  4b 25 2d 34 3a e7 20 4b  25 3e 3d 31 20 e7 20 4b  |K%-4:. K%>=1 . K|
000005d0  25 3c 3d 6d 61 78 43 6f  6c 20 f2 6c 61 79 5f 74  |%<=maxCol .lay_t|
000005e0  69 6c 65 28 4b 25 29 0d  02 b2 05 e1 0d 02 bc 05  |ile(K%).........|
000005f0  3a 0d 02 c6 16 dd f2 6c  61 79 5f 74 69 6c 65 28  |:......lay_tile(|
00000600  4b 29 2a 46 58 31 35 0d  02 d0 2d e7 20 67 72 69  |K)*FX15...-. gri|
00000610  64 28 58 2c 59 29 3e 3d  31 30 30 20 84 20 43 28  |d(X,Y)>=100 . C(|
00000620  4b 29 3d 30 20 d4 20 31  2c 2d 31 35 2c 31 30 2c  |K)=0 . 1,-15,10,|
00000630  31 30 3a e1 0d 02 da 7e  e7 20 28 67 72 69 64 28  |10:....~. (grid(|
00000640  58 2c 59 29 83 31 32 38  29 3d 4b 20 84 20 28 67  |X,Y).128)=K . (g|
00000650  72 69 64 28 58 2d 31 2c  59 29 83 31 32 38 29 3d  |rid(X-1,Y).128)=|
00000660  4b 20 84 20 28 67 72 69  64 28 58 2b 31 2c 59 29  |K . (grid(X+1,Y)|
00000670  83 31 32 38 29 3d 4b 20  84 20 28 67 72 69 64 28  |.128)=K . (grid(|
00000680  58 2c 59 2d 31 29 83 31  32 38 29 3d 4b 20 84 20  |X,Y-1).128)=K . |
00000690  28 67 72 69 64 28 58 2c  59 2b 31 29 83 31 32 38  |(grid(X,Y+1).128|
000006a0  29 3d 4b 20 d4 31 2c 2d  31 35 2c 31 30 2c 31 30  |)=K .1,-15,10,10|
000006b0  3a e1 0d 02 e4 72 e7 20  28 67 72 69 64 28 58 2d  |:....r. (grid(X-|
000006c0  31 2c 59 2d 31 29 83 31  32 38 29 3d 4b 20 84 20  |1,Y-1).128)=K . |
000006d0  28 67 72 69 64 28 58 2b  31 2c 59 2d 31 29 83 31  |(grid(X+1,Y-1).1|
000006e0  32 38 29 3d 4b 20 84 20  28 67 72 69 64 28 58 2d  |28)=K . (grid(X-|
000006f0  31 2c 59 2b 31 29 83 31  32 38 29 3d 4b 20 84 20  |1,Y+1).128)=K . |
00000700  28 67 72 69 64 28 58 2b  31 2c 59 2b 31 29 83 31  |(grid(X+1,Y+1).1|
00000710  32 38 29 3d 4b 20 d4 31  2c 2d 31 35 2c 31 30 2c  |28)=K .1,-15,10,|
00000720  31 30 3a e1 0d 02 ee 25  67 72 69 64 28 58 2c 59  |10:....%grid(X,Y|
00000730  29 3d 4b 2b 31 32 38 3a  f2 70 6c 6f 74 5f 74 69  |)=K+128:.plot_ti|
00000740  6c 65 28 58 2c 59 2c b9  29 0d 02 f8 1c d4 31 2c  |le(X,Y,.).....1,|
00000750  2d 31 35 2c 32 30 30 2c  35 3a 43 28 4b 29 3d 43  |-15,200,5:C(K)=C|
00000760  28 4b 29 2d 31 0d 03 02  0e f2 63 68 65 63 6b 5f  |(K)-1.....check_|
00000770  77 6f 6e 0d 03 0c 0a f2  6b 65 79 3a e1 0d 03 16  |won.....key:....|
00000780  05 3a 0d 03 20 0a dd 20  f2 6b 65 79 0d 03 2a 16  |.:.. .. .key..*.|
00000790  e3 20 49 3d 31 20 b8 20  6d 61 78 43 6f 6c 3a fb  |. I=1 . maxCol:.|
000007a0  20 49 0d 03 34 11 f1 8a  78 78 2c 49 2a 34 29 89  | I..4...xx,I*4).|
000007b0  28 34 29 0d 03 3e 17 f1  8a 78 78 2c 49 2a 34 29  |(4)..>...xx,I*4)|
000007c0  3b 49 22 20 22 3b 43 28  49 29 0d 03 48 07 ed 3a  |;I" ";C(I)..H..:|
000007d0  e1 0d 03 52 05 3a 0d 03  5c 13 dd 20 f2 69 6e 69  |...R.:..\.. .ini|
000007e0  74 3a 77 6f 6e 3d a3 3a  db 0d 03 66 22 de 43 28  |t:won=.:...f".C(|
000007f0  6d 61 78 43 6f 6c 29 2c  67 72 69 64 28 67 72 69  |maxCol),grid(gri|
00000800  64 2b 31 2c 67 72 69 64  2b 31 29 0d 03 70 29 e3  |d+1,grid+1)..p).|
00000810  20 49 3d 31 20 b8 20 6d  61 78 43 6f 6c 3a 43 28  | I=1 . maxCol:C(|
00000820  49 29 3d 67 72 69 64 5e  32 20 81 20 6d 61 78 43  |I)=grid^2 . maxC|
00000830  6f 6c 3a ed 0d 03 7a 21  74 6f 74 61 6c 3d 43 28  |ol:...z!total=C(|
00000840  31 29 2a 6d 61 78 43 6f  6c 3a 6c 6f 77 65 73 74  |1)*maxCol:lowest|
00000850  3d 43 28 31 29 0d 03 84  56 e7 20 74 6f 74 61 6c  |=C(1)...V. total|
00000860  3c 3e 67 72 69 64 5e 32  20 f5 3a 74 65 6d 70 3d  |<>grid^2 .:temp=|
00000870  b3 28 35 29 3a fd 20 43  28 74 65 6d 70 29 3d 6c  |.(5):. C(temp)=l|
00000880  6f 77 65 73 74 3a 43 28  74 65 6d 70 29 3d 43 28  |owest:C(temp)=C(|
00000890  74 65 6d 70 29 2b 31 3a  74 6f 74 61 6c 3d 74 6f  |temp)+1:total=to|
000008a0  74 61 6c 2b 31 3a e5 8d  74 44 43 0d 03 8e 14 ef  |tal+1:..tDC.....|
000008b0  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 3a e1 0d  |23,1,0;0;0;0;:..|
000008c0  03 98 05 3a 0d 03 a2 10  dd 20 f2 73 65 74 75 70  |...:..... .setup|
000008d0  3a fb 20 31 0d 03 ac 2a  f5 20 db 3a f1 22 67 72  |:. 1...*. .:."gr|
000008e0  69 64 20 28 32 2d 22 3b  6d 61 78 53 69 7a 65 22  |id (2-";maxSize"|
000008f0  29 20 3a 20 22 3b 3a e8  22 22 67 72 69 64 0d 03  |) : ";:.""grid..|
00000900  b6 1d fd 20 67 72 69 64  3e 3d 32 20 80 20 67 72  |... grid>=2 . gr|
00000910  69 64 3c 3d 6d 61 78 53  69 7a 65 0d 03 c0 2f f1  |id<=maxSize.../.|
00000920  27 22 44 49 46 46 49 43  55 4c 54 59 20 4c 45 56  |'"DIFFICULTY LEV|
00000930  45 4c 20 28 33 2d 45 41  53 59 20 54 4f 20 31 2d  |EL (3-EASY TO 1-|
00000940  48 41 52 44 29 20 3a 20  22 3b 0d 03 ca 28 f5 20  |HARD) : ";...(. |
00000950  6d 61 78 43 6f 6c 3d a5  2d 34 38 3a fd 20 6d 61  |maxCol=.-48:. ma|
00000960  78 43 6f 6c 3e 30 20 80  20 6d 61 78 43 6f 6c 20  |xCol>0 . maxCol |
00000970  3c 34 0d 03 d4 15 6d 61  78 43 6f 6c 3d 6d 61 78  |<4....maxCol=max|
00000980  43 6f 6c 2b 34 3a e1 0d  03 de 05 3a 0d 03 e8 10  |Col+4:.....:....|
00000990  dd 20 f2 63 68 65 63 6b  5f 77 6f 6e 0d 03 f2 33  |. .check_won...3|
000009a0  74 6f 74 61 6c 3d 30 3a  e3 20 74 65 6d 70 3d 31  |total=0:. temp=1|
000009b0  20 b8 20 6d 61 78 43 6f  6c 3a 74 6f 74 61 6c 3d  | . maxCol:total=|
000009c0  74 6f 74 61 6c 2b 43 28  74 65 6d 70 29 3a ed 0d  |total+C(temp):..|
000009d0  03 fc 1b e7 20 74 6f 74  61 6c 3d 30 20 77 6f 6e  |.... total=0 won|
000009e0  3d b9 20 8b 20 77 6f 6e  3d a3 0d 04 06 05 e1 0d  |=. . won=.......|
000009f0  04 10 05 3a 0d 04 1a 0c  dd 20 f2 65 72 72 6f 72  |...:..... .error|
00000a00  0d 04 24 13 e7 20 9f 3d  31 37 20 e7 20 ac a6 2d  |..$.. .=17 . ..-|
00000a10  31 20 f9 0d 04 2e 16 f2  66 78 28 34 2c 30 29 3a  |1 ......fx(4,0):|
00000a20  f2 66 78 28 31 32 2c 30  29 0d 04 38 16 f6 3a f1  |.fx(12,0)..8..:.|
00000a30  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a e0 0d  |" at line ";.:..|
00000a40  04 42 05 3a 0d 04 4c 16  dd 20 f2 63 6f 6e 67 72  |.B.:..L.. .congr|
00000a50  61 74 75 6c 61 74 69 6f  6e 73 0d 04 56 27 f1 8a  |atulations..V'..|
00000a60  39 2c 35 29 bd 31 33 36  bd 31 34 31 bd 31 33 32  |9,5).136.141.132|
00000a70  22 43 4f 4e 47 52 41 54  55 4c 41 54 49 4f 4e 53  |"CONGRATULATIONS|
00000a80  22 0d 04 60 27 f1 8a 39  2c 36 29 bd 31 33 36 bd  |"..`'..9,6).136.|
00000a90  31 34 31 bd 31 33 32 22  43 4f 4e 47 52 41 54 55  |141.132"CONGRATU|
00000aa0  4c 41 54 49 4f 4e 53 22  0d 04 6a 5a f1 27 27 27  |LATIONS"..jZ.'''|
00000ab0  bd 31 33 31 22 57 65 6c  6c 20 64 6f 6e 65 21 21  |.131"Well done!!|
00000ac0  20 59 6f 75 20 68 61 76  65 20 73 6f 6c 76 65 64  | You have solved|
00000ad0  20 74 68 69 73 20 70 75  7a 7a 6c 65 22 27 bd 31  | this puzzle"'.1|
00000ae0  33 31 22 4e 6f 77 20 74  72 79 20 61 20 64 69 66  |31"Now try a dif|
00000af0  66 65 72 65 6e 74 20 73  69 7a 65 20 67 72 69 64  |ferent size grid|
00000b00  2e 22 0d 04 74 28 f1 8a  38 2c 32 30 29 bd 31 32  |."..t(..8,20).12|
00000b10  39 22 50 52 45 53 53 20  53 50 41 43 45 20 54 4f  |9"PRESS SPACE TO|
00000b20  20 43 4f 4e 54 49 4e 55  45 22 0d 04 7e 0f f5 3a  | CONTINUE"..~..:|
00000b30  58 3d a5 3a fd 58 3d 33  32 0d 04 88 05 e1 0d 04  |X=.:.X=32.......|
00000b40  92 05 3a 0d 04 9c 1d dd  20 f2 69 6e 73 74 72 75  |..:..... .instru|
00000b50  63 74 69 6f 6e 73 3a f2  66 78 28 31 31 2c 30 29  |ctions:.fx(11,0)|
00000b60  0d 04 a6 28 f1 22 44 6f  20 79 6f 75 20 77 61 6e  |...(."Do you wan|
00000b70  74 20 69 6e 73 74 72 75  63 74 69 6f 6e 73 3f 28  |t instructions?(|
00000b80  59 20 6f 72 20 4e 29 22  0d 04 b0 18 4b 25 3d a7  |Y or N)"....K%=.|
00000b90  22 59 79 22 2c be 29 3a  e7 20 4b 25 3d 30 20 e1  |"Yy",.):. K%=0 .|
00000ba0  0d 04 ba 0e f2 66 78 28  32 30 30 2c 31 29 0d 04  |.....fx(200,1)..|
00000bb0  c4 14 f2 64 69 73 70 6c  61 79 31 3a f2 73 70 61  |...display1:.spa|
00000bc0  63 65 0d 04 ce 14 f2 64  69 73 70 6c 61 79 32 3a  |ce.....display2:|
00000bd0  f2 73 70 61 63 65 0d 04  d8 18 f2 66 78 28 31 33  |.space.....fx(13|
00000be0  2c 34 29 3a f2 66 78 28  32 30 30 2c 30 29 0d 04  |,4):.fx(200,0)..|
00000bf0  e2 05 e1 0d 04 ec 05 3a  0d 04 f6 0f dd 20 f2 64  |.......:..... .d|
00000c00  69 73 70 6c 61 79 31 0d  05 00 1c fb 32 3a f1 8a  |isplay1.....2:..|
00000c10  31 34 2c 31 29 22 54 49  4c 45 53 20 50 55 5a 5a  |14,1)"TILES PUZZ|
00000c20  4c 45 22 0d 05 0a 06 fb  33 0d 05 14 74 f1 27 27  |LE".....3...t.''|
00000c30  22 20 20 20 20 54 68 69  73 20 70 75 7a 7a 6c 65  |"    This puzzle|
00000c40  20 73 74 61 72 74 73 20  77 69 74 68 20 61 20 63  | starts with a c|
00000c50  6f 6c 6f 75 72 65 64 20  20 67 72 69 64 2e 20 59  |oloured  grid. Y|
00000c60  6f 75 20 61 72 65 20 67  69 76 65 6e 20 63 6f 6c  |ou are given col|
00000c70  6f 75 72 65 64 20 74 69  6c 65 73 20 77 68 69 63  |oured tiles whic|
00000c80  68 6d 75 73 74 20 62 65  20 70 6c 61 63 65 64 20  |hmust be placed |
00000c90  6f 6e 20 74 68 65 20 67  72 69 64 2e 22 0d 05 1e  |on the grid."...|
00000ca0  87 f1 27 27 22 20 20 20  20 54 68 65 20 67 72 69  |..''"    The gri|
00000cb0  64 20 63 61 6e 20 62 65  20 66 69 6c 6c 65 64 20  |d can be filled |
00000cc0  69 6e 20 61 6e 79 20 6f  72 64 65 72 20 61 6e 64  |in any order and|
00000cd0  20 74 68 65 20 74 69 6c  65 73 20 63 61 6e 20 62  | the tiles can b|
00000ce0  65 20 70 6c 61 63 65 64  20 69 6e 20 61 6e 79 20  |e placed in any |
00000cf0  20 20 20 20 20 73 65 71  75 65 6e 63 65 2c 20 73  |     sequence, s|
00000d00  75 62 6a 65 63 74 20 74  6f 20 74 68 65 20 66 6f  |ubject to the fo|
00000d10  6c 6c 6f 77 69 6e 67 20  74 68 72 65 65 72 75 6c  |llowing threerul|
00000d20  65 73 2e 22 0d 05 28 53  fb 20 31 3a f1 27 27 22  |es."..(S. 1:.''"|
00000d30  31 3a 20 22 3b 3a fb 20  33 3a f1 22 41 20 74 69  |1: ";:. 3:."A ti|
00000d40  6c 65 20 63 61 6e 6e 6f  74 20 62 65 20 70 6c 61  |le cannot be pla|
00000d50  63 65 64 20 6f 6e 20 61  20 73 71 75 61 72 65 20  |ced on a square |
00000d60  20 20 20 20 6f 66 20 69  74 73 20 6f 77 6e 20 63  |    of its own c|
00000d70  6f 6c 6f 75 72 2e 22 0d  05 32 7e fb 20 31 3a f1  |olour."..2~. 1:.|
00000d80  27 22 32 3a 20 22 3b 3a  fb 20 33 3a f1 22 41 20  |'"2: ";:. 3:."A |
00000d90  74 69 6c 65 20 63 61 6e  6e 6f 74 20 62 65 20 70  |tile cannot be p|
00000da0  6c 61 63 65 64 20 6e 65  78 74 20 74 6f 20 61 20  |laced next to a |
00000db0  20 20 20 20 20 20 73 71  61 75 72 65 20 6f 66 20  |      sqaure of |
00000dc0  69 74 73 20 6f 77 6e 20  63 6f 6c 6f 75 72 2c 20  |its own colour, |
00000dd0  65 69 74 68 65 72 20 73  69 64 65 20 20 20 62 79  |either side   by|
00000de0  20 73 69 64 65 20 6f 72  20 64 69 61 67 6f 6e 61  | side or diagona|
00000df0  6c 6c 79 2e 22 0d 05 3c  53 fb 20 31 3a f1 27 22  |lly."..<S. 1:.'"|
00000e00  33 3a 20 22 3b 3a fb 20  33 3a f1 22 4f 6e 6c 79  |3: ";:. 3:."Only|
00000e10  20 6f 6e 65 20 74 69 6c  65 20 6d 61 79 20 62 65  | one tile may be|
00000e20  20 70 6c 61 63 65 64 20  6f 6e 20 65 61 63 68 20  | placed on each |
00000e30  20 20 20 20 73 71 75 61  72 65 20 6f 66 20 74 68  |    square of th|
00000e40  65 20 67 72 69 64 2e 22  0d 05 46 43 f1 27 27 22  |e grid."..FC.''"|
00000e50  20 20 20 20 4e 6f 74 65  20 74 68 61 74 20 6f 6e  |    Note that on|
00000e60  6c 79 20 74 68 65 20 74  6f 70 20 28 65 78 70 6f  |ly the top (expo|
00000e70  73 65 64 29 20 20 20 20  63 6f 6c 6f 75 72 20 69  |sed)    colour i|
00000e80  73 20 63 6f 75 6e 74 65  64 2e 22 0d 05 50 05 e1  |s counted."..P..|
00000e90  0d 05 5a 05 3a 0d 05 64  11 dd 20 f2 64 69 73 70  |..Z.:..d.. .disp|
00000ea0  6c 61 79 32 3a db 0d 05  6e 15 fb 20 32 3a f1 8a  |lay2:...n.. 2:..|
00000eb0  31 38 2c 31 29 22 4b 45  59 53 22 0d 05 78 22 fb  |18,1)"KEYS"..x".|
00000ec0  20 31 3a f1 27 27 27 89  28 31 32 29 22 4c 45 46  | 1:.'''.(12)"LEF|
00000ed0  54 22 3b 89 28 31 30 29  22 27 5a 27 22 0d 05 82  |T";.(10)"'Z'"...|
00000ee0  1c f1 27 89 28 31 32 29  22 52 49 47 48 54 22 3b  |..'.(12)"RIGHT";|
00000ef0  89 28 39 29 22 27 58 27  22 0d 05 8c 1a f1 27 89  |.(9)"'X'".....'.|
00000f00  28 31 32 29 22 55 50 22  3b 89 28 31 32 29 22 27  |(12)"UP";.(12)"'|
00000f10  3a 27 22 0d 05 96 1c f1  27 89 28 31 32 29 22 44  |:'".....'.(12)"D|
00000f20  4f 57 4e 22 3b 89 28 31  30 29 22 27 2f 27 22 0d  |OWN";.(10)"'/'".|
00000f30  05 a0 99 fb 20 33 3a f1  27 27 27 22 20 20 20 20  |.... 3:.'''"    |
00000f40  54 6f 20 70 6c 61 63 65  20 61 20 74 69 6c 65 2c  |To place a tile,|
00000f50  20 6d 6f 76 65 20 74 68  65 20 66 6c 61 73 68 69  | move the flashi|
00000f60  6e 67 20 20 63 75 72 73  6f 72 20 74 6f 20 74 68  |ng  cursor to th|
00000f70  65 20 72 65 71 75 69 72  65 64 20 74 69 6c 65 2e  |e required tile.|
00000f80  20 54 68 65 6e 20 70 72  65 73 73 20 61 20 6e 75  | Then press a nu|
00000f90  6d 62 65 72 20 66 72 6f  6d 20 31 20 74 6f 20 35  |mber from 1 to 5|
00000fa0  20 63 6f 72 72 65 73 70  6f 6e 64 69 6e 67 20 77  | corresponding w|
00000fb0  69 74 68 20 74 68 65 20  64 65 73 69 72 65 64 20  |ith the desired |
00000fc0  63 6f 6c 6f 75 72 2e 22  0d 05 aa 4c f1 27 27 22  |colour."...L.''"|
00000fd0  20 20 20 20 54 68 65 20  67 61 6d 65 20 69 73 20  |    The game is |
00000fe0  63 6f 6d 70 6c 65 74 65  64 20 77 68 65 6e 20 61  |completed when a|
00000ff0  6c 6c 20 6f 66 20 20 20  74 68 65 20 74 69 6c 65  |ll of   the tile|
00001000  73 20 68 61 76 65 20 62  65 65 6e 20 70 6c 61 63  |s have been plac|
00001010  65 64 2e 22 0d 05 b4 40  f1 27 27 22 20 20 20 20  |ed."...@.''"    |
00001020  49 66 20 79 6f 75 20 67  65 74 20 73 74 75 63 6b  |If you get stuck|
00001030  20 74 68 65 6e 20 70 72  65 73 73 20 3c 45 53 43  | then press <ESC|
00001040  41 50 45 3e 74 6f 20 73  74 61 72 74 20 61 67 61  |APE>to start aga|
00001050  69 6e 2e 22 0d 05 be 05  e1 0d 05 c8 05 3a 0d 05  |in.".........:..|
00001060  d2 10 dd 20 f2 73 70 61  63 65 3a fb 20 32 0d 05  |... .space:. 2..|
00001070  dc 24 f1 8a 39 2c 33 30  29 22 50 52 45 53 53 20  |.$..9,30)"PRESS |
00001080  53 50 41 43 45 20 54 4f  20 43 4f 4e 54 49 4e 55  |SPACE TO CONTINU|
00001090  45 22 0d 05 e6 0e f5 20  fd 20 a5 3d 33 32 3a e1  |E"..... . .=32:.|
000010a0  0d 05 f0 05 3a 0d 05 fa  1b dd f2 66 78 28 41 25  |....:......fx(A%|
000010b0  2c 58 25 29 ea 59 25 3a  d6 26 46 46 46 34 3a e1  |,X%).Y%:.&FFF4:.|
000010c0  0d ff                                             |..|
000010c2