#� ********** KNIGHTS **********
#� * A Traditional Puzzle Game *
#� (c) Ross Little November 1995
(#� * Published in EUG Issue 23 *
2#� *****************************
< 
F�
P� 5
Z�low
d
�setup
n
�array
x�
�  *LOAD KNscr
�  �vars
�  result=�game
�  � � quit �won
�	  � �
��
� 
�
� �low
�check=� "KNlow"
�� check<>0 �# check:�
��# check
�create=� "KNlow"
��# create,150


�# create

�

 

"� �setup

,� � � �<>17 � �error � �

6I� 23,128,24,60,126,255,255,126,60,24,23,129,24,36,66,129,129,66,36,24

@� 23,130,0,0,0,24,24,0,0,0

J� 23,1,0;0;0;0;

T� 19,1,4;0;

^*FX11,0

h�

r 

|� �error

�	�22,6

�#�'"ERROR - ":�:�;" at line ";�'

�*FX11,50

��

� 

�� �array

� � vectx(8),vecty(8),reqd(25)

�� read=1 � 8

�� vectx(read),vecty(read)

��

�� read=1 � 25

�� reqd(read)

��
-� -4,-2,-2,-4,2,-4,4,-2,4,2,2,4,-2,4,-4,2
7� 3,1,1,1,1,3,3,1,1,1,3,3,0,1,1,3,3,3,1,1,3,3,3,3,1
�
& 
0� �vars
:
move=0
Dblx=9:bly=16
N�
X 
b� �game
lquit=�:comp=�
vcurrent=� "KNlow"
�lowest=�# current
��# current
�'low$=�3-�(�(lowest)),"0")+�(lowest)
�� 2
��2,30) "CURRENT LOW ";low$
�� 1,-15,52,8
�	� � �
�� �2,30) �15," ")
��
�move=move+1
�	�incr
�
counter=1
�� 1,-15,100,1
�

�highl
�
 *FX15,1
*
optn=�
4� optn=32 � 1,-15,148,1
>� optn=13 � 1,-15,100,4
H� optn=81 quit=�
R� optn=32 � optn=13 � quit
\+counter=counter+1:� counter=9 counter=1
f� optn=13 � quit
p� � quit �move
z� � quit comp=�comp
�� comp � quit
�
� comp:=1
�
� quit:=2
� 
�� �incr
�move$=�(move)
�� �8+(3-�(move$)),27);
��double(move$)
��
� 
�� �highl
�� 5
�:lcount=counter-1:counter=counter-1:� lcount=0 lcount=8
�
+counter=counter+1:� counter=9 counter=1
hlx=blx+vectx(counter)
$hly=bly+vecty(counter)
.&� hlx>4 � hlx<14 � hly>11 � hly<21
8� �xpos(hlx),�ypos(hly)
B� 0,�oppcol
L
�;�130
Vunhlx=blx+vectx(lcount)
`unhly=bly+vecty(lcount)
j6� unhlx<4 � unhlx>14 � unhly<11 � unhly>21 � � 4:�
t� �xpos(unhlx),�ypos(unhly)
~� 0,�eqcol
�
�;�130
�� 4
��
� 
�
� �oppcol
�'point=��xpos(hlx)+32,�ypos(hly)-20)
�� point=1 colour=3
�� point=3 colour=1
�=colour
� 
�� �eqcol
�+point=��xpos(unhlx)+32,�ypos(unhly)-20)

=point

 
� �move
(cntcol=��xpos(hlx)+32,�ypos(hly)-20)
(�5
2	� 0,0
<� �xpos(hlx),�ypos(hly)
F� � 128
P	� 0,2
Z� �xpos(hlx),�ypos(hly)
d� � 129
n� 0,cntcol
x� �xpos(blx),�ypos(bly)
�� � 128
�blx=hlx:bly=hly
��4
��
� 
�� �comp
�cnt=1:done=0
�� y=632 � 376 � -64
�� x=352 � 864 � 128
�pixel=�x,y)
�!� pixel=reqd(cnt) done=done+1
�
cnt=cnt+1
��
�
� done=25 =�
=�
" 
,� �double(text$)
6� char%,vdu1%,vdu2%
@� char%=1 � �(text$)
J?&90=�(�text$,char%,1))
TA%=10:X%=&90:Y%=0
^� &FFF1
h� vdu1%=0 � 1
r� 23,255
|� vdu2%=2 � 9
�� ?(&90+4*vdu1%+vdu2% �2)
��
�� 255,10,8
��
�
� 11,11,9
��
��
� 
�� �xpos(x):=x*64
�� �ypos(y):=1016-y*32+4
� 
�
� �won
�	new=�
check=� "KNlow"
lw=�# check
�# check
&� move<lw new=�:�newlow
0low$=�(lw)
:low$=�3-�(low$),"0")+low$
D� 2
N� �2,23) "CONGRATULATIONS!"
X� �6,24) �7," ")
b'� new � �2,25) "PREVIOUS LOW ";low$
l2� � new � �2,25) "ALL-TIME LOW ";:�3:�;low$:�2
v'� �1,27) "WON IN";�12,27) "TURNS!!"
�*FX15,1
�	� � �
��
� 
�
� �newlow
�newlow=� "KNlow"
��# newlow,move
�
�# newlow
��
�

00000000  0d 00 0a 23 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...#. **********|
00000010  20 4b 4e 49 47 48 54 53  20 2a 2a 2a 2a 2a 2a 2a  | KNIGHTS *******|
00000020  2a 2a 2a 0d 00 14 23 f4  20 2a 20 41 20 54 72 61  |***...#. * A Tra|
00000030  64 69 74 69 6f 6e 61 6c  20 50 75 7a 7a 6c 65 20  |ditional Puzzle |
00000040  47 61 6d 65 20 2a 0d 00  1e 23 f4 20 28 63 29 20  |Game *...#. (c) |
00000050  52 6f 73 73 20 4c 69 74  74 6c 65 20 4e 6f 76 65  |Ross Little Nove|
00000060  6d 62 65 72 20 31 39 39  35 0d 00 28 23 f4 20 2a  |mber 1995..(#. *|
00000070  20 50 75 62 6c 69 73 68  65 64 20 69 6e 20 45 55  | Published in EU|
00000080  47 20 49 73 73 75 65 20  32 33 20 2a 0d 00 32 23  |G Issue 23 *..2#|
00000090  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. **************|
000000a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
000000b0  00 3c 05 20 0d 00 46 05  d8 0d 00 50 07 eb 20 35  |.<. ..F....P.. 5|
000000c0  0d 00 5a 08 f2 6c 6f 77  0d 00 64 0a f2 73 65 74  |..Z..low..d..set|
000000d0  75 70 0d 00 6e 0a f2 61  72 72 61 79 0d 00 78 05  |up..n..array..x.|
000000e0  f5 0d 00 82 11 20 20 2a  4c 4f 41 44 20 4b 4e 73  |.....  *LOAD KNs|
000000f0  63 72 0d 00 8c 0b 20 20  f2 76 61 72 73 0d 00 96  |cr....  .vars...|
00000100  12 20 20 72 65 73 75 6c  74 3d a4 67 61 6d 65 0d  |.  result=.game.|
00000110  00 a0 13 20 20 e7 20 ac  20 71 75 69 74 20 f2 77  |...  . . quit .w|
00000120  6f 6e 0d 00 aa 09 20 20  fd 20 a3 0d 00 b4 05 e0  |on....  . ......|
00000130  0d 00 be 05 20 0d 00 c8  0a dd 20 f2 6c 6f 77 0d  |.... ..... .low.|
00000140  00 d2 13 63 68 65 63 6b  3d 8e 20 22 4b 4e 6c 6f  |...check=. "KNlo|
00000150  77 22 0d 00 dc 19 e7 20  63 68 65 63 6b 3c 3e 30  |w"..... check<>0|
00000160  20 d9 23 20 63 68 65 63  6b 3a e1 0d 00 e6 0c d9  | .# check:......|
00000170  23 20 63 68 65 63 6b 0d  00 f0 14 63 72 65 61 74  |# check....creat|
00000180  65 3d ae 20 22 4b 4e 6c  6f 77 22 0d 00 fa 11 d5  |e=. "KNlow".....|
00000190  23 20 63 72 65 61 74 65  2c 31 35 30 0d 01 04 0d  |# create,150....|
000001a0  d9 23 20 63 72 65 61 74  65 0d 01 0e 05 e1 0d 01  |.# create.......|
000001b0  18 05 20 0d 01 22 0c dd  20 f2 73 65 74 75 70 0d  |.. ..".. .setup.|
000001c0  01 2c 1c ee 20 85 20 e7  20 9f 3c 3e 31 37 20 8c  |.,.. . . .<>17 .|
000001d0  20 f2 65 72 72 6f 72 20  8b 20 f9 0d 01 36 49 ef  | .error . ...6I.|
000001e0  20 32 33 2c 31 32 38 2c  32 34 2c 36 30 2c 31 32  | 23,128,24,60,12|
000001f0  36 2c 32 35 35 2c 32 35  35 2c 31 32 36 2c 36 30  |6,255,255,126,60|
00000200  2c 32 34 2c 32 33 2c 31  32 39 2c 32 34 2c 33 36  |,24,23,129,24,36|
00000210  2c 36 36 2c 31 32 39 2c  31 32 39 2c 36 36 2c 33  |,66,129,129,66,3|
00000220  36 2c 32 34 0d 01 40 1e  ef 20 32 33 2c 31 33 30  |6,24..@.. 23,130|
00000230  2c 30 2c 30 2c 30 2c 32  34 2c 32 34 2c 30 2c 30  |,0,0,0,24,24,0,0|
00000240  2c 30 0d 01 4a 13 ef 20  32 33 2c 31 2c 30 3b 30  |,0..J.. 23,1,0;0|
00000250  3b 30 3b 30 3b 0d 01 54  0f ef 20 31 39 2c 31 2c  |;0;0;..T.. 19,1,|
00000260  34 3b 30 3b 0d 01 5e 0b  2a 46 58 31 31 2c 30 0d  |4;0;..^.*FX11,0.|
00000270  01 68 05 e1 0d 01 72 05  20 0d 01 7c 0c dd 20 f2  |.h....r. ..|.. .|
00000280  65 72 72 6f 72 0d 01 86  09 ef 32 32 2c 36 0d 01  |error.....22,6..|
00000290  90 23 f1 27 22 45 52 52  4f 52 20 2d 20 22 3a f6  |.#.'"ERROR - ":.|
000002a0  3a f1 3b 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |:.;" at line ";.|
000002b0  27 0d 01 9a 0c 2a 46 58  31 31 2c 35 30 0d 01 a4  |'....*FX11,50...|
000002c0  05 e0 0d 01 ae 05 20 0d  01 b8 0c dd 20 f2 61 72  |...... ..... .ar|
000002d0  72 61 79 0d 01 c2 20 de  20 76 65 63 74 78 28 38  |ray... . vectx(8|
000002e0  29 2c 76 65 63 74 79 28  38 29 2c 72 65 71 64 28  |),vecty(8),reqd(|
000002f0  32 35 29 0d 01 cc 10 e3  20 72 65 61 64 3d 31 20  |25)..... read=1 |
00000300  b8 20 38 0d 01 d6 1d f3  20 76 65 63 74 78 28 72  |. 8..... vectx(r|
00000310  65 61 64 29 2c 76 65 63  74 79 28 72 65 61 64 29  |ead),vecty(read)|
00000320  0d 01 e0 05 ed 0d 01 ea  11 e3 20 72 65 61 64 3d  |.......... read=|
00000330  31 20 b8 20 32 35 0d 01  f4 10 f3 20 72 65 71 64  |1 . 25..... reqd|
00000340  28 72 65 61 64 29 0d 01  fe 05 ed 0d 02 08 2d dc  |(read)........-.|
00000350  20 2d 34 2c 2d 32 2c 2d  32 2c 2d 34 2c 32 2c 2d  | -4,-2,-2,-4,2,-|
00000360  34 2c 34 2c 2d 32 2c 34  2c 32 2c 32 2c 34 2c 2d  |4,4,-2,4,2,2,4,-|
00000370  32 2c 34 2c 2d 34 2c 32  0d 02 12 37 dc 20 33 2c  |2,4,-4,2...7. 3,|
00000380  31 2c 31 2c 31 2c 31 2c  33 2c 33 2c 31 2c 31 2c  |1,1,1,1,3,3,1,1,|
00000390  31 2c 33 2c 33 2c 30 2c  31 2c 31 2c 33 2c 33 2c  |1,3,3,0,1,1,3,3,|
000003a0  33 2c 31 2c 31 2c 33 2c  33 2c 33 2c 33 2c 31 0d  |3,1,1,3,3,3,3,1.|
000003b0  02 1c 05 e1 0d 02 26 05  20 0d 02 30 0b dd 20 f2  |......&. ..0.. .|
000003c0  76 61 72 73 0d 02 3a 0a  6d 6f 76 65 3d 30 0d 02  |vars..:.move=0..|
000003d0  44 10 62 6c 78 3d 39 3a  62 6c 79 3d 31 36 0d 02  |D.blx=9:bly=16..|
000003e0  4e 05 e1 0d 02 58 05 20  0d 02 62 0b dd 20 a4 67  |N....X. ..b.. .g|
000003f0  61 6d 65 0d 02 6c 11 71  75 69 74 3d a3 3a 63 6f  |ame..l.quit=.:co|
00000400  6d 70 3d a3 0d 02 76 15  63 75 72 72 65 6e 74 3d  |mp=...v.current=|
00000410  8e 20 22 4b 4e 6c 6f 77  22 0d 02 80 15 6c 6f 77  |. "KNlow"....low|
00000420  65 73 74 3d 9a 23 20 63  75 72 72 65 6e 74 0d 02  |est=.# current..|
00000430  8a 0e d9 23 20 63 75 72  72 65 6e 74 0d 02 94 27  |...# current...'|
00000440  6c 6f 77 24 3d c4 33 2d  a9 28 c3 28 6c 6f 77 65  |low$=.3-.(.(lowe|
00000450  73 74 29 29 2c 22 30 22  29 2b c3 28 6c 6f 77 65  |st)),"0")+.(lowe|
00000460  73 74 29 0d 02 9e 07 fb  20 32 0d 02 a8 1f f1 8a  |st)..... 2......|
00000470  32 2c 33 30 29 20 22 43  55 52 52 45 4e 54 20 4c  |2,30) "CURRENT L|
00000480  4f 57 20 22 3b 6c 6f 77  24 0d 02 b2 10 d4 20 31  |OW ";low$..... 1|
00000490  2c 2d 31 35 2c 35 32 2c  38 0d 02 bc 09 f5 20 fd  |,-15,52,8..... .|
000004a0  20 a5 0d 02 c6 15 f1 20  8a 32 2c 33 30 29 20 c4  | ...... .2,30) .|
000004b0  31 35 2c 22 20 22 29 0d  02 d0 05 f5 0d 02 da 0f  |15," ").........|
000004c0  6d 6f 76 65 3d 6d 6f 76  65 2b 31 0d 02 e4 09 f2  |move=move+1.....|
000004d0  69 6e 63 72 0d 02 ee 0d  63 6f 75 6e 74 65 72 3d  |incr....counter=|
000004e0  31 0d 02 f8 11 d4 20 31  2c 2d 31 35 2c 31 30 30  |1..... 1,-15,100|
000004f0  2c 31 0d 03 02 05 f5 0d  03 0c 0a f2 68 69 67 68  |,1..........high|
00000500  6c 0d 03 16 05 f5 0d 03  20 0b 2a 46 58 31 35 2c  |l....... .*FX15,|
00000510  31 0d 03 2a 0a 6f 70 74  6e 3d a5 0d 03 34 1b e7  |1..*.optn=...4..|
00000520  20 6f 70 74 6e 3d 33 32  20 d4 20 31 2c 2d 31 35  | optn=32 . 1,-15|
00000530  2c 31 34 38 2c 31 0d 03  3e 1b e7 20 6f 70 74 6e  |,148,1..>.. optn|
00000540  3d 31 33 20 d4 20 31 2c  2d 31 35 2c 31 30 30 2c  |=13 . 1,-15,100,|
00000550  34 0d 03 48 14 e7 20 6f  70 74 6e 3d 38 31 20 71  |4..H.. optn=81 q|
00000560  75 69 74 3d b9 0d 03 52  1e fd 20 6f 70 74 6e 3d  |uit=...R.. optn=|
00000570  33 32 20 84 20 6f 70 74  6e 3d 31 33 20 84 20 71  |32 . optn=13 . q|
00000580  75 69 74 0d 03 5c 2b 63  6f 75 6e 74 65 72 3d 63  |uit..\+counter=c|
00000590  6f 75 6e 74 65 72 2b 31  3a e7 20 63 6f 75 6e 74  |ounter+1:. count|
000005a0  65 72 3d 39 20 63 6f 75  6e 74 65 72 3d 31 0d 03  |er=9 counter=1..|
000005b0  66 14 fd 20 6f 70 74 6e  3d 31 33 20 84 20 71 75  |f.. optn=13 . qu|
000005c0  69 74 0d 03 70 12 e7 20  ac 20 71 75 69 74 20 f2  |it..p.. . quit .|
000005d0  6d 6f 76 65 0d 03 7a 17  e7 20 ac 20 71 75 69 74  |move..z.. . quit|
000005e0  20 63 6f 6d 70 3d a4 63  6f 6d 70 0d 03 84 11 fd  | comp=.comp.....|
000005f0  20 63 6f 6d 70 20 84 20  71 75 69 74 0d 03 8e 0d  | comp . quit....|
00000600  e7 20 63 6f 6d 70 3a 3d  31 0d 03 98 0d e7 20 71  |. comp:=1..... q|
00000610  75 69 74 3a 3d 32 0d 03  a2 05 20 0d 03 ac 0b dd  |uit:=2.... .....|
00000620  20 f2 69 6e 63 72 0d 03  b6 11 6d 6f 76 65 24 3d  | .incr....move$=|
00000630  c3 28 6d 6f 76 65 29 0d  03 c0 1a f1 20 8a 38 2b  |.(move)..... .8+|
00000640  28 33 2d a9 28 6d 6f 76  65 24 29 29 2c 32 37 29  |(3-.(move$)),27)|
00000650  3b 0d 03 ca 12 f2 64 6f  75 62 6c 65 28 6d 6f 76  |;.....double(mov|
00000660  65 24 29 0d 03 d4 05 e1  0d 03 de 05 20 0d 03 e8  |e$)......... ...|
00000670  0c dd 20 f2 68 69 67 68  6c 0d 03 f2 07 ef 20 35  |.. .highl..... 5|
00000680  0d 03 fc 3a 6c 63 6f 75  6e 74 3d 63 6f 75 6e 74  |...:lcount=count|
00000690  65 72 2d 31 3a 63 6f 75  6e 74 65 72 3d 63 6f 75  |er-1:counter=cou|
000006a0  6e 74 65 72 2d 31 3a e7  20 6c 63 6f 75 6e 74 3d  |nter-1:. lcount=|
000006b0  30 20 6c 63 6f 75 6e 74  3d 38 0d 04 06 05 f5 0d  |0 lcount=8......|
000006c0  04 10 2b 63 6f 75 6e 74  65 72 3d 63 6f 75 6e 74  |..+counter=count|
000006d0  65 72 2b 31 3a e7 20 63  6f 75 6e 74 65 72 3d 39  |er+1:. counter=9|
000006e0  20 63 6f 75 6e 74 65 72  3d 31 0d 04 1a 1a 68 6c  | counter=1....hl|
000006f0  78 3d 62 6c 78 2b 76 65  63 74 78 28 63 6f 75 6e  |x=blx+vectx(coun|
00000700  74 65 72 29 0d 04 24 1a  68 6c 79 3d 62 6c 79 2b  |ter)..$.hly=bly+|
00000710  76 65 63 74 79 28 63 6f  75 6e 74 65 72 29 0d 04  |vecty(counter)..|
00000720  2e 26 fd 20 68 6c 78 3e  34 20 80 20 68 6c 78 3c  |.&. hlx>4 . hlx<|
00000730  31 34 20 80 20 68 6c 79  3e 31 31 20 80 20 68 6c  |14 . hly>11 . hl|
00000740  79 3c 32 31 0d 04 38 1b  ec 20 a4 78 70 6f 73 28  |y<21..8.. .xpos(|
00000750  68 6c 78 29 2c a4 79 70  6f 73 28 68 6c 79 29 0d  |hlx),.ypos(hly).|
00000760  04 42 0f e6 20 30 2c a4  6f 70 70 63 6f 6c 0d 04  |.B.. 0,.oppcol..|
00000770  4c 0a f1 3b bd 31 33 30  0d 04 56 1b 75 6e 68 6c  |L..;.130..V.unhl|
00000780  78 3d 62 6c 78 2b 76 65  63 74 78 28 6c 63 6f 75  |x=blx+vectx(lcou|
00000790  6e 74 29 0d 04 60 1b 75  6e 68 6c 79 3d 62 6c 79  |nt)..`.unhly=bly|
000007a0  2b 76 65 63 74 79 28 6c  63 6f 75 6e 74 29 0d 04  |+vecty(lcount)..|
000007b0  6a 36 e7 20 75 6e 68 6c  78 3c 34 20 84 20 75 6e  |j6. unhlx<4 . un|
000007c0  68 6c 78 3e 31 34 20 84  20 75 6e 68 6c 79 3c 31  |hlx>14 . unhly<1|
000007d0  31 20 80 20 75 6e 68 6c  79 3e 32 31 20 8c 20 ef  |1 . unhly>21 . .|
000007e0  20 34 3a e1 0d 04 74 1f  ec 20 a4 78 70 6f 73 28  | 4:...t.. .xpos(|
000007f0  75 6e 68 6c 78 29 2c a4  79 70 6f 73 28 75 6e 68  |unhlx),.ypos(unh|
00000800  6c 79 29 0d 04 7e 0e e6  20 30 2c a4 65 71 63 6f  |ly)..~.. 0,.eqco|
00000810  6c 0d 04 88 0a f1 3b bd  31 33 30 0d 04 92 07 ef  |l.....;.130.....|
00000820  20 34 0d 04 9c 05 e1 0d  04 a6 05 20 0d 04 b0 0d  | 4......... ....|
00000830  dd 20 a4 6f 70 70 63 6f  6c 0d 04 ba 27 70 6f 69  |. .oppcol...'poi|
00000840  6e 74 3d b0 a4 78 70 6f  73 28 68 6c 78 29 2b 33  |nt=..xpos(hlx)+3|
00000850  32 2c a4 79 70 6f 73 28  68 6c 79 29 2d 32 30 29  |2,.ypos(hly)-20)|
00000860  0d 04 c4 16 e7 20 70 6f  69 6e 74 3d 31 20 63 6f  |..... point=1 co|
00000870  6c 6f 75 72 3d 33 0d 04  ce 16 e7 20 70 6f 69 6e  |lour=3..... poin|
00000880  74 3d 33 20 63 6f 6c 6f  75 72 3d 31 0d 04 d8 0b  |t=3 colour=1....|
00000890  3d 63 6f 6c 6f 75 72 0d  04 e2 05 20 0d 04 ec 0c  |=colour.... ....|
000008a0  dd 20 a4 65 71 63 6f 6c  0d 04 f6 2b 70 6f 69 6e  |. .eqcol...+poin|
000008b0  74 3d b0 a4 78 70 6f 73  28 75 6e 68 6c 78 29 2b  |t=..xpos(unhlx)+|
000008c0  33 32 2c a4 79 70 6f 73  28 75 6e 68 6c 79 29 2d  |32,.ypos(unhly)-|
000008d0  32 30 29 0d 05 00 0a 3d  70 6f 69 6e 74 0d 05 0a  |20)....=point...|
000008e0  05 20 0d 05 14 0b dd 20  f2 6d 6f 76 65 0d 05 1e  |. ..... .move...|
000008f0  28 63 6e 74 63 6f 6c 3d  b0 a4 78 70 6f 73 28 68  |(cntcol=..xpos(h|
00000900  6c 78 29 2b 33 32 2c a4  79 70 6f 73 28 68 6c 79  |lx)+32,.ypos(hly|
00000910  29 2d 32 30 29 0d 05 28  06 ef 35 0d 05 32 09 e6  |)-20)..(..5..2..|
00000920  20 30 2c 30 0d 05 3c 1b  ec 20 a4 78 70 6f 73 28  | 0,0..<.. .xpos(|
00000930  68 6c 78 29 2c a4 79 70  6f 73 28 68 6c 79 29 0d  |hlx),.ypos(hly).|
00000940  05 46 0b f1 20 bd 20 31  32 38 0d 05 50 09 e6 20  |.F.. . 128..P.. |
00000950  30 2c 32 0d 05 5a 1b ec  20 a4 78 70 6f 73 28 68  |0,2..Z.. .xpos(h|
00000960  6c 78 29 2c a4 79 70 6f  73 28 68 6c 79 29 0d 05  |lx),.ypos(hly)..|
00000970  64 0b f1 20 bd 20 31 32  39 0d 05 6e 0e e6 20 30  |d.. . 129..n.. 0|
00000980  2c 63 6e 74 63 6f 6c 0d  05 78 1b ec 20 a4 78 70  |,cntcol..x.. .xp|
00000990  6f 73 28 62 6c 78 29 2c  a4 79 70 6f 73 28 62 6c  |os(blx),.ypos(bl|
000009a0  79 29 0d 05 82 0b f1 20  bd 20 31 32 38 0d 05 8c  |y)..... . 128...|
000009b0  13 62 6c 78 3d 68 6c 78  3a 62 6c 79 3d 68 6c 79  |.blx=hlx:bly=hly|
000009c0  0d 05 96 06 ef 34 0d 05  a0 05 e1 0d 05 aa 05 20  |.....4......... |
000009d0  0d 05 b4 0b dd 20 a4 63  6f 6d 70 0d 05 be 10 63  |..... .comp....c|
000009e0  6e 74 3d 31 3a 64 6f 6e  65 3d 30 0d 05 c8 17 e3  |nt=1:done=0.....|
000009f0  20 79 3d 36 33 32 20 b8  20 33 37 36 20 88 20 2d  | y=632 . 376 . -|
00000a00  36 34 0d 05 d2 17 e3 20  78 3d 33 35 32 20 b8 20  |64..... x=352 . |
00000a10  38 36 34 20 88 20 31 32  38 0d 05 dc 0f 70 69 78  |864 . 128....pix|
00000a20  65 6c 3d b0 78 2c 79 29  0d 05 e6 21 e7 20 70 69  |el=.x,y)...!. pi|
00000a30  78 65 6c 3d 72 65 71 64  28 63 6e 74 29 20 64 6f  |xel=reqd(cnt) do|
00000a40  6e 65 3d 64 6f 6e 65 2b  31 0d 05 f0 0d 63 6e 74  |ne=done+1....cnt|
00000a50  3d 63 6e 74 2b 31 0d 05  fa 05 ed 0d 06 04 05 ed  |=cnt+1..........|
00000a60  0d 06 0e 10 e7 20 64 6f  6e 65 3d 32 35 20 3d b9  |..... done=25 =.|
00000a70  0d 06 18 06 3d a3 0d 06  22 05 20 0d 06 2c 14 dd  |....=...". ..,..|
00000a80  20 f2 64 6f 75 62 6c 65  28 74 65 78 74 24 29 0d  | .double(text$).|
00000a90  06 36 17 ea 20 63 68 61  72 25 2c 76 64 75 31 25  |.6.. char%,vdu1%|
00000aa0  2c 76 64 75 32 25 0d 06  40 18 e3 20 63 68 61 72  |,vdu2%..@.. char|
00000ab0  25 3d 31 20 b8 20 a9 28  74 65 78 74 24 29 0d 06  |%=1 . .(text$)..|
00000ac0  4a 1b 3f 26 39 30 3d 97  28 c1 74 65 78 74 24 2c  |J.?&90=.(.text$,|
00000ad0  63 68 61 72 25 2c 31 29  29 0d 06 54 15 41 25 3d  |char%,1))..T.A%=|
00000ae0  31 30 3a 58 25 3d 26 39  30 3a 59 25 3d 30 0d 06  |10:X%=&90:Y%=0..|
00000af0  5e 0b d6 20 26 46 46 46  31 0d 06 68 11 e3 20 76  |^.. &FFF1..h.. v|
00000b00  64 75 31 25 3d 30 20 b8  20 31 0d 06 72 0c ef 20  |du1%=0 . 1..r.. |
00000b10  32 33 2c 32 35 35 0d 06  7c 11 e3 20 76 64 75 32  |23,255..|.. vdu2|
00000b20  25 3d 32 20 b8 20 39 0d  06 86 1d ef 20 3f 28 26  |%=2 . 9..... ?(&|
00000b30  39 30 2b 34 2a 76 64 75  31 25 2b 76 64 75 32 25  |90+4*vdu1%+vdu2%|
00000b40  20 81 32 29 0d 06 90 05  ed 0d 06 9a 0e ef 20 32  | .2).......... 2|
00000b50  35 35 2c 31 30 2c 38 0d  06 a4 05 ed 0d 06 ae 0d  |55,10,8.........|
00000b60  ef 20 31 31 2c 31 31 2c  39 0d 06 b8 05 ed 0d 06  |. 11,11,9.......|
00000b70  c2 05 e1 0d 06 cc 05 20  0d 06 d6 14 dd 20 a4 78  |....... ..... .x|
00000b80  70 6f 73 28 78 29 3a 3d  78 2a 36 34 0d 06 e0 1b  |pos(x):=x*64....|
00000b90  dd 20 a4 79 70 6f 73 28  79 29 3a 3d 31 30 31 36  |. .ypos(y):=1016|
00000ba0  2d 79 2a 33 32 2b 34 0d  06 ea 05 20 0d 06 f4 0a  |-y*32+4.... ....|
00000bb0  dd 20 f2 77 6f 6e 0d 06  fe 09 6e 65 77 3d a3 0d  |. .won....new=..|
00000bc0  07 08 13 63 68 65 63 6b  3d 8e 20 22 4b 4e 6c 6f  |...check=. "KNlo|
00000bd0  77 22 0d 07 12 0f 6c 77  3d 9a 23 20 63 68 65 63  |w"....lw=.# chec|
00000be0  6b 0d 07 1c 0c d9 23 20  63 68 65 63 6b 0d 07 26  |k.....# check..&|
00000bf0  1b e7 20 6d 6f 76 65 3c  6c 77 20 6e 65 77 3d b9  |.. move<lw new=.|
00000c00  3a f2 6e 65 77 6c 6f 77  0d 07 30 0e 6c 6f 77 24  |:.newlow..0.low$|
00000c10  3d c3 28 6c 77 29 0d 07  3a 1d 6c 6f 77 24 3d c4  |=.(lw)..:.low$=.|
00000c20  33 2d a9 28 6c 6f 77 24  29 2c 22 30 22 29 2b 6c  |3-.(low$),"0")+l|
00000c30  6f 77 24 0d 07 44 07 fb  20 32 0d 07 4e 1f f1 20  |ow$..D.. 2..N.. |
00000c40  8a 32 2c 32 33 29 20 22  43 4f 4e 47 52 41 54 55  |.2,23) "CONGRATU|
00000c50  4c 41 54 49 4f 4e 53 21  22 0d 07 58 14 f1 20 8a  |LATIONS!"..X.. .|
00000c60  36 2c 32 34 29 20 c4 37  2c 22 20 22 29 0d 07 62  |6,24) .7," ")..b|
00000c70  27 e7 20 6e 65 77 20 f1  20 8a 32 2c 32 35 29 20  |'. new . .2,25) |
00000c80  22 50 52 45 56 49 4f 55  53 20 4c 4f 57 20 22 3b  |"PREVIOUS LOW ";|
00000c90  6c 6f 77 24 0d 07 6c 32  e7 20 ac 20 6e 65 77 20  |low$..l2. . new |
00000ca0  f1 20 8a 32 2c 32 35 29  20 22 41 4c 4c 2d 54 49  |. .2,25) "ALL-TI|
00000cb0  4d 45 20 4c 4f 57 20 22  3b 3a fb 33 3a f1 3b 6c  |ME LOW ";:.3:.;l|
00000cc0  6f 77 24 3a fb 32 0d 07  76 27 f1 20 8a 31 2c 32  |ow$:.2..v'. .1,2|
00000cd0  37 29 20 22 57 4f 4e 20  49 4e 22 3b 8a 31 32 2c  |7) "WON IN";.12,|
00000ce0  32 37 29 20 22 54 55 52  4e 53 21 21 22 0d 07 80  |27) "TURNS!!"...|
00000cf0  0b 2a 46 58 31 35 2c 31  0d 07 8a 09 f5 20 fd 20  |.*FX15,1..... . |
00000d00  a5 0d 07 94 05 e1 0d 07  9e 05 20 0d 07 a8 0d dd  |.......... .....|
00000d10  20 f2 6e 65 77 6c 6f 77  0d 07 b2 14 6e 65 77 6c  | .newlow....newl|
00000d20  6f 77 3d ae 20 22 4b 4e  6c 6f 77 22 0d 07 bc 12  |ow=. "KNlow"....|
00000d30  d5 23 20 6e 65 77 6c 6f  77 2c 6d 6f 76 65 0d 07  |.# newlow,move..|
00000d40  c6 0d d9 23 20 6e 65 77  6c 6f 77 0d 07 d0 05 e1  |...# newlow.....|
00000d50  0d ff                                             |..|
00000d52