Home » Archimedes archive » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo » Gatherer/!XSolve/!RunImage

Gatherer/!XSolve/!RunImage

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 » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo
Filename: Gatherer/!XSolve/!RunImage
Read OK:
File size: 1404 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM          >!RunImage
   20REM Program  !Xsolve
   30REM Version  A 1.01
   40REM Author   Kell Gatherer
   50REM          January 1994
   60:
   70PROCinit
   80:
   90quit%=FALSE
  100REPEAT
  110 PROCpoll
  120UNTILquit%
  130SYS"Wimp_CloseDown"
  140END
  150:
  160DEFPROCpoll
  170SYS"Wimp_Poll",,b% TO reason%
  180CASE reason% OF
  190 WHEN 2:SYS"Wimp_OpenWindow",,b%
  200 WHEN 3:quit%=TRUE
  210  solutions%=0:PROCend
  220 WHEN 6:PROCclick
  230 WHEN 8:PROCkey
  240 WHEN 17,18:quit%=b%!16=0
  250ENDCASE
  260ENDPROC
  270:
  280DEFPROCclick
  290button%=b%!8:IFbutton%<>4 ENDPROC
  300CASE b%!16 OF
  310WHEN 1
  320 IFsearching THEN
  330  halted=TRUE:PROCend
  340 ELSE
  350  halted=FALSE:PROCsolve
  360 ENDIF
  370ENDCASE
  380ENDPROC
  390:
  400DEFPROCkey
  410key%=b%!24
  420CASE key% OF
  430WHEN 13:IFNOTsearching PROCsolve
  440WHEN 27:halted=TRUE:PROCend
  450OTHERWISE SYS"Wimp_ProcessKey",key%
  460ENDCASE
  470ENDPROC
  480:
  490DEFPROCsolve
  500IF$FNicon(0)="" ENDPROC
  510IFLEN($FNicon(0))<3 VDU7:PROCicon(0,""):PROCsetcaret(0):ENDPROC
  520searching=TRUE:PROCsetcaret(0):halted=FALSE
  530PROCicon(1,"HALT"):PROCicon(3,"")
  540s$=FNcapitals($FNicon(0)):PROCicon(0,s$)
  550IFlen%>13 a$=" length:"+STR$len%ELSEa$=" ("+STR$len%+" letters)"
  560PROCicon(2,"Word: "+s$+a$)
  570PROCanalyseword
  580ENDPROC
  590:
  600DEFPROCanalyseword
  610kk$=LEFT$(s$,1):mm$=MID$(s$,2,1)
  620CASE TRUE OF
  630WHEN kk$="?" AND mm$="?"
  640 first%=1:last%=words
  650 PROCstart
  660 PROCsearch
  670 PROCend
  680WHEN kk$="?" AND mm$<>"?"
  690 PROCstart
  700 FORlp%=0TO25
  710  aa$=CHR$(ASC("A")+lp%)+mm$
  720  bb$=CHR$(ASC("A")+lp%)+CHR$(ASC(mm$)+1)
  730  first%=FNfindword(aa$)
  740  last%=FNfindword(bb$)
  750  PROCsearch
  760 NEXT
  770 PROCend
  780WHEN kk$<>"?" AND mm$="?"
  790 first%=FNfindword(kk$+"A")
  800 last%=FNfindword(kk$+CHR$(ASC(mm$)+1))
  810 PROCstart
  820 PROCsearch
  830 PROCend
  840WHEN kk$<>"?" AND mm$<>"?"
  850 first%=FNfindword(kk$+mm$)
  860 last%=FNfindword(kk$+CHR$(ASC(mm$)+1))
  870 PROCstart
  880 PROCsearch
  890 PROCend
  900ENDCASE
  910ENDPROC
  920:
  930DEFPROCstart
  940found=FALSE:pl$=""
  950f$="<Xsolve$Dir>.Solutions"
  960X=OPENOUT(f$)
  970BPUT#X,"Searched for '"+s$+"':"
  980solutions%=0
  990ENDPROC
 1000:
 1010DEFPROCsearch
 1020FOR lp2%=first% TO last%
 1030 update%=(lp2% AND 15)=0 OR lp2%=last%
 1040 IF update% PROCpoll
 1050 IF NOT searching ENDPROC
 1060 IF update% PROCicon(4,STR$lp2%)
 1070 m$=FNgetword(lp2%)
 1080 IF LEN(m$)=len% THEN
 1090  IF NOT found AND update% PROCicon(3,m$)
 1100  IF FNmatch(s$,m$) THEN
 1110   found=TRUE:PROCicon(3,m$):BPUT#X," "+m$
 1120   solutions%+=1:IFsolutions%>1 pl$="s"
 1130   PROCicon(2,STR$solutions%+" solution"+pl$+" found.")
 1140  ENDIF
 1150 ENDIF
 1160NEXT
 1170ENDPROC
 1180:
 1190DEFPROCend:IFNOTsearching ENDPROC
 1200IFhalted BPUT#X,"** search halted **"
 1210BPUT#X,STR$solutions%+" solution"+pl$+" found."
 1220CLOSE#X:X=0:IFNOThalted PROCbleep
 1230PROCicon(4,"")
 1240OSCLI("SetType "+f$+" FFF")
 1250IFsolutions%>0 THEN
 1260 OSCLI("Filer_Run "+f$)
 1270ELSE
 1280 PROCicon(2,"No solutions found.")
 1290ENDIF
 1300searching=FALSE
 1310PROCicon(1,"START")
 1320ENDPROC
 1330:
 1340DEFFNmatch(one$,two$)
 1350match=TRUE:k%=1
 1360WHILE k%<LEN(one$)+1 AND match
 1370 c$=MID$(one$,k%,1)
 1380 IFc$="?" THEN
 1390  match=TRUE
 1400 ELSE
 1410  match=FALSE:IFc$=MID$(two$,k%,1) match=TRUE
 1420 ENDIF
 1430 k%+=1
 1440ENDWHILE
 1450=match
 1460:
 1470DEF PROCget_swis
 1480SYS "OS_SWINumberFromString",,"XSpell_FindWord" TO spell_findword%
 1490SYS "OS_SWINumberFromString",,"XSpell_GetWord" TO spell_getword%
 1500ENDPROC
 1510:
 1520DEFFNfindword(word$)
 1530LOCAL n%
 1540SYS spell_findword%,word$+CHR$0 TO n%
 1550=n%
 1560:
 1570DEFFNgetword(word_no%)
 1580LOCAL addr%
 1590SYS spell_getword%,word_no% TO ,addr%
 1600=FNget_str(addr%)
 1610:
 1620DEF FNget_str(a%)
 1630LOCAL a$
 1640a$=""
 1650WHILE ?a%>=32
 1660 a$+=CHR$?a%
 1670 a%+=1
 1680ENDWHILE
 1690=a$
 1700:
 1710DEFFNcapitals(s$)
 1720len%=LENs$:temp$=""
 1730FORlp%=1TOlen%
 1740 t$=MID$(s$,lp%,1)
 1750 IFASC(t$)>ASC"a"-1 ANDASC(t$)<ASC"z"+1 THEN
 1760  temp$+=CHR$(ASC(t$)AND&DF)
 1770 ELSE
 1780  IFINSTR("~!@#$%^&*()_+�`-=�{}|[]\:;'<>?,./ ",t$)>0 t$="?"
 1790  temp$+=t$
 1800 ENDIF
 1810NEXT
 1820=temp$
 1830:
 1840DEFPROCbleep:SOUND1,-10,200,1:ENDPROC
 1850:
 1860DEFFNReadVarVal(a$):LOCALlength%,val%
 1870SYS"XOS_ReadVarVal",a$,c%,&100,0,3 TO,,length%;val%
 1880IFval%AND1 length%=0
 1890c%?length%=13:=$c%
 1900:
 1910DEFPROCicon(icon%,a$)
 1920b%!0=main%:b%!4=icon%:SYS"Wimp_GetIconState",,b%
 1930IF(b%!24AND&100)=0ERROR99,"Icon not indirected"
 1940$b%!28=a$:b%!0=main%:b%!4=icon%:b%!8=0:b%!12=0
 1950SYS"Wimp_SetIconState",,b%
 1960ENDPROC
 1970:
 1980DEFFNicon(icon%)
 1990!b%=main%:b%!4=icon%
 2000SYS"Wimp_GetIconState",,b%
 2010IF(b%!24AND&100)=0ERROR99,"Icon not indirected"
 2020=b%!28
 2030:
 2040DEFPROCsetcaret(ic%)
 2050b%!0=main%:b%!4=ic%:SYS"Wimp_GetIconState",,b%
 2060a%=LEN$b%!28
 2070SYS"Wimp_SetCaretPosition",main%,ic%,,,-1,a%
 2080ENDPROC
 2090:
 2100DEFPROCclearicons
 2110PROCicon(0,"")
 2120PROCicon(1,"START")
 2130PROCicon(2,"")
 2140PROCicon(3,"")
 2150PROCicon(4,"")
 2160PROCsetcaret(0)
 2170searching=FALSE
 2180ENDPROC
 2190:
 2200DEFPROCwindow
 2210fname$="<XSolve$Dir>.Templates"
 2220X=OPENIN(fname$):length=(EXT#X)+16:CLOSE#X
 2230DIM buff% length,ind% length,end% -1
 2240SYS"Wimp_OpenTemplate",,fname$
 2250SYS"Wimp_LoadTemplate",,buff%,ind%,end%,-1,"main",0 TO,,ind%
 2260SYS"Wimp_CreateWindow",,buff% TO main%
 2270SYS"Wimp_CloseTemplate"
 2280b%!0=main%:SYS"Wimp_GetWindowState",,b%
 2290b%!28=-1:SYS"Wimp_OpenWindow",,b%
 2300PROCclearicons
 2310SYS"Font_FindFont",,"Corpus.Bold",400,400 TO font1%
 2320flag%=&617D+(font1%<<24)
 2330b%!0=main%:b%!4=3:SYS"Wimp_GetIconState",,b%
 2340$(b%+32)="R1":clear%=b%!24
 2350b%!8=flag%:b%!12=clear%:SYS"Wimp_SetIconState",,b%
 2360ENDPROC
 2370:
 2380DEFPROCinit:X=0
 2390ON ERROR PROCerror
 2400SYS"Wimp_Initialise",200,&4B534154,"Crossword Solver" TO ,task%
 2410DIM b% 500,c% 500:halted=FALSE
 2420PROCwindow
 2430a$=FNReadVarVal("Impression$Path")
 2440a$=LEFT$(a$,LEN(a$)-4)+"RMStore.!SpellMod"
 2450OSCLI("/ "+a$)
 2460LOCALERROR
 2470ONERRORLOCAL:RESTOREERROR:ERROR99,"Impression Spell not loaded":END
 2480SYS "XSpell_ImpressionInfo" TO ,words;ok%
 2490IF(ok% AND1)>0 ERROR99,"Impression Spell not loaded"
 2500PROCget_swis
 2510RESTOREERROR
 2520ENDPROC
 2530:
 2540DEFPROCerror
 2550ONERROROFF
 2560REM IFX<>0:CLOSE#X
 2570SYS"Wimp_CloseDown"
 2580VDU4:PRINT REPORT$;" (Error code ";ERL;")"
 2590END:ENDPROC

�          >!RunImage
� Program  !Xsolve
� Version  A 1.01
(� Author   Kell Gatherer
2�          January 1994
<:
F	�init
P:
Zquit%=�
d�
n
 �poll
x
�quit%
�ș"Wimp_CloseDown"
��
�:
�
��poll
�ș"Wimp_Poll",,b% � reason%
�Ȏ reason% �
�  � 2:ș"Wimp_OpenWindow",,b%
� � 3:quit%=�
�  solutions%=0:�end
� � 6:�click
�
 � 8:�key
� � 17,18:quit%=b%!16=0
��
�
:
��click
"button%=b%!8:�button%<>4 �
,Ȏ b%!16 �
6� 1
@ �searching �
J  halted=�:�end
T �
^  halted=�:�solve
h �
r�
|�
�:
�	��key
�key%=b%!24
�
Ȏ key% �
�� 13:�searching �solve
�� 27:halted=�:�end
� ș"Wimp_ProcessKey",key%
��
��
�:
���solve
��$�icon(0)="" �
�1�($�icon(0))<3 �7:�icon(0,""):�setcaret(0):�
%searching=�:�setcaret(0):halted=�
�icon(1,"HALT"):�icon(3,"")
's$=�capitals($�icon(0)):�icon(0,s$)
&:�len%>13 a$=" length:"+�len%�a$=" ("+�len%+" letters)"
0�icon(2,"Word: "+s$+a$)
:�analyseword
D�
N:
X��analyseword
bkk$=�s$,1):mm$=�s$,2,1)
l
Ȏ � �
v� kk$="?" � mm$="?"
� first%=1:last%=words
� �start
� �search
�	 �end
�� kk$="?" � mm$<>"?"
� �start
� �lp%=0�25
�  aa$=�(�("A")+lp%)+mm$
�#  bb$=�(�("A")+lp%)+�(�(mm$)+1)
�  first%=�findword(aa$)
�  last%=�findword(bb$)
�
  �search
� �
	 �end
� kk$<>"?" � mm$="?"
 first%=�findword(kk$+"A")
 % last%=�findword(kk$+�(�(mm$)+1))
* �start
4 �search
>	 �end
H� kk$<>"?" � mm$<>"?"
R first%=�findword(kk$+mm$)
\% last%=�findword(kk$+�(�(mm$)+1))
f �start
p �search
z	 �end
��
��
�:
���start
�found=�:pl$=""
�f$="<Xsolve$Dir>.Solutions"
�X=�(f$)
� �#X,"Searched for '"+s$+"':"
�solutions%=0
��
�:
���search
�� lp2%=first% � last%
' update%=(lp2% � 15)=0 � lp2%=last%
 � update% �poll
 � � searching �
$ � update% �icon(4,�lp2%)
. m$=�getword(lp2%)
8 � �(m$)=len% �
B%  � � found � update% �icon(3,m$)
L  � �match(s$,m$) �
V%   found=�:�icon(3,m$):�#X," "+m$
`*   solutions%+=1:�solutions%>1 pl$="s"
j5   �icon(2,�solutions%+" solution"+pl$+" found.")
t  �
~ �
��
��
�:
���end:�searching �
�%�halted �#X,"** search halted **"
�-�#X,�solutions%+" solution"+pl$+" found."
��#X:X=0:�halted �bleep
��icon(4,"")
��("SetType "+f$+" FFF")
��solutions%>0 �
� �("Filer_Run "+f$)
��
# �icon(2,"No solutions found.")

�
searching=�
�icon(1,"START")
(�
2:
<ݤmatch(one$,two$)
Fmatch=�:k%=1
Pȕ k%<�(one$)+1 � match
Z c$=�one$,k%,1)
d �c$="?" �
n
  match=�
x �
�%  match=�:�c$=�two$,k%,1) match=�
� �
�
 k%+=1
��
�
=match
�:
�� �get_swis
�Dș "OS_SWINumberFromString",,"XSpell_FindWord" � spell_findword%
�Bș "OS_SWINumberFromString",,"XSpell_GetWord" � spell_getword%
��
�:
�ݤfindword(word$)
�� n%
$ș spell_findword%,word$+�0 � n%
=n%
:
"ݤgetword(word_no%)
,� addr%
6'ș spell_getword%,word_no% � ,addr%
@=�get_str(addr%)
J:
T� �get_str(a%)
^� a$
h	a$=""
rȕ ?a%>=32
|
 a$+=�?a%
�
 a%+=1
��
�=a$
�:
�ݤcapitals(s$)
�len%=�s$:temp$=""
��lp%=1�len%
� t$=�s$,lp%,1)
�" �(t$)>�"a"-1 ��(t$)<�"z"+1 �
�  temp$+=�(�(t$)�&DF)
� �
�9  �"~!@#$%^&*()_+�`-=�{}|[]\:;'<>?,./ ",t$)>0 t$="?"
�  temp$+=t$
 �
�

=temp$
&:
0��bleep:�1,-10,200,1:�
::
D"ݤReadVarVal(a$):�length%,val%
N5ș"XOS_ReadVarVal",a$,c%,&100,0,3 �,,length%;val%
X�val%�1 length%=0
bc%?length%=13:=$c%
l:
v��icon(icon%,a$)
�3b%!0=main%:b%!4=icon%:ș"Wimp_GetIconState",,b%
�,�(b%!24�&100)=0�99,"Icon not indirected"
�2$b%!28=a$:b%!0=main%:b%!4=icon%:b%!8=0:b%!12=0
�ș"Wimp_SetIconState",,b%
��
�:
�ݤicon(icon%)
�!b%=main%:b%!4=icon%
�ș"Wimp_GetIconState",,b%
�,�(b%!24�&100)=0�99,"Icon not indirected"
�
=b%!28
�:
���setcaret(ic%)
1b%!0=main%:b%!4=ic%:ș"Wimp_GetIconState",,b%
a%=�$b%!28
/ș"Wimp_SetCaretPosition",main%,ic%,,,-1,a%
 �
*:
4��clearicons
>�icon(0,"")
H�icon(1,"START")
R�icon(2,"")
\�icon(3,"")
f�icon(4,"")
p�setcaret(0)
zsearching=�
��
�:
���window
�#fname$="<XSolve$Dir>.Templates"
�#X=�(fname$):length=(�#X)+16:�#X
�&� buff% length,ind% length,end% -1
�!ș"Wimp_OpenTemplate",,fname$
�>ș"Wimp_LoadTemplate",,buff%,ind%,end%,-1,"main",0 �,,ind%
�(ș"Wimp_CreateWindow",,buff% � main%
�ș"Wimp_CloseTemplate"
�*b%!0=main%:ș"Wimp_GetWindowState",,b%
�$b%!28=-1:ș"Wimp_OpenWindow",,b%
��clearicons
	5ș"Font_FindFont",,"Corpus.Bold",400,400 � font1%
	flag%=&617D+(font1%<<24)
	/b%!0=main%:b%!4=3:ș"Wimp_GetIconState",,b%
	$$(b%+32)="R1":clear%=b%!24
	.5b%!8=flag%:b%!12=clear%:ș"Wimp_SetIconState",,b%
	8�
	B:
	L��init:X=0
	V� � �error
	`Aș"Wimp_Initialise",200,&4B534154,"Crossword Solver" � ,task%
	j� b% 500,c% 500:halted=�
	t�window
	~%a$=�ReadVarVal("Impression$Path")
	�'a$=�a$,�(a$)-4)+"RMStore.!SpellMod"
	��("/ "+a$)
	��
	�.��:��:�99,"Impression Spell not loaded":�
	�+ș "XSpell_ImpressionInfo" � ,words;ok%
	�1�(ok% �1)>0 �99,"Impression Spell not loaded"
	�
�get_swis
	���
	��
	�:
	���error
	�
� IFX<>0:CLOSE#X

ș"Wimp_CloseDown"
!�4:� �$;" (Error code ";�;")"
�:�
�
00000000  0d 00 0a 19 f4 20 20 20  20 20 20 20 20 20 20 3e  |.....          >|
00000010  21 52 75 6e 49 6d 61 67  65 0d 00 14 16 f4 20 50  |!RunImage..... P|
00000020  72 6f 67 72 61 6d 20 20  21 58 73 6f 6c 76 65 0d  |rogram  !Xsolve.|
00000030  00 1e 15 f4 20 56 65 72  73 69 6f 6e 20 20 41 20  |.... Version  A |
00000040  31 2e 30 31 0d 00 28 1c  f4 20 41 75 74 68 6f 72  |1.01..(.. Author|
00000050  20 20 20 4b 65 6c 6c 20  47 61 74 68 65 72 65 72  |   Kell Gatherer|
00000060  0d 00 32 1b f4 20 20 20  20 20 20 20 20 20 20 4a  |..2..          J|
00000070  61 6e 75 61 72 79 20 31  39 39 34 0d 00 3c 05 3a  |anuary 1994..<.:|
00000080  0d 00 46 09 f2 69 6e 69  74 0d 00 50 05 3a 0d 00  |..F..init..P.:..|
00000090  5a 0b 71 75 69 74 25 3d  a3 0d 00 64 05 f5 0d 00  |Z.quit%=...d....|
000000a0  6e 0a 20 f2 70 6f 6c 6c  0d 00 78 0a fd 71 75 69  |n. .poll..x..qui|
000000b0  74 25 0d 00 82 16 c8 99  22 57 69 6d 70 5f 43 6c  |t%......"Wimp_Cl|
000000c0  6f 73 65 44 6f 77 6e 22  0d 00 8c 05 e0 0d 00 96  |oseDown"........|
000000d0  05 3a 0d 00 a0 0a dd f2  70 6f 6c 6c 0d 00 aa 1f  |.:......poll....|
000000e0  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 2c 62  |.."Wimp_Poll",,b|
000000f0  25 20 b8 20 72 65 61 73  6f 6e 25 0d 00 b4 10 c8  |% . reason%.....|
00000100  8e 20 72 65 61 73 6f 6e  25 20 ca 0d 00 be 20 20  |. reason% ....  |
00000110  c9 20 32 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |. 2:.."Wimp_Open|
00000120  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 00 c8 10 20  |Window",,b%.... |
00000130  c9 20 33 3a 71 75 69 74  25 3d b9 0d 00 d2 17 20  |. 3:quit%=..... |
00000140  20 73 6f 6c 75 74 69 6f  6e 73 25 3d 30 3a f2 65  | solutions%=0:.e|
00000150  6e 64 0d 00 dc 0f 20 c9  20 36 3a f2 63 6c 69 63  |nd.... . 6:.clic|
00000160  6b 0d 00 e6 0d 20 c9 20  38 3a f2 6b 65 79 0d 00  |k.... . 8:.key..|
00000170  f0 1a 20 c9 20 31 37 2c  31 38 3a 71 75 69 74 25  |.. . 17,18:quit%|
00000180  3d 62 25 21 31 36 3d 30  0d 00 fa 05 cb 0d 01 04  |=b%!16=0........|
00000190  05 e1 0d 01 0e 05 3a 0d  01 18 0b dd f2 63 6c 69  |......:......cli|
000001a0  63 6b 0d 01 22 1e 62 75  74 74 6f 6e 25 3d 62 25  |ck..".button%=b%|
000001b0  21 38 3a e7 62 75 74 74  6f 6e 25 3c 3e 34 20 e1  |!8:.button%<>4 .|
000001c0  0d 01 2c 0e c8 8e 20 62  25 21 31 36 20 ca 0d 01  |..,... b%!16 ...|
000001d0  36 07 c9 20 31 0d 01 40  11 20 e7 73 65 61 72 63  |6.. 1..@. .searc|
000001e0  68 69 6e 67 20 8c 0d 01  4a 13 20 20 68 61 6c 74  |hing ...J.  halt|
000001f0  65 64 3d b9 3a f2 65 6e  64 0d 01 54 06 20 cc 0d  |ed=.:.end..T. ..|
00000200  01 5e 15 20 20 68 61 6c  74 65 64 3d a3 3a f2 73  |.^.  halted=.:.s|
00000210  6f 6c 76 65 0d 01 68 06  20 cd 0d 01 72 05 cb 0d  |olve..h. ...r...|
00000220  01 7c 05 e1 0d 01 86 05  3a 0d 01 90 09 dd f2 6b  |.|......:......k|
00000230  65 79 0d 01 9a 0e 6b 65  79 25 3d 62 25 21 32 34  |ey....key%=b%!24|
00000240  0d 01 a4 0d c8 8e 20 6b  65 79 25 20 ca 0d 01 ae  |...... key% ....|
00000250  1b c9 20 31 33 3a e7 ac  73 65 61 72 63 68 69 6e  |.. 13:..searchin|
00000260  67 20 f2 73 6f 6c 76 65  0d 01 b8 16 c9 20 32 37  |g .solve..... 27|
00000270  3a 68 61 6c 74 65 64 3d  b9 3a f2 65 6e 64 0d 01  |:halted=.:.end..|
00000280  c2 1e 7f 20 c8 99 22 57  69 6d 70 5f 50 72 6f 63  |... .."Wimp_Proc|
00000290  65 73 73 4b 65 79 22 2c  6b 65 79 25 0d 01 cc 05  |essKey",key%....|
000002a0  cb 0d 01 d6 05 e1 0d 01  e0 05 3a 0d 01 ea 0b dd  |..........:.....|
000002b0  f2 73 6f 6c 76 65 0d 01  f4 13 e7 24 a4 69 63 6f  |.solve.....$.ico|
000002c0  6e 28 30 29 3d 22 22 20  e1 0d 01 fe 31 e7 a9 28  |n(0)="" ....1..(|
000002d0  24 a4 69 63 6f 6e 28 30  29 29 3c 33 20 ef 37 3a  |$.icon(0))<3 .7:|
000002e0  f2 69 63 6f 6e 28 30 2c  22 22 29 3a f2 73 65 74  |.icon(0,""):.set|
000002f0  63 61 72 65 74 28 30 29  3a e1 0d 02 08 25 73 65  |caret(0):....%se|
00000300  61 72 63 68 69 6e 67 3d  b9 3a f2 73 65 74 63 61  |arching=.:.setca|
00000310  72 65 74 28 30 29 3a 68  61 6c 74 65 64 3d a3 0d  |ret(0):halted=..|
00000320  02 12 1f f2 69 63 6f 6e  28 31 2c 22 48 41 4c 54  |....icon(1,"HALT|
00000330  22 29 3a f2 69 63 6f 6e  28 33 2c 22 22 29 0d 02  |"):.icon(3,"")..|
00000340  1c 27 73 24 3d a4 63 61  70 69 74 61 6c 73 28 24  |.'s$=.capitals($|
00000350  a4 69 63 6f 6e 28 30 29  29 3a f2 69 63 6f 6e 28  |.icon(0)):.icon(|
00000360  30 2c 73 24 29 0d 02 26  3a e7 6c 65 6e 25 3e 31  |0,s$)..&:.len%>1|
00000370  33 20 61 24 3d 22 20 6c  65 6e 67 74 68 3a 22 2b  |3 a$=" length:"+|
00000380  c3 6c 65 6e 25 8b 61 24  3d 22 20 28 22 2b c3 6c  |.len%.a$=" ("+.l|
00000390  65 6e 25 2b 22 20 6c 65  74 74 65 72 73 29 22 0d  |en%+" letters)".|
000003a0  02 30 1b f2 69 63 6f 6e  28 32 2c 22 57 6f 72 64  |.0..icon(2,"Word|
000003b0  3a 20 22 2b 73 24 2b 61  24 29 0d 02 3a 10 f2 61  |: "+s$+a$)..:..a|
000003c0  6e 61 6c 79 73 65 77 6f  72 64 0d 02 44 05 e1 0d  |nalyseword..D...|
000003d0  02 4e 05 3a 0d 02 58 11  dd f2 61 6e 61 6c 79 73  |.N.:..X...analys|
000003e0  65 77 6f 72 64 0d 02 62  1b 6b 6b 24 3d c0 73 24  |eword..b.kk$=.s$|
000003f0  2c 31 29 3a 6d 6d 24 3d  c1 73 24 2c 32 2c 31 29  |,1):mm$=.s$,2,1)|
00000400  0d 02 6c 0a c8 8e 20 b9  20 ca 0d 02 76 17 c9 20  |..l... . ...v.. |
00000410  6b 6b 24 3d 22 3f 22 20  80 20 6d 6d 24 3d 22 3f  |kk$="?" . mm$="?|
00000420  22 0d 02 80 19 20 66 69  72 73 74 25 3d 31 3a 6c  |".... first%=1:l|
00000430  61 73 74 25 3d 77 6f 72  64 73 0d 02 8a 0b 20 f2  |ast%=words.... .|
00000440  73 74 61 72 74 0d 02 94  0c 20 f2 73 65 61 72 63  |start.... .searc|
00000450  68 0d 02 9e 09 20 f2 65  6e 64 0d 02 a8 18 c9 20  |h.... .end..... |
00000460  6b 6b 24 3d 22 3f 22 20  80 20 6d 6d 24 3c 3e 22  |kk$="?" . mm$<>"|
00000470  3f 22 0d 02 b2 0b 20 f2  73 74 61 72 74 0d 02 bc  |?".... .start...|
00000480  0e 20 e3 6c 70 25 3d 30  b8 32 35 0d 02 c6 1b 20  |. .lp%=0.25.... |
00000490  20 61 61 24 3d bd 28 97  28 22 41 22 29 2b 6c 70  | aa$=.(.("A")+lp|
000004a0  25 29 2b 6d 6d 24 0d 02  d0 23 20 20 62 62 24 3d  |%)+mm$...#  bb$=|
000004b0  bd 28 97 28 22 41 22 29  2b 6c 70 25 29 2b bd 28  |.(.("A")+lp%)+.(|
000004c0  97 28 6d 6d 24 29 2b 31  29 0d 02 da 1b 20 20 66  |.(mm$)+1)....  f|
000004d0  69 72 73 74 25 3d a4 66  69 6e 64 77 6f 72 64 28  |irst%=.findword(|
000004e0  61 61 24 29 0d 02 e4 1a  20 20 6c 61 73 74 25 3d  |aa$)....  last%=|
000004f0  a4 66 69 6e 64 77 6f 72  64 28 62 62 24 29 0d 02  |.findword(bb$)..|
00000500  ee 0d 20 20 f2 73 65 61  72 63 68 0d 02 f8 06 20  |..  .search.... |
00000510  ed 0d 03 02 09 20 f2 65  6e 64 0d 03 0c 18 c9 20  |..... .end..... |
00000520  6b 6b 24 3c 3e 22 3f 22  20 80 20 6d 6d 24 3d 22  |kk$<>"?" . mm$="|
00000530  3f 22 0d 03 16 1e 20 66  69 72 73 74 25 3d a4 66  |?".... first%=.f|
00000540  69 6e 64 77 6f 72 64 28  6b 6b 24 2b 22 41 22 29  |indword(kk$+"A")|
00000550  0d 03 20 25 20 6c 61 73  74 25 3d a4 66 69 6e 64  |.. % last%=.find|
00000560  77 6f 72 64 28 6b 6b 24  2b bd 28 97 28 6d 6d 24  |word(kk$+.(.(mm$|
00000570  29 2b 31 29 29 0d 03 2a  0b 20 f2 73 74 61 72 74  |)+1))..*. .start|
00000580  0d 03 34 0c 20 f2 73 65  61 72 63 68 0d 03 3e 09  |..4. .search..>.|
00000590  20 f2 65 6e 64 0d 03 48  19 c9 20 6b 6b 24 3c 3e  | .end..H.. kk$<>|
000005a0  22 3f 22 20 80 20 6d 6d  24 3c 3e 22 3f 22 0d 03  |"?" . mm$<>"?"..|
000005b0  52 1e 20 66 69 72 73 74  25 3d a4 66 69 6e 64 77  |R. first%=.findw|
000005c0  6f 72 64 28 6b 6b 24 2b  6d 6d 24 29 0d 03 5c 25  |ord(kk$+mm$)..\%|
000005d0  20 6c 61 73 74 25 3d a4  66 69 6e 64 77 6f 72 64  | last%=.findword|
000005e0  28 6b 6b 24 2b bd 28 97  28 6d 6d 24 29 2b 31 29  |(kk$+.(.(mm$)+1)|
000005f0  29 0d 03 66 0b 20 f2 73  74 61 72 74 0d 03 70 0c  |)..f. .start..p.|
00000600  20 f2 73 65 61 72 63 68  0d 03 7a 09 20 f2 65 6e  | .search..z. .en|
00000610  64 0d 03 84 05 cb 0d 03  8e 05 e1 0d 03 98 05 3a  |d..............:|
00000620  0d 03 a2 0b dd f2 73 74  61 72 74 0d 03 ac 12 66  |......start....f|
00000630  6f 75 6e 64 3d a3 3a 70  6c 24 3d 22 22 0d 03 b6  |ound=.:pl$=""...|
00000640  1f 66 24 3d 22 3c 58 73  6f 6c 76 65 24 44 69 72  |.f$="<Xsolve$Dir|
00000650  3e 2e 53 6f 6c 75 74 69  6f 6e 73 22 0d 03 c0 0b  |>.Solutions"....|
00000660  58 3d ae 28 66 24 29 0d  03 ca 20 d5 23 58 2c 22  |X=.(f$)... .#X,"|
00000670  53 65 61 72 63 68 65 64  20 66 6f 72 20 27 22 2b  |Searched for '"+|
00000680  73 24 2b 22 27 3a 22 0d  03 d4 10 73 6f 6c 75 74  |s$+"':"....solut|
00000690  69 6f 6e 73 25 3d 30 0d  03 de 05 e1 0d 03 e8 05  |ions%=0.........|
000006a0  3a 0d 03 f2 0c dd f2 73  65 61 72 63 68 0d 03 fc  |:......search...|
000006b0  19 e3 20 6c 70 32 25 3d  66 69 72 73 74 25 20 b8  |.. lp2%=first% .|
000006c0  20 6c 61 73 74 25 0d 04  06 27 20 75 70 64 61 74  | last%...' updat|
000006d0  65 25 3d 28 6c 70 32 25  20 80 20 31 35 29 3d 30  |e%=(lp2% . 15)=0|
000006e0  20 84 20 6c 70 32 25 3d  6c 61 73 74 25 0d 04 10  | . lp2%=last%...|
000006f0  14 20 e7 20 75 70 64 61  74 65 25 20 f2 70 6f 6c  |. . update% .pol|
00000700  6c 0d 04 1a 14 20 e7 20  ac 20 73 65 61 72 63 68  |l.... . . search|
00000710  69 6e 67 20 e1 0d 04 24  1d 20 e7 20 75 70 64 61  |ing ...$. . upda|
00000720  74 65 25 20 f2 69 63 6f  6e 28 34 2c c3 6c 70 32  |te% .icon(4,.lp2|
00000730  25 29 0d 04 2e 16 20 6d  24 3d a4 67 65 74 77 6f  |%).... m$=.getwo|
00000740  72 64 28 6c 70 32 25 29  0d 04 38 13 20 e7 20 a9  |rd(lp2%)..8. . .|
00000750  28 6d 24 29 3d 6c 65 6e  25 20 8c 0d 04 42 25 20  |(m$)=len% ...B% |
00000760  20 e7 20 ac 20 66 6f 75  6e 64 20 80 20 75 70 64  | . . found . upd|
00000770  61 74 65 25 20 f2 69 63  6f 6e 28 33 2c 6d 24 29  |ate% .icon(3,m$)|
00000780  0d 04 4c 17 20 20 e7 20  a4 6d 61 74 63 68 28 73  |..L.  . .match(s|
00000790  24 2c 6d 24 29 20 8c 0d  04 56 25 20 20 20 66 6f  |$,m$) ...V%   fo|
000007a0  75 6e 64 3d b9 3a f2 69  63 6f 6e 28 33 2c 6d 24  |und=.:.icon(3,m$|
000007b0  29 3a d5 23 58 2c 22 20  22 2b 6d 24 0d 04 60 2a  |):.#X," "+m$..`*|
000007c0  20 20 20 73 6f 6c 75 74  69 6f 6e 73 25 2b 3d 31  |   solutions%+=1|
000007d0  3a e7 73 6f 6c 75 74 69  6f 6e 73 25 3e 31 20 70  |:.solutions%>1 p|
000007e0  6c 24 3d 22 73 22 0d 04  6a 35 20 20 20 f2 69 63  |l$="s"..j5   .ic|
000007f0  6f 6e 28 32 2c c3 73 6f  6c 75 74 69 6f 6e 73 25  |on(2,.solutions%|
00000800  2b 22 20 73 6f 6c 75 74  69 6f 6e 22 2b 70 6c 24  |+" solution"+pl$|
00000810  2b 22 20 66 6f 75 6e 64  2e 22 29 0d 04 74 07 20  |+" found.")..t. |
00000820  20 cd 0d 04 7e 06 20 cd  0d 04 88 05 ed 0d 04 92  | ...~. .........|
00000830  05 e1 0d 04 9c 05 3a 0d  04 a6 17 dd f2 65 6e 64  |......:......end|
00000840  3a e7 ac 73 65 61 72 63  68 69 6e 67 20 e1 0d 04  |:..searching ...|
00000850  b0 25 e7 68 61 6c 74 65  64 20 d5 23 58 2c 22 2a  |.%.halted .#X,"*|
00000860  2a 20 73 65 61 72 63 68  20 68 61 6c 74 65 64 20  |* search halted |
00000870  2a 2a 22 0d 04 ba 2d d5  23 58 2c c3 73 6f 6c 75  |**"...-.#X,.solu|
00000880  74 69 6f 6e 73 25 2b 22  20 73 6f 6c 75 74 69 6f  |tions%+" solutio|
00000890  6e 22 2b 70 6c 24 2b 22  20 66 6f 75 6e 64 2e 22  |n"+pl$+" found."|
000008a0  0d 04 c4 1b d9 23 58 3a  58 3d 30 3a e7 ac 68 61  |.....#X:X=0:..ha|
000008b0  6c 74 65 64 20 f2 62 6c  65 65 70 0d 04 ce 0f f2  |lted .bleep.....|
000008c0  69 63 6f 6e 28 34 2c 22  22 29 0d 04 d8 1b ff 28  |icon(4,"").....(|
000008d0  22 53 65 74 54 79 70 65  20 22 2b 66 24 2b 22 20  |"SetType "+f$+" |
000008e0  46 46 46 22 29 0d 04 e2  13 e7 73 6f 6c 75 74 69  |FFF").....soluti|
000008f0  6f 6e 73 25 3e 30 20 8c  0d 04 ec 17 20 ff 28 22  |ons%>0 ..... .("|
00000900  46 69 6c 65 72 5f 52 75  6e 20 22 2b 66 24 29 0d  |Filer_Run "+f$).|
00000910  04 f6 05 cc 0d 05 00 23  20 f2 69 63 6f 6e 28 32  |.......# .icon(2|
00000920  2c 22 4e 6f 20 73 6f 6c  75 74 69 6f 6e 73 20 66  |,"No solutions f|
00000930  6f 75 6e 64 2e 22 29 0d  05 0a 05 cd 0d 05 14 0f  |ound.").........|
00000940  73 65 61 72 63 68 69 6e  67 3d a3 0d 05 1e 14 f2  |searching=......|
00000950  69 63 6f 6e 28 31 2c 22  53 54 41 52 54 22 29 0d  |icon(1,"START").|
00000960  05 28 05 e1 0d 05 32 05  3a 0d 05 3c 16 dd a4 6d  |.(....2.:..<...m|
00000970  61 74 63 68 28 6f 6e 65  24 2c 74 77 6f 24 29 0d  |atch(one$,two$).|
00000980  05 46 10 6d 61 74 63 68  3d b9 3a 6b 25 3d 31 0d  |.F.match=.:k%=1.|
00000990  05 50 1b c8 95 20 6b 25  3c a9 28 6f 6e 65 24 29  |.P... k%<.(one$)|
000009a0  2b 31 20 80 20 6d 61 74  63 68 0d 05 5a 13 20 63  |+1 . match..Z. c|
000009b0  24 3d c1 6f 6e 65 24 2c  6b 25 2c 31 29 0d 05 64  |$=.one$,k%,1)..d|
000009c0  0e 20 e7 63 24 3d 22 3f  22 20 8c 0d 05 6e 0d 20  |. .c$="?" ...n. |
000009d0  20 6d 61 74 63 68 3d b9  0d 05 78 06 20 cc 0d 05  | match=...x. ...|
000009e0  82 25 20 20 6d 61 74 63  68 3d a3 3a e7 63 24 3d  |.%  match=.:.c$=|
000009f0  c1 74 77 6f 24 2c 6b 25  2c 31 29 20 6d 61 74 63  |.two$,k%,1) matc|
00000a00  68 3d b9 0d 05 8c 06 20  cd 0d 05 96 0a 20 6b 25  |h=..... ..... k%|
00000a10  2b 3d 31 0d 05 a0 05 ce  0d 05 aa 0a 3d 6d 61 74  |+=1.........=mat|
00000a20  63 68 0d 05 b4 05 3a 0d  05 be 0f dd 20 f2 67 65  |ch....:..... .ge|
00000a30  74 5f 73 77 69 73 0d 05  c8 44 c8 99 20 22 4f 53  |t_swis...D.. "OS|
00000a40  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
00000a50  72 69 6e 67 22 2c 2c 22  58 53 70 65 6c 6c 5f 46  |ring",,"XSpell_F|
00000a60  69 6e 64 57 6f 72 64 22  20 b8 20 73 70 65 6c 6c  |indWord" . spell|
00000a70  5f 66 69 6e 64 77 6f 72  64 25 0d 05 d2 42 c8 99  |_findword%...B..|
00000a80  20 22 4f 53 5f 53 57 49  4e 75 6d 62 65 72 46 72  | "OS_SWINumberFr|
00000a90  6f 6d 53 74 72 69 6e 67  22 2c 2c 22 58 53 70 65  |omString",,"XSpe|
00000aa0  6c 6c 5f 47 65 74 57 6f  72 64 22 20 b8 20 73 70  |ll_GetWord" . sp|
00000ab0  65 6c 6c 5f 67 65 74 77  6f 72 64 25 0d 05 dc 05  |ell_getword%....|
00000ac0  e1 0d 05 e6 05 3a 0d 05  f0 15 dd a4 66 69 6e 64  |.....:......find|
00000ad0  77 6f 72 64 28 77 6f 72  64 24 29 0d 05 fa 08 ea  |word(word$).....|
00000ae0  20 6e 25 0d 06 04 24 c8  99 20 73 70 65 6c 6c 5f  | n%...$.. spell_|
00000af0  66 69 6e 64 77 6f 72 64  25 2c 77 6f 72 64 24 2b  |findword%,word$+|
00000b00  bd 30 20 b8 20 6e 25 0d  06 0e 07 3d 6e 25 0d 06  |.0 . n%....=n%..|
00000b10  18 05 3a 0d 06 22 17 dd  a4 67 65 74 77 6f 72 64  |..:.."...getword|
00000b20  28 77 6f 72 64 5f 6e 6f  25 29 0d 06 2c 0b ea 20  |(word_no%)..,.. |
00000b30  61 64 64 72 25 0d 06 36  27 c8 99 20 73 70 65 6c  |addr%..6'.. spel|
00000b40  6c 5f 67 65 74 77 6f 72  64 25 2c 77 6f 72 64 5f  |l_getword%,word_|
00000b50  6e 6f 25 20 b8 20 2c 61  64 64 72 25 0d 06 40 14  |no% . ,addr%..@.|
00000b60  3d a4 67 65 74 5f 73 74  72 28 61 64 64 72 25 29  |=.get_str(addr%)|
00000b70  0d 06 4a 05 3a 0d 06 54  12 dd 20 a4 67 65 74 5f  |..J.:..T.. .get_|
00000b80  73 74 72 28 61 25 29 0d  06 5e 08 ea 20 61 24 0d  |str(a%)..^.. a$.|
00000b90  06 68 09 61 24 3d 22 22  0d 06 72 0e c8 95 20 3f  |.h.a$=""..r... ?|
00000ba0  61 25 3e 3d 33 32 0d 06  7c 0d 20 61 24 2b 3d bd  |a%>=32..|. a$+=.|
00000bb0  3f 61 25 0d 06 86 0a 20  61 25 2b 3d 31 0d 06 90  |?a%.... a%+=1...|
00000bc0  05 ce 0d 06 9a 07 3d 61  24 0d 06 a4 05 3a 0d 06  |......=a$....:..|
00000bd0  ae 12 dd a4 63 61 70 69  74 61 6c 73 28 73 24 29  |....capitals(s$)|
00000be0  0d 06 b8 15 6c 65 6e 25  3d a9 73 24 3a 74 65 6d  |....len%=.s$:tem|
00000bf0  70 24 3d 22 22 0d 06 c2  0f e3 6c 70 25 3d 31 b8  |p$="".....lp%=1.|
00000c00  6c 65 6e 25 0d 06 cc 12  20 74 24 3d c1 73 24 2c  |len%.... t$=.s$,|
00000c10  6c 70 25 2c 31 29 0d 06  d6 22 20 e7 97 28 74 24  |lp%,1)..." ..(t$|
00000c20  29 3e 97 22 61 22 2d 31  20 80 97 28 74 24 29 3c  |)>."a"-1 ..(t$)<|
00000c30  97 22 7a 22 2b 31 20 8c  0d 06 e0 19 20 20 74 65  |."z"+1 .....  te|
00000c40  6d 70 24 2b 3d bd 28 97  28 74 24 29 80 26 44 46  |mp$+=.(.(t$).&DF|
00000c50  29 0d 06 ea 06 20 cc 0d  06 f4 39 20 20 e7 a7 22  |).... ....9  .."|
00000c60  7e 21 40 23 24 25 5e 26  2a 28 29 5f 2b a4 60 2d  |~!@#$%^&*()_+.`-|
00000c70  3d a3 7b 7d 7c 5b 5d 5c  3a 3b 27 3c 3e 3f 2c 2e  |=.{}|[]\:;'<>?,.|
00000c80  2f 20 22 2c 74 24 29 3e  30 20 74 24 3d 22 3f 22  |/ ",t$)>0 t$="?"|
00000c90  0d 06 fe 0f 20 20 74 65  6d 70 24 2b 3d 74 24 0d  |....  temp$+=t$.|
00000ca0  07 08 06 20 cd 0d 07 12  05 ed 0d 07 1c 0a 3d 74  |... ..........=t|
00000cb0  65 6d 70 24 0d 07 26 05  3a 0d 07 30 1a dd f2 62  |emp$..&.:..0...b|
00000cc0  6c 65 65 70 3a d4 31 2c  2d 31 30 2c 32 30 30 2c  |leep:.1,-10,200,|
00000cd0  31 3a e1 0d 07 3a 05 3a  0d 07 44 22 dd a4 52 65  |1:...:.:..D"..Re|
00000ce0  61 64 56 61 72 56 61 6c  28 61 24 29 3a ea 6c 65  |adVarVal(a$):.le|
00000cf0  6e 67 74 68 25 2c 76 61  6c 25 0d 07 4e 35 c8 99  |ngth%,val%..N5..|
00000d00  22 58 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |"XOS_ReadVarVal"|
00000d10  2c 61 24 2c 63 25 2c 26  31 30 30 2c 30 2c 33 20  |,a$,c%,&100,0,3 |
00000d20  b8 2c 2c 6c 65 6e 67 74  68 25 3b 76 61 6c 25 0d  |.,,length%;val%.|
00000d30  07 58 15 e7 76 61 6c 25  80 31 20 6c 65 6e 67 74  |.X..val%.1 lengt|
00000d40  68 25 3d 30 0d 07 62 16  63 25 3f 6c 65 6e 67 74  |h%=0..b.c%?lengt|
00000d50  68 25 3d 31 33 3a 3d 24  63 25 0d 07 6c 05 3a 0d  |h%=13:=$c%..l.:.|
00000d60  07 76 14 dd f2 69 63 6f  6e 28 69 63 6f 6e 25 2c  |.v...icon(icon%,|
00000d70  61 24 29 0d 07 80 33 62  25 21 30 3d 6d 61 69 6e  |a$)...3b%!0=main|
00000d80  25 3a 62 25 21 34 3d 69  63 6f 6e 25 3a c8 99 22  |%:b%!4=icon%:.."|
00000d90  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00000da0  65 22 2c 2c 62 25 0d 07  8a 2c e7 28 62 25 21 32  |e",,b%...,.(b%!2|
00000db0  34 80 26 31 30 30 29 3d  30 85 39 39 2c 22 49 63  |4.&100)=0.99,"Ic|
00000dc0  6f 6e 20 6e 6f 74 20 69  6e 64 69 72 65 63 74 65  |on not indirecte|
00000dd0  64 22 0d 07 94 32 24 62  25 21 32 38 3d 61 24 3a  |d"...2$b%!28=a$:|
00000de0  62 25 21 30 3d 6d 61 69  6e 25 3a 62 25 21 34 3d  |b%!0=main%:b%!4=|
00000df0  69 63 6f 6e 25 3a 62 25  21 38 3d 30 3a 62 25 21  |icon%:b%!8=0:b%!|
00000e00  31 32 3d 30 0d 07 9e 1d  c8 99 22 57 69 6d 70 5f  |12=0......"Wimp_|
00000e10  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00000e20  25 0d 07 a8 05 e1 0d 07  b2 05 3a 0d 07 bc 11 dd  |%.........:.....|
00000e30  a4 69 63 6f 6e 28 69 63  6f 6e 25 29 0d 07 c6 18  |.icon(icon%)....|
00000e40  21 62 25 3d 6d 61 69 6e  25 3a 62 25 21 34 3d 69  |!b%=main%:b%!4=i|
00000e50  63 6f 6e 25 0d 07 d0 1d  c8 99 22 57 69 6d 70 5f  |con%......"Wimp_|
00000e60  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00000e70  25 0d 07 da 2c e7 28 62  25 21 32 34 80 26 31 30  |%...,.(b%!24.&10|
00000e80  30 29 3d 30 85 39 39 2c  22 49 63 6f 6e 20 6e 6f  |0)=0.99,"Icon no|
00000e90  74 20 69 6e 64 69 72 65  63 74 65 64 22 0d 07 e4  |t indirected"...|
00000ea0  0a 3d 62 25 21 32 38 0d  07 ee 05 3a 0d 07 f8 13  |.=b%!28....:....|
00000eb0  dd f2 73 65 74 63 61 72  65 74 28 69 63 25 29 0d  |..setcaret(ic%).|
00000ec0  08 02 31 62 25 21 30 3d  6d 61 69 6e 25 3a 62 25  |..1b%!0=main%:b%|
00000ed0  21 34 3d 69 63 25 3a c8  99 22 57 69 6d 70 5f 47  |!4=ic%:.."Wimp_G|
00000ee0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 25  |etIconState",,b%|
00000ef0  0d 08 0c 0e 61 25 3d a9  24 62 25 21 32 38 0d 08  |....a%=.$b%!28..|
00000f00  16 2f c8 99 22 57 69 6d  70 5f 53 65 74 43 61 72  |./.."Wimp_SetCar|
00000f10  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6d 61 69 6e  |etPosition",main|
00000f20  25 2c 69 63 25 2c 2c 2c  2d 31 2c 61 25 0d 08 20  |%,ic%,,,-1,a%.. |
00000f30  05 e1 0d 08 2a 05 3a 0d  08 34 10 dd f2 63 6c 65  |....*.:..4...cle|
00000f40  61 72 69 63 6f 6e 73 0d  08 3e 0f f2 69 63 6f 6e  |aricons..>..icon|
00000f50  28 30 2c 22 22 29 0d 08  48 14 f2 69 63 6f 6e 28  |(0,"")..H..icon(|
00000f60  31 2c 22 53 54 41 52 54  22 29 0d 08 52 0f f2 69  |1,"START")..R..i|
00000f70  63 6f 6e 28 32 2c 22 22  29 0d 08 5c 0f f2 69 63  |con(2,"")..\..ic|
00000f80  6f 6e 28 33 2c 22 22 29  0d 08 66 0f f2 69 63 6f  |on(3,"")..f..ico|
00000f90  6e 28 34 2c 22 22 29 0d  08 70 10 f2 73 65 74 63  |n(4,"")..p..setc|
00000fa0  61 72 65 74 28 30 29 0d  08 7a 0f 73 65 61 72 63  |aret(0)..z.searc|
00000fb0  68 69 6e 67 3d a3 0d 08  84 05 e1 0d 08 8e 05 3a  |hing=..........:|
00000fc0  0d 08 98 0c dd f2 77 69  6e 64 6f 77 0d 08 a2 23  |......window...#|
00000fd0  66 6e 61 6d 65 24 3d 22  3c 58 53 6f 6c 76 65 24  |fname$="<XSolve$|
00000fe0  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
00000ff0  08 ac 23 58 3d 8e 28 66  6e 61 6d 65 24 29 3a 6c  |..#X=.(fname$):l|
00001000  65 6e 67 74 68 3d 28 a2  23 58 29 2b 31 36 3a d9  |ength=(.#X)+16:.|
00001010  23 58 0d 08 b6 26 de 20  62 75 66 66 25 20 6c 65  |#X...&. buff% le|
00001020  6e 67 74 68 2c 69 6e 64  25 20 6c 65 6e 67 74 68  |ngth,ind% length|
00001030  2c 65 6e 64 25 20 2d 31  0d 08 c0 21 c8 99 22 57  |,end% -1...!.."W|
00001040  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00001050  22 2c 2c 66 6e 61 6d 65  24 0d 08 ca 3e c8 99 22  |",,fname$...>.."|
00001060  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00001070  65 22 2c 2c 62 75 66 66  25 2c 69 6e 64 25 2c 65  |e",,buff%,ind%,e|
00001080  6e 64 25 2c 2d 31 2c 22  6d 61 69 6e 22 2c 30 20  |nd%,-1,"main",0 |
00001090  b8 2c 2c 69 6e 64 25 0d  08 d4 28 c8 99 22 57 69  |.,,ind%...(.."Wi|
000010a0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000010b0  2c 2c 62 75 66 66 25 20  b8 20 6d 61 69 6e 25 0d  |,,buff% . main%.|
000010c0  08 de 1a c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |....."Wimp_Close|
000010d0  54 65 6d 70 6c 61 74 65  22 0d 08 e8 2a 62 25 21  |Template"...*b%!|
000010e0  30 3d 6d 61 69 6e 25 3a  c8 99 22 57 69 6d 70 5f  |0=main%:.."Wimp_|
000010f0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001100  2c 62 25 0d 08 f2 24 62  25 21 32 38 3d 2d 31 3a  |,b%...$b%!28=-1:|
00001110  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00001120  6f 77 22 2c 2c 62 25 0d  08 fc 0f f2 63 6c 65 61  |ow",,b%.....clea|
00001130  72 69 63 6f 6e 73 0d 09  06 35 c8 99 22 46 6f 6e  |ricons...5.."Fon|
00001140  74 5f 46 69 6e 64 46 6f  6e 74 22 2c 2c 22 43 6f  |t_FindFont",,"Co|
00001150  72 70 75 73 2e 42 6f 6c  64 22 2c 34 30 30 2c 34  |rpus.Bold",400,4|
00001160  30 30 20 b8 20 66 6f 6e  74 31 25 0d 09 10 1c 66  |00 . font1%....f|
00001170  6c 61 67 25 3d 26 36 31  37 44 2b 28 66 6f 6e 74  |lag%=&617D+(font|
00001180  31 25 3c 3c 32 34 29 0d  09 1a 2f 62 25 21 30 3d  |1%<<24).../b%!0=|
00001190  6d 61 69 6e 25 3a 62 25  21 34 3d 33 3a c8 99 22  |main%:b%!4=3:.."|
000011a0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000011b0  65 22 2c 2c 62 25 0d 09  24 1e 24 28 62 25 2b 33  |e",,b%..$.$(b%+3|
000011c0  32 29 3d 22 52 31 22 3a  63 6c 65 61 72 25 3d 62  |2)="R1":clear%=b|
000011d0  25 21 32 34 0d 09 2e 35  62 25 21 38 3d 66 6c 61  |%!24...5b%!8=fla|
000011e0  67 25 3a 62 25 21 31 32  3d 63 6c 65 61 72 25 3a  |g%:b%!12=clear%:|
000011f0  c8 99 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |.."Wimp_SetIconS|
00001200  74 61 74 65 22 2c 2c 62  25 0d 09 38 05 e1 0d 09  |tate",,b%..8....|
00001210  42 05 3a 0d 09 4c 0e dd  f2 69 6e 69 74 3a 58 3d  |B.:..L...init:X=|
00001220  30 0d 09 56 0e ee 20 85  20 f2 65 72 72 6f 72 0d  |0..V.. . .error.|
00001230  09 60 41 c8 99 22 57 69  6d 70 5f 49 6e 69 74 69  |.`A.."Wimp_Initi|
00001240  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
00001250  34 31 35 34 2c 22 43 72  6f 73 73 77 6f 72 64 20  |4154,"Crossword |
00001260  53 6f 6c 76 65 72 22 20  b8 20 2c 74 61 73 6b 25  |Solver" . ,task%|
00001270  0d 09 6a 1c de 20 62 25  20 35 30 30 2c 63 25 20  |..j.. b% 500,c% |
00001280  35 30 30 3a 68 61 6c 74  65 64 3d a3 0d 09 74 0b  |500:halted=...t.|
00001290  f2 77 69 6e 64 6f 77 0d  09 7e 25 61 24 3d a4 52  |.window..~%a$=.R|
000012a0  65 61 64 56 61 72 56 61  6c 28 22 49 6d 70 72 65  |eadVarVal("Impre|
000012b0  73 73 69 6f 6e 24 50 61  74 68 22 29 0d 09 88 27  |ssion$Path")...'|
000012c0  61 24 3d c0 61 24 2c a9  28 61 24 29 2d 34 29 2b  |a$=.a$,.(a$)-4)+|
000012d0  22 52 4d 53 74 6f 72 65  2e 21 53 70 65 6c 6c 4d  |"RMStore.!SpellM|
000012e0  6f 64 22 0d 09 92 0e ff  28 22 2f 20 22 2b 61 24  |od".....("/ "+a$|
000012f0  29 0d 09 9c 06 ea 85 0d  09 a6 2e ee 85 ea 3a f7  |).............:.|
00001300  85 3a 85 39 39 2c 22 49  6d 70 72 65 73 73 69 6f  |.:.99,"Impressio|
00001310  6e 20 53 70 65 6c 6c 20  6e 6f 74 20 6c 6f 61 64  |n Spell not load|
00001320  65 64 22 3a e0 0d 09 b0  2b c8 99 20 22 58 53 70  |ed":....+.. "XSp|
00001330  65 6c 6c 5f 49 6d 70 72  65 73 73 69 6f 6e 49 6e  |ell_ImpressionIn|
00001340  66 6f 22 20 b8 20 2c 77  6f 72 64 73 3b 6f 6b 25  |fo" . ,words;ok%|
00001350  0d 09 ba 31 e7 28 6f 6b  25 20 80 31 29 3e 30 20  |...1.(ok% .1)>0 |
00001360  85 39 39 2c 22 49 6d 70  72 65 73 73 69 6f 6e 20  |.99,"Impression |
00001370  53 70 65 6c 6c 20 6e 6f  74 20 6c 6f 61 64 65 64  |Spell not loaded|
00001380  22 0d 09 c4 0d f2 67 65  74 5f 73 77 69 73 0d 09  |".....get_swis..|
00001390  ce 06 f7 85 0d 09 d8 05  e1 0d 09 e2 05 3a 0d 09  |.............:..|
000013a0  ec 0b dd f2 65 72 72 6f  72 0d 09 f6 07 ee 85 87  |....error.......|
000013b0  0d 0a 00 14 f4 20 49 46  58 3c 3e 30 3a 43 4c 4f  |..... IFX<>0:CLO|
000013c0  53 45 23 58 0d 0a 0a 16  c8 99 22 57 69 6d 70 5f  |SE#X......"Wimp_|
000013d0  43 6c 6f 73 65 44 6f 77  6e 22 0d 0a 14 21 ef 34  |CloseDown"...!.4|
000013e0  3a f1 20 f6 24 3b 22 20  28 45 72 72 6f 72 20 63  |:. .$;" (Error c|
000013f0  6f 64 65 20 22 3b 9e 3b  22 29 22 0d 0a 1e 07 e0  |ode ";.;")".....|
00001400  3a e1 0d ff                                       |:...|
00001404