�     >!RunImage (Simon2)
� By  Nick Kennedy
� (c) AU May 1994
(
2	�init
<	�main
F:
P
��init
Z�� � !b%=�:$(b%+4)="Error during init:- "+�$+" at line "+Þ:ș"Wimp_ReportError",b%,1,"Simon":ș"Wimp_CloseDown",handle%,&4B534154:�
d8ș"Wimp_Initialise",200,&4B534154,"Simon" � ,handle%
n&�b% &400,m% 128,sname% 15,ord%(19)
x<quit%=�:ply%=�:pic%=�:pat%=�:sho%=�:pti%=0:pch%=�:snd%=�
�5ș "XOS_File",5,"<Obey$Dir>.!Sprites" � ,,,,slen%
�� spr% slen%+4
�!spr%=slen%+4
�3ș"OS_SpriteOp",&10A,spr%,"<Obey$Dir>.!Sprites"
�$ș"OS_SpriteOp",&3E � ,,,svarsz%
�� svar% svarsz%
�W!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=72:b%!20=&310A:b%!24=sname%:b%!28=spr%:b%!32=12
�$sname%="!Simon"
�#ș"Wimp_CreateIcon",,b% � Icon%
�rnd%=�(-�)
��
�:
�
��main

�� � !b%=�:$(b%+4)=�$+" at line "+Þ+". Cancel to Quit":ș"Wimp_ReportError",b%,3,"Simon" � ,status%:� status%=2 ș"Wimp_CloseDown",handle%,&4B534154:�

�

	�poll

"
�quit%

,(ș"Wimp_CloseDown",handle%,&4B534154

6�

@�

J:

T
��poll

^ș"Wimp_Poll",,b% �r%

hȎ r% �

r	� 0 :

|#ș"OS_ReadMonotonicTime" � tim%

�,� pat% � tim%>=pti% �patshow(ord%(ppo%))

�"� sho% � tim%>=pti% �patremove

�-� pch% � tim%>=pti% �pattern(pos%):pch%=�

�� 6 : �mouseclick

�� 9 : Ȏ !b% �

�R� 0 : � �ply% �createicon(-1):�startplay � �createicon(4):ply%=�:pat%=�:sho%=�

�� 1 : snd%=�snd%

�� 2 : quit%=�

��

�6ș"Wimp_GetPointerInfo",,b%:� b%!8 � 1 �createmenu

�� 17,18 : quit%=(b%!16=0)

��

��
:
��mouseclick
1t%=b%!8:win%=b%!12:icn%=b%!16:x%=b%!0:y%=b%!4
&� win%=-2 �
0Ȏ t% �
:D� 4 : � �ply% �createicon(-1):�startplay � � �sho% � �pat% �play
D� 2 : �createmenu
N6� 1 : � ply% � pic% � �pat% � �sho% �pattern(pos%)
X�
b�
l�
v:
���changeicon
�$!b%=-2:b%!4=Icon%:b%!8=0:b%!12=0
�ș"Wimp_SetIconState",,b%
��
�:
���createicon(hili%)
�:ș"OS_SpriteOp",&13C,spr%,"!simon",svar% � r0,r1,r2,r3
��1:ȓȐ0,0,67,67
�Ȏ hili% �
�� 0,1,2,3 : �sect(hili%)
�#� 4       : �i%=0�3:�sect(i%):�
��
�*�7:ȓ0,0,67,67:�34,0,34,67:�0,34,67,34
ș"OS_SpriteOp",r0,r1,r2,r3
�changeicon
�
 :
*��sect(hili%)
4N�8+hili%:ȓȐ34*(hili%�2),34*(1-hili%�2),34*(hili%�2)+34,34*(1-hili%�2)+34
>�
H:
R��startplay
\�i%=0�19
ford%(i%)=�(4)-1
p�
zply%=�:pos%=0:�pattern(0)
��
�:
���pattern(pos%)
�#pic%=�:ppo%=0:�patshow(ord%(0))
��
�:
���patshow(ppc%)
�,ș"OS_ReadMonotonicTime" � pti%:pti%+=25
�<pat%=�:sho%=�:�1,snd%*15,ppc%*26+104,1:�createicon(ppc%)
��
�:
���patremove
�,ș"OS_ReadMonotonicTime" � pti%:pti%+=25
-pat%=�pic%:sho%=�:�createicon(-1):ppo%+=1
?� ppo%>=pos%+1 � pic% pat%=�:pic%=�:pch%=�:pos%+=1:pti%+=25
/� ppo%>=pos%+1 � �pic% pat%=�:pic%=�:ppo%=0
$�� pos%>=20 !b%=0:$(b%+4)="Wow! You survived 20 turns!":ș"Wimp_ReportError",b%,17,"Well done from !Simon":ppo%=0:ply%=�:�createicon(4):pat%=�:sho%=�
.�
8:
B
��play
L
!b%=-2
V ș "Wimp_GetWindowState",,b%
`winox%=b%!4-b%!20
jwinoy%=b%!16-b%!24
t
!b%=-2
~
b%!4=icn%
�ș "Wimp_GetIconState",,b%
�ix%=x%-(winox%+b%!8)
�iy%=y%-(winoy%+b%!12)
�
sec%=0
��ix%>=34 sec%+=1
��iy%<=34 sec%+=2
�"� sec%<>ord%(ppo%) �gameover:�
��patshow(sec%)
��
�:
���gameover
�J!b%=0:$(b%+4)="Bad luck - game over after "+�pos%+" turn"+�s(pos%)+"."
5ș"Wimp_ReportError",b%,17,"Bad luck from !Simon"

.ppo%=0:ply%=�:�createicon(4):pat%=�:sho%=�
�
:
(
ݤs(var%)
2� var%=1 � ="" � ="s"
<:
F��createmenu
P$m%="Simon"
ZIm%!12=&70207:m%!16=90:m%!20=44:m%!24=0:m%!28=0:m%!32=0:m%!36=&7000021
d-� ply% $(m%+40)="Stop" � $(m%+40)="Start"
n7m%!52=�snd%:m%!56=0:m%!60=&7000021:$(m%+64)="Sound"
x4m%!76=&80:m%!80=0:m%!84=&7000021:$(m%+88)="Quit"
�%ș"Wimp_CreateMenu",,m%,x%-70,228
��
�

00000000  0d 00 0a 1d f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 20 28 53 69  6d 6f 6e 32 29 0d 00 14  |mage (Simon2)...|
00000020  16 f4 20 42 79 20 20 4e  69 63 6b 20 4b 65 6e 6e  |.. By  Nick Kenn|
00000030  65 64 79 0d 00 1e 15 f4  20 28 63 29 20 41 55 20  |edy..... (c) AU |
00000040  4d 61 79 20 31 39 39 34  0d 00 28 04 0d 00 32 09  |May 1994..(...2.|
00000050  f2 69 6e 69 74 0d 00 3c  09 f2 6d 61 69 6e 0d 00  |.init..<..main..|
00000060  46 05 3a 0d 00 50 0a dd  f2 69 6e 69 74 0d 00 5a  |F.:..P...init..Z|
00000070  87 ee 20 85 20 21 62 25  3d 9f 3a 24 28 62 25 2b  |.. . !b%=.:$(b%+|
00000080  34 29 3d 22 45 72 72 6f  72 20 64 75 72 69 6e 67  |4)="Error during|
00000090  20 69 6e 69 74 3a 2d 20  22 2b f6 24 2b 22 20 61  | init:- "+.$+" a|
000000a0  74 20 6c 69 6e 65 20 22  2b c3 9e 3a c8 99 22 57  |t line "+..:.."W|
000000b0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
000000c0  2c 62 25 2c 31 2c 22 53  69 6d 6f 6e 22 3a c8 99  |,b%,1,"Simon":..|
000000d0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000000e0  2c 68 61 6e 64 6c 65 25  2c 26 34 42 35 33 34 31  |,handle%,&4B5341|
000000f0  35 34 3a e0 0d 00 64 38  c8 99 22 57 69 6d 70 5f  |54:...d8.."Wimp_|
00000100  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000110  26 34 42 35 33 34 31 35  34 2c 22 53 69 6d 6f 6e  |&4B534154,"Simon|
00000120  22 20 b8 20 2c 68 61 6e  64 6c 65 25 0d 00 6e 26  |" . ,handle%..n&|
00000130  de 62 25 20 26 34 30 30  2c 6d 25 20 31 32 38 2c  |.b% &400,m% 128,|
00000140  73 6e 61 6d 65 25 20 31  35 2c 6f 72 64 25 28 31  |sname% 15,ord%(1|
00000150  39 29 0d 00 78 3c 71 75  69 74 25 3d a3 3a 70 6c  |9)..x<quit%=.:pl|
00000160  79 25 3d a3 3a 70 69 63  25 3d a3 3a 70 61 74 25  |y%=.:pic%=.:pat%|
00000170  3d a3 3a 73 68 6f 25 3d  a3 3a 70 74 69 25 3d 30  |=.:sho%=.:pti%=0|
00000180  3a 70 63 68 25 3d a3 3a  73 6e 64 25 3d b9 0d 00  |:pch%=.:snd%=...|
00000190  82 35 c8 99 20 22 58 4f  53 5f 46 69 6c 65 22 2c  |.5.. "XOS_File",|
000001a0  35 2c 22 3c 4f 62 65 79  24 44 69 72 3e 2e 21 53  |5,"<Obey$Dir>.!S|
000001b0  70 72 69 74 65 73 22 20  b8 20 2c 2c 2c 2c 73 6c  |prites" . ,,,,sl|
000001c0  65 6e 25 0d 00 8c 12 de  20 73 70 72 25 20 73 6c  |en%..... spr% sl|
000001d0  65 6e 25 2b 34 0d 00 96  11 21 73 70 72 25 3d 73  |en%+4....!spr%=s|
000001e0  6c 65 6e 25 2b 34 0d 00  a0 33 c8 99 22 4f 53 5f  |len%+4...3.."OS_|
000001f0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 41 2c 73  |SpriteOp",&10A,s|
00000200  70 72 25 2c 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |pr%,"<Obey$Dir>.|
00000210  21 53 70 72 69 74 65 73  22 0d 00 aa 24 c8 99 22  |!Sprites"...$.."|
00000220  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 33 45  |OS_SpriteOp",&3E|
00000230  20 b8 20 2c 2c 2c 73 76  61 72 73 7a 25 0d 00 b4  | . ,,,svarsz%...|
00000240  13 de 20 73 76 61 72 25  20 73 76 61 72 73 7a 25  |.. svar% svarsz%|
00000250  0d 00 be 57 21 62 25 3d  2d 31 3a 62 25 21 34 3d  |...W!b%=-1:b%!4=|
00000260  30 3a 62 25 21 38 3d 30  3a 62 25 21 31 32 3d 36  |0:b%!8=0:b%!12=6|
00000270  38 3a 62 25 21 31 36 3d  37 32 3a 62 25 21 32 30  |8:b%!16=72:b%!20|
00000280  3d 26 33 31 30 41 3a 62  25 21 32 34 3d 73 6e 61  |=&310A:b%!24=sna|
00000290  6d 65 25 3a 62 25 21 32  38 3d 73 70 72 25 3a 62  |me%:b%!28=spr%:b|
000002a0  25 21 33 32 3d 31 32 0d  00 c8 14 24 73 6e 61 6d  |%!32=12....$snam|
000002b0  65 25 3d 22 21 53 69 6d  6f 6e 22 0d 00 d2 23 c8  |e%="!Simon"...#.|
000002c0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
000002d0  6e 22 2c 2c 62 25 20 b8  20 49 63 6f 6e 25 0d 00  |n",,b% . Icon%..|
000002e0  dc 0e 72 6e 64 25 3d b3  28 2d 91 29 0d 00 e6 05  |..rnd%=.(-.)....|
000002f0  e1 0d 00 f0 05 3a 0d 00  fa 0a dd f2 6d 61 69 6e  |.....:......main|
00000300  0d 01 04 9a ee 20 85 20  21 62 25 3d 9f 3a 24 28  |..... . !b%=.:$(|
00000310  62 25 2b 34 29 3d f6 24  2b 22 20 61 74 20 6c 69  |b%+4)=.$+" at li|
00000320  6e 65 20 22 2b c3 9e 2b  22 2e 20 43 61 6e 63 65  |ne "+..+". Cance|
00000330  6c 20 74 6f 20 51 75 69  74 22 3a c8 99 22 57 69  |l to Quit":.."Wi|
00000340  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000350  62 25 2c 33 2c 22 53 69  6d 6f 6e 22 20 b8 20 2c  |b%,3,"Simon" . ,|
00000360  73 74 61 74 75 73 25 3a  e7 20 73 74 61 74 75 73  |status%:. status|
00000370  25 3d 32 20 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |%=2 .."Wimp_Clos|
00000380  65 44 6f 77 6e 22 2c 68  61 6e 64 6c 65 25 2c 26  |eDown",handle%,&|
00000390  34 42 35 33 34 31 35 34  3a e0 0d 01 0e 05 f5 0d  |4B534154:.......|
000003a0  01 18 09 f2 70 6f 6c 6c  0d 01 22 0a fd 71 75 69  |....poll.."..qui|
000003b0  74 25 0d 01 2c 28 c8 99  22 57 69 6d 70 5f 43 6c  |t%..,(.."Wimp_Cl|
000003c0  6f 73 65 44 6f 77 6e 22  2c 68 61 6e 64 6c 65 25  |oseDown",handle%|
000003d0  2c 26 34 42 35 33 34 31  35 34 0d 01 36 05 e0 0d  |,&4B534154..6...|
000003e0  01 40 05 e1 0d 01 4a 05  3a 0d 01 54 0a dd f2 70  |.@....J.:..T...p|
000003f0  6f 6c 6c 0d 01 5e 19 c8  99 22 57 69 6d 70 5f 50  |oll..^..."Wimp_P|
00000400  6f 6c 6c 22 2c 2c 62 25  20 b8 72 25 0d 01 68 0b  |oll",,b% .r%..h.|
00000410  c8 8e 20 72 25 20 ca 0d  01 72 09 c9 20 30 20 3a  |.. r% ...r.. 0 :|
00000420  0d 01 7c 23 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |..|#.."OS_ReadMo|
00000430  6e 6f 74 6f 6e 69 63 54  69 6d 65 22 20 b8 20 74  |notonicTime" . t|
00000440  69 6d 25 0d 01 86 2c e7  20 70 61 74 25 20 80 20  |im%...,. pat% . |
00000450  74 69 6d 25 3e 3d 70 74  69 25 20 f2 70 61 74 73  |tim%>=pti% .pats|
00000460  68 6f 77 28 6f 72 64 25  28 70 70 6f 25 29 29 0d  |how(ord%(ppo%)).|
00000470  01 90 22 e7 20 73 68 6f  25 20 80 20 74 69 6d 25  |..". sho% . tim%|
00000480  3e 3d 70 74 69 25 20 f2  70 61 74 72 65 6d 6f 76  |>=pti% .patremov|
00000490  65 0d 01 9a 2d e7 20 70  63 68 25 20 80 20 74 69  |e...-. pch% . ti|
000004a0  6d 25 3e 3d 70 74 69 25  20 f2 70 61 74 74 65 72  |m%>=pti% .patter|
000004b0  6e 28 70 6f 73 25 29 3a  70 63 68 25 3d a3 0d 01  |n(pos%):pch%=...|
000004c0  a4 15 c9 20 36 20 3a 20  f2 6d 6f 75 73 65 63 6c  |... 6 : .mousecl|
000004d0  69 63 6b 0d 01 ae 12 c9  20 39 20 3a 20 c8 8e 20  |ick..... 9 : .. |
000004e0  21 62 25 20 ca 0d 01 b8  52 c9 20 30 20 3a 20 e7  |!b% ....R. 0 : .|
000004f0  20 ac 70 6c 79 25 20 f2  63 72 65 61 74 65 69 63  | .ply% .createic|
00000500  6f 6e 28 2d 31 29 3a f2  73 74 61 72 74 70 6c 61  |on(-1):.startpla|
00000510  79 20 8b 20 f2 63 72 65  61 74 65 69 63 6f 6e 28  |y . .createicon(|
00000520  34 29 3a 70 6c 79 25 3d  a3 3a 70 61 74 25 3d a3  |4):ply%=.:pat%=.|
00000530  3a 73 68 6f 25 3d a3 0d  01 c2 14 c9 20 31 20 3a  |:sho%=...... 1 :|
00000540  20 73 6e 64 25 3d ac 73  6e 64 25 0d 01 cc 11 c9  | snd%=.snd%.....|
00000550  20 32 20 3a 20 71 75 69  74 25 3d b9 0d 01 d6 05  | 2 : quit%=.....|
00000560  cb 0d 01 e0 36 c8 99 22  57 69 6d 70 5f 47 65 74  |....6.."Wimp_Get|
00000570  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 62 25  |PointerInfo",,b%|
00000580  3a e7 20 62 25 21 38 20  80 20 31 20 f2 63 72 65  |:. b%!8 . 1 .cre|
00000590  61 74 65 6d 65 6e 75 0d  01 ea 1d c9 20 31 37 2c  |atemenu..... 17,|
000005a0  31 38 20 3a 20 71 75 69  74 25 3d 28 62 25 21 31  |18 : quit%=(b%!1|
000005b0  36 3d 30 29 0d 01 f4 05  cb 0d 01 fe 05 e1 0d 02  |6=0)............|
000005c0  08 05 3a 0d 02 12 10 dd  f2 6d 6f 75 73 65 63 6c  |..:......mousecl|
000005d0  69 63 6b 0d 02 1c 31 74  25 3d 62 25 21 38 3a 77  |ick...1t%=b%!8:w|
000005e0  69 6e 25 3d 62 25 21 31  32 3a 69 63 6e 25 3d 62  |in%=b%!12:icn%=b|
000005f0  25 21 31 36 3a 78 25 3d  62 25 21 30 3a 79 25 3d  |%!16:x%=b%!0:y%=|
00000600  62 25 21 34 0d 02 26 0f  e7 20 77 69 6e 25 3d 2d  |b%!4..&.. win%=-|
00000610  32 20 8c 0d 02 30 0b c8  8e 20 74 25 20 ca 0d 02  |2 ...0... t% ...|
00000620  3a 44 c9 20 34 20 3a 20  e7 20 ac 70 6c 79 25 20  |:D. 4 : . .ply% |
00000630  f2 63 72 65 61 74 65 69  63 6f 6e 28 2d 31 29 3a  |.createicon(-1):|
00000640  f2 73 74 61 72 74 70 6c  61 79 20 8b 20 e7 20 ac  |.startplay . . .|
00000650  73 68 6f 25 20 80 20 ac  70 61 74 25 20 f2 70 6c  |sho% . .pat% .pl|
00000660  61 79 0d 02 44 15 c9 20  32 20 3a 20 f2 63 72 65  |ay..D.. 2 : .cre|
00000670  61 74 65 6d 65 6e 75 0d  02 4e 36 c9 20 31 20 3a  |atemenu..N6. 1 :|
00000680  20 e7 20 70 6c 79 25 20  80 20 70 69 63 25 20 80  | . ply% . pic% .|
00000690  20 ac 70 61 74 25 20 80  20 ac 73 68 6f 25 20 f2  | .pat% . .sho% .|
000006a0  70 61 74 74 65 72 6e 28  70 6f 73 25 29 0d 02 58  |pattern(pos%)..X|
000006b0  05 cb 0d 02 62 05 cd 0d  02 6c 05 e1 0d 02 76 05  |....b....l....v.|
000006c0  3a 0d 02 80 10 dd f2 63  68 61 6e 67 65 69 63 6f  |:......changeico|
000006d0  6e 0d 02 8a 24 21 62 25  3d 2d 32 3a 62 25 21 34  |n...$!b%=-2:b%!4|
000006e0  3d 49 63 6f 6e 25 3a 62  25 21 38 3d 30 3a 62 25  |=Icon%:b%!8=0:b%|
000006f0  21 31 32 3d 30 0d 02 94  1d c8 99 22 57 69 6d 70  |!12=0......"Wimp|
00000700  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000710  62 25 0d 02 9e 05 e1 0d  02 a8 05 3a 0d 02 b2 17  |b%.........:....|
00000720  dd f2 63 72 65 61 74 65  69 63 6f 6e 28 68 69 6c  |..createicon(hil|
00000730  69 25 29 0d 02 bc 3a c8  99 22 4f 53 5f 53 70 72  |i%)...:.."OS_Spr|
00000740  69 74 65 4f 70 22 2c 26  31 33 43 2c 73 70 72 25  |iteOp",&13C,spr%|
00000750  2c 22 21 73 69 6d 6f 6e  22 2c 73 76 61 72 25 20  |,"!simon",svar% |
00000760  b8 20 72 30 2c 72 31 2c  72 32 2c 72 33 0d 02 c6  |. r0,r1,r2,r3...|
00000770  14 e6 31 3a c8 93 c8 90  30 2c 30 2c 36 37 2c 36  |..1:....0,0,67,6|
00000780  37 0d 02 d0 0e c8 8e 20  68 69 6c 69 25 20 ca 0d  |7...... hili% ..|
00000790  02 da 1c c9 20 30 2c 31  2c 32 2c 33 20 3a 20 f2  |.... 0,1,2,3 : .|
000007a0  73 65 63 74 28 68 69 6c  69 25 29 0d 02 e4 23 c9  |sect(hili%)...#.|
000007b0  20 34 20 20 20 20 20 20  20 3a 20 e3 69 25 3d 30  | 4       : .i%=0|
000007c0  b8 33 3a f2 73 65 63 74  28 69 25 29 3a ed 0d 02  |.3:.sect(i%):...|
000007d0  ee 05 cb 0d 02 f8 2a e6  37 3a c8 93 30 2c 30 2c  |......*.7:..0,0,|
000007e0  36 37 2c 36 37 3a 86 33  34 2c 30 2c 33 34 2c 36  |67,67:.34,0,34,6|
000007f0  37 3a 86 30 2c 33 34 2c  36 37 2c 33 34 0d 03 02  |7:.0,34,67,34...|
00000800  1f c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |..."OS_SpriteOp"|
00000810  2c 72 30 2c 72 31 2c 72  32 2c 72 33 0d 03 0c 0f  |,r0,r1,r2,r3....|
00000820  f2 63 68 61 6e 67 65 69  63 6f 6e 0d 03 16 05 e1  |.changeicon.....|
00000830  0d 03 20 05 3a 0d 03 2a  11 dd f2 73 65 63 74 28  |.. .:..*...sect(|
00000840  68 69 6c 69 25 29 0d 03  34 4e e6 38 2b 68 69 6c  |hili%)..4N.8+hil|
00000850  69 25 3a c8 93 c8 90 33  34 2a 28 68 69 6c 69 25  |i%:....34*(hili%|
00000860  83 32 29 2c 33 34 2a 28  31 2d 68 69 6c 69 25 81  |.2),34*(1-hili%.|
00000870  32 29 2c 33 34 2a 28 68  69 6c 69 25 83 32 29 2b  |2),34*(hili%.2)+|
00000880  33 34 2c 33 34 2a 28 31  2d 68 69 6c 69 25 81 32  |34,34*(1-hili%.2|
00000890  29 2b 33 34 0d 03 3e 05  e1 0d 03 48 05 3a 0d 03  |)+34..>....H.:..|
000008a0  52 0f dd f2 73 74 61 72  74 70 6c 61 79 0d 03 5c  |R...startplay..\|
000008b0  0c e3 69 25 3d 30 b8 31  39 0d 03 66 13 6f 72 64  |..i%=0.19..f.ord|
000008c0  25 28 69 25 29 3d b3 28  34 29 2d 31 0d 03 70 05  |%(i%)=.(4)-1..p.|
000008d0  ed 0d 03 7a 1d 70 6c 79  25 3d b9 3a 70 6f 73 25  |...z.ply%=.:pos%|
000008e0  3d 30 3a f2 70 61 74 74  65 72 6e 28 30 29 0d 03  |=0:.pattern(0)..|
000008f0  84 05 e1 0d 03 8e 05 3a  0d 03 98 13 dd f2 70 61  |.......:......pa|
00000900  74 74 65 72 6e 28 70 6f  73 25 29 0d 03 a2 23 70  |ttern(pos%)...#p|
00000910  69 63 25 3d a3 3a 70 70  6f 25 3d 30 3a f2 70 61  |ic%=.:ppo%=0:.pa|
00000920  74 73 68 6f 77 28 6f 72  64 25 28 30 29 29 0d 03  |tshow(ord%(0))..|
00000930  ac 05 e1 0d 03 b6 05 3a  0d 03 c0 13 dd f2 70 61  |.......:......pa|
00000940  74 73 68 6f 77 28 70 70  63 25 29 0d 03 ca 2c c8  |tshow(ppc%)...,.|
00000950  99 22 4f 53 5f 52 65 61  64 4d 6f 6e 6f 74 6f 6e  |."OS_ReadMonoton|
00000960  69 63 54 69 6d 65 22 20  b8 20 70 74 69 25 3a 70  |icTime" . pti%:p|
00000970  74 69 25 2b 3d 32 35 0d  03 d4 3c 70 61 74 25 3d  |ti%+=25...<pat%=|
00000980  a3 3a 73 68 6f 25 3d b9  3a d4 31 2c 73 6e 64 25  |.:sho%=.:.1,snd%|
00000990  2a 31 35 2c 70 70 63 25  2a 32 36 2b 31 30 34 2c  |*15,ppc%*26+104,|
000009a0  31 3a f2 63 72 65 61 74  65 69 63 6f 6e 28 70 70  |1:.createicon(pp|
000009b0  63 25 29 0d 03 de 05 e1  0d 03 e8 05 3a 0d 03 f2  |c%).........:...|
000009c0  0f dd f2 70 61 74 72 65  6d 6f 76 65 0d 03 fc 2c  |...patremove...,|
000009d0  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 6e 6f 74 6f  |.."OS_ReadMonoto|
000009e0  6e 69 63 54 69 6d 65 22  20 b8 20 70 74 69 25 3a  |nicTime" . pti%:|
000009f0  70 74 69 25 2b 3d 32 35  0d 04 06 2d 70 61 74 25  |pti%+=25...-pat%|
00000a00  3d ac 70 69 63 25 3a 73  68 6f 25 3d a3 3a f2 63  |=.pic%:sho%=.:.c|
00000a10  72 65 61 74 65 69 63 6f  6e 28 2d 31 29 3a 70 70  |reateicon(-1):pp|
00000a20  6f 25 2b 3d 31 0d 04 10  3f e7 20 70 70 6f 25 3e  |o%+=1...?. ppo%>|
00000a30  3d 70 6f 73 25 2b 31 20  80 20 70 69 63 25 20 70  |=pos%+1 . pic% p|
00000a40  61 74 25 3d a3 3a 70 69  63 25 3d a3 3a 70 63 68  |at%=.:pic%=.:pch|
00000a50  25 3d b9 3a 70 6f 73 25  2b 3d 31 3a 70 74 69 25  |%=.:pos%+=1:pti%|
00000a60  2b 3d 32 35 0d 04 1a 2f  e7 20 70 70 6f 25 3e 3d  |+=25.../. ppo%>=|
00000a70  70 6f 73 25 2b 31 20 80  20 ac 70 69 63 25 20 70  |pos%+1 . .pic% p|
00000a80  61 74 25 3d a3 3a 70 69  63 25 3d b9 3a 70 70 6f  |at%=.:pic%=.:ppo|
00000a90  25 3d 30 0d 04 24 98 e7  20 70 6f 73 25 3e 3d 32  |%=0..$.. pos%>=2|
00000aa0  30 20 21 62 25 3d 30 3a  24 28 62 25 2b 34 29 3d  |0 !b%=0:$(b%+4)=|
00000ab0  22 57 6f 77 21 20 59 6f  75 20 73 75 72 76 69 76  |"Wow! You surviv|
00000ac0  65 64 20 32 30 20 74 75  72 6e 73 21 22 3a c8 99  |ed 20 turns!":..|
00000ad0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00000ae0  72 22 2c 62 25 2c 31 37  2c 22 57 65 6c 6c 20 64  |r",b%,17,"Well d|
00000af0  6f 6e 65 20 66 72 6f 6d  20 21 53 69 6d 6f 6e 22  |one from !Simon"|
00000b00  3a 70 70 6f 25 3d 30 3a  70 6c 79 25 3d a3 3a f2  |:ppo%=0:ply%=.:.|
00000b10  63 72 65 61 74 65 69 63  6f 6e 28 34 29 3a 70 61  |createicon(4):pa|
00000b20  74 25 3d a3 3a 73 68 6f  25 3d a3 0d 04 2e 05 e1  |t%=.:sho%=......|
00000b30  0d 04 38 05 3a 0d 04 42  0a dd f2 70 6c 61 79 0d  |..8.:..B...play.|
00000b40  04 4c 0a 21 62 25 3d 2d  32 0d 04 56 20 c8 99 20  |.L.!b%=-2..V .. |
00000b50  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000b60  74 61 74 65 22 2c 2c 62  25 0d 04 60 15 77 69 6e  |tate",,b%..`.win|
00000b70  6f 78 25 3d 62 25 21 34  2d 62 25 21 32 30 0d 04  |ox%=b%!4-b%!20..|
00000b80  6a 16 77 69 6e 6f 79 25  3d 62 25 21 31 36 2d 62  |j.winoy%=b%!16-b|
00000b90  25 21 32 34 0d 04 74 0a  21 62 25 3d 2d 32 0d 04  |%!24..t.!b%=-2..|
00000ba0  7e 0d 62 25 21 34 3d 69  63 6e 25 0d 04 88 1e c8  |~.b%!4=icn%.....|
00000bb0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00000bc0  74 61 74 65 22 2c 2c 62  25 0d 04 92 18 69 78 25  |tate",,b%....ix%|
00000bd0  3d 78 25 2d 28 77 69 6e  6f 78 25 2b 62 25 21 38  |=x%-(winox%+b%!8|
00000be0  29 0d 04 9c 19 69 79 25  3d 79 25 2d 28 77 69 6e  |)....iy%=y%-(win|
00000bf0  6f 79 25 2b 62 25 21 31  32 29 0d 04 a6 0a 73 65  |oy%+b%!12)....se|
00000c00  63 25 3d 30 0d 04 b0 14  e7 69 78 25 3e 3d 33 34  |c%=0.....ix%>=34|
00000c10  20 73 65 63 25 2b 3d 31  0d 04 ba 14 e7 69 79 25  | sec%+=1.....iy%|
00000c20  3c 3d 33 34 20 73 65 63  25 2b 3d 32 0d 04 c4 22  |<=34 sec%+=2..."|
00000c30  e7 20 73 65 63 25 3c 3e  6f 72 64 25 28 70 70 6f  |. sec%<>ord%(ppo|
00000c40  25 29 20 f2 67 61 6d 65  6f 76 65 72 3a e1 0d 04  |%) .gameover:...|
00000c50  ce 12 f2 70 61 74 73 68  6f 77 28 73 65 63 25 29  |...patshow(sec%)|
00000c60  0d 04 d8 05 e1 0d 04 e2  05 3a 0d 04 ec 0e dd f2  |.........:......|
00000c70  67 61 6d 65 6f 76 65 72  0d 04 f6 4a 21 62 25 3d  |gameover...J!b%=|
00000c80  30 3a 24 28 62 25 2b 34  29 3d 22 42 61 64 20 6c  |0:$(b%+4)="Bad l|
00000c90  75 63 6b 20 2d 20 67 61  6d 65 20 6f 76 65 72 20  |uck - game over |
00000ca0  61 66 74 65 72 20 22 2b  c3 70 6f 73 25 2b 22 20  |after "+.pos%+" |
00000cb0  74 75 72 6e 22 2b a4 73  28 70 6f 73 25 29 2b 22  |turn"+.s(pos%)+"|
00000cc0  2e 22 0d 05 00 35 c8 99  22 57 69 6d 70 5f 52 65  |."...5.."Wimp_Re|
00000cd0  70 6f 72 74 45 72 72 6f  72 22 2c 62 25 2c 31 37  |portError",b%,17|
00000ce0  2c 22 42 61 64 20 6c 75  63 6b 20 66 72 6f 6d 20  |,"Bad luck from |
00000cf0  21 53 69 6d 6f 6e 22 0d  05 0a 2e 70 70 6f 25 3d  |!Simon"....ppo%=|
00000d00  30 3a 70 6c 79 25 3d a3  3a f2 63 72 65 61 74 65  |0:ply%=.:.create|
00000d10  69 63 6f 6e 28 34 29 3a  70 61 74 25 3d a3 3a 73  |icon(4):pat%=.:s|
00000d20  68 6f 25 3d a3 0d 05 14  05 e1 0d 05 1e 05 3a 0d  |ho%=..........:.|
00000d30  05 28 0d dd a4 73 28 76  61 72 25 29 0d 05 32 19  |.(...s(var%)..2.|
00000d40  e7 20 76 61 72 25 3d 31  20 8c 20 3d 22 22 20 8b  |. var%=1 . ="" .|
00000d50  20 3d 22 73 22 0d 05 3c  05 3a 0d 05 46 10 dd f2  | ="s"..<.:..F...|
00000d60  63 72 65 61 74 65 6d 65  6e 75 0d 05 50 0f 24 6d  |createmenu..P.$m|
00000d70  25 3d 22 53 69 6d 6f 6e  22 0d 05 5a 49 6d 25 21  |%="Simon"..ZIm%!|
00000d80  31 32 3d 26 37 30 32 30  37 3a 6d 25 21 31 36 3d  |12=&70207:m%!16=|
00000d90  39 30 3a 6d 25 21 32 30  3d 34 34 3a 6d 25 21 32  |90:m%!20=44:m%!2|
00000da0  34 3d 30 3a 6d 25 21 32  38 3d 30 3a 6d 25 21 33  |4=0:m%!28=0:m%!3|
00000db0  32 3d 30 3a 6d 25 21 33  36 3d 26 37 30 30 30 30  |2=0:m%!36=&70000|
00000dc0  32 31 0d 05 64 2d e7 20  70 6c 79 25 20 24 28 6d  |21..d-. ply% $(m|
00000dd0  25 2b 34 30 29 3d 22 53  74 6f 70 22 20 8b 20 24  |%+40)="Stop" . $|
00000de0  28 6d 25 2b 34 30 29 3d  22 53 74 61 72 74 22 0d  |(m%+40)="Start".|
00000df0  05 6e 37 6d 25 21 35 32  3d 94 73 6e 64 25 3a 6d  |.n7m%!52=.snd%:m|
00000e00  25 21 35 36 3d 30 3a 6d  25 21 36 30 3d 26 37 30  |%!56=0:m%!60=&70|
00000e10  30 30 30 32 31 3a 24 28  6d 25 2b 36 34 29 3d 22  |00021:$(m%+64)="|
00000e20  53 6f 75 6e 64 22 0d 05  78 34 6d 25 21 37 36 3d  |Sound"..x4m%!76=|
00000e30  26 38 30 3a 6d 25 21 38  30 3d 30 3a 6d 25 21 38  |&80:m%!80=0:m%!8|
00000e40  34 3d 26 37 30 30 30 30  32 31 3a 24 28 6d 25 2b  |4=&7000021:$(m%+|
00000e50  38 38 29 3d 22 51 75 69  74 22 0d 05 82 25 c8 99  |88)="Quit"...%..|
00000e60  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000e70  22 2c 2c 6d 25 2c 78 25  2d 37 30 2c 32 32 38 0d  |",,m%,x%-70,228.|
00000e80  05 8c 05 e1 0d ff                                 |......|
00000e86