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