� ><Solitare$Dir>.!RunImage
� RISC OS Solitare Game
(� PUBLIC DOMAIN by Sandie the Walrus
( � Version 1.02 (14 Jan 1990)
2
<
� � �died
F	�init
P� � �error
Z�
d#  ș"Wimp_Poll",mask%,blk% � R%
n
  Ȏ R% �
x%    � 2:ș"Wimp_OpenWindow",,blk%
�&    � 3:ș"Wimp_CloseWindow",,blk%
�    � 6:�buttons
�    � 7:�move_piece
�    � 9:�decode
�    � 17,18:�respond
�  �
�
� quit%=�
�ș"Wimp_CloseDown"
��
�
���error
�!�open% ș"Wimp_CloseTemplate"
�ablk%!0=�:$(blk%+4)=�$+": internal error code "+Þ+". Click OK to continue or Cancel to exit."

/ș"Wimp_ReportError",blk%,3,"Solitare" � ,b

�b=2 quit%=�:mask%=0

�

"

,
��respond

6Ȏ blk%!16 �

@  � 0:quit%=�

J�

T�

^

h
��init

r0ș"Wimp_Initialise",200,&4B534154,"Solitare"

|!� blk% 512,icn% 128,sp% 32000

�#� B%(7,7),icons(7,7),piece(7,7)

�*sp%!0=32000:sp%!4=0:sp%!8=16:sp%!12=16

�ș"OS_SpriteOp",9+256,sp%

�7ș"OS_SpriteOp",10+256,sp%,"<Solitare$Dir>.Sprites"

�=ș"Wimp_OpenTemplate",,"<Solitare$Dir>.Templates":open%=�

�?ș"Wimp_LoadTemplate",,blk%,icn%,icn%+128,-1,"info",0 � ,,n

�'ș"Wimp_CreateWindow",,blk% � info%

�:ș"Wimp_LoadTemplate",,blk%,n,icn%+128,-1,"solitare",0

�7blk%!64=sp%:ș"Wimp_CreateWindow",,blk% � solitare%

�"ș"Wimp_CloseTemplate":open%=�

�2blk%!0=solitare%:ș"Wimp_GetWindowState",,blk%

�ș"Wimp_OpenWindow",,blk%

�4iconbar%=�create(-1,0,0,68,68,&3002,"!solitare")
'��TjC:�I%=1�7:�J%=1�7:�B%(I%,J%):�,
(quit%=�:�newgame:cold%=�:mask%=&1933
5� menu% 212:�"LOAD <Solitare$Dir>.Menus "+�~menu%
&*menu%!160=info%:menu%!32=info%:tree%=0
0,undo%=menu%+116:m1%=menu%:m2%=menu%+80:�
:
DHݤcreate(blk%!40,blk%!44,blk%!48,blk%!52,blk%!56,blk%!60,$(blk%+64))
N)ș"Wimp_CreateIcon",,blk%+40 � h%:=h%
X
b
��buttons
lȎ blk%!8 �
v  � 4 : � Select
�    Ȏ blk%!12 �
�      � solitare% : �move
�      � -2 : � Ibar
�:        blk%!0=solitare%:ș"Wimp_GetWindowState",,blk%
�0        blk%!28=-1:ș"Wimp_OpenWindow",,blk%
�	    �
�	  � 2
�    Ȏ blk%!12 �
�      � solitare%
�4        �undo !undo%=&7400021 � !undo%=&7000021
�?        ș"Wimp_CreateMenu",,m2%,blk%!0-64,blk%!4:tree%=m2%
�      � -2
�<        ș"Wimp_CreateMenu",,m1%,blk%!0-64,180:tree%=m1%
	    �
�
�
 
*� 0,0,1,1,1,0,0
4� 0,0,1,1,1,0,0
>� 1,1,1,1,1,1,1
H� 1,1,1,1,1,1,1
R� 1,1,1,1,1,1,1
\� 0,0,1,1,1,0,0
f� 0,0,1,1,1,0,0
p
z
��newgame
�!�X%,Y%:piece()=1:piece(4,4)=0
��X%=1�7:�Y%=1�7
�0�piece(X%,Y%) �B%(X%,Y%) �fill(X%,Y%,"full")
�3�piece(X%,Y%)=0 �B%(X%,Y%) �fill(X%,Y%,"empty")
�5�,:blk%!0=solitare%:ș"Wimp_GetWindowState",,blk%
�Gș"Wimp_ForceRedraw",solitare%,0,-(blk%!16-blk%!8),blk%!12-blk%!4,0
�undo=�:�
�
���fill(X%,Y%,S$)
� xp%=X%*84-22:yp%=-(Y%*80+60)
�Bicons(X%,Y%)=�create(solitare%,xp%,yp%,xp%+66,yp%+68,&6002,S$)
��S$="full" piece(X%,Y%)=1
��S$="empty" piece(X%,Y%)=0
�

��decode
$+ș"Wimp_DecodeMenu",,tree%,blk%,blk%+20
.Ȏ $(blk%+20) �
8  � "New game" : �newgame
B  � "Quit"     : quit%=�
L  � "Undo"     : �undo
V�
`!ș"Wimp_GetPointerInfo",,blk%
j+!undo%=&7000021:�undo=0 !undo%=&7400021
t(�blk%!8=1 ș"Wimp_CreateMenu",,tree%
~�
�
�ݤx(h%)
�
�X%,Y%,x%
��X%=1�7:�Y%=1�7
��icons(X%,Y%)=h% x%=X%
�
�,:=x%
�
�ݤy(h%)
�
�X%,Y%,y%
��X%=1�7:�Y%=1�7
��icons(X%,Y%)=h% y%=Y%
�
�,:=y%



��move
!ș"Wimp_GetPointerInfo",,blk%
!xc=�x(blk%!16):yc=�y(blk%!16)
(�B%(xc,yc)=0 �7:�
2�piece(xc,yc)=0 �7:�
< dx=xc:dy=yc:blk%!0=solitare%
F!ș"Wimp_GetWindowState",,blk%
Pwminx=blk%!4:wminy=blk%!8
Zwmaxx=blk%!12:wmaxy=blk%!16
dsx=blk%!20:sy=blk%!24
nDblk%!0=solitare%:blk%!4=icons(xc,yc):ș"Wimp_GetIconState",,blk%
x:iminx=blk%!8:iminy=blk%!12:imaxx=blk%!16:imaxy=blk%!20
�blk%!0=solitare%:blk%!4=5
�blk%!08+=wminx-8-sx
�blk%!12+=wmaxy-8-sy
�(blk%!16=blk%!8+82:blk%!20=blk%!12+84
�blk%!24=wminx:blk%!28=wminy
�blk%!32=wmaxx:blk%!36=wmaxy
�ș"Wimp_DragBox",,blk%
��
�
���move_piece
�?ș"Wimp_GetPointerInfo",,blk%:xc=�x(blk%!16):yc=�y(blk%!16)
��xc=dx �yc=dy �
�&�B%(xc,yc)=0 � piece(xc,yc)=1 �7:�
�xc-dx<>0 � yc-dy<>0 �7:�
#�(xc-dx)<>2 � �(yc-dy)<>2 �7:�
2hx=(dx+xc)/2:hy=(dy+yc)/2:�piece(hx,hy)=0 �7:�
"/�piece(dx,dy,"empty"):�piece(hx,hy,"empty")
,�piece(xc,yc,"full"):undo=�
6E� Copy variables so that Undo doesn't undo to an illegal position
@/axc=xc:ayc=yc:ady=dy:adx=dx:ahx=hx:ahy=hy:�
J
T��piece(X%,Y%,S$)
^(blk%!0=solitare%:blk%!4=icons(X%,Y%)
h-ș"Wimp_DeleteIcon",,blk%:�fill(X%,Y%,S$)
rș"Wimp_GetIconState",,blk%
|Aș"Wimp_ForceRedraw",solitare%,blk%!8,blk%!12,blk%!16,blk%!20
��
�
�
��undo
��piece(adx,ady,"full")
��piece(axc,ayc,"empty")
��piece(ahx,ahy,"full")
�undo=�:�
�
�
��died
�!�open% ș"Wimp_CloseTemplate"
�ș"Wimp_CloseDown":�
�

00000000  0d 00 0a 1f f4 20 3e 3c  53 6f 6c 69 74 61 72 65  |..... ><Solitare|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 1b f4 20 52 49 53  43 20 4f 53 20 53 6f 6c  |.... RISC OS Sol|
00000030  69 74 61 72 65 20 47 61  6d 65 0d 00 1e 28 f4 20  |itare Game...(. |
00000040  50 55 42 4c 49 43 20 44  4f 4d 41 49 4e 20 62 79  |PUBLIC DOMAIN by|
00000050  20 53 61 6e 64 69 65 20  74 68 65 20 57 61 6c 72  | Sandie the Walr|
00000060  75 73 0d 00 28 20 f4 20  56 65 72 73 69 6f 6e 20  |us..( . Version |
00000070  31 2e 30 32 20 28 31 34  20 4a 61 6e 20 31 39 39  |1.02 (14 Jan 199|
00000080  30 29 0d 00 32 04 0d 00  3c 0d ee 20 85 20 f2 64  |0)..2...<.. . .d|
00000090  69 65 64 0d 00 46 09 f2  69 6e 69 74 0d 00 50 0e  |ied..F..init..P.|
000000a0  ee 20 85 20 f2 65 72 72  6f 72 0d 00 5a 05 f5 0d  |. . .error..Z...|
000000b0  00 64 23 20 20 c8 99 22  57 69 6d 70 5f 50 6f 6c  |.d#  .."Wimp_Pol|
000000c0  6c 22 2c 6d 61 73 6b 25  2c 62 6c 6b 25 20 b8 20  |l",mask%,blk% . |
000000d0  52 25 0d 00 6e 0d 20 20  c8 8e 20 52 25 20 ca 0d  |R%..n.  .. R% ..|
000000e0  00 78 25 20 20 20 20 c9  20 32 3a c8 99 22 57 69  |.x%    . 2:.."Wi|
000000f0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000100  62 6c 6b 25 0d 00 82 26  20 20 20 20 c9 20 33 3a  |blk%...&    . 3:|
00000110  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00000120  64 6f 77 22 2c 2c 62 6c  6b 25 0d 00 8c 14 20 20  |dow",,blk%....  |
00000130  20 20 c9 20 36 3a f2 62  75 74 74 6f 6e 73 0d 00  |  . 6:.buttons..|
00000140  96 17 20 20 20 20 c9 20  37 3a f2 6d 6f 76 65 5f  |..    . 7:.move_|
00000150  70 69 65 63 65 0d 00 a0  13 20 20 20 20 c9 20 39  |piece....    . 9|
00000160  3a f2 64 65 63 6f 64 65  0d 00 aa 18 20 20 20 20  |:.decode....    |
00000170  c9 20 31 37 2c 31 38 3a  f2 72 65 73 70 6f 6e 64  |. 17,18:.respond|
00000180  0d 00 b4 07 20 20 cb 0d  00 be 0d fd 20 71 75 69  |....  ...... qui|
00000190  74 25 3d b9 0d 00 c8 16  c8 99 22 57 69 6d 70 5f  |t%=......."Wimp_|
000001a0  43 6c 6f 73 65 44 6f 77  6e 22 0d 00 d2 05 e0 0d  |CloseDown"......|
000001b0  00 dc 04 0d 00 e6 0b dd  f2 65 72 72 6f 72 0d 00  |.........error..|
000001c0  f0 21 e7 6f 70 65 6e 25  20 c8 99 22 57 69 6d 70  |.!.open% .."Wimp|
000001d0  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
000001e0  00 fa 61 62 6c 6b 25 21  30 3d 9f 3a 24 28 62 6c  |..ablk%!0=.:$(bl|
000001f0  6b 25 2b 34 29 3d f6 24  2b 22 3a 20 69 6e 74 65  |k%+4)=.$+": inte|
00000200  72 6e 61 6c 20 65 72 72  6f 72 20 63 6f 64 65 20  |rnal error code |
00000210  22 2b c3 9e 2b 22 2e 20  43 6c 69 63 6b 20 4f 4b  |"+..+". Click OK|
00000220  20 74 6f 20 63 6f 6e 74  69 6e 75 65 20 6f 72 20  | to continue or |
00000230  43 61 6e 63 65 6c 20 74  6f 20 65 78 69 74 2e 22  |Cancel to exit."|
00000240  0d 01 04 2f c8 99 22 57  69 6d 70 5f 52 65 70 6f  |.../.."Wimp_Repo|
00000250  72 74 45 72 72 6f 72 22  2c 62 6c 6b 25 2c 33 2c  |rtError",blk%,3,|
00000260  22 53 6f 6c 69 74 61 72  65 22 20 b8 20 2c 62 0d  |"Solitare" . ,b.|
00000270  01 0e 18 e7 62 3d 32 20  71 75 69 74 25 3d b9 3a  |....b=2 quit%=.:|
00000280  6d 61 73 6b 25 3d 30 0d  01 18 05 e1 0d 01 22 04  |mask%=0.......".|
00000290  0d 01 2c 0d dd f2 72 65  73 70 6f 6e 64 0d 01 36  |..,...respond..6|
000002a0  10 c8 8e 20 62 6c 6b 25  21 31 36 20 ca 0d 01 40  |... blk%!16 ...@|
000002b0  11 20 20 c9 20 30 3a 71  75 69 74 25 3d b9 0d 01  |.  . 0:quit%=...|
000002c0  4a 05 cb 0d 01 54 05 e1  0d 01 5e 04 0d 01 68 0a  |J....T....^...h.|
000002d0  dd f2 69 6e 69 74 0d 01  72 30 c8 99 22 57 69 6d  |..init..r0.."Wim|
000002e0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
000002f0  30 2c 26 34 42 35 33 34  31 35 34 2c 22 53 6f 6c  |0,&4B534154,"Sol|
00000300  69 74 61 72 65 22 0d 01  7c 21 de 20 62 6c 6b 25  |itare"..|!. blk%|
00000310  20 35 31 32 2c 69 63 6e  25 20 31 32 38 2c 73 70  | 512,icn% 128,sp|
00000320  25 20 33 32 30 30 30 0d  01 86 23 de 20 42 25 28  |% 32000...#. B%(|
00000330  37 2c 37 29 2c 69 63 6f  6e 73 28 37 2c 37 29 2c  |7,7),icons(7,7),|
00000340  70 69 65 63 65 28 37 2c  37 29 0d 01 90 2a 73 70  |piece(7,7)...*sp|
00000350  25 21 30 3d 33 32 30 30  30 3a 73 70 25 21 34 3d  |%!0=32000:sp%!4=|
00000360  30 3a 73 70 25 21 38 3d  31 36 3a 73 70 25 21 31  |0:sp%!8=16:sp%!1|
00000370  32 3d 31 36 0d 01 9a 1d  c8 99 22 4f 53 5f 53 70  |2=16......"OS_Sp|
00000380  72 69 74 65 4f 70 22 2c  39 2b 32 35 36 2c 73 70  |riteOp",9+256,sp|
00000390  25 0d 01 a4 37 c8 99 22  4f 53 5f 53 70 72 69 74  |%...7.."OS_Sprit|
000003a0  65 4f 70 22 2c 31 30 2b  32 35 36 2c 73 70 25 2c  |eOp",10+256,sp%,|
000003b0  22 3c 53 6f 6c 69 74 61  72 65 24 44 69 72 3e 2e  |"<Solitare$Dir>.|
000003c0  53 70 72 69 74 65 73 22  0d 01 ae 3d c8 99 22 57  |Sprites"...=.."W|
000003d0  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
000003e0  22 2c 2c 22 3c 53 6f 6c  69 74 61 72 65 24 44 69  |",,"<Solitare$Di|
000003f0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 3a 6f 70  |r>.Templates":op|
00000400  65 6e 25 3d b9 0d 01 b8  3f c8 99 22 57 69 6d 70  |en%=....?.."Wimp|
00000410  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000420  62 6c 6b 25 2c 69 63 6e  25 2c 69 63 6e 25 2b 31  |blk%,icn%,icn%+1|
00000430  32 38 2c 2d 31 2c 22 69  6e 66 6f 22 2c 30 20 b8  |28,-1,"info",0 .|
00000440  20 2c 2c 6e 0d 01 c2 27  c8 99 22 57 69 6d 70 5f  | ,,n...'.."Wimp_|
00000450  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00000460  6c 6b 25 20 b8 20 69 6e  66 6f 25 0d 01 cc 3a c8  |lk% . info%...:.|
00000470  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00000480  61 74 65 22 2c 2c 62 6c  6b 25 2c 6e 2c 69 63 6e  |ate",,blk%,n,icn|
00000490  25 2b 31 32 38 2c 2d 31  2c 22 73 6f 6c 69 74 61  |%+128,-1,"solita|
000004a0  72 65 22 2c 30 0d 01 d6  37 62 6c 6b 25 21 36 34  |re",0...7blk%!64|
000004b0  3d 73 70 25 3a c8 99 22  57 69 6d 70 5f 43 72 65  |=sp%:.."Wimp_Cre|
000004c0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6b 25  |ateWindow",,blk%|
000004d0  20 b8 20 73 6f 6c 69 74  61 72 65 25 0d 01 e0 22  | . solitare%..."|
000004e0  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |.."Wimp_CloseTem|
000004f0  70 6c 61 74 65 22 3a 6f  70 65 6e 25 3d a3 0d 01  |plate":open%=...|
00000500  ea 32 62 6c 6b 25 21 30  3d 73 6f 6c 69 74 61 72  |.2blk%!0=solitar|
00000510  65 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |e%:.."Wimp_GetWi|
00000520  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6b 25  |ndowState",,blk%|
00000530  0d 01 f4 1d c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |......"Wimp_Open|
00000540  57 69 6e 64 6f 77 22 2c  2c 62 6c 6b 25 0d 01 fe  |Window",,blk%...|
00000550  34 69 63 6f 6e 62 61 72  25 3d a4 63 72 65 61 74  |4iconbar%=.creat|
00000560  65 28 2d 31 2c 30 2c 30  2c 36 38 2c 36 38 2c 26  |e(-1,0,0,68,68,&|
00000570  33 30 30 32 2c 22 21 73  6f 6c 69 74 61 72 65 22  |3002,"!solitare"|
00000580  29 0d 02 08 27 f7 8d 54  6a 43 3a e3 49 25 3d 31  |)...'..TjC:.I%=1|
00000590  b8 37 3a e3 4a 25 3d 31  b8 37 3a f3 42 25 28 49  |.7:.J%=1.7:.B%(I|
000005a0  25 2c 4a 25 29 3a ed 2c  0d 02 12 28 71 75 69 74  |%,J%):.,...(quit|
000005b0  25 3d a3 3a f2 6e 65 77  67 61 6d 65 3a 63 6f 6c  |%=.:.newgame:col|
000005c0  64 25 3d a3 3a 6d 61 73  6b 25 3d 26 31 39 33 33  |d%=.:mask%=&1933|
000005d0  0d 02 1c 35 de 20 6d 65  6e 75 25 20 32 31 32 3a  |...5. menu% 212:|
000005e0  ff 22 4c 4f 41 44 20 3c  53 6f 6c 69 74 61 72 65  |."LOAD <Solitare|
000005f0  24 44 69 72 3e 2e 4d 65  6e 75 73 20 22 2b c3 7e  |$Dir>.Menus "+.~|
00000600  6d 65 6e 75 25 0d 02 26  2a 6d 65 6e 75 25 21 31  |menu%..&*menu%!1|
00000610  36 30 3d 69 6e 66 6f 25  3a 6d 65 6e 75 25 21 33  |60=info%:menu%!3|
00000620  32 3d 69 6e 66 6f 25 3a  74 72 65 65 25 3d 30 0d  |2=info%:tree%=0.|
00000630  02 30 2c 75 6e 64 6f 25  3d 6d 65 6e 75 25 2b 31  |.0,undo%=menu%+1|
00000640  31 36 3a 6d 31 25 3d 6d  65 6e 75 25 3a 6d 32 25  |16:m1%=menu%:m2%|
00000650  3d 6d 65 6e 75 25 2b 38  30 3a e1 0d 02 3a 04 0d  |=menu%+80:...:..|
00000660  02 44 48 dd a4 63 72 65  61 74 65 28 62 6c 6b 25  |.DH..create(blk%|
00000670  21 34 30 2c 62 6c 6b 25  21 34 34 2c 62 6c 6b 25  |!40,blk%!44,blk%|
00000680  21 34 38 2c 62 6c 6b 25  21 35 32 2c 62 6c 6b 25  |!48,blk%!52,blk%|
00000690  21 35 36 2c 62 6c 6b 25  21 36 30 2c 24 28 62 6c  |!56,blk%!60,$(bl|
000006a0  6b 25 2b 36 34 29 29 0d  02 4e 29 c8 99 22 57 69  |k%+64))..N).."Wi|
000006b0  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
000006c0  62 6c 6b 25 2b 34 30 20  b8 20 68 25 3a 3d 68 25  |blk%+40 . h%:=h%|
000006d0  0d 02 58 04 0d 02 62 0d  dd f2 62 75 74 74 6f 6e  |..X...b...button|
000006e0  73 0d 02 6c 0f c8 8e 20  62 6c 6b 25 21 38 20 ca  |s..l... blk%!8 .|
000006f0  0d 02 76 14 20 20 c9 20  34 20 3a 20 f4 20 53 65  |..v.  . 4 : . Se|
00000700  6c 65 63 74 0d 02 80 14  20 20 20 20 c8 8e 20 62  |lect....    .. b|
00000710  6c 6b 25 21 31 32 20 ca  0d 02 8a 1d 20 20 20 20  |lk%!12 .....    |
00000720  20 20 c9 20 73 6f 6c 69  74 61 72 65 25 20 3a 20  |  . solitare% : |
00000730  f2 6d 6f 76 65 0d 02 94  17 20 20 20 20 20 20 c9  |.move....      .|
00000740  20 2d 32 20 3a 20 f4 20  49 62 61 72 0d 02 9e 3a  | -2 : . Ibar...:|
00000750  20 20 20 20 20 20 20 20  62 6c 6b 25 21 30 3d 73  |        blk%!0=s|
00000760  6f 6c 69 74 61 72 65 25  3a c8 99 22 57 69 6d 70  |olitare%:.."Wimp|
00000770  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00000780  2c 2c 62 6c 6b 25 0d 02  a8 30 20 20 20 20 20 20  |,,blk%...0      |
00000790  20 20 62 6c 6b 25 21 32  38 3d 2d 31 3a c8 99 22  |  blk%!28=-1:.."|
000007a0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000007b0  2c 2c 62 6c 6b 25 0d 02  b2 09 20 20 20 20 cb 0d  |,,blk%....    ..|
000007c0  02 bc 09 20 20 c9 20 32  0d 02 c6 14 20 20 20 20  |...  . 2....    |
000007d0  c8 8e 20 62 6c 6b 25 21  31 32 20 ca 0d 02 d0 15  |.. blk%!12 .....|
000007e0  20 20 20 20 20 20 c9 20  73 6f 6c 69 74 61 72 65  |      . solitare|
000007f0  25 0d 02 da 34 20 20 20  20 20 20 20 20 e7 ac 75  |%...4        ..u|
00000800  6e 64 6f 20 21 75 6e 64  6f 25 3d 26 37 34 30 30  |ndo !undo%=&7400|
00000810  30 32 31 20 8b 20 21 75  6e 64 6f 25 3d 26 37 30  |021 . !undo%=&70|
00000820  30 30 30 32 31 0d 02 e4  3f 20 20 20 20 20 20 20  |00021...?       |
00000830  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .."Wimp_CreateM|
00000840  65 6e 75 22 2c 2c 6d 32  25 2c 62 6c 6b 25 21 30  |enu",,m2%,blk%!0|
00000850  2d 36 34 2c 62 6c 6b 25  21 34 3a 74 72 65 65 25  |-64,blk%!4:tree%|
00000860  3d 6d 32 25 0d 02 ee 0e  20 20 20 20 20 20 c9 20  |=m2%....      . |
00000870  2d 32 0d 02 f8 3c 20 20  20 20 20 20 20 20 c8 99  |-2...<        ..|
00000880  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000890  22 2c 2c 6d 31 25 2c 62  6c 6b 25 21 30 2d 36 34  |",,m1%,blk%!0-64|
000008a0  2c 31 38 30 3a 74 72 65  65 25 3d 6d 31 25 0d 03  |,180:tree%=m1%..|
000008b0  02 09 20 20 20 20 cb 0d  03 0c 05 cb 0d 03 16 05  |..    ..........|
000008c0  e1 0d 03 20 04 0d 03 2a  13 dc 20 30 2c 30 2c 31  |... ...*.. 0,0,1|
000008d0  2c 31 2c 31 2c 30 2c 30  0d 03 34 13 dc 20 30 2c  |,1,1,0,0..4.. 0,|
000008e0  30 2c 31 2c 31 2c 31 2c  30 2c 30 0d 03 3e 13 dc  |0,1,1,1,0,0..>..|
000008f0  20 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 0d 03  | 1,1,1,1,1,1,1..|
00000900  48 13 dc 20 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |H.. 1,1,1,1,1,1,|
00000910  31 0d 03 52 13 dc 20 31  2c 31 2c 31 2c 31 2c 31  |1..R.. 1,1,1,1,1|
00000920  2c 31 2c 31 0d 03 5c 13  dc 20 30 2c 30 2c 31 2c  |,1,1..\.. 0,0,1,|
00000930  31 2c 31 2c 30 2c 30 0d  03 66 13 dc 20 30 2c 30  |1,1,0,0..f.. 0,0|
00000940  2c 31 2c 31 2c 31 2c 30  2c 30 0d 03 70 04 0d 03  |,1,1,1,0,0..p...|
00000950  7a 0d dd f2 6e 65 77 67  61 6d 65 0d 03 84 21 ea  |z...newgame...!.|
00000960  58 25 2c 59 25 3a 70 69  65 63 65 28 29 3d 31 3a  |X%,Y%:piece()=1:|
00000970  70 69 65 63 65 28 34 2c  34 29 3d 30 0d 03 8e 13  |piece(4,4)=0....|
00000980  e3 58 25 3d 31 b8 37 3a  e3 59 25 3d 31 b8 37 0d  |.X%=1.7:.Y%=1.7.|
00000990  03 98 30 e7 70 69 65 63  65 28 58 25 2c 59 25 29  |..0.piece(X%,Y%)|
000009a0  20 e7 42 25 28 58 25 2c  59 25 29 20 f2 66 69 6c  | .B%(X%,Y%) .fil|
000009b0  6c 28 58 25 2c 59 25 2c  22 66 75 6c 6c 22 29 0d  |l(X%,Y%,"full").|
000009c0  03 a2 33 e7 70 69 65 63  65 28 58 25 2c 59 25 29  |..3.piece(X%,Y%)|
000009d0  3d 30 20 e7 42 25 28 58  25 2c 59 25 29 20 f2 66  |=0 .B%(X%,Y%) .f|
000009e0  69 6c 6c 28 58 25 2c 59  25 2c 22 65 6d 70 74 79  |ill(X%,Y%,"empty|
000009f0  22 29 0d 03 ac 35 ed 2c  3a 62 6c 6b 25 21 30 3d  |")...5.,:blk%!0=|
00000a00  73 6f 6c 69 74 61 72 65  25 3a c8 99 22 57 69 6d  |solitare%:.."Wim|
00000a10  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000a20  22 2c 2c 62 6c 6b 25 0d  03 b6 47 c8 99 22 57 69  |",,blk%...G.."Wi|
00000a30  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00000a40  73 6f 6c 69 74 61 72 65  25 2c 30 2c 2d 28 62 6c  |solitare%,0,-(bl|
00000a50  6b 25 21 31 36 2d 62 6c  6b 25 21 38 29 2c 62 6c  |k%!16-blk%!8),bl|
00000a60  6b 25 21 31 32 2d 62 6c  6b 25 21 34 2c 30 0d 03  |k%!12-blk%!4,0..|
00000a70  c0 0c 75 6e 64 6f 3d a3  3a e1 0d 03 ca 04 0d 03  |..undo=.:.......|
00000a80  d4 14 dd f2 66 69 6c 6c  28 58 25 2c 59 25 2c 53  |....fill(X%,Y%,S|
00000a90  24 29 0d 03 de 20 78 70  25 3d 58 25 2a 38 34 2d  |$)... xp%=X%*84-|
00000aa0  32 32 3a 79 70 25 3d 2d  28 59 25 2a 38 30 2b 36  |22:yp%=-(Y%*80+6|
00000ab0  30 29 0d 03 e8 42 69 63  6f 6e 73 28 58 25 2c 59  |0)...Bicons(X%,Y|
00000ac0  25 29 3d a4 63 72 65 61  74 65 28 73 6f 6c 69 74  |%)=.create(solit|
00000ad0  61 72 65 25 2c 78 70 25  2c 79 70 25 2c 78 70 25  |are%,xp%,yp%,xp%|
00000ae0  2b 36 36 2c 79 70 25 2b  36 38 2c 26 36 30 30 32  |+66,yp%+68,&6002|
00000af0  2c 53 24 29 0d 03 f2 1d  e7 53 24 3d 22 66 75 6c  |,S$).....S$="ful|
00000b00  6c 22 20 70 69 65 63 65  28 58 25 2c 59 25 29 3d  |l" piece(X%,Y%)=|
00000b10  31 0d 03 fc 1e e7 53 24  3d 22 65 6d 70 74 79 22  |1.....S$="empty"|
00000b20  20 70 69 65 63 65 28 58  25 2c 59 25 29 3d 30 0d  | piece(X%,Y%)=0.|
00000b30  04 06 05 e1 0d 04 10 04  0d 04 1a 0c dd f2 64 65  |..............de|
00000b40  63 6f 64 65 0d 04 24 2b  c8 99 22 57 69 6d 70 5f  |code..$+.."Wimp_|
00000b50  44 65 63 6f 64 65 4d 65  6e 75 22 2c 2c 74 72 65  |DecodeMenu",,tre|
00000b60  65 25 2c 62 6c 6b 25 2c  62 6c 6b 25 2b 32 30 0d  |e%,blk%,blk%+20.|
00000b70  04 2e 13 c8 8e 20 24 28  62 6c 6b 25 2b 32 30 29  |..... $(blk%+20)|
00000b80  20 ca 0d 04 38 1d 20 20  c9 20 22 4e 65 77 20 67  | ...8.  . "New g|
00000b90  61 6d 65 22 20 3a 20 f2  6e 65 77 67 61 6d 65 0d  |ame" : .newgame.|
00000ba0  04 42 1c 20 20 c9 20 22  51 75 69 74 22 20 20 20  |.B.  . "Quit"   |
00000bb0  20 20 3a 20 71 75 69 74  25 3d b9 0d 04 4c 1a 20  |  : quit%=...L. |
00000bc0  20 c9 20 22 55 6e 64 6f  22 20 20 20 20 20 3a 20  | . "Undo"     : |
00000bd0  f2 75 6e 64 6f 0d 04 56  05 cb 0d 04 60 21 c8 99  |.undo..V....`!..|
00000be0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00000bf0  49 6e 66 6f 22 2c 2c 62  6c 6b 25 0d 04 6a 2b 21  |Info",,blk%..j+!|
00000c00  75 6e 64 6f 25 3d 26 37  30 30 30 30 32 31 3a e7  |undo%=&7000021:.|
00000c10  75 6e 64 6f 3d 30 20 21  75 6e 64 6f 25 3d 26 37  |undo=0 !undo%=&7|
00000c20  34 30 30 30 32 31 0d 04  74 28 e7 62 6c 6b 25 21  |400021..t(.blk%!|
00000c30  38 3d 31 20 c8 99 22 57  69 6d 70 5f 43 72 65 61  |8=1 .."Wimp_Crea|
00000c40  74 65 4d 65 6e 75 22 2c  2c 74 72 65 65 25 0d 04  |teMenu",,tree%..|
00000c50  7e 05 e1 0d 04 88 04 0d  04 92 0b dd a4 78 28 68  |~............x(h|
00000c60  25 29 0d 04 9c 0d ea 58  25 2c 59 25 2c 78 25 0d  |%).....X%,Y%,x%.|
00000c70  04 a6 13 e3 58 25 3d 31  b8 37 3a e3 59 25 3d 31  |....X%=1.7:.Y%=1|
00000c80  b8 37 0d 04 b0 1a e7 69  63 6f 6e 73 28 58 25 2c  |.7.....icons(X%,|
00000c90  59 25 29 3d 68 25 20 78  25 3d 58 25 0d 04 ba 0a  |Y%)=h% x%=X%....|
00000ca0  ed 2c 3a 3d 78 25 0d 04  c4 04 0d 04 ce 0b dd a4  |.,:=x%..........|
00000cb0  79 28 68 25 29 0d 04 d8  0d ea 58 25 2c 59 25 2c  |y(h%).....X%,Y%,|
00000cc0  79 25 0d 04 e2 13 e3 58  25 3d 31 b8 37 3a e3 59  |y%.....X%=1.7:.Y|
00000cd0  25 3d 31 b8 37 0d 04 ec  1a e7 69 63 6f 6e 73 28  |%=1.7.....icons(|
00000ce0  58 25 2c 59 25 29 3d 68  25 20 79 25 3d 59 25 0d  |X%,Y%)=h% y%=Y%.|
00000cf0  04 f6 0a ed 2c 3a 3d 79  25 0d 05 00 04 0d 05 0a  |....,:=y%.......|
00000d00  0a dd f2 6d 6f 76 65 0d  05 14 21 c8 99 22 57 69  |...move...!.."Wi|
00000d10  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000d20  6f 22 2c 2c 62 6c 6b 25  0d 05 1e 21 78 63 3d a4  |o",,blk%...!xc=.|
00000d30  78 28 62 6c 6b 25 21 31  36 29 3a 79 63 3d a4 79  |x(blk%!16):yc=.y|
00000d40  28 62 6c 6b 25 21 31 36  29 0d 05 28 15 e7 42 25  |(blk%!16)..(..B%|
00000d50  28 78 63 2c 79 63 29 3d  30 20 ef 37 3a e1 0d 05  |(xc,yc)=0 .7:...|
00000d60  32 18 e7 70 69 65 63 65  28 78 63 2c 79 63 29 3d  |2..piece(xc,yc)=|
00000d70  30 20 ef 37 3a e1 0d 05  3c 20 64 78 3d 78 63 3a  |0 .7:...< dx=xc:|
00000d80  64 79 3d 79 63 3a 62 6c  6b 25 21 30 3d 73 6f 6c  |dy=yc:blk%!0=sol|
00000d90  69 74 61 72 65 25 0d 05  46 21 c8 99 22 57 69 6d  |itare%..F!.."Wim|
00000da0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000db0  22 2c 2c 62 6c 6b 25 0d  05 50 1d 77 6d 69 6e 78  |",,blk%..P.wminx|
00000dc0  3d 62 6c 6b 25 21 34 3a  77 6d 69 6e 79 3d 62 6c  |=blk%!4:wminy=bl|
00000dd0  6b 25 21 38 0d 05 5a 1f  77 6d 61 78 78 3d 62 6c  |k%!8..Z.wmaxx=bl|
00000de0  6b 25 21 31 32 3a 77 6d  61 78 79 3d 62 6c 6b 25  |k%!12:wmaxy=blk%|
00000df0  21 31 36 0d 05 64 19 73  78 3d 62 6c 6b 25 21 32  |!16..d.sx=blk%!2|
00000e00  30 3a 73 79 3d 62 6c 6b  25 21 32 34 0d 05 6e 44  |0:sy=blk%!24..nD|
00000e10  62 6c 6b 25 21 30 3d 73  6f 6c 69 74 61 72 65 25  |blk%!0=solitare%|
00000e20  3a 62 6c 6b 25 21 34 3d  69 63 6f 6e 73 28 78 63  |:blk%!4=icons(xc|
00000e30  2c 79 63 29 3a c8 99 22  57 69 6d 70 5f 47 65 74  |,yc):.."Wimp_Get|
00000e40  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6b 25  |IconState",,blk%|
00000e50  0d 05 78 3a 69 6d 69 6e  78 3d 62 6c 6b 25 21 38  |..x:iminx=blk%!8|
00000e60  3a 69 6d 69 6e 79 3d 62  6c 6b 25 21 31 32 3a 69  |:iminy=blk%!12:i|
00000e70  6d 61 78 78 3d 62 6c 6b  25 21 31 36 3a 69 6d 61  |maxx=blk%!16:ima|
00000e80  78 79 3d 62 6c 6b 25 21  32 30 0d 05 82 1d 62 6c  |xy=blk%!20....bl|
00000e90  6b 25 21 30 3d 73 6f 6c  69 74 61 72 65 25 3a 62  |k%!0=solitare%:b|
00000ea0  6c 6b 25 21 34 3d 35 0d  05 8c 17 62 6c 6b 25 21  |lk%!4=5....blk%!|
00000eb0  30 38 2b 3d 77 6d 69 6e  78 2d 38 2d 73 78 0d 05  |08+=wminx-8-sx..|
00000ec0  96 17 62 6c 6b 25 21 31  32 2b 3d 77 6d 61 78 79  |..blk%!12+=wmaxy|
00000ed0  2d 38 2d 73 79 0d 05 a0  28 62 6c 6b 25 21 31 36  |-8-sy...(blk%!16|
00000ee0  3d 62 6c 6b 25 21 38 2b  38 32 3a 62 6c 6b 25 21  |=blk%!8+82:blk%!|
00000ef0  32 30 3d 62 6c 6b 25 21  31 32 2b 38 34 0d 05 aa  |20=blk%!12+84...|
00000f00  1f 62 6c 6b 25 21 32 34  3d 77 6d 69 6e 78 3a 62  |.blk%!24=wminx:b|
00000f10  6c 6b 25 21 32 38 3d 77  6d 69 6e 79 0d 05 b4 1f  |lk%!28=wminy....|
00000f20  62 6c 6b 25 21 33 32 3d  77 6d 61 78 78 3a 62 6c  |blk%!32=wmaxx:bl|
00000f30  6b 25 21 33 36 3d 77 6d  61 78 79 0d 05 be 1a c8  |k%!36=wmaxy.....|
00000f40  99 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  |."Wimp_DragBox",|
00000f50  2c 62 6c 6b 25 0d 05 c8  05 e1 0d 05 d2 04 0d 05  |,blk%...........|
00000f60  dc 10 dd f2 6d 6f 76 65  5f 70 69 65 63 65 0d 05  |....move_piece..|
00000f70  e6 3f c8 99 22 57 69 6d  70 5f 47 65 74 50 6f 69  |.?.."Wimp_GetPoi|
00000f80  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6b 25 3a  |nterInfo",,blk%:|
00000f90  78 63 3d a4 78 28 62 6c  6b 25 21 31 36 29 3a 79  |xc=.x(blk%!16):y|
00000fa0  63 3d a4 79 28 62 6c 6b  25 21 31 36 29 0d 05 f0  |c=.y(blk%!16)...|
00000fb0  13 e7 78 63 3d 64 78 20  e7 79 63 3d 64 79 20 e1  |..xc=dx .yc=dy .|
00000fc0  0d 05 fa 26 e7 42 25 28  78 63 2c 79 63 29 3d 30  |...&.B%(xc,yc)=0|
00000fd0  20 84 20 70 69 65 63 65  28 78 63 2c 79 63 29 3d  | . piece(xc,yc)=|
00000fe0  31 20 ef 37 3a e1 0d 06  04 1d e7 78 63 2d 64 78  |1 .7:......xc-dx|
00000ff0  3c 3e 30 20 80 20 79 63  2d 64 79 3c 3e 30 20 ef  |<>0 . yc-dy<>0 .|
00001000  37 3a e1 0d 06 0e 23 e7  94 28 78 63 2d 64 78 29  |7:....#..(xc-dx)|
00001010  3c 3e 32 20 80 20 94 28  79 63 2d 64 79 29 3c 3e  |<>2 . .(yc-dy)<>|
00001020  32 20 ef 37 3a e1 0d 06  18 32 68 78 3d 28 64 78  |2 .7:....2hx=(dx|
00001030  2b 78 63 29 2f 32 3a 68  79 3d 28 64 79 2b 79 63  |+xc)/2:hy=(dy+yc|
00001040  29 2f 32 3a e7 70 69 65  63 65 28 68 78 2c 68 79  |)/2:.piece(hx,hy|
00001050  29 3d 30 20 ef 37 3a e1  0d 06 22 2f f2 70 69 65  |)=0 .7:..."/.pie|
00001060  63 65 28 64 78 2c 64 79  2c 22 65 6d 70 74 79 22  |ce(dx,dy,"empty"|
00001070  29 3a f2 70 69 65 63 65  28 68 78 2c 68 79 2c 22  |):.piece(hx,hy,"|
00001080  65 6d 70 74 79 22 29 0d  06 2c 1f f2 70 69 65 63  |empty")..,..piec|
00001090  65 28 78 63 2c 79 63 2c  22 66 75 6c 6c 22 29 3a  |e(xc,yc,"full"):|
000010a0  75 6e 64 6f 3d b9 0d 06  36 45 f4 20 43 6f 70 79  |undo=...6E. Copy|
000010b0  20 76 61 72 69 61 62 6c  65 73 20 73 6f 20 74 68  | variables so th|
000010c0  61 74 20 55 6e 64 6f 20  64 6f 65 73 6e 27 74 20  |at Undo doesn't |
000010d0  75 6e 64 6f 20 74 6f 20  61 6e 20 69 6c 6c 65 67  |undo to an illeg|
000010e0  61 6c 20 70 6f 73 69 74  69 6f 6e 0d 06 40 2f 61  |al position..@/a|
000010f0  78 63 3d 78 63 3a 61 79  63 3d 79 63 3a 61 64 79  |xc=xc:ayc=yc:ady|
00001100  3d 64 79 3a 61 64 78 3d  64 78 3a 61 68 78 3d 68  |=dy:adx=dx:ahx=h|
00001110  78 3a 61 68 79 3d 68 79  3a e1 0d 06 4a 04 0d 06  |x:ahy=hy:...J...|
00001120  54 15 dd f2 70 69 65 63  65 28 58 25 2c 59 25 2c  |T...piece(X%,Y%,|
00001130  53 24 29 0d 06 5e 28 62  6c 6b 25 21 30 3d 73 6f  |S$)..^(blk%!0=so|
00001140  6c 69 74 61 72 65 25 3a  62 6c 6b 25 21 34 3d 69  |litare%:blk%!4=i|
00001150  63 6f 6e 73 28 58 25 2c  59 25 29 0d 06 68 2d c8  |cons(X%,Y%)..h-.|
00001160  99 22 57 69 6d 70 5f 44  65 6c 65 74 65 49 63 6f  |."Wimp_DeleteIco|
00001170  6e 22 2c 2c 62 6c 6b 25  3a f2 66 69 6c 6c 28 58  |n",,blk%:.fill(X|
00001180  25 2c 59 25 2c 53 24 29  0d 06 72 1f c8 99 22 57  |%,Y%,S$)..r..."W|
00001190  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
000011a0  22 2c 2c 62 6c 6b 25 0d  06 7c 41 c8 99 22 57 69  |",,blk%..|A.."Wi|
000011b0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
000011c0  73 6f 6c 69 74 61 72 65  25 2c 62 6c 6b 25 21 38  |solitare%,blk%!8|
000011d0  2c 62 6c 6b 25 21 31 32  2c 62 6c 6b 25 21 31 36  |,blk%!12,blk%!16|
000011e0  2c 62 6c 6b 25 21 32 30  0d 06 86 05 e1 0d 06 90  |,blk%!20........|
000011f0  04 0d 06 9a 0a dd f2 75  6e 64 6f 0d 06 a4 1a f2  |.......undo.....|
00001200  70 69 65 63 65 28 61 64  78 2c 61 64 79 2c 22 66  |piece(adx,ady,"f|
00001210  75 6c 6c 22 29 0d 06 ae  1b f2 70 69 65 63 65 28  |ull").....piece(|
00001220  61 78 63 2c 61 79 63 2c  22 65 6d 70 74 79 22 29  |axc,ayc,"empty")|
00001230  0d 06 b8 1a f2 70 69 65  63 65 28 61 68 78 2c 61  |.....piece(ahx,a|
00001240  68 79 2c 22 66 75 6c 6c  22 29 0d 06 c2 0c 75 6e  |hy,"full")....un|
00001250  64 6f 3d a3 3a e1 0d 06  cc 04 0d 06 d6 0a dd f2  |do=.:...........|
00001260  64 69 65 64 0d 06 e0 21  e7 6f 70 65 6e 25 20 c8  |died...!.open% .|
00001270  99 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  |."Wimp_CloseTemp|
00001280  6c 61 74 65 22 0d 06 ea  18 c8 99 22 57 69 6d 70  |late"......"Wimp|
00001290  5f 43 6c 6f 73 65 44 6f  77 6e 22 3a e0 0d ff     |_CloseDown":...|
0000129f