� Program SOLITAIRE 
� Version E1.0 
%� Authors D.Robinson & R.Walmsley
(� ELBUG   DECEMBER 1984  
2"� Program subject to copyright
<:
F� � � �t~J
P:
d� 1
n	�init
x
�instruct
�� 5
��
�
�reset
��drawboard
��
�	�play
�
� end%
�'� board%(5,5)=226 � peg%=1 � won%=�
��ending
�
� finish%
��6
��
�:
�� �init
�� board%(10,10)
�R%=310  
� I%=1 � 10
� J%=1 � 10
board%(I%,J%)=32
$�:�
.�23,224,0,8,28,42,8,8,8,0
8%�23,226,126,90,126,60,36,66,129,0
B)�23,225,60,126,126,126,126,126,60,0  
L�23,227,0,8,8,8,42,28,8,0 
V�23,1,0;0;0;0;
`�
j:
t� �instruct
~
� 2   
��15,1)"SOLITAIRE"  
��15,2)�9,"*")  
�� 3
��11,4)"Hop over the pegs"
��11,6)"to leave a single"
��11,8)"peg in the centre"
�� 2
�!�10,11)"To move the cursor:"
��15,13)"Z - LEFT"  
��15,15)"X - RIGHT"   
��15,17)"* - UP"   
��15,19)"/ - DOWN"    
"�10,23)"space bar to pick up"

 �11,25)"and put down a peg"
� 3
#�11,30)"SPACE BAR TO PLAY"    
(� � �=32
2�
<:
F� �reset
P�23,1,0;0;0;0; 
Z� I%=2 � 8
d� J%=4 � 6
nboard%(I%,J%)=226
xboard%(J%,I%)=226
��:�
�board%(5,5)=225
�peg%=32
�OX%=5:OY%=5
�end%=�:finish%=�
�won%=�:up%=�
��
�:
�� �drawboard
��19,0,4;0;
��19,1,0;0;  
��19,2,1;0;
��19,3,3;0;  
�   
� 3
� 29,606;500;
"	� 0,0
,� A=0 � 7 � 0.3
6� 0,0:� 85,R%*�(A),R%*�(A)
@� A
J�5,3)"SOLITAIRE"
T�5,4)�9,"*")  
^	� 131
h� I%=2 � 8
r� J%=2 � 8
|�print(board%(I%,J%),I%,J%)
��:�
��cursor(OX%,OY%)
��
�:
�� �print(C%,X%,Y%)
�
� C%�4
��X%+4,Y%*2+6)�C%
�board%(X%,Y%)=C%
��
�:
�� �cursor(XC%,YC%)
�� 1
�� board%(XC%,YC%)=32 � �  
�OX%+4,OY%*2+7)�32
�OX%+4,OY%*2+5)�32 
�XC%+4,YC%*2+7)�224
&�XC%+4,YC%*2+5)�227
0OX%=XC%:OY%=YC%
:�
D:
N� �check
X� peg%=1 � end%=�:�
bmove%=�
l� I%=1 � 8
v� J%=1 � 8
�� board%(I%,J%)=226 � �go
�� move%=� � I%=8:J%=8
��:�
�� move%=� � end%=�
��
�:
�	� �go
�;� board%(I%-1,J%)=226 � board%(I%-2,J%)=225 � move%=�:�
�;� board%(I%+1,J%)=226 � board%(I%+2,J%)=225 � move%=�:�
�;� board%(I%,J%-1)=226 � board%(I%,J%-2)=225 � move%=�:�
�9� board%(I%,J%+1)=226 � board%(I%,J%+2)=225 � move%=�
��
�:
� �play
� up%=� � �check
� end%=� � �
 �
*Xpos%=OX%:Ypos%=OY%
4A$=�
>� A$="Z"� Xpos%=Xpos%-1
H� A$="X"� Xpos%=Xpos%+1
R� A$=":"� Ypos%=Ypos%-1
\� A$="/"� Ypos%=Ypos%+1
f�cursor(Xpos%,Ypos%)
p� A$=�32
z/� board%(Xpos%,Ypos%)=226 � up%=� � �pick:�
�2� board%(Xpos%,Ypos%)=225 � up%=� � �putdown:�
�0� board%(Xpos%,Ypos%)=227 � up%=� � �replace
��
�:
�� �pick
�Ifirst%=Xpos%
�Jfirst%=Ypos%
�� 1,-15,80,3
��print(227,Xpos%,Ypos%)
�	up%=�
��
�:
�� �putdown
	Ilast%=Xpos%
	Jlast%=Ypos%
	Istep%=Ilast%-Ifirst%
	$Jstep%=Jlast%-Jfirst%
	.� Istep%*Jstep%<>0 � �
	8� �(Istep%+Jstep%)<>2 � �
	BImid%=Ifirst%+(Istep%�2)
	LJmid%=Jfirst%+(Jstep%�2)
	V"� board%(Imid%,Jmid%)<>226 � �
	`� 1,-15,10,3
	j�print(225,Ifirst%,Jfirst%)
	t� 1,-15,80,3
	~�print(226,Ilast%,Jlast%)
	�� 1,-15,80,3
	��print(225,Imid%,Jmid%)
	�	up%=�
	�peg%=peg%-1
	��
	�:
	�� �replace
	��print(226,Xpos%,Ypos%)
	�	up%=�
	��
	�:
	�
� �ending
T%=�+100:� � �>T%  

� 128:�2
�5,6)"Game Over"  
�3 
('� won% � �2,26)"Congratulations"  
2B� �(won%) � �1,26)"A good try - better"�3,27)"luck next time"
<�2
F� P%=200 � 50 �-10
P� 1,-15,P%,2
Z� P%
dT%=�+100:� � �>T%
n�1,29)"Another game - Y/N"
x� 1,-15,200,3
��
�A%=�"YyNn",�)
�
� A%>0
�� A%>2 � finish%=�    
��
�:
�
� � � 
�	� 6  
�� �=17 � �
��:� " at line ";� 
��
�

00000000  0d 00 0a 18 f4 20 50 72  6f 67 72 61 6d 20 53 4f  |..... Program SO|
00000010  4c 49 54 41 49 52 45 20  0d 00 14 13 f4 20 56 65  |LITAIRE ..... Ve|
00000020  72 73 69 6f 6e 20 45 31  2e 30 20 0d 00 1e 25 f4  |rsion E1.0 ...%.|
00000030  20 41 75 74 68 6f 72 73  20 44 2e 52 6f 62 69 6e  | Authors D.Robin|
00000040  73 6f 6e 20 26 20 52 2e  57 61 6c 6d 73 6c 65 79  |son & R.Walmsley|
00000050  0d 00 28 1d f4 20 45 4c  42 55 47 20 20 20 44 45  |..(.. ELBUG   DE|
00000060  43 45 4d 42 45 52 20 31  39 38 34 20 20 0d 00 32  |CEMBER 1984  ..2|
00000070  22 f4 20 50 72 6f 67 72  61 6d 20 73 75 62 6a 65  |". Program subje|
00000080  63 74 20 74 6f 20 63 6f  70 79 72 69 67 68 74 0d  |ct to copyright.|
00000090  00 3c 05 3a 0d 00 46 0e  ee 20 85 20 e5 20 8d 74  |.<.:..F.. . . .t|
000000a0  7e 4a 0d 00 50 05 3a 0d  00 64 07 eb 20 31 0d 00  |~J..P.:..d.. 1..|
000000b0  6e 09 f2 69 6e 69 74 0d  00 78 0d f2 69 6e 73 74  |n..init..x..inst|
000000c0  72 75 63 74 0d 00 82 07  eb 20 35 0d 00 8c 05 f5  |ruct..... 5.....|
000000d0  0d 00 96 0a f2 72 65 73  65 74 0d 00 a0 0e f2 64  |.....reset.....d|
000000e0  72 61 77 62 6f 61 72 64  0d 00 aa 05 f5 0d 00 b4  |rawboard........|
000000f0  09 f2 70 6c 61 79 0d 00  be 0a fd 20 65 6e 64 25  |..play..... end%|
00000100  0d 00 c8 27 e7 20 62 6f  61 72 64 25 28 35 2c 35  |...'. board%(5,5|
00000110  29 3d 32 32 36 20 80 20  70 65 67 25 3d 31 20 8c  |)=226 . peg%=1 .|
00000120  20 77 6f 6e 25 3d b9 0d  00 d2 0b f2 65 6e 64 69  | won%=......endi|
00000130  6e 67 0d 00 dc 0d fd 20  66 69 6e 69 73 68 25 0d  |ng..... finish%.|
00000140  00 e6 06 eb 36 0d 00 f0  05 e0 0d 00 fa 05 3a 0d  |....6.........:.|
00000150  03 e8 0b dd 20 f2 69 6e  69 74 0d 03 f2 13 de 20  |.... .init..... |
00000160  62 6f 61 72 64 25 28 31  30 2c 31 30 29 0d 03 fc  |board%(10,10)...|
00000170  0c 52 25 3d 33 31 30 20  20 0d 04 06 0f e3 20 49  |.R%=310  ..... I|
00000180  25 3d 31 20 b8 20 31 30  0d 04 10 0f e3 20 4a 25  |%=1 . 10..... J%|
00000190  3d 31 20 b8 20 31 30 0d  04 1a 14 62 6f 61 72 64  |=1 . 10....board|
000001a0  25 28 49 25 2c 4a 25 29  3d 33 32 0d 04 24 07 ed  |%(I%,J%)=32..$..|
000001b0  3a ed 0d 04 2e 1d ef 32  33 2c 32 32 34 2c 30 2c  |:......23,224,0,|
000001c0  38 2c 32 38 2c 34 32 2c  38 2c 38 2c 38 2c 30 0d  |8,28,42,8,8,8,0.|
000001d0  04 38 25 ef 32 33 2c 32  32 36 2c 31 32 36 2c 39  |.8%.23,226,126,9|
000001e0  30 2c 31 32 36 2c 36 30  2c 33 36 2c 36 36 2c 31  |0,126,60,36,66,1|
000001f0  32 39 2c 30 0d 04 42 29  ef 32 33 2c 32 32 35 2c  |29,0..B).23,225,|
00000200  36 30 2c 31 32 36 2c 31  32 36 2c 31 32 36 2c 31  |60,126,126,126,1|
00000210  32 36 2c 31 32 36 2c 36  30 2c 30 20 20 0d 04 4c  |26,126,60,0  ..L|
00000220  1e ef 32 33 2c 32 32 37  2c 30 2c 38 2c 38 2c 38  |..23,227,0,8,8,8|
00000230  2c 34 32 2c 32 38 2c 38  2c 30 20 0d 04 56 12 ef  |,42,28,8,0 ..V..|
00000240  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 04 60  |23,1,0;0;0;0;..`|
00000250  05 e1 0d 04 6a 05 3a 0d  04 74 0f dd 20 f2 69 6e  |....j.:..t.. .in|
00000260  73 74 72 75 63 74 0d 04  7e 0a fb 20 32 20 20 20  |struct..~.. 2   |
00000270  0d 04 88 18 f1 8a 31 35  2c 31 29 22 53 4f 4c 49  |......15,1)"SOLI|
00000280  54 41 49 52 45 22 20 20  0d 04 92 14 f1 8a 31 35  |TAIRE"  ......15|
00000290  2c 32 29 c4 39 2c 22 2a  22 29 20 20 0d 04 9c 07  |,2).9,"*")  ....|
000002a0  fb 20 33 0d 04 a6 1e f1  8a 31 31 2c 34 29 22 48  |. 3......11,4)"H|
000002b0  6f 70 20 6f 76 65 72 20  74 68 65 20 70 65 67 73  |op over the pegs|
000002c0  22 0d 04 b0 1e f1 8a 31  31 2c 36 29 22 74 6f 20  |"......11,6)"to |
000002d0  6c 65 61 76 65 20 61 20  73 69 6e 67 6c 65 22 0d  |leave a single".|
000002e0  04 ba 1e f1 8a 31 31 2c  38 29 22 70 65 67 20 69  |.....11,8)"peg i|
000002f0  6e 20 74 68 65 20 63 65  6e 74 72 65 22 0d 04 c4  |n the centre"...|
00000300  07 fb 20 32 0d 04 ce 21  f1 8a 31 30 2c 31 31 29  |.. 2...!..10,11)|
00000310  22 54 6f 20 6d 6f 76 65  20 74 68 65 20 63 75 72  |"To move the cur|
00000320  73 6f 72 3a 22 0d 04 d8  18 f1 8a 31 35 2c 31 33  |sor:"......15,13|
00000330  29 22 5a 20 2d 20 4c 45  46 54 22 20 20 0d 04 e2  |)"Z - LEFT"  ...|
00000340  1a f1 8a 31 35 2c 31 35  29 22 58 20 2d 20 52 49  |...15,15)"X - RI|
00000350  47 48 54 22 20 20 20 0d  04 ec 17 f1 8a 31 35 2c  |GHT"   ......15,|
00000360  31 37 29 22 2a 20 2d 20  55 50 22 20 20 20 0d 04  |17)"* - UP"   ..|
00000370  f6 1a f1 8a 31 35 2c 31  39 29 22 2f 20 2d 20 44  |....15,19)"/ - D|
00000380  4f 57 4e 22 20 20 20 20  0d 05 00 22 f1 8a 31 30  |OWN"    ..."..10|
00000390  2c 32 33 29 22 73 70 61  63 65 20 62 61 72 20 74  |,23)"space bar t|
000003a0  6f 20 70 69 63 6b 20 75  70 22 0d 05 0a 20 f1 8a  |o pick up"... ..|
000003b0  31 31 2c 32 35 29 22 61  6e 64 20 70 75 74 20 64  |11,25)"and put d|
000003c0  6f 77 6e 20 61 20 70 65  67 22 0d 05 14 07 fb 20  |own a peg"..... |
000003d0  33 0d 05 1e 23 f1 8a 31  31 2c 33 30 29 22 53 50  |3...#..11,30)"SP|
000003e0  41 43 45 20 42 41 52 20  54 4f 20 50 4c 41 59 22  |ACE BAR TO PLAY"|
000003f0  20 20 20 20 0d 05 28 0c  f5 20 fd 20 a5 3d 33 32  |    ..(.. . .=32|
00000400  0d 05 32 05 e1 0d 05 3c  05 3a 0d 05 46 0c dd 20  |..2....<.:..F.. |
00000410  f2 72 65 73 65 74 0d 05  50 13 ef 32 33 2c 31 2c  |.reset..P..23,1,|
00000420  30 3b 30 3b 30 3b 30 3b  20 0d 05 5a 0e e3 20 49  |0;0;0;0; ..Z.. I|
00000430  25 3d 32 20 b8 20 38 0d  05 64 0e e3 20 4a 25 3d  |%=2 . 8..d.. J%=|
00000440  34 20 b8 20 36 0d 05 6e  15 62 6f 61 72 64 25 28  |4 . 6..n.board%(|
00000450  49 25 2c 4a 25 29 3d 32  32 36 0d 05 78 15 62 6f  |I%,J%)=226..x.bo|
00000460  61 72 64 25 28 4a 25 2c  49 25 29 3d 32 32 36 0d  |ard%(J%,I%)=226.|
00000470  05 82 07 ed 3a ed 0d 05  8c 13 62 6f 61 72 64 25  |....:.....board%|
00000480  28 35 2c 35 29 3d 32 32  35 0d 05 96 0b 70 65 67  |(5,5)=225....peg|
00000490  25 3d 33 32 0d 05 a0 0f  4f 58 25 3d 35 3a 4f 59  |%=32....OX%=5:OY|
000004a0  25 3d 35 0d 05 aa 14 65  6e 64 25 3d a3 3a 66 69  |%=5....end%=.:fi|
000004b0  6e 69 73 68 25 3d a3 0d  05 b4 10 77 6f 6e 25 3d  |nish%=.....won%=|
000004c0  a3 3a 75 70 25 3d a3 0d  05 be 05 e1 0d 05 c8 05  |.:up%=..........|
000004d0  3a 0d 05 d2 10 dd 20 f2  64 72 61 77 62 6f 61 72  |:..... .drawboar|
000004e0  64 0d 05 dc 0e ef 31 39  2c 30 2c 34 3b 30 3b 0d  |d.....19,0,4;0;.|
000004f0  05 e6 10 ef 31 39 2c 31  2c 30 3b 30 3b 20 20 0d  |....19,1,0;0;  .|
00000500  05 f0 0e ef 31 39 2c 32  2c 31 3b 30 3b 0d 05 fa  |....19,2,1;0;...|
00000510  10 ef 31 39 2c 33 2c 33  3b 30 3b 20 20 0d 06 04  |..19,3,3;0;  ...|
00000520  08 db 20 20 20 0d 06 0e  07 fb 20 33 0d 06 18 11  |..   ..... 3....|
00000530  ef 20 32 39 2c 36 30 36  3b 35 30 30 3b 0d 06 22  |. 29,606;500;.."|
00000540  09 ec 20 30 2c 30 0d 06  2c 13 e3 20 41 3d 30 20  |.. 0,0..,.. A=0 |
00000550  b8 20 37 20 88 20 30 2e  33 0d 06 36 1e ec 20 30  |. 7 . 0.3..6.. 0|
00000560  2c 30 3a f0 20 38 35 2c  52 25 2a 9b 28 41 29 2c  |,0:. 85,R%*.(A),|
00000570  52 25 2a b5 28 41 29 0d  06 40 07 ed 20 41 0d 06  |R%*.(A)..@.. A..|
00000580  4a 15 f1 8a 35 2c 33 29  22 53 4f 4c 49 54 41 49  |J...5,3)"SOLITAI|
00000590  52 45 22 0d 06 54 13 f1  8a 35 2c 34 29 c4 39 2c  |RE"..T...5,4).9,|
000005a0  22 2a 22 29 20 20 0d 06  5e 09 fb 20 31 33 31 0d  |"*")  ..^.. 131.|
000005b0  06 68 0e e3 20 49 25 3d  32 20 b8 20 38 0d 06 72  |.h.. I%=2 . 8..r|
000005c0  0e e3 20 4a 25 3d 32 20  b8 20 38 0d 06 7c 1f f2  |.. J%=2 . 8..|..|
000005d0  70 72 69 6e 74 28 62 6f  61 72 64 25 28 49 25 2c  |print(board%(I%,|
000005e0  4a 25 29 2c 49 25 2c 4a  25 29 0d 06 86 07 ed 3a  |J%),I%,J%).....:|
000005f0  ed 0d 06 90 14 f2 63 75  72 73 6f 72 28 4f 58 25  |......cursor(OX%|
00000600  2c 4f 59 25 29 0d 06 9a  05 e1 0d 06 a4 05 3a 0d  |,OY%).........:.|
00000610  06 ae 16 dd 20 f2 70 72  69 6e 74 28 43 25 2c 58  |.... .print(C%,X|
00000620  25 2c 59 25 29 0d 06 b8  0a fb 20 43 25 83 34 0d  |%,Y%)..... C%.4.|
00000630  06 c2 15 f1 8a 58 25 2b  34 2c 59 25 2a 32 2b 36  |.....X%+4,Y%*2+6|
00000640  29 bd 43 25 0d 06 cc 14  62 6f 61 72 64 25 28 58  |).C%....board%(X|
00000650  25 2c 59 25 29 3d 43 25  0d 06 d6 05 e1 0d 06 e0  |%,Y%)=C%........|
00000660  05 3a 0d 06 ea 16 dd 20  f2 63 75 72 73 6f 72 28  |.:..... .cursor(|
00000670  58 43 25 2c 59 43 25 29  0d 06 f4 07 fb 20 31 0d  |XC%,YC%)..... 1.|
00000680  06 fe 1e e7 20 62 6f 61  72 64 25 28 58 43 25 2c  |.... board%(XC%,|
00000690  59 43 25 29 3d 33 32 20  8c 20 e1 20 20 0d 07 08  |YC%)=32 . .  ...|
000006a0  17 f1 8a 4f 58 25 2b 34  2c 4f 59 25 2a 32 2b 37  |...OX%+4,OY%*2+7|
000006b0  29 bd 33 32 0d 07 12 18  f1 8a 4f 58 25 2b 34 2c  |).32......OX%+4,|
000006c0  4f 59 25 2a 32 2b 35 29  bd 33 32 20 0d 07 1c 18  |OY%*2+5).32 ....|
000006d0  f1 8a 58 43 25 2b 34 2c  59 43 25 2a 32 2b 37 29  |..XC%+4,YC%*2+7)|
000006e0  bd 32 32 34 0d 07 26 18  f1 8a 58 43 25 2b 34 2c  |.224..&...XC%+4,|
000006f0  59 43 25 2a 32 2b 35 29  bd 32 32 37 0d 07 30 13  |YC%*2+5).227..0.|
00000700  4f 58 25 3d 58 43 25 3a  4f 59 25 3d 59 43 25 0d  |OX%=XC%:OY%=YC%.|
00000710  07 3a 05 e1 0d 07 44 05  3a 0d 07 4e 0c dd 20 f2  |.:....D.:..N.. .|
00000720  63 68 65 63 6b 0d 07 58  17 e7 20 70 65 67 25 3d  |check..X.. peg%=|
00000730  31 20 8c 20 65 6e 64 25  3d b9 3a e1 0d 07 62 0b  |1 . end%=.:...b.|
00000740  6d 6f 76 65 25 3d a3 0d  07 6c 0e e3 20 49 25 3d  |move%=...l.. I%=|
00000750  31 20 b8 20 38 0d 07 76  0e e3 20 4a 25 3d 31 20  |1 . 8..v.. J%=1 |
00000760  b8 20 38 0d 07 80 1d e7  20 62 6f 61 72 64 25 28  |. 8..... board%(|
00000770  49 25 2c 4a 25 29 3d 32  32 36 20 8c 20 f2 67 6f  |I%,J%)=226 . .go|
00000780  0d 07 8a 19 e7 20 6d 6f  76 65 25 3d b9 20 8c 20  |..... move%=. . |
00000790  49 25 3d 38 3a 4a 25 3d  38 0d 07 94 07 ed 3a ed  |I%=8:J%=8.....:.|
000007a0  0d 07 9e 16 e7 20 6d 6f  76 65 25 3d a3 20 8c 20  |..... move%=. . |
000007b0  65 6e 64 25 3d b9 0d 07  a8 05 e1 0d 07 b2 05 3a  |end%=..........:|
000007c0  0d 07 bc 09 dd 20 f2 67  6f 0d 07 c6 3b e7 20 62  |..... .go...;. b|
000007d0  6f 61 72 64 25 28 49 25  2d 31 2c 4a 25 29 3d 32  |oard%(I%-1,J%)=2|
000007e0  32 36 20 80 20 62 6f 61  72 64 25 28 49 25 2d 32  |26 . board%(I%-2|
000007f0  2c 4a 25 29 3d 32 32 35  20 8c 20 6d 6f 76 65 25  |,J%)=225 . move%|
00000800  3d b9 3a e1 0d 07 d0 3b  e7 20 62 6f 61 72 64 25  |=.:....;. board%|
00000810  28 49 25 2b 31 2c 4a 25  29 3d 32 32 36 20 80 20  |(I%+1,J%)=226 . |
00000820  62 6f 61 72 64 25 28 49  25 2b 32 2c 4a 25 29 3d  |board%(I%+2,J%)=|
00000830  32 32 35 20 8c 20 6d 6f  76 65 25 3d b9 3a e1 0d  |225 . move%=.:..|
00000840  07 da 3b e7 20 62 6f 61  72 64 25 28 49 25 2c 4a  |..;. board%(I%,J|
00000850  25 2d 31 29 3d 32 32 36  20 80 20 62 6f 61 72 64  |%-1)=226 . board|
00000860  25 28 49 25 2c 4a 25 2d  32 29 3d 32 32 35 20 8c  |%(I%,J%-2)=225 .|
00000870  20 6d 6f 76 65 25 3d b9  3a e1 0d 07 e4 39 e7 20  | move%=.:....9. |
00000880  62 6f 61 72 64 25 28 49  25 2c 4a 25 2b 31 29 3d  |board%(I%,J%+1)=|
00000890  32 32 36 20 80 20 62 6f  61 72 64 25 28 49 25 2c  |226 . board%(I%,|
000008a0  4a 25 2b 32 29 3d 32 32  35 20 8c 20 6d 6f 76 65  |J%+2)=225 . move|
000008b0  25 3d b9 0d 07 ee 05 e1  0d 07 f8 05 3a 0d 08 02  |%=..........:...|
000008c0  0b dd 20 f2 70 6c 61 79  0d 08 0c 14 e7 20 75 70  |.. .play..... up|
000008d0  25 3d a3 20 8c 20 f2 63  68 65 63 6b 0d 08 16 10  |%=. . .check....|
000008e0  e7 20 65 6e 64 25 3d b9  20 8c 20 e1 0d 08 20 05  |. end%=. . ... .|
000008f0  f5 0d 08 2a 17 58 70 6f  73 25 3d 4f 58 25 3a 59  |...*.Xpos%=OX%:Y|
00000900  70 6f 73 25 3d 4f 59 25  0d 08 34 08 41 24 3d be  |pos%=OY%..4.A$=.|
00000910  0d 08 3e 1b e7 20 41 24  3d 22 5a 22 8c 20 58 70  |..>.. A$="Z". Xp|
00000920  6f 73 25 3d 58 70 6f 73  25 2d 31 0d 08 48 1b e7  |os%=Xpos%-1..H..|
00000930  20 41 24 3d 22 58 22 8c  20 58 70 6f 73 25 3d 58  | A$="X". Xpos%=X|
00000940  70 6f 73 25 2b 31 0d 08  52 1b e7 20 41 24 3d 22  |pos%+1..R.. A$="|
00000950  3a 22 8c 20 59 70 6f 73  25 3d 59 70 6f 73 25 2d  |:". Ypos%=Ypos%-|
00000960  31 0d 08 5c 1b e7 20 41  24 3d 22 2f 22 8c 20 59  |1..\.. A$="/". Y|
00000970  70 6f 73 25 3d 59 70 6f  73 25 2b 31 0d 08 66 18  |pos%=Ypos%+1..f.|
00000980  f2 63 75 72 73 6f 72 28  58 70 6f 73 25 2c 59 70  |.cursor(Xpos%,Yp|
00000990  6f 73 25 29 0d 08 70 0c  fd 20 41 24 3d bd 33 32  |os%)..p.. A$=.32|
000009a0  0d 08 7a 2f e7 20 62 6f  61 72 64 25 28 58 70 6f  |..z/. board%(Xpo|
000009b0  73 25 2c 59 70 6f 73 25  29 3d 32 32 36 20 80 20  |s%,Ypos%)=226 . |
000009c0  75 70 25 3d a3 20 8c 20  f2 70 69 63 6b 3a e1 0d  |up%=. . .pick:..|
000009d0  08 84 32 e7 20 62 6f 61  72 64 25 28 58 70 6f 73  |..2. board%(Xpos|
000009e0  25 2c 59 70 6f 73 25 29  3d 32 32 35 20 80 20 75  |%,Ypos%)=225 . u|
000009f0  70 25 3d b9 20 8c 20 f2  70 75 74 64 6f 77 6e 3a  |p%=. . .putdown:|
00000a00  e1 0d 08 8e 30 e7 20 62  6f 61 72 64 25 28 58 70  |....0. board%(Xp|
00000a10  6f 73 25 2c 59 70 6f 73  25 29 3d 32 32 37 20 80  |os%,Ypos%)=227 .|
00000a20  20 75 70 25 3d b9 20 8c  20 f2 72 65 70 6c 61 63  | up%=. . .replac|
00000a30  65 0d 08 98 05 e1 0d 08  a2 05 3a 0d 08 ac 0b dd  |e.........:.....|
00000a40  20 f2 70 69 63 6b 0d 08  b6 11 49 66 69 72 73 74  | .pick....Ifirst|
00000a50  25 3d 58 70 6f 73 25 0d  08 c0 11 4a 66 69 72 73  |%=Xpos%....Jfirs|
00000a60  74 25 3d 59 70 6f 73 25  0d 08 ca 10 d4 20 31 2c  |t%=Ypos%..... 1,|
00000a70  2d 31 35 2c 38 30 2c 33  0d 08 d4 1b f2 70 72 69  |-15,80,3.....pri|
00000a80  6e 74 28 32 32 37 2c 58  70 6f 73 25 2c 59 70 6f  |nt(227,Xpos%,Ypo|
00000a90  73 25 29 0d 08 de 09 75  70 25 3d b9 0d 08 e8 05  |s%)....up%=.....|
00000aa0  e1 0d 08 f2 05 3a 0d 08  fc 0e dd 20 f2 70 75 74  |.....:..... .put|
00000ab0  64 6f 77 6e 0d 09 06 10  49 6c 61 73 74 25 3d 58  |down....Ilast%=X|
00000ac0  70 6f 73 25 0d 09 10 10  4a 6c 61 73 74 25 3d 59  |pos%....Jlast%=Y|
00000ad0  70 6f 73 25 0d 09 1a 19  49 73 74 65 70 25 3d 49  |pos%....Istep%=I|
00000ae0  6c 61 73 74 25 2d 49 66  69 72 73 74 25 0d 09 24  |last%-Ifirst%..$|
00000af0  19 4a 73 74 65 70 25 3d  4a 6c 61 73 74 25 2d 4a  |.Jstep%=Jlast%-J|
00000b00  66 69 72 73 74 25 0d 09  2e 1a e7 20 49 73 74 65  |first%..... Iste|
00000b10  70 25 2a 4a 73 74 65 70  25 3c 3e 30 20 8c 20 e1  |p%*Jstep%<>0 . .|
00000b20  0d 09 38 1d e7 20 94 28  49 73 74 65 70 25 2b 4a  |..8.. .(Istep%+J|
00000b30  73 74 65 70 25 29 3c 3e  32 20 8c 20 e1 0d 09 42  |step%)<>2 . ...B|
00000b40  1c 49 6d 69 64 25 3d 49  66 69 72 73 74 25 2b 28  |.Imid%=Ifirst%+(|
00000b50  49 73 74 65 70 25 81 32  29 0d 09 4c 1c 4a 6d 69  |Istep%.2)..L.Jmi|
00000b60  64 25 3d 4a 66 69 72 73  74 25 2b 28 4a 73 74 65  |d%=Jfirst%+(Jste|
00000b70  70 25 81 32 29 0d 09 56  22 e7 20 62 6f 61 72 64  |p%.2)..V". board|
00000b80  25 28 49 6d 69 64 25 2c  4a 6d 69 64 25 29 3c 3e  |%(Imid%,Jmid%)<>|
00000b90  32 32 36 20 8c 20 e1 0d  09 60 10 d4 20 31 2c 2d  |226 . ...`.. 1,-|
00000ba0  31 35 2c 31 30 2c 33 0d  09 6a 1f f2 70 72 69 6e  |15,10,3..j..prin|
00000bb0  74 28 32 32 35 2c 49 66  69 72 73 74 25 2c 4a 66  |t(225,Ifirst%,Jf|
00000bc0  69 72 73 74 25 29 0d 09  74 10 d4 20 31 2c 2d 31  |irst%)..t.. 1,-1|
00000bd0  35 2c 38 30 2c 33 0d 09  7e 1d f2 70 72 69 6e 74  |5,80,3..~..print|
00000be0  28 32 32 36 2c 49 6c 61  73 74 25 2c 4a 6c 61 73  |(226,Ilast%,Jlas|
00000bf0  74 25 29 0d 09 88 10 d4  20 31 2c 2d 31 35 2c 38  |t%)..... 1,-15,8|
00000c00  30 2c 33 0d 09 92 1b f2  70 72 69 6e 74 28 32 32  |0,3.....print(22|
00000c10  35 2c 49 6d 69 64 25 2c  4a 6d 69 64 25 29 0d 09  |5,Imid%,Jmid%)..|
00000c20  9c 09 75 70 25 3d a3 0d  09 a6 0f 70 65 67 25 3d  |..up%=.....peg%=|
00000c30  70 65 67 25 2d 31 0d 09  b0 05 e1 0d 09 ba 05 3a  |peg%-1.........:|
00000c40  0d 09 c4 0e dd 20 f2 72  65 70 6c 61 63 65 0d 09  |..... .replace..|
00000c50  ce 1b f2 70 72 69 6e 74  28 32 32 36 2c 58 70 6f  |...print(226,Xpo|
00000c60  73 25 2c 59 70 6f 73 25  29 0d 09 d8 09 75 70 25  |s%,Ypos%)....up%|
00000c70  3d a3 0d 09 e2 05 e1 0d  09 ec 05 3a 0d 09 f6 0d  |=..........:....|
00000c80  dd 20 f2 65 6e 64 69 6e  67 0d 0a 00 17 54 25 3d  |. .ending....T%=|
00000c90  91 2b 31 30 30 3a f5 20  fd 20 91 3e 54 25 20 20  |.+100:. . .>T%  |
00000ca0  0d 0a 0a 0c fb 20 31 32  38 3a fb 32 0d 0a 14 17  |..... 128:.2....|
00000cb0  f1 8a 35 2c 36 29 22 47  61 6d 65 20 4f 76 65 72  |..5,6)"Game Over|
00000cc0  22 20 20 0d 0a 1e 07 fb  33 20 0d 0a 28 27 e7 20  |"  .....3 ..('. |
00000cd0  77 6f 6e 25 20 8c 20 f1  8a 32 2c 32 36 29 22 43  |won% . ..2,26)"C|
00000ce0  6f 6e 67 72 61 74 75 6c  61 74 69 6f 6e 73 22 20  |ongratulations" |
00000cf0  20 0d 0a 32 42 e7 20 ac  28 77 6f 6e 25 29 20 8c  | ..2B. .(won%) .|
00000d00  20 f1 8a 31 2c 32 36 29  22 41 20 67 6f 6f 64 20  | ..1,26)"A good |
00000d10  74 72 79 20 2d 20 62 65  74 74 65 72 22 8a 33 2c  |try - better".3,|
00000d20  32 37 29 22 6c 75 63 6b  20 6e 65 78 74 20 74 69  |27)"luck next ti|
00000d30  6d 65 22 0d 0a 3c 06 fb  32 0d 0a 46 16 e3 20 50  |me"..<..2..F.. P|
00000d40  25 3d 32 30 30 20 b8 20  35 30 20 88 2d 31 30 0d  |%=200 . 50 .-10.|
00000d50  0a 50 10 d4 20 31 2c 2d  31 35 2c 50 25 2c 32 0d  |.P.. 1,-15,P%,2.|
00000d60  0a 5a 08 ed 20 50 25 0d  0a 64 15 54 25 3d 91 2b  |.Z.. P%..d.T%=.+|
00000d70  31 30 30 3a f5 20 fd 20  91 3e 54 25 0d 0a 6e 1f  |100:. . .>T%..n.|
00000d80  f1 8a 31 2c 32 39 29 22  41 6e 6f 74 68 65 72 20  |..1,29)"Another |
00000d90  67 61 6d 65 20 2d 20 59  2f 4e 22 0d 0a 78 11 d4  |game - Y/N"..x..|
00000da0  20 31 2c 2d 31 35 2c 32  30 30 2c 33 0d 0a 82 05  | 1,-15,200,3....|
00000db0  f5 0d 0a 8c 11 41 25 3d  a7 22 59 79 4e 6e 22 2c  |.....A%=."YyNn",|
00000dc0  be 29 0d 0a 96 0a fd 20  41 25 3e 30 0d 0a a0 1a  |.)..... A%>0....|
00000dd0  e7 20 41 25 3e 32 20 8c  20 66 69 6e 69 73 68 25  |. A%>2 . finish%|
00000de0  3d b9 20 20 20 20 0d 0a  aa 05 e1 0d 0a b4 05 3a  |=.    .........:|
00000df0  0d 0a be 0a ee 20 85 20  87 20 0d 0a c8 09 eb 20  |..... . . ..... |
00000e00  36 20 20 0d 0a d2 0e e7  20 9f 3d 31 37 20 8c 20  |6  ..... .=17 . |
00000e10  e0 0d 0a dc 16 f6 3a f1  20 22 20 61 74 20 6c 69  |......:. " at li|
00000e20  6e 65 20 22 3b 9e 20 0d  0a e6 05 e0 0d ff        |ne ";. .......|
00000e2e