ț "<Obey$Dir>.Wimp"
,�Wimp_Start("Wimp Fruit Machine",315,67)
�User_SetInitialData
(�Create_Windows
2�Wimp_WaitForEvent
<�Wimp_CloseDown
F�
P:
Z� �User_SetInitialData
d�
n:
x� �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%=�
��

:

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

�

":

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

6F �Wimp_WindowAlert("Main","Mouse button="+�button%+"icon="+�icon%)

@�

J:

T)� �Event_KeyPress(window%,icon%,key%)

^�

h:

r� �Event_MenuChoice(menu%)

|�

�:

�"� �Event_LoadFile(file$,type$)

��

�:

�$� �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 2c f2 57 69 6d  |r>.Wimp"...,.Wim|
00000020  70 5f 53 74 61 72 74 28  22 57 69 6d 70 20 46 72  |p_Start("Wimp Fr|
00000030  75 69 74 20 4d 61 63 68  69 6e 65 22 2c 33 31 35  |uit Machine",315|
00000040  2c 36 37 29 0d 00 1e 18  f2 55 73 65 72 5f 53 65  |,67).....User_Se|
00000050  74 49 6e 69 74 69 61 6c  44 61 74 61 0d 00 28 13  |tInitialData..(.|
00000060  f2 43 72 65 61 74 65 5f  57 69 6e 64 6f 77 73 0d  |.Create_Windows.|
00000070  00 32 16 f2 57 69 6d 70  5f 57 61 69 74 46 6f 72  |.2..Wimp_WaitFor|
00000080  45 76 65 6e 74 0d 00 3c  13 f2 57 69 6d 70 5f 43  |Event..<..Wimp_C|
00000090  6c 6f 73 65 44 6f 77 6e  0d 00 46 05 e0 0d 00 50  |loseDown..F....P|
000000a0  05 3a 0d 00 5a 1a dd 20  f2 55 73 65 72 5f 53 65  |.:..Z.. .User_Se|
000000b0  74 49 6e 69 74 69 61 6c  44 61 74 61 0d 00 64 05  |tInitialData..d.|
000000c0  e1 0d 00 6e 05 3a 0d 00  78 15 dd 20 f2 43 72 65  |...n.:..x.. .Cre|
000000d0  61 74 65 5f 57 69 6e 64  6f 77 73 0d 00 82 2a 20  |ate_Windows...* |
000000e0  4d 61 69 6e 5f 57 69 6e  64 6f 77 25 3d a4 57 69  |Main_Window%=.Wi|
000000f0  6d 70 5f 57 69 6e 64 6f  77 4c 6f 61 64 28 22 4d  |mp_WindowLoad("M|
00000100  61 69 6e 22 29 0d 00 8c  29 20 f2 57 69 6d 70 5f  |ain")...) .Wimp_|
00000110  57 69 6e 64 6f 77 42 72  69 6e 67 54 6f 54 6f 70  |WindowBringToTop|
00000120  28 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 29 0d 00  |(Main_Window%)..|
00000130  96 05 e1 0d 00 a0 05 3a  0d 00 aa 1c dd 20 a4 45  |.......:..... .E|
00000140  76 65 6e 74 5f 53 61 76  65 28 77 69 6e 64 6f 77  |vent_Save(window|
00000150  25 29 3d a3 0d 00 b4 05  3a 0d 00 be 26 dd 20 a4  |%)=.....:...&. .|
00000160  45 76 65 6e 74 5f 53 70  72 69 74 65 73 28 77 69  |Event_Sprites(wi|
00000170  6e 64 6f 77 25 29 3d 73  70 72 69 74 65 73 25 0d  |ndow%)=sprites%.|
00000180  00 c8 05 3a 0d 00 d2 1c  dd 20 a4 45 76 65 6e 74  |...:..... .Event|
00000190  5f 4d 65 6e 75 28 77 69  6e 64 6f 77 25 29 3d a3  |_Menu(window%)=.|
000001a0  0d 00 dc 05 3a 0d 00 e6  2a dd 20 f2 45 76 65 6e  |....:...*. .Even|
000001b0  74 5f 57 69 6e 64 6f 77  43 6c 6f 73 65 28 77 69  |t_WindowClose(wi|
000001c0  6e 64 6f 77 25 2c 62 75  74 74 6f 6e 73 25 29 0d  |ndow%,buttons%).|
000001d0  00 f0 0f 66 69 6e 69 73  68 65 64 25 3d b9 0d 00  |...finished%=...|
000001e0  fa 05 e1 0d 01 04 05 3a  0d 01 0e 2e dd 20 f2 45  |.......:..... .E|
000001f0  76 65 6e 74 5f 44 72 61  77 28 77 69 6e 64 6f 77  |vent_Draw(window|
00000200  25 2c 78 5f 6f 72 69 67  69 6e 25 2c 79 5f 6f 72  |%,x_origin%,y_or|
00000210  69 67 69 6e 25 29 0d 01  18 05 e1 0d 01 22 05 3a  |igin%).......".:|
00000220  0d 01 2c 34 dd 20 f2 45  76 65 6e 74 5f 4d 6f 75  |..,4. .Event_Mou|
00000230  73 65 43 6c 69 63 6b 28  77 69 6e 64 6f 77 25 2c  |seClick(window%,|
00000240  69 63 6f 6e 25 2c 62 75  74 74 6f 6e 25 2c 78 25  |icon%,button%,x%|
00000250  2c 79 25 29 0d 01 36 46  20 f2 57 69 6d 70 5f 57  |,y%)..6F .Wimp_W|
00000260  69 6e 64 6f 77 41 6c 65  72 74 28 22 4d 61 69 6e  |indowAlert("Main|
00000270  22 2c 22 4d 6f 75 73 65  20 62 75 74 74 6f 6e 3d  |","Mouse button=|
00000280  22 2b c3 62 75 74 74 6f  6e 25 2b 22 69 63 6f 6e  |"+.button%+"icon|
00000290  3d 22 2b c3 69 63 6f 6e  25 29 0d 01 40 05 e1 0d  |="+.icon%)..@...|
000002a0  01 4a 05 3a 0d 01 54 29  dd 20 f2 45 76 65 6e 74  |.J.:..T). .Event|
000002b0  5f 4b 65 79 50 72 65 73  73 28 77 69 6e 64 6f 77  |_KeyPress(window|
000002c0  25 2c 69 63 6f 6e 25 2c  6b 65 79 25 29 0d 01 5e  |%,icon%,key%)..^|
000002d0  05 e1 0d 01 68 05 3a 0d  01 72 1e dd 20 f2 45 76  |....h.:..r.. .Ev|
000002e0  65 6e 74 5f 4d 65 6e 75  43 68 6f 69 63 65 28 6d  |ent_MenuChoice(m|
000002f0  65 6e 75 25 29 0d 01 7c  05 e1 0d 01 86 05 3a 0d  |enu%)..|......:.|
00000300  01 90 22 dd 20 f2 45 76  65 6e 74 5f 4c 6f 61 64  |..". .Event_Load|
00000310  46 69 6c 65 28 66 69 6c  65 24 2c 74 79 70 65 24  |File(file$,type$|
00000320  29 0d 01 9a 05 e1 0d 01  a4 05 3a 0d 01 ae 24 dd  |).........:...$.|
00000330  20 f2 45 76 65 6e 74 5f  53 61 76 65 46 69 6c 65  | .Event_SaveFile|
00000340  28 66 69 6c 65 24 2c 77  69 6e 64 6f 77 25 29 0d  |(file$,window%).|
00000350  01 b8 05 e1 0d 01 c2 04  0d ff                    |..........|
0000035a