Home » Archimedes archive » Archimedes World » AW-1991-05.adf » May91 » !AWMay91/Goodies/Knights/!Knights/GAME

!AWMay91/Goodies/Knights/!Knights/GAME

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1991-05.adf » May91
Filename: !AWMay91/Goodies/Knights/!Knights/GAME
Read OK:
File size: 0B1B bytes
Load address: 0000
Exec address: 0000
File contents
   10REM A KNIGHT PUZZLE   D.A.PEDDER 4/3/90
   20DIM board%(5,5,1)
   30DIM test%(5,5,1)
   40REPEAT
   60MODE 12
   70COLOUR 1,255,255,255
   80COLOUR 2,200,200,200
   90COLOUR 3,100,100,100
  100COLOUR 4,230,230,230
  110COLOUR 5,150,150,150
  120COLOUR 6,255,255,0
  130COLOUR 7,255,255,255
  140COLOUR 8,128,128,255
  150COLOUR 9,240,240,200
  160COLOUR 10,128,100,0
  170COLOUR 11,255,0,0
  180COLOUR 12,240,240,200
  190COLOUR 13,0,80,200
  200COLOUR 14,150,80,0
  210COLOUR 15,80,80,100
  220VDU 23,1,0,0,0,0,0,0,0,0
  230moves%=0:done%=FALSE:play%=TRUE
  240freex%=3:freey%=3:finish%=FALSE:valid%=FALSE
  250vert%=0:horiz%=0
  260RESTORE 370
  270 FOR loop=1 TO 25
  280READ xboard%
  290READ yboard%
  300READ board%(xboard%,yboard%,0)
  310IF board%(xboard%,yboard%,0)=1 THEN board%(xboard%,yboard%,1)=4
  320IF board%(xboard%,yboard%,0)=2 THEN board%(xboard%,yboard%,1)=5
  330IF board%(xboard%,yboard%,0)=1 THEN test%(xboard%,yboard%,1)=5
  340IF board%(xboard%,yboard%,0)=2 THEN test%(xboard%,yboard%,1)=4
  350NEXT
  360test%(3,3,1)=3
  370DATA 1,5,1,2,5,1,3,5,1,4,5,1,5,5,1,2,4,1,3,4,1,4,4,1,5,4,1
  380DATA 4,3,1,5,3,1,5,2,1
  390DATA 1,1,2,2,1,2,3,1,2,4,1,2,5,1,2,1,2,2,2,2,2,3,2,2,4,2,2
  400DATA 1,3,2,2,3,2,1,4,2,3,3,3
  410CLS
  420*SLOAD knightbits
  430PROCdrawboard
  440PRINTTAB(45,15)"READY TO BEGIN"
  450MOUSE ON 1
  460REPEAT
  470REPEAT
  480PROCmove
  490UNTIL valid%=TRUE OR finish%=TRUE
  495IF finish%=FALSE THEN
  500PROCmovebits
  510PROCisitdone
  515ENDIF
  520UNTIL done%=TRUE OR finish%=TRUE
  530PROCplayagain
  540UNTILplay%=FALSE
  550END
  560DEFPROCdrawboard
  570FORhoriz%=1 TO 5
  580FORvert%= 1 TO 5
  590GCOL 0,0
  600VDU 23,27,0,board%(horiz%,vert%,0),0,0,0,0,0,0
  610PLOT &ED,96*horiz%,(96*vert%)+150
  620IF vert%=freey% AND horiz%=freex% THEN nopiece%=1 ELSE nopiece%=0
  630IF nopiece%=0 THEN
  640VDU 23,27,0,board%(horiz%,vert%,1),0,0,0,0,0,0
  650GCOL 8,0
  660PLOT &ED,96*horiz%,(96*vert%)+150
  670ENDIF
  680NEXT
  690NEXT
  700ENDPROC
  710DEFPROCmove
  720button%=0
  730REPEAT
  740MOUSExpos%,ypos%,button%
  750UNTIL button%=0
  760REPEAT
  770MOUSExpos%,ypos%,button%
  780UNTIL button%<>0
  782IF button%<>2 THEN
  790valid%=FALSE
  800 xsel%=(xpos% DIV 96)
  810ysel%=((ypos%-150)DIV 96)
  820IF xsel%>0 AND xsel%<6 AND ysel%>0 AND ysel%<6 THEN
  830IF ABS(xsel%-freex%)=1 AND ABS(ysel%-freey%)=2 THEN valid%=TRUE
  840IF ABS(xsel%-freex%)=2 AND ABS(ysel%-freey%)=1 THEN valid%=TRUE
  850ENDIF
  860IF valid%=TRUE  THEN
  870moves%=moves%+1
  880PRINTTAB(45,15)"NUMBER OF MOVES =";moves%
  890ENDIF
  892ENDIF
  894 IF button%=2 THEN finish%=TRUE
  900ENDPROC
  910DEFPROCmovebits
  920tempfreex%=freex%:tempfreey%=freey%
  930board%(freex%,freey%,1)=board%(xsel%,ysel%,1)
  940board%(xsel%,ysel%,1)=board%(xsel%,ysel%,0)
  950GCOL 8,0
  960VDU 23,27,0,board%(freex%,freey%,1),0,0,0,0,0,0
  970PLOT &ED,96*freex%,(96*freey%)+150
  980freex%=xsel%:freey%=ysel%
  990GCOL 0,0
 1000VDU 23,27,0,board%(freex%,freey%,0),0,0,0,0,0,0
 1010PLOT &ED,96*xsel%,(96*ysel%)+150
 1020ENDPROC
 1030DEFPROCisitdone
 1050done%=TRUE
 1060PRINTTAB(30,2)
 1070FORxtest%=1 TO 5
 1080FORytest%=1 TO 5
 1090IF test%(xtest%,ytest%,1)<>board%(xtest%,ytest%,1) THEN done%=FALSE
 1100NEXT
 1110NEXT
 1120IF done%=TRUE THEN
 1130PRINTTAB(10,27)" PUZZLE COMPLETED IN ";moves%;" MOVES."
 1140ENDIF
 1150ENDPROC
 1160DEFPROCplayagain
 1170PRINTTAB(1,29)"PRESS LEFT MOUSE BUTTON TO PLAY AGAIN,ANY OTHER BUTTON TO LEAVE PROGRAM"
 1180REPEAT:MOUSExpos%,ypos%,button% :UNTIL button%=0
 1190REPEAT:MOUSExpos%,ypos%,button% :UNTIL button%<>0
 1200 IF button%=4 THEN play%=TRUE ELSE play%=FALSE
 1210ENDPROC

)� A KNIGHT PUZZLE   D.A.PEDDER 4/3/90
� board%(5,5,1)
� test%(5,5,1)
(�
<� 12
F� 1,255,255,255
P� 2,200,200,200
Z� 3,100,100,100
d� 4,230,230,230
n� 5,150,150,150
x� 6,255,255,0
�� 7,255,255,255
�� 8,128,128,255
�� 9,240,240,200
�� 10,128,100,0
�� 11,255,0,0
�� 12,240,240,200
�� 13,0,80,200
�� 14,150,80,0
�� 15,80,80,100
�� 23,1,0,0,0,0,0,0,0,0
�moves%=0:done%=�:play%=�
�(freex%=3:freey%=3:finish%=�:valid%=�
�vert%=0:horiz%=0

� �DrA
 � loop=1 � 25

� xboard%
"
� yboard%
,� board%(xboard%,yboard%,0)
6?� board%(xboard%,yboard%,0)=1 � board%(xboard%,yboard%,1)=4
@?� board%(xboard%,yboard%,0)=2 � board%(xboard%,yboard%,1)=5
J>� board%(xboard%,yboard%,0)=1 � test%(xboard%,yboard%,1)=5
T>� board%(xboard%,yboard%,0)=2 � test%(xboard%,yboard%,1)=4
^�
htest%(3,3,1)=3
r;� 1,5,1,2,5,1,3,5,1,4,5,1,5,5,1,2,4,1,3,4,1,4,4,1,5,4,1
|� 4,3,1,5,3,1,5,2,1
�;� 1,1,2,2,1,2,3,1,2,4,1,2,5,1,2,1,2,2,2,2,2,3,2,2,4,2,2
�� 1,3,2,2,3,2,1,4,2,3,3,3
��
�*SLOAD knightbits
��drawboard
��45,15)"READY TO BEGIN"
�
ȗ � 1
��
��
�	�move
�� valid%=� � finish%=�
�� finish%=� �
�
�movebits
�
�isitdone
�
� done%=� � finish%=�
�playagain
�play%=�
&�
0��drawboard
:�horiz%=1 � 5
D�vert%= 1 � 5
N	� 0,0
X0� 23,27,0,board%(horiz%,vert%,0),0,0,0,0,0,0
b"� &ED,96*horiz%,(96*vert%)+150
l<� vert%=freey% � horiz%=freex% � nopiece%=1 � nopiece%=0
v� nopiece%=0 �
�0� 23,27,0,board%(horiz%,vert%,1),0,0,0,0,0,0
�	� 8,0
�"� &ED,96*horiz%,(96*vert%)+150
��
��
��
��
�
��move
�
button%=0
��
�ȗxpos%,ypos%,button%
�� button%=0
��
ȗxpos%,ypos%,button%
� button%<>0
� button%<>2 �
valid%=�
  xsel%=(xpos% � 96)
*ysel%=((ypos%-150)� 96)
4-� xsel%>0 � xsel%<6 � ysel%>0 � ysel%<6 �
>6� �(xsel%-freex%)=1 � �(ysel%-freey%)=2 � valid%=�
H6� �(xsel%-freex%)=2 � �(ysel%-freey%)=1 � valid%=�
R�
\� valid%=�  �
fmoves%=moves%+1
p&�45,15)"NUMBER OF MOVES =";moves%
z�
|�
~ � button%=2 � finish%=�
��
���movebits
�'tempfreex%=freex%:tempfreey%=freey%
�1board%(freex%,freey%,1)=board%(xsel%,ysel%,1)
�/board%(xsel%,ysel%,1)=board%(xsel%,ysel%,0)
�	� 8,0
�1� 23,27,0,board%(freex%,freey%,1),0,0,0,0,0,0
�#� &ED,96*freex%,(96*freey%)+150
�freex%=xsel%:freey%=ysel%
�	� 0,0
�1� 23,27,0,board%(freex%,freey%,0),0,0,0,0,0,0
�!� &ED,96*xsel%,(96*ysel%)+150
��
��isitdone
done%=�
$�30,2)
.�xtest%=1 � 5
8�ytest%=1 � 5
B?� test%(xtest%,ytest%,1)<>board%(xtest%,ytest%,1) � done%=�
L�
V�
`� done%=� �
j4�10,27)" PUZZLE COMPLETED IN ";moves%;" MOVES."
t�
~�
���playagain
�T�1,29)"PRESS LEFT MOUSE BUTTON TO PLAY AGAIN,ANY OTHER BUTTON TO LEAVE PROGRAM"
�(�:ȗxpos%,ypos%,button% :� button%=0
�)�:ȗxpos%,ypos%,button% :� button%<>0
�$ � button%=4 � play%=� � play%=�
��
�
00000000  0d 00 0a 29 f4 20 41 20  4b 4e 49 47 48 54 20 50  |...). A KNIGHT P|
00000010  55 5a 5a 4c 45 20 20 20  44 2e 41 2e 50 45 44 44  |UZZLE   D.A.PEDD|
00000020  45 52 20 34 2f 33 2f 39  30 0d 00 14 13 de 20 62  |ER 4/3/90..... b|
00000030  6f 61 72 64 25 28 35 2c  35 2c 31 29 0d 00 1e 12  |oard%(5,5,1)....|
00000040  de 20 74 65 73 74 25 28  35 2c 35 2c 31 29 0d 00  |. test%(5,5,1)..|
00000050  28 05 f5 0d 00 3c 08 eb  20 31 32 0d 00 46 13 fb  |(....<.. 12..F..|
00000060  20 31 2c 32 35 35 2c 32  35 35 2c 32 35 35 0d 00  | 1,255,255,255..|
00000070  50 13 fb 20 32 2c 32 30  30 2c 32 30 30 2c 32 30  |P.. 2,200,200,20|
00000080  30 0d 00 5a 13 fb 20 33  2c 31 30 30 2c 31 30 30  |0..Z.. 3,100,100|
00000090  2c 31 30 30 0d 00 64 13  fb 20 34 2c 32 33 30 2c  |,100..d.. 4,230,|
000000a0  32 33 30 2c 32 33 30 0d  00 6e 13 fb 20 35 2c 31  |230,230..n.. 5,1|
000000b0  35 30 2c 31 35 30 2c 31  35 30 0d 00 78 11 fb 20  |50,150,150..x.. |
000000c0  36 2c 32 35 35 2c 32 35  35 2c 30 0d 00 82 13 fb  |6,255,255,0.....|
000000d0  20 37 2c 32 35 35 2c 32  35 35 2c 32 35 35 0d 00  | 7,255,255,255..|
000000e0  8c 13 fb 20 38 2c 31 32  38 2c 31 32 38 2c 32 35  |... 8,128,128,25|
000000f0  35 0d 00 96 13 fb 20 39  2c 32 34 30 2c 32 34 30  |5..... 9,240,240|
00000100  2c 32 30 30 0d 00 a0 12  fb 20 31 30 2c 31 32 38  |,200..... 10,128|
00000110  2c 31 30 30 2c 30 0d 00  aa 10 fb 20 31 31 2c 32  |,100,0..... 11,2|
00000120  35 35 2c 30 2c 30 0d 00  b4 14 fb 20 31 32 2c 32  |55,0,0..... 12,2|
00000130  34 30 2c 32 34 30 2c 32  30 30 0d 00 be 11 fb 20  |40,240,200..... |
00000140  31 33 2c 30 2c 38 30 2c  32 30 30 0d 00 c8 11 fb  |13,0,80,200.....|
00000150  20 31 34 2c 31 35 30 2c  38 30 2c 30 0d 00 d2 12  | 14,150,80,0....|
00000160  fb 20 31 35 2c 38 30 2c  38 30 2c 31 30 30 0d 00  |. 15,80,80,100..|
00000170  dc 1a ef 20 32 33 2c 31  2c 30 2c 30 2c 30 2c 30  |... 23,1,0,0,0,0|
00000180  2c 30 2c 30 2c 30 2c 30  0d 00 e6 1c 6d 6f 76 65  |,0,0,0,0....move|
00000190  73 25 3d 30 3a 64 6f 6e  65 25 3d a3 3a 70 6c 61  |s%=0:done%=.:pla|
000001a0  79 25 3d b9 0d 00 f0 28  66 72 65 65 78 25 3d 33  |y%=....(freex%=3|
000001b0  3a 66 72 65 65 79 25 3d  33 3a 66 69 6e 69 73 68  |:freey%=3:finish|
000001c0  25 3d a3 3a 76 61 6c 69  64 25 3d a3 0d 00 fa 14  |%=.:valid%=.....|
000001d0  76 65 72 74 25 3d 30 3a  68 6f 72 69 7a 25 3d 30  |vert%=0:horiz%=0|
000001e0  0d 01 04 0a f7 20 8d 44  72 41 0d 01 0e 12 20 e3  |..... .DrA.... .|
000001f0  20 6c 6f 6f 70 3d 31 20  b8 20 32 35 0d 01 18 0d  | loop=1 . 25....|
00000200  f3 20 78 62 6f 61 72 64  25 0d 01 22 0d f3 20 79  |. xboard%..".. y|
00000210  62 6f 61 72 64 25 0d 01  2c 1f f3 20 62 6f 61 72  |board%..,.. boar|
00000220  64 25 28 78 62 6f 61 72  64 25 2c 79 62 6f 61 72  |d%(xboard%,yboar|
00000230  64 25 2c 30 29 0d 01 36  3f e7 20 62 6f 61 72 64  |d%,0)..6?. board|
00000240  25 28 78 62 6f 61 72 64  25 2c 79 62 6f 61 72 64  |%(xboard%,yboard|
00000250  25 2c 30 29 3d 31 20 8c  20 62 6f 61 72 64 25 28  |%,0)=1 . board%(|
00000260  78 62 6f 61 72 64 25 2c  79 62 6f 61 72 64 25 2c  |xboard%,yboard%,|
00000270  31 29 3d 34 0d 01 40 3f  e7 20 62 6f 61 72 64 25  |1)=4..@?. board%|
00000280  28 78 62 6f 61 72 64 25  2c 79 62 6f 61 72 64 25  |(xboard%,yboard%|
00000290  2c 30 29 3d 32 20 8c 20  62 6f 61 72 64 25 28 78  |,0)=2 . board%(x|
000002a0  62 6f 61 72 64 25 2c 79  62 6f 61 72 64 25 2c 31  |board%,yboard%,1|
000002b0  29 3d 35 0d 01 4a 3e e7  20 62 6f 61 72 64 25 28  |)=5..J>. board%(|
000002c0  78 62 6f 61 72 64 25 2c  79 62 6f 61 72 64 25 2c  |xboard%,yboard%,|
000002d0  30 29 3d 31 20 8c 20 74  65 73 74 25 28 78 62 6f  |0)=1 . test%(xbo|
000002e0  61 72 64 25 2c 79 62 6f  61 72 64 25 2c 31 29 3d  |ard%,yboard%,1)=|
000002f0  35 0d 01 54 3e e7 20 62  6f 61 72 64 25 28 78 62  |5..T>. board%(xb|
00000300  6f 61 72 64 25 2c 79 62  6f 61 72 64 25 2c 30 29  |oard%,yboard%,0)|
00000310  3d 32 20 8c 20 74 65 73  74 25 28 78 62 6f 61 72  |=2 . test%(xboar|
00000320  64 25 2c 79 62 6f 61 72  64 25 2c 31 29 3d 34 0d  |d%,yboard%,1)=4.|
00000330  01 5e 05 ed 0d 01 68 12  74 65 73 74 25 28 33 2c  |.^....h.test%(3,|
00000340  33 2c 31 29 3d 33 0d 01  72 3b dc 20 31 2c 35 2c  |3,1)=3..r;. 1,5,|
00000350  31 2c 32 2c 35 2c 31 2c  33 2c 35 2c 31 2c 34 2c  |1,2,5,1,3,5,1,4,|
00000360  35 2c 31 2c 35 2c 35 2c  31 2c 32 2c 34 2c 31 2c  |5,1,5,5,1,2,4,1,|
00000370  33 2c 34 2c 31 2c 34 2c  34 2c 31 2c 35 2c 34 2c  |3,4,1,4,4,1,5,4,|
00000380  31 0d 01 7c 17 dc 20 34  2c 33 2c 31 2c 35 2c 33  |1..|.. 4,3,1,5,3|
00000390  2c 31 2c 35 2c 32 2c 31  0d 01 86 3b dc 20 31 2c  |,1,5,2,1...;. 1,|
000003a0  31 2c 32 2c 32 2c 31 2c  32 2c 33 2c 31 2c 32 2c  |1,2,2,1,2,3,1,2,|
000003b0  34 2c 31 2c 32 2c 35 2c  31 2c 32 2c 31 2c 32 2c  |4,1,2,5,1,2,1,2,|
000003c0  32 2c 32 2c 32 2c 32 2c  33 2c 32 2c 32 2c 34 2c  |2,2,2,2,3,2,2,4,|
000003d0  32 2c 32 0d 01 90 1d dc  20 31 2c 33 2c 32 2c 32  |2,2..... 1,3,2,2|
000003e0  2c 33 2c 32 2c 31 2c 34  2c 32 2c 33 2c 33 2c 33  |,3,2,1,4,2,3,3,3|
000003f0  0d 01 9a 05 db 0d 01 a4  15 2a 53 4c 4f 41 44 20  |.........*SLOAD |
00000400  6b 6e 69 67 68 74 62 69  74 73 0d 01 ae 0e f2 64  |knightbits.....d|
00000410  72 61 77 62 6f 61 72 64  0d 01 b8 1c f1 8a 34 35  |rawboard......45|
00000420  2c 31 35 29 22 52 45 41  44 59 20 54 4f 20 42 45  |,15)"READY TO BE|
00000430  47 49 4e 22 0d 01 c2 0a  c8 97 20 ee 20 31 0d 01  |GIN"...... . 1..|
00000440  cc 05 f5 0d 01 d6 05 f5  0d 01 e0 09 f2 6d 6f 76  |.............mov|
00000450  65 0d 01 ea 1a fd 20 76  61 6c 69 64 25 3d b9 20  |e..... valid%=. |
00000460  84 20 66 69 6e 69 73 68  25 3d b9 0d 01 ef 11 e7  |. finish%=......|
00000470  20 66 69 6e 69 73 68 25  3d a3 20 8c 0d 01 f4 0d  | finish%=. .....|
00000480  f2 6d 6f 76 65 62 69 74  73 0d 01 fe 0d f2 69 73  |.movebits.....is|
00000490  69 74 64 6f 6e 65 0d 02  03 05 cd 0d 02 08 19 fd  |itdone..........|
000004a0  20 64 6f 6e 65 25 3d b9  20 84 20 66 69 6e 69 73  | done%=. . finis|
000004b0  68 25 3d b9 0d 02 12 0e  f2 70 6c 61 79 61 67 61  |h%=......playaga|
000004c0  69 6e 0d 02 1c 0c fd 70  6c 61 79 25 3d a3 0d 02  |in.....play%=...|
000004d0  26 05 e0 0d 02 30 0f dd  f2 64 72 61 77 62 6f 61  |&....0...drawboa|
000004e0  72 64 0d 02 3a 11 e3 68  6f 72 69 7a 25 3d 31 20  |rd..:..horiz%=1 |
000004f0  b8 20 35 0d 02 44 11 e3  76 65 72 74 25 3d 20 31  |. 5..D..vert%= 1|
00000500  20 b8 20 35 0d 02 4e 09  e6 20 30 2c 30 0d 02 58  | . 5..N.. 0,0..X|
00000510  30 ef 20 32 33 2c 32 37  2c 30 2c 62 6f 61 72 64  |0. 23,27,0,board|
00000520  25 28 68 6f 72 69 7a 25  2c 76 65 72 74 25 2c 30  |%(horiz%,vert%,0|
00000530  29 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 02 62  |),0,0,0,0,0,0..b|
00000540  22 f0 20 26 45 44 2c 39  36 2a 68 6f 72 69 7a 25  |". &ED,96*horiz%|
00000550  2c 28 39 36 2a 76 65 72  74 25 29 2b 31 35 30 0d  |,(96*vert%)+150.|
00000560  02 6c 3c e7 20 76 65 72  74 25 3d 66 72 65 65 79  |.l<. vert%=freey|
00000570  25 20 80 20 68 6f 72 69  7a 25 3d 66 72 65 65 78  |% . horiz%=freex|
00000580  25 20 8c 20 6e 6f 70 69  65 63 65 25 3d 31 20 8b  |% . nopiece%=1 .|
00000590  20 6e 6f 70 69 65 63 65  25 3d 30 0d 02 76 12 e7  | nopiece%=0..v..|
000005a0  20 6e 6f 70 69 65 63 65  25 3d 30 20 8c 0d 02 80  | nopiece%=0 ....|
000005b0  30 ef 20 32 33 2c 32 37  2c 30 2c 62 6f 61 72 64  |0. 23,27,0,board|
000005c0  25 28 68 6f 72 69 7a 25  2c 76 65 72 74 25 2c 31  |%(horiz%,vert%,1|
000005d0  29 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 02 8a  |),0,0,0,0,0,0...|
000005e0  09 e6 20 38 2c 30 0d 02  94 22 f0 20 26 45 44 2c  |.. 8,0...". &ED,|
000005f0  39 36 2a 68 6f 72 69 7a  25 2c 28 39 36 2a 76 65  |96*horiz%,(96*ve|
00000600  72 74 25 29 2b 31 35 30  0d 02 9e 05 cd 0d 02 a8  |rt%)+150........|
00000610  05 ed 0d 02 b2 05 ed 0d  02 bc 05 e1 0d 02 c6 0a  |................|
00000620  dd f2 6d 6f 76 65 0d 02  d0 0d 62 75 74 74 6f 6e  |..move....button|
00000630  25 3d 30 0d 02 da 05 f5  0d 02 e4 19 c8 97 78 70  |%=0...........xp|
00000640  6f 73 25 2c 79 70 6f 73  25 2c 62 75 74 74 6f 6e  |os%,ypos%,button|
00000650  25 0d 02 ee 0f fd 20 62  75 74 74 6f 6e 25 3d 30  |%..... button%=0|
00000660  0d 02 f8 05 f5 0d 03 02  19 c8 97 78 70 6f 73 25  |...........xpos%|
00000670  2c 79 70 6f 73 25 2c 62  75 74 74 6f 6e 25 0d 03  |,ypos%,button%..|
00000680  0c 10 fd 20 62 75 74 74  6f 6e 25 3c 3e 30 0d 03  |... button%<>0..|
00000690  0e 12 e7 20 62 75 74 74  6f 6e 25 3c 3e 32 20 8c  |... button%<>2 .|
000006a0  0d 03 16 0c 76 61 6c 69  64 25 3d a3 0d 03 20 17  |....valid%=... .|
000006b0  20 78 73 65 6c 25 3d 28  78 70 6f 73 25 20 81 20  | xsel%=(xpos% . |
000006c0  39 36 29 0d 03 2a 1b 79  73 65 6c 25 3d 28 28 79  |96)..*.ysel%=((y|
000006d0  70 6f 73 25 2d 31 35 30  29 81 20 39 36 29 0d 03  |pos%-150). 96)..|
000006e0  34 2d e7 20 78 73 65 6c  25 3e 30 20 80 20 78 73  |4-. xsel%>0 . xs|
000006f0  65 6c 25 3c 36 20 80 20  79 73 65 6c 25 3e 30 20  |el%<6 . ysel%>0 |
00000700  80 20 79 73 65 6c 25 3c  36 20 8c 0d 03 3e 36 e7  |. ysel%<6 ...>6.|
00000710  20 94 28 78 73 65 6c 25  2d 66 72 65 65 78 25 29  | .(xsel%-freex%)|
00000720  3d 31 20 80 20 94 28 79  73 65 6c 25 2d 66 72 65  |=1 . .(ysel%-fre|
00000730  65 79 25 29 3d 32 20 8c  20 76 61 6c 69 64 25 3d  |ey%)=2 . valid%=|
00000740  b9 0d 03 48 36 e7 20 94  28 78 73 65 6c 25 2d 66  |...H6. .(xsel%-f|
00000750  72 65 65 78 25 29 3d 32  20 80 20 94 28 79 73 65  |reex%)=2 . .(yse|
00000760  6c 25 2d 66 72 65 65 79  25 29 3d 31 20 8c 20 76  |l%-freey%)=1 . v|
00000770  61 6c 69 64 25 3d b9 0d  03 52 05 cd 0d 03 5c 11  |alid%=...R....\.|
00000780  e7 20 76 61 6c 69 64 25  3d b9 20 20 8c 0d 03 66  |. valid%=.  ...f|
00000790  13 6d 6f 76 65 73 25 3d  6d 6f 76 65 73 25 2b 31  |.moves%=moves%+1|
000007a0  0d 03 70 26 f1 8a 34 35  2c 31 35 29 22 4e 55 4d  |..p&..45,15)"NUM|
000007b0  42 45 52 20 4f 46 20 4d  4f 56 45 53 20 3d 22 3b  |BER OF MOVES =";|
000007c0  6d 6f 76 65 73 25 0d 03  7a 05 cd 0d 03 7c 05 cd  |moves%..z....|..|
000007d0  0d 03 7e 1c 20 e7 20 62  75 74 74 6f 6e 25 3d 32  |..~. . button%=2|
000007e0  20 8c 20 66 69 6e 69 73  68 25 3d b9 0d 03 84 05  | . finish%=.....|
000007f0  e1 0d 03 8e 0e dd f2 6d  6f 76 65 62 69 74 73 0d  |.......movebits.|
00000800  03 98 27 74 65 6d 70 66  72 65 65 78 25 3d 66 72  |..'tempfreex%=fr|
00000810  65 65 78 25 3a 74 65 6d  70 66 72 65 65 79 25 3d  |eex%:tempfreey%=|
00000820  66 72 65 65 79 25 0d 03  a2 31 62 6f 61 72 64 25  |freey%...1board%|
00000830  28 66 72 65 65 78 25 2c  66 72 65 65 79 25 2c 31  |(freex%,freey%,1|
00000840  29 3d 62 6f 61 72 64 25  28 78 73 65 6c 25 2c 79  |)=board%(xsel%,y|
00000850  73 65 6c 25 2c 31 29 0d  03 ac 2f 62 6f 61 72 64  |sel%,1).../board|
00000860  25 28 78 73 65 6c 25 2c  79 73 65 6c 25 2c 31 29  |%(xsel%,ysel%,1)|
00000870  3d 62 6f 61 72 64 25 28  78 73 65 6c 25 2c 79 73  |=board%(xsel%,ys|
00000880  65 6c 25 2c 30 29 0d 03  b6 09 e6 20 38 2c 30 0d  |el%,0)..... 8,0.|
00000890  03 c0 31 ef 20 32 33 2c  32 37 2c 30 2c 62 6f 61  |..1. 23,27,0,boa|
000008a0  72 64 25 28 66 72 65 65  78 25 2c 66 72 65 65 79  |rd%(freex%,freey|
000008b0  25 2c 31 29 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |%,1),0,0,0,0,0,0|
000008c0  0d 03 ca 23 f0 20 26 45  44 2c 39 36 2a 66 72 65  |...#. &ED,96*fre|
000008d0  65 78 25 2c 28 39 36 2a  66 72 65 65 79 25 29 2b  |ex%,(96*freey%)+|
000008e0  31 35 30 0d 03 d4 1d 66  72 65 65 78 25 3d 78 73  |150....freex%=xs|
000008f0  65 6c 25 3a 66 72 65 65  79 25 3d 79 73 65 6c 25  |el%:freey%=ysel%|
00000900  0d 03 de 09 e6 20 30 2c  30 0d 03 e8 31 ef 20 32  |..... 0,0...1. 2|
00000910  33 2c 32 37 2c 30 2c 62  6f 61 72 64 25 28 66 72  |3,27,0,board%(fr|
00000920  65 65 78 25 2c 66 72 65  65 79 25 2c 30 29 2c 30  |eex%,freey%,0),0|
00000930  2c 30 2c 30 2c 30 2c 30  2c 30 0d 03 f2 21 f0 20  |,0,0,0,0,0...!. |
00000940  26 45 44 2c 39 36 2a 78  73 65 6c 25 2c 28 39 36  |&ED,96*xsel%,(96|
00000950  2a 79 73 65 6c 25 29 2b  31 35 30 0d 03 fc 05 e1  |*ysel%)+150.....|
00000960  0d 04 06 0e dd f2 69 73  69 74 64 6f 6e 65 0d 04  |......isitdone..|
00000970  1a 0b 64 6f 6e 65 25 3d  b9 0d 04 24 0b f1 8a 33  |..done%=...$...3|
00000980  30 2c 32 29 0d 04 2e 11  e3 78 74 65 73 74 25 3d  |0,2).....xtest%=|
00000990  31 20 b8 20 35 0d 04 38  11 e3 79 74 65 73 74 25  |1 . 5..8..ytest%|
000009a0  3d 31 20 b8 20 35 0d 04  42 3f e7 20 74 65 73 74  |=1 . 5..B?. test|
000009b0  25 28 78 74 65 73 74 25  2c 79 74 65 73 74 25 2c  |%(xtest%,ytest%,|
000009c0  31 29 3c 3e 62 6f 61 72  64 25 28 78 74 65 73 74  |1)<>board%(xtest|
000009d0  25 2c 79 74 65 73 74 25  2c 31 29 20 8c 20 64 6f  |%,ytest%,1) . do|
000009e0  6e 65 25 3d a3 0d 04 4c  05 ed 0d 04 56 05 ed 0d  |ne%=...L....V...|
000009f0  04 60 0f e7 20 64 6f 6e  65 25 3d b9 20 8c 0d 04  |.`.. done%=. ...|
00000a00  6a 34 f1 8a 31 30 2c 32  37 29 22 20 50 55 5a 5a  |j4..10,27)" PUZZ|
00000a10  4c 45 20 43 4f 4d 50 4c  45 54 45 44 20 49 4e 20  |LE COMPLETED IN |
00000a20  22 3b 6d 6f 76 65 73 25  3b 22 20 4d 4f 56 45 53  |";moves%;" MOVES|
00000a30  2e 22 0d 04 74 05 cd 0d  04 7e 05 e1 0d 04 88 0f  |."..t....~......|
00000a40  dd f2 70 6c 61 79 61 67  61 69 6e 0d 04 92 54 f1  |..playagain...T.|
00000a50  8a 31 2c 32 39 29 22 50  52 45 53 53 20 4c 45 46  |.1,29)"PRESS LEF|
00000a60  54 20 4d 4f 55 53 45 20  42 55 54 54 4f 4e 20 54  |T MOUSE BUTTON T|
00000a70  4f 20 50 4c 41 59 20 41  47 41 49 4e 2c 41 4e 59  |O PLAY AGAIN,ANY|
00000a80  20 4f 54 48 45 52 20 42  55 54 54 4f 4e 20 54 4f  | OTHER BUTTON TO|
00000a90  20 4c 45 41 56 45 20 50  52 4f 47 52 41 4d 22 0d  | LEAVE PROGRAM".|
00000aa0  04 9c 28 f5 3a c8 97 78  70 6f 73 25 2c 79 70 6f  |..(.:..xpos%,ypo|
00000ab0  73 25 2c 62 75 74 74 6f  6e 25 20 3a fd 20 62 75  |s%,button% :. bu|
00000ac0  74 74 6f 6e 25 3d 30 0d  04 a6 29 f5 3a c8 97 78  |tton%=0...).:..x|
00000ad0  70 6f 73 25 2c 79 70 6f  73 25 2c 62 75 74 74 6f  |pos%,ypos%,butto|
00000ae0  6e 25 20 3a fd 20 62 75  74 74 6f 6e 25 3c 3e 30  |n% :. button%<>0|
00000af0  0d 04 b0 24 20 e7 20 62  75 74 74 6f 6e 25 3d 34  |...$ . button%=4|
00000b00  20 8c 20 70 6c 61 79 25  3d b9 20 8b 20 70 6c 61  | . play%=. . pla|
00000b10  79 25 3d a3 0d 04 ba 05  e1 0d ff                 |y%=........|
00000b1b