Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199211.adf » AWNov92 » !AWNov92/Goodies/Solitare/!Solitaire/!RunImage

!AWNov92/Goodies/Solitare/!Solitaire/!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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199211.adf » AWNov92
Filename: !AWNov92/Goodies/Solitare/!Solitaire/!RunImage
Read OK:
File size: 133A bytes
Load address: 0000
Exec address: 0000
File contents
   10REM><Solitaire$Dir>.!RunImage
   20REM LEN Mark Mahieu 1991
   30DIMq% 4,b% 1024,g% 2972,z% 1200:DIMA% 256,B% 1024,h% 512,n% 512:DIMe(44):DIMb(81),c(81):DIMO% 512:DIMf(63):DIMa 1024:DIMg(19):DIMd(4):d(1)=12:d(2)=12:d(3)=0:d(4)=0:g=0:P%=1:l%=0:j=0:c=67:DIMa(81):FORI=0TO81:a(I)=-1:NEXT:PROCl:b=52
   40e=TRUE:$q%="TASK"
   50SYS"Wimp_Initialise",200,!q%,"Solitaire"TOC%:ONERRORPROCg(TRUE):END
   60PROCm:SYS"Wimp_OpenTemplate",,"<Solitaire$Dir>.Templates":SYS"Wimp_LoadTemplate",,g%,A%,A%+256,-1,"main",0:g%!64=o%:SYS"Wimp_CreateWindow",,g%TOc%:$(g%+72)="Start":g%!44+=64:g%!52=-8:SYS"Wimp_CreateWindow",,g%TOk%:$(g%+72)="Finish"
   70SYS"Wimp_CreateWindow",,g%TOj%:g%!44-=64:g%!52=0:SYS"Wimp_LoadTemplate",,z%,B%,B%+1024,-1,"info",0:z%!64=o%:SYS"Wimp_CreateWindow",,z%TOD%:SYS"Wimp_CloseTemplate":PROCn:b()=-1:RESTORE1060:FORI=0TO32:READn:b(n)=1:NEXT:b(27)=0:PROCo
   80ONERRORPROCg(FALSE)
   90PROCe(c%,c-3):l=o:J%=0:p%=FALSE:REPEAT:SYS"Wimp_Poll",J%,b%TOK%:CASEK%OF
  100WHEN2:SYS"Wimp_OpenWindow",,b%
  110WHEN3:PROCp:SYS"Wimp_CloseWindow",,b%
  120WHEN6:PROCq(b%!16)
  130WHEN9:PROCr
  140WHEN17,18:CASEb%!16OF
  150WHEN0:p%=TRUE
  160ENDCASE
  170ENDCASE
  180UNTILp%:SYS"Wimp_CloseDown",C%,!q%:END
  190
  200DEFPROCg(L%):SYS"Wimp_DragBox",,0:!b%=ERR:$(b%+4)=REPORT$+" (internal error code "+STR$ERL+")":SYS"Wimp_ReportError",b%,1,"Solitaire":IFL%THEN
  210SYS"Wimp_CloseDown",C%,!q%
  220ENDIF
  230ENDPROC
  240
  250DEFPROCm:d=32:i=d:f=1:S%=OPENIN"<Solitaire$Dir>.Sprites":T%=(EXT#S%)+16:CLOSE#S%:DIMo% T%:!o%=T%:o%!4=0:o%!8=16:o%!12=16:SYS"OS_SpriteOp",266,o%,"<Solitaire$Dir>.Sprites":h%!0=-1:h%!4=0:h%!12=68:h%!8=0:h%!16=68:h%!20=12290:$(h%+24)="!Solitaire"
  260compl=FALSE
  270SYS"Wimp_CreateIcon",,h%TOE%:ENDPROC
  280
  290DEFPROCh:b%!0=c%:SYS"Wimp_GetWindowState",,b%:SYS"Wimp_OpenWindow",,b%:ENDPROC
  300
  310DEFPROCb(F%,M%):n%!0=F%:n%!4=M%:SYS"Wimp_GetIconState",,n%:SYS"Wimp_ForceRedraw",F%,n%!8,n%!12,n%!16,n%!20:ENDPROC
  320
  330DEFPROCq(a%):IFb%!16=E%ANDb%!8=2PROCc(1)
  340IFb%!8=2ANDb%!12=c%PROCc(2)
  350CASEb%!12OF
  360WHEN-2:IFb%!16=E%
  370CASEb%!8OF
  380WHEN4:PROCh
  390ENDCASE
  400ENDCASE
  410IFb%!12=k%ANDa%>4ANDa%<50THEN
  420IFb%!8=4ANDb(a%)=0ANDd<32THENb(a%)=1:PROCa(k%,a%,"hole"+STR$b(a%),0):PROCb(k%,a%):d+=1:PROCi
  430IFb%!8=1ANDf<(d-1)ANDb(a%)=1ANDd>2THENb(a%)=0:PROCa(k%,a%,"hole"+STR$b(a%),0):PROCb(k%,a%):d-=1:PROCi
  440ENDIF
  450IFb%!12=j%ANDa%>4ANDa%<50THEN
  460IFb%!8=4AND(f+1)<dANDc(a%)=0ANDf<32THENc(a%)=1:PROCa(j%,a%,"hole"+STR$c(a%),0):PROCb(j%,a%):f+=1:PROCf
  470IFb%!8=1ANDc(a%)=1ANDf>1THENc(a%)=0:PROCa(j%,a%,"hole"+STR$c(a%),0):PROCb(j%,a%):f-=1:PROCf
  480ENDIF
  490IFb%!12=c%ANDb%!8=4ANDcompl=FALSE THEN
  500PROCe(c%,a%):PROCs(a%)
  510ENDIF
  520ENDPROC
  530DEFPROCc(G%):CASEG%OF
  540WHEN1:SYS"Wimp_CreateMenu",,s%,b%!0-64,184
  550WHEN2:SYS"Wimp_CreateMenu",,t%,b%!0-64,b%!4+16
  560ENDCASE
  570IFG%=1THENg=-2ELSEg=c%
  580ENDPROC
  590DEFPROCo:DIMf% 580:s%=f%:$f%="Solitaire":f%!12=459271:f%!16=150:f%!20=44:f%!24=0:f%+=28:f%!0=0:f%!4=D%:f%!8=&7000021:$(f%+12)="Info":f%!24=128:f%!28=-1:f%!32=&7000021:$(f%+36)="Quit":DIMd% 1500:DIMe% 1024:N%=e%:t%=d%:$d%="Solitaire"
  600d%!12=459271:d%!16=150:d%!20=44:d%!24=0:d%+=28:d%!0=0:d%!4=D%:d%!8=&7000021:$(d%+12)="Info":d%!24=0:d%!28=N%:d%!32=&7000021:$(d%+36)="Board":d%!48=128:d%!52=-1:d%!56=&7000021:$(d%+60)="Quit":$e%="Board"
  610e%!12=459271:e%!16=150:e%!20=44:e%!24=0:e%+=28:e%!0=0:e%!4=-1:e%!8=&7000021:$(e%+12)="New":e%!24=0:e%!28=k%:e%!32=&7000021:$(e%+36)="Start":e%!48=128:e%!52=j%:e%!56=&7000021:$(e%+60)="Finish":ENDPROC
  620DEFPROCj(H%):IFH%=s%THEN
  630IFb%!0=1THENp%=TRUE
  640ENDIF
  650IFH%=t%THEN
  660IFb%!0=1ANDb%!4=0THENPROCt:compl=FALSE
  670IFb%!0=2THENp%=TRUE
  680ENDIF
  690ENDPROC
  700DEFPROCr:CASEgOF
  710WHEN-2:PROCj(s%)
  720WHENc%:PROCj(t%)
  730ENDCASE
  740IFg=c%ANDp%=FALSE:SYS"Wimp_GetPointerInfo",,h%:IFh%!8=1PROCc(2):ENDPROC
  750IFg!12=-2ANDp%=FALSE:SYS"Wimp_GetPointerInfo",,h%:IFh%!8=1PROCc(1):ENDPROC
  760ENDPROC
  770DEFPROCe(m%,a%):a!0=m%:a!4=a%:SYS"Wimp_GetIconState",,a:u%=a!8:v%=a!12:w%=a!16:x%=a!20:r%=a!24:a$=$(a+28):o=a!28:ENDPROC
  780
  790
  800DEFPROCa(m%,a%,b$,I%):PROCe(m%,a%)
  810a!0=m%:a!4=a%:SYS"Wimp_DeleteIcon",,a
  820IFI%<>0r%=I%
  830a!0=m%:a!4=u%:a!8=v%:a!12=w%:a!16=x%:a!20=r%:$(a+24)=b$:SYS"Wimp_CreateIcon",,a TO a%
  840ENDPROC
  850DEFPROCs(a%):IFa%<5ORa%>49THENENDPROC
  860IFeANDa(a%)=0THENENDPROC
  870IFa%=bANDe=FALSETHENb=52:PROCk(a%,"hole1"):e=TRUE:ENDPROC
  880IFeTHENb=a%:PROCk(a%,"hole2"):e=FALSE:ENDPROC
  890IFe=FALSETHENIFFNbTHENPROCv:ENDPROC
  900ENDPROC
  910DEFPROCl:e()=5,6,7,12,13,14,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,40,41,42,47,48,49:FORI=0TO32:a(e(I))=1:NEXT:a(27)=0:ENDPROC
  920DEFPROCk(a%,c$):PROCa(c%,a%,c$,0):PROCb(c%,a%):ENDPROC
  930DEFFNb:IFa%-b=14THENIFa(a%-7)=1ANDa(a%)=0THENPROCd(a%-7):=1
  940IFa%-b=-14THENIFa(a%+7)=1ANDa(a%)=0THENPROCd(a%+7):=1
  950IFa%-b=2AND((a%-3)DIV7)=((b-3)DIV7)THENIFa(a%-1)=1ANDa(a%)=0THENPROCd(a%-1):=1
  960IFa%-b=-2AND((a%-3)DIV7)=((b-3)DIV7)THENIFa(a%+1)=1ANDa(a%)=0THENPROCd(a%+1):=1
  970=0
  980DEFPROCv:a(a%)=1:a(b)=0:PROCa(c%,b,"hole"+STR$a(b),0):PROCb(c%,b):PROCa(c%,a%,"hole"+STR$a(a%),0):PROCb(c%,a%):i-=1:m=TRUE:FORI=5TO49:IFa(I)<>c(I)THENm=FALSE
  990NEXT:IF m=TRUE THEN $l="Well done!!":compl=TRUE:PROCb(c%,c-3):ELSE PROCa(c%,c,STR$i,0):PROCb(c%,c)
 1000e=TRUE:b=52:j+=1:PROCa(c%,61,STR$j,0):PROCb(c%,61):ENDPROC
 1010DEFPROCd(y%):a(y%)=0:PROCa(c%,y%,"hole0",0):PROCb(c%,y%):ENDPROC
 1020DEFPROCt:e=TRUE:b=52:j=0:i=d:a()=b():b%!0=c%:SYS"Wimp_GetWindowState",,b%:SYS"Wimp_CloseWindow",,b%:SYS"Wimp_DeleteWindow",,b%:$(g%+72)="Solitaire":SYS"Wimp_CreateWindow",,g%TOc%:$l="Pegs left :":FORI=5TO49:PROCa(c%,I,"hole"+STR$(a(I)),0):NEXT
 1030PROCa(c%,c,STR$i,0):PROCb(c%,c):PROCh:ENDPROC
 1040DEFPROCn:c()=-1:FORI=0TO32:READh:IFh=27THENk=1ELSEk=0
 1050c(h)=k:PROCa(j%,h,"hole"+STR$k,0):NEXT:ENDPROC
 1060DATA 5,6,7,12,13,14,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,40,41,42,47,48,49
 1070DEFPROCi:PROCa(k%,c,STR$d,0):PROCb(k%,c):PROCf:ENDPROC
 1080DEFPROCf:PROCa(j%,c,STR$f,0):PROCb(j%,c):PROCa(j%,61,STR$(d-f),0):PROCb(j%,61):ENDPROC
 1090DEFPROCp:IF!b%=k%OR!b%=j%THENSYS"Wimp_CreateMenu",,-1
 1100ENDPROC

�><Solitaire$Dir>.!RunImage
� � Mark Mahieu 1991
��q% 4,b% 1024,g% 2972,z% 1200:�A% 256,B% 1024,h% 512,n% 512:�e(44):�b(81),c(81):�O% 512:�f(63):�a 1024:�g(19):�d(4):d(1)=12:d(2)=12:d(3)=0:d(4)=0:g=0:P%=1:l%=0:j=0:c=67:�a(81):�I=0�81:a(I)=-1:�:�l:b=52
(e=�:$q%="TASK"
28ș"Wimp_Initialise",200,!q%,"Solitaire"�C%:��g(�):�
<��m:ș"Wimp_OpenTemplate",,"<Solitaire$Dir>.Templates":ș"Wimp_LoadTemplate",,g%,A%,A%+256,-1,"main",0:g%!64=o%:ș"Wimp_CreateWindow",,g%�c%:$(g%+72)="Start":g%!44+=64:g%!52=-8:ș"Wimp_CreateWindow",,g%�k%:$(g%+72)="Finish"
F�ș"Wimp_CreateWindow",,g%�j%:g%!44-=64:g%!52=0:ș"Wimp_LoadTemplate",,z%,B%,B%+1024,-1,"info",0:z%!64=o%:ș"Wimp_CreateWindow",,z%�D%:ș"Wimp_CloseTemplate":�n:b()=-1:��TdD:�I=0�32:�n:b(n)=1:�:b(27)=0:�o
P��g(�)
Z;�e(c%,c-3):l=o:J%=0:p%=�:�:ș"Wimp_Poll",J%,b%�K%:ȎK%�
d�2:ș"Wimp_OpenWindow",,b%
n"�3:�p:ș"Wimp_CloseWindow",,b%
x�6:�q(b%!16)
�	�9:�r
��17,18:Ȏb%!16�
��0:p%=�
��
��
�#�p%:ș"Wimp_CloseDown",C%,!q%:�
�
�{��g(L%):ș"Wimp_DragBox",,0:!b%=�:$(b%+4)=�$+" (internal error code "+Þ+")":ș"Wimp_ReportError",b%,1,"Solitaire":�L%�
�ș"Wimp_CloseDown",C%,!q%
��
��
�
����m:d=32:i=d:f=1:S%=�"<Solitaire$Dir>.Sprites":T%=(�#S%)+16:�#S%:�o% T%:!o%=T%:o%!4=0:o%!8=16:o%!12=16:ș"OS_SpriteOp",266,o%,"<Solitaire$Dir>.Sprites":h%!0=-1:h%!4=0:h%!12=68:h%!8=0:h%!16=68:h%!20=12290:$(h%+24)="!Solitaire"
compl=�
 ș"Wimp_CreateIcon",,h%�E%:�

"E��h:b%!0=c%:ș"Wimp_GetWindowState",,b%:ș"Wimp_OpenWindow",,b%:�
,
6i��b(F%,M%):n%!0=F%:n%!4=M%:ș"Wimp_GetIconState",,n%:ș"Wimp_ForceRedraw",F%,n%!8,n%!12,n%!16,n%!20:�
@
J!��q(a%):�b%!16=E%�b%!8=2�c(1)
T�b%!8=2�b%!12=c%�c(2)
^Ȏb%!12�
h�-2:�b%!16=E%
rȎb%!8�
|	�4:�h
��
��
��b%!12=k%�a%>4�a%<50�
�L�b%!8=4�b(a%)=0�d<32�b(a%)=1:�a(k%,a%,"hole"+�b(a%),0):�b(k%,a%):d+=1:�i
�S�b%!8=1�f<(d-1)�b(a%)=1�d>2�b(a%)=0:�a(k%,a%,"hole"+�b(a%),0):�b(k%,a%):d-=1:�i
��
��b%!12=j%�a%>4�a%<50�
�T�b%!8=4�(f+1)<d�c(a%)=0�f<32�c(a%)=1:�a(j%,a%,"hole"+�c(a%),0):�b(j%,a%):f+=1:�f
�K�b%!8=1�c(a%)=1�f>1�c(a%)=0:�a(j%,a%,"hole"+�c(a%),0):�b(j%,a%):f-=1:�f
��
��b%!12=c%�b%!8=4�compl=� �
��e(c%,a%):�s(a%)
��
�
��c(G%):ȎG%�
*�1:ș"Wimp_CreateMenu",,s%,b%!0-64,184
&.�2:ș"Wimp_CreateMenu",,t%,b%!0-64,b%!4+16
0�
:�G%=1�g=-2�g=c%
D�
N���o:�f% 580:s%=f%:$f%="Solitaire":f%!12=459271:f%!16=150:f%!20=44:f%!24=0:f%+=28:f%!0=0:f%!4=D%:f%!8=&7000021:$(f%+12)="Info":f%!24=128:f%!28=-1:f%!32=&7000021:$(f%+36)="Quit":�d% 1500:�e% 1024:N%=e%:t%=d%:$d%="Solitaire"
X�d%!12=459271:d%!16=150:d%!20=44:d%!24=0:d%+=28:d%!0=0:d%!4=D%:d%!8=&7000021:$(d%+12)="Info":d%!24=0:d%!28=N%:d%!32=&7000021:$(d%+36)="Board":d%!48=128:d%!52=-1:d%!56=&7000021:$(d%+60)="Quit":$e%="Board"
b�e%!12=459271:e%!16=150:e%!20=44:e%!24=0:e%+=28:e%!0=0:e%!4=-1:e%!8=&7000021:$(e%+12)="New":e%!24=0:e%!28=k%:e%!32=&7000021:$(e%+36)="Start":e%!48=128:e%!52=j%:e%!56=&7000021:$(e%+60)="Finish":�
l��j(H%):�H%=s%�
v�b%!0=1�p%=�
��
��H%=t%�
��b%!0=1�b%!4=0��t:compl=�
��b%!0=2�p%=�
��
��
���r:Ȏg�
��-2:�j(s%)
��c%:�j(t%)
��
�9�g=c%�p%=�:ș"Wimp_GetPointerInfo",,h%:�h%!8=1�c(2):�
�<�g!12=-2�p%=�:ș"Wimp_GetPointerInfo",,h%:�h%!8=1�c(1):�
��
p��e(m%,a%):a!0=m%:a!4=a%:ș"Wimp_GetIconState",,a:u%=a!8:v%=a!12:w%=a!16:x%=a!20:r%=a!24:a$=$(a+28):o=a!28:�


 ��a(m%,a%,b$,I%):�e(m%,a%)
*(a!0=m%:a!4=a%:ș"Wimp_DeleteIcon",,a
4�I%<>0r%=I%
>Wa!0=m%:a!4=u%:a!8=v%:a!12=w%:a!16=x%:a!20=r%:$(a+24)=b$:ș"Wimp_CreateIcon",,a � a%
H�
R��s(a%):�a%<5�a%>49��
\�e�a(a%)=0��
f'�a%=b�e=��b=52:�k(a%,"hole1"):e=�:�
p �e�b=a%:�k(a%,"hole2"):e=�:�
z�e=���b��v:�
��
����l:e()=5,6,7,12,13,14,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,40,41,42,47,48,49:�I=0�32:a(e(I))=1:�:a(27)=0:�
�)��k(a%,c$):�a(c%,a%,c$,0):�b(c%,a%):�
�/ݤb:�a%-b=14��a(a%-7)=1�a(a%)=0��d(a%-7):=1
�,�a%-b=-14��a(a%+7)=1�a(a%)=0��d(a%+7):=1
�?�a%-b=2�((a%-3)�7)=((b-3)�7)��a(a%-1)=1�a(a%)=0��d(a%-1):=1
�@�a%-b=-2�((a%-3)�7)=((b-3)�7)��a(a%+1)=1�a(a%)=0��d(a%+1):=1
�=0
�|��v:a(a%)=1:a(b)=0:�a(c%,b,"hole"+�a(b),0):�b(c%,b):�a(c%,a%,"hole"+�a(a%),0):�b(c%,a%):i-=1:m=�:�I=5�49:�a(I)<>c(I)�m=�
�J�:� m=� � $l="Well done!!":compl=�:�b(c%,c-3):� �a(c%,c,�i,0):�b(c%,c)
�,e=�:b=52:j+=1:�a(c%,61,�j,0):�b(c%,61):�
�3��d(y%):a(y%)=0:�a(c%,y%,"hole0",0):�b(c%,y%):�
����t:e=�:b=52:j=0:i=d:a()=b():b%!0=c%:ș"Wimp_GetWindowState",,b%:ș"Wimp_CloseWindow",,b%:ș"Wimp_DeleteWindow",,b%:$(g%+72)="Solitaire":ș"Wimp_CreateWindow",,g%�c%:$l="Pegs left :":�I=5�49:�a(c%,I,"hole"+�(a(I)),0):�
�a(c%,c,�i,0):�b(c%,c):�h:�
'��n:c()=-1:�I=0�32:�h:�h=27�k=1�k=0
#c(h)=k:�a(j%,h,"hole"+�k,0):�:�
$e� 5,6,7,12,13,14,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,40,41,42,47,48,49
.#��i:�a(k%,c,�d,0):�b(k%,c):�f:�
8=��f:�a(j%,c,�f,0):�b(j%,c):�a(j%,61,�(d-f),0):�b(j%,61):�
B.��p:�!b%=k%�!b%=j%�ș"Wimp_CreateMenu",,-1
L�
�
00000000  0d 00 0a 1f f4 3e 3c 53  6f 6c 69 74 61 69 72 65  |.....><Solitaire|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 18 f4 20 a9 20 4d  61 72 6b 20 4d 61 68 69  |.... . Mark Mahi|
00000030  65 75 20 31 39 39 31 0d  00 1e cd de 71 25 20 34  |eu 1991.....q% 4|
00000040  2c 62 25 20 31 30 32 34  2c 67 25 20 32 39 37 32  |,b% 1024,g% 2972|
00000050  2c 7a 25 20 31 32 30 30  3a de 41 25 20 32 35 36  |,z% 1200:.A% 256|
00000060  2c 42 25 20 31 30 32 34  2c 68 25 20 35 31 32 2c  |,B% 1024,h% 512,|
00000070  6e 25 20 35 31 32 3a de  65 28 34 34 29 3a de 62  |n% 512:.e(44):.b|
00000080  28 38 31 29 2c 63 28 38  31 29 3a de 4f 25 20 35  |(81),c(81):.O% 5|
00000090  31 32 3a de 66 28 36 33  29 3a de 61 20 31 30 32  |12:.f(63):.a 102|
000000a0  34 3a de 67 28 31 39 29  3a de 64 28 34 29 3a 64  |4:.g(19):.d(4):d|
000000b0  28 31 29 3d 31 32 3a 64  28 32 29 3d 31 32 3a 64  |(1)=12:d(2)=12:d|
000000c0  28 33 29 3d 30 3a 64 28  34 29 3d 30 3a 67 3d 30  |(3)=0:d(4)=0:g=0|
000000d0  3a 50 25 3d 31 3a 6c 25  3d 30 3a 6a 3d 30 3a 63  |:P%=1:l%=0:j=0:c|
000000e0  3d 36 37 3a de 61 28 38  31 29 3a e3 49 3d 30 b8  |=67:.a(81):.I=0.|
000000f0  38 31 3a 61 28 49 29 3d  2d 31 3a ed 3a f2 6c 3a  |81:a(I)=-1:.:.l:|
00000100  62 3d 35 32 0d 00 28 12  65 3d b9 3a 24 71 25 3d  |b=52..(.e=.:$q%=|
00000110  22 54 41 53 4b 22 0d 00  32 38 c8 99 22 57 69 6d  |"TASK"..28.."Wim|
00000120  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
00000130  30 2c 21 71 25 2c 22 53  6f 6c 69 74 61 69 72 65  |0,!q%,"Solitaire|
00000140  22 b8 43 25 3a ee 85 f2  67 28 b9 29 3a e0 0d 00  |".C%:...g(.):...|
00000150  3c e2 f2 6d 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |<..m:.."Wimp_Ope|
00000160  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 22 3c 53 6f  |nTemplate",,"<So|
00000170  6c 69 74 61 69 72 65 24  44 69 72 3e 2e 54 65 6d  |litaire$Dir>.Tem|
00000180  70 6c 61 74 65 73 22 3a  c8 99 22 57 69 6d 70 5f  |plates":.."Wimp_|
00000190  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 67  |LoadTemplate",,g|
000001a0  25 2c 41 25 2c 41 25 2b  32 35 36 2c 2d 31 2c 22  |%,A%,A%+256,-1,"|
000001b0  6d 61 69 6e 22 2c 30 3a  67 25 21 36 34 3d 6f 25  |main",0:g%!64=o%|
000001c0  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |:.."Wimp_CreateW|
000001d0  69 6e 64 6f 77 22 2c 2c  67 25 b8 63 25 3a 24 28  |indow",,g%.c%:$(|
000001e0  67 25 2b 37 32 29 3d 22  53 74 61 72 74 22 3a 67  |g%+72)="Start":g|
000001f0  25 21 34 34 2b 3d 36 34  3a 67 25 21 35 32 3d 2d  |%!44+=64:g%!52=-|
00000200  38 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |8:.."Wimp_Create|
00000210  57 69 6e 64 6f 77 22 2c  2c 67 25 b8 6b 25 3a 24  |Window",,g%.k%:$|
00000220  28 67 25 2b 37 32 29 3d  22 46 69 6e 69 73 68 22  |(g%+72)="Finish"|
00000230  0d 00 46 cf c8 99 22 57  69 6d 70 5f 43 72 65 61  |..F..."Wimp_Crea|
00000240  74 65 57 69 6e 64 6f 77  22 2c 2c 67 25 b8 6a 25  |teWindow",,g%.j%|
00000250  3a 67 25 21 34 34 2d 3d  36 34 3a 67 25 21 35 32  |:g%!44-=64:g%!52|
00000260  3d 30 3a c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |=0:.."Wimp_LoadT|
00000270  65 6d 70 6c 61 74 65 22  2c 2c 7a 25 2c 42 25 2c  |emplate",,z%,B%,|
00000280  42 25 2b 31 30 32 34 2c  2d 31 2c 22 69 6e 66 6f  |B%+1024,-1,"info|
00000290  22 2c 30 3a 7a 25 21 36  34 3d 6f 25 3a c8 99 22  |",0:z%!64=o%:.."|
000002a0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000002b0  77 22 2c 2c 7a 25 b8 44  25 3a c8 99 22 57 69 6d  |w",,z%.D%:.."Wim|
000002c0  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
000002d0  3a f2 6e 3a 62 28 29 3d  2d 31 3a f7 8d 54 64 44  |:.n:b()=-1:..TdD|
000002e0  3a e3 49 3d 30 b8 33 32  3a f3 6e 3a 62 28 6e 29  |:.I=0.32:.n:b(n)|
000002f0  3d 31 3a ed 3a 62 28 32  37 29 3d 30 3a f2 6f 0d  |=1:.:b(27)=0:.o.|
00000300  00 50 0b ee 85 f2 67 28  a3 29 0d 00 5a 3b f2 65  |.P....g(.)..Z;.e|
00000310  28 63 25 2c 63 2d 33 29  3a 6c 3d 6f 3a 4a 25 3d  |(c%,c-3):l=o:J%=|
00000320  30 3a 70 25 3d a3 3a f5  3a c8 99 22 57 69 6d 70  |0:p%=.:.:.."Wimp|
00000330  5f 50 6f 6c 6c 22 2c 4a  25 2c 62 25 b8 4b 25 3a  |_Poll",J%,b%.K%:|
00000340  c8 8e 4b 25 ca 0d 00 64  1e c9 32 3a c8 99 22 57  |..K%...d..2:.."W|
00000350  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000360  2c 62 25 0d 00 6e 22 c9  33 3a f2 70 3a c8 99 22  |,b%..n".3:.p:.."|
00000370  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000380  22 2c 2c 62 25 0d 00 78  10 c9 36 3a f2 71 28 62  |",,b%..x..6:.q(b|
00000390  25 21 31 36 29 0d 00 82  09 c9 39 3a f2 72 0d 00  |%!16).....9:.r..|
000003a0  8c 13 c9 31 37 2c 31 38  3a c8 8e 62 25 21 31 36  |...17,18:..b%!16|
000003b0  ca 0d 00 96 0b c9 30 3a  70 25 3d b9 0d 00 a0 05  |......0:p%=.....|
000003c0  cb 0d 00 aa 05 cb 0d 00  b4 23 fd 70 25 3a c8 99  |.........#.p%:..|
000003d0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000003e0  2c 43 25 2c 21 71 25 3a  e0 0d 00 be 04 0d 00 c8  |,C%,!q%:........|
000003f0  7b dd f2 67 28 4c 25 29  3a c8 99 22 57 69 6d 70  |{..g(L%):.."Wimp|
00000400  5f 44 72 61 67 42 6f 78  22 2c 2c 30 3a 21 62 25  |_DragBox",,0:!b%|
00000410  3d 9f 3a 24 28 62 25 2b  34 29 3d f6 24 2b 22 20  |=.:$(b%+4)=.$+" |
00000420  28 69 6e 74 65 72 6e 61  6c 20 65 72 72 6f 72 20  |(internal error |
00000430  63 6f 64 65 20 22 2b c3  9e 2b 22 29 22 3a c8 99  |code "+..+")":..|
00000440  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00000450  72 22 2c 62 25 2c 31 2c  22 53 6f 6c 69 74 61 69  |r",b%,1,"Solitai|
00000460  72 65 22 3a e7 4c 25 8c  0d 00 d2 1d c8 99 22 57  |re":.L%......."W|
00000470  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 43  |imp_CloseDown",C|
00000480  25 2c 21 71 25 0d 00 dc  05 cd 0d 00 e6 05 e1 0d  |%,!q%...........|
00000490  00 f0 04 0d 00 fa e5 dd  f2 6d 3a 64 3d 33 32 3a  |.........m:d=32:|
000004a0  69 3d 64 3a 66 3d 31 3a  53 25 3d 8e 22 3c 53 6f  |i=d:f=1:S%=."<So|
000004b0  6c 69 74 61 69 72 65 24  44 69 72 3e 2e 53 70 72  |litaire$Dir>.Spr|
000004c0  69 74 65 73 22 3a 54 25  3d 28 a2 23 53 25 29 2b  |ites":T%=(.#S%)+|
000004d0  31 36 3a d9 23 53 25 3a  de 6f 25 20 54 25 3a 21  |16:.#S%:.o% T%:!|
000004e0  6f 25 3d 54 25 3a 6f 25  21 34 3d 30 3a 6f 25 21  |o%=T%:o%!4=0:o%!|
000004f0  38 3d 31 36 3a 6f 25 21  31 32 3d 31 36 3a c8 99  |8=16:o%!12=16:..|
00000500  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 36  |"OS_SpriteOp",26|
00000510  36 2c 6f 25 2c 22 3c 53  6f 6c 69 74 61 69 72 65  |6,o%,"<Solitaire|
00000520  24 44 69 72 3e 2e 53 70  72 69 74 65 73 22 3a 68  |$Dir>.Sprites":h|
00000530  25 21 30 3d 2d 31 3a 68  25 21 34 3d 30 3a 68 25  |%!0=-1:h%!4=0:h%|
00000540  21 31 32 3d 36 38 3a 68  25 21 38 3d 30 3a 68 25  |!12=68:h%!8=0:h%|
00000550  21 31 36 3d 36 38 3a 68  25 21 32 30 3d 31 32 32  |!16=68:h%!20=122|
00000560  39 30 3a 24 28 68 25 2b  32 34 29 3d 22 21 53 6f  |90:$(h%+24)="!So|
00000570  6c 69 74 61 69 72 65 22  0d 01 04 0b 63 6f 6d 70  |litaire"....comp|
00000580  6c 3d a3 0d 01 0e 20 c8  99 22 57 69 6d 70 5f 43  |l=.... .."Wimp_C|
00000590  72 65 61 74 65 49 63 6f  6e 22 2c 2c 68 25 b8 45  |reateIcon",,h%.E|
000005a0  25 3a e1 0d 01 18 04 0d  01 22 45 dd f2 68 3a 62  |%:......."E..h:b|
000005b0  25 21 30 3d 63 25 3a c8  99 22 57 69 6d 70 5f 47  |%!0=c%:.."Wimp_G|
000005c0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000005d0  62 25 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |b%:.."Wimp_OpenW|
000005e0  69 6e 64 6f 77 22 2c 2c  62 25 3a e1 0d 01 2c 04  |indow",,b%:...,.|
000005f0  0d 01 36 69 dd f2 62 28  46 25 2c 4d 25 29 3a 6e  |..6i..b(F%,M%):n|
00000600  25 21 30 3d 46 25 3a 6e  25 21 34 3d 4d 25 3a c8  |%!0=F%:n%!4=M%:.|
00000610  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00000620  61 74 65 22 2c 2c 6e 25  3a c8 99 22 57 69 6d 70  |ate",,n%:.."Wimp|
00000630  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 46 25  |_ForceRedraw",F%|
00000640  2c 6e 25 21 38 2c 6e 25  21 31 32 2c 6e 25 21 31  |,n%!8,n%!12,n%!1|
00000650  36 2c 6e 25 21 32 30 3a  e1 0d 01 40 04 0d 01 4a  |6,n%!20:...@...J|
00000660  21 dd f2 71 28 61 25 29  3a e7 62 25 21 31 36 3d  |!..q(a%):.b%!16=|
00000670  45 25 80 62 25 21 38 3d  32 f2 63 28 31 29 0d 01  |E%.b%!8=2.c(1)..|
00000680  54 19 e7 62 25 21 38 3d  32 80 62 25 21 31 32 3d  |T..b%!8=2.b%!12=|
00000690  63 25 f2 63 28 32 29 0d  01 5e 0c c8 8e 62 25 21  |c%.c(2)..^...b%!|
000006a0  31 32 ca 0d 01 68 11 c9  2d 32 3a e7 62 25 21 31  |12...h..-2:.b%!1|
000006b0  36 3d 45 25 0d 01 72 0b  c8 8e 62 25 21 38 ca 0d  |6=E%..r...b%!8..|
000006c0  01 7c 09 c9 34 3a f2 68  0d 01 86 05 cb 0d 01 90  |.|..4:.h........|
000006d0  05 cb 0d 01 9a 19 e7 62  25 21 31 32 3d 6b 25 80  |.......b%!12=k%.|
000006e0  61 25 3e 34 80 61 25 3c  35 30 8c 0d 01 a4 4c e7  |a%>4.a%<50....L.|
000006f0  62 25 21 38 3d 34 80 62  28 61 25 29 3d 30 80 64  |b%!8=4.b(a%)=0.d|
00000700  3c 33 32 8c 62 28 61 25  29 3d 31 3a f2 61 28 6b  |<32.b(a%)=1:.a(k|
00000710  25 2c 61 25 2c 22 68 6f  6c 65 22 2b c3 62 28 61  |%,a%,"hole"+.b(a|
00000720  25 29 2c 30 29 3a f2 62  28 6b 25 2c 61 25 29 3a  |%),0):.b(k%,a%):|
00000730  64 2b 3d 31 3a f2 69 0d  01 ae 53 e7 62 25 21 38  |d+=1:.i...S.b%!8|
00000740  3d 31 80 66 3c 28 64 2d  31 29 80 62 28 61 25 29  |=1.f<(d-1).b(a%)|
00000750  3d 31 80 64 3e 32 8c 62  28 61 25 29 3d 30 3a f2  |=1.d>2.b(a%)=0:.|
00000760  61 28 6b 25 2c 61 25 2c  22 68 6f 6c 65 22 2b c3  |a(k%,a%,"hole"+.|
00000770  62 28 61 25 29 2c 30 29  3a f2 62 28 6b 25 2c 61  |b(a%),0):.b(k%,a|
00000780  25 29 3a 64 2d 3d 31 3a  f2 69 0d 01 b8 05 cd 0d  |%):d-=1:.i......|
00000790  01 c2 19 e7 62 25 21 31  32 3d 6a 25 80 61 25 3e  |....b%!12=j%.a%>|
000007a0  34 80 61 25 3c 35 30 8c  0d 01 cc 54 e7 62 25 21  |4.a%<50....T.b%!|
000007b0  38 3d 34 80 28 66 2b 31  29 3c 64 80 63 28 61 25  |8=4.(f+1)<d.c(a%|
000007c0  29 3d 30 80 66 3c 33 32  8c 63 28 61 25 29 3d 31  |)=0.f<32.c(a%)=1|
000007d0  3a f2 61 28 6a 25 2c 61  25 2c 22 68 6f 6c 65 22  |:.a(j%,a%,"hole"|
000007e0  2b c3 63 28 61 25 29 2c  30 29 3a f2 62 28 6a 25  |+.c(a%),0):.b(j%|
000007f0  2c 61 25 29 3a 66 2b 3d  31 3a f2 66 0d 01 d6 4b  |,a%):f+=1:.f...K|
00000800  e7 62 25 21 38 3d 31 80  63 28 61 25 29 3d 31 80  |.b%!8=1.c(a%)=1.|
00000810  66 3e 31 8c 63 28 61 25  29 3d 30 3a f2 61 28 6a  |f>1.c(a%)=0:.a(j|
00000820  25 2c 61 25 2c 22 68 6f  6c 65 22 2b c3 63 28 61  |%,a%,"hole"+.c(a|
00000830  25 29 2c 30 29 3a f2 62  28 6a 25 2c 61 25 29 3a  |%),0):.b(j%,a%):|
00000840  66 2d 3d 31 3a f2 66 0d  01 e0 05 cd 0d 01 ea 1e  |f-=1:.f.........|
00000850  e7 62 25 21 31 32 3d 63  25 80 62 25 21 38 3d 34  |.b%!12=c%.b%!8=4|
00000860  80 63 6f 6d 70 6c 3d a3  20 8c 0d 01 f4 14 f2 65  |.compl=. ......e|
00000870  28 63 25 2c 61 25 29 3a  f2 73 28 61 25 29 0d 01  |(c%,a%):.s(a%)..|
00000880  fe 05 cd 0d 02 08 05 e1  0d 02 12 11 dd f2 63 28  |..............c(|
00000890  47 25 29 3a c8 8e 47 25  ca 0d 02 1c 2a c9 31 3a  |G%):..G%....*.1:|
000008a0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
000008b0  6e 75 22 2c 2c 73 25 2c  62 25 21 30 2d 36 34 2c  |nu",,s%,b%!0-64,|
000008c0  31 38 34 0d 02 26 2e c9  32 3a c8 99 22 57 69 6d  |184..&..2:.."Wim|
000008d0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 74  |p_CreateMenu",,t|
000008e0  25 2c 62 25 21 30 2d 36  34 2c 62 25 21 34 2b 31  |%,b%!0-64,b%!4+1|
000008f0  36 0d 02 30 05 cb 0d 02  3a 13 e7 47 25 3d 31 8c  |6..0....:..G%=1.|
00000900  67 3d 2d 32 8b 67 3d 63  25 0d 02 44 05 e1 0d 02  |g=-2.g=c%..D....|
00000910  4e e1 dd f2 6f 3a de 66  25 20 35 38 30 3a 73 25  |N...o:.f% 580:s%|
00000920  3d 66 25 3a 24 66 25 3d  22 53 6f 6c 69 74 61 69  |=f%:$f%="Solitai|
00000930  72 65 22 3a 66 25 21 31  32 3d 34 35 39 32 37 31  |re":f%!12=459271|
00000940  3a 66 25 21 31 36 3d 31  35 30 3a 66 25 21 32 30  |:f%!16=150:f%!20|
00000950  3d 34 34 3a 66 25 21 32  34 3d 30 3a 66 25 2b 3d  |=44:f%!24=0:f%+=|
00000960  32 38 3a 66 25 21 30 3d  30 3a 66 25 21 34 3d 44  |28:f%!0=0:f%!4=D|
00000970  25 3a 66 25 21 38 3d 26  37 30 30 30 30 32 31 3a  |%:f%!8=&7000021:|
00000980  24 28 66 25 2b 31 32 29  3d 22 49 6e 66 6f 22 3a  |$(f%+12)="Info":|
00000990  66 25 21 32 34 3d 31 32  38 3a 66 25 21 32 38 3d  |f%!24=128:f%!28=|
000009a0  2d 31 3a 66 25 21 33 32  3d 26 37 30 30 30 30 32  |-1:f%!32=&700002|
000009b0  31 3a 24 28 66 25 2b 33  36 29 3d 22 51 75 69 74  |1:$(f%+36)="Quit|
000009c0  22 3a de 64 25 20 31 35  30 30 3a de 65 25 20 31  |":.d% 1500:.e% 1|
000009d0  30 32 34 3a 4e 25 3d 65  25 3a 74 25 3d 64 25 3a  |024:N%=e%:t%=d%:|
000009e0  24 64 25 3d 22 53 6f 6c  69 74 61 69 72 65 22 0d  |$d%="Solitaire".|
000009f0  02 58 ce 64 25 21 31 32  3d 34 35 39 32 37 31 3a  |.X.d%!12=459271:|
00000a00  64 25 21 31 36 3d 31 35  30 3a 64 25 21 32 30 3d  |d%!16=150:d%!20=|
00000a10  34 34 3a 64 25 21 32 34  3d 30 3a 64 25 2b 3d 32  |44:d%!24=0:d%+=2|
00000a20  38 3a 64 25 21 30 3d 30  3a 64 25 21 34 3d 44 25  |8:d%!0=0:d%!4=D%|
00000a30  3a 64 25 21 38 3d 26 37  30 30 30 30 32 31 3a 24  |:d%!8=&7000021:$|
00000a40  28 64 25 2b 31 32 29 3d  22 49 6e 66 6f 22 3a 64  |(d%+12)="Info":d|
00000a50  25 21 32 34 3d 30 3a 64  25 21 32 38 3d 4e 25 3a  |%!24=0:d%!28=N%:|
00000a60  64 25 21 33 32 3d 26 37  30 30 30 30 32 31 3a 24  |d%!32=&7000021:$|
00000a70  28 64 25 2b 33 36 29 3d  22 42 6f 61 72 64 22 3a  |(d%+36)="Board":|
00000a80  64 25 21 34 38 3d 31 32  38 3a 64 25 21 35 32 3d  |d%!48=128:d%!52=|
00000a90  2d 31 3a 64 25 21 35 36  3d 26 37 30 30 30 30 32  |-1:d%!56=&700002|
00000aa0  31 3a 24 28 64 25 2b 36  30 29 3d 22 51 75 69 74  |1:$(d%+60)="Quit|
00000ab0  22 3a 24 65 25 3d 22 42  6f 61 72 64 22 0d 02 62  |":$e%="Board"..b|
00000ac0  c5 65 25 21 31 32 3d 34  35 39 32 37 31 3a 65 25  |.e%!12=459271:e%|
00000ad0  21 31 36 3d 31 35 30 3a  65 25 21 32 30 3d 34 34  |!16=150:e%!20=44|
00000ae0  3a 65 25 21 32 34 3d 30  3a 65 25 2b 3d 32 38 3a  |:e%!24=0:e%+=28:|
00000af0  65 25 21 30 3d 30 3a 65  25 21 34 3d 2d 31 3a 65  |e%!0=0:e%!4=-1:e|
00000b00  25 21 38 3d 26 37 30 30  30 30 32 31 3a 24 28 65  |%!8=&7000021:$(e|
00000b10  25 2b 31 32 29 3d 22 4e  65 77 22 3a 65 25 21 32  |%+12)="New":e%!2|
00000b20  34 3d 30 3a 65 25 21 32  38 3d 6b 25 3a 65 25 21  |4=0:e%!28=k%:e%!|
00000b30  33 32 3d 26 37 30 30 30  30 32 31 3a 24 28 65 25  |32=&7000021:$(e%|
00000b40  2b 33 36 29 3d 22 53 74  61 72 74 22 3a 65 25 21  |+36)="Start":e%!|
00000b50  34 38 3d 31 32 38 3a 65  25 21 35 32 3d 6a 25 3a  |48=128:e%!52=j%:|
00000b60  65 25 21 35 36 3d 26 37  30 30 30 30 32 31 3a 24  |e%!56=&7000021:$|
00000b70  28 65 25 2b 36 30 29 3d  22 46 69 6e 69 73 68 22  |(e%+60)="Finish"|
00000b80  3a e1 0d 02 6c 13 dd f2  6a 28 48 25 29 3a e7 48  |:...l...j(H%):.H|
00000b90  25 3d 73 25 8c 0d 02 76  10 e7 62 25 21 30 3d 31  |%=s%...v..b%!0=1|
00000ba0  8c 70 25 3d b9 0d 02 80  05 cd 0d 02 8a 0b e7 48  |.p%=...........H|
00000bb0  25 3d 74 25 8c 0d 02 94  1d e7 62 25 21 30 3d 31  |%=t%......b%!0=1|
00000bc0  80 62 25 21 34 3d 30 8c  f2 74 3a 63 6f 6d 70 6c  |.b%!4=0..t:compl|
00000bd0  3d a3 0d 02 9e 10 e7 62  25 21 30 3d 32 8c 70 25  |=......b%!0=2.p%|
00000be0  3d b9 0d 02 a8 05 cd 0d  02 b2 05 e1 0d 02 bc 0c  |=...............|
00000bf0  dd f2 72 3a c8 8e 67 ca  0d 02 c6 0e c9 2d 32 3a  |..r:..g......-2:|
00000c00  f2 6a 28 73 25 29 0d 02  d0 0e c9 63 25 3a f2 6a  |.j(s%).....c%:.j|
00000c10  28 74 25 29 0d 02 da 05  cb 0d 02 e4 39 e7 67 3d  |(t%)........9.g=|
00000c20  63 25 80 70 25 3d a3 3a  c8 99 22 57 69 6d 70 5f  |c%.p%=.:.."Wimp_|
00000c30  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00000c40  2c 68 25 3a e7 68 25 21  38 3d 31 f2 63 28 32 29  |,h%:.h%!8=1.c(2)|
00000c50  3a e1 0d 02 ee 3c e7 67  21 31 32 3d 2d 32 80 70  |:....<.g!12=-2.p|
00000c60  25 3d a3 3a c8 99 22 57  69 6d 70 5f 47 65 74 50  |%=.:.."Wimp_GetP|
00000c70  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 68 25 3a  |ointerInfo",,h%:|
00000c80  e7 68 25 21 38 3d 31 f2  63 28 31 29 3a e1 0d 02  |.h%!8=1.c(1):...|
00000c90  f8 05 e1 0d 03 02 70 dd  f2 65 28 6d 25 2c 61 25  |......p..e(m%,a%|
00000ca0  29 3a 61 21 30 3d 6d 25  3a 61 21 34 3d 61 25 3a  |):a!0=m%:a!4=a%:|
00000cb0  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00000cc0  74 61 74 65 22 2c 2c 61  3a 75 25 3d 61 21 38 3a  |tate",,a:u%=a!8:|
00000cd0  76 25 3d 61 21 31 32 3a  77 25 3d 61 21 31 36 3a  |v%=a!12:w%=a!16:|
00000ce0  78 25 3d 61 21 32 30 3a  72 25 3d 61 21 32 34 3a  |x%=a!20:r%=a!24:|
00000cf0  61 24 3d 24 28 61 2b 32  38 29 3a 6f 3d 61 21 32  |a$=$(a+28):o=a!2|
00000d00  38 3a e1 0d 03 0c 04 0d  03 16 04 0d 03 20 1e dd  |8:........... ..|
00000d10  f2 61 28 6d 25 2c 61 25  2c 62 24 2c 49 25 29 3a  |.a(m%,a%,b$,I%):|
00000d20  f2 65 28 6d 25 2c 61 25  29 0d 03 2a 28 61 21 30  |.e(m%,a%)..*(a!0|
00000d30  3d 6d 25 3a 61 21 34 3d  61 25 3a c8 99 22 57 69  |=m%:a!4=a%:.."Wi|
00000d40  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
00000d50  61 0d 03 34 0f e7 49 25  3c 3e 30 72 25 3d 49 25  |a..4..I%<>0r%=I%|
00000d60  0d 03 3e 57 61 21 30 3d  6d 25 3a 61 21 34 3d 75  |..>Wa!0=m%:a!4=u|
00000d70  25 3a 61 21 38 3d 76 25  3a 61 21 31 32 3d 77 25  |%:a!8=v%:a!12=w%|
00000d80  3a 61 21 31 36 3d 78 25  3a 61 21 32 30 3d 72 25  |:a!16=x%:a!20=r%|
00000d90  3a 24 28 61 2b 32 34 29  3d 62 24 3a c8 99 22 57  |:$(a+24)=b$:.."W|
00000da0  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00000db0  2c 61 20 b8 20 61 25 0d  03 48 05 e1 0d 03 52 19  |,a . a%..H....R.|
00000dc0  dd f2 73 28 61 25 29 3a  e7 61 25 3c 35 84 61 25  |..s(a%):.a%<5.a%|
00000dd0  3e 34 39 8c e1 0d 03 5c  10 e7 65 80 61 28 61 25  |>49....\..e.a(a%|
00000de0  29 3d 30 8c e1 0d 03 66  27 e7 61 25 3d 62 80 65  |)=0....f'.a%=b.e|
00000df0  3d a3 8c 62 3d 35 32 3a  f2 6b 28 61 25 2c 22 68  |=..b=52:.k(a%,"h|
00000e00  6f 6c 65 31 22 29 3a 65  3d b9 3a e1 0d 03 70 20  |ole1"):e=.:...p |
00000e10  e7 65 8c 62 3d 61 25 3a  f2 6b 28 61 25 2c 22 68  |.e.b=a%:.k(a%,"h|
00000e20  6f 6c 65 32 22 29 3a 65  3d a3 3a e1 0d 03 7a 11  |ole2"):e=.:...z.|
00000e30  e7 65 3d a3 8c e7 a4 62  8c f2 76 3a e1 0d 03 84  |.e=....b..v:....|
00000e40  05 e1 0d 03 8e 89 dd f2  6c 3a 65 28 29 3d 35 2c  |........l:e()=5,|
00000e50  36 2c 37 2c 31 32 2c 31  33 2c 31 34 2c 31 37 2c  |6,7,12,13,14,17,|
00000e60  31 38 2c 31 39 2c 32 30  2c 32 31 2c 32 32 2c 32  |18,19,20,21,22,2|
00000e70  33 2c 32 34 2c 32 35 2c  32 36 2c 32 37 2c 32 38  |3,24,25,26,27,28|
00000e80  2c 32 39 2c 33 30 2c 33  31 2c 33 32 2c 33 33 2c  |,29,30,31,32,33,|
00000e90  33 34 2c 33 35 2c 33 36  2c 33 37 2c 34 30 2c 34  |34,35,36,37,40,4|
00000ea0  31 2c 34 32 2c 34 37 2c  34 38 2c 34 39 3a e3 49  |1,42,47,48,49:.I|
00000eb0  3d 30 b8 33 32 3a 61 28  65 28 49 29 29 3d 31 3a  |=0.32:a(e(I))=1:|
00000ec0  ed 3a 61 28 32 37 29 3d  30 3a e1 0d 03 98 29 dd  |.:a(27)=0:....).|
00000ed0  f2 6b 28 61 25 2c 63 24  29 3a f2 61 28 63 25 2c  |.k(a%,c$):.a(c%,|
00000ee0  61 25 2c 63 24 2c 30 29  3a f2 62 28 63 25 2c 61  |a%,c$,0):.b(c%,a|
00000ef0  25 29 3a e1 0d 03 a2 2f  dd a4 62 3a e7 61 25 2d  |%):..../..b:.a%-|
00000f00  62 3d 31 34 8c e7 61 28  61 25 2d 37 29 3d 31 80  |b=14..a(a%-7)=1.|
00000f10  61 28 61 25 29 3d 30 8c  f2 64 28 61 25 2d 37 29  |a(a%)=0..d(a%-7)|
00000f20  3a 3d 31 0d 03 ac 2c e7  61 25 2d 62 3d 2d 31 34  |:=1...,.a%-b=-14|
00000f30  8c e7 61 28 61 25 2b 37  29 3d 31 80 61 28 61 25  |..a(a%+7)=1.a(a%|
00000f40  29 3d 30 8c f2 64 28 61  25 2b 37 29 3a 3d 31 0d  |)=0..d(a%+7):=1.|
00000f50  03 b6 3f e7 61 25 2d 62  3d 32 80 28 28 61 25 2d  |..?.a%-b=2.((a%-|
00000f60  33 29 81 37 29 3d 28 28  62 2d 33 29 81 37 29 8c  |3).7)=((b-3).7).|
00000f70  e7 61 28 61 25 2d 31 29  3d 31 80 61 28 61 25 29  |.a(a%-1)=1.a(a%)|
00000f80  3d 30 8c f2 64 28 61 25  2d 31 29 3a 3d 31 0d 03  |=0..d(a%-1):=1..|
00000f90  c0 40 e7 61 25 2d 62 3d  2d 32 80 28 28 61 25 2d  |.@.a%-b=-2.((a%-|
00000fa0  33 29 81 37 29 3d 28 28  62 2d 33 29 81 37 29 8c  |3).7)=((b-3).7).|
00000fb0  e7 61 28 61 25 2b 31 29  3d 31 80 61 28 61 25 29  |.a(a%+1)=1.a(a%)|
00000fc0  3d 30 8c f2 64 28 61 25  2b 31 29 3a 3d 31 0d 03  |=0..d(a%+1):=1..|
00000fd0  ca 06 3d 30 0d 03 d4 7c  dd f2 76 3a 61 28 61 25  |..=0...|..v:a(a%|
00000fe0  29 3d 31 3a 61 28 62 29  3d 30 3a f2 61 28 63 25  |)=1:a(b)=0:.a(c%|
00000ff0  2c 62 2c 22 68 6f 6c 65  22 2b c3 61 28 62 29 2c  |,b,"hole"+.a(b),|
00001000  30 29 3a f2 62 28 63 25  2c 62 29 3a f2 61 28 63  |0):.b(c%,b):.a(c|
00001010  25 2c 61 25 2c 22 68 6f  6c 65 22 2b c3 61 28 61  |%,a%,"hole"+.a(a|
00001020  25 29 2c 30 29 3a f2 62  28 63 25 2c 61 25 29 3a  |%),0):.b(c%,a%):|
00001030  69 2d 3d 31 3a 6d 3d b9  3a e3 49 3d 35 b8 34 39  |i-=1:m=.:.I=5.49|
00001040  3a e7 61 28 49 29 3c 3e  63 28 49 29 8c 6d 3d a3  |:.a(I)<>c(I).m=.|
00001050  0d 03 de 4a ed 3a e7 20  6d 3d b9 20 8c 20 24 6c  |...J.:. m=. . $l|
00001060  3d 22 57 65 6c 6c 20 64  6f 6e 65 21 21 22 3a 63  |="Well done!!":c|
00001070  6f 6d 70 6c 3d b9 3a f2  62 28 63 25 2c 63 2d 33  |ompl=.:.b(c%,c-3|
00001080  29 3a 8b 20 f2 61 28 63  25 2c 63 2c c3 69 2c 30  |):. .a(c%,c,.i,0|
00001090  29 3a f2 62 28 63 25 2c  63 29 0d 03 e8 2c 65 3d  |):.b(c%,c)...,e=|
000010a0  b9 3a 62 3d 35 32 3a 6a  2b 3d 31 3a f2 61 28 63  |.:b=52:j+=1:.a(c|
000010b0  25 2c 36 31 2c c3 6a 2c  30 29 3a f2 62 28 63 25  |%,61,.j,0):.b(c%|
000010c0  2c 36 31 29 3a e1 0d 03  f2 33 dd f2 64 28 79 25  |,61):....3..d(y%|
000010d0  29 3a 61 28 79 25 29 3d  30 3a f2 61 28 63 25 2c  |):a(y%)=0:.a(c%,|
000010e0  79 25 2c 22 68 6f 6c 65  30 22 2c 30 29 3a f2 62  |y%,"hole0",0):.b|
000010f0  28 63 25 2c 79 25 29 3a  e1 0d 03 fc de dd f2 74  |(c%,y%):.......t|
00001100  3a 65 3d b9 3a 62 3d 35  32 3a 6a 3d 30 3a 69 3d  |:e=.:b=52:j=0:i=|
00001110  64 3a 61 28 29 3d 62 28  29 3a 62 25 21 30 3d 63  |d:a()=b():b%!0=c|
00001120  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
00001130  64 6f 77 53 74 61 74 65  22 2c 2c 62 25 3a c8 99  |dowState",,b%:..|
00001140  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00001150  77 22 2c 2c 62 25 3a c8  99 22 57 69 6d 70 5f 44  |w",,b%:.."Wimp_D|
00001160  65 6c 65 74 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |eleteWindow",,b%|
00001170  3a 24 28 67 25 2b 37 32  29 3d 22 53 6f 6c 69 74  |:$(g%+72)="Solit|
00001180  61 69 72 65 22 3a c8 99  22 57 69 6d 70 5f 43 72  |aire":.."Wimp_Cr|
00001190  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 67 25 b8  |eateWindow",,g%.|
000011a0  63 25 3a 24 6c 3d 22 50  65 67 73 20 6c 65 66 74  |c%:$l="Pegs left|
000011b0  20 3a 22 3a e3 49 3d 35  b8 34 39 3a f2 61 28 63  | :":.I=5.49:.a(c|
000011c0  25 2c 49 2c 22 68 6f 6c  65 22 2b c3 28 61 28 49  |%,I,"hole"+.(a(I|
000011d0  29 29 2c 30 29 3a ed 0d  04 06 1f f2 61 28 63 25  |)),0):......a(c%|
000011e0  2c 63 2c c3 69 2c 30 29  3a f2 62 28 63 25 2c 63  |,c,.i,0):.b(c%,c|
000011f0  29 3a f2 68 3a e1 0d 04  10 27 dd f2 6e 3a 63 28  |):.h:....'..n:c(|
00001200  29 3d 2d 31 3a e3 49 3d  30 b8 33 32 3a f3 68 3a  |)=-1:.I=0.32:.h:|
00001210  e7 68 3d 32 37 8c 6b 3d  31 8b 6b 3d 30 0d 04 1a  |.h=27.k=1.k=0...|
00001220  23 63 28 68 29 3d 6b 3a  f2 61 28 6a 25 2c 68 2c  |#c(h)=k:.a(j%,h,|
00001230  22 68 6f 6c 65 22 2b c3  6b 2c 30 29 3a ed 3a e1  |"hole"+.k,0):.:.|
00001240  0d 04 24 65 dc 20 35 2c  36 2c 37 2c 31 32 2c 31  |..$e. 5,6,7,12,1|
00001250  33 2c 31 34 2c 31 37 2c  31 38 2c 31 39 2c 32 30  |3,14,17,18,19,20|
00001260  2c 32 31 2c 32 32 2c 32  33 2c 32 34 2c 32 35 2c  |,21,22,23,24,25,|
00001270  32 36 2c 32 37 2c 32 38  2c 32 39 2c 33 30 2c 33  |26,27,28,29,30,3|
00001280  31 2c 33 32 2c 33 33 2c  33 34 2c 33 35 2c 33 36  |1,32,33,34,35,36|
00001290  2c 33 37 2c 34 30 2c 34  31 2c 34 32 2c 34 37 2c  |,37,40,41,42,47,|
000012a0  34 38 2c 34 39 0d 04 2e  23 dd f2 69 3a f2 61 28  |48,49...#..i:.a(|
000012b0  6b 25 2c 63 2c c3 64 2c  30 29 3a f2 62 28 6b 25  |k%,c,.d,0):.b(k%|
000012c0  2c 63 29 3a f2 66 3a e1  0d 04 38 3d dd f2 66 3a  |,c):.f:...8=..f:|
000012d0  f2 61 28 6a 25 2c 63 2c  c3 66 2c 30 29 3a f2 62  |.a(j%,c,.f,0):.b|
000012e0  28 6a 25 2c 63 29 3a f2  61 28 6a 25 2c 36 31 2c  |(j%,c):.a(j%,61,|
000012f0  c3 28 64 2d 66 29 2c 30  29 3a f2 62 28 6a 25 2c  |.(d-f),0):.b(j%,|
00001300  36 31 29 3a e1 0d 04 42  2e dd f2 70 3a e7 21 62  |61):...B...p:.!b|
00001310  25 3d 6b 25 84 21 62 25  3d 6a 25 8c c8 99 22 57  |%=k%.!b%=j%..."W|
00001320  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00001330  2c 2d 31 0d 04 4c 05 e1  0d ff                    |,-1..L....|
0000133a