ț "<Obey$Dir>.Wimp"
#�Wimp_Start("Example_1",315,67)
�User_SetInitialData
(�Create_Windows
2�Wimp_WaitForEvent
<�Wimp_CloseDown
F�
P:
Z� �User_SetInitialData
d NoOfSprites%=6
nA � file_fff,error,file_fed,switcher,file_ff9,network,file_ff7
x � Sprite$(NoOfSprites%)
� � i%=0 � NoOfSprites%
�  � Sprite$(i%)
� �
��
�:
�� �Create_Windows
�)Main_Window%=�Wimp_WindowLoad("Main")
�(�Wimp_WindowBringToTop(Main_Window%)
��
�:
�� �Event_Save(window%)=�
�:
�&� �Event_Sprites(window%)=sprites%

:

� �Event_Menu(window%)=�

:

"*� �Event_WindowClose(window%,buttons%)

,finished%=�

6�

@:

J.� �Event_Draw(window%,x_origin%,y_origin%)

T�

^:

h4� �Event_MouseClick(window%,icon%,button%,x%,y%)

r� a%,b%,c%,message$,k%

|� k%=1 � 20

� a%=�(NoOfSprites%)

� b%=�(NoOfSprites%)

� c%=�(NoOfSprites%)

�- �Wimp_IconPutText(window%,0,Sprite$(a%))

�- �Wimp_IconPutText(window%,1,Sprite$(b%))

�- �Wimp_IconPutText(window%,2,Sprite$(c%))

��

�
Ȏ � �

�0 � a%=b% � b%=c%    : message$="You win �5!"

�2 � a%=b%,b%=c%,a%=c%  : message$="You win �1!"

�.                : message$="You lose �1!"

��

�* �Wimp_IconPutText(window%,4,message$)
�
:
)� �Event_KeyPress(window%,icon%,key%)
&�
0:
:� �Event_MenuChoice(menu%)
D�
N:
X"� �Event_LoadFile(file$,type$)
b�
l:
v$� �Event_SaveFile(file$,window%)
��
�
�

00000000  0d 00 0a 18 c8 9b 20 22  3c 4f 62 65 79 24 44 69  |...... "<Obey$Di|
00000010  72 3e 2e 57 69 6d 70 22  0d 00 14 23 f2 57 69 6d  |r>.Wimp"...#.Wim|
00000020  70 5f 53 74 61 72 74 28  22 45 78 61 6d 70 6c 65  |p_Start("Example|
00000030  5f 31 22 2c 33 31 35 2c  36 37 29 0d 00 1e 18 f2  |_1",315,67).....|
00000040  55 73 65 72 5f 53 65 74  49 6e 69 74 69 61 6c 44  |User_SetInitialD|
00000050  61 74 61 0d 00 28 13 f2  43 72 65 61 74 65 5f 57  |ata..(..Create_W|
00000060  69 6e 64 6f 77 73 0d 00  32 16 f2 57 69 6d 70 5f  |indows..2..Wimp_|
00000070  57 61 69 74 46 6f 72 45  76 65 6e 74 0d 00 3c 13  |WaitForEvent..<.|
00000080  f2 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 0d  |.Wimp_CloseDown.|
00000090  00 46 05 e0 0d 00 50 05  3a 0d 00 5a 1a dd 20 f2  |.F....P.:..Z.. .|
000000a0  55 73 65 72 5f 53 65 74  49 6e 69 74 69 61 6c 44  |User_SetInitialD|
000000b0  61 74 61 0d 00 64 13 20  4e 6f 4f 66 53 70 72 69  |ata..d. NoOfSpri|
000000c0  74 65 73 25 3d 36 0d 00  6e 41 20 dc 20 66 69 6c  |tes%=6..nA . fil|
000000d0  65 5f 66 66 66 2c 65 72  72 6f 72 2c 66 69 6c 65  |e_fff,error,file|
000000e0  5f 66 65 64 2c 73 77 69  74 63 68 65 72 2c 66 69  |_fed,switcher,fi|
000000f0  6c 65 5f 66 66 39 2c 6e  65 74 77 6f 72 6b 2c 66  |le_ff9,network,f|
00000100  69 6c 65 5f 66 66 37 0d  00 78 1c 20 de 20 53 70  |ile_ff7..x. . Sp|
00000110  72 69 74 65 24 28 4e 6f  4f 66 53 70 72 69 74 65  |rite$(NoOfSprite|
00000120  73 25 29 0d 00 82 1a 20  e3 20 69 25 3d 30 20 b8  |s%).... . i%=0 .|
00000130  20 4e 6f 4f 66 53 70 72  69 74 65 73 25 0d 00 8c  | NoOfSprites%...|
00000140  13 20 20 f3 20 53 70 72  69 74 65 24 28 69 25 29  |.  . Sprite$(i%)|
00000150  0d 00 96 06 20 ed 0d 00  a0 05 e1 0d 00 aa 05 3a  |.... ..........:|
00000160  0d 00 b4 15 dd 20 f2 43  72 65 61 74 65 5f 57 69  |..... .Create_Wi|
00000170  6e 64 6f 77 73 0d 00 be  29 4d 61 69 6e 5f 57 69  |ndows...)Main_Wi|
00000180  6e 64 6f 77 25 3d a4 57  69 6d 70 5f 57 69 6e 64  |ndow%=.Wimp_Wind|
00000190  6f 77 4c 6f 61 64 28 22  4d 61 69 6e 22 29 0d 00  |owLoad("Main")..|
000001a0  c8 28 f2 57 69 6d 70 5f  57 69 6e 64 6f 77 42 72  |.(.Wimp_WindowBr|
000001b0  69 6e 67 54 6f 54 6f 70  28 4d 61 69 6e 5f 57 69  |ingToTop(Main_Wi|
000001c0  6e 64 6f 77 25 29 0d 00  d2 05 e1 0d 00 dc 05 3a  |ndow%).........:|
000001d0  0d 00 e6 1c dd 20 a4 45  76 65 6e 74 5f 53 61 76  |..... .Event_Sav|
000001e0  65 28 77 69 6e 64 6f 77  25 29 3d a3 0d 00 f0 05  |e(window%)=.....|
000001f0  3a 0d 00 fa 26 dd 20 a4  45 76 65 6e 74 5f 53 70  |:...&. .Event_Sp|
00000200  72 69 74 65 73 28 77 69  6e 64 6f 77 25 29 3d 73  |rites(window%)=s|
00000210  70 72 69 74 65 73 25 0d  01 04 05 3a 0d 01 0e 1c  |prites%....:....|
00000220  dd 20 a4 45 76 65 6e 74  5f 4d 65 6e 75 28 77 69  |. .Event_Menu(wi|
00000230  6e 64 6f 77 25 29 3d a3  0d 01 18 05 3a 0d 01 22  |ndow%)=.....:.."|
00000240  2a dd 20 f2 45 76 65 6e  74 5f 57 69 6e 64 6f 77  |*. .Event_Window|
00000250  43 6c 6f 73 65 28 77 69  6e 64 6f 77 25 2c 62 75  |Close(window%,bu|
00000260  74 74 6f 6e 73 25 29 0d  01 2c 0f 66 69 6e 69 73  |ttons%)..,.finis|
00000270  68 65 64 25 3d b9 0d 01  36 05 e1 0d 01 40 05 3a  |hed%=...6....@.:|
00000280  0d 01 4a 2e dd 20 f2 45  76 65 6e 74 5f 44 72 61  |..J.. .Event_Dra|
00000290  77 28 77 69 6e 64 6f 77  25 2c 78 5f 6f 72 69 67  |w(window%,x_orig|
000002a0  69 6e 25 2c 79 5f 6f 72  69 67 69 6e 25 29 0d 01  |in%,y_origin%)..|
000002b0  54 05 e1 0d 01 5e 05 3a  0d 01 68 34 dd 20 f2 45  |T....^.:..h4. .E|
000002c0  76 65 6e 74 5f 4d 6f 75  73 65 43 6c 69 63 6b 28  |vent_MouseClick(|
000002d0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 62 75  |window%,icon%,bu|
000002e0  74 74 6f 6e 25 2c 78 25  2c 79 25 29 0d 01 72 1a  |tton%,x%,y%)..r.|
000002f0  ea 20 61 25 2c 62 25 2c  63 25 2c 6d 65 73 73 61  |. a%,b%,c%,messa|
00000300  67 65 24 2c 6b 25 0d 01  7c 0f e3 20 6b 25 3d 31  |ge$,k%..|.. k%=1|
00000310  20 b8 20 32 30 0d 01 86  17 20 61 25 3d b3 28 4e  | . 20.... a%=.(N|
00000320  6f 4f 66 53 70 72 69 74  65 73 25 29 0d 01 90 17  |oOfSprites%)....|
00000330  20 62 25 3d b3 28 4e 6f  4f 66 53 70 72 69 74 65  | b%=.(NoOfSprite|
00000340  73 25 29 0d 01 9a 17 20  63 25 3d b3 28 4e 6f 4f  |s%).... c%=.(NoO|
00000350  66 53 70 72 69 74 65 73  25 29 0d 01 a4 2d 20 f2  |fSprites%)...- .|
00000360  57 69 6d 70 5f 49 63 6f  6e 50 75 74 54 65 78 74  |Wimp_IconPutText|
00000370  28 77 69 6e 64 6f 77 25  2c 30 2c 53 70 72 69 74  |(window%,0,Sprit|
00000380  65 24 28 61 25 29 29 0d  01 ae 2d 20 f2 57 69 6d  |e$(a%))...- .Wim|
00000390  70 5f 49 63 6f 6e 50 75  74 54 65 78 74 28 77 69  |p_IconPutText(wi|
000003a0  6e 64 6f 77 25 2c 31 2c  53 70 72 69 74 65 24 28  |ndow%,1,Sprite$(|
000003b0  62 25 29 29 0d 01 b8 2d  20 f2 57 69 6d 70 5f 49  |b%))...- .Wimp_I|
000003c0  63 6f 6e 50 75 74 54 65  78 74 28 77 69 6e 64 6f  |conPutText(windo|
000003d0  77 25 2c 32 2c 53 70 72  69 74 65 24 28 63 25 29  |w%,2,Sprite$(c%)|
000003e0  29 0d 01 c2 05 ed 0d 01  cc 0a c8 8e 20 b9 20 ca  |)........... . .|
000003f0  0d 01 d6 30 20 c9 20 61  25 3d 62 25 20 80 20 62  |...0 . a%=b% . b|
00000400  25 3d 63 25 20 20 20 20  3a 20 6d 65 73 73 61 67  |%=c%    : messag|
00000410  65 24 3d 22 59 6f 75 20  77 69 6e 20 a3 35 21 22  |e$="You win .5!"|
00000420  0d 01 e0 32 20 c9 20 61  25 3d 62 25 2c 62 25 3d  |...2 . a%=b%,b%=|
00000430  63 25 2c 61 25 3d 63 25  20 20 3a 20 6d 65 73 73  |c%,a%=c%  : mess|
00000440  61 67 65 24 3d 22 59 6f  75 20 77 69 6e 20 a3 31  |age$="You win .1|
00000450  21 22 0d 01 ea 2e 20 7f  20 20 20 20 20 20 20 20  |!".... .        |
00000460  20 20 20 20 20 20 20 3a  20 6d 65 73 73 61 67 65  |       : message|
00000470  24 3d 22 59 6f 75 20 6c  6f 73 65 20 a3 31 21 22  |$="You lose .1!"|
00000480  0d 01 f4 05 cb 0d 01 fe  2a 20 f2 57 69 6d 70 5f  |........* .Wimp_|
00000490  49 63 6f 6e 50 75 74 54  65 78 74 28 77 69 6e 64  |IconPutText(wind|
000004a0  6f 77 25 2c 34 2c 6d 65  73 73 61 67 65 24 29 0d  |ow%,4,message$).|
000004b0  02 08 05 e1 0d 02 12 05  3a 0d 02 1c 29 dd 20 f2  |........:...). .|
000004c0  45 76 65 6e 74 5f 4b 65  79 50 72 65 73 73 28 77  |Event_KeyPress(w|
000004d0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 6b 65 79  |indow%,icon%,key|
000004e0  25 29 0d 02 26 05 e1 0d  02 30 05 3a 0d 02 3a 1e  |%)..&....0.:..:.|
000004f0  dd 20 f2 45 76 65 6e 74  5f 4d 65 6e 75 43 68 6f  |. .Event_MenuCho|
00000500  69 63 65 28 6d 65 6e 75  25 29 0d 02 44 05 e1 0d  |ice(menu%)..D...|
00000510  02 4e 05 3a 0d 02 58 22  dd 20 f2 45 76 65 6e 74  |.N.:..X". .Event|
00000520  5f 4c 6f 61 64 46 69 6c  65 28 66 69 6c 65 24 2c  |_LoadFile(file$,|
00000530  74 79 70 65 24 29 0d 02  62 05 e1 0d 02 6c 05 3a  |type$)..b....l.:|
00000540  0d 02 76 24 dd 20 f2 45  76 65 6e 74 5f 53 61 76  |..v$. .Event_Sav|
00000550  65 46 69 6c 65 28 66 69  6c 65 24 2c 77 69 6e 64  |eFile(file$,wind|
00000560  6f 77 25 29 0d 02 80 05  e1 0d 02 8a 04 0d ff     |ow%)...........|
0000056f