ț "<Obey$Dir>.Wimp"
�Wimp_Start("Task",306,58)
�User_SetInitialData
(�Create_Windows
2�Wimp_WaitForEvent
<�Wimp_CloseDown
F�
P:
Z� �User_SetInitialData
d� i%,File%
nNoOfLines%=46
x� line$(NoOfLines%)
� File%=�"<Obey$Dir>.TextFile"
�� i%=0 � NoOfLines%
� line$(i%)=�#File%
��
��#File%
��
�:
�� �Create_Windows
��Wimp_SpritesLoad
�)Main_Window%=�Wimp_WindowLoad("Main")
�(�Wimp_WindowBringToTop(Main_Window%)
��
�:

� �Event_Save(window%)=�

:

&� �Event_Sprites(window%)=sprites%

":

,� �Event_Menu(window%)=�

6:

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

J Ȏ window% �

T"  � Main_Window% : finished%=�

^ �

h�

r:

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

� Ȏ window% �

�+  � Main_Window% : �User_DrawMainWindow

�  �

��

�:

�� �User_DrawMainWindow

�� i%,x%,y%,h%

�
 h%=32

� y%=y_origin%-h%

� � i%=0 � NoOfLines%

�4  � i%<25 � x%=x_origin%+h% � x%=x_origin%+15*h%

�  � x%,y% : � ;line$(i%)

�  y%-=h%
 �
�
:
&4� �Event_MouseClick(window%,icon%,button%,x%,y%)
0�
::
D)� �Event_KeyPress(window%,icon%,key%)
N�
X:
b� �Event_MenuChoice(menu%)
l�
v:
�"� �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 1e f2 57 69 6d  |r>.Wimp".....Wim|
00000020  70 5f 53 74 61 72 74 28  22 54 61 73 6b 22 2c 33  |p_Start("Task",3|
00000030  30 36 2c 35 38 29 0d 00  1e 18 f2 55 73 65 72 5f  |06,58).....User_|
00000040  53 65 74 49 6e 69 74 69  61 6c 44 61 74 61 0d 00  |SetInitialData..|
00000050  28 13 f2 43 72 65 61 74  65 5f 57 69 6e 64 6f 77  |(..Create_Window|
00000060  73 0d 00 32 16 f2 57 69  6d 70 5f 57 61 69 74 46  |s..2..Wimp_WaitF|
00000070  6f 72 45 76 65 6e 74 0d  00 3c 13 f2 57 69 6d 70  |orEvent..<..Wimp|
00000080  5f 43 6c 6f 73 65 44 6f  77 6e 0d 00 46 05 e0 0d  |_CloseDown..F...|
00000090  00 50 05 3a 0d 00 5a 1a  dd 20 f2 55 73 65 72 5f  |.P.:..Z.. .User_|
000000a0  53 65 74 49 6e 69 74 69  61 6c 44 61 74 61 0d 00  |SetInitialData..|
000000b0  64 0e ea 20 69 25 2c 46  69 6c 65 25 0d 00 6e 11  |d.. i%,File%..n.|
000000c0  4e 6f 4f 66 4c 69 6e 65  73 25 3d 34 36 0d 00 78  |NoOfLines%=46..x|
000000d0  17 de 20 6c 69 6e 65 24  28 4e 6f 4f 66 4c 69 6e  |.. line$(NoOfLin|
000000e0  65 73 25 29 0d 00 82 20  46 69 6c 65 25 3d 8e 22  |es%)... File%=."|
000000f0  3c 4f 62 65 79 24 44 69  72 3e 2e 54 65 78 74 46  |<Obey$Dir>.TextF|
00000100  69 6c 65 22 0d 00 8c 17  e3 20 69 25 3d 30 20 b8  |ile"..... i%=0 .|
00000110  20 4e 6f 4f 66 4c 69 6e  65 73 25 0d 00 96 16 20  | NoOfLines%.... |
00000120  6c 69 6e 65 24 28 69 25  29 3d be 23 46 69 6c 65  |line$(i%)=.#File|
00000130  25 0d 00 a0 05 ed 0d 00  aa 0b d9 23 46 69 6c 65  |%..........#File|
00000140  25 0d 00 b4 05 e1 0d 00  be 05 3a 0d 00 c8 15 dd  |%.........:.....|
00000150  20 f2 43 72 65 61 74 65  5f 57 69 6e 64 6f 77 73  | .Create_Windows|
00000160  0d 00 d2 15 f2 57 69 6d  70 5f 53 70 72 69 74 65  |.....Wimp_Sprite|
00000170  73 4c 6f 61 64 0d 00 dc  29 4d 61 69 6e 5f 57 69  |sLoad...)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  e6 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  f0 05 e1 0d 00 fa 05 3a  |ndow%).........:|
000001d0  0d 01 04 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 01 0e 05  |e(window%)=.....|
000001f0  3a 0d 01 18 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 22 05 3a 0d 01 2c 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 36 05 3a 0d 01 40  |ndow%)=...6.:..@|
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 4a 11 20 c8 8e 20 77  |ttons%)..J. .. w|
00000270  69 6e 64 6f 77 25 20 ca  0d 01 54 22 20 20 c9 20  |indow% ...T"  . |
00000280  4d 61 69 6e 5f 57 69 6e  64 6f 77 25 20 3a 20 66  |Main_Window% : f|
00000290  69 6e 69 73 68 65 64 25  3d b9 0d 01 5e 06 20 cb  |inished%=...^. .|
000002a0  0d 01 68 05 e1 0d 01 72  05 3a 0d 01 7c 2e dd 20  |..h....r.:..|.. |
000002b0  f2 45 76 65 6e 74 5f 44  72 61 77 28 77 69 6e 64  |.Event_Draw(wind|
000002c0  6f 77 25 2c 78 5f 6f 72  69 67 69 6e 25 2c 79 5f  |ow%,x_origin%,y_|
000002d0  6f 72 69 67 69 6e 25 29  0d 01 86 11 20 c8 8e 20  |origin%).... .. |
000002e0  77 69 6e 64 6f 77 25 20  ca 0d 01 90 2b 20 20 c9  |window% ....+  .|
000002f0  20 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 20 3a 20  | Main_Window% : |
00000300  f2 55 73 65 72 5f 44 72  61 77 4d 61 69 6e 57 69  |.User_DrawMainWi|
00000310  6e 64 6f 77 0d 01 9a 07  20 20 cb 0d 01 a4 05 e1  |ndow....  ......|
00000320  0d 01 ae 05 3a 0d 01 b8  1a dd 20 f2 55 73 65 72  |....:..... .User|
00000330  5f 44 72 61 77 4d 61 69  6e 57 69 6e 64 6f 77 0d  |_DrawMainWindow.|
00000340  01 c2 11 ea 20 69 25 2c  78 25 2c 79 25 2c 68 25  |.... i%,x%,y%,h%|
00000350  0d 01 cc 0a 20 68 25 3d  33 32 0d 01 d6 14 20 79  |.... h%=32.... y|
00000360  25 3d 79 5f 6f 72 69 67  69 6e 25 2d 68 25 0d 01  |%=y_origin%-h%..|
00000370  e0 18 20 e3 20 69 25 3d  30 20 b8 20 4e 6f 4f 66  |.. . i%=0 . NoOf|
00000380  4c 69 6e 65 73 25 0d 01  ea 34 20 20 e7 20 69 25  |Lines%...4  . i%|
00000390  3c 32 35 20 8c 20 78 25  3d 78 5f 6f 72 69 67 69  |<25 . x%=x_origi|
000003a0  6e 25 2b 68 25 20 8b 20  78 25 3d 78 5f 6f 72 69  |n%+h% . x%=x_ori|
000003b0  67 69 6e 25 2b 31 35 2a  68 25 0d 01 f4 1c 20 20  |gin%+15*h%....  |
000003c0  ec 20 78 25 2c 79 25 20  3a 20 f1 20 3b 6c 69 6e  |. x%,y% : . ;lin|
000003d0  65 24 28 69 25 29 0d 01  fe 0c 20 20 79 25 2d 3d  |e$(i%)....  y%-=|
000003e0  68 25 0d 02 08 06 20 ed  0d 02 12 05 e1 0d 02 1c  |h%.... .........|
000003f0  05 3a 0d 02 26 34 dd 20  f2 45 76 65 6e 74 5f 4d  |.:..&4. .Event_M|
00000400  6f 75 73 65 43 6c 69 63  6b 28 77 69 6e 64 6f 77  |ouseClick(window|
00000410  25 2c 69 63 6f 6e 25 2c  62 75 74 74 6f 6e 25 2c  |%,icon%,button%,|
00000420  78 25 2c 79 25 29 0d 02  30 05 e1 0d 02 3a 05 3a  |x%,y%)..0....:.:|
00000430  0d 02 44 29 dd 20 f2 45  76 65 6e 74 5f 4b 65 79  |..D). .Event_Key|
00000440  50 72 65 73 73 28 77 69  6e 64 6f 77 25 2c 69 63  |Press(window%,ic|
00000450  6f 6e 25 2c 6b 65 79 25  29 0d 02 4e 05 e1 0d 02  |on%,key%)..N....|
00000460  58 05 3a 0d 02 62 1e dd  20 f2 45 76 65 6e 74 5f  |X.:..b.. .Event_|
00000470  4d 65 6e 75 43 68 6f 69  63 65 28 6d 65 6e 75 25  |MenuChoice(menu%|
00000480  29 0d 02 6c 05 e1 0d 02  76 05 3a 0d 02 80 22 dd  |)..l....v.:...".|
00000490  20 f2 45 76 65 6e 74 5f  4c 6f 61 64 46 69 6c 65  | .Event_LoadFile|
000004a0  28 66 69 6c 65 24 2c 74  79 70 65 24 29 0d 02 8a  |(file$,type$)...|
000004b0  05 e1 0d 02 94 05 3a 0d  02 9e 24 dd 20 f2 45 76  |......:...$. .Ev|
000004c0  65 6e 74 5f 53 61 76 65  46 69 6c 65 28 66 69 6c  |ent_SaveFile(fil|
000004d0  65 24 2c 77 69 6e 64 6f  77 25 29 0d 02 a8 05 e1  |e$,window%).....|
000004e0  0d 02 b2 04 0d ff                                 |......|
000004e6