� Tidbits Teaser
� by Albert Gardner
� (c) The Micro User
(
*TV0,1
2�2
<�init:W%=0
F�
P�get:�test:�move
Z�W%
d�won
n�
x
��init
�� x%(14),y%(14),z%(14)
�
�assemble
�?(subr+1)=start �256
�?(subr+2)=start �256
�� 23;8202;0;0;0;
��24,48;144;1232;976;
��0,134:�
��24,56;152;1224;968;
��0,128:�
��Q%=0�4:�P%=0�5
��?&76,?&77
�!&70=�top(P%,Q%)
�
� code

�:�

?(subr+1)=copy �256

?(subr+2)=copy �256

"�28,0,31,19,0

,��print(2,4,7,4,"A"):�print(11,4,0,3,"B"):�print(17,4,7,5,"C"):�print(14,9,6,4,"D"):�print(2,14,0,3,"E"):�print(8,14,5,7,"F"):�print(11,14,0,2,"G"):�print(17,14,7,1,"H")

6��print(2,19,7,2,"I"):�print(8,24,1,3,"J"):�print(11,19,7,2,"K"):�print(11,24,4,5,"L"):�print(14,19,7,6,"M"):�print(17,19,7,0,"N")

@$�I%=1�14:�x%(I%),y%(I%),z%(I%):�

JT%=0:V%=-1:�num

T�

^��print(X%,Y%,f%,b%,A$)

h�f%:�(128+b%)

r�X%,Y%);A$;

|�

�!� 48,48,48,48,0,0,15,15,15,15

�+� 51,51,48,48,48,48,0,0,15,15,24,36,3,3

�!� 5,10,5,10,55,59,8,4,3,3,3,3

�"� 12,12,12,12,7,11,28,44,61,62

�-� 21,42,12,12,7,11,7,11,18,33,61,62,21,42

�Y� 0,0,2,3,0,5,5,0,1,4,1,1,0,2,4,2,2,1,3,2,1,4,1,6,0,3,5,1,3,6,3,3,1,3,4,1,4,3,3,5,3,3

�	��get

��:S%=��95-64

��S%>0�S%<15

�!P%=x%(S%):Q%=y%(S%):Z%=z%(S%)

��

�
��test

�&�Z% �THB,�TfB,�DXB,�t@B,�thB,�dZB
U%=�U(P%,Q%):D%=�D(P%,Q%)
L%=�L(P%,Q%):R%=�R(P%,Q%)
�
&U%=�U(P%,Q%)��U(P%+1,Q%)
0 D%=�D(P%,Q%+1)��D(P%+1,Q%+1)
:L%=�L(P%,Q%)��L(P%,Q%+1)
D R%=�R(P%+1,Q%)��R(P%+1,Q%+1)
N�
XU%=�U(P%,Q%):D%=�D(P%,Q%+1)
bL%=�L(P%,Q%)��L(P%,Q%+1)
lR%=�R(P%,Q%)��R(P%,Q%+1)
v�
�U%=�U(P%,Q%)��U(P%+1,Q%)
�D%=�D(P%,Q%)��D(P%+1,Q%)
�L%=�L(P%,Q%):R%=�R(P%+1,Q%)
��
�U%=�U(P%,Q%)��U(P%+1,Q%)
�D%=�D(P%+1,Q%)��D(P%,Q%+1)
�L%=�L(P%,Q%)��L(P%,Q%+1)
�R%=�R(P%+1,Q%)��R(P%,Q%+1)
��
�U%=�U(P%+1,Q%)��U(P%,Q%+1)
� D%=�D(P%,Q%+1)��D(P%+1,Q%+1)
�L%=�L(P%,Q%+1)��L(P%+1,Q%)
� R%=�R(P%+1,Q%)��R(P%+1,Q%+1)
�

��move
B%=U%+D%+L%+R%
 �B%=0 �7:�
*�B%<-1 �query
4M%=P%+L%-R%:N%=Q%+U%-D%
>� U%�L% �UL � �DR
H�0,-10,5,1:�num
Rx%(S%)=M%:y%(S%)=N%:T%=S%
\#u%=1+D%:d%=1+U%:l%=1+R%:r%=1+L%
fW%=(S%=2 � M%=4 � N%=3)
p�
z��UL
��Z%<6 �movebox(0,0)
��Z%=1 �
��Z%<>3 �movebox(1,0)
��Z%<>4 �movebox(0,1)
��Z%=2�Z%=6 �movebox(1,1)
��
���DR
��Z%=1 �drC
��Z%=2�Z%=6 �movebox(1,1)
��Z%<>4 �movebox(0,1)
��Z%<>3 �movebox(1,0)
��Z%<6 �movebox(0,0)
��
��movebox(a%,b%)
!&70=�top(P%+a%,Q%+b%)
!&72=�top(M%+a%,N%+b%)
$
� code
.�
8��query
B0�S%=T% U%=u%*U%:D%=d%*D%:L%=l%*L%:R%=r%*R%:�
L �28,0,31,15,29:�"Which Way?"
V�:A%=�"UDLR",�(��95)):�A%:�
`�A%=1�U% D%=0:L%=0:R%=0:�
j�A%=2�D% L%=0:R%=0:�t\D
t�A%=3�L% R%=0:�tRD
~�R%=0 �7:�DLD
�L%=0
�D%=0
�U%=0
��
�	��num
��28,16,31,19,29:V%=V%+1
��2+(V%>9)+(V%>99),0);V%;
��
�	��won
�+�28,0,31,15,29:�"Home at last in moves"
��
�ݤtop(P%,Q%)
=&3520+P%*&60+Q%*&C80

ݤU(P%,Q%)
=(?(�top(P%,Q%)-636)=0)
ݤD(P%,Q%)
(=(?(�top(P%,Q%)+3202)=0)
2ݤL(P%,Q%)
<=(?(�top(P%,Q%)-1)=0)
FݤR(P%,Q%)
P=(?(�top(P%,Q%)+104)=0)
Z��assemble
d
� code 72
n�pass=0�2�2
xP%=code
�
[OPT pass
�+LDA&70:CLC:ADC#&80:LDA&71:ADC#&C:STA&74
�.lp LDY#&5F:.subr JSR&00
�2LDA&72:CLC:ADC#&80:STA&72:LDA&73:ADC#&2:STA&73
�?LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#&2:STA&71:CMP&74:BNElp
�RTS
�?.start LDA&77:STA(&70),Y:DEY:LDA&76:STA(&70),Y:DEY:BPLstart
�RTS
�=.copy LDA(&70),Y:STA(&72),Y:LDA#0:STA(&70),Y:DEY:BPL copy
�RTS
�]
��
��
�

00000000  0d 00 0a 14 f4 20 54 69  64 62 69 74 73 20 54 65  |..... Tidbits Te|
00000010  61 73 65 72 0d 00 14 17  f4 20 62 79 20 41 6c 62  |aser..... by Alb|
00000020  65 72 74 20 47 61 72 64  6e 65 72 0d 00 1e 18 f4  |ert Gardner.....|
00000030  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000040  73 65 72 0d 00 28 0a 2a  54 56 30 2c 31 0d 00 32  |ser..(.*TV0,1..2|
00000050  06 eb 32 0d 00 3c 0e f2  69 6e 69 74 3a 57 25 3d  |..2..<..init:W%=|
00000060  30 0d 00 46 05 f5 0d 00  50 14 f2 67 65 74 3a f2  |0..F....P..get:.|
00000070  74 65 73 74 3a f2 6d 6f  76 65 0d 00 5a 07 fd 57  |test:.move..Z..W|
00000080  25 0d 00 64 08 f2 77 6f  6e 0d 00 6e 05 e0 0d 00  |%..d..won..n....|
00000090  78 0a dd f2 69 6e 69 74  0d 00 82 1a de 20 78 25  |x...init..... x%|
000000a0  28 31 34 29 2c 79 25 28  31 34 29 2c 7a 25 28 31  |(14),y%(14),z%(1|
000000b0  34 29 0d 00 8c 0d f2 61  73 73 65 6d 62 6c 65 0d  |4).....assemble.|
000000c0  00 96 18 3f 28 73 75 62  72 2b 31 29 3d 73 74 61  |...?(subr+1)=sta|
000000d0  72 74 20 83 32 35 36 0d  00 a0 18 3f 28 73 75 62  |rt .256....?(sub|
000000e0  72 2b 32 29 3d 73 74 61  72 74 20 81 32 35 36 0d  |r+2)=start .256.|
000000f0  00 aa 14 ef 20 32 33 3b  38 32 30 32 3b 30 3b 30  |.... 23;8202;0;0|
00000100  3b 30 3b 0d 00 b4 18 ef  32 34 2c 34 38 3b 31 34  |;0;.....24,48;14|
00000110  34 3b 31 32 33 32 3b 39  37 36 3b 0d 00 be 0c e6  |4;1232;976;.....|
00000120  30 2c 31 33 34 3a da 0d  00 c8 18 ef 32 34 2c 35  |0,134:......24,5|
00000130  36 3b 31 35 32 3b 31 32  32 34 3b 39 36 38 3b 0d  |6;152;1224;968;.|
00000140  00 d2 0c e6 30 2c 31 32  38 3a da 0d 00 dc 13 e3  |....0,128:......|
00000150  51 25 3d 30 b8 34 3a e3  50 25 3d 30 b8 35 0d 00  |Q%=0.4:.P%=0.5..|
00000160  e6 0e f3 3f 26 37 36 2c  3f 26 37 37 0d 00 f0 14  |...?&76,?&77....|
00000170  21 26 37 30 3d a4 74 6f  70 28 50 25 2c 51 25 29  |!&70=.top(P%,Q%)|
00000180  0d 00 fa 0a d6 20 63 6f  64 65 0d 01 04 07 ed 3a  |..... code.....:|
00000190  ed 0d 01 0e 17 3f 28 73  75 62 72 2b 31 29 3d 63  |.....?(subr+1)=c|
000001a0  6f 70 79 20 83 32 35 36  0d 01 18 17 3f 28 73 75  |opy .256....?(su|
000001b0  62 72 2b 32 29 3d 63 6f  70 79 20 81 32 35 36 0d  |br+2)=copy .256.|
000001c0  01 22 11 ef 32 38 2c 30  2c 33 31 2c 31 39 2c 30  |."..28,0,31,19,0|
000001d0  0d 01 2c ac f2 70 72 69  6e 74 28 32 2c 34 2c 37  |..,..print(2,4,7|
000001e0  2c 34 2c 22 41 22 29 3a  f2 70 72 69 6e 74 28 31  |,4,"A"):.print(1|
000001f0  31 2c 34 2c 30 2c 33 2c  22 42 22 29 3a f2 70 72  |1,4,0,3,"B"):.pr|
00000200  69 6e 74 28 31 37 2c 34  2c 37 2c 35 2c 22 43 22  |int(17,4,7,5,"C"|
00000210  29 3a f2 70 72 69 6e 74  28 31 34 2c 39 2c 36 2c  |):.print(14,9,6,|
00000220  34 2c 22 44 22 29 3a f2  70 72 69 6e 74 28 32 2c  |4,"D"):.print(2,|
00000230  31 34 2c 30 2c 33 2c 22  45 22 29 3a f2 70 72 69  |14,0,3,"E"):.pri|
00000240  6e 74 28 38 2c 31 34 2c  35 2c 37 2c 22 46 22 29  |nt(8,14,5,7,"F")|
00000250  3a f2 70 72 69 6e 74 28  31 31 2c 31 34 2c 30 2c  |:.print(11,14,0,|
00000260  32 2c 22 47 22 29 3a f2  70 72 69 6e 74 28 31 37  |2,"G"):.print(17|
00000270  2c 31 34 2c 37 2c 31 2c  22 48 22 29 0d 01 36 85  |,14,7,1,"H")..6.|
00000280  f2 70 72 69 6e 74 28 32  2c 31 39 2c 37 2c 32 2c  |.print(2,19,7,2,|
00000290  22 49 22 29 3a f2 70 72  69 6e 74 28 38 2c 32 34  |"I"):.print(8,24|
000002a0  2c 31 2c 33 2c 22 4a 22  29 3a f2 70 72 69 6e 74  |,1,3,"J"):.print|
000002b0  28 31 31 2c 31 39 2c 37  2c 32 2c 22 4b 22 29 3a  |(11,19,7,2,"K"):|
000002c0  f2 70 72 69 6e 74 28 31  31 2c 32 34 2c 34 2c 35  |.print(11,24,4,5|
000002d0  2c 22 4c 22 29 3a f2 70  72 69 6e 74 28 31 34 2c  |,"L"):.print(14,|
000002e0  31 39 2c 37 2c 36 2c 22  4d 22 29 3a f2 70 72 69  |19,7,6,"M"):.pri|
000002f0  6e 74 28 31 37 2c 31 39  2c 37 2c 30 2c 22 4e 22  |nt(17,19,7,0,"N"|
00000300  29 0d 01 40 24 e3 49 25  3d 31 b8 31 34 3a f3 78  |)..@$.I%=1.14:.x|
00000310  25 28 49 25 29 2c 79 25  28 49 25 29 2c 7a 25 28  |%(I%),y%(I%),z%(|
00000320  49 25 29 3a ed 0d 01 4a  13 54 25 3d 30 3a 56 25  |I%):...J.T%=0:V%|
00000330  3d 2d 31 3a f2 6e 75 6d  0d 01 54 05 e1 0d 01 5e  |=-1:.num..T....^|
00000340  1b dd f2 70 72 69 6e 74  28 58 25 2c 59 25 2c 66  |...print(X%,Y%,f|
00000350  25 2c 62 25 2c 41 24 29  0d 01 68 11 fb 66 25 3a  |%,b%,A$)..h..f%:|
00000360  fb 28 31 32 38 2b 62 25  29 0d 01 72 10 f1 8a 58  |.(128+b%)..r...X|
00000370  25 2c 59 25 29 3b 41 24  3b 0d 01 7c 05 e1 0d 01  |%,Y%);A$;..|....|
00000380  86 21 dc 20 34 38 2c 34  38 2c 34 38 2c 34 38 2c  |.!. 48,48,48,48,|
00000390  30 2c 30 2c 31 35 2c 31  35 2c 31 35 2c 31 35 0d  |0,0,15,15,15,15.|
000003a0  01 90 2b dc 20 35 31 2c  35 31 2c 34 38 2c 34 38  |..+. 51,51,48,48|
000003b0  2c 34 38 2c 34 38 2c 30  2c 30 2c 31 35 2c 31 35  |,48,48,0,0,15,15|
000003c0  2c 32 34 2c 33 36 2c 33  2c 33 0d 01 9a 21 dc 20  |,24,36,3,3...!. |
000003d0  35 2c 31 30 2c 35 2c 31  30 2c 35 35 2c 35 39 2c  |5,10,5,10,55,59,|
000003e0  38 2c 34 2c 33 2c 33 2c  33 2c 33 0d 01 a4 22 dc  |8,4,3,3,3,3...".|
000003f0  20 31 32 2c 31 32 2c 31  32 2c 31 32 2c 37 2c 31  | 12,12,12,12,7,1|
00000400  31 2c 32 38 2c 34 34 2c  36 31 2c 36 32 0d 01 ae  |1,28,44,61,62...|
00000410  2d dc 20 32 31 2c 34 32  2c 31 32 2c 31 32 2c 37  |-. 21,42,12,12,7|
00000420  2c 31 31 2c 37 2c 31 31  2c 31 38 2c 33 33 2c 36  |,11,7,11,18,33,6|
00000430  31 2c 36 32 2c 32 31 2c  34 32 0d 01 b8 59 dc 20  |1,62,21,42...Y. |
00000440  30 2c 30 2c 32 2c 33 2c  30 2c 35 2c 35 2c 30 2c  |0,0,2,3,0,5,5,0,|
00000450  31 2c 34 2c 31 2c 31 2c  30 2c 32 2c 34 2c 32 2c  |1,4,1,1,0,2,4,2,|
00000460  32 2c 31 2c 33 2c 32 2c  31 2c 34 2c 31 2c 36 2c  |2,1,3,2,1,4,1,6,|
00000470  30 2c 33 2c 35 2c 31 2c  33 2c 36 2c 33 2c 33 2c  |0,3,5,1,3,6,3,3,|
00000480  31 2c 33 2c 34 2c 31 2c  34 2c 33 2c 33 2c 35 2c  |1,3,4,1,4,3,3,5,|
00000490  33 2c 33 0d 01 c2 09 dd  f2 67 65 74 0d 01 cc 10  |3,3......get....|
000004a0  f5 3a 53 25 3d a5 80 39  35 2d 36 34 0d 01 d6 0f  |.:S%=..95-64....|
000004b0  fd 53 25 3e 30 80 53 25  3c 31 35 0d 01 e0 21 50  |.S%>0.S%<15...!P|
000004c0  25 3d 78 25 28 53 25 29  3a 51 25 3d 79 25 28 53  |%=x%(S%):Q%=y%(S|
000004d0  25 29 3a 5a 25 3d 7a 25  28 53 25 29 0d 01 ea 05  |%):Z%=z%(S%)....|
000004e0  e1 0d 01 f4 0a dd f2 74  65 73 74 0d 01 fe 26 ee  |.......test...&.|
000004f0  5a 25 20 e5 8d 54 48 42  2c 8d 54 66 42 2c 8d 44  |Z% ..THB,.TfB,.D|
00000500  58 42 2c 8d 74 40 42 2c  8d 74 68 42 2c 8d 64 5a  |XB,.t@B,.thB,.dZ|
00000510  42 0d 02 08 1d 55 25 3d  a4 55 28 50 25 2c 51 25  |B....U%=.U(P%,Q%|
00000520  29 3a 44 25 3d a4 44 28  50 25 2c 51 25 29 0d 02  |):D%=.D(P%,Q%)..|
00000530  12 1d 4c 25 3d a4 4c 28  50 25 2c 51 25 29 3a 52  |..L%=.L(P%,Q%):R|
00000540  25 3d a4 52 28 50 25 2c  51 25 29 0d 02 1c 05 e1  |%=.R(P%,Q%).....|
00000550  0d 02 26 1c 55 25 3d a4  55 28 50 25 2c 51 25 29  |..&.U%=.U(P%,Q%)|
00000560  80 a4 55 28 50 25 2b 31  2c 51 25 29 0d 02 30 20  |..U(P%+1,Q%)..0 |
00000570  44 25 3d a4 44 28 50 25  2c 51 25 2b 31 29 80 a4  |D%=.D(P%,Q%+1)..|
00000580  44 28 50 25 2b 31 2c 51  25 2b 31 29 0d 02 3a 1c  |D(P%+1,Q%+1)..:.|
00000590  4c 25 3d a4 4c 28 50 25  2c 51 25 29 80 a4 4c 28  |L%=.L(P%,Q%)..L(|
000005a0  50 25 2c 51 25 2b 31 29  0d 02 44 20 52 25 3d a4  |P%,Q%+1)..D R%=.|
000005b0  52 28 50 25 2b 31 2c 51  25 29 80 a4 52 28 50 25  |R(P%+1,Q%)..R(P%|
000005c0  2b 31 2c 51 25 2b 31 29  0d 02 4e 05 e1 0d 02 58  |+1,Q%+1)..N....X|
000005d0  1f 55 25 3d a4 55 28 50  25 2c 51 25 29 3a 44 25  |.U%=.U(P%,Q%):D%|
000005e0  3d a4 44 28 50 25 2c 51  25 2b 31 29 0d 02 62 1c  |=.D(P%,Q%+1)..b.|
000005f0  4c 25 3d a4 4c 28 50 25  2c 51 25 29 80 a4 4c 28  |L%=.L(P%,Q%)..L(|
00000600  50 25 2c 51 25 2b 31 29  0d 02 6c 1c 52 25 3d a4  |P%,Q%+1)..l.R%=.|
00000610  52 28 50 25 2c 51 25 29  80 a4 52 28 50 25 2c 51  |R(P%,Q%)..R(P%,Q|
00000620  25 2b 31 29 0d 02 76 05  e1 0d 02 80 1c 55 25 3d  |%+1)..v......U%=|
00000630  a4 55 28 50 25 2c 51 25  29 80 a4 55 28 50 25 2b  |.U(P%,Q%)..U(P%+|
00000640  31 2c 51 25 29 0d 02 8a  1c 44 25 3d a4 44 28 50  |1,Q%)....D%=.D(P|
00000650  25 2c 51 25 29 80 a4 44  28 50 25 2b 31 2c 51 25  |%,Q%)..D(P%+1,Q%|
00000660  29 0d 02 94 1f 4c 25 3d  a4 4c 28 50 25 2c 51 25  |)....L%=.L(P%,Q%|
00000670  29 3a 52 25 3d a4 52 28  50 25 2b 31 2c 51 25 29  |):R%=.R(P%+1,Q%)|
00000680  0d 02 9e 05 e1 0d 02 a8  1c 55 25 3d a4 55 28 50  |.........U%=.U(P|
00000690  25 2c 51 25 29 80 a4 55  28 50 25 2b 31 2c 51 25  |%,Q%)..U(P%+1,Q%|
000006a0  29 0d 02 b2 1e 44 25 3d  a4 44 28 50 25 2b 31 2c  |)....D%=.D(P%+1,|
000006b0  51 25 29 80 a4 44 28 50  25 2c 51 25 2b 31 29 0d  |Q%)..D(P%,Q%+1).|
000006c0  02 bc 1c 4c 25 3d a4 4c  28 50 25 2c 51 25 29 80  |...L%=.L(P%,Q%).|
000006d0  a4 4c 28 50 25 2c 51 25  2b 31 29 0d 02 c6 1e 52  |.L(P%,Q%+1)....R|
000006e0  25 3d a4 52 28 50 25 2b  31 2c 51 25 29 80 a4 52  |%=.R(P%+1,Q%)..R|
000006f0  28 50 25 2c 51 25 2b 31  29 0d 02 d0 05 e1 0d 02  |(P%,Q%+1).......|
00000700  da 1e 55 25 3d a4 55 28  50 25 2b 31 2c 51 25 29  |..U%=.U(P%+1,Q%)|
00000710  80 a4 55 28 50 25 2c 51  25 2b 31 29 0d 02 e4 20  |..U(P%,Q%+1)... |
00000720  44 25 3d a4 44 28 50 25  2c 51 25 2b 31 29 80 a4  |D%=.D(P%,Q%+1)..|
00000730  44 28 50 25 2b 31 2c 51  25 2b 31 29 0d 02 ee 1e  |D(P%+1,Q%+1)....|
00000740  4c 25 3d a4 4c 28 50 25  2c 51 25 2b 31 29 80 a4  |L%=.L(P%,Q%+1)..|
00000750  4c 28 50 25 2b 31 2c 51  25 29 0d 02 f8 20 52 25  |L(P%+1,Q%)... R%|
00000760  3d a4 52 28 50 25 2b 31  2c 51 25 29 80 a4 52 28  |=.R(P%+1,Q%)..R(|
00000770  50 25 2b 31 2c 51 25 2b  31 29 0d 03 02 05 e1 0d  |P%+1,Q%+1)......|
00000780  03 0c 0a dd f2 6d 6f 76  65 0d 03 16 12 42 25 3d  |.....move....B%=|
00000790  55 25 2b 44 25 2b 4c 25  2b 52 25 0d 03 20 0e e7  |U%+D%+L%+R%.. ..|
000007a0  42 25 3d 30 20 ef 37 3a  e1 0d 03 2a 11 e7 42 25  |B%=0 .7:...*..B%|
000007b0  3c 2d 31 20 f2 71 75 65  72 79 0d 03 34 1b 4d 25  |<-1 .query..4.M%|
000007c0  3d 50 25 2b 4c 25 2d 52  25 3a 4e 25 3d 51 25 2b  |=P%+L%-R%:N%=Q%+|
000007d0  55 25 2d 44 25 0d 03 3e  15 e7 20 55 25 84 4c 25  |U%-D%..>.. U%.L%|
000007e0  20 f2 55 4c 20 8b 20 f2  44 52 0d 03 48 13 d4 30  | .UL . .DR..H..0|
000007f0  2c 2d 31 30 2c 35 2c 31  3a f2 6e 75 6d 0d 03 52  |,-10,5,1:.num..R|
00000800  1d 78 25 28 53 25 29 3d  4d 25 3a 79 25 28 53 25  |.x%(S%)=M%:y%(S%|
00000810  29 3d 4e 25 3a 54 25 3d  53 25 0d 03 5c 23 75 25  |)=N%:T%=S%..\#u%|
00000820  3d 31 2b 44 25 3a 64 25  3d 31 2b 55 25 3a 6c 25  |=1+D%:d%=1+U%:l%|
00000830  3d 31 2b 52 25 3a 72 25  3d 31 2b 4c 25 0d 03 66  |=1+R%:r%=1+L%..f|
00000840  1b 57 25 3d 28 53 25 3d  32 20 80 20 4d 25 3d 34  |.W%=(S%=2 . M%=4|
00000850  20 80 20 4e 25 3d 33 29  0d 03 70 05 e1 0d 03 7a  | . N%=3)..p....z|
00000860  08 dd f2 55 4c 0d 03 84  17 e7 5a 25 3c 36 20 f2  |...UL.....Z%<6 .|
00000870  6d 6f 76 65 62 6f 78 28  30 2c 30 29 0d 03 8e 0b  |movebox(0,0)....|
00000880  e7 5a 25 3d 31 20 e1 0d  03 98 18 e7 5a 25 3c 3e  |.Z%=1 ......Z%<>|
00000890  33 20 f2 6d 6f 76 65 62  6f 78 28 31 2c 30 29 0d  |3 .movebox(1,0).|
000008a0  03 a2 18 e7 5a 25 3c 3e  34 20 f2 6d 6f 76 65 62  |....Z%<>4 .moveb|
000008b0  6f 78 28 30 2c 31 29 0d  03 ac 1c e7 5a 25 3d 32  |ox(0,1).....Z%=2|
000008c0  84 5a 25 3d 36 20 f2 6d  6f 76 65 62 6f 78 28 31  |.Z%=6 .movebox(1|
000008d0  2c 31 29 0d 03 b6 05 e1  0d 03 c0 08 dd f2 44 52  |,1)...........DR|
000008e0  0d 03 ca 0f e7 5a 25 3d  31 20 e5 8d 64 72 43 0d  |.....Z%=1 ..drC.|
000008f0  03 d4 1c e7 5a 25 3d 32  84 5a 25 3d 36 20 f2 6d  |....Z%=2.Z%=6 .m|
00000900  6f 76 65 62 6f 78 28 31  2c 31 29 0d 03 de 18 e7  |ovebox(1,1).....|
00000910  5a 25 3c 3e 34 20 f2 6d  6f 76 65 62 6f 78 28 30  |Z%<>4 .movebox(0|
00000920  2c 31 29 0d 03 e8 18 e7  5a 25 3c 3e 33 20 f2 6d  |,1).....Z%<>3 .m|
00000930  6f 76 65 62 6f 78 28 31  2c 30 29 0d 03 f2 17 e7  |ovebox(1,0).....|
00000940  5a 25 3c 36 20 f2 6d 6f  76 65 62 6f 78 28 30 2c  |Z%<6 .movebox(0,|
00000950  30 29 0d 03 fc 05 e1 0d  04 06 14 dd f2 6d 6f 76  |0)...........mov|
00000960  65 62 6f 78 28 61 25 2c  62 25 29 0d 04 10 1a 21  |ebox(a%,b%)....!|
00000970  26 37 30 3d a4 74 6f 70  28 50 25 2b 61 25 2c 51  |&70=.top(P%+a%,Q|
00000980  25 2b 62 25 29 0d 04 1a  1a 21 26 37 32 3d a4 74  |%+b%)....!&72=.t|
00000990  6f 70 28 4d 25 2b 61 25  2c 4e 25 2b 62 25 29 0d  |op(M%+a%,N%+b%).|
000009a0  04 24 0a d6 20 63 6f 64  65 0d 04 2e 05 e1 0d 04  |.$.. code.......|
000009b0  38 0b dd f2 71 75 65 72  79 0d 04 42 30 e7 53 25  |8...query..B0.S%|
000009c0  3d 54 25 20 55 25 3d 75  25 2a 55 25 3a 44 25 3d  |=T% U%=u%*U%:D%=|
000009d0  64 25 2a 44 25 3a 4c 25  3d 6c 25 2a 4c 25 3a 52  |d%*D%:L%=l%*L%:R|
000009e0  25 3d 72 25 2a 52 25 3a  e1 0d 04 4c 20 ef 32 38  |%=r%*R%:...L .28|
000009f0  2c 30 2c 33 31 2c 31 35  2c 32 39 3a f1 22 57 68  |,0,31,15,29:."Wh|
00000a00  69 63 68 20 57 61 79 3f  22 0d 04 56 1f f5 3a 41  |ich Way?"..V..:A|
00000a10  25 3d a7 22 55 44 4c 52  22 2c bd 28 a5 80 39 35  |%=."UDLR",.(..95|
00000a20  29 29 3a fd 41 25 3a db  0d 04 60 1d e7 41 25 3d  |)):.A%:...`..A%=|
00000a30  31 80 55 25 20 44 25 3d  30 3a 4c 25 3d 30 3a 52  |1.U% D%=0:L%=0:R|
00000a40  25 3d 30 3a e1 0d 04 6a  1c e7 41 25 3d 32 80 44  |%=0:...j..A%=2.D|
00000a50  25 20 4c 25 3d 30 3a 52  25 3d 30 3a e5 8d 74 5c  |% L%=0:R%=0:..t\|
00000a60  44 0d 04 74 17 e7 41 25  3d 33 80 4c 25 20 52 25  |D..t..A%=3.L% R%|
00000a70  3d 30 3a e5 8d 74 52 44  0d 04 7e 12 e7 52 25 3d  |=0:..tRD..~..R%=|
00000a80  30 20 ef 37 3a e5 8d 44  4c 44 0d 04 88 08 4c 25  |0 .7:..DLD....L%|
00000a90  3d 30 0d 04 92 08 44 25  3d 30 0d 04 9c 08 55 25  |=0....D%=0....U%|
00000aa0  3d 30 0d 04 a6 05 e1 0d  04 b0 09 dd f2 6e 75 6d  |=0...........num|
00000ab0  0d 04 ba 1b ef 32 38 2c  31 36 2c 33 31 2c 31 39  |.....28,16,31,19|
00000ac0  2c 32 39 3a 56 25 3d 56  25 2b 31 0d 04 c4 1d f1  |,29:V%=V%+1.....|
00000ad0  8a 32 2b 28 56 25 3e 39  29 2b 28 56 25 3e 39 39  |.2+(V%>9)+(V%>99|
00000ae0  29 2c 30 29 3b 56 25 3b  0d 04 ce 05 e1 0d 04 d8  |),0);V%;........|
00000af0  09 dd f2 77 6f 6e 0d 04  e2 2b ef 32 38 2c 30 2c  |...won...+.28,0,|
00000b00  33 31 2c 31 35 2c 32 39  3a f1 22 48 6f 6d 65 20  |31,15,29:."Home |
00000b10  61 74 20 6c 61 73 74 20  69 6e 20 6d 6f 76 65 73  |at last in moves|
00000b20  22 0d 04 ec 05 e1 0d 04  f6 10 dd a4 74 6f 70 28  |"...........top(|
00000b30  50 25 2c 51 25 29 0d 05  00 19 3d 26 33 35 32 30  |P%,Q%)....=&3520|
00000b40  2b 50 25 2a 26 36 30 2b  51 25 2a 26 43 38 30 0d  |+P%*&60+Q%*&C80.|
00000b50  05 0a 0e dd a4 55 28 50  25 2c 51 25 29 0d 05 14  |.....U(P%,Q%)...|
00000b60  1b 3d 28 3f 28 a4 74 6f  70 28 50 25 2c 51 25 29  |.=(?(.top(P%,Q%)|
00000b70  2d 36 33 36 29 3d 30 29  0d 05 1e 0e dd a4 44 28  |-636)=0)......D(|
00000b80  50 25 2c 51 25 29 0d 05  28 1c 3d 28 3f 28 a4 74  |P%,Q%)..(.=(?(.t|
00000b90  6f 70 28 50 25 2c 51 25  29 2b 33 32 30 32 29 3d  |op(P%,Q%)+3202)=|
00000ba0  30 29 0d 05 32 0e dd a4  4c 28 50 25 2c 51 25 29  |0)..2...L(P%,Q%)|
00000bb0  0d 05 3c 19 3d 28 3f 28  a4 74 6f 70 28 50 25 2c  |..<.=(?(.top(P%,|
00000bc0  51 25 29 2d 31 29 3d 30  29 0d 05 46 0e dd a4 52  |Q%)-1)=0)..F...R|
00000bd0  28 50 25 2c 51 25 29 0d  05 50 1b 3d 28 3f 28 a4  |(P%,Q%)..P.=(?(.|
00000be0  74 6f 70 28 50 25 2c 51  25 29 2b 31 30 34 29 3d  |top(P%,Q%)+104)=|
00000bf0  30 29 0d 05 5a 0e dd f2  61 73 73 65 6d 62 6c 65  |0)..Z...assemble|
00000c00  0d 05 64 0d de 20 63 6f  64 65 20 37 32 0d 05 6e  |..d.. code 72..n|
00000c10  0f e3 70 61 73 73 3d 30  b8 32 88 32 0d 05 78 0b  |..pass=0.2.2..x.|
00000c20  50 25 3d 63 6f 64 65 0d  05 82 0d 5b 4f 50 54 20  |P%=code....[OPT |
00000c30  70 61 73 73 0d 05 8c 2b  4c 44 41 26 37 30 3a 43  |pass...+LDA&70:C|
00000c40  4c 43 3a 41 44 43 23 26  38 30 3a 4c 44 41 26 37  |LC:ADC#&80:LDA&7|
00000c50  31 3a 41 44 43 23 26 43  3a 53 54 41 26 37 34 0d  |1:ADC#&C:STA&74.|
00000c60  05 96 1c 2e 6c 70 20 4c  44 59 23 26 35 46 3a 2e  |....lp LDY#&5F:.|
00000c70  73 75 62 72 20 4a 53 52  26 30 30 0d 05 a0 32 4c  |subr JSR&00...2L|
00000c80  44 41 26 37 32 3a 43 4c  43 3a 41 44 43 23 26 38  |DA&72:CLC:ADC#&8|
00000c90  30 3a 53 54 41 26 37 32  3a 4c 44 41 26 37 33 3a  |0:STA&72:LDA&73:|
00000ca0  41 44 43 23 26 32 3a 53  54 41 26 37 33 0d 05 aa  |ADC#&2:STA&73...|
00000cb0  3f 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  |?LDA&70:CLC:ADC#|
00000cc0  26 38 30 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&80:STA&70:LDA&7|
00000cd0  31 3a 41 44 43 23 26 32  3a 53 54 41 26 37 31 3a  |1:ADC#&2:STA&71:|
00000ce0  43 4d 50 26 37 34 3a 42  4e 45 6c 70 0d 05 b4 07  |CMP&74:BNElp....|
00000cf0  52 54 53 0d 05 be 3f 2e  73 74 61 72 74 20 4c 44  |RTS...?.start LD|
00000d00  41 26 37 37 3a 53 54 41  28 26 37 30 29 2c 59 3a  |A&77:STA(&70),Y:|
00000d10  44 45 59 3a 4c 44 41 26  37 36 3a 53 54 41 28 26  |DEY:LDA&76:STA(&|
00000d20  37 30 29 2c 59 3a 44 45  59 3a 42 50 4c 73 74 61  |70),Y:DEY:BPLsta|
00000d30  72 74 0d 05 c8 07 52 54  53 0d 05 d2 3d 2e 63 6f  |rt....RTS...=.co|
00000d40  70 79 20 4c 44 41 28 26  37 30 29 2c 59 3a 53 54  |py LDA(&70),Y:ST|
00000d50  41 28 26 37 32 29 2c 59  3a 4c 44 41 23 30 3a 53  |A(&72),Y:LDA#0:S|
00000d60  54 41 28 26 37 30 29 2c  59 3a 44 45 59 3a 42 50  |TA(&70),Y:DEY:BP|
00000d70  4c 20 63 6f 70 79 0d 05  dc 07 52 54 53 0d 05 e6  |L copy....RTS...|
00000d80  05 5d 0d 05 f0 05 ed 0d  05 fa 05 e1 0d ff        |.]............|
00000d8e