� � �nogood
�129:�23;8202;0;0;0;
I �x$(20):�G$(19,12):� X$(20):�M$(19,12):�MC:T=1:P=0:�mc:�cde:�NUMBERS
( � � �menu
2 �menu:�
< � 
F� �printgrid 
P�2
Z � N=0 � 19:� J=0 � 12 
d�N*2,J*2) G$(N,J); 
n	�:�: 
x� 
�� �grid 
�
 �0,1 
�� N=40 � 1249 � 64   
�
� N,1023 
�� N,200 
�� 
�� N=264 � 1024 � 64 
�
� 0,N 
�
� 1248,N 
�� 
�� 
�� �strings 
�	�:�3 

/�" PLEASE ENTER 20 WORDS (10 letters only)"

Z$=�40," ") 

� N=1 � 20 

" �0,5)Z$ 

,
�5,5)N; 

6� X$(N) 

@L=�(X$(N)):� L>10 � �TbA

J� 

T^ �text:�0,0);"                                        ":�0,5)"                         "

^� 

h� �random:done=0 

rR=�(8):Y=�(13)-1:X=�(20)-1 

|� R=1 � �up 

�� R=2 � �down 

�� R=3 � �right 

�� R=4 � �left 

�� R=5 � �upright 

�� R=6 � �downright 

�� R=7 � �upleft 

�� R=8 � �downleft 

� � done=0 � �DrA 

�� 

� � �empty 

� � N=0 � 19:� J=0 � 12 

� G$(N,J)=" ":�:�  

� � 
� �hide 

C=1:� 
T$=X$(C):L=�(T$) 
&�random 
0C=C+1:�C=21 
:� 
D � �up 
N
 aflag=0 
X� Y+L>12 � � 
b� N=0 � L-1 
l� G$(X,Y+N)<>" " � �check 
v� 
�� aflag=1 � � 
�( � N=0 � L-1:G$(X,Y+N)=�T$,N+1,1):� 
� done=1 
�� 
�
� �check 
�� G$(X,Y+N)=�T$,N+1,1) � � 
�aflag=1 
�� 
�� �down:aflag=0 
�� Y-L<0 � � 
�� N=0 � L-1 
�� G$(X,Y-N)<>" " � �checkm 
�� 
� aflag=1 � � 
'� N=0 � L-1:G$(X,Y-N)=�T$,N+1,1):� 
done=1 
 � 
*� �checkm 
4� G$(X,Y-N)=�T$,N+1,1) � � 
>
 aflag=1 
H � 
R� �maze 
\� J=0 � 19:�N=0 � 12 
f R=�(26)+64 
p M$(J,N)=G$(J,N) 
z!� G$(J,N)=" " � G$(J,N)=�(R) 
��:� 
�� 
�
� �right 
�aflag=0:� X+L>19 � � 
�
�N=0�L-1 
�� G$(X+N,Y)<>" " � �checkx 
�� 
�� aflag=1 � � 
�$�N=0�L-1:G$(X+N,Y)=�T$,N+1,1):� 
�done=1 
�� 
� � �checkx 
�� G$(X+N,Y)=�T$,N+1,1) � � 
aflag=1 
� 
� �left 
$aflag=0:� X-L<0 � � 
.
�N=0�L-1 
8!� G$(X-N,Y)<>" " � �checkxm  
B� 
L� aflag=1 � � 
V$�N=0�L-1:G$(X-N,Y)=�T$,N+1,1):� 
`done=1  
j� 
t� �checkxm 
~� G$(X-N,Y)=�T$,N+1,1) � � 
�aflag=1 
�� 
�� �upright 
�"aflag=0:� Y+L>12 � X+L>19 � � 
�� N=0 � L-1 
�"� G$(X+N,Y+N)<>" " � �checkur 
� � 
�� aflag=1 � � 
��N=0 � L-1 
�G$(X+N,Y+N)=�T$,N+1,1):� 
�done=1 
�� 
� �checkur 

!� G$(X+N,Y+N)=�T$,N+1,1) � � 
aflag=1 
� 
(� �downright:aflag=0 
2� Y-L<0 � X-L<0 � � 
<� N=0 � L-1 
F!� G$(X-N,Y-N)<>" " � �checll 
P� 
Z� aflag=1 � � 
d�N=0 � L-1 
nG$(X-N,Y-N)=�T$,N+1,1):� 
xdone=1 
�� 
�� �checll 
�!� G$(X-N,Y-N)=�T$,N+1,1) � � 
�aflag=1 
�� 
� � �upleft:aflag=0 
�� Y+L>12 � X-L<0 � � 
�� N=0 � L-1 
�!� G$(X-N,Y+N)<>" " � �checmm 
�� 
�� aflag=1 � � 
��N=0 � L-1 
�G$(X-N,Y+N)=�T$,N+1,1):� 
done=1 
� 
� �checmm 
"!� G$(X-N,Y+N)=�T$,N+1,1) � � 
,aflag=1 
6� 
@� �downleft:aflag=0 
J� Y-L<0 � X-L<0 � � 
T� N=0 � L-1 
^!� G$(X-N,Y-N)<>" " � �checoo 
h� 
r� aflag=1 � � 
|�N=0 � L-1 
�G$(X-N,Y-N)=�T$,N+1,1):� 
�done=1 
�� 
�� �checoo 
�!� G$(X-N,Y-N)=�T$,N+1,1) � � 
�aflag=1 
�� 
�� �see 
� �3 
�� N=0 � 19:� J=0 � 12 
�� M$(N,J)<>" " � �print 
��:� 
�� 

� �print 
�N*2,J*2)M$(N,J) 
� 
&� �printmaze 
0 �2 
:� N=0 � 19:� J=0 � 12 
D�1:�G$(N,J);:� 
N�1:�:� 
X �3 
b� 
l� �text:� hor
v �1
� count=1:hor=-10
�'�N=1�4:hor=hor+10:� J=26 � 30      
�&�hor,J)X$(count);:count=count+1  
��:�
��
�
 � �mc
�� S% 500
�#xlo=&70:xhi=&71:ylo=&72:yhi=&73
�#logcol=&74:physcol=&75:step=&8F
�*osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE
� prtbyte=&76:ptr=&77:byte=&7A
�base=&7F:data=&79
�wrkspce=S%+292
�PASS=0�2�2
	P%=S%
[OPTPASS
 LDA #29
*JSR oswrch
4
LDA #0
>
LDX #4
H.repeat JSR oswrch
RDEX
\BNE repeat
fLDA #(S%+346) � 256
pSTA data
zLDA #(S%+346) � 256
�STA data+1
�LDA #2:JSR oswrch
�
LDX #0
�LDA #wrkspce � 256
�STA xlo
�LDA #wrkspce � 256
�STA xhi
�.label LDA xlo
�CLC
�
ADC #6
�STA xlo
�STA base,X
�INX
	BCC carryclr
	INC xhi
	.carryclr LDA xhi
	$STA base,X
	.INX
	8CPX #16
	B
BCC label
	LLDA #&FF
	VSTA ylo
	`
LDA #3
	jSTA yhi
	tLDA #135
	~JSR osbyte
	�
CPY #3
	�BCS modegt3
	�INY
	�.modegt3 TYA
	�	ROR A
	�BCS mode2or5
	�.mode1or4 LDA #4
	�STA wrkspce+5
	�
LDA #2
	�STA step
	�BNE linespc
	�.mode2or5 LDA #8
STA wrkspce+5


LDA #5
STA step
.linespc LDY #0:LDX #3
(JSR prtinst
2.bitimage LDA #0
<STA xlo
FSTA xhi
PLDY #3:LDX #4
ZJSR prtinst
d.newcol LDX #4
n.readpix TXA:PHA
xLDX #xlo
�
LDY #0
�
LDA #9
�JSR osword
�LDA #&B
�
LDY #0
�LDX #logcol
�JSR osword
�PLA:TAX
�LDA physcol
�� #7
�	ASL A
�STA byte,X
�LDA ylo
SEC

SBC #4
STA ylo
"BCS chkcolend
,DEC yhi
6.chkcolend DEX
@BNE readpix
JLDY step
T.back LDA #0
^STA prtbyte
h
LDX #4
r.pixel TXA:PHA
|LDA byte,X
�TAX
�LDA base,X
�STA ptr
�LDA base+1,X
�
STA ptr+1
�LDA (ptr),Y
�CLC
�ADC prtbyte
�STA prtbyte
�PLA:TAX
�DEX
�
BEQ print
�ASL prtbyte
ASL prtbyte

BCC pixel
.print LDA prtbyte
&JSR sendprt
0DEY
:BPL back
D.nxtcol CLC
NLDA wrkspce+5
XADC xlo
bSTA xlo
lBCC chklnend
vINC xhi
�.chklnend LDA xhi
�
CMP #5
�BEQ endline
�.coltop LDA #16
�CLC
�ADC ylo
�STA ylo
�BCC newcol
�INC yhi
�BCS newcol
�.endline LDA #10
�JSR sendprt
�.endcheck LDA yhi

BMI end

JMP bitimage

.prtinst LDA (data),Y

 JSR sendprt

*INY:DEX

4BNE prtinst

>RTS

H.sendprt PHA:LDA #1

RJSR oswrch

\PLA:JSR oswrch

fRTS

p.end LDY #7:LDX #4

zJSR prtinst

�LDA #3:JSR oswrch

�RTS

�]

��

�data=P%

�!�I%=1�6:?data=0:data=data+1:�

��I%=0�7:�Colour$

�#�B%=1�6:?data=�(�Colour$,B%,1))

�data=data+1:�,

��I%=1�11:�B%:?data=B%

�data=data+1:�

�=� 000000,010020,021021,013023,212121,232131,313323,333333

�%� 27,65,8,27,76,192,3,27,127,27,7
 �
� �dump
� S%
$�
.� �data
8X=� "DATA"
B� N=1 � 20
L
�#X,X$(N)
V�
`�# X
j�
t
� �cde
~+�23,128,255,255,255,255,255,255,255,255
�� JIM 50
�� N=0 � 2 � 2
�
P%=JIM
�	[OPTN
�LDA#&87
�JSR&FFF4
�STX&70:STY&71
�RTS
�.col
�
LDA#32
�
STA&77
�	.loop
	LDA#9

 LDY#0:LDX#&72
JSR&FFF1

INC&72
(	BNE a
2
INC&73
<.a
F
LDA&76
P	CMP#0
ZBNE out
d
DEC&77
nBNE loop
x.out
�RTS
�]:�
� �
�
� �joy
�h=�(1):v=�(2)
� button=�(0) � 3
� � v>40000 � ver=ver-V%
�� v<20000 � ver=ver+V%
�� h>40000 � hor=hor-2
�� h<20000 � hor=hor+2
�� ver<0 � ver=0
�� ver>30 � ver=30
�� hor<0 � hor=0
� hor>38 � hor=38
 � N=0 � 300:�
�
""� �play:�=0:V%=2:ver=0:hor=0:�
,� Z%=101 � �joy
6� Z%<>101 � �key
@�hor,ver)"";:� JIM:�pixel
J�3:�hor,ver)�(128); 
T%� ver>25 � �15,31)"SELECT WORD";
^�ver>25 � V%=1
h%� ver<25 � �15,31)"           ";
r�ver<25 � V%=2
|� button<>0 � �checker 
�� button<>0 � �selection 
� � N=0 � 400:�
�A=?&70:�C%:�hor,ver)�(A);
�
 �time
��0
��
�
� �key
��3:�30,31)"key mode"; 
�
*FX4,1
�*FX21,0
�button=0
� I=�
�	�time
�I=136 � hor=hor-2
�I=137 � hor=hor+2
�I=138 � ver=ver+V%
&�I=139 � ver=ver-V%
0�I=32 � button=1
:� ver<0 � ver=0
D� ver>30 � ver=30 
N� hor<0 � hor=0
X� hor>38 � hor=38
b�
l� �pixel
v"!&72=hor*32:!&74=1008-(ver*32)
�� col:C%=?&76
��
�� �selection
� � ver<26 � �
�
 �text
�P=ver-25:q=0
� � hor>9 � q=10
� � hor>19 � q=20
� � hor>29 � q=30
�;P=P+(q/2):�3:C%=3:L=�X$(P):�q,ver)X$(P)+�10-L," ");   
�T$=X$(P):T=1
� �
� � �checker:�ver>25 � �
�P=0 � �
h=hor/2:v=ver/2
�?&70<>� �T$,T,1) � �no
 �?&70=� �T$,T,1)� �notquite
*�
4� �no:T$="":T=0:P=0
>�1,-15,20,4:�text
H�
R� �notquite
\�G$(h,v)<>M$(h,v)� �no
f�G$(h,v)=M$(h,v) � �yes
p �
z� �yes:�1,-15,200,2
�	 C%=3
�T=T+1:� T=L+1 � �erase 
��
�� �erase
�?X$(P)="          ":P=0:�text:�N=100 � 200�10:�1,-15,N,2:�:�
� � �printmain:�:�2
�-� N=0�12:�:�J=0�19:�G$(J,N);" ";:�:�:�3:�
�� �printlook:�:�2
�� N=0�12:�:�J=0�19
� �M$(J,N)=" " � �". ";
�" �M$(J,N)<>" " � �M$(J,N);" ";
�
 �:�:�3:�
� � �printlist:�:�2
C=1:� N=1�5:�:�J=1�4
1 L=11-�(X$(C)):�X$(C);:�K=1�L:�" ";:�:C=C+1  
�:�
$�3:�
.� �database
8 �:�10)"WORD DATABASE":�:�:�
B�5)"CREATE NEW FILE....A"
L�
V�5)"ADD NEW WORDS......B"
`�
j�5)"VIEW FILE..........C"
t�
~�10)"enter choice"
�	�:I=�
�� I=�"A" � �newfile
�� I=�"B" � �newword
�� I=�"C" � �viewfile
�
� I=32
��
�� �newfile:�
�3�3d(5,10,"ARE YOU SURE?",1,2):I=�:� I<>�"Y" � �
�
I=�"DATA"
�� N=1�20:�#I,X$(N):�
�
 �#I:I=32
��
� �newword

�strings
'�double(5,10,"ARE THESE OK?"):I=�:�
� I<>�"Y" � �
(: �setupgrid:�:�3d(5,10,"SHALL I ADD TO FILE?",1,2):I=�
2 � I<>�"Y" � �
<
I=�"DATA"
F�#I=�#I
P�N=1�20:�#I,X$(N):�
Z
 �#I:I=32
d�
n� �viewfile
x�:I=�"DATA"
��:�:� N=1�20
��#I,X$(N):�
�+�text:�double(5,10,"ARE THESE OK?"):j=�
�� j=�"Y" � �#I=�#I
���#I
��#I:I=32
��setupgrid
��
�� �game:Z%=0
�4�:�10,10)"JOYSTICKS (Y/any)":I=�:�I=�"Y"�Z%=101
� �
�"�printgrid:�grid:�text:�play:�
�M� �time:sec=(�/100) � 60:min=(�/6000) � 60:�3:�0,31)�min;":";sec;"  ";:�
 ��3d(X,Y,A$,col1,col2)
 x=X*32:X=x 
 y=0+((31-Y)*32):Y=y
" �5
, � X-4,Y-4
6 �0,col1:� A$
@
 � X,Y
J �0,col2:� A$
T �4
^ �
h� �NUMBERS
r
 ��tdU
|
�empty
�� N=1�20
��X$(N):�
� �setupgrid
���"ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE","TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN","SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY"
��
�	� �MC
�� LARGE 100:� block 8
�� N=0 � 2 � 2
�
 P%=LARGE
�	[OPTN
�!LDA#10:LDX#&70:LDY#0:JSR&FFF1
�LDA#8:STA block 
�LDA#&0C:STA block+1
LDA#0:STA block+2
LDA#0:STA block+3
 LDA#8:STA block+5
&	LDX#0
0
.loops
:LDA&71,X:STA block+4
DTXA:PHA
N5LDX# block � 256:LDY# block � 256:LDA#6:JSR&FFF1 
XJSR adds
b4LDX# block � 256:LDY# block � 256:LDA#6:JSR&FFF1
lJSR adds
vPLA:TAX:INX:DEC block+5
�
BNE loops
�RTS
�	.adds
�INC block:BNE freddy
�INC block+1
�.freddy
�RTS
�]:�
� �
�� �double(x,y,f$)
��N=1� �(f$)
� ?&70=� �f$,N,1)
�� LARGE
�x+N,y)�f$,N,1)
�
 �
*� �menu
4 �repeat:�notthistime
>=�:�3d(0,0,"JIM WALSH'S wordsearch workshop (c) 1986",1,2)
H�0,927:�1279,927
R�1:�double(15,5,"MENU")
\5�2:�double(1,9,"PLAY ON COMPUTER..............1")
f6�2:�double(1,12,"ADD MORE WORDS TO FILE........2")
p6�2:�double(1,15,"SELECT WORDS FROM FILE........3")
z6�2:�double(1,18,"CREATE A NEW DATA FILE........4")
�<�3d(0,20,"Dump the main grid to EPSON printers...5",3,1)
�<�3d(0,22,"Dump the main grid key as above........6",3,1)
�<�3d(0,24,"Print main grid to any printer.........7",2,1)
�<�3d(0,26,"Print key to any printer...............8",2,1)
��3:�10,31)"Please select";
�I=�
�� I=�"1" � �game
�� I=�"2" � �newword
�� I=�"3" � �viewfile
�� I=�"4" � �newfile
�� I=�"5" � �maindump
�� I=�"6" � �mainkey
�� I=�"7" � �ptr
� I=�"8" � �ptra

� �T~W
�
$I� �setupgrid:�:�double(10,10,"SORTING"):�empty:�hide:�maze:�mirror:� 
.0 � �pp:�:�double(5,10,"IS YOUR PRINTER ON?")
8/�3d(5,15,"Press RETURN if yes, or any",1,2)
Bk=�
L�
V � �maindump:�pp
`� k<>13 � �
j$�:�printgrid:�grid:�text:�dump:�
t� �mainkey:�pp
~�k<>13 � �
�)�:�printgrid:�grid:�text:�see:�dump:�
�
� �ptr
��pp:�k<>13��
�#�printmain:�2:�:�:�3:�printlist
��
�� �ptra
��pp:�k<>13��
�#�printlook:�2:�:�:�3:�printlist
��
�%� �mirror:�N=1�20:x$(N)=X$(N):�:�
�� �repeat:FLAG=0
�� N=1�20
"� X$(N)<>"          " � FLAG=1

�:� FLAG=1 � �

�welldone
� N=1�20:X$(N)=x$(N):�
(�setupgrid
2�
<� �welldone
F&�:a$=�(min):a$=a$+":":a$=a$+�(sec)
P!�2:�double(14,10,"WELL DONE")
Z-�3d(5,15,"You completed the grid in",1,2)
d"�1:�double(14,20,a$):I=�(2000)
n�
x*� �notthistime:�N=1�20:X$(N)=x$(N):�:�
�� �nogood:�
�.�(141)"�This program requires 6502 tube,"
�.�(141)"�This program requires 6502 tube,"
�3�(141)"�BBC+,shadow ram or may run on 'MASTER"
�3�(141)"�BBC+,shadow ram or may run on 'MASTER"
��
��
�

00000000  0d 00 0a 10 20 ee 20 85  20 f2 6e 6f 67 6f 6f 64  |.... . . .nogood|
00000010  0d 00 14 18 eb 31 32 39  3a ef 32 33 3b 38 32 30  |.....129:.23;820|
00000020  32 3b 30 3b 30 3b 30 3b  0d 00 1e 49 20 de 78 24  |2;0;0;0;...I .x$|
00000030  28 32 30 29 3a de 47 24  28 31 39 2c 31 32 29 3a  |(20):.G$(19,12):|
00000040  de 20 58 24 28 32 30 29  3a de 4d 24 28 31 39 2c  |. X$(20):.M$(19,|
00000050  31 32 29 3a f2 4d 43 3a  54 3d 31 3a 50 3d 30 3a  |12):.MC:T=1:P=0:|
00000060  f2 6d 63 3a f2 63 64 65  3a f2 4e 55 4d 42 45 52  |.mc:.cde:.NUMBER|
00000070  53 0d 00 28 0e 20 ee 20  85 20 f2 6d 65 6e 75 0d  |S..(. . . .menu.|
00000080  00 32 0c 20 f2 6d 65 6e  75 3a fa 0d 00 3c 07 20  |.2. .menu:...<. |
00000090  e0 20 0d 00 46 11 dd 20  f2 70 72 69 6e 74 67 72  |. ..F.. .printgr|
000000a0  69 64 20 0d 00 50 06 fb  32 0d 00 5a 1b 20 e3 20  |id ..P..2..Z. . |
000000b0  4e 3d 30 20 b8 20 31 39  3a e3 20 4a 3d 30 20 b8  |N=0 . 19:. J=0 .|
000000c0  20 31 32 20 0d 00 64 18  f1 8a 4e 2a 32 2c 4a 2a  | 12 ..d...N*2,J*|
000000d0  32 29 20 47 24 28 4e 2c  4a 29 3b 20 0d 00 6e 09  |2) G$(N,J); ..n.|
000000e0  ed 3a ed 3a 20 0d 00 78  06 e1 20 0d 00 82 0c dd  |.:.: ..x.. .....|
000000f0  20 f2 67 72 69 64 20 0d  00 8c 0a 20 e6 30 2c 31  | .grid .... .0,1|
00000100  20 0d 00 96 19 e3 20 4e  3d 34 30 20 b8 20 31 32  | ..... N=40 . 12|
00000110  34 39 20 88 20 36 34 20  20 20 0d 00 a0 0d ec 20  |49 . 64   ..... |
00000120  4e 2c 31 30 32 33 20 0d  00 aa 0c df 20 4e 2c 32  |N,1023 ..... N,2|
00000130  30 30 20 0d 00 b4 06 ed  20 0d 00 be 18 e3 20 4e  |00 ..... ..... N|
00000140  3d 32 36 34 20 b8 20 31  30 32 34 20 88 20 36 34  |=264 . 1024 . 64|
00000150  20 0d 00 c8 0a ec 20 30  2c 4e 20 0d 00 d2 0d df  | ..... 0,N .....|
00000160  20 31 32 34 38 2c 4e 20  0d 00 dc 06 ed 20 0d 00  | 1248,N ..... ..|
00000170  e6 06 e1 20 0d 00 f0 0f  dd 20 f2 73 74 72 69 6e  |... ..... .strin|
00000180  67 73 20 0d 00 fa 09 db  3a fb 33 20 0d 01 04 2f  |gs .....:.3 .../|
00000190  f1 22 20 50 4c 45 41 53  45 20 45 4e 54 45 52 20  |." PLEASE ENTER |
000001a0  32 30 20 57 4f 52 44 53  20 28 31 30 20 6c 65 74  |20 WORDS (10 let|
000001b0  74 65 72 73 20 6f 6e 6c  79 29 22 0d 01 0e 10 5a  |ters only)"....Z|
000001c0  24 3d c4 34 30 2c 22 20  22 29 20 0d 01 18 0f e3  |$=.40," ") .....|
000001d0  20 4e 3d 31 20 b8 20 32  30 20 0d 01 22 0e 20 f1  | N=1 . 20 ..". .|
000001e0  8a 30 2c 35 29 5a 24 20  0d 01 2c 0d f1 8a 35 2c  |.0,5)Z$ ..,...5,|
000001f0  35 29 4e 3b 20 0d 01 36  0c e8 20 58 24 28 4e 29  |5)N; ..6.. X$(N)|
00000200  20 0d 01 40 1c 4c 3d a9  28 58 24 28 4e 29 29 3a  | ..@.L=.(X$(N)):|
00000210  e7 20 4c 3e 31 30 20 8c  20 8d 54 62 41 0d 01 4a  |. L>10 . .TbA..J|
00000220  06 ed 20 0d 01 54 5e 20  f2 74 65 78 74 3a f1 8a  |.. ..T^ .text:..|
00000230  30 2c 30 29 3b 22 20 20  20 20 20 20 20 20 20 20  |0,0);"          |
00000240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000250  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 3a  |              ":|
00000260  f1 8a 30 2c 35 29 22 20  20 20 20 20 20 20 20 20  |..0,5)"         |
00000270  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000280  22 0d 01 5e 06 e1 20 0d  01 68 15 dd 20 f2 72 61  |"..^.. ..h.. .ra|
00000290  6e 64 6f 6d 3a 64 6f 6e  65 3d 30 20 0d 01 72 1f  |ndom:done=0 ..r.|
000002a0  52 3d b3 28 38 29 3a 59  3d b3 28 31 33 29 2d 31  |R=.(8):Y=.(13)-1|
000002b0  3a 58 3d b3 28 32 30 29  2d 31 20 0d 01 7c 10 e7  |:X=.(20)-1 ..|..|
000002c0  20 52 3d 31 20 8c 20 f2  75 70 20 0d 01 86 12 e7  | R=1 . .up .....|
000002d0  20 52 3d 32 20 8c 20 f2  64 6f 77 6e 20 0d 01 90  | R=2 . .down ...|
000002e0  13 e7 20 52 3d 33 20 8c  20 f2 72 69 67 68 74 20  |.. R=3 . .right |
000002f0  0d 01 9a 12 e7 20 52 3d  34 20 8c 20 f2 6c 65 66  |..... R=4 . .lef|
00000300  74 20 0d 01 a4 15 e7 20  52 3d 35 20 8c 20 f2 75  |t ..... R=5 . .u|
00000310  70 72 69 67 68 74 20 0d  01 ae 17 e7 20 52 3d 36  |pright ..... R=6|
00000320  20 8c 20 f2 64 6f 77 6e  72 69 67 68 74 20 0d 01  | . .downright ..|
00000330  b8 14 e7 20 52 3d 37 20  8c 20 f2 75 70 6c 65 66  |... R=7 . .uplef|
00000340  74 20 0d 01 c2 16 e7 20  52 3d 38 20 8c 20 f2 64  |t ..... R=8 . .d|
00000350  6f 77 6e 6c 65 66 74 20  0d 01 cc 15 20 e7 20 64  |ownleft .... . d|
00000360  6f 6e 65 3d 30 20 8c 20  8d 44 72 41 20 0d 01 d6  |one=0 . .DrA ...|
00000370  06 e1 20 0d 01 e0 0e 20  dd 20 f2 65 6d 70 74 79  |.. .... . .empty|
00000380  20 0d 01 ea 1b 20 e3 20  4e 3d 30 20 b8 20 31 39  | .... . N=0 . 19|
00000390  3a e3 20 4a 3d 30 20 b8  20 31 32 20 0d 01 f4 16  |:. J=0 . 12 ....|
000003a0  20 47 24 28 4e 2c 4a 29  3d 22 20 22 3a ed 3a ed  | G$(N,J)=" ":.:.|
000003b0  20 20 0d 01 fe 07 20 e1  20 0d 02 08 0c dd 20 f2  |  .... . ..... .|
000003c0  68 69 64 65 20 0d 02 12  0a 43 3d 31 3a f5 20 0d  |hide ....C=1:. .|
000003d0  02 1c 15 54 24 3d 58 24  28 43 29 3a 4c 3d a9 28  |...T$=X$(C):L=.(|
000003e0  54 24 29 20 0d 02 26 0c  f2 72 61 6e 64 6f 6d 20  |T$) ..&..random |
000003f0  0d 02 30 10 43 3d 43 2b  31 3a fd 43 3d 32 31 20  |..0.C=C+1:.C=21 |
00000400  0d 02 3a 06 e1 20 0d 02  44 0b 20 dd 20 f2 75 70  |..:.. ..D. . .up|
00000410  20 0d 02 4e 0d 20 61 66  6c 61 67 3d 30 20 0d 02  | ..N. aflag=0 ..|
00000420  58 11 e7 20 59 2b 4c 3e  31 32 20 8c 20 e1 20 0d  |X.. Y+L>12 . . .|
00000430  02 62 10 e3 20 4e 3d 30  20 b8 20 4c 2d 31 20 0d  |.b.. N=0 . L-1 .|
00000440  02 6c 1e e7 20 47 24 28  58 2c 59 2b 4e 29 3c 3e  |.l.. G$(X,Y+N)<>|
00000450  22 20 22 20 8c 20 f2 63  68 65 63 6b 20 0d 02 76  |" " . .check ..v|
00000460  06 ed 20 0d 02 80 12 e7  20 61 66 6c 61 67 3d 31  |.. ..... aflag=1|
00000470  20 8c 20 e1 20 0d 02 8a  28 20 e3 20 4e 3d 30 20  | . . ...( . N=0 |
00000480  b8 20 4c 2d 31 3a 47 24  28 58 2c 59 2b 4e 29 3d  |. L-1:G$(X,Y+N)=|
00000490  c1 54 24 2c 4e 2b 31 2c  31 29 3a ed 20 0d 02 94  |.T$,N+1,1):. ...|
000004a0  0c 20 64 6f 6e 65 3d 31  20 0d 02 9e 06 e1 20 0d  |. done=1 ..... .|
000004b0  02 a8 0d dd 20 f2 63 68  65 63 6b 20 0d 02 b2 1f  |.... .check ....|
000004c0  e7 20 47 24 28 58 2c 59  2b 4e 29 3d c1 54 24 2c  |. G$(X,Y+N)=.T$,|
000004d0  4e 2b 31 2c 31 29 20 8c  20 e1 20 0d 02 bc 0c 61  |N+1,1) . . ....a|
000004e0  66 6c 61 67 3d 31 20 0d  02 c6 06 e1 20 0d 02 d0  |flag=1 ..... ...|
000004f0  14 dd 20 f2 64 6f 77 6e  3a 61 66 6c 61 67 3d 30  |.. .down:aflag=0|
00000500  20 0d 02 da 10 e7 20 59  2d 4c 3c 30 20 8c 20 e1  | ..... Y-L<0 . .|
00000510  20 0d 02 e4 10 e3 20 4e  3d 30 20 b8 20 4c 2d 31  | ..... N=0 . L-1|
00000520  20 0d 02 ee 1f e7 20 47  24 28 58 2c 59 2d 4e 29  | ..... G$(X,Y-N)|
00000530  3c 3e 22 20 22 20 8c 20  f2 63 68 65 63 6b 6d 20  |<>" " . .checkm |
00000540  0d 02 f8 06 ed 20 0d 03  02 12 e7 20 61 66 6c 61  |..... ..... afla|
00000550  67 3d 31 20 8c 20 e1 20  0d 03 0c 27 e3 20 4e 3d  |g=1 . . ...'. N=|
00000560  30 20 b8 20 4c 2d 31 3a  47 24 28 58 2c 59 2d 4e  |0 . L-1:G$(X,Y-N|
00000570  29 3d c1 54 24 2c 4e 2b  31 2c 31 29 3a ed 20 0d  |)=.T$,N+1,1):. .|
00000580  03 16 0b 64 6f 6e 65 3d  31 20 0d 03 20 06 e1 20  |...done=1 .. .. |
00000590  0d 03 2a 0e dd 20 f2 63  68 65 63 6b 6d 20 0d 03  |..*.. .checkm ..|
000005a0  34 1f e7 20 47 24 28 58  2c 59 2d 4e 29 3d c1 54  |4.. G$(X,Y-N)=.T|
000005b0  24 2c 4e 2b 31 2c 31 29  20 8c 20 e1 20 0d 03 3e  |$,N+1,1) . . ..>|
000005c0  0d 20 61 66 6c 61 67 3d  31 20 0d 03 48 07 20 e1  |. aflag=1 ..H. .|
000005d0  20 0d 03 52 0c dd 20 f2  6d 61 7a 65 20 0d 03 5c  | ..R.. .maze ..\|
000005e0  19 e3 20 4a 3d 30 20 b8  20 31 39 3a e3 4e 3d 30  |.. J=0 . 19:.N=0|
000005f0  20 b8 20 31 32 20 0d 03  66 10 20 52 3d b3 28 32  | . 12 ..f. R=.(2|
00000600  36 29 2b 36 34 20 0d 03  70 15 20 4d 24 28 4a 2c  |6)+64 ..p. M$(J,|
00000610  4e 29 3d 47 24 28 4a 2c  4e 29 20 0d 03 7a 21 e7  |N)=G$(J,N) ..z!.|
00000620  20 47 24 28 4a 2c 4e 29  3d 22 20 22 20 8c 20 47  | G$(J,N)=" " . G|
00000630  24 28 4a 2c 4e 29 3d bd  28 52 29 20 0d 03 84 08  |$(J,N)=.(R) ....|
00000640  ed 3a ed 20 0d 03 8e 06  e1 20 0d 03 98 0d dd 20  |.:. ..... ..... |
00000650  f2 72 69 67 68 74 20 0d  03 a2 19 61 66 6c 61 67  |.right ....aflag|
00000660  3d 30 3a e7 20 58 2b 4c  3e 31 39 20 8c 20 e1 20  |=0:. X+L>19 . . |
00000670  0d 03 ac 0d e3 4e 3d 30  b8 4c 2d 31 20 0d 03 b6  |.....N=0.L-1 ...|
00000680  1f e7 20 47 24 28 58 2b  4e 2c 59 29 3c 3e 22 20  |.. G$(X+N,Y)<>" |
00000690  22 20 8c 20 f2 63 68 65  63 6b 78 20 0d 03 c0 06  |" . .checkx ....|
000006a0  ed 20 0d 03 ca 12 e7 20  61 66 6c 61 67 3d 31 20  |. ..... aflag=1 |
000006b0  8c 20 e1 20 0d 03 d4 24  e3 4e 3d 30 b8 4c 2d 31  |. . ...$.N=0.L-1|
000006c0  3a 47 24 28 58 2b 4e 2c  59 29 3d c1 54 24 2c 4e  |:G$(X+N,Y)=.T$,N|
000006d0  2b 31 2c 31 29 3a ed 20  0d 03 de 0b 64 6f 6e 65  |+1,1):. ....done|
000006e0  3d 31 20 0d 03 e8 06 e1  20 0d 03 f2 0f 20 dd 20  |=1 ..... .... . |
000006f0  f2 63 68 65 63 6b 78 20  0d 03 fc 1f e7 20 47 24  |.checkx ..... G$|
00000700  28 58 2b 4e 2c 59 29 3d  c1 54 24 2c 4e 2b 31 2c  |(X+N,Y)=.T$,N+1,|
00000710  31 29 20 8c 20 e1 20 0d  04 06 0c 61 66 6c 61 67  |1) . . ....aflag|
00000720  3d 31 20 0d 04 10 06 e1  20 0d 04 1a 0c dd 20 f2  |=1 ..... ..... .|
00000730  6c 65 66 74 20 0d 04 24  18 61 66 6c 61 67 3d 30  |left ..$.aflag=0|
00000740  3a e7 20 58 2d 4c 3c 30  20 8c 20 e1 20 0d 04 2e  |:. X-L<0 . . ...|
00000750  0d e3 4e 3d 30 b8 4c 2d  31 20 0d 04 38 21 e7 20  |..N=0.L-1 ..8!. |
00000760  47 24 28 58 2d 4e 2c 59  29 3c 3e 22 20 22 20 8c  |G$(X-N,Y)<>" " .|
00000770  20 f2 63 68 65 63 6b 78  6d 20 20 0d 04 42 06 ed  | .checkxm  ..B..|
00000780  20 0d 04 4c 12 e7 20 61  66 6c 61 67 3d 31 20 8c  | ..L.. aflag=1 .|
00000790  20 e1 20 0d 04 56 24 e3  4e 3d 30 b8 4c 2d 31 3a  | . ..V$.N=0.L-1:|
000007a0  47 24 28 58 2d 4e 2c 59  29 3d c1 54 24 2c 4e 2b  |G$(X-N,Y)=.T$,N+|
000007b0  31 2c 31 29 3a ed 20 0d  04 60 0c 64 6f 6e 65 3d  |1,1):. ..`.done=|
000007c0  31 20 20 0d 04 6a 06 e1  20 0d 04 74 0f dd 20 f2  |1  ..j.. ..t.. .|
000007d0  63 68 65 63 6b 78 6d 20  0d 04 7e 1f e7 20 47 24  |checkxm ..~.. G$|
000007e0  28 58 2d 4e 2c 59 29 3d  c1 54 24 2c 4e 2b 31 2c  |(X-N,Y)=.T$,N+1,|
000007f0  31 29 20 8c 20 e1 20 0d  04 88 0c 61 66 6c 61 67  |1) . . ....aflag|
00000800  3d 31 20 0d 04 92 06 e1  20 0d 04 9c 0f dd 20 f2  |=1 ..... ..... .|
00000810  75 70 72 69 67 68 74 20  0d 04 a6 22 61 66 6c 61  |upright ..."afla|
00000820  67 3d 30 3a e7 20 59 2b  4c 3e 31 32 20 84 20 58  |g=0:. Y+L>12 . X|
00000830  2b 4c 3e 31 39 20 8c 20  e1 20 0d 04 b0 10 e3 20  |+L>19 . . ..... |
00000840  4e 3d 30 20 b8 20 4c 2d  31 20 0d 04 ba 22 e7 20  |N=0 . L-1 ...". |
00000850  47 24 28 58 2b 4e 2c 59  2b 4e 29 3c 3e 22 20 22  |G$(X+N,Y+N)<>" "|
00000860  20 8c 20 f2 63 68 65 63  6b 75 72 20 0d 04 c4 07  | . .checkur ....|
00000870  20 ed 20 0d 04 ce 12 e7  20 61 66 6c 61 67 3d 31  | . ..... aflag=1|
00000880  20 8c 20 e1 20 0d 04 d8  0f e3 4e 3d 30 20 b8 20  | . . .....N=0 . |
00000890  4c 2d 31 20 0d 04 e2 1d  47 24 28 58 2b 4e 2c 59  |L-1 ....G$(X+N,Y|
000008a0  2b 4e 29 3d c1 54 24 2c  4e 2b 31 2c 31 29 3a ed  |+N)=.T$,N+1,1):.|
000008b0  20 0d 04 ec 0b 64 6f 6e  65 3d 31 20 0d 04 f6 06  | ....done=1 ....|
000008c0  e1 20 0d 05 00 0f dd 20  f2 63 68 65 63 6b 75 72  |. ..... .checkur|
000008d0  20 0d 05 0a 21 e7 20 47  24 28 58 2b 4e 2c 59 2b  | ...!. G$(X+N,Y+|
000008e0  4e 29 3d c1 54 24 2c 4e  2b 31 2c 31 29 20 8c 20  |N)=.T$,N+1,1) . |
000008f0  e1 20 0d 05 14 0c 61 66  6c 61 67 3d 31 20 0d 05  |. ....aflag=1 ..|
00000900  1e 06 e1 20 0d 05 28 19  dd 20 f2 64 6f 77 6e 72  |... ..(.. .downr|
00000910  69 67 68 74 3a 61 66 6c  61 67 3d 30 20 0d 05 32  |ight:aflag=0 ..2|
00000920  18 e7 20 59 2d 4c 3c 30  20 84 20 58 2d 4c 3c 30  |.. Y-L<0 . X-L<0|
00000930  20 8c 20 e1 20 0d 05 3c  10 e3 20 4e 3d 30 20 b8  | . . ..<.. N=0 .|
00000940  20 4c 2d 31 20 0d 05 46  21 e7 20 47 24 28 58 2d  | L-1 ..F!. G$(X-|
00000950  4e 2c 59 2d 4e 29 3c 3e  22 20 22 20 8c 20 f2 63  |N,Y-N)<>" " . .c|
00000960  68 65 63 6c 6c 20 0d 05  50 06 ed 20 0d 05 5a 12  |hecll ..P.. ..Z.|
00000970  e7 20 61 66 6c 61 67 3d  31 20 8c 20 e1 20 0d 05  |. aflag=1 . . ..|
00000980  64 0f e3 4e 3d 30 20 b8  20 4c 2d 31 20 0d 05 6e  |d..N=0 . L-1 ..n|
00000990  1d 47 24 28 58 2d 4e 2c  59 2d 4e 29 3d c1 54 24  |.G$(X-N,Y-N)=.T$|
000009a0  2c 4e 2b 31 2c 31 29 3a  ed 20 0d 05 78 0b 64 6f  |,N+1,1):. ..x.do|
000009b0  6e 65 3d 31 20 0d 05 82  06 e1 20 0d 05 8c 0e dd  |ne=1 ..... .....|
000009c0  20 f2 63 68 65 63 6c 6c  20 0d 05 96 21 e7 20 47  | .checll ...!. G|
000009d0  24 28 58 2d 4e 2c 59 2d  4e 29 3d c1 54 24 2c 4e  |$(X-N,Y-N)=.T$,N|
000009e0  2b 31 2c 31 29 20 8c 20  e1 20 0d 05 a0 0c 61 66  |+1,1) . . ....af|
000009f0  6c 61 67 3d 31 20 0d 05  aa 06 e1 20 0d 05 b4 17  |lag=1 ..... ....|
00000a00  20 dd 20 f2 75 70 6c 65  66 74 3a 61 66 6c 61 67  | . .upleft:aflag|
00000a10  3d 30 20 0d 05 be 19 e7  20 59 2b 4c 3e 31 32 20  |=0 ..... Y+L>12 |
00000a20  84 20 58 2d 4c 3c 30 20  8c 20 e1 20 0d 05 c8 10  |. X-L<0 . . ....|
00000a30  e3 20 4e 3d 30 20 b8 20  4c 2d 31 20 0d 05 d2 21  |. N=0 . L-1 ...!|
00000a40  e7 20 47 24 28 58 2d 4e  2c 59 2b 4e 29 3c 3e 22  |. G$(X-N,Y+N)<>"|
00000a50  20 22 20 8c 20 f2 63 68  65 63 6d 6d 20 0d 05 dc  | " . .checmm ...|
00000a60  06 ed 20 0d 05 e6 12 e7  20 61 66 6c 61 67 3d 31  |.. ..... aflag=1|
00000a70  20 8c 20 e1 20 0d 05 f0  0f e3 4e 3d 30 20 b8 20  | . . .....N=0 . |
00000a80  4c 2d 31 20 0d 05 fa 1d  47 24 28 58 2d 4e 2c 59  |L-1 ....G$(X-N,Y|
00000a90  2b 4e 29 3d c1 54 24 2c  4e 2b 31 2c 31 29 3a ed  |+N)=.T$,N+1,1):.|
00000aa0  20 0d 06 04 0b 64 6f 6e  65 3d 31 20 0d 06 0e 06  | ....done=1 ....|
00000ab0  e1 20 0d 06 18 0e dd 20  f2 63 68 65 63 6d 6d 20  |. ..... .checmm |
00000ac0  0d 06 22 21 e7 20 47 24  28 58 2d 4e 2c 59 2b 4e  |.."!. G$(X-N,Y+N|
00000ad0  29 3d c1 54 24 2c 4e 2b  31 2c 31 29 20 8c 20 e1  |)=.T$,N+1,1) . .|
00000ae0  20 0d 06 2c 0c 61 66 6c  61 67 3d 31 20 0d 06 36  | ..,.aflag=1 ..6|
00000af0  06 e1 20 0d 06 40 18 dd  20 f2 64 6f 77 6e 6c 65  |.. ..@.. .downle|
00000b00  66 74 3a 61 66 6c 61 67  3d 30 20 0d 06 4a 18 e7  |ft:aflag=0 ..J..|
00000b10  20 59 2d 4c 3c 30 20 84  20 58 2d 4c 3c 30 20 8c  | Y-L<0 . X-L<0 .|
00000b20  20 e1 20 0d 06 54 10 e3  20 4e 3d 30 20 b8 20 4c  | . ..T.. N=0 . L|
00000b30  2d 31 20 0d 06 5e 21 e7  20 47 24 28 58 2d 4e 2c  |-1 ..^!. G$(X-N,|
00000b40  59 2d 4e 29 3c 3e 22 20  22 20 8c 20 f2 63 68 65  |Y-N)<>" " . .che|
00000b50  63 6f 6f 20 0d 06 68 06  ed 20 0d 06 72 12 e7 20  |coo ..h.. ..r.. |
00000b60  61 66 6c 61 67 3d 31 20  8c 20 e1 20 0d 06 7c 0f  |aflag=1 . . ..|.|
00000b70  e3 4e 3d 30 20 b8 20 4c  2d 31 20 0d 06 86 1d 47  |.N=0 . L-1 ....G|
00000b80  24 28 58 2d 4e 2c 59 2d  4e 29 3d c1 54 24 2c 4e  |$(X-N,Y-N)=.T$,N|
00000b90  2b 31 2c 31 29 3a ed 20  0d 06 90 0b 64 6f 6e 65  |+1,1):. ....done|
00000ba0  3d 31 20 0d 06 9a 06 e1  20 0d 06 a4 0e dd 20 f2  |=1 ..... ..... .|
00000bb0  63 68 65 63 6f 6f 20 0d  06 ae 21 e7 20 47 24 28  |checoo ...!. G$(|
00000bc0  58 2d 4e 2c 59 2d 4e 29  3d c1 54 24 2c 4e 2b 31  |X-N,Y-N)=.T$,N+1|
00000bd0  2c 31 29 20 8c 20 e1 20  0d 06 b8 0c 61 66 6c 61  |,1) . . ....afla|
00000be0  67 3d 31 20 0d 06 c2 06  e1 20 0d 06 cc 0b dd 20  |g=1 ..... ..... |
00000bf0  f2 73 65 65 20 0d 06 d6  08 20 fb 33 20 0d 06 e0  |.see .... .3 ...|
00000c00  1a e3 20 4e 3d 30 20 b8  20 31 39 3a e3 20 4a 3d  |.. N=0 . 19:. J=|
00000c10  30 20 b8 20 31 32 20 0d  06 ea 1c e7 20 4d 24 28  |0 . 12 ..... M$(|
00000c20  4e 2c 4a 29 3c 3e 22 20  22 20 8c 20 f2 70 72 69  |N,J)<>" " . .pri|
00000c30  6e 74 20 0d 06 f4 08 ed  3a ed 20 0d 06 fe 06 e1  |nt .....:. .....|
00000c40  20 0d 07 08 0d dd 20 f2  70 72 69 6e 74 20 0d 07  | ..... .print ..|
00000c50  12 16 f1 8a 4e 2a 32 2c  4a 2a 32 29 4d 24 28 4e  |....N*2,J*2)M$(N|
00000c60  2c 4a 29 20 0d 07 1c 06  e1 20 0d 07 26 11 dd 20  |,J) ..... ..&.. |
00000c70  f2 70 72 69 6e 74 6d 61  7a 65 20 0d 07 30 08 20  |.printmaze ..0. |
00000c80  ef 32 20 0d 07 3a 1a e3  20 4e 3d 30 20 b8 20 31  |.2 ..:.. N=0 . 1|
00000c90  39 3a e3 20 4a 3d 30 20  b8 20 31 32 20 0d 07 44  |9:. J=0 . 12 ..D|
00000ca0  13 ef 31 3a f1 47 24 28  4e 2c 4a 29 3b 3a ed 20  |..1:.G$(N,J);:. |
00000cb0  0d 07 4e 0b ef 31 3a f1  3a ed 20 0d 07 58 08 20  |..N..1:.:. ..X. |
00000cc0  ef 33 20 0d 07 62 06 e1  20 0d 07 6c 11 dd 20 f2  |.3 ..b.. ..l.. .|
00000cd0  74 65 78 74 3a ea 20 68  6f 72 0d 07 76 07 20 fb  |text:. hor..v. .|
00000ce0  31 0d 07 80 14 20 63 6f  75 6e 74 3d 31 3a 68 6f  |1.... count=1:ho|
00000cf0  72 3d 2d 31 30 0d 07 8a  27 e3 4e 3d 31 b8 34 3a  |r=-10...'.N=1.4:|
00000d00  68 6f 72 3d 68 6f 72 2b  31 30 3a e3 20 4a 3d 32  |hor=hor+10:. J=2|
00000d10  36 20 b8 20 33 30 20 20  20 20 20 20 0d 07 94 26  |6 . 30      ...&|
00000d20  f1 8a 68 6f 72 2c 4a 29  58 24 28 63 6f 75 6e 74  |..hor,J)X$(count|
00000d30  29 3b 3a 63 6f 75 6e 74  3d 63 6f 75 6e 74 2b 31  |);:count=count+1|
00000d40  20 20 0d 07 9e 07 ed 3a  ed 0d 07 a8 05 e1 0d 07  |  .....:........|
00000d50  b2 0a 20 dd 20 f2 6d 63  0d 07 bc 0c de 20 53 25  |.. . .mc..... S%|
00000d60  20 35 30 30 0d 07 c6 23  78 6c 6f 3d 26 37 30 3a  | 500...#xlo=&70:|
00000d70  78 68 69 3d 26 37 31 3a  79 6c 6f 3d 26 37 32 3a  |xhi=&71:ylo=&72:|
00000d80  79 68 69 3d 26 37 33 0d  07 d0 23 6c 6f 67 63 6f  |yhi=&73...#logco|
00000d90  6c 3d 26 37 34 3a 70 68  79 73 63 6f 6c 3d 26 37  |l=&74:physcol=&7|
00000da0  35 3a 73 74 65 70 3d 26  38 46 0d 07 da 2a 6f 73  |5:step=&8F...*os|
00000db0  62 79 74 65 3d 26 46 46  46 34 3a 6f 73 77 6f 72  |byte=&FFF4:oswor|
00000dc0  64 3d 26 46 46 46 31 3a  6f 73 77 72 63 68 3d 26  |d=&FFF1:oswrch=&|
00000dd0  46 46 45 45 0d 07 e4 20  70 72 74 62 79 74 65 3d  |FFEE... prtbyte=|
00000de0  26 37 36 3a 70 74 72 3d  26 37 37 3a 62 79 74 65  |&76:ptr=&77:byte|
00000df0  3d 26 37 41 0d 07 ee 15  62 61 73 65 3d 26 37 46  |=&7A....base=&7F|
00000e00  3a 64 61 74 61 3d 26 37  39 0d 07 f8 12 77 72 6b  |:data=&79....wrk|
00000e10  73 70 63 65 3d 53 25 2b  32 39 32 0d 08 02 0f e3  |spce=S%+292.....|
00000e20  50 41 53 53 3d 30 b8 32  88 32 0d 08 0c 09 50 25  |PASS=0.2.2....P%|
00000e30  3d 53 25 0d 08 16 0c 5b  4f 50 54 50 41 53 53 0d  |=S%....[OPTPASS.|
00000e40  08 20 0b 4c 44 41 20 23  32 39 0d 08 2a 0e 4a 53  |. .LDA #29..*.JS|
00000e50  52 20 6f 73 77 72 63 68  0d 08 34 0a 4c 44 41 20  |R oswrch..4.LDA |
00000e60  23 30 0d 08 3e 0a 4c 44  58 20 23 34 0d 08 48 16  |#0..>.LDX #4..H.|
00000e70  2e 72 65 70 65 61 74 20  4a 53 52 20 6f 73 77 72  |.repeat JSR oswr|
00000e80  63 68 0d 08 52 07 44 45  58 0d 08 5c 0e 42 4e 45  |ch..R.DEX..\.BNE|
00000e90  20 72 65 70 65 61 74 0d  08 66 17 4c 44 41 20 23  | repeat..f.LDA #|
00000ea0  28 53 25 2b 33 34 36 29  20 83 20 32 35 36 0d 08  |(S%+346) . 256..|
00000eb0  70 0c 53 54 41 20 64 61  74 61 0d 08 7a 17 4c 44  |p.STA data..z.LD|
00000ec0  41 20 23 28 53 25 2b 33  34 36 29 20 81 20 32 35  |A #(S%+346) . 25|
00000ed0  36 0d 08 84 0e 53 54 41  20 64 61 74 61 2b 31 0d  |6....STA data+1.|
00000ee0  08 8e 15 4c 44 41 20 23  32 3a 4a 53 52 20 6f 73  |...LDA #2:JSR os|
00000ef0  77 72 63 68 0d 08 98 0a  4c 44 58 20 23 30 0d 08  |wrch....LDX #0..|
00000f00  a2 16 4c 44 41 20 23 77  72 6b 73 70 63 65 20 83  |..LDA #wrkspce .|
00000f10  20 32 35 36 0d 08 ac 0b  53 54 41 20 78 6c 6f 0d  | 256....STA xlo.|
00000f20  08 b6 16 4c 44 41 20 23  77 72 6b 73 70 63 65 20  |...LDA #wrkspce |
00000f30  81 20 32 35 36 0d 08 c0  0b 53 54 41 20 78 68 69  |. 256....STA xhi|
00000f40  0d 08 ca 12 2e 6c 61 62  65 6c 20 4c 44 41 20 78  |.....label LDA x|
00000f50  6c 6f 0d 08 d4 07 43 4c  43 0d 08 de 0a 41 44 43  |lo....CLC....ADC|
00000f60  20 23 36 0d 08 e8 0b 53  54 41 20 78 6c 6f 0d 08  | #6....STA xlo..|
00000f70  f2 0e 53 54 41 20 62 61  73 65 2c 58 0d 08 fc 07  |..STA base,X....|
00000f80  49 4e 58 0d 09 06 10 42  43 43 20 63 61 72 72 79  |INX....BCC carry|
00000f90  63 6c 72 0d 09 10 0b 49  4e 43 20 78 68 69 0d 09  |clr....INC xhi..|
00000fa0  1a 15 2e 63 61 72 72 79  63 6c 72 20 4c 44 41 20  |...carryclr LDA |
00000fb0  78 68 69 0d 09 24 0e 53  54 41 20 62 61 73 65 2c  |xhi..$.STA base,|
00000fc0  58 0d 09 2e 07 49 4e 58  0d 09 38 0b 43 50 58 20  |X....INX..8.CPX |
00000fd0  23 31 36 0d 09 42 0d 42  43 43 20 6c 61 62 65 6c  |#16..B.BCC label|
00000fe0  0d 09 4c 0c 4c 44 41 20  23 26 46 46 0d 09 56 0b  |..L.LDA #&FF..V.|
00000ff0  53 54 41 20 79 6c 6f 0d  09 60 0a 4c 44 41 20 23  |STA ylo..`.LDA #|
00001000  33 0d 09 6a 0b 53 54 41  20 79 68 69 0d 09 74 0c  |3..j.STA yhi..t.|
00001010  4c 44 41 20 23 31 33 35  0d 09 7e 0e 4a 53 52 20  |LDA #135..~.JSR |
00001020  6f 73 62 79 74 65 0d 09  88 0a 43 50 59 20 23 33  |osbyte....CPY #3|
00001030  0d 09 92 0f 42 43 53 20  6d 6f 64 65 67 74 33 0d  |....BCS modegt3.|
00001040  09 9c 07 49 4e 59 0d 09  a6 10 2e 6d 6f 64 65 67  |...INY.....modeg|
00001050  74 33 20 54 59 41 0d 09  b0 09 52 4f 52 20 41 0d  |t3 TYA....ROR A.|
00001060  09 ba 10 42 43 53 20 6d  6f 64 65 32 6f 72 35 0d  |...BCS mode2or5.|
00001070  09 c4 14 2e 6d 6f 64 65  31 6f 72 34 20 4c 44 41  |....mode1or4 LDA|
00001080  20 23 34 0d 09 ce 11 53  54 41 20 77 72 6b 73 70  | #4....STA wrksp|
00001090  63 65 2b 35 0d 09 d8 0a  4c 44 41 20 23 32 0d 09  |ce+5....LDA #2..|
000010a0  e2 0c 53 54 41 20 73 74  65 70 0d 09 ec 0f 42 4e  |..STA step....BN|
000010b0  45 20 6c 69 6e 65 73 70  63 0d 09 f6 14 2e 6d 6f  |E linespc.....mo|
000010c0  64 65 32 6f 72 35 20 4c  44 41 20 23 38 0d 0a 00  |de2or5 LDA #8...|
000010d0  11 53 54 41 20 77 72 6b  73 70 63 65 2b 35 0d 0a  |.STA wrkspce+5..|
000010e0  0a 0a 4c 44 41 20 23 35  0d 0a 14 0c 53 54 41 20  |..LDA #5....STA |
000010f0  73 74 65 70 0d 0a 1e 1a  2e 6c 69 6e 65 73 70 63  |step.....linespc|
00001100  20 4c 44 59 20 23 30 3a  4c 44 58 20 23 33 0d 0a  | LDY #0:LDX #3..|
00001110  28 0f 4a 53 52 20 70 72  74 69 6e 73 74 0d 0a 32  |(.JSR prtinst..2|
00001120  14 2e 62 69 74 69 6d 61  67 65 20 4c 44 41 20 23  |..bitimage LDA #|
00001130  30 0d 0a 3c 0b 53 54 41  20 78 6c 6f 0d 0a 46 0b  |0..<.STA xlo..F.|
00001140  53 54 41 20 78 68 69 0d  0a 50 11 4c 44 59 20 23  |STA xhi..P.LDY #|
00001150  33 3a 4c 44 58 20 23 34  0d 0a 5a 0f 4a 53 52 20  |3:LDX #4..Z.JSR |
00001160  70 72 74 69 6e 73 74 0d  0a 64 12 2e 6e 65 77 63  |prtinst..d..newc|
00001170  6f 6c 20 4c 44 58 20 23  34 0d 0a 6e 14 2e 72 65  |ol LDX #4..n..re|
00001180  61 64 70 69 78 20 54 58  41 3a 50 48 41 0d 0a 78  |adpix TXA:PHA..x|
00001190  0c 4c 44 58 20 23 78 6c  6f 0d 0a 82 0a 4c 44 59  |.LDX #xlo....LDY|
000011a0  20 23 30 0d 0a 8c 0a 4c  44 41 20 23 39 0d 0a 96  | #0....LDA #9...|
000011b0  0e 4a 53 52 20 6f 73 77  6f 72 64 0d 0a a0 0b 4c  |.JSR osword....L|
000011c0  44 41 20 23 26 42 0d 0a  aa 0a 4c 44 59 20 23 30  |DA #&B....LDY #0|
000011d0  0d 0a b4 0f 4c 44 58 20  23 6c 6f 67 63 6f 6c 0d  |....LDX #logcol.|
000011e0  0a be 0e 4a 53 52 20 6f  73 77 6f 72 64 0d 0a c8  |...JSR osword...|
000011f0  0b 50 4c 41 3a 54 41 58  0d 0a d2 0f 4c 44 41 20  |.PLA:TAX....LDA |
00001200  70 68 79 73 63 6f 6c 0d  0a dc 08 80 20 23 37 0d  |physcol..... #7.|
00001210  0a e6 09 41 53 4c 20 41  0d 0a f0 0e 53 54 41 20  |...ASL A....STA |
00001220  62 79 74 65 2c 58 0d 0a  fa 0b 4c 44 41 20 79 6c  |byte,X....LDA yl|
00001230  6f 0d 0b 04 07 53 45 43  0d 0b 0e 0a 53 42 43 20  |o....SEC....SBC |
00001240  23 34 0d 0b 18 0b 53 54  41 20 79 6c 6f 0d 0b 22  |#4....STA ylo.."|
00001250  11 42 43 53 20 63 68 6b  63 6f 6c 65 6e 64 0d 0b  |.BCS chkcolend..|
00001260  2c 0b 44 45 43 20 79 68  69 0d 0b 36 12 2e 63 68  |,.DEC yhi..6..ch|
00001270  6b 63 6f 6c 65 6e 64 20  44 45 58 0d 0b 40 0f 42  |kcolend DEX..@.B|
00001280  4e 45 20 72 65 61 64 70  69 78 0d 0b 4a 0c 4c 44  |NE readpix..J.LD|
00001290  59 20 73 74 65 70 0d 0b  54 10 2e 62 61 63 6b 20  |Y step..T..back |
000012a0  4c 44 41 20 23 30 0d 0b  5e 0f 53 54 41 20 70 72  |LDA #0..^.STA pr|
000012b0  74 62 79 74 65 0d 0b 68  0a 4c 44 58 20 23 34 0d  |tbyte..h.LDX #4.|
000012c0  0b 72 12 2e 70 69 78 65  6c 20 54 58 41 3a 50 48  |.r..pixel TXA:PH|
000012d0  41 0d 0b 7c 0e 4c 44 41  20 62 79 74 65 2c 58 0d  |A..|.LDA byte,X.|
000012e0  0b 86 07 54 41 58 0d 0b  90 0e 4c 44 41 20 62 61  |...TAX....LDA ba|
000012f0  73 65 2c 58 0d 0b 9a 0b  53 54 41 20 70 74 72 0d  |se,X....STA ptr.|
00001300  0b a4 10 4c 44 41 20 62  61 73 65 2b 31 2c 58 0d  |...LDA base+1,X.|
00001310  0b ae 0d 53 54 41 20 70  74 72 2b 31 0d 0b b8 0f  |...STA ptr+1....|
00001320  4c 44 41 20 28 70 74 72  29 2c 59 0d 0b c2 07 43  |LDA (ptr),Y....C|
00001330  4c 43 0d 0b cc 0f 41 44  43 20 70 72 74 62 79 74  |LC....ADC prtbyt|
00001340  65 0d 0b d6 0f 53 54 41  20 70 72 74 62 79 74 65  |e....STA prtbyte|
00001350  0d 0b e0 0b 50 4c 41 3a  54 41 58 0d 0b ea 07 44  |....PLA:TAX....D|
00001360  45 58 0d 0b f4 0d 42 45  51 20 70 72 69 6e 74 0d  |EX....BEQ print.|
00001370  0b fe 0f 41 53 4c 20 70  72 74 62 79 74 65 0d 0c  |...ASL prtbyte..|
00001380  08 0f 41 53 4c 20 70 72  74 62 79 74 65 0d 0c 12  |..ASL prtbyte...|
00001390  0d 42 43 43 20 70 69 78  65 6c 0d 0c 1c 16 2e 70  |.BCC pixel.....p|
000013a0  72 69 6e 74 20 4c 44 41  20 70 72 74 62 79 74 65  |rint LDA prtbyte|
000013b0  0d 0c 26 0f 4a 53 52 20  73 65 6e 64 70 72 74 0d  |..&.JSR sendprt.|
000013c0  0c 30 07 44 45 59 0d 0c  3a 0c 42 50 4c 20 62 61  |.0.DEY..:.BPL ba|
000013d0  63 6b 0d 0c 44 0f 2e 6e  78 74 63 6f 6c 20 43 4c  |ck..D..nxtcol CL|
000013e0  43 0d 0c 4e 11 4c 44 41  20 77 72 6b 73 70 63 65  |C..N.LDA wrkspce|
000013f0  2b 35 0d 0c 58 0b 41 44  43 20 78 6c 6f 0d 0c 62  |+5..X.ADC xlo..b|
00001400  0b 53 54 41 20 78 6c 6f  0d 0c 6c 10 42 43 43 20  |.STA xlo..l.BCC |
00001410  63 68 6b 6c 6e 65 6e 64  0d 0c 76 0b 49 4e 43 20  |chklnend..v.INC |
00001420  78 68 69 0d 0c 80 15 2e  63 68 6b 6c 6e 65 6e 64  |xhi.....chklnend|
00001430  20 4c 44 41 20 78 68 69  0d 0c 8a 0a 43 4d 50 20  | LDA xhi....CMP |
00001440  23 35 0d 0c 94 0f 42 45  51 20 65 6e 64 6c 69 6e  |#5....BEQ endlin|
00001450  65 0d 0c 9e 13 2e 63 6f  6c 74 6f 70 20 4c 44 41  |e.....coltop LDA|
00001460  20 23 31 36 0d 0c a8 07  43 4c 43 0d 0c b2 0b 41  | #16....CLC....A|
00001470  44 43 20 79 6c 6f 0d 0c  bc 0b 53 54 41 20 79 6c  |DC ylo....STA yl|
00001480  6f 0d 0c c6 0e 42 43 43  20 6e 65 77 63 6f 6c 0d  |o....BCC newcol.|
00001490  0c d0 0b 49 4e 43 20 79  68 69 0d 0c da 0e 42 43  |...INC yhi....BC|
000014a0  53 20 6e 65 77 63 6f 6c  0d 0c e4 14 2e 65 6e 64  |S newcol.....end|
000014b0  6c 69 6e 65 20 4c 44 41  20 23 31 30 0d 0c ee 0f  |line LDA #10....|
000014c0  4a 53 52 20 73 65 6e 64  70 72 74 0d 0c f8 15 2e  |JSR sendprt.....|
000014d0  65 6e 64 63 68 65 63 6b  20 4c 44 41 20 79 68 69  |endcheck LDA yhi|
000014e0  0d 0d 02 0b 42 4d 49 20  65 6e 64 0d 0d 0c 10 4a  |....BMI end....J|
000014f0  4d 50 20 62 69 74 69 6d  61 67 65 0d 0d 16 19 2e  |MP bitimage.....|
00001500  70 72 74 69 6e 73 74 20  4c 44 41 20 28 64 61 74  |prtinst LDA (dat|
00001510  61 29 2c 59 0d 0d 20 0f  4a 53 52 20 73 65 6e 64  |a),Y.. .JSR send|
00001520  70 72 74 0d 0d 2a 0b 49  4e 59 3a 44 45 58 0d 0d  |prt..*.INY:DEX..|
00001530  34 0f 42 4e 45 20 70 72  74 69 6e 73 74 0d 0d 3e  |4.BNE prtinst..>|
00001540  07 52 54 53 0d 0d 48 17  2e 73 65 6e 64 70 72 74  |.RTS..H..sendprt|
00001550  20 50 48 41 3a 4c 44 41  20 23 31 0d 0d 52 0e 4a  | PHA:LDA #1..R.J|
00001560  53 52 20 6f 73 77 72 63  68 0d 0d 5c 12 50 4c 41  |SR oswrch..\.PLA|
00001570  3a 4a 53 52 20 6f 73 77  72 63 68 0d 0d 66 07 52  |:JSR oswrch..f.R|
00001580  54 53 0d 0d 70 16 2e 65  6e 64 20 4c 44 59 20 23  |TS..p..end LDY #|
00001590  37 3a 4c 44 58 20 23 34  0d 0d 7a 0f 4a 53 52 20  |7:LDX #4..z.JSR |
000015a0  70 72 74 69 6e 73 74 0d  0d 84 15 4c 44 41 20 23  |prtinst....LDA #|
000015b0  33 3a 4a 53 52 20 6f 73  77 72 63 68 0d 0d 8e 07  |3:JSR oswrch....|
000015c0  52 54 53 0d 0d 98 05 5d  0d 0d a2 05 ed 0d 0d ac  |RTS....]........|
000015d0  0b 64 61 74 61 3d 50 25  0d 0d b6 21 e3 49 25 3d  |.data=P%...!.I%=|
000015e0  31 b8 36 3a 3f 64 61 74  61 3d 30 3a 64 61 74 61  |1.6:?data=0:data|
000015f0  3d 64 61 74 61 2b 31 3a  ed 0d 0d c0 14 e3 49 25  |=data+1:......I%|
00001600  3d 30 b8 37 3a f3 43 6f  6c 6f 75 72 24 0d 0d ca  |=0.7:.Colour$...|
00001610  23 e3 42 25 3d 31 b8 36  3a 3f 64 61 74 61 3d bb  |#.B%=1.6:?data=.|
00001620  28 c1 43 6f 6c 6f 75 72  24 2c 42 25 2c 31 29 29  |(.Colour$,B%,1))|
00001630  0d 0d d4 12 64 61 74 61  3d 64 61 74 61 2b 31 3a  |....data=data+1:|
00001640  ed 2c 0d 0d de 19 e3 49  25 3d 31 b8 31 31 3a f3  |.,.....I%=1.11:.|
00001650  42 25 3a 3f 64 61 74 61  3d 42 25 0d 0d e8 11 64  |B%:?data=B%....d|
00001660  61 74 61 3d 64 61 74 61  2b 31 3a ed 0d 0d f2 3d  |ata=data+1:....=|
00001670  dc 20 30 30 30 30 30 30  2c 30 31 30 30 32 30 2c  |. 000000,010020,|
00001680  30 32 31 30 32 31 2c 30  31 33 30 32 33 2c 32 31  |021021,013023,21|
00001690  32 31 32 31 2c 32 33 32  31 33 31 2c 33 31 33 33  |2121,232131,3133|
000016a0  32 33 2c 33 33 33 33 33  33 0d 0d fc 25 dc 20 32  |23,333333...%. 2|
000016b0  37 2c 36 35 2c 38 2c 32  37 2c 37 36 2c 31 39 32  |7,65,8,27,76,192|
000016c0  2c 33 2c 32 37 2c 31 32  37 2c 32 37 2c 37 0d 0e  |,3,27,127,27,7..|
000016d0  06 06 20 e1 0d 0e 10 0b  dd 20 f2 64 75 6d 70 0d  |.. ...... .dump.|
000016e0  0e 1a 08 d6 20 53 25 0d  0e 24 05 e1 0d 0e 2e 0b  |.... S%..$......|
000016f0  dd 20 f2 64 61 74 61 0d  0e 38 0e 58 3d 8e 20 22  |. .data..8.X=. "|
00001700  44 41 54 41 22 0d 0e 42  0e e3 20 4e 3d 31 20 b8  |DATA"..B.. N=1 .|
00001710  20 32 30 0d 0e 4c 0d e8  23 58 2c 58 24 28 4e 29  | 20..L..#X,X$(N)|
00001720  0d 0e 56 05 ed 0d 0e 60  08 d9 23 20 58 0d 0e 6a  |..V....`..# X..j|
00001730  05 e1 0d 0e 74 0a dd 20  f2 63 64 65 0d 0e 7e 2b  |....t.. .cde..~+|
00001740  ef 32 33 2c 31 32 38 2c  32 35 35 2c 32 35 35 2c  |.23,128,255,255,|
00001750  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00001760  32 35 35 2c 32 35 35 0d  0e 88 0c de 20 4a 49 4d  |255,255..... JIM|
00001770  20 35 30 0d 0e 92 11 e3  20 4e 3d 30 20 b8 20 32  | 50..... N=0 . 2|
00001780  20 88 20 32 0d 0e 9c 0a  50 25 3d 4a 49 4d 0d 0e  | . 2....P%=JIM..|
00001790  a6 09 5b 4f 50 54 4e 0d  0e b0 0b 4c 44 41 23 26  |..[OPTN....LDA#&|
000017a0  38 37 0d 0e ba 0c 4a 53  52 26 46 46 46 34 0d 0e  |87....JSR&FFF4..|
000017b0  c4 11 53 54 58 26 37 30  3a 53 54 59 26 37 31 0d  |..STX&70:STY&71.|
000017c0  0e ce 07 52 54 53 0d 0e  d8 08 2e 63 6f 6c 0d 0e  |...RTS.....col..|
000017d0  e2 0a 4c 44 41 23 33 32  0d 0e ec 0a 53 54 41 26  |..LDA#32....STA&|
000017e0  37 37 0d 0e f6 09 2e 6c  6f 6f 70 0d 0f 00 09 4c  |77.....loop....L|
000017f0  44 41 23 39 0d 0f 0a 12  20 4c 44 59 23 30 3a 4c  |DA#9.... LDY#0:L|
00001800  44 58 23 26 37 32 0d 0f  14 0c 4a 53 52 26 46 46  |DX#&72....JSR&FF|
00001810  46 31 0d 0f 1e 0a 49 4e  43 26 37 32 0d 0f 28 09  |F1....INC&72..(.|
00001820  42 4e 45 20 61 0d 0f 32  0a 49 4e 43 26 37 33 0d  |BNE a..2.INC&73.|
00001830  0f 3c 06 2e 61 0d 0f 46  0a 4c 44 41 26 37 36 0d  |.<..a..F.LDA&76.|
00001840  0f 50 09 43 4d 50 23 30  0d 0f 5a 0b 42 4e 45 20  |.P.CMP#0..Z.BNE |
00001850  6f 75 74 0d 0f 64 0a 44  45 43 26 37 37 0d 0f 6e  |out..d.DEC&77..n|
00001860  0c 42 4e 45 20 6c 6f 6f  70 0d 0f 78 08 2e 6f 75  |.BNE loop..x..ou|
00001870  74 0d 0f 82 07 52 54 53  0d 0f 8c 07 5d 3a ed 0d  |t....RTS....]:..|
00001880  0f 96 06 20 e1 0d 0f a0  0a dd 20 f2 6a 6f 79 0d  |... ...... .joy.|
00001890  0f aa 11 68 3d 96 28 31  29 3a 76 3d 96 28 32 29  |...h=.(1):v=.(2)|
000018a0  0d 0f b4 14 20 62 75 74  74 6f 6e 3d 96 28 30 29  |.... button=.(0)|
000018b0  20 80 20 33 0d 0f be 1b  20 e7 20 76 3e 34 30 30  | . 3.... . v>400|
000018c0  30 30 20 8c 20 76 65 72  3d 76 65 72 2d 56 25 0d  |00 . ver=ver-V%.|
000018d0  0f c8 1a e7 20 76 3c 32  30 30 30 30 20 8c 20 76  |.... v<20000 . v|
000018e0  65 72 3d 76 65 72 2b 56  25 0d 0f d2 19 e7 20 68  |er=ver+V%..... h|
000018f0  3e 34 30 30 30 30 20 8c  20 68 6f 72 3d 68 6f 72  |>40000 . hor=hor|
00001900  2d 32 0d 0f dc 19 e7 20  68 3c 32 30 30 30 30 20  |-2..... h<20000 |
00001910  8c 20 68 6f 72 3d 68 6f  72 2b 32 0d 0f e6 13 e7  |. hor=hor+2.....|
00001920  20 76 65 72 3c 30 20 8c  20 76 65 72 3d 30 0d 0f  | ver<0 . ver=0..|
00001930  f0 15 e7 20 76 65 72 3e  33 30 20 8c 20 76 65 72  |... ver>30 . ver|
00001940  3d 33 30 0d 0f fa 13 e7  20 68 6f 72 3c 30 20 8c  |=30..... hor<0 .|
00001950  20 68 6f 72 3d 30 0d 10  04 15 e7 20 68 6f 72 3e  | hor=0..... hor>|
00001960  33 38 20 8c 20 68 6f 72  3d 33 38 0d 10 0e 12 20  |38 . hor=38.... |
00001970  e3 20 4e 3d 30 20 b8 20  33 30 30 3a ed 0d 10 18  |. N=0 . 300:....|
00001980  05 e1 0d 10 22 22 dd 20  f2 70 6c 61 79 3a d1 3d  |...."". .play:.=|
00001990  30 3a 56 25 3d 32 3a 76  65 72 3d 30 3a 68 6f 72  |0:V%=2:ver=0:hor|
000019a0  3d 30 3a f5 0d 10 2c 13  e7 20 5a 25 3d 31 30 31  |=0:...,.. Z%=101|
000019b0  20 8c 20 f2 6a 6f 79 0d  10 36 14 e7 20 5a 25 3c  | . .joy..6.. Z%<|
000019c0  3e 31 30 31 20 8c 20 f2  6b 65 79 0d 10 40 1e f1  |>101 . .key..@..|
000019d0  8a 68 6f 72 2c 76 65 72  29 22 22 3b 3a d6 20 4a  |.hor,ver)"";:. J|
000019e0  49 4d 3a f2 70 69 78 65  6c 0d 10 4a 19 fb 33 3a  |IM:.pixel..J..3:|
000019f0  f1 8a 68 6f 72 2c 76 65  72 29 bd 28 31 32 38 29  |..hor,ver).(128)|
00001a00  3b 20 0d 10 54 25 e7 20  76 65 72 3e 32 35 20 8c  |; ..T%. ver>25 .|
00001a10  20 f1 8a 31 35 2c 33 31  29 22 53 45 4c 45 43 54  | ..15,31)"SELECT|
00001a20  20 57 4f 52 44 22 3b 0d  10 5e 12 e7 76 65 72 3e  | WORD";..^..ver>|
00001a30  32 35 20 8c 20 56 25 3d  31 0d 10 68 25 e7 20 76  |25 . V%=1..h%. v|
00001a40  65 72 3c 32 35 20 8c 20  f1 8a 31 35 2c 33 31 29  |er<25 . ..15,31)|
00001a50  22 20 20 20 20 20 20 20  20 20 20 20 22 3b 0d 10  |"           ";..|
00001a60  72 12 e7 76 65 72 3c 32  35 20 8c 20 56 25 3d 32  |r..ver<25 . V%=2|
00001a70  0d 10 7c 1b e7 20 62 75  74 74 6f 6e 3c 3e 30 20  |..|.. button<>0 |
00001a80  8c 20 f2 63 68 65 63 6b  65 72 20 0d 10 86 1d e7  |. .checker .....|
00001a90  20 62 75 74 74 6f 6e 3c  3e 30 20 8c 20 f2 73 65  | button<>0 . .se|
00001aa0  6c 65 63 74 69 6f 6e 20  0d 10 90 12 20 e3 20 4e  |lection .... . N|
00001ab0  3d 30 20 b8 20 34 30 30  3a ed 0d 10 9a 1e 41 3d  |=0 . 400:.....A=|
00001ac0  3f 26 37 30 3a fb 43 25  3a f1 8a 68 6f 72 2c 76  |?&70:.C%:..hor,v|
00001ad0  65 72 29 bd 28 41 29 3b  0d 10 a4 0a 20 f2 74 69  |er).(A);.... .ti|
00001ae0  6d 65 0d 10 ae 06 fd 30  0d 10 b8 05 e1 0d 10 c2  |me.....0........|
00001af0  0a dd 20 f2 6b 65 79 0d  10 cc 1b fb 33 3a f1 8a  |.. .key.....3:..|
00001b00  33 30 2c 33 31 29 22 6b  65 79 20 6d 6f 64 65 22  |30,31)"key mode"|
00001b10  3b 20 0d 10 d6 0a 2a 46  58 34 2c 31 0d 10 e0 0b  |; ....*FX4,1....|
00001b20  2a 46 58 32 31 2c 30 0d  10 ea 0c 62 75 74 74 6f  |*FX21,0....butto|
00001b30  6e 3d 30 0d 10 f4 08 20  49 3d a5 0d 10 fe 09 f2  |n=0.... I=......|
00001b40  74 69 6d 65 0d 11 08 16  e7 49 3d 31 33 36 20 8c  |time.....I=136 .|
00001b50  20 68 6f 72 3d 68 6f 72  2d 32 0d 11 12 16 e7 49  | hor=hor-2.....I|
00001b60  3d 31 33 37 20 8c 20 68  6f 72 3d 68 6f 72 2b 32  |=137 . hor=hor+2|
00001b70  0d 11 1c 17 e7 49 3d 31  33 38 20 8c 20 76 65 72  |.....I=138 . ver|
00001b80  3d 76 65 72 2b 56 25 0d  11 26 17 e7 49 3d 31 33  |=ver+V%..&..I=13|
00001b90  39 20 8c 20 76 65 72 3d  76 65 72 2d 56 25 0d 11  |9 . ver=ver-V%..|
00001ba0  30 14 e7 49 3d 33 32 20  8c 20 62 75 74 74 6f 6e  |0..I=32 . button|
00001bb0  3d 31 0d 11 3a 13 e7 20  76 65 72 3c 30 20 8c 20  |=1..:.. ver<0 . |
00001bc0  76 65 72 3d 30 0d 11 44  16 e7 20 76 65 72 3e 33  |ver=0..D.. ver>3|
00001bd0  30 20 8c 20 76 65 72 3d  33 30 20 0d 11 4e 13 e7  |0 . ver=30 ..N..|
00001be0  20 68 6f 72 3c 30 20 8c  20 68 6f 72 3d 30 0d 11  | hor<0 . hor=0..|
00001bf0  58 15 e7 20 68 6f 72 3e  33 38 20 8c 20 68 6f 72  |X.. hor>38 . hor|
00001c00  3d 33 38 0d 11 62 05 e1  0d 11 6c 0c dd 20 f2 70  |=38..b....l.. .p|
00001c10  69 78 65 6c 0d 11 76 22  21 26 37 32 3d 68 6f 72  |ixel..v"!&72=hor|
00001c20  2a 33 32 3a 21 26 37 34  3d 31 30 30 38 2d 28 76  |*32:!&74=1008-(v|
00001c30  65 72 2a 33 32 29 0d 11  80 11 d6 20 63 6f 6c 3a  |er*32)..... col:|
00001c40  43 25 3d 3f 26 37 36 0d  11 8a 05 e1 0d 11 94 10  |C%=?&76.........|
00001c50  dd 20 f2 73 65 6c 65 63  74 69 6f 6e 0d 11 9e 11  |. .selection....|
00001c60  20 e7 20 76 65 72 3c 32  36 20 8c 20 e1 0d 11 a8  | . ver<26 . ....|
00001c70  0a 20 f2 74 65 78 74 0d  11 b2 10 50 3d 76 65 72  |. .text....P=ver|
00001c80  2d 32 35 3a 71 3d 30 0d  11 bc 13 20 e7 20 68 6f  |-25:q=0.... . ho|
00001c90  72 3e 39 20 8c 20 71 3d  31 30 0d 11 c6 14 20 e7  |r>9 . q=10.... .|
00001ca0  20 68 6f 72 3e 31 39 20  8c 20 71 3d 32 30 0d 11  | hor>19 . q=20..|
00001cb0  d0 14 20 e7 20 68 6f 72  3e 32 39 20 8c 20 71 3d  |.. . hor>29 . q=|
00001cc0  33 30 0d 11 da 3b 50 3d  50 2b 28 71 2f 32 29 3a  |30...;P=P+(q/2):|
00001cd0  fb 33 3a 43 25 3d 33 3a  4c 3d a9 58 24 28 50 29  |.3:C%=3:L=.X$(P)|
00001ce0  3a f1 8a 71 2c 76 65 72  29 58 24 28 50 29 2b c4  |:..q,ver)X$(P)+.|
00001cf0  31 30 2d 4c 2c 22 20 22  29 3b 20 20 20 0d 11 e4  |10-L," ");   ...|
00001d00  10 54 24 3d 58 24 28 50  29 3a 54 3d 31 0d 11 ee  |.T$=X$(P):T=1...|
00001d10  06 20 e1 0d 11 f8 1b 20  dd 20 f2 63 68 65 63 6b  |. ..... . .check|
00001d20  65 72 3a e7 76 65 72 3e  32 35 20 8c 20 e1 0d 12  |er:.ver>25 . ...|
00001d30  02 0c e7 50 3d 30 20 8c  20 e1 0d 12 0c 13 68 3d  |...P=0 . .....h=|
00001d40  68 6f 72 2f 32 3a 76 3d  76 65 72 2f 32 0d 12 16  |hor/2:v=ver/2...|
00001d50  1b e7 3f 26 37 30 3c 3e  97 20 c1 54 24 2c 54 2c  |..?&70<>. .T$,T,|
00001d60  31 29 20 8c 20 f2 6e 6f  0d 12 20 1f e7 3f 26 37  |1) . .no.. ..?&7|
00001d70  30 3d 97 20 c1 54 24 2c  54 2c 31 29 8c 20 f2 6e  |0=. .T$,T,1). .n|
00001d80  6f 74 71 75 69 74 65 0d  12 2a 05 e1 0d 12 34 17  |otquite..*....4.|
00001d90  dd 20 f2 6e 6f 3a 54 24  3d 22 22 3a 54 3d 30 3a  |. .no:T$="":T=0:|
00001da0  50 3d 30 0d 12 3e 15 d4  31 2c 2d 31 35 2c 32 30  |P=0..>..1,-15,20|
00001db0  2c 34 3a f2 74 65 78 74  0d 12 48 05 e1 0d 12 52  |,4:.text..H....R|
00001dc0  0f dd 20 f2 6e 6f 74 71  75 69 74 65 0d 12 5c 1a  |.. .notquite..\.|
00001dd0  e7 47 24 28 68 2c 76 29  3c 3e 4d 24 28 68 2c 76  |.G$(h,v)<>M$(h,v|
00001de0  29 8c 20 f2 6e 6f 0d 12  66 1b e7 47 24 28 68 2c  |). .no..f..G$(h,|
00001df0  76 29 3d 4d 24 28 68 2c  76 29 20 8c 20 f2 79 65  |v)=M$(h,v) . .ye|
00001e00  73 0d 12 70 06 20 e1 0d  12 7a 17 dd 20 f2 79 65  |s..p. ...z.. .ye|
00001e10  73 3a d4 31 2c 2d 31 35  2c 32 30 30 2c 32 0d 12  |s:.1,-15,200,2..|
00001e20  84 09 20 43 25 3d 33 0d  12 8e 1b 54 3d 54 2b 31  |.. C%=3....T=T+1|
00001e30  3a e7 20 54 3d 4c 2b 31  20 8c 20 f2 65 72 61 73  |:. T=L+1 . .eras|
00001e40  65 20 0d 12 98 05 e1 0d  12 a2 0c dd 20 f2 65 72  |e .......... .er|
00001e50  61 73 65 0d 12 ac 3f 58  24 28 50 29 3d 22 20 20  |ase...?X$(P)="  |
00001e60  20 20 20 20 20 20 20 20  22 3a 50 3d 30 3a f2 74  |        ":P=0:.t|
00001e70  65 78 74 3a e3 4e 3d 31  30 30 20 b8 20 32 30 30  |ext:.N=100 . 200|
00001e80  88 31 30 3a d4 31 2c 2d  31 35 2c 4e 2c 32 3a ed  |.10:.1,-15,N,2:.|
00001e90  3a e1 0d 12 b6 16 20 dd  20 f2 70 72 69 6e 74 6d  |:..... . .printm|
00001ea0  61 69 6e 3a db 3a ef 32  0d 12 c0 2d e3 20 4e 3d  |ain:.:.2...-. N=|
00001eb0  30 b8 31 32 3a f1 3a e3  4a 3d 30 b8 31 39 3a f1  |0.12:.:.J=0.19:.|
00001ec0  47 24 28 4a 2c 4e 29 3b  22 20 22 3b 3a ed 3a ed  |G$(J,N);" ";:.:.|
00001ed0  3a ef 33 3a e1 0d 12 ca  15 dd 20 f2 70 72 69 6e  |:.3:...... .prin|
00001ee0  74 6c 6f 6f 6b 3a db 3a  ef 32 0d 12 d4 16 e3 20  |tlook:.:.2..... |
00001ef0  4e 3d 30 b8 31 32 3a f1  3a e3 4a 3d 30 b8 31 39  |N=0.12:.:.J=0.19|
00001f00  0d 12 de 1a 20 e7 4d 24  28 4a 2c 4e 29 3d 22 20  |.... .M$(J,N)=" |
00001f10  22 20 8c 20 f1 22 2e 20  22 3b 0d 12 e8 22 20 e7  |" . .". ";..." .|
00001f20  4d 24 28 4a 2c 4e 29 3c  3e 22 20 22 20 8c 20 f1  |M$(J,N)<>" " . .|
00001f30  4d 24 28 4a 2c 4e 29 3b  22 20 22 3b 0d 12 f2 0d  |M$(J,N);" ";....|
00001f40  20 ed 3a ed 3a ef 33 3a  e1 0d 12 fc 16 20 dd 20  | .:.:.3:..... . |
00001f50  f2 70 72 69 6e 74 6c 69  73 74 3a db 3a ef 32 0d  |.printlist:.:.2.|
00001f60  13 06 18 43 3d 31 3a e3  20 4e 3d 31 b8 35 3a f1  |...C=1:. N=1.5:.|
00001f70  3a e3 4a 3d 31 b8 34 0d  13 10 31 20 4c 3d 31 31  |:.J=1.4...1 L=11|
00001f80  2d a9 28 58 24 28 43 29  29 3a f1 58 24 28 43 29  |-.(X$(C)):.X$(C)|
00001f90  3b 3a e3 4b 3d 31 b8 4c  3a f1 22 20 22 3b 3a ed  |;:.K=1.L:." ";:.|
00001fa0  3a 43 3d 43 2b 31 20 20  0d 13 1a 07 ed 3a ed 0d  |:C=C+1  .....:..|
00001fb0  13 24 08 ef 33 3a e1 0d  13 2e 0f dd 20 f2 64 61  |.$..3:...... .da|
00001fc0  74 61 62 61 73 65 0d 13  38 20 db 3a f1 8a 31 30  |tabase..8 .:..10|
00001fd0  29 22 57 4f 52 44 20 44  41 54 41 42 41 53 45 22  |)"WORD DATABASE"|
00001fe0  3a f1 3a f1 3a f1 0d 13  42 1e f1 8a 35 29 22 43  |:.:.:...B...5)"C|
00001ff0  52 45 41 54 45 20 4e 45  57 20 46 49 4c 45 2e 2e  |REATE NEW FILE..|
00002000  2e 2e 41 22 0d 13 4c 05  f1 0d 13 56 1e f1 8a 35  |..A"..L....V...5|
00002010  29 22 41 44 44 20 4e 45  57 20 57 4f 52 44 53 2e  |)"ADD NEW WORDS.|
00002020  2e 2e 2e 2e 2e 42 22 0d  13 60 05 f1 0d 13 6a 1e  |.....B"..`....j.|
00002030  f1 8a 35 29 22 56 49 45  57 20 46 49 4c 45 2e 2e  |..5)"VIEW FILE..|
00002040  2e 2e 2e 2e 2e 2e 2e 2e  43 22 0d 13 74 05 f1 0d  |........C"..t...|
00002050  13 7e 17 f1 8a 31 30 29  22 65 6e 74 65 72 20 63  |.~...10)"enter c|
00002060  68 6f 69 63 65 22 0d 13  88 09 f5 3a 49 3d a5 0d  |hoice".....:I=..|
00002070  13 92 17 e7 20 49 3d 97  22 41 22 20 8c 20 f2 6e  |.... I=."A" . .n|
00002080  65 77 66 69 6c 65 0d 13  9c 17 e7 20 49 3d 97 22  |ewfile..... I=."|
00002090  42 22 20 8c 20 f2 6e 65  77 77 6f 72 64 0d 13 a6  |B" . .newword...|
000020a0  18 e7 20 49 3d 97 22 43  22 20 8c 20 f2 76 69 65  |.. I=."C" . .vie|
000020b0  77 66 69 6c 65 0d 13 b0  0a fd 20 49 3d 33 32 0d  |wfile..... I=32.|
000020c0  13 ba 05 e1 0d 13 c4 10  dd 20 f2 6e 65 77 66 69  |......... .newfi|
000020d0  6c 65 3a db 0d 13 ce 33  f2 33 64 28 35 2c 31 30  |le:....3.3d(5,10|
000020e0  2c 22 41 52 45 20 59 4f  55 20 53 55 52 45 3f 22  |,"ARE YOU SURE?"|
000020f0  2c 31 2c 32 29 3a 49 3d  a5 3a e7 20 49 3c 3e 97  |,1,2):I=.:. I<>.|
00002100  22 59 22 20 8c 20 e1 0d  13 d8 0d 49 3d ae 22 44  |"Y" . .....I=."D|
00002110  41 54 41 22 0d 13 e2 18  e3 20 4e 3d 31 b8 32 30  |ATA"..... N=1.20|
00002120  3a f1 23 49 2c 58 24 28  4e 29 3a ed 0d 13 ec 0d  |:.#I,X$(N):.....|
00002130  20 d9 23 49 3a 49 3d 33  32 0d 13 f6 05 e1 0d 14  | .#I:I=32.......|
00002140  00 0e dd 20 f2 6e 65 77  77 6f 72 64 0d 14 0a 0c  |... .newword....|
00002150  f2 73 74 72 69 6e 67 73  0d 14 14 27 f2 64 6f 75  |.strings...'.dou|
00002160  62 6c 65 28 35 2c 31 30  2c 22 41 52 45 20 54 48  |ble(5,10,"ARE TH|
00002170  45 53 45 20 4f 4b 3f 22  29 3a 49 3d a5 3a db 0d  |ESE OK?"):I=.:..|
00002180  14 1e 11 e7 20 49 3c 3e  97 22 59 22 20 8c 20 e1  |.... I<>."Y" . .|
00002190  0d 14 28 3a 20 f2 73 65  74 75 70 67 72 69 64 3a  |..(: .setupgrid:|
000021a0  db 3a f2 33 64 28 35 2c  31 30 2c 22 53 48 41 4c  |.:.3d(5,10,"SHAL|
000021b0  4c 20 49 20 41 44 44 20  54 4f 20 46 49 4c 45 3f  |L I ADD TO FILE?|
000021c0  22 2c 31 2c 32 29 3a 49  3d a5 0d 14 32 12 20 e7  |",1,2):I=...2. .|
000021d0  20 49 3c 3e 97 22 59 22  20 8c 20 e1 0d 14 3c 0d  | I<>."Y" . ...<.|
000021e0  49 3d ad 22 44 41 54 41  22 0d 14 46 0b cf 23 49  |I=."DATA"..F..#I|
000021f0  3d a2 23 49 0d 14 50 17  e3 4e 3d 31 b8 32 30 3a  |=.#I..P..N=1.20:|
00002200  f1 23 49 2c 58 24 28 4e  29 3a ed 0d 14 5a 0d 20  |.#I,X$(N):...Z. |
00002210  d9 23 49 3a 49 3d 33 32  0d 14 64 05 e1 0d 14 6e  |.#I:I=32..d....n|
00002220  0f dd 20 f2 76 69 65 77  66 69 6c 65 0d 14 78 0f  |.. .viewfile..x.|
00002230  db 3a 49 3d ad 22 44 41  54 41 22 0d 14 82 10 f5  |.:I=."DATA".....|
00002240  3a db 3a e3 20 4e 3d 31  b8 32 30 0d 14 8c 0f e8  |:.:. N=1.20.....|
00002250  23 49 2c 58 24 28 4e 29  3a ed 0d 14 96 2b f2 74  |#I,X$(N):....+.t|
00002260  65 78 74 3a f2 64 6f 75  62 6c 65 28 35 2c 31 30  |ext:.double(5,10|
00002270  2c 22 41 52 45 20 54 48  45 53 45 20 4f 4b 3f 22  |,"ARE THESE OK?"|
00002280  29 3a 6a 3d a5 0d 14 a0  16 e7 20 6a 3d 97 22 59  |):j=...... j=."Y|
00002290  22 20 8c 20 cf 23 49 3d  a2 23 49 0d 14 aa 08 fd  |" . .#I=.#I.....|
000022a0  c5 23 49 0d 14 b4 0c d9  23 49 3a 49 3d 33 32 0d  |.#I.....#I:I=32.|
000022b0  14 be 0e f2 73 65 74 75  70 67 72 69 64 0d 14 c8  |....setupgrid...|
000022c0  05 e1 0d 14 d2 10 dd 20  f2 67 61 6d 65 3a 5a 25  |....... .game:Z%|
000022d0  3d 30 0d 14 dc 34 db 3a  f1 8a 31 30 2c 31 30 29  |=0...4.:..10,10)|
000022e0  22 4a 4f 59 53 54 49 43  4b 53 20 28 59 2f 61 6e  |"JOYSTICKS (Y/an|
000022f0  79 29 22 3a 49 3d a5 3a  e7 49 3d 97 22 59 22 8c  |y)":I=.:.I=."Y".|
00002300  5a 25 3d 31 30 31 0d 14  e6 06 20 db 0d 14 f0 22  |Z%=101.... ...."|
00002310  f2 70 72 69 6e 74 67 72  69 64 3a f2 67 72 69 64  |.printgrid:.grid|
00002320  3a f2 74 65 78 74 3a f2  70 6c 61 79 3a e1 0d 14  |:.text:.play:...|
00002330  fa 4d dd 20 f2 74 69 6d  65 3a 73 65 63 3d 28 91  |.M. .time:sec=(.|
00002340  2f 31 30 30 29 20 83 20  36 30 3a 6d 69 6e 3d 28  |/100) . 60:min=(|
00002350  91 2f 36 30 30 30 29 20  83 20 36 30 3a fb 33 3a  |./6000) . 60:.3:|
00002360  f1 8a 30 2c 33 31 29 c3  6d 69 6e 3b 22 3a 22 3b  |..0,31).min;":";|
00002370  73 65 63 3b 22 20 20 22  3b 3a e1 0d 15 04 1b 20  |sec;"  ";:..... |
00002380  dd f2 33 64 28 58 2c 59  2c 41 24 2c 63 6f 6c 31  |..3d(X,Y,A$,col1|
00002390  2c 63 6f 6c 32 29 0d 15  0e 10 20 78 3d 58 2a 33  |,col2).... x=X*3|
000023a0  32 3a 58 3d 78 20 0d 15  18 18 20 79 3d 30 2b 28  |2:X=x .... y=0+(|
000023b0  28 33 31 2d 59 29 2a 33  32 29 3a 59 3d 79 0d 15  |(31-Y)*32):Y=y..|
000023c0  22 07 20 ef 35 0d 15 2c  0e 20 ec 20 58 2d 34 2c  |". .5..,. . X-4,|
000023d0  59 2d 34 0d 15 36 11 20  e6 30 2c 63 6f 6c 31 3a  |Y-4..6. .0,col1:|
000023e0  f1 20 41 24 0d 15 40 0a  20 ec 20 58 2c 59 0d 15  |. A$..@. . X,Y..|
000023f0  4a 11 20 e6 30 2c 63 6f  6c 32 3a f1 20 41 24 0d  |J. .0,col2:. A$.|
00002400  15 54 07 20 ef 34 0d 15  5e 06 20 e1 0d 15 68 0e  |.T. .4..^. ...h.|
00002410  dd 20 f2 4e 55 4d 42 45  52 53 0d 15 72 0a 20 f7  |. .NUMBERS..r. .|
00002420  8d 74 64 55 0d 15 7c 0a  f2 65 6d 70 74 79 0d 15  |.tdU..|..empty..|
00002430  86 0c e3 20 4e 3d 31 b8  32 30 0d 15 90 0c f3 58  |... N=1.20.....X|
00002440  24 28 4e 29 3a ed 0d 15  9a 0f 20 f2 73 65 74 75  |$(N):..... .setu|
00002450  70 67 72 69 64 0d 15 a4  b0 dc 22 4f 4e 45 22 2c  |pgrid....."ONE",|
00002460  22 54 57 4f 22 2c 22 54  48 52 45 45 22 2c 22 46  |"TWO","THREE","F|
00002470  4f 55 52 22 2c 22 46 49  56 45 22 2c 22 53 49 58  |OUR","FIVE","SIX|
00002480  22 2c 22 53 45 56 45 4e  22 2c 22 45 49 47 48 54  |","SEVEN","EIGHT|
00002490  22 2c 22 4e 49 4e 45 22  2c 22 54 45 4e 22 2c 22  |","NINE","TEN","|
000024a0  45 4c 45 56 45 4e 22 2c  22 54 57 45 4c 56 45 22  |ELEVEN","TWELVE"|
000024b0  2c 22 54 48 49 52 54 45  45 4e 22 2c 22 46 4f 55  |,"THIRTEEN","FOU|
000024c0  52 54 45 45 4e 22 2c 22  46 49 46 54 45 45 4e 22  |RTEEN","FIFTEEN"|
000024d0  2c 22 53 49 58 54 45 45  4e 22 2c 22 53 45 56 45  |,"SIXTEEN","SEVE|
000024e0  4e 54 45 45 4e 22 2c 22  45 49 47 48 54 45 45 4e  |NTEEN","EIGHTEEN|
000024f0  22 2c 22 4e 49 4e 45 54  45 45 4e 22 2c 22 54 57  |","NINETEEN","TW|
00002500  45 4e 54 59 22 0d 15 ae  05 e1 0d 15 b8 09 dd 20  |ENTY".......... |
00002510  f2 4d 43 0d 15 c2 19 de  20 4c 41 52 47 45 20 31  |.MC..... LARGE 1|
00002520  30 30 3a de 20 62 6c 6f  63 6b 20 38 0d 15 cc 11  |00:. block 8....|
00002530  e3 20 4e 3d 30 20 b8 20  32 20 88 20 32 0d 15 d6  |. N=0 . 2 . 2...|
00002540  0d 20 50 25 3d 4c 41 52  47 45 0d 15 e0 09 5b 4f  |. P%=LARGE....[O|
00002550  50 54 4e 0d 15 ea 21 4c  44 41 23 31 30 3a 4c 44  |PTN...!LDA#10:LD|
00002560  58 23 26 37 30 3a 4c 44  59 23 30 3a 4a 53 52 26  |X#&70:LDY#0:JSR&|
00002570  46 46 46 31 0d 15 f4 14  4c 44 41 23 38 3a 53 54  |FFF1....LDA#8:ST|
00002580  41 20 62 6c 6f 63 6b 20  0d 15 fe 17 4c 44 41 23  |A block ....LDA#|
00002590  26 30 43 3a 53 54 41 20  62 6c 6f 63 6b 2b 31 0d  |&0C:STA block+1.|
000025a0  16 08 15 4c 44 41 23 30  3a 53 54 41 20 62 6c 6f  |...LDA#0:STA blo|
000025b0  63 6b 2b 32 0d 16 12 15  4c 44 41 23 30 3a 53 54  |ck+2....LDA#0:ST|
000025c0  41 20 62 6c 6f 63 6b 2b  33 0d 16 1c 16 20 4c 44  |A block+3.... LD|
000025d0  41 23 38 3a 53 54 41 20  62 6c 6f 63 6b 2b 35 0d  |A#8:STA block+5.|
000025e0  16 26 09 4c 44 58 23 30  0d 16 30 0a 2e 6c 6f 6f  |.&.LDX#0..0..loo|
000025f0  70 73 0d 16 3a 18 4c 44  41 26 37 31 2c 58 3a 53  |ps..:.LDA&71,X:S|
00002600  54 41 20 62 6c 6f 63 6b  2b 34 0d 16 44 0b 54 58  |TA block+4..D.TX|
00002610  41 3a 50 48 41 0d 16 4e  35 4c 44 58 23 20 62 6c  |A:PHA..N5LDX# bl|
00002620  6f 63 6b 20 83 20 32 35  36 3a 4c 44 59 23 20 62  |ock . 256:LDY# b|
00002630  6c 6f 63 6b 20 81 20 32  35 36 3a 4c 44 41 23 36  |lock . 256:LDA#6|
00002640  3a 4a 53 52 26 46 46 46  31 20 0d 16 58 0c 4a 53  |:JSR&FFF1 ..X.JS|
00002650  52 20 61 64 64 73 0d 16  62 34 4c 44 58 23 20 62  |R adds..b4LDX# b|
00002660  6c 6f 63 6b 20 83 20 32  35 36 3a 4c 44 59 23 20  |lock . 256:LDY# |
00002670  62 6c 6f 63 6b 20 81 20  32 35 36 3a 4c 44 41 23  |block . 256:LDA#|
00002680  36 3a 4a 53 52 26 46 46  46 31 0d 16 6c 0c 4a 53  |6:JSR&FFF1..l.JS|
00002690  52 20 61 64 64 73 0d 16  76 1b 50 4c 41 3a 54 41  |R adds..v.PLA:TA|
000026a0  58 3a 49 4e 58 3a 44 45  43 20 62 6c 6f 63 6b 2b  |X:INX:DEC block+|
000026b0  35 0d 16 80 0d 42 4e 45  20 6c 6f 6f 70 73 0d 16  |5....BNE loops..|
000026c0  8a 07 52 54 53 0d 16 94  09 2e 61 64 64 73 0d 16  |..RTS.....adds..|
000026d0  9e 18 49 4e 43 20 62 6c  6f 63 6b 3a 42 4e 45 20  |..INC block:BNE |
000026e0  66 72 65 64 64 79 0d 16  a8 0f 49 4e 43 20 62 6c  |freddy....INC bl|
000026f0  6f 63 6b 2b 31 0d 16 b2  0b 2e 66 72 65 64 64 79  |ock+1.....freddy|
00002700  0d 16 bc 07 52 54 53 0d  16 c6 07 5d 3a ed 0d 16  |....RTS....]:...|
00002710  d0 06 20 e1 0d 16 da 15  dd 20 f2 64 6f 75 62 6c  |.. ...... .doubl|
00002720  65 28 78 2c 79 2c 66 24  29 0d 16 e4 0f e3 4e 3d  |e(x,y,f$).....N=|
00002730  31 b8 20 a9 28 66 24 29  0d 16 ee 14 20 3f 26 37  |1. .(f$).... ?&7|
00002740  30 3d 97 20 c1 66 24 2c  4e 2c 31 29 0d 16 f8 0b  |0=. .f$,N,1)....|
00002750  d6 20 4c 41 52 47 45 0d  17 02 14 f1 8a 78 2b 4e  |. LARGE......x+N|
00002760  2c 79 29 c1 66 24 2c 4e  2c 31 29 0d 17 16 05 ed  |,y).f$,N,1).....|
00002770  0d 17 20 05 e1 0d 17 2a  0b dd 20 f2 6d 65 6e 75  |.. ....*.. .menu|
00002780  0d 17 34 19 20 f2 72 65  70 65 61 74 3a f2 6e 6f  |..4. .repeat:.no|
00002790  74 74 68 69 73 74 69 6d  65 0d 17 3e 3d db 3a f2  |tthistime..>=.:.|
000027a0  33 64 28 30 2c 30 2c 22  4a 49 4d 20 57 41 4c 53  |3d(0,0,"JIM WALS|
000027b0  48 27 53 20 77 6f 72 64  73 65 61 72 63 68 20 77  |H'S wordsearch w|
000027c0  6f 72 6b 73 68 6f 70 20  28 63 29 20 31 39 38 36  |orkshop (c) 1986|
000027d0  22 2c 31 2c 32 29 0d 17  48 14 ec 30 2c 39 32 37  |",1,2)..H..0,927|
000027e0  3a df 31 32 37 39 2c 39  32 37 0d 17 52 1b fb 31  |:.1279,927..R..1|
000027f0  3a f2 64 6f 75 62 6c 65  28 31 35 2c 35 2c 22 4d  |:.double(15,5,"M|
00002800  45 4e 55 22 29 0d 17 5c  35 fb 32 3a f2 64 6f 75  |ENU")..\5.2:.dou|
00002810  62 6c 65 28 31 2c 39 2c  22 50 4c 41 59 20 4f 4e  |ble(1,9,"PLAY ON|
00002820  20 43 4f 4d 50 55 54 45  52 2e 2e 2e 2e 2e 2e 2e  | COMPUTER.......|
00002830  2e 2e 2e 2e 2e 2e 2e 31  22 29 0d 17 66 36 fb 32  |.......1")..f6.2|
00002840  3a f2 64 6f 75 62 6c 65  28 31 2c 31 32 2c 22 41  |:.double(1,12,"A|
00002850  44 44 20 4d 4f 52 45 20  57 4f 52 44 53 20 54 4f  |DD MORE WORDS TO|
00002860  20 46 49 4c 45 2e 2e 2e  2e 2e 2e 2e 2e 32 22 29  | FILE........2")|
00002870  0d 17 70 36 fb 32 3a f2  64 6f 75 62 6c 65 28 31  |..p6.2:.double(1|
00002880  2c 31 35 2c 22 53 45 4c  45 43 54 20 57 4f 52 44  |,15,"SELECT WORD|
00002890  53 20 46 52 4f 4d 20 46  49 4c 45 2e 2e 2e 2e 2e  |S FROM FILE.....|
000028a0  2e 2e 2e 33 22 29 0d 17  7a 36 fb 32 3a f2 64 6f  |...3")..z6.2:.do|
000028b0  75 62 6c 65 28 31 2c 31  38 2c 22 43 52 45 41 54  |uble(1,18,"CREAT|
000028c0  45 20 41 20 4e 45 57 20  44 41 54 41 20 46 49 4c  |E A NEW DATA FIL|
000028d0  45 2e 2e 2e 2e 2e 2e 2e  2e 34 22 29 0d 17 84 3c  |E........4")...<|
000028e0  f2 33 64 28 30 2c 32 30  2c 22 44 75 6d 70 20 74  |.3d(0,20,"Dump t|
000028f0  68 65 20 6d 61 69 6e 20  67 72 69 64 20 74 6f 20  |he main grid to |
00002900  45 50 53 4f 4e 20 70 72  69 6e 74 65 72 73 2e 2e  |EPSON printers..|
00002910  2e 35 22 2c 33 2c 31 29  0d 17 8e 3c f2 33 64 28  |.5",3,1)...<.3d(|
00002920  30 2c 32 32 2c 22 44 75  6d 70 20 74 68 65 20 6d  |0,22,"Dump the m|
00002930  61 69 6e 20 67 72 69 64  20 6b 65 79 20 61 73 20  |ain grid key as |
00002940  61 62 6f 76 65 2e 2e 2e  2e 2e 2e 2e 2e 36 22 2c  |above........6",|
00002950  33 2c 31 29 0d 17 98 3c  f2 33 64 28 30 2c 32 34  |3,1)...<.3d(0,24|
00002960  2c 22 50 72 69 6e 74 20  6d 61 69 6e 20 67 72 69  |,"Print main gri|
00002970  64 20 74 6f 20 61 6e 79  20 70 72 69 6e 74 65 72  |d to any printer|
00002980  2e 2e 2e 2e 2e 2e 2e 2e  2e 37 22 2c 32 2c 31 29  |.........7",2,1)|
00002990  0d 17 a2 3c f2 33 64 28  30 2c 32 36 2c 22 50 72  |...<.3d(0,26,"Pr|
000029a0  69 6e 74 20 6b 65 79 20  74 6f 20 61 6e 79 20 70  |int key to any p|
000029b0  72 69 6e 74 65 72 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |rinter..........|
000029c0  2e 2e 2e 2e 2e 38 22 2c  32 2c 31 29 0d 17 ac 1f  |.....8",2,1)....|
000029d0  fb 33 3a f1 8a 31 30 2c  33 31 29 22 50 6c 65 61  |.3:..10,31)"Plea|
000029e0  73 65 20 73 65 6c 65 63  74 22 3b 0d 17 b6 07 49  |se select";....I|
000029f0  3d a5 0d 17 c0 14 e7 20  49 3d 97 22 31 22 20 8c  |=...... I=."1" .|
00002a00  20 f2 67 61 6d 65 0d 17  ca 17 e7 20 49 3d 97 22  | .game..... I=."|
00002a10  32 22 20 8c 20 f2 6e 65  77 77 6f 72 64 0d 17 d4  |2" . .newword...|
00002a20  18 e7 20 49 3d 97 22 33  22 20 8c 20 f2 76 69 65  |.. I=."3" . .vie|
00002a30  77 66 69 6c 65 0d 17 de  17 e7 20 49 3d 97 22 34  |wfile..... I=."4|
00002a40  22 20 8c 20 f2 6e 65 77  66 69 6c 65 0d 17 e8 18  |" . .newfile....|
00002a50  e7 20 49 3d 97 22 35 22  20 8c 20 f2 6d 61 69 6e  |. I=."5" . .main|
00002a60  64 75 6d 70 0d 17 f2 17  e7 20 49 3d 97 22 36 22  |dump..... I=."6"|
00002a70  20 8c 20 f2 6d 61 69 6e  6b 65 79 0d 17 fc 13 e7  | . .mainkey.....|
00002a80  20 49 3d 97 22 37 22 20  8c 20 f2 70 74 72 0d 18  | I=."7" . .ptr..|
00002a90  06 14 e7 20 49 3d 97 22  38 22 20 8c 20 f2 70 74  |... I=."8" . .pt|
00002aa0  72 61 0d 18 10 0a e5 20  8d 54 7e 57 0d 18 1a 05  |ra..... .T~W....|
00002ab0  e1 0d 18 24 49 dd 20 f2  73 65 74 75 70 67 72 69  |...$I. .setupgri|
00002ac0  64 3a db 3a f2 64 6f 75  62 6c 65 28 31 30 2c 31  |d:.:.double(10,1|
00002ad0  30 2c 22 53 4f 52 54 49  4e 47 22 29 3a f2 65 6d  |0,"SORTING"):.em|
00002ae0  70 74 79 3a f2 68 69 64  65 3a f2 6d 61 7a 65 3a  |pty:.hide:.maze:|
00002af0  f2 6d 69 72 72 6f 72 3a  e1 20 0d 18 2e 30 20 dd  |.mirror:. ...0 .|
00002b00  20 f2 70 70 3a db 3a f2  64 6f 75 62 6c 65 28 35  | .pp:.:.double(5|
00002b10  2c 31 30 2c 22 49 53 20  59 4f 55 52 20 50 52 49  |,10,"IS YOUR PRI|
00002b20  4e 54 45 52 20 4f 4e 3f  22 29 0d 18 38 2f f2 33  |NTER ON?")..8/.3|
00002b30  64 28 35 2c 31 35 2c 22  50 72 65 73 73 20 52 45  |d(5,15,"Press RE|
00002b40  54 55 52 4e 20 69 66 20  79 65 73 2c 20 6f 72 20  |TURN if yes, or |
00002b50  61 6e 79 22 2c 31 2c 32  29 0d 18 42 07 6b 3d a5  |any",1,2)..B.k=.|
00002b60  0d 18 4c 05 e1 0d 18 56  14 20 dd 20 f2 6d 61 69  |..L....V. . .mai|
00002b70  6e 64 75 6d 70 3a f2 70  70 0d 18 60 0f e7 20 6b  |ndump:.pp..`.. k|
00002b80  3c 3e 31 33 20 8c 20 e1  0d 18 6a 24 db 3a f2 70  |<>13 . ...j$.:.p|
00002b90  72 69 6e 74 67 72 69 64  3a f2 67 72 69 64 3a f2  |rintgrid:.grid:.|
00002ba0  74 65 78 74 3a f2 64 75  6d 70 3a e1 0d 18 74 12  |text:.dump:...t.|
00002bb0  dd 20 f2 6d 61 69 6e 6b  65 79 3a f2 70 70 0d 18  |. .mainkey:.pp..|
00002bc0  7e 0e e7 6b 3c 3e 31 33  20 8c 20 e1 0d 18 88 29  |~..k<>13 . ....)|
00002bd0  db 3a f2 70 72 69 6e 74  67 72 69 64 3a f2 67 72  |.:.printgrid:.gr|
00002be0  69 64 3a f2 74 65 78 74  3a f2 73 65 65 3a f2 64  |id:.text:.see:.d|
00002bf0  75 6d 70 3a e1 0d 18 92  0a dd 20 f2 70 74 72 0d  |ump:...... .ptr.|
00002c00  18 9c 10 f2 70 70 3a e7  6b 3c 3e 31 33 8c e1 0d  |....pp:.k<>13...|
00002c10  18 a6 23 f2 70 72 69 6e  74 6d 61 69 6e 3a ef 32  |..#.printmain:.2|
00002c20  3a f1 3a f1 3a ef 33 3a  f2 70 72 69 6e 74 6c 69  |:.:.:.3:.printli|
00002c30  73 74 0d 18 b0 05 e1 0d  18 ba 0b dd 20 f2 70 74  |st.......... .pt|
00002c40  72 61 0d 18 c4 10 f2 70  70 3a e7 6b 3c 3e 31 33  |ra.....pp:.k<>13|
00002c50  8c e1 0d 18 ce 23 f2 70  72 69 6e 74 6c 6f 6f 6b  |.....#.printlook|
00002c60  3a ef 32 3a f1 3a f1 3a  ef 33 3a f2 70 72 69 6e  |:.2:.:.:.3:.prin|
00002c70  74 6c 69 73 74 0d 18 d8  05 e1 0d 18 e2 25 dd 20  |tlist........%. |
00002c80  f2 6d 69 72 72 6f 72 3a  e3 4e 3d 31 b8 32 30 3a  |.mirror:.N=1.20:|
00002c90  78 24 28 4e 29 3d 58 24  28 4e 29 3a ed 3a e1 0d  |x$(N)=X$(N):.:..|
00002ca0  18 ec 14 dd 20 f2 72 65  70 65 61 74 3a 46 4c 41  |.... .repeat:FLA|
00002cb0  47 3d 30 0d 18 f6 0c e3  20 4e 3d 31 b8 32 30 0d  |G=0..... N=1.20.|
00002cc0  19 00 22 e7 20 58 24 28  4e 29 3c 3e 22 20 20 20  |..". X$(N)<>"   |
00002cd0  20 20 20 20 20 20 20 22  20 8c 20 46 4c 41 47 3d  |       " . FLAG=|
00002ce0  31 0d 19 0a 12 ed 3a e7  20 46 4c 41 47 3d 31 20  |1.....:. FLAG=1 |
00002cf0  8c 20 e1 0d 19 14 0d f2  77 65 6c 6c 64 6f 6e 65  |. ......welldone|
00002d00  0d 19 1e 1a e3 20 4e 3d  31 b8 32 30 3a 58 24 28  |..... N=1.20:X$(|
00002d10  4e 29 3d 78 24 28 4e 29  3a ed 0d 19 28 0e f2 73  |N)=x$(N):...(..s|
00002d20  65 74 75 70 67 72 69 64  0d 19 32 05 e1 0d 19 3c  |etupgrid..2....<|
00002d30  0f dd 20 f2 77 65 6c 6c  64 6f 6e 65 0d 19 46 26  |.. .welldone..F&|
00002d40  db 3a 61 24 3d c3 28 6d  69 6e 29 3a 61 24 3d 61  |.:a$=.(min):a$=a|
00002d50  24 2b 22 3a 22 3a 61 24  3d 61 24 2b c3 28 73 65  |$+":":a$=a$+.(se|
00002d60  63 29 0d 19 50 21 fb 32  3a f2 64 6f 75 62 6c 65  |c)..P!.2:.double|
00002d70  28 31 34 2c 31 30 2c 22  57 45 4c 4c 20 44 4f 4e  |(14,10,"WELL DON|
00002d80  45 22 29 0d 19 5a 2d f2  33 64 28 35 2c 31 35 2c  |E")..Z-.3d(5,15,|
00002d90  22 59 6f 75 20 63 6f 6d  70 6c 65 74 65 64 20 74  |"You completed t|
00002da0  68 65 20 67 72 69 64 20  69 6e 22 2c 31 2c 32 29  |he grid in",1,2)|
00002db0  0d 19 64 22 fb 31 3a f2  64 6f 75 62 6c 65 28 31  |..d".1:.double(1|
00002dc0  34 2c 32 30 2c 61 24 29  3a 49 3d a6 28 32 30 30  |4,20,a$):I=.(200|
00002dd0  30 29 0d 19 6e 05 e1 0d  19 78 2a dd 20 f2 6e 6f  |0)..n....x*. .no|
00002de0  74 74 68 69 73 74 69 6d  65 3a e3 4e 3d 31 b8 32  |tthistime:.N=1.2|
00002df0  30 3a 58 24 28 4e 29 3d  78 24 28 4e 29 3a ed 3a  |0:X$(N)=x$(N):.:|
00002e00  e1 0d 19 82 0f dd 20 f2  6e 6f 67 6f 6f 64 3a db  |...... .nogood:.|
00002e10  0d 19 8c 2e f1 bd 28 31  34 31 29 22 83 54 68 69  |......(141)".Thi|
00002e20  73 20 70 72 6f 67 72 61  6d 20 72 65 71 75 69 72  |s program requir|
00002e30  65 73 20 36 35 30 32 20  74 75 62 65 2c 22 0d 19  |es 6502 tube,"..|
00002e40  96 2e f1 bd 28 31 34 31  29 22 83 54 68 69 73 20  |....(141)".This |
00002e50  70 72 6f 67 72 61 6d 20  72 65 71 75 69 72 65 73  |program requires|
00002e60  20 36 35 30 32 20 74 75  62 65 2c 22 0d 19 a0 33  | 6502 tube,"...3|
00002e70  f1 bd 28 31 34 31 29 22  83 42 42 43 2b 2c 73 68  |..(141)".BBC+,sh|
00002e80  61 64 6f 77 20 72 61 6d  20 6f 72 20 6d 61 79 20  |adow ram or may |
00002e90  72 75 6e 20 6f 6e 20 27  4d 41 53 54 45 52 22 0d  |run on 'MASTER".|
00002ea0  19 aa 33 f1 bd 28 31 34  31 29 22 83 42 42 43 2b  |..3..(141)".BBC+|
00002eb0  2c 73 68 61 64 6f 77 20  72 61 6d 20 6f 72 20 6d  |,shadow ram or m|
00002ec0  61 79 20 72 75 6e 20 6f  6e 20 27 4d 41 53 54 45  |ay run on 'MASTE|
00002ed0  52 22 0d 19 b4 05 fa 0d  19 be 05 e1 0d ff        |R"............|
00002ede