� >!RunImage
 � This is PD
 � � John Reed 1993
( ��err(�)
2	�init
<( vers$="1.10 (29-May-93)":�doversion
F ��err(�)
P�
Z
 �poll
d
 �quit
n
 �quit
x �
�
��init
�;� main 256,mainwork 256,info 512,infowork 512,block 256
� � menu% 256
�Gș "Wimp_Initialise",200,&4B534154,"Mouse Controller" � ,taskhandle
�5ș "Wimp_OpenTemplate",,"<MChange$Dir>.Templates"
�Eș "Wimp_LoadTemplate",,main,mainwork,mainwork+1024,-1,"Window",0
�D ș "Wimp_LoadTemplate",,info,infowork,infowork+1024,-1,"info",0
�-ș "Wimp_CreateWindow",,main � mainhandle
�Eș "Wimp_CreateWindow",,info � infohandle:ș "Wimp_CloseTemplate"
�
quit=�
�&�design(menu%,"MChange,Info,Quit")
�menu%!32=infohandle
��defaultfile

�changespeed

�getsize

�

"

,� �defaultfile

6$file%=�("<MChange$Dir>.Default")

@� file%<>0 �

Jspeed=�#file%

T�#file%

^#speed$=�(speed):speed=�(speed$)

h�

rspeed=3

|�

�!�display(0,speed$,mainhandle)

��

�

�
��poll

�#ș "Wimp_Poll",0,block � reason

�Ȏ reason �

�%� 2 : ș "Wimp_OpenWindow",,block

�&� 3 : ș "Wimp_CloseWindow",,block

�"� 6 : �mousebeenclicked(block)

�� 8 : � � �ourkey � �keys

�� 9 : �domenu(block)

�"� 17,18 : �messagestime(block)

��
�
 ��quit:ș "Wimp_CloseDown":�
; � �openmainwindow(block):ș "Wimp_OpenWindow",,block:�
&��mousebeenclicked(bl)
0 x%=!block:y%=block!4
:%� bl!12=mainhandle � �clickonmain
D�
N��clickonmain
X ȗX,Y,Z:� Z=1 � Z=4 �
bȎ bl!16 �
l � 1 : �dragbox(1,mainhandle)
v� 0 : �changespeed
��
� �
��showmenu(menu%,x%,y%,�,2)
� �
��
���messagestime(block)
�Ȏ block!16 �
� � 0:�quit
�� &400C1:�poll:�getsize
��� &400C2:name$=�GetStr(block+28):newtaskid%=block!4:� name$="Mouse Controller" � newtaskid%<>taskhandle � $(block+4)="Mouse Controller is already loaded":ș "Wimp_ReportError",block,1,"Mouse Controller":�quit
� �
��
�� �err(toquit%)
!block=�
\� toquit%=� $(block+4)="A fatal error ("+�$+", "+Þ+"), has occurred. I must quit":�quit

Ȏ � �
 5  $(block+4)="Error : "+�$+", error code "+Þ+""
* �
4+ș "Wimp_ReportError",block,1,"MChange"
> � toquit% �quit:�
H�
R� �doversion
\N!block=infohandle:block!4=0:ș"Wimp_GetIconState",,block:$(block!28)=vers$
f5block!8=0:block!12=0:ș"Wimp_SetIconState",,block
p�
z� �design(m%,menu$)
�menu%?12=7:menu%?13=2
�menu%?14=7:menu%?15=0
�menu%!16=144:menu%!20=40
�menu%!24=0:ptr%=menu%+28
� $menu%=�menu$,�menu$,",")-1)
�menu$+=","
�entries%=0
�ȕ menu$<>""
�menu$=�menu$,�menu$,",")+1)
�� menu$<>"" �
�!ptr%=0:ptr%!4=-1
�ptr%!8=&7000021
�$$(ptr%+12)=�menu$,�menu$,",")-1)
ptr%+=24
entries%+=1
�
$�
.ptr%!-24=ptr%!-24 � &80
8 �
B1 � �showmenu(menu%,x%,y%,oniconbar%,entries%)
L;� oniconbar% � ypos%=96+entries%*44 � ȗ X,Y,Z: ypos%=Y
V+ș "Wimp_CreateMenu",,menu%,x%-96,ypos%
`�
j��domenu(bl)
tchoice%=!block
~Ȏ choice% �
�� 1: quit=�
��
�� � quit �
�#ș "Wimp_GetPointerInfo",,block
�,� block!8=1 � �showmenu(menu%,x%,y%,�,2)
��
� �
�:
�" � �display(iconnum,t$,handle)
� !block=handle
� block!4=iconnum
�! ș"Wimp_GetIconState",,block
 $(block!28)=t$

6 block!8=0:block!12=0:ș"Wimp_SetIconState",,block
 �
 :
(� �dragbox(icon,handle)
2blipblop=icon
<!block=handle
F#ș "Wimp_GetWindowState",,block
Pox%=block!4-block!20
Zoy%=block!16-block!24
dblock!4=icon
n!ș "Wimp_GetIconState",,block
x!block=handle
�
block!4=1
�block!8=ox%+block!8
�block!12=oy%+block!12
�block!16=ox%+block!16
�block!20=oy%+block!20
�block!24=0:block!28=0
�block!32=&7FFFFFFF
�block!36=&7FFFFFFF
�ș "Wimp_DragBox",,block
��
�:
�� �changespeed
�
old=speed
'speed$=�getpropertext(0,mainhandle)
�� speed$="0" � $(block+4)="Don't be silly - The mouse wouldn't move at all if you set it to zero!":ș "Wimp_ReportError",block,1,"Mouse Controller":�display(0,�old,mainhandle):�
�� speed$<>"1" � speed$<>"2"  � speed$<>"3" � speed$<>"4" � speed$<>"5" � speed$<>"6" � speed$<>"7" � speed$<>"8" � speed$<>"9" �
"�$(block+4)="Please enter a number between 1 and 9":ș "Wimp_ReportError",block,1,"Mouse Controller":�display(0,�old,mainhandle):�
,�
6�
@speed=�(speed$)
J
ȗ� speed
T�
^:
h
� �ourkey
rwreturn%=(!block=mainhandle � block!24=13):� return% � ș"Wimp_SetCaretPosition",mainhandle,-1,0,0,-1,0:�changespeed
|=return%
�!� �getpropertext(icon,handle)
��getthetext(icon,handle)
�=$(!(block+28))
�� �getthetext(icon,handle)
�block!0=handle
�block!4=icon
�!ș "Wimp_GetIconState",,block
��
�� �GetStr(s%)
�� n$
�!ȕ(?s%>31):n$+=�(?s%):s%+=1:�
�=n$
�
� �mv(m)
'ș "OS_ReadModeVariable",-1,m � ,,m
=m
&
0� �getsize
:sx=�mv(11)<<�mv(4)
Dsy=�mv(12)<<�mv(5)
N!block=mainhandle
X
block!4=0
bblock!8=sy
lblock!12=0+200
vblock!16=sy+200
�ș "Wimp_OpenWindow",,block
��
�
�� �keys
�Ȏ block!24 �
�� &1B1 : �ic(1)
�� &1B2 : �ic(2)
�� &1B3 : �ic(3)
�� &1B4 : �ic(4)
�� &1B5 : �ic(5)
�� &1B6 : �ic(6)
�� &1B7 : �ic(7)
�� &1B8 : �ic(8)
� &1B9 : �ic(9)
� &18F : �ic(speed+1)
� &18E : �ic(speed-1)
 � &1AF : �ic(9)
*� &1AE : �ic(1)
4% : ș "Wimp_ProcessKey",block!24
>�
H�
R
\� �ic(newspeed)
f� newspeed=10 � newspeed=9
p� newspeed=0 � newspeed=1
z$�display(0,�newspeed,mainhandle)
��changespeed
��
�

00000000  0d 00 0a 11 20 f4 20 3e  21 52 75 6e 49 6d 61 67  |.... . >!RunImag|
00000010  65 0d 00 14 11 20 f4 20  54 68 69 73 20 69 73 20  |e.... . This is |
00000020  50 44 0d 00 1e 17 20 f4  20 a9 20 4a 6f 68 6e 20  |PD.... . . John |
00000030  52 65 65 64 20 31 39 39  33 0d 00 28 0e 20 ee 85  |Reed 1993..(. ..|
00000040  f2 65 72 72 28 b9 29 0d  00 32 09 f2 69 6e 69 74  |.err(.)..2..init|
00000050  0d 00 3c 28 20 76 65 72  73 24 3d 22 31 2e 31 30  |..<( vers$="1.10|
00000060  20 28 32 39 2d 4d 61 79  2d 39 33 29 22 3a f2 64  | (29-May-93)":.d|
00000070  6f 76 65 72 73 69 6f 6e  0d 00 46 0e 20 ee 85 f2  |oversion..F. ...|
00000080  65 72 72 28 a3 29 0d 00  50 05 f5 0d 00 5a 0a 20  |err(.)..P....Z. |
00000090  f2 70 6f 6c 6c 0d 00 64  0a 20 fd 71 75 69 74 0d  |.poll..d. .quit.|
000000a0  00 6e 0a 20 f2 71 75 69  74 0d 00 78 06 20 e0 0d  |.n. .quit..x. ..|
000000b0  00 82 0a dd f2 69 6e 69  74 0d 00 8c 3b de 20 6d  |.....init...;. m|
000000c0  61 69 6e 20 32 35 36 2c  6d 61 69 6e 77 6f 72 6b  |ain 256,mainwork|
000000d0  20 32 35 36 2c 69 6e 66  6f 20 35 31 32 2c 69 6e  | 256,info 512,in|
000000e0  66 6f 77 6f 72 6b 20 35  31 32 2c 62 6c 6f 63 6b  |fowork 512,block|
000000f0  20 32 35 36 0d 00 96 10  20 de 20 6d 65 6e 75 25  | 256.... . menu%|
00000100  20 32 35 36 0d 00 a0 47  c8 99 20 22 57 69 6d 70  | 256...G.. "Wimp|
00000110  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00000120  2c 26 34 42 35 33 34 31  35 34 2c 22 4d 6f 75 73  |,&4B534154,"Mous|
00000130  65 20 43 6f 6e 74 72 6f  6c 6c 65 72 22 20 b8 20  |e Controller" . |
00000140  2c 74 61 73 6b 68 61 6e  64 6c 65 0d 00 aa 35 c8  |,taskhandle...5.|
00000150  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000160  6c 61 74 65 22 2c 2c 22  3c 4d 43 68 61 6e 67 65  |late",,"<MChange|
00000170  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
00000180  0d 00 b4 45 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...E.. "Wimp_Loa|
00000190  64 54 65 6d 70 6c 61 74  65 22 2c 2c 6d 61 69 6e  |dTemplate",,main|
000001a0  2c 6d 61 69 6e 77 6f 72  6b 2c 6d 61 69 6e 77 6f  |,mainwork,mainwo|
000001b0  72 6b 2b 31 30 32 34 2c  2d 31 2c 22 57 69 6e 64  |rk+1024,-1,"Wind|
000001c0  6f 77 22 2c 30 0d 00 be  44 20 c8 99 20 22 57 69  |ow",0...D .. "Wi|
000001d0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000001e0  2c 2c 69 6e 66 6f 2c 69  6e 66 6f 77 6f 72 6b 2c  |,,info,infowork,|
000001f0  69 6e 66 6f 77 6f 72 6b  2b 31 30 32 34 2c 2d 31  |infowork+1024,-1|
00000200  2c 22 69 6e 66 6f 22 2c  30 0d 00 c8 2d c8 99 20  |,"info",0...-.. |
00000210  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000220  6f 77 22 2c 2c 6d 61 69  6e 20 b8 20 6d 61 69 6e  |ow",,main . main|
00000230  68 61 6e 64 6c 65 0d 00  d2 45 c8 99 20 22 57 69  |handle...E.. "Wi|
00000240  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000250  2c 2c 69 6e 66 6f 20 b8  20 69 6e 66 6f 68 61 6e  |,,info . infohan|
00000260  64 6c 65 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |dle:.. "Wimp_Clo|
00000270  73 65 54 65 6d 70 6c 61  74 65 22 0d 00 dc 0a 71  |seTemplate"....q|
00000280  75 69 74 3d a3 0d 00 e6  26 f2 64 65 73 69 67 6e  |uit=....&.design|
00000290  28 6d 65 6e 75 25 2c 22  4d 43 68 61 6e 67 65 2c  |(menu%,"MChange,|
000002a0  49 6e 66 6f 2c 51 75 69  74 22 29 0d 00 f0 17 6d  |Info,Quit")....m|
000002b0  65 6e 75 25 21 33 32 3d  69 6e 66 6f 68 61 6e 64  |enu%!32=infohand|
000002c0  6c 65 0d 00 fa 10 f2 64  65 66 61 75 6c 74 66 69  |le.....defaultfi|
000002d0  6c 65 0d 01 04 10 f2 63  68 61 6e 67 65 73 70 65  |le.....changespe|
000002e0  65 64 0d 01 0e 0c f2 67  65 74 73 69 7a 65 0d 01  |ed.....getsize..|
000002f0  18 05 e1 0d 01 22 04 0d  01 2c 12 dd 20 f2 64 65  |....."...,.. .de|
00000300  66 61 75 6c 74 66 69 6c  65 0d 01 36 24 66 69 6c  |faultfile..6$fil|
00000310  65 25 3d 8e 28 22 3c 4d  43 68 61 6e 67 65 24 44  |e%=.("<MChange$D|
00000320  69 72 3e 2e 44 65 66 61  75 6c 74 22 29 0d 01 40  |ir>.Default")..@|
00000330  10 e7 20 66 69 6c 65 25  3c 3e 30 20 8c 0d 01 4a  |.. file%<>0 ...J|
00000340  11 73 70 65 65 64 3d 9a  23 66 69 6c 65 25 0d 01  |.speed=.#file%..|
00000350  54 0b d9 23 66 69 6c 65  25 0d 01 5e 23 73 70 65  |T..#file%..^#spe|
00000360  65 64 24 3d bd 28 73 70  65 65 64 29 3a 73 70 65  |ed$=.(speed):spe|
00000370  65 64 3d bb 28 73 70 65  65 64 24 29 0d 01 68 05  |ed=.(speed$)..h.|
00000380  cc 0d 01 72 0b 73 70 65  65 64 3d 33 0d 01 7c 05  |...r.speed=3..|.|
00000390  cd 0d 01 86 21 f2 64 69  73 70 6c 61 79 28 30 2c  |....!.display(0,|
000003a0  73 70 65 65 64 24 2c 6d  61 69 6e 68 61 6e 64 6c  |speed$,mainhandl|
000003b0  65 29 0d 01 90 05 e1 0d  01 9a 04 0d 01 a4 0a dd  |e)..............|
000003c0  f2 70 6f 6c 6c 0d 01 ae  23 c8 99 20 22 57 69 6d  |.poll...#.. "Wim|
000003d0  70 5f 50 6f 6c 6c 22 2c  30 2c 62 6c 6f 63 6b 20  |p_Poll",0,block |
000003e0  b8 20 72 65 61 73 6f 6e  0d 01 b8 0f c8 8e 20 72  |. reason...... r|
000003f0  65 61 73 6f 6e 20 ca 0d  01 c2 25 c9 20 32 20 3a  |eason ....%. 2 :|
00000400  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00000410  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 0d 01 cc 26  |ndow",,block...&|
00000420  c9 20 33 20 3a 20 c8 99  20 22 57 69 6d 70 5f 43  |. 3 : .. "Wimp_C|
00000430  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
00000440  63 6b 0d 01 d6 22 c9 20  36 20 3a 20 f2 6d 6f 75  |ck...". 6 : .mou|
00000450  73 65 62 65 65 6e 63 6c  69 63 6b 65 64 28 62 6c  |sebeenclicked(bl|
00000460  6f 63 6b 29 0d 01 e0 1d  c9 20 38 20 3a 20 e7 20  |ock)..... 8 : . |
00000470  ac 20 a4 6f 75 72 6b 65  79 20 8c 20 f2 6b 65 79  |. .ourkey . .key|
00000480  73 0d 01 ea 18 c9 20 39  20 3a 20 f2 64 6f 6d 65  |s..... 9 : .dome|
00000490  6e 75 28 62 6c 6f 63 6b  29 0d 01 f4 22 c9 20 31  |nu(block)...". 1|
000004a0  37 2c 31 38 20 3a 20 f2  6d 65 73 73 61 67 65 73  |7,18 : .messages|
000004b0  74 69 6d 65 28 62 6c 6f  63 6b 29 0d 01 fe 05 cb  |time(block).....|
000004c0  0d 02 08 05 e1 0d 02 12  20 dd f2 71 75 69 74 3a  |........ ..quit:|
000004d0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
000004e0  77 6e 22 3a e1 0d 02 1c  3b 20 dd 20 f2 6f 70 65  |wn":....; . .ope|
000004f0  6e 6d 61 69 6e 77 69 6e  64 6f 77 28 62 6c 6f 63  |nmainwindow(bloc|
00000500  6b 29 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |k):.. "Wimp_Open|
00000510  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 3a e1  |Window",,block:.|
00000520  0d 02 26 1a dd f2 6d 6f  75 73 65 62 65 65 6e 63  |..&...mousebeenc|
00000530  6c 69 63 6b 65 64 28 62  6c 29 0d 02 30 19 20 78  |licked(bl)..0. x|
00000540  25 3d 21 62 6c 6f 63 6b  3a 79 25 3d 62 6c 6f 63  |%=!block:y%=bloc|
00000550  6b 21 34 0d 02 3a 25 e7  20 62 6c 21 31 32 3d 6d  |k!4..:%. bl!12=m|
00000560  61 69 6e 68 61 6e 64 6c  65 20 8c 20 f2 63 6c 69  |ainhandle . .cli|
00000570  63 6b 6f 6e 6d 61 69 6e  0d 02 44 05 e1 0d 02 4e  |ckonmain..D....N|
00000580  11 dd f2 63 6c 69 63 6b  6f 6e 6d 61 69 6e 0d 02  |...clickonmain..|
00000590  58 1a 20 c8 97 58 2c 59  2c 5a 3a e7 20 5a 3d 31  |X. ..X,Y,Z:. Z=1|
000005a0  20 84 20 5a 3d 34 20 8c  0d 02 62 0e c8 8e 20 62  | . Z=4 ...b... b|
000005b0  6c 21 31 36 20 ca 0d 02  6c 20 c9 20 31 20 3a 20  |l!16 ...l . 1 : |
000005c0  f2 64 72 61 67 62 6f 78  28 31 2c 6d 61 69 6e 68  |.dragbox(1,mainh|
000005d0  61 6e 64 6c 65 29 0d 02  76 16 c9 20 30 20 3a 20  |andle)..v.. 0 : |
000005e0  f2 63 68 61 6e 67 65 73  70 65 65 64 0d 02 80 05  |.changespeed....|
000005f0  cb 0d 02 8a 06 20 cc 0d  02 94 1e f2 73 68 6f 77  |..... ......show|
00000600  6d 65 6e 75 28 6d 65 6e  75 25 2c 78 25 2c 79 25  |menu(menu%,x%,y%|
00000610  2c a3 2c 32 29 0d 02 9e  06 20 cd 0d 02 a8 05 e1  |,.,2).... ......|
00000620  0d 02 b2 19 dd f2 6d 65  73 73 61 67 65 73 74 69  |......messagesti|
00000630  6d 65 28 62 6c 6f 63 6b  29 0d 02 bc 11 c8 8e 20  |me(block)...... |
00000640  62 6c 6f 63 6b 21 31 36  20 ca 0d 02 c6 0e 20 c9  |block!16 ..... .|
00000650  20 30 3a f2 71 75 69 74  0d 02 d0 1b c9 20 26 34  | 0:.quit..... &4|
00000660  30 30 43 31 3a f2 70 6f  6c 6c 3a f2 67 65 74 73  |00C1:.poll:.gets|
00000670  69 7a 65 0d 02 da d4 c9  20 26 34 30 30 43 32 3a  |ize..... &400C2:|
00000680  6e 61 6d 65 24 3d a4 47  65 74 53 74 72 28 62 6c  |name$=.GetStr(bl|
00000690  6f 63 6b 2b 32 38 29 3a  6e 65 77 74 61 73 6b 69  |ock+28):newtaski|
000006a0  64 25 3d 62 6c 6f 63 6b  21 34 3a e7 20 6e 61 6d  |d%=block!4:. nam|
000006b0  65 24 3d 22 4d 6f 75 73  65 20 43 6f 6e 74 72 6f  |e$="Mouse Contro|
000006c0  6c 6c 65 72 22 20 80 20  6e 65 77 74 61 73 6b 69  |ller" . newtaski|
000006d0  64 25 3c 3e 74 61 73 6b  68 61 6e 64 6c 65 20 8c  |d%<>taskhandle .|
000006e0  20 24 28 62 6c 6f 63 6b  2b 34 29 3d 22 4d 6f 75  | $(block+4)="Mou|
000006f0  73 65 20 43 6f 6e 74 72  6f 6c 6c 65 72 20 69 73  |se Controller is|
00000700  20 61 6c 72 65 61 64 79  20 6c 6f 61 64 65 64 22  | already loaded"|
00000710  3a c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |:.. "Wimp_Report|
00000720  45 72 72 6f 72 22 2c 62  6c 6f 63 6b 2c 31 2c 22  |Error",block,1,"|
00000730  4d 6f 75 73 65 20 43 6f  6e 74 72 6f 6c 6c 65 72  |Mouse Controller|
00000740  22 3a f2 71 75 69 74 0d  02 e4 06 20 cb 0d 02 ee  |":.quit.... ....|
00000750  05 e1 0d 02 f8 13 dd 20  f2 65 72 72 28 74 6f 71  |....... .err(toq|
00000760  75 69 74 25 29 0d 03 02  0c 21 62 6c 6f 63 6b 3d  |uit%)....!block=|
00000770  9f 0d 03 0c 5c e7 20 74  6f 71 75 69 74 25 3d b9  |....\. toquit%=.|
00000780  20 24 28 62 6c 6f 63 6b  2b 34 29 3d 22 41 20 66  | $(block+4)="A f|
00000790  61 74 61 6c 20 65 72 72  6f 72 20 28 22 2b f6 24  |atal error ("+.$|
000007a0  2b 22 2c 20 22 2b c3 9e  2b 22 29 2c 20 68 61 73  |+", "+..+"), has|
000007b0  20 6f 63 63 75 72 72 65  64 2e 20 49 20 6d 75 73  | occurred. I mus|
000007c0  74 20 71 75 69 74 22 3a  f2 71 75 69 74 0d 03 16  |t quit":.quit...|
000007d0  0a c8 8e 20 9f 20 ca 0d  03 20 35 20 7f 20 24 28  |... . ... 5 . $(|
000007e0  62 6c 6f 63 6b 2b 34 29  3d 22 45 72 72 6f 72 20  |block+4)="Error |
000007f0  3a 20 22 2b f6 24 2b 22  2c 20 65 72 72 6f 72 20  |: "+.$+", error |
00000800  63 6f 64 65 20 22 2b c3  9e 2b 22 22 0d 03 2a 06  |code "+..+""..*.|
00000810  20 cb 0d 03 34 2b c8 99  20 22 57 69 6d 70 5f 52  | ...4+.. "Wimp_R|
00000820  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
00000830  6b 2c 31 2c 22 4d 43 68  61 6e 67 65 22 0d 03 3e  |k,1,"MChange"..>|
00000840  16 20 e7 20 74 6f 71 75  69 74 25 20 f2 71 75 69  |. . toquit% .qui|
00000850  74 3a e0 0d 03 48 05 e1  0d 03 52 10 dd 20 f2 64  |t:...H....R.. .d|
00000860  6f 76 65 72 73 69 6f 6e  0d 03 5c 4e 21 62 6c 6f  |oversion..\N!blo|
00000870  63 6b 3d 69 6e 66 6f 68  61 6e 64 6c 65 3a 62 6c  |ck=infohandle:bl|
00000880  6f 63 6b 21 34 3d 30 3a  c8 99 22 57 69 6d 70 5f  |ock!4=0:.."Wimp_|
00000890  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
000008a0  6c 6f 63 6b 3a 24 28 62  6c 6f 63 6b 21 32 38 29  |lock:$(block!28)|
000008b0  3d 76 65 72 73 24 0d 03  66 35 62 6c 6f 63 6b 21  |=vers$..f5block!|
000008c0  38 3d 30 3a 62 6c 6f 63  6b 21 31 32 3d 30 3a c8  |8=0:block!12=0:.|
000008d0  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
000008e0  61 74 65 22 2c 2c 62 6c  6f 63 6b 0d 03 70 05 e1  |ate",,block..p..|
000008f0  0d 03 7a 17 dd 20 f2 64  65 73 69 67 6e 28 6d 25  |..z.. .design(m%|
00000900  2c 6d 65 6e 75 24 29 0d  03 84 19 6d 65 6e 75 25  |,menu$)....menu%|
00000910  3f 31 32 3d 37 3a 6d 65  6e 75 25 3f 31 33 3d 32  |?12=7:menu%?13=2|
00000920  0d 03 8e 19 6d 65 6e 75  25 3f 31 34 3d 37 3a 6d  |....menu%?14=7:m|
00000930  65 6e 75 25 3f 31 35 3d  30 0d 03 98 1c 6d 65 6e  |enu%?15=0....men|
00000940  75 25 21 31 36 3d 31 34  34 3a 6d 65 6e 75 25 21  |u%!16=144:menu%!|
00000950  32 30 3d 34 30 0d 03 a2  1c 6d 65 6e 75 25 21 32  |20=40....menu%!2|
00000960  34 3d 30 3a 70 74 72 25  3d 6d 65 6e 75 25 2b 32  |4=0:ptr%=menu%+2|
00000970  38 0d 03 ac 20 24 6d 65  6e 75 25 3d c0 6d 65 6e  |8... $menu%=.men|
00000980  75 24 2c a7 6d 65 6e 75  24 2c 22 2c 22 29 2d 31  |u$,.menu$,",")-1|
00000990  29 0d 03 b6 0e 6d 65 6e  75 24 2b 3d 22 2c 22 0d  |)....menu$+=",".|
000009a0  03 c0 0e 65 6e 74 72 69  65 73 25 3d 30 0d 03 ca  |...entries%=0...|
000009b0  10 c8 95 20 6d 65 6e 75  24 3c 3e 22 22 0d 03 d4  |... menu$<>""...|
000009c0  1f 6d 65 6e 75 24 3d c1  6d 65 6e 75 24 2c a7 6d  |.menu$=.menu$,.m|
000009d0  65 6e 75 24 2c 22 2c 22  29 2b 31 29 0d 03 de 11  |enu$,",")+1)....|
000009e0  e7 20 6d 65 6e 75 24 3c  3e 22 22 20 8c 0d 03 e8  |. menu$<>"" ....|
000009f0  15 21 70 74 72 25 3d 30  3a 70 74 72 25 21 34 3d  |.!ptr%=0:ptr%!4=|
00000a00  2d 31 0d 03 f2 13 70 74  72 25 21 38 3d 26 37 30  |-1....ptr%!8=&70|
00000a10  30 30 30 32 31 0d 03 fc  24 24 28 70 74 72 25 2b  |00021...$$(ptr%+|
00000a20  31 32 29 3d c0 6d 65 6e  75 24 2c a7 6d 65 6e 75  |12)=.menu$,.menu|
00000a30  24 2c 22 2c 22 29 2d 31  29 0d 04 06 0c 70 74 72  |$,",")-1)....ptr|
00000a40  25 2b 3d 32 34 0d 04 10  0f 65 6e 74 72 69 65 73  |%+=24....entries|
00000a50  25 2b 3d 31 0d 04 1a 05  cd 0d 04 24 05 ce 0d 04  |%+=1.......$....|
00000a60  2e 1b 70 74 72 25 21 2d  32 34 3d 70 74 72 25 21  |..ptr%!-24=ptr%!|
00000a70  2d 32 34 20 84 20 26 38  30 0d 04 38 06 20 e1 0d  |-24 . &80..8. ..|
00000a80  04 42 31 20 dd 20 f2 73  68 6f 77 6d 65 6e 75 28  |.B1 . .showmenu(|
00000a90  6d 65 6e 75 25 2c 78 25  2c 79 25 2c 6f 6e 69 63  |menu%,x%,y%,onic|
00000aa0  6f 6e 62 61 72 25 2c 65  6e 74 72 69 65 73 25 29  |onbar%,entries%)|
00000ab0  0d 04 4c 3b e7 20 6f 6e  69 63 6f 6e 62 61 72 25  |..L;. oniconbar%|
00000ac0  20 8c 20 79 70 6f 73 25  3d 39 36 2b 65 6e 74 72  | . ypos%=96+entr|
00000ad0  69 65 73 25 2a 34 34 20  8b 20 c8 97 20 58 2c 59  |ies%*44 . .. X,Y|
00000ae0  2c 5a 3a 20 79 70 6f 73  25 3d 59 0d 04 56 2b c8  |,Z: ypos%=Y..V+.|
00000af0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00000b00  6e 75 22 2c 2c 6d 65 6e  75 25 2c 78 25 2d 39 36  |nu",,menu%,x%-96|
00000b10  2c 79 70 6f 73 25 0d 04  60 05 e1 0d 04 6a 10 dd  |,ypos%..`....j..|
00000b20  f2 64 6f 6d 65 6e 75 28  62 6c 29 0d 04 74 12 63  |.domenu(bl)..t.c|
00000b30  68 6f 69 63 65 25 3d 21  62 6c 6f 63 6b 0d 04 7e  |hoice%=!block..~|
00000b40  10 c8 8e 20 63 68 6f 69  63 65 25 20 ca 0d 04 88  |... choice% ....|
00000b50  0f c9 20 31 3a 20 71 75  69 74 3d b9 0d 04 92 05  |.. 1: quit=.....|
00000b60  cb 0d 04 9c 0e e7 20 ac  20 71 75 69 74 20 8c 0d  |...... . quit ..|
00000b70  04 a6 23 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |..#.. "Wimp_GetP|
00000b80  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 62 6c 6f  |ointerInfo",,blo|
00000b90  63 6b 0d 04 b0 2c e7 20  62 6c 6f 63 6b 21 38 3d  |ck...,. block!8=|
00000ba0  31 20 8c 20 f2 73 68 6f  77 6d 65 6e 75 28 6d 65  |1 . .showmenu(me|
00000bb0  6e 75 25 2c 78 25 2c 79  25 2c a3 2c 32 29 0d 04  |nu%,x%,y%,.,2)..|
00000bc0  ba 05 cd 0d 04 c4 06 20  e1 0d 04 ce 05 3a 0d 04  |....... .....:..|
00000bd0  d8 22 20 dd 20 f2 64 69  73 70 6c 61 79 28 69 63  |." . .display(ic|
00000be0  6f 6e 6e 75 6d 2c 74 24  2c 68 61 6e 64 6c 65 29  |onnum,t$,handle)|
00000bf0  0d 04 e2 12 20 21 62 6c  6f 63 6b 3d 68 61 6e 64  |.... !block=hand|
00000c00  6c 65 0d 04 ec 14 20 62  6c 6f 63 6b 21 34 3d 69  |le.... block!4=i|
00000c10  63 6f 6e 6e 75 6d 0d 04  f6 21 20 c8 99 22 57 69  |connum...! .."Wi|
00000c20  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000c30  2c 2c 62 6c 6f 63 6b 0d  05 00 13 20 24 28 62 6c  |,,block.... $(bl|
00000c40  6f 63 6b 21 32 38 29 3d  74 24 0d 05 0a 36 20 62  |ock!28)=t$...6 b|
00000c50  6c 6f 63 6b 21 38 3d 30  3a 62 6c 6f 63 6b 21 31  |lock!8=0:block!1|
00000c60  32 3d 30 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |2=0:.."Wimp_SetI|
00000c70  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00000c80  0d 05 14 06 20 e1 0d 05  1e 06 20 3a 0d 05 28 1b  |.... ..... :..(.|
00000c90  dd 20 f2 64 72 61 67 62  6f 78 28 69 63 6f 6e 2c  |. .dragbox(icon,|
00000ca0  68 61 6e 64 6c 65 29 0d  05 32 11 62 6c 69 70 62  |handle)..2.blipb|
00000cb0  6c 6f 70 3d 69 63 6f 6e  0d 05 3c 11 21 62 6c 6f  |lop=icon..<.!blo|
00000cc0  63 6b 3d 68 61 6e 64 6c  65 0d 05 46 23 c8 99 20  |ck=handle..F#.. |
00000cd0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000ce0  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 0d 05 50 18  |tate",,block..P.|
00000cf0  6f 78 25 3d 62 6c 6f 63  6b 21 34 2d 62 6c 6f 63  |ox%=block!4-bloc|
00000d00  6b 21 32 30 0d 05 5a 19  6f 79 25 3d 62 6c 6f 63  |k!20..Z.oy%=bloc|
00000d10  6b 21 31 36 2d 62 6c 6f  63 6b 21 32 34 0d 05 64  |k!16-block!24..d|
00000d20  10 62 6c 6f 63 6b 21 34  3d 69 63 6f 6e 0d 05 6e  |.block!4=icon..n|
00000d30  21 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |!.. "Wimp_GetIco|
00000d40  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 0d 05  |nState",,block..|
00000d50  78 11 21 62 6c 6f 63 6b  3d 68 61 6e 64 6c 65 0d  |x.!block=handle.|
00000d60  05 82 0d 62 6c 6f 63 6b  21 34 3d 31 0d 05 8c 17  |...block!4=1....|
00000d70  62 6c 6f 63 6b 21 38 3d  6f 78 25 2b 62 6c 6f 63  |block!8=ox%+bloc|
00000d80  6b 21 38 0d 05 96 19 62  6c 6f 63 6b 21 31 32 3d  |k!8....block!12=|
00000d90  6f 79 25 2b 62 6c 6f 63  6b 21 31 32 0d 05 a0 19  |oy%+block!12....|
00000da0  62 6c 6f 63 6b 21 31 36  3d 6f 78 25 2b 62 6c 6f  |block!16=ox%+blo|
00000db0  63 6b 21 31 36 0d 05 aa  19 62 6c 6f 63 6b 21 32  |ck!16....block!2|
00000dc0  30 3d 6f 79 25 2b 62 6c  6f 63 6b 21 32 30 0d 05  |0=oy%+block!20..|
00000dd0  b4 19 62 6c 6f 63 6b 21  32 34 3d 30 3a 62 6c 6f  |..block!24=0:blo|
00000de0  63 6b 21 32 38 3d 30 0d  05 be 16 62 6c 6f 63 6b  |ck!28=0....block|
00000df0  21 33 32 3d 26 37 46 46  46 46 46 46 46 0d 05 c8  |!32=&7FFFFFFF...|
00000e00  16 62 6c 6f 63 6b 21 33  36 3d 26 37 46 46 46 46  |.block!36=&7FFFF|
00000e10  46 46 46 0d 05 d2 1c c8  99 20 22 57 69 6d 70 5f  |FFF...... "Wimp_|
00000e20  44 72 61 67 42 6f 78 22  2c 2c 62 6c 6f 63 6b 0d  |DragBox",,block.|
00000e30  05 dc 05 e1 0d 05 e6 05  3a 0d 05 f0 12 dd 20 f2  |........:..... .|
00000e40  63 68 61 6e 67 65 73 70  65 65 64 0d 05 fa 0d 6f  |changespeed....o|
00000e50  6c 64 3d 73 70 65 65 64  0d 06 04 27 73 70 65 65  |ld=speed...'spee|
00000e60  64 24 3d a4 67 65 74 70  72 6f 70 65 72 74 65 78  |d$=.getpropertex|
00000e70  74 28 30 2c 6d 61 69 6e  68 61 6e 64 6c 65 29 0d  |t(0,mainhandle).|
00000e80  06 0e b5 e7 20 73 70 65  65 64 24 3d 22 30 22 20  |.... speed$="0" |
00000e90  8c 20 24 28 62 6c 6f 63  6b 2b 34 29 3d 22 44 6f  |. $(block+4)="Do|
00000ea0  6e 27 74 20 62 65 20 73  69 6c 6c 79 20 2d 20 54  |n't be silly - T|
00000eb0  68 65 20 6d 6f 75 73 65  20 77 6f 75 6c 64 6e 27  |he mouse wouldn'|
00000ec0  74 20 6d 6f 76 65 20 61  74 20 61 6c 6c 20 69 66  |t move at all if|
00000ed0  20 79 6f 75 20 73 65 74  20 69 74 20 74 6f 20 7a  | you set it to z|
00000ee0  65 72 6f 21 22 3a c8 99  20 22 57 69 6d 70 5f 52  |ero!":.. "Wimp_R|
00000ef0  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
00000f00  6b 2c 31 2c 22 4d 6f 75  73 65 20 43 6f 6e 74 72  |k,1,"Mouse Contr|
00000f10  6f 6c 6c 65 72 22 3a f2  64 69 73 70 6c 61 79 28  |oller":.display(|
00000f20  30 2c c3 6f 6c 64 2c 6d  61 69 6e 68 61 6e 64 6c  |0,.old,mainhandl|
00000f30  65 29 3a e1 0d 06 18 84  e7 20 73 70 65 65 64 24  |e):...... speed$|
00000f40  3c 3e 22 31 22 20 80 20  73 70 65 65 64 24 3c 3e  |<>"1" . speed$<>|
00000f50  22 32 22 20 20 80 20 73  70 65 65 64 24 3c 3e 22  |"2"  . speed$<>"|
00000f60  33 22 20 80 20 73 70 65  65 64 24 3c 3e 22 34 22  |3" . speed$<>"4"|
00000f70  20 80 20 73 70 65 65 64  24 3c 3e 22 35 22 20 80  | . speed$<>"5" .|
00000f80  20 73 70 65 65 64 24 3c  3e 22 36 22 20 80 20 73  | speed$<>"6" . s|
00000f90  70 65 65 64 24 3c 3e 22  37 22 20 80 20 73 70 65  |peed$<>"7" . spe|
00000fa0  65 64 24 3c 3e 22 38 22  20 80 20 73 70 65 65 64  |ed$<>"8" . speed|
00000fb0  24 3c 3e 22 39 22 20 8c  0d 06 22 85 24 28 62 6c  |$<>"9" ...".$(bl|
00000fc0  6f 63 6b 2b 34 29 3d 22  50 6c 65 61 73 65 20 65  |ock+4)="Please e|
00000fd0  6e 74 65 72 20 61 20 6e  75 6d 62 65 72 20 62 65  |nter a number be|
00000fe0  74 77 65 65 6e 20 31 20  61 6e 64 20 39 22 3a c8  |tween 1 and 9":.|
00000ff0  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00001000  72 6f 72 22 2c 62 6c 6f  63 6b 2c 31 2c 22 4d 6f  |ror",block,1,"Mo|
00001010  75 73 65 20 43 6f 6e 74  72 6f 6c 6c 65 72 22 3a  |use Controller":|
00001020  f2 64 69 73 70 6c 61 79  28 30 2c c3 6f 6c 64 2c  |.display(0,.old,|
00001030  6d 61 69 6e 68 61 6e 64  6c 65 29 3a e1 0d 06 2c  |mainhandle):...,|
00001040  05 cc 0d 06 36 05 cd 0d  06 40 13 73 70 65 65 64  |....6....@.speed|
00001050  3d bb 28 73 70 65 65 64  24 29 0d 06 4a 0d c8 97  |=.(speed$)..J...|
00001060  88 20 73 70 65 65 64 0d  06 54 05 e1 0d 06 5e 05  |. speed..T....^.|
00001070  3a 0d 06 68 0d dd 20 a4  6f 75 72 6b 65 79 0d 06  |:..h.. .ourkey..|
00001080  72 77 72 65 74 75 72 6e  25 3d 28 21 62 6c 6f 63  |rwreturn%=(!bloc|
00001090  6b 3d 6d 61 69 6e 68 61  6e 64 6c 65 20 80 20 62  |k=mainhandle . b|
000010a0  6c 6f 63 6b 21 32 34 3d  31 33 29 3a e7 20 72 65  |lock!24=13):. re|
000010b0  74 75 72 6e 25 20 8c 20  c8 99 22 57 69 6d 70 5f  |turn% . .."Wimp_|
000010c0  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
000010d0  22 2c 6d 61 69 6e 68 61  6e 64 6c 65 2c 2d 31 2c  |",mainhandle,-1,|
000010e0  30 2c 30 2c 2d 31 2c 30  3a f2 63 68 61 6e 67 65  |0,0,-1,0:.change|
000010f0  73 70 65 65 64 0d 06 7c  0c 3d 72 65 74 75 72 6e  |speed..|.=return|
00001100  25 0d 06 86 21 dd 20 a4  67 65 74 70 72 6f 70 65  |%...!. .getprope|
00001110  72 74 65 78 74 28 69 63  6f 6e 2c 68 61 6e 64 6c  |rtext(icon,handl|
00001120  65 29 0d 06 90 1c f2 67  65 74 74 68 65 74 65 78  |e).....getthetex|
00001130  74 28 69 63 6f 6e 2c 68  61 6e 64 6c 65 29 0d 06  |t(icon,handle)..|
00001140  9a 13 3d 24 28 21 28 62  6c 6f 63 6b 2b 32 38 29  |..=$(!(block+28)|
00001150  29 0d 06 a4 1e dd 20 f2  67 65 74 74 68 65 74 65  |)..... .getthete|
00001160  78 74 28 69 63 6f 6e 2c  68 61 6e 64 6c 65 29 0d  |xt(icon,handle).|
00001170  06 ae 12 62 6c 6f 63 6b  21 30 3d 68 61 6e 64 6c  |...block!0=handl|
00001180  65 0d 06 b8 10 62 6c 6f  63 6b 21 34 3d 69 63 6f  |e....block!4=ico|
00001190  6e 0d 06 c2 21 c8 99 20  22 57 69 6d 70 5f 47 65  |n...!.. "Wimp_Ge|
000011a0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
000011b0  63 6b 0d 06 cc 05 e1 0d  06 d6 11 dd 20 a4 47 65  |ck.......... .Ge|
000011c0  74 53 74 72 28 73 25 29  0d 06 e0 08 ea 20 6e 24  |tStr(s%)..... n$|
000011d0  0d 06 ea 21 c8 95 28 3f  73 25 3e 33 31 29 3a 6e  |...!..(?s%>31):n|
000011e0  24 2b 3d bd 28 3f 73 25  29 3a 73 25 2b 3d 31 3a  |$+=.(?s%):s%+=1:|
000011f0  ce 0d 06 f4 07 3d 6e 24  0d 06 fe 04 0d 07 08 0c  |.....=n$........|
00001200  dd 20 a4 6d 76 28 6d 29  0d 07 12 27 c8 99 20 22  |. .mv(m)...'.. "|
00001210  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00001220  62 6c 65 22 2c 2d 31 2c  6d 20 b8 20 2c 2c 6d 0d  |ble",-1,m . ,,m.|
00001230  07 1c 06 3d 6d 0d 07 26  04 0d 07 30 0e dd 20 f2  |...=m..&...0.. .|
00001240  67 65 74 73 69 7a 65 0d  07 3a 16 73 78 3d a4 6d  |getsize..:.sx=.m|
00001250  76 28 31 31 29 3c 3c a4  6d 76 28 34 29 0d 07 44  |v(11)<<.mv(4)..D|
00001260  16 73 79 3d a4 6d 76 28  31 32 29 3c 3c a4 6d 76  |.sy=.mv(12)<<.mv|
00001270  28 35 29 0d 07 4e 15 21  62 6c 6f 63 6b 3d 6d 61  |(5)..N.!block=ma|
00001280  69 6e 68 61 6e 64 6c 65  0d 07 58 0d 62 6c 6f 63  |inhandle..X.bloc|
00001290  6b 21 34 3d 30 0d 07 62  0e 62 6c 6f 63 6b 21 38  |k!4=0..b.block!8|
000012a0  3d 73 79 0d 07 6c 12 62  6c 6f 63 6b 21 31 32 3d  |=sy..l.block!12=|
000012b0  30 2b 32 30 30 0d 07 76  13 62 6c 6f 63 6b 21 31  |0+200..v.block!1|
000012c0  36 3d 73 79 2b 32 30 30  0d 07 80 1f c8 99 20 22  |6=sy+200...... "|
000012d0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000012e0  2c 2c 62 6c 6f 63 6b 0d  07 8a 05 e1 0d 07 94 04  |,,block.........|
000012f0  0d 07 9e 0b dd 20 f2 6b  65 79 73 0d 07 a8 11 c8  |..... .keys.....|
00001300  8e 20 62 6c 6f 63 6b 21  32 34 20 ca 0d 07 b2 13  |. block!24 .....|
00001310  c9 20 26 31 42 31 20 3a  20 f2 69 63 28 31 29 0d  |. &1B1 : .ic(1).|
00001320  07 bc 13 c9 20 26 31 42  32 20 3a 20 f2 69 63 28  |.... &1B2 : .ic(|
00001330  32 29 0d 07 c6 13 c9 20  26 31 42 33 20 3a 20 f2  |2)..... &1B3 : .|
00001340  69 63 28 33 29 0d 07 d0  13 c9 20 26 31 42 34 20  |ic(3)..... &1B4 |
00001350  3a 20 f2 69 63 28 34 29  0d 07 da 13 c9 20 26 31  |: .ic(4)..... &1|
00001360  42 35 20 3a 20 f2 69 63  28 35 29 0d 07 e4 13 c9  |B5 : .ic(5).....|
00001370  20 26 31 42 36 20 3a 20  f2 69 63 28 36 29 0d 07  | &1B6 : .ic(6)..|
00001380  ee 13 c9 20 26 31 42 37  20 3a 20 f2 69 63 28 37  |... &1B7 : .ic(7|
00001390  29 0d 07 f8 13 c9 20 26  31 42 38 20 3a 20 f2 69  |)..... &1B8 : .i|
000013a0  63 28 38 29 0d 08 02 13  c9 20 26 31 42 39 20 3a  |c(8)..... &1B9 :|
000013b0  20 f2 69 63 28 39 29 0d  08 0c 19 c9 20 26 31 38  | .ic(9)..... &18|
000013c0  46 20 3a 20 f2 69 63 28  73 70 65 65 64 2b 31 29  |F : .ic(speed+1)|
000013d0  0d 08 16 19 c9 20 26 31  38 45 20 3a 20 f2 69 63  |..... &18E : .ic|
000013e0  28 73 70 65 65 64 2d 31  29 0d 08 20 13 c9 20 26  |(speed-1).. .. &|
000013f0  31 41 46 20 3a 20 f2 69  63 28 39 29 0d 08 2a 13  |1AF : .ic(9)..*.|
00001400  c9 20 26 31 41 45 20 3a  20 f2 69 63 28 31 29 0d  |. &1AE : .ic(1).|
00001410  08 34 25 7f 20 3a 20 c8  99 20 22 57 69 6d 70 5f  |.4%. : .. "Wimp_|
00001420  50 72 6f 63 65 73 73 4b  65 79 22 2c 62 6c 6f 63  |ProcessKey",bloc|
00001430  6b 21 32 34 0d 08 3e 05  cb 0d 08 48 05 e1 0d 08  |k!24..>....H....|
00001440  52 04 0d 08 5c 13 dd 20  f2 69 63 28 6e 65 77 73  |R...\.. .ic(news|
00001450  70 65 65 64 29 0d 08 66  1e e7 20 6e 65 77 73 70  |peed)..f.. newsp|
00001460  65 65 64 3d 31 30 20 8c  20 6e 65 77 73 70 65 65  |eed=10 . newspee|
00001470  64 3d 39 0d 08 70 1d e7  20 6e 65 77 73 70 65 65  |d=9..p.. newspee|
00001480  64 3d 30 20 8c 20 6e 65  77 73 70 65 65 64 3d 31  |d=0 . newspeed=1|
00001490  0d 08 7a 24 f2 64 69 73  70 6c 61 79 28 30 2c c3  |..z$.display(0,.|
000014a0  6e 65 77 73 70 65 65 64  2c 6d 61 69 6e 68 61 6e  |newspeed,mainhan|
000014b0  64 6c 65 29 0d 08 84 10  f2 63 68 61 6e 67 65 73  |dle).....changes|
000014c0  70 65 65 64 0d 08 8e 05  e1 0d ff                 |peed.......|
000014cb