� !RunImage
� Sender program
� by Steve Eyre
(� (c) AU Jul 1995
2:
<� � � �$;" at line ";�:�
FTaskid$="Sender"
P:
Z!ș "OS_Byte",129,0,255 � ,os%
dȎ os% �
n � &A1,&A2,&A3 : version%=200
x
� version%=310
��
�� list% 4 : !list%=0
�Bș "Wimp_Initialise",version%,&4B534154,Taskid$,list% � ,Task%
�:
�8� � �error(" AT LINE "+Þ) : ș "Wimp_CloseDown" : �
�:
�
�SetUp
�:
�E� � �error(�$+" at line "+Þ) : quit%=� : ș "Wimp_CloseDown" : �
�:
�ȕ � quit%
�	�poll

�

�Closedown

�

":

,��Closedown

6ș "Font_LoseFont",f1%

@ș "Wimp_CloseDown"

J�

T:

^��SetUp

hD� block% &2000,menu 150,template% &6000, buffer% &1000,font% 256

rș "Hourglass_On"

|!file%=�"<Sender$Dir>.Sprites"

�size%=�#file%+4 : �#file%

�,� Sprites size%, factor% 15,pixtrans% 15

�>!Sprites=size% : Sprites!4=0 : Sprites!8=16 : Sprites!12=0

�7ș "OS_SpriteOp",266,Sprites,"<Sender$Dir>.Sprites"

�*Icon=�iconbar : quit%=� : ErrorMsg$=""

�!�getModeInfo : �loadTemplates

��defineMenus

�:

�7� codedata$(50),word$(250),speed%(25),Pmessage$(10)

�wordsum%=0

��readarrays

�Gvol%=-4:pitch%=118:rate%=20:content%=2:write%=�:�  default settings

��loadsettings : lflag%=�
7ș "Font_FindFont",,"Homerton.Medium",200,200 � f1%
5Lwidth%=22 : Lheight%=38:xoffset%=24:yoffset%=20:
$rdxoff%=100 :line%=0:linevpos%=0
&Ardx%=0 : rdy%=-Lheight% : plen%=24 : Pmessage$()="" : time%=0
0?C%=&0011 : A%=vol% : P%=pitch% : D%=10 : � SOUND PARAMETERS
:=send%=� : codeptr%=1 : messageptr%=1 : len%=0 : slower%=0
D,message$="" : char$="" : hflg%=� : m1%=1
Nș "Hourglass_Smash"
X�
b:
l��getModeInfo
vEș "Wimp_ReadPixTrans",256,Sprites,"!sender",,,,factor%,pixtrans%
��
�:
�� �loadTemplates
�� a%=0 � 255:font%?a%=0:�
�4ș "Wimp_OpenTemplate",,"<Sender$Dir>.Templates"
�InfoW%=�window("info")
�MainW%=�window("main")
�HelpW%=�window("help")
�ș "Wimp_CloseTemplate"
�Sender%=MainW%
��
�:
�� �window(a$)
end%=template%+&6000
Pș "Wimp_LoadTemplate",,block%,template%,end%,font%,a$,0 � ,,template%,,,,c%
block%!64=Sprites
 'ș "Wimp_CreateWindow",,block% � c%
*=c%
4:
>
��poll
H%ș "Wimp_Poll",0,block% � reason%
RȎ reason% �
\#� 0    : � lflag% � �redoWindow
fD          : � send% � �-time%>(len%*8)+speed%(rate%) � �transmit
p� 1    : �redraw
z)� 2    : ș "Wimp_OpenWindow",,block%
�7� 3    : � !block%=HelpW% hflg%=�:�tick(omenu%,m1%)
�=            � !block%=MainW% send%=�:�redoicon(4,"Start")
�&            �closewindow(block%!0)
�!� 6    : �buttonclick(block%)
� � 9    : �menuselect(block%)
�� 17,18: �message(block%)
��
��
�
�� �redoWindow
��redoicon(18,Ôvol%)
��redoicon(24,�pitch%)
�redoicon(21,�rate%+" wpm")
3�J%=12 � 16 : �Wimp_UnselectIcon(MainW%,J%) : �
&�Wimp_SelectIcon(MainW%,13+write%)
$(�Wimp_SelectIcon(MainW%,13+content%)
.lflag%=�
8�
B:
L%� �Wimp_SelectIcon(window%,icon%)
Vblock%!0=window%
`block%!4=icon%
j$block%!8=%1000000000000000000000
t%block%!12=%1000000000000000000000
~ș&400CD,,block%
��
�:
�'� �Wimp_UnselectIcon(window%,icon%)
�block%!0=window%
�block%!4=icon%
�block%!8=0
�%block%!12=%1000000000000000000000
�ș&400CD,,block%
��
�:
���error(err$)
�!block%=255
$(block%+4)=(err$+�0)

*ș "Wimp_ReportError",block%,1,Taskid$
quit%=�
�
(:
2� �openwindow(h%,open%)
<!block%=h%
F@� � open% � ș "Wimp_GetWindowState",0,block% : block%!28=-1
PȎ h% �
Z0�MainW%       :ș "Wimp_OpenWindow",0,block%
d0�InfoW%       :ș "Wimp_OpenWindow",0,block%
n� HelpW%      :� open% �
x4                 :ș "Wimp_CloseWindow",0,block%
�0�             :ș "Wimp_OpenWindow",0,block%
��
��
��
�:
�� �closewindow(h%)
�block%!0=h%
�"ș "Wimp_CloseWindow",0,block%
��
�:
���buttonclick(block%)
�>button%=block%!8 : whandle%=block%!12 : ihandle%=block%!16
�$ș "Wimp_GetPointerInfo",,block%
mx%=!block% : my%=block%!4
Ȏ whandle% �
� -2    :�iconbar(button%)
")           :� send% � whandle%=MainW%
,           :�
60� MainW%:� button% � 2 � �menu(whandle%) : �
@           :Ȏ ihandle% �
J$            � 4       :� send% �
T:                         :send%=�:�redoicon(4,"Start")
^-                   �  :�compile(content%)
h                   �
r4            � 5       :�openwindow(HelpW%,hflg%)
|=                         :hflg%=� hflg%:�tick(omenu%,m1%)
�-            � 12,13   :write%=ihandle%-13
�I                         :ș "Wimp_ForceRedraw",MainW%,8,-210,1050,-8
�/            � 14,15,16:content%=ihandle%-13
�'            � 17      :� vol%>-15 �
�<                         :vol%-=1 : �redoicon(18,Ôvol%)
�                         �
�%            � 19      :� vol%<0 �
�<                         :vol%+=1 : �redoicon(18,Ôvol%)
�                         �
�)            � 23      :� pitch%<250 �
�G                         :pitch%+=4:P%=pitch%:�redoicon(24,�pitch%)
�                         �
�'            � 25      :� pitch%>5 �
G                         :pitch%-=4:P%=pitch%:�redoicon(24,�pitch%)
                         �
'            � 20      :� rate%<20 �
&B                         :rate%+=1:�redoicon(21,�rate%+" wpm")
0                         �
:&            � 22      :� rate%>1 �
DB                         :rate%-=1:�redoicon(21,�rate%+" wpm")
N                         �
X            �
b�
l�
v:
���compile(content%)
�
�clear
�message$=""
�Ȏ content% �
�� 1 : �I=1�25
�0       :    message$+=word$(�(wordsum%))+" "
�       :    �
�B�2,3: � content%=2 � group%=26:start%=64 � group%=10:start%=47
�       : � W=1�25
�       :    � I=1�5
�1       :        message$+=�(�(group%)+start%)
�       :        �
�       :    message$+=" "
       : �
�
message$+="*"
 �redoicon(4,"Stop")
*codeptr%=3 : messageptr%=0
4#send%=� : �=0 : time%=0:line%=0
>+� content%=3 � rdxoff%=110 � rdxoff%=60
H*rdx%=xoffset%-rdxoff% : rdy%=-Lheight%
R�
\:
f��redraw
p*ș "Wimp_RedrawWindow",,block% � more%
zEox%=xoffset%+block%!4-block%!20: oy%=block%!16-block%!24-yoffset%
�!ș "Wimp_SetFontColours",,0,7
�ș "Font_SetFont",f1%
�ȕ more%
�%  top%=(oy%-block%!40) � Lheight%
�  � top%<0 top%=0
�)  base%=(47+oy%-block%!32) � Lheight%
�
  i%=top%
�   ȕ i%<=(line%) � i%<=base%
�    ș "Wimp_SetColour",7
�L    ș "Font_Paint",,Pmessage$(i%),16,ox%,oy%-(i%*Lheight%)-30:�yoffset%
�
    i%+=1
�  �
�,  ș "Wimp_GetRectangle",,block% � more%
	�
	�
	:
	$� �transmit
	.*� get next character from message$ - -
	8� and put into Pmessage$()
	Bmessageptr%+=1
	L"char$=�message$,messageptr%,1)
	V*� �>6000 � char$="*" � �endmessage : �
	`A� �(Pmessage$(line%))>24 � �Pmessage$(line%),1)=" " �line%+=1
	jPmessage$(line%) += char$
	tlinevpos%= line%*Lheight%
	~0rdx%=�((�(Pmessage$(line%))-1)*0.95)*Lwidth%
	�%rdy%=-linevpos%-Lheight%-yoffset%
	�� write% �
	�2     :rdmx%=rdx%+Lwidth% : rdmy%=rdy%+Lheight%
	�     :rdflag%=�
	�P     :ș "Wimp_ForceRedraw",MainW%,rdx%-rdxoff%,rdy%,rdmx%+(rdxoff%*2),rdmy%
	�� :time%=� : �delay
	��
	�
	��    SOUND TRANSMISSION
	�.� GET CODEDATA FOR CURRENT CHARACTER - - -
	�D� char$=" " � codechar$=" 13" � codechar$=codedata$(�(char$)-48)
	�
/� PROCESS CODEDATA FOR THAT CHARACTER - - -

)loop%=�(�codechar$,2,1)) : codeptr%=3
*�rate%<7 � slower%=7-rate% � slower%=0
� I% = 1 � loop%
('     len%=�(�codechar$,codeptr%,1))
2+     � len%=3 � len%=1 : A%=0 � A%=vol%
<     time%=�
F+     �C%,A%,P%,D% : �delay : �C%,0,P%,1
P     codeptr%+=1
Z
     � I%
d�
n:
x��delay
��
�'� UNTIL TIME-time%>(len%*1)+slower%
�� �-time%>(len%*8)+slower%
��
�:
���clear
�Pmessage$()=�plen%," ")
�.ș "Wimp_ForceRedraw",MainW%,4,-300,718,-4
�Pmessage$()=""
��
�:
���endmessage
�.ș "Wimp_ForceRedraw",MainW%,4,-300,718,-4
send%=�
�
:
"��message(block%)
,� block%!4=Task% � �
6Ȏ block%!16 �
@� 0      : quit%=�
J!� &502   : � PROChelp(block%)
T� &400C1 : �getModeInfo
^�
h�
r:
|��iconbar(button%)
�Ȏ button% �
�#� 1,4   : �openwindow(MainW%,�)
�� 2     : �menu(whandle%)
��
��
�:
�� �iconbar
�$!block%=-1:block%!4=0:block%!8=0
�-block%!12=68:block%!16=68:block%!20=&3102
�data$="!Sender"
�0� block%!24 (� data$+1) : $(block%!24)=data$
�!block%!28=1:block%!32=� data$
�&ș"Wimp_CreateIcon",,block% � icon
	=icon
:
� �defineMenus
&� t$ : � �
0� menufree% &3000
:ptr%=menufree%
D'�+1 : � t$ : IconM%=�createMenu(t$)
N;�"#Sender,Info#>InfoW%,Help,Save settings}HelpW%,Quit")
X!� t$ : MainM%=�createMenu(t$)
b4�"#Sender,Info#>InfoW%,Help,Save settings,Quit")
lomenu%=IconM%
v�
�:
�� �createMenu(m$)
�ptr%=menufree%
�i%=0
�� �m$,1)="#" �
�(     : i%=1 : title$=�par(m$,",",i%)
�� : title$=""
��
�$ptr%=title$
�1ptr%?12=7 : ptr%?13=2 : ptr%?14=7 : ptr%?15=0
�+ptr%!16=196-24 : ptr%!20=44 : ptr%!24=0
�ptr%+=28 : maxx%=� title$
��

,item$=�par(m$,",",i%) : �menuItem(item$)

� item$=""

&m%=menufree% : m%!16=(maxx%*8+6)*2

 menufree%=ptr%

*=m%

4:

>� �par(t$,s$,� i%)

Ha%=i%+1 : i%=�t$+s$,s$,a%)

R=�t$,a%,i%-a%)

\:

f� �menuItem(text$)

p.� text$="" � ptr%!-24=(ptr%!-24) � &80 : �

z� i%,flag%

�flag%=&00 : i%=�text$,">")

�� i%>0 �

�5     : subptr%=��text$,i%+1) : text$=�text$,i%-1)

�� : subptr%=-1

��

�i%=�text$,"}")

�� i%>0 �

�5     : subptr%=��text$,i%+1) : text$=�text$,i%-1)

�     : flag%+=&08

��

�6� �text$,1)="#" � text$=�text$) : flag%+=&02:� new

�4ptr%!0=flag% : ptr%!4=subptr% : ptr%!8=&07000021

�� �text$,1)="$" �
5     : !ptr%+=&04 : ptr%!8+=&100 : i%=�text$,"(")
     : � i%>0 �
0     : L%=��text$,i%+1) : text$=�text$,i%-1)
$
� : L%=12
.�
87     : ptr%!12=��text$,2) : ptr%!16=-1 : ptr%!20=L%
B     : text$=�L%," ")
L� : � �text$<=12 �
V     : $(ptr%+12)=text$
`(� : I%=�worksp(�text$+1) : $I%=text$
j5     : ptr%!12=I% : ptr%!16=-1 : ptr%!20=�text$+1
t     : ptr%!8=ptr%!8 � &100
~�
�@     : � �text$-(subptr%>0)>maxx% � maxx%=�text$-(subptr%>0)
��
�ptr%+=24
��
�:
�� �worksp(L%)
�buffer%+=L%
�=buffer%-L%
�:
�� �menu(whandle%)
�Ȏ whandle% �
�� -2     : �pop(IconM%)
� MainW% : �pop(MainM%)

�
�
:
(� �pop(menu%)
2� menu%<0 � �
<� menu%=IconM% � my%=220+44
F-ș "Wimp_CreateMenu",,menu%,mx%-64,my%+32
Pomenu%=menu%
Z�
d:
n� �menuselect(block%)
x.m1%=block%!0 : m2%=block%!4 : m3%=block%!8
�Ȏ omenu% �
�� MainM%: Ȏ m1% �
�
� 0     :
�F� 1     :�openwindow(HelpW%,hflg%):hflg%=� hflg%:�tick(omenu%,m1%)
�� 2     :�savesettings
�� 3     :quit%=�
�           �
�
�� IconM%: Ȏ m1% �
�
� 0     :
�F� 1     :�openwindow(HelpW%,hflg%):hflg%=� hflg%:�tick(omenu%,m1%)
�� 2     :�savesettings
�� 3     :quit%=�
           �
�
$ș "Wimp_GetPointerInfo",,block%
"button%=block%!8
,� button%=1 �menu(whandle%)
6�
@:
J� �tick(m%,mi%)
T/MainM%!(28+24*mi%)=MainM%!(28+24*mi%) � &01
^/IconM%!(28+24*mi%)=IconM%!(28+24*mi%) � &01
h�
r:
|� �closeMenu
�ș "Wimp_CreateMenu",-1
��
�:
���redoicon(ihandle%,itext$)
�whandle%=MainW%
�(!block%=whandle% : block%!4=ihandle%
�"ș "Wimp_GetIconState",,block%
�A!block%=whandle% : block%!4=ihandle%:block%!8=0 : block%!12=0
�$(block%!28)=itext$
�"ș "Wimp_SetIconState",,block%
��
�:
���loadsettings
� x
x=� "<Sender$Dir>.UserSet"
)�#x,vol%,pitch%,rate%,content%,write%
&�#x
0�
::
D��savesettings
N� x
Xx=� "<Sender$Dir>.UserSet"
b)�#x,vol%,pitch%,rate%,content%,write%
l�#x
v�
�:
���readarrays
��readmorsearray
��readwordarray
��readspeed
��
�:
��  MORSE CODE DATA
���readmorsearray
�� +0
�^�06222223,16122223,26112223,36111223,46111123,56111113,66211113,76221113,86222113,96222213
��X,X,X,X,X,X,X
���A3123,B521113,C521213,D42113,E213,F511213,G42213,H511113,I3113,J512223,K42123,L512113,M3223,N3213,O42223,P512213,Q522123,R41213,S41113,T223,U41123,V511123,W41223,X521123,Y521223,Z522113
!�I=48�90 : �codedata$(I-48):�
�
:
 �   RANDOM WORDS DATA
*��readwordarray
4� +0
>��THESE,ARE,THE,FIRST,CODES,TO,BE,USED,ZEBRA,FOXY,QUERY,EXPLAIN,HE,WHICH,YACHT,WERE,YELLOW,SAVED,TIGER,MOTOR,GOSSIP,PROMISE,TRUST,MATCHES,SMOKE
H��SHIPS,RHYTHM,COMPUTE,BEST,WORST,RADIO,MORSE,CODE,RESIST,YAGI,YEAST,FLIGHT,FIGURE,CRAZY,MERRY,EXPRESS,LAZY,FAST,TEXTURE,WAXEN,EXPIRE,RITZ,REQUIRE,PROPER,PROW,ROTA,QUIET,PROVE,QUOTE
R��DUCK,AWAKE,COAST,PAWN,COMB,GHOST,TACK,MUCH,WAGES,BAKE,DUTCH,AGO,PASTE,PATH,DOG,APT,GOT,LEAP,REST,GRAM,RESPECT,PANT,SLUMBER,CLATTER,LIZARD,DEED,FIND,CHARM,TONGUE,WIFE,SLAIN,AT,AND,THE,ANTIC,SAY
\w�PILLOW,HOLLOW,SIT,MY,HIM,LITTLE,KILL,WHAT,WHEN,THREE,SEVEN,SOLDER,BOUND,TWO,MADE,HEATER,IN,COUPLE,FOOLS,SILLY,CROW
f�*
pwordsum%=0
z� wordsum%+=1
��word$(wordsum%)
�� word$(wordsum%)="*"
�wordsum%-=1
��
�:
���readspeed
�� +0
�C�600,400,300,200,160,130,100,75,65,50,45,35,26,20,17,14,9,7,2,0
�L�  1   2   3   4   5   6   7   8  9 10 11 12 13 14 15 16 17 18 19 20 wpm
��x=1 � 20 : � speed%(x)
��
��
�
�

00000000  0d 00 0a 0f f4 20 21 52  75 6e 49 6d 61 67 65 0d  |..... !RunImage.|
00000010  00 14 14 f4 20 53 65 6e  64 65 72 20 70 72 6f 67  |.... Sender prog|
00000020  72 61 6d 0d 00 1e 13 f4  20 62 79 20 53 74 65 76  |ram..... by Stev|
00000030  65 20 45 79 72 65 0d 00  28 15 f4 20 28 63 29 20  |e Eyre..(.. (c) |
00000040  41 55 20 4a 75 6c 20 31  39 39 35 0d 00 32 05 3a  |AU Jul 1995..2.:|
00000050  0d 00 3c 1c ee 20 85 20  f1 20 f6 24 3b 22 20 61  |..<.. . . .$;" a|
00000060  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 00 46 14  |t line ";.:...F.|
00000070  54 61 73 6b 69 64 24 3d  22 53 65 6e 64 65 72 22  |Taskid$="Sender"|
00000080  0d 00 50 05 3a 0d 00 5a  21 c8 99 20 22 4f 53 5f  |..P.:..Z!.. "OS_|
00000090  42 79 74 65 22 2c 31 32  39 2c 30 2c 32 35 35 20  |Byte",129,0,255 |
000000a0  b8 20 2c 6f 73 25 0d 00  64 0c c8 8e 20 6f 73 25  |. ,os%..d... os%|
000000b0  20 ca 0d 00 6e 20 c9 20  26 41 31 2c 26 41 32 2c  | ...n . &A1,&A2,|
000000c0  26 41 33 20 3a 20 76 65  72 73 69 6f 6e 25 3d 32  |&A3 : version%=2|
000000d0  30 30 0d 00 78 05 7f 0d  00 82 11 20 76 65 72 73  |00..x...... vers|
000000e0  69 6f 6e 25 3d 33 31 30  0d 00 8c 05 cb 0d 00 96  |ion%=310........|
000000f0  18 de 20 6c 69 73 74 25  20 34 20 3a 20 21 6c 69  |.. list% 4 : !li|
00000100  73 74 25 3d 30 0d 00 a0  42 c8 99 20 22 57 69 6d  |st%=0...B.. "Wim|
00000110  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 76 65  |p_Initialise",ve|
00000120  72 73 69 6f 6e 25 2c 26  34 42 35 33 34 31 35 34  |rsion%,&4B534154|
00000130  2c 54 61 73 6b 69 64 24  2c 6c 69 73 74 25 20 b8  |,Taskid$,list% .|
00000140  20 2c 54 61 73 6b 25 0d  00 aa 05 3a 0d 00 b4 38  | ,Task%....:...8|
00000150  ee 20 85 20 f2 65 72 72  6f 72 28 22 20 41 54 20  |. . .error(" AT |
00000160  4c 49 4e 45 20 22 2b c3  9e 29 20 3a 20 c8 99 20  |LINE "+..) : .. |
00000170  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000180  20 3a 20 e0 0d 00 be 05  3a 0d 00 c8 0a f2 53 65  | : .....:.....Se|
00000190  74 55 70 0d 00 d2 05 3a  0d 00 dc 45 ee 20 85 20  |tUp....:...E. . |
000001a0  f2 65 72 72 6f 72 28 f6  24 2b 22 20 61 74 20 6c  |.error(.$+" at l|
000001b0  69 6e 65 20 22 2b c3 9e  29 20 3a 20 71 75 69 74  |ine "+..) : quit|
000001c0  25 3d b9 20 3a 20 c8 99  20 22 57 69 6d 70 5f 43  |%=. : .. "Wimp_C|
000001d0  6c 6f 73 65 44 6f 77 6e  22 20 3a 20 e0 0d 00 e6  |loseDown" : ....|
000001e0  05 3a 0d 00 f0 0e c8 95  20 ac 20 71 75 69 74 25  |.:...... . quit%|
000001f0  0d 00 fa 09 f2 70 6f 6c  6c 0d 01 04 05 ce 0d 01  |.....poll.......|
00000200  0e 0e f2 43 6c 6f 73 65  64 6f 77 6e 0d 01 18 05  |...Closedown....|
00000210  e0 0d 01 22 05 3a 0d 01  2c 0f dd f2 43 6c 6f 73  |...".:..,...Clos|
00000220  65 64 6f 77 6e 0d 01 36  1a c8 99 20 22 46 6f 6e  |edown..6... "Fon|
00000230  74 5f 4c 6f 73 65 46 6f  6e 74 22 2c 66 31 25 0d  |t_LoseFont",f1%.|
00000240  01 40 17 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.@... "Wimp_Clos|
00000250  65 44 6f 77 6e 22 0d 01  4a 05 e1 0d 01 54 05 3a  |eDown"..J....T.:|
00000260  0d 01 5e 0b dd f2 53 65  74 55 70 0d 01 68 44 de  |..^...SetUp..hD.|
00000270  20 62 6c 6f 63 6b 25 20  26 32 30 30 30 2c 6d 65  | block% &2000,me|
00000280  6e 75 20 31 35 30 2c 74  65 6d 70 6c 61 74 65 25  |nu 150,template%|
00000290  20 26 36 30 30 30 2c 20  62 75 66 66 65 72 25 20  | &6000, buffer% |
000002a0  26 31 30 30 30 2c 66 6f  6e 74 25 20 32 35 36 0d  |&1000,font% 256.|
000002b0  01 72 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |.r... "Hourglass|
000002c0  5f 4f 6e 22 0d 01 7c 21  66 69 6c 65 25 3d 8e 22  |_On"..|!file%=."|
000002d0  3c 53 65 6e 64 65 72 24  44 69 72 3e 2e 53 70 72  |<Sender$Dir>.Spr|
000002e0  69 74 65 73 22 0d 01 86  1d 73 69 7a 65 25 3d a2  |ites"....size%=.|
000002f0  23 66 69 6c 65 25 2b 34  20 3a 20 d9 23 66 69 6c  |#file%+4 : .#fil|
00000300  65 25 0d 01 90 2c de 20  53 70 72 69 74 65 73 20  |e%...,. Sprites |
00000310  73 69 7a 65 25 2c 20 66  61 63 74 6f 72 25 20 31  |size%, factor% 1|
00000320  35 2c 70 69 78 74 72 61  6e 73 25 20 31 35 0d 01  |5,pixtrans% 15..|
00000330  9a 3e 21 53 70 72 69 74  65 73 3d 73 69 7a 65 25  |.>!Sprites=size%|
00000340  20 3a 20 53 70 72 69 74  65 73 21 34 3d 30 20 3a  | : Sprites!4=0 :|
00000350  20 53 70 72 69 74 65 73  21 38 3d 31 36 20 3a 20  | Sprites!8=16 : |
00000360  53 70 72 69 74 65 73 21  31 32 3d 30 0d 01 a4 37  |Sprites!12=0...7|
00000370  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000380  2c 32 36 36 2c 53 70 72  69 74 65 73 2c 22 3c 53  |,266,Sprites,"<S|
00000390  65 6e 64 65 72 24 44 69  72 3e 2e 53 70 72 69 74  |ender$Dir>.Sprit|
000003a0  65 73 22 0d 01 ae 2a 49  63 6f 6e 3d a4 69 63 6f  |es"...*Icon=.ico|
000003b0  6e 62 61 72 20 3a 20 71  75 69 74 25 3d a3 20 3a  |nbar : quit%=. :|
000003c0  20 45 72 72 6f 72 4d 73  67 24 3d 22 22 0d 01 b8  | ErrorMsg$=""...|
000003d0  21 f2 67 65 74 4d 6f 64  65 49 6e 66 6f 20 3a 20  |!.getModeInfo : |
000003e0  f2 6c 6f 61 64 54 65 6d  70 6c 61 74 65 73 0d 01  |.loadTemplates..|
000003f0  c2 10 f2 64 65 66 69 6e  65 4d 65 6e 75 73 0d 01  |...defineMenus..|
00000400  cc 05 3a 0d 01 d6 37 de  20 63 6f 64 65 64 61 74  |..:...7. codedat|
00000410  61 24 28 35 30 29 2c 77  6f 72 64 24 28 32 35 30  |a$(50),word$(250|
00000420  29 2c 73 70 65 65 64 25  28 32 35 29 2c 50 6d 65  |),speed%(25),Pme|
00000430  73 73 61 67 65 24 28 31  30 29 0d 01 e0 0e 77 6f  |ssage$(10)....wo|
00000440  72 64 73 75 6d 25 3d 30  0d 01 ea 0f f2 72 65 61  |rdsum%=0.....rea|
00000450  64 61 72 72 61 79 73 0d  01 f4 47 76 6f 6c 25 3d  |darrays...Gvol%=|
00000460  2d 34 3a 70 69 74 63 68  25 3d 31 31 38 3a 72 61  |-4:pitch%=118:ra|
00000470  74 65 25 3d 32 30 3a 63  6f 6e 74 65 6e 74 25 3d  |te%=20:content%=|
00000480  32 3a 77 72 69 74 65 25  3d b9 3a f4 20 20 64 65  |2:write%=.:.  de|
00000490  66 61 75 6c 74 20 73 65  74 74 69 6e 67 73 0d 01  |fault settings..|
000004a0  fe 1c f2 6c 6f 61 64 73  65 74 74 69 6e 67 73 20  |...loadsettings |
000004b0  3a 20 6c 66 6c 61 67 25  3d b9 0d 02 08 37 c8 99  |: lflag%=....7..|
000004c0  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
000004d0  2c 2c 22 48 6f 6d 65 72  74 6f 6e 2e 4d 65 64 69  |,,"Homerton.Medi|
000004e0  75 6d 22 2c 32 30 30 2c  32 30 30 20 b8 20 66 31  |um",200,200 . f1|
000004f0  25 0d 02 12 35 4c 77 69  64 74 68 25 3d 32 32 20  |%...5Lwidth%=22 |
00000500  3a 20 4c 68 65 69 67 68  74 25 3d 33 38 3a 78 6f  |: Lheight%=38:xo|
00000510  66 66 73 65 74 25 3d 32  34 3a 79 6f 66 66 73 65  |ffset%=24:yoffse|
00000520  74 25 3d 32 30 3a 0d 02  1c 24 72 64 78 6f 66 66  |t%=20:...$rdxoff|
00000530  25 3d 31 30 30 20 3a 6c  69 6e 65 25 3d 30 3a 6c  |%=100 :line%=0:l|
00000540  69 6e 65 76 70 6f 73 25  3d 30 0d 02 26 41 72 64  |inevpos%=0..&Ard|
00000550  78 25 3d 30 20 3a 20 72  64 79 25 3d 2d 4c 68 65  |x%=0 : rdy%=-Lhe|
00000560  69 67 68 74 25 20 3a 20  70 6c 65 6e 25 3d 32 34  |ight% : plen%=24|
00000570  20 3a 20 50 6d 65 73 73  61 67 65 24 28 29 3d 22  | : Pmessage$()="|
00000580  22 20 3a 20 74 69 6d 65  25 3d 30 0d 02 30 3f 43  |" : time%=0..0?C|
00000590  25 3d 26 30 30 31 31 20  3a 20 41 25 3d 76 6f 6c  |%=&0011 : A%=vol|
000005a0  25 20 3a 20 50 25 3d 70  69 74 63 68 25 20 3a 20  |% : P%=pitch% : |
000005b0  44 25 3d 31 30 20 3a 20  f4 20 53 4f 55 4e 44 20  |D%=10 : . SOUND |
000005c0  50 41 52 41 4d 45 54 45  52 53 0d 02 3a 3d 73 65  |PARAMETERS..:=se|
000005d0  6e 64 25 3d a3 20 3a 20  63 6f 64 65 70 74 72 25  |nd%=. : codeptr%|
000005e0  3d 31 20 3a 20 6d 65 73  73 61 67 65 70 74 72 25  |=1 : messageptr%|
000005f0  3d 31 20 3a 20 6c 65 6e  25 3d 30 20 3a 20 73 6c  |=1 : len%=0 : sl|
00000600  6f 77 65 72 25 3d 30 0d  02 44 2c 6d 65 73 73 61  |ower%=0..D,messa|
00000610  67 65 24 3d 22 22 20 3a  20 63 68 61 72 24 3d 22  |ge$="" : char$="|
00000620  22 20 3a 20 68 66 6c 67  25 3d a3 20 3a 20 6d 31  |" : hflg%=. : m1|
00000630  25 3d 31 0d 02 4e 18 c8  99 20 22 48 6f 75 72 67  |%=1..N... "Hourg|
00000640  6c 61 73 73 5f 53 6d 61  73 68 22 0d 02 58 05 e1  |lass_Smash"..X..|
00000650  0d 02 62 05 3a 0d 02 6c  11 dd f2 67 65 74 4d 6f  |..b.:..l...getMo|
00000660  64 65 49 6e 66 6f 0d 02  76 45 c8 99 20 22 57 69  |deInfo..vE.. "Wi|
00000670  6d 70 5f 52 65 61 64 50  69 78 54 72 61 6e 73 22  |mp_ReadPixTrans"|
00000680  2c 32 35 36 2c 53 70 72  69 74 65 73 2c 22 21 73  |,256,Sprites,"!s|
00000690  65 6e 64 65 72 22 2c 2c  2c 2c 66 61 63 74 6f 72  |ender",,,,factor|
000006a0  25 2c 70 69 78 74 72 61  6e 73 25 0d 02 80 05 e1  |%,pixtrans%.....|
000006b0  0d 02 8a 05 3a 0d 02 94  14 dd 20 f2 6c 6f 61 64  |....:..... .load|
000006c0  54 65 6d 70 6c 61 74 65  73 0d 02 9e 1d e3 20 61  |Templates..... a|
000006d0  25 3d 30 20 b8 20 32 35  35 3a 66 6f 6e 74 25 3f  |%=0 . 255:font%?|
000006e0  61 25 3d 30 3a ed 0d 02  a8 34 c8 99 20 22 57 69  |a%=0:....4.. "Wi|
000006f0  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000700  2c 2c 22 3c 53 65 6e 64  65 72 24 44 69 72 3e 2e  |,,"<Sender$Dir>.|
00000710  54 65 6d 70 6c 61 74 65  73 22 0d 02 b2 1a 49 6e  |Templates"....In|
00000720  66 6f 57 25 3d a4 77 69  6e 64 6f 77 28 22 69 6e  |foW%=.window("in|
00000730  66 6f 22 29 0d 02 bc 1a  4d 61 69 6e 57 25 3d a4  |fo")....MainW%=.|
00000740  77 69 6e 64 6f 77 28 22  6d 61 69 6e 22 29 0d 02  |window("main")..|
00000750  c6 1a 48 65 6c 70 57 25  3d a4 77 69 6e 64 6f 77  |..HelpW%=.window|
00000760  28 22 68 65 6c 70 22 29  0d 02 d0 1b c8 99 20 22  |("help")...... "|
00000770  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
00000780  74 65 22 0d 02 da 12 53  65 6e 64 65 72 25 3d 4d  |te"....Sender%=M|
00000790  61 69 6e 57 25 0d 02 e4  05 e1 0d 02 ee 05 3a 0d  |ainW%.........:.|
000007a0  02 f8 11 dd 20 a4 77 69  6e 64 6f 77 28 61 24 29  |.... .window(a$)|
000007b0  0d 03 02 18 65 6e 64 25  3d 74 65 6d 70 6c 61 74  |....end%=templat|
000007c0  65 25 2b 26 36 30 30 30  0d 03 0c 50 c8 99 20 22  |e%+&6000...P.. "|
000007d0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000007e0  65 22 2c 2c 62 6c 6f 63  6b 25 2c 74 65 6d 70 6c  |e",,block%,templ|
000007f0  61 74 65 25 2c 65 6e 64  25 2c 66 6f 6e 74 25 2c  |ate%,end%,font%,|
00000800  61 24 2c 30 20 b8 20 2c  2c 74 65 6d 70 6c 61 74  |a$,0 . ,,templat|
00000810  65 25 2c 2c 2c 2c 63 25  0d 03 16 15 62 6c 6f 63  |e%,,,,c%....bloc|
00000820  6b 25 21 36 34 3d 53 70  72 69 74 65 73 0d 03 20  |k%!64=Sprites.. |
00000830  27 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |'.. "Wimp_Create|
00000840  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 20  |Window",,block% |
00000850  b8 20 63 25 0d 03 2a 07  3d 63 25 0d 03 34 05 3a  |. c%..*.=c%..4.:|
00000860  0d 03 3e 0a dd f2 70 6f  6c 6c 0d 03 48 25 c8 99  |..>...poll..H%..|
00000870  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 62  | "Wimp_Poll",0,b|
00000880  6c 6f 63 6b 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |lock% . reason%.|
00000890  03 52 10 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |.R... reason% ..|
000008a0  03 5c 23 c9 20 30 20 20  20 20 3a 20 e7 20 6c 66  |.\#. 0    : . lf|
000008b0  6c 61 67 25 20 8c 20 f2  72 65 64 6f 57 69 6e 64  |lag% . .redoWind|
000008c0  6f 77 0d 03 66 44 20 20  20 20 20 20 20 20 20 20  |ow..fD          |
000008d0  3a 20 e7 20 73 65 6e 64  25 20 80 20 91 2d 74 69  |: . send% . .-ti|
000008e0  6d 65 25 3e 28 6c 65 6e  25 2a 38 29 2b 73 70 65  |me%>(len%*8)+spe|
000008f0  65 64 25 28 72 61 74 65  25 29 20 8c 20 f2 74 72  |ed%(rate%) . .tr|
00000900  61 6e 73 6d 69 74 0d 03  70 14 c9 20 31 20 20 20  |ansmit..p.. 1   |
00000910  20 3a 20 f2 72 65 64 72  61 77 0d 03 7a 29 c9 20  | : .redraw..z). |
00000920  32 20 20 20 20 3a 20 c8  99 20 22 57 69 6d 70 5f  |2    : .. "Wimp_|
00000930  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00000940  63 6b 25 0d 03 84 37 c9  20 33 20 20 20 20 3a 20  |ck%...7. 3    : |
00000950  e7 20 21 62 6c 6f 63 6b  25 3d 48 65 6c 70 57 25  |. !block%=HelpW%|
00000960  20 68 66 6c 67 25 3d a3  3a f2 74 69 63 6b 28 6f  | hflg%=.:.tick(o|
00000970  6d 65 6e 75 25 2c 6d 31  25 29 0d 03 8e 3d 20 20  |menu%,m1%)...=  |
00000980  20 20 20 20 20 20 20 20  20 20 e7 20 21 62 6c 6f  |          . !blo|
00000990  63 6b 25 3d 4d 61 69 6e  57 25 20 73 65 6e 64 25  |ck%=MainW% send%|
000009a0  3d a3 3a f2 72 65 64 6f  69 63 6f 6e 28 34 2c 22  |=.:.redoicon(4,"|
000009b0  53 74 61 72 74 22 29 0d  03 a2 26 20 20 20 20 20  |Start")...&     |
000009c0  20 20 20 20 20 20 20 f2  63 6c 6f 73 65 77 69 6e  |       .closewin|
000009d0  64 6f 77 28 62 6c 6f 63  6b 25 21 30 29 0d 03 ac  |dow(block%!0)...|
000009e0  21 c9 20 36 20 20 20 20  3a 20 f2 62 75 74 74 6f  |!. 6    : .butto|
000009f0  6e 63 6c 69 63 6b 28 62  6c 6f 63 6b 25 29 0d 03  |nclick(block%)..|
00000a00  b6 20 c9 20 39 20 20 20  20 3a 20 f2 6d 65 6e 75  |. . 9    : .menu|
00000a10  73 65 6c 65 63 74 28 62  6c 6f 63 6b 25 29 0d 03  |select(block%)..|
00000a20  c0 1d c9 20 31 37 2c 31  38 3a 20 f2 6d 65 73 73  |... 17,18: .mess|
00000a30  61 67 65 28 62 6c 6f 63  6b 25 29 0d 03 ca 05 cb  |age(block%).....|
00000a40  0d 03 d4 05 e1 0d 03 de  04 0d 03 e8 11 dd 20 f2  |.............. .|
00000a50  72 65 64 6f 57 69 6e 64  6f 77 0d 03 f2 18 f2 72  |redoWindow.....r|
00000a60  65 64 6f 69 63 6f 6e 28  31 38 2c c3 94 76 6f 6c  |edoicon(18,..vol|
00000a70  25 29 0d 03 fc 19 f2 72  65 64 6f 69 63 6f 6e 28  |%).....redoicon(|
00000a80  32 34 2c c3 70 69 74 63  68 25 29 0d 04 06 1f f2  |24,.pitch%).....|
00000a90  72 65 64 6f 69 63 6f 6e  28 32 31 2c c3 72 61 74  |redoicon(21,.rat|
00000aa0  65 25 2b 22 20 77 70 6d  22 29 0d 04 10 33 e3 4a  |e%+" wpm")...3.J|
00000ab0  25 3d 31 32 20 b8 20 31  36 20 3a 20 f2 57 69 6d  |%=12 . 16 : .Wim|
00000ac0  70 5f 55 6e 73 65 6c 65  63 74 49 63 6f 6e 28 4d  |p_UnselectIcon(M|
00000ad0  61 69 6e 57 25 2c 4a 25  29 20 3a 20 ed 0d 04 1a  |ainW%,J%) : ....|
00000ae0  26 f2 57 69 6d 70 5f 53  65 6c 65 63 74 49 63 6f  |&.Wimp_SelectIco|
00000af0  6e 28 4d 61 69 6e 57 25  2c 31 33 2b 77 72 69 74  |n(MainW%,13+writ|
00000b00  65 25 29 0d 04 24 28 f2  57 69 6d 70 5f 53 65 6c  |e%)..$(.Wimp_Sel|
00000b10  65 63 74 49 63 6f 6e 28  4d 61 69 6e 57 25 2c 31  |ectIcon(MainW%,1|
00000b20  33 2b 63 6f 6e 74 65 6e  74 25 29 0d 04 2e 0c 6c  |3+content%)....l|
00000b30  66 6c 61 67 25 3d a3 0d  04 38 05 e1 0d 04 42 05  |flag%=...8....B.|
00000b40  3a 0d 04 4c 25 dd 20 f2  57 69 6d 70 5f 53 65 6c  |:..L%. .Wimp_Sel|
00000b50  65 63 74 49 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |ectIcon(window%,|
00000b60  69 63 6f 6e 25 29 0d 04  56 14 62 6c 6f 63 6b 25  |icon%)..V.block%|
00000b70  21 30 3d 77 69 6e 64 6f  77 25 0d 04 60 12 62 6c  |!0=window%..`.bl|
00000b80  6f 63 6b 25 21 34 3d 69  63 6f 6e 25 0d 04 6a 24  |ock%!4=icon%..j$|
00000b90  62 6c 6f 63 6b 25 21 38  3d 25 31 30 30 30 30 30  |block%!8=%100000|
00000ba0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00000bb0  0d 04 74 25 62 6c 6f 63  6b 25 21 31 32 3d 25 31  |..t%block%!12=%1|
00000bc0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00000bd0  30 30 30 30 30 0d 04 7e  14 c8 99 26 34 30 30 43  |00000..~...&400C|
00000be0  44 2c 2c 62 6c 6f 63 6b  25 0d 04 88 05 e1 0d 04  |D,,block%.......|
00000bf0  92 05 3a 0d 04 9c 27 dd  20 f2 57 69 6d 70 5f 55  |..:...'. .Wimp_U|
00000c00  6e 73 65 6c 65 63 74 49  63 6f 6e 28 77 69 6e 64  |nselectIcon(wind|
00000c10  6f 77 25 2c 69 63 6f 6e  25 29 0d 04 a6 14 62 6c  |ow%,icon%)....bl|
00000c20  6f 63 6b 25 21 30 3d 77  69 6e 64 6f 77 25 0d 04  |ock%!0=window%..|
00000c30  b0 12 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 25  |..block%!4=icon%|
00000c40  0d 04 ba 0e 62 6c 6f 63  6b 25 21 38 3d 30 0d 04  |....block%!8=0..|
00000c50  c4 25 62 6c 6f 63 6b 25  21 31 32 3d 25 31 30 30  |.%block%!12=%100|
00000c60  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00000c70  30 30 30 0d 04 ce 14 c8  99 26 34 30 30 43 44 2c  |000......&400CD,|
00000c80  2c 62 6c 6f 63 6b 25 0d  04 d8 05 e1 0d 04 e2 05  |,block%.........|
00000c90  3a 0d 04 ec 11 dd f2 65  72 72 6f 72 28 65 72 72  |:......error(err|
00000ca0  24 29 0d 04 f6 0f 21 62  6c 6f 63 6b 25 3d 32 35  |$)....!block%=25|
00000cb0  35 0d 05 00 19 24 28 62  6c 6f 63 6b 25 2b 34 29  |5....$(block%+4)|
00000cc0  3d 28 65 72 72 24 2b bd  30 29 0d 05 0a 2a c8 99  |=(err$+.0)...*..|
00000cd0  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00000ce0  6f 72 22 2c 62 6c 6f 63  6b 25 2c 31 2c 54 61 73  |or",block%,1,Tas|
00000cf0  6b 69 64 24 0d 05 14 0b  71 75 69 74 25 3d b9 0d  |kid$....quit%=..|
00000d00  05 1e 05 e1 0d 05 28 05  3a 0d 05 32 1b dd 20 f2  |......(.:..2.. .|
00000d10  6f 70 65 6e 77 69 6e 64  6f 77 28 68 25 2c 6f 70  |openwindow(h%,op|
00000d20  65 6e 25 29 0d 05 3c 0e  21 62 6c 6f 63 6b 25 3d  |en%)..<.!block%=|
00000d30  68 25 0d 05 46 40 e7 20  ac 20 6f 70 65 6e 25 20  |h%..F@. . open% |
00000d40  8c 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |. .. "Wimp_GetWi|
00000d50  6e 64 6f 77 53 74 61 74  65 22 2c 30 2c 62 6c 6f  |ndowState",0,blo|
00000d60  63 6b 25 20 3a 20 62 6c  6f 63 6b 25 21 32 38 3d  |ck% : block%!28=|
00000d70  2d 31 0d 05 50 0b c8 8e  20 68 25 20 ca 0d 05 5a  |-1..P... h% ...Z|
00000d80  30 c9 4d 61 69 6e 57 25  20 20 20 20 20 20 20 3a  |0.MainW%       :|
00000d90  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000da0  64 6f 77 22 2c 30 2c 62  6c 6f 63 6b 25 0d 05 64  |dow",0,block%..d|
00000db0  30 c9 49 6e 66 6f 57 25  20 20 20 20 20 20 20 3a  |0.InfoW%       :|
00000dc0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000dd0  64 6f 77 22 2c 30 2c 62  6c 6f 63 6b 25 0d 05 6e  |dow",0,block%..n|
00000de0  1c c9 20 48 65 6c 70 57  25 20 20 20 20 20 20 3a  |.. HelpW%      :|
00000df0  e7 20 6f 70 65 6e 25 20  8c 0d 05 78 34 20 20 20  |. open% ...x4   |
00000e00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a c8  |              :.|
00000e10  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00000e20  64 6f 77 22 2c 30 2c 62  6c 6f 63 6b 25 0d 05 82  |dow",0,block%...|
00000e30  30 cc 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |0.             :|
00000e40  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000e50  64 6f 77 22 2c 30 2c 62  6c 6f 63 6b 25 0d 05 8c  |dow",0,block%...|
00000e60  05 cd 0d 05 96 05 cb 0d  05 a0 05 e1 0d 05 aa 05  |................|
00000e70  3a 0d 05 b4 16 dd 20 f2  63 6c 6f 73 65 77 69 6e  |:..... .closewin|
00000e80  64 6f 77 28 68 25 29 0d  05 be 0f 62 6c 6f 63 6b  |dow(h%)....block|
00000e90  25 21 30 3d 68 25 0d 05  c8 22 c8 99 20 22 57 69  |%!0=h%...".. "Wi|
00000ea0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000eb0  30 2c 62 6c 6f 63 6b 25  0d 05 d2 05 e1 0d 05 dc  |0,block%........|
00000ec0  05 3a 0d 05 e6 19 dd f2  62 75 74 74 6f 6e 63 6c  |.:......buttoncl|
00000ed0  69 63 6b 28 62 6c 6f 63  6b 25 29 0d 05 f0 3e 62  |ick(block%)...>b|
00000ee0  75 74 74 6f 6e 25 3d 62  6c 6f 63 6b 25 21 38 20  |utton%=block%!8 |
00000ef0  3a 20 77 68 61 6e 64 6c  65 25 3d 62 6c 6f 63 6b  |: whandle%=block|
00000f00  25 21 31 32 20 3a 20 69  68 61 6e 64 6c 65 25 3d  |%!12 : ihandle%=|
00000f10  62 6c 6f 63 6b 25 21 31  36 0d 05 fa 24 c8 99 20  |block%!16...$.. |
00000f20  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00000f30  49 6e 66 6f 22 2c 2c 62  6c 6f 63 6b 25 0d 06 04  |Info",,block%...|
00000f40  1e 6d 78 25 3d 21 62 6c  6f 63 6b 25 20 3a 20 6d  |.mx%=!block% : m|
00000f50  79 25 3d 62 6c 6f 63 6b  25 21 34 0d 06 0e 11 c8  |y%=block%!4.....|
00000f60  8e 20 77 68 61 6e 64 6c  65 25 20 ca 0d 06 18 1e  |. whandle% .....|
00000f70  c9 20 2d 32 20 20 20 20  3a f2 69 63 6f 6e 62 61  |. -2    :.iconba|
00000f80  72 28 62 75 74 74 6f 6e  25 29 0d 06 22 29 20 20  |r(button%)..")  |
00000f90  20 20 20 20 20 20 20 20  20 3a e7 20 73 65 6e 64  |         :. send|
00000fa0  25 20 8c 20 77 68 61 6e  64 6c 65 25 3d 4d 61 69  |% . whandle%=Mai|
00000fb0  6e 57 25 0d 06 2c 11 20  20 20 20 20 20 20 20 20  |nW%..,.         |
00000fc0  20 20 3a e1 0d 06 36 30  c9 20 4d 61 69 6e 57 25  |  :...60. MainW%|
00000fd0  3a e7 20 62 75 74 74 6f  6e 25 20 80 20 32 20 8c  |:. button% . 2 .|
00000fe0  20 f2 6d 65 6e 75 28 77  68 61 6e 64 6c 65 25 29  | .menu(whandle%)|
00000ff0  20 3a 20 e1 0d 06 40 1d  20 20 20 20 20 20 20 20  | : ...@.        |
00001000  20 20 20 3a c8 8e 20 69  68 61 6e 64 6c 65 25 20  |   :.. ihandle% |
00001010  ca 0d 06 4a 24 20 20 20  20 20 20 20 20 20 20 20  |...J$           |
00001020  20 c9 20 34 20 20 20 20  20 20 20 3a e7 20 73 65  | . 4       :. se|
00001030  6e 64 25 20 8c 0d 06 54  3a 20 20 20 20 20 20 20  |nd% ...T:       |
00001040  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001050  20 20 3a 73 65 6e 64 25  3d a3 3a f2 72 65 64 6f  |  :send%=.:.redo|
00001060  69 63 6f 6e 28 34 2c 22  53 74 61 72 74 22 29 0d  |icon(4,"Start").|
00001070  06 5e 2d 20 20 20 20 20  20 20 20 20 20 20 20 20  |.^-             |
00001080  20 20 20 20 20 20 cc 20  20 3a f2 63 6f 6d 70 69  |      .  :.compi|
00001090  6c 65 28 63 6f 6e 74 65  6e 74 25 29 0d 06 68 18  |le(content%)..h.|
000010a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010b0  20 20 20 cd 0d 06 72 34  20 20 20 20 20 20 20 20  |   ...r4        |
000010c0  20 20 20 20 c9 20 35 20  20 20 20 20 20 20 3a f2  |    . 5       :.|
000010d0  6f 70 65 6e 77 69 6e 64  6f 77 28 48 65 6c 70 57  |openwindow(HelpW|
000010e0  25 2c 68 66 6c 67 25 29  0d 06 7c 3d 20 20 20 20  |%,hflg%)..|=    |
000010f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001100  20 20 20 20 20 3a 68 66  6c 67 25 3d ac 20 68 66  |     :hflg%=. hf|
00001110  6c 67 25 3a f2 74 69 63  6b 28 6f 6d 65 6e 75 25  |lg%:.tick(omenu%|
00001120  2c 6d 31 25 29 0d 06 86  2d 20 20 20 20 20 20 20  |,m1%)...-       |
00001130  20 20 20 20 20 c9 20 31  32 2c 31 33 20 20 20 3a  |     . 12,13   :|
00001140  77 72 69 74 65 25 3d 69  68 61 6e 64 6c 65 25 2d  |write%=ihandle%-|
00001150  31 33 0d 06 90 49 20 20  20 20 20 20 20 20 20 20  |13...I          |
00001160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00001170  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00001180  64 72 61 77 22 2c 4d 61  69 6e 57 25 2c 38 2c 2d  |draw",MainW%,8,-|
00001190  32 31 30 2c 31 30 35 30  2c 2d 38 0d 06 9a 2f 20  |210,1050,-8.../ |
000011a0  20 20 20 20 20 20 20 20  20 20 20 c9 20 31 34 2c  |           . 14,|
000011b0  31 35 2c 31 36 3a 63 6f  6e 74 65 6e 74 25 3d 69  |15,16:content%=i|
000011c0  68 61 6e 64 6c 65 25 2d  31 33 0d 06 a4 27 20 20  |handle%-13...'  |
000011d0  20 20 20 20 20 20 20 20  20 20 c9 20 31 37 20 20  |          . 17  |
000011e0  20 20 20 20 3a e7 20 76  6f 6c 25 3e 2d 31 35 20  |    :. vol%>-15 |
000011f0  8c 0d 06 ae 3c 20 20 20  20 20 20 20 20 20 20 20  |....<           |
00001200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a 76  |              :v|
00001210  6f 6c 25 2d 3d 31 20 3a  20 f2 72 65 64 6f 69 63  |ol%-=1 : .redoic|
00001220  6f 6e 28 31 38 2c c3 94  76 6f 6c 25 29 0d 06 b8  |on(18,..vol%)...|
00001230  1e 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001240  20 20 20 20 20 20 20 20  20 20 cd 0d 06 c2 25 20  |          ....% |
00001250  20 20 20 20 20 20 20 20  20 20 20 c9 20 31 39 20  |           . 19 |
00001260  20 20 20 20 20 3a e7 20  76 6f 6c 25 3c 30 20 8c  |     :. vol%<0 .|
00001270  0d 06 cc 3c 20 20 20 20  20 20 20 20 20 20 20 20  |...<            |
00001280  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 76 6f  |             :vo|
00001290  6c 25 2b 3d 31 20 3a 20  f2 72 65 64 6f 69 63 6f  |l%+=1 : .redoico|
000012a0  6e 28 31 38 2c c3 94 76  6f 6c 25 29 0d 06 d6 1e  |n(18,..vol%)....|
000012b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000012c0  20 20 20 20 20 20 20 20  20 cd 0d 06 e0 29 20 20  |         ....)  |
000012d0  20 20 20 20 20 20 20 20  20 20 c9 20 32 33 20 20  |          . 23  |
000012e0  20 20 20 20 3a e7 20 70  69 74 63 68 25 3c 32 35  |    :. pitch%<25|
000012f0  30 20 8c 0d 06 ea 47 20  20 20 20 20 20 20 20 20  |0 ....G         |
00001300  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001310  3a 70 69 74 63 68 25 2b  3d 34 3a 50 25 3d 70 69  |:pitch%+=4:P%=pi|
00001320  74 63 68 25 3a f2 72 65  64 6f 69 63 6f 6e 28 32  |tch%:.redoicon(2|
00001330  34 2c c3 70 69 74 63 68  25 29 0d 06 f4 1e 20 20  |4,.pitch%)....  |
00001340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001350  20 20 20 20 20 20 20 cd  0d 06 fe 27 20 20 20 20  |       ....'    |
00001360  20 20 20 20 20 20 20 20  c9 20 32 35 20 20 20 20  |        . 25    |
00001370  20 20 3a e7 20 70 69 74  63 68 25 3e 35 20 8c 0d  |  :. pitch%>5 ..|
00001380  07 08 47 20 20 20 20 20  20 20 20 20 20 20 20 20  |..G             |
00001390  20 20 20 20 20 20 20 20  20 20 20 20 3a 70 69 74  |            :pit|
000013a0  63 68 25 2d 3d 34 3a 50  25 3d 70 69 74 63 68 25  |ch%-=4:P%=pitch%|
000013b0  3a f2 72 65 64 6f 69 63  6f 6e 28 32 34 2c c3 70  |:.redoicon(24,.p|
000013c0  69 74 63 68 25 29 0d 07  12 1e 20 20 20 20 20 20  |itch%)....      |
000013d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000013e0  20 20 20 cd 0d 07 1c 27  20 20 20 20 20 20 20 20  |   ....'        |
000013f0  20 20 20 20 c9 20 32 30  20 20 20 20 20 20 3a e7  |    . 20      :.|
00001400  20 72 61 74 65 25 3c 32  30 20 8c 0d 07 26 42 20  | rate%<20 ...&B |
00001410  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001420  20 20 20 20 20 20 20 20  3a 72 61 74 65 25 2b 3d  |        :rate%+=|
00001430  31 3a f2 72 65 64 6f 69  63 6f 6e 28 32 31 2c c3  |1:.redoicon(21,.|
00001440  72 61 74 65 25 2b 22 20  77 70 6d 22 29 0d 07 30  |rate%+" wpm")..0|
00001450  1e 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001460  20 20 20 20 20 20 20 20  20 20 cd 0d 07 3a 26 20  |          ...:& |
00001470  20 20 20 20 20 20 20 20  20 20 20 c9 20 32 32 20  |           . 22 |
00001480  20 20 20 20 20 3a e7 20  72 61 74 65 25 3e 31 20  |     :. rate%>1 |
00001490  8c 0d 07 44 42 20 20 20  20 20 20 20 20 20 20 20  |...DB           |
000014a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a 72  |              :r|
000014b0  61 74 65 25 2d 3d 31 3a  f2 72 65 64 6f 69 63 6f  |ate%-=1:.redoico|
000014c0  6e 28 32 31 2c c3 72 61  74 65 25 2b 22 20 77 70  |n(21,.rate%+" wp|
000014d0  6d 22 29 0d 07 4e 1e 20  20 20 20 20 20 20 20 20  |m")..N.         |
000014e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000014f0  cd 0d 07 58 11 20 20 20  20 20 20 20 20 20 20 20  |...X.           |
00001500  20 cb 0d 07 62 05 cb 0d  07 6c 05 e1 0d 07 76 05  | ...b....l....v.|
00001510  3a 0d 07 80 17 dd f2 63  6f 6d 70 69 6c 65 28 63  |:......compile(c|
00001520  6f 6e 74 65 6e 74 25 29  0d 07 8a 0a f2 63 6c 65  |ontent%).....cle|
00001530  61 72 0d 07 94 0f 6d 65  73 73 61 67 65 24 3d 22  |ar....message$="|
00001540  22 0d 07 9e 11 c8 8e 20  63 6f 6e 74 65 6e 74 25  |"...... content%|
00001550  20 ca 0d 07 a8 11 c9 20  31 20 3a 20 e3 49 3d 31  | ...... 1 : .I=1|
00001560  b8 32 35 0d 07 b2 30 20  20 20 20 20 20 20 3a 20  |.25...0       : |
00001570  20 20 20 6d 65 73 73 61  67 65 24 2b 3d 77 6f 72  |   message$+=wor|
00001580  64 24 28 b3 28 77 6f 72  64 73 75 6d 25 29 29 2b  |d$(.(wordsum%))+|
00001590  22 20 22 0d 07 bc 11 20  20 20 20 20 20 20 3a 20  |" "....       : |
000015a0  20 20 20 ed 0d 07 c6 42  c9 32 2c 33 3a 20 e7 20  |   ....B.2,3: . |
000015b0  63 6f 6e 74 65 6e 74 25  3d 32 20 8c 20 67 72 6f  |content%=2 . gro|
000015c0  75 70 25 3d 32 36 3a 73  74 61 72 74 25 3d 36 34  |up%=26:start%=64|
000015d0  20 8b 20 67 72 6f 75 70  25 3d 31 30 3a 73 74 61  | . group%=10:sta|
000015e0  72 74 25 3d 34 37 0d 07  d0 15 20 20 20 20 20 20  |rt%=47....      |
000015f0  20 3a 20 e3 20 57 3d 31  b8 32 35 0d 07 da 17 20  | : . W=1.25.... |
00001600  20 20 20 20 20 20 3a 20  20 20 20 e3 20 49 3d 31  |      :    . I=1|
00001610  b8 35 0d 07 e4 31 20 20  20 20 20 20 20 3a 20 20  |.5...1       :  |
00001620  20 20 20 20 20 20 6d 65  73 73 61 67 65 24 2b 3d  |      message$+=|
00001630  bd 28 b3 28 67 72 6f 75  70 25 29 2b 73 74 61 72  |.(.(group%)+star|
00001640  74 25 29 0d 07 ee 15 20  20 20 20 20 20 20 3a 20  |t%)....       : |
00001650  20 20 20 20 20 20 20 ed  0d 07 f8 1d 20 20 20 20  |       .....    |
00001660  20 20 20 3a 20 20 20 20  6d 65 73 73 61 67 65 24  |   :    message$|
00001670  2b 3d 22 20 22 0d 08 02  0e 20 20 20 20 20 20 20  |+=" "....       |
00001680  3a 20 ed 0d 08 0c 05 cb  0d 08 16 11 6d 65 73 73  |: ..........mess|
00001690  61 67 65 24 2b 3d 22 2a  22 0d 08 20 17 f2 72 65  |age$+="*".. ..re|
000016a0  64 6f 69 63 6f 6e 28 34  2c 22 53 74 6f 70 22 29  |doicon(4,"Stop")|
000016b0  0d 08 2a 1e 63 6f 64 65  70 74 72 25 3d 33 20 3a  |..*.codeptr%=3 :|
000016c0  20 6d 65 73 73 61 67 65  70 74 72 25 3d 30 0d 08  | messageptr%=0..|
000016d0  34 23 73 65 6e 64 25 3d  b9 20 3a 20 d1 3d 30 20  |4#send%=. : .=0 |
000016e0  3a 20 74 69 6d 65 25 3d  30 3a 6c 69 6e 65 25 3d  |: time%=0:line%=|
000016f0  30 0d 08 3e 2b e7 20 63  6f 6e 74 65 6e 74 25 3d  |0..>+. content%=|
00001700  33 20 8c 20 72 64 78 6f  66 66 25 3d 31 31 30 20  |3 . rdxoff%=110 |
00001710  8b 20 72 64 78 6f 66 66  25 3d 36 30 0d 08 48 2a  |. rdxoff%=60..H*|
00001720  72 64 78 25 3d 78 6f 66  66 73 65 74 25 2d 72 64  |rdx%=xoffset%-rd|
00001730  78 6f 66 66 25 20 3a 20  72 64 79 25 3d 2d 4c 68  |xoff% : rdy%=-Lh|
00001740  65 69 67 68 74 25 0d 08  52 05 e1 0d 08 5c 05 3a  |eight%..R....\.:|
00001750  0d 08 66 0c dd f2 72 65  64 72 61 77 0d 08 70 2a  |..f...redraw..p*|
00001760  c8 99 20 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |.. "Wimp_RedrawW|
00001770  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |indow",,block% .|
00001780  20 6d 6f 72 65 25 0d 08  7a 45 6f 78 25 3d 78 6f  | more%..zEox%=xo|
00001790  66 66 73 65 74 25 2b 62  6c 6f 63 6b 25 21 34 2d  |ffset%+block%!4-|
000017a0  62 6c 6f 63 6b 25 21 32  30 3a 20 6f 79 25 3d 62  |block%!20: oy%=b|
000017b0  6c 6f 63 6b 25 21 31 36  2d 62 6c 6f 63 6b 25 21  |lock%!16-block%!|
000017c0  32 34 2d 79 6f 66 66 73  65 74 25 0d 08 84 21 c8  |24-yoffset%...!.|
000017d0  99 20 22 57 69 6d 70 5f  53 65 74 46 6f 6e 74 43  |. "Wimp_SetFontC|
000017e0  6f 6c 6f 75 72 73 22 2c  2c 30 2c 37 0d 08 8e 19  |olours",,0,7....|
000017f0  c8 99 20 22 46 6f 6e 74  5f 53 65 74 46 6f 6e 74  |.. "Font_SetFont|
00001800  22 2c 66 31 25 0d 08 98  0c c8 95 20 6d 6f 72 65  |",f1%...... more|
00001810  25 0d 08 a2 25 20 20 74  6f 70 25 3d 28 6f 79 25  |%...%  top%=(oy%|
00001820  2d 62 6c 6f 63 6b 25 21  34 30 29 20 81 20 4c 68  |-block%!40) . Lh|
00001830  65 69 67 68 74 25 0d 08  ac 15 20 20 e7 20 74 6f  |eight%....  . to|
00001840  70 25 3c 30 20 74 6f 70  25 3d 30 0d 08 b6 29 20  |p%<0 top%=0...) |
00001850  20 62 61 73 65 25 3d 28  34 37 2b 6f 79 25 2d 62  | base%=(47+oy%-b|
00001860  6c 6f 63 6b 25 21 33 32  29 20 81 20 4c 68 65 69  |lock%!32) . Lhei|
00001870  67 68 74 25 0d 08 c0 0d  20 20 69 25 3d 74 6f 70  |ght%....  i%=top|
00001880  25 0d 08 ca 20 20 20 c8  95 20 69 25 3c 3d 28 6c  |%...   .. i%<=(l|
00001890  69 6e 65 25 29 20 80 20  69 25 3c 3d 62 61 73 65  |ine%) . i%<=base|
000018a0  25 0d 08 d4 1d 20 20 20  20 c8 99 20 22 57 69 6d  |%....    .. "Wim|
000018b0  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 0d 08  |p_SetColour",7..|
000018c0  de 4c 20 20 20 20 c8 99  20 22 46 6f 6e 74 5f 50  |.L    .. "Font_P|
000018d0  61 69 6e 74 22 2c 2c 50  6d 65 73 73 61 67 65 24  |aint",,Pmessage$|
000018e0  28 69 25 29 2c 31 36 2c  6f 78 25 2c 6f 79 25 2d  |(i%),16,ox%,oy%-|
000018f0  28 69 25 2a 4c 68 65 69  67 68 74 25 29 2d 33 30  |(i%*Lheight%)-30|
00001900  3a f4 79 6f 66 66 73 65  74 25 0d 08 e8 0d 20 20  |:.yoffset%....  |
00001910  20 20 69 25 2b 3d 31 0d  08 f2 07 20 20 ce 0d 08  |  i%+=1....  ...|
00001920  fc 2c 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |.,  .. "Wimp_Get|
00001930  52 65 63 74 61 6e 67 6c  65 22 2c 2c 62 6c 6f 63  |Rectangle",,bloc|
00001940  6b 25 20 b8 20 6d 6f 72  65 25 0d 09 06 05 ce 0d  |k% . more%......|
00001950  09 10 05 e1 0d 09 1a 05  3a 0d 09 24 0f dd 20 f2  |........:..$.. .|
00001960  74 72 61 6e 73 6d 69 74  0d 09 2e 2a f4 20 67 65  |transmit...*. ge|
00001970  74 20 6e 65 78 74 20 63  68 61 72 61 63 74 65 72  |t next character|
00001980  20 66 72 6f 6d 20 6d 65  73 73 61 67 65 24 20 2d  | from message$ -|
00001990  20 2d 0d 09 38 1e f4 20  61 6e 64 20 70 75 74 20  | -..8.. and put |
000019a0  69 6e 74 6f 20 50 6d 65  73 73 61 67 65 24 28 29  |into Pmessage$()|
000019b0  0d 09 42 12 6d 65 73 73  61 67 65 70 74 72 25 2b  |..B.messageptr%+|
000019c0  3d 31 0d 09 4c 22 63 68  61 72 24 3d c1 6d 65 73  |=1..L"char$=.mes|
000019d0  73 61 67 65 24 2c 6d 65  73 73 61 67 65 70 74 72  |sage$,messageptr|
000019e0  25 2c 31 29 0d 09 56 2a  e7 20 91 3e 36 30 30 30  |%,1)..V*. .>6000|
000019f0  20 84 20 63 68 61 72 24  3d 22 2a 22 20 8c 20 f2  | . char$="*" . .|
00001a00  65 6e 64 6d 65 73 73 61  67 65 20 3a 20 e1 0d 09  |endmessage : ...|
00001a10  60 41 e7 20 a9 28 50 6d  65 73 73 61 67 65 24 28  |`A. .(Pmessage$(|
00001a20  6c 69 6e 65 25 29 29 3e  32 34 20 80 20 c2 50 6d  |line%))>24 . .Pm|
00001a30  65 73 73 61 67 65 24 28  6c 69 6e 65 25 29 2c 31  |essage$(line%),1|
00001a40  29 3d 22 20 22 20 8c 6c  69 6e 65 25 2b 3d 31 0d  |)=" " .line%+=1.|
00001a50  09 6a 1d 50 6d 65 73 73  61 67 65 24 28 6c 69 6e  |.j.Pmessage$(lin|
00001a60  65 25 29 20 2b 3d 20 63  68 61 72 24 0d 09 74 1d  |e%) += char$..t.|
00001a70  6c 69 6e 65 76 70 6f 73  25 3d 20 6c 69 6e 65 25  |linevpos%= line%|
00001a80  2a 4c 68 65 69 67 68 74  25 0d 09 7e 30 72 64 78  |*Lheight%..~0rdx|
00001a90  25 3d a8 28 28 a9 28 50  6d 65 73 73 61 67 65 24  |%=.((.(Pmessage$|
00001aa0  28 6c 69 6e 65 25 29 29  2d 31 29 2a 30 2e 39 35  |(line%))-1)*0.95|
00001ab0  29 2a 4c 77 69 64 74 68  25 0d 09 88 25 72 64 79  |)*Lwidth%...%rdy|
00001ac0  25 3d 2d 6c 69 6e 65 76  70 6f 73 25 2d 4c 68 65  |%=-linevpos%-Lhe|
00001ad0  69 67 68 74 25 2d 79 6f  66 66 73 65 74 25 0d 09  |ight%-yoffset%..|
00001ae0  92 0e e7 20 77 72 69 74  65 25 20 8c 0d 09 9c 32  |... write% ....2|
00001af0  20 20 20 20 20 3a 72 64  6d 78 25 3d 72 64 78 25  |     :rdmx%=rdx%|
00001b00  2b 4c 77 69 64 74 68 25  20 3a 20 72 64 6d 79 25  |+Lwidth% : rdmy%|
00001b10  3d 72 64 79 25 2b 4c 68  65 69 67 68 74 25 0d 09  |=rdy%+Lheight%..|
00001b20  a6 13 20 20 20 20 20 3a  72 64 66 6c 61 67 25 3d  |..     :rdflag%=|
00001b30  a3 0d 09 b0 50 20 20 20  20 20 3a c8 99 20 22 57  |....P     :.. "W|
00001b40  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00001b50  2c 4d 61 69 6e 57 25 2c  72 64 78 25 2d 72 64 78  |,MainW%,rdx%-rdx|
00001b60  6f 66 66 25 2c 72 64 79  25 2c 72 64 6d 78 25 2b  |off%,rdy%,rdmx%+|
00001b70  28 72 64 78 6f 66 66 25  2a 32 29 2c 72 64 6d 79  |(rdxoff%*2),rdmy|
00001b80  25 0d 09 ba 17 cc 20 3a  74 69 6d 65 25 3d 91 20  |%..... :time%=. |
00001b90  3a 20 f2 64 65 6c 61 79  0d 09 c4 05 cd 0d 09 ce  |: .delay........|
00001ba0  04 0d 09 d8 1b f4 20 20  20 20 53 4f 55 4e 44 20  |......    SOUND |
00001bb0  54 52 41 4e 53 4d 49 53  53 49 4f 4e 0d 09 e2 2e  |TRANSMISSION....|
00001bc0  f4 20 47 45 54 20 43 4f  44 45 44 41 54 41 20 46  |. GET CODEDATA F|
00001bd0  4f 52 20 43 55 52 52 45  4e 54 20 43 48 41 52 41  |OR CURRENT CHARA|
00001be0  43 54 45 52 20 2d 20 2d  20 2d 0d 09 ec 44 e7 20  |CTER - - -...D. |
00001bf0  63 68 61 72 24 3d 22 20  22 20 8c 20 63 6f 64 65  |char$=" " . code|
00001c00  63 68 61 72 24 3d 22 20  31 33 22 20 8b 20 63 6f  |char$=" 13" . co|
00001c10  64 65 63 68 61 72 24 3d  63 6f 64 65 64 61 74 61  |dechar$=codedata|
00001c20  24 28 97 28 63 68 61 72  24 29 2d 34 38 29 0d 09  |$(.(char$)-48)..|
00001c30  f6 04 0d 0a 00 2f f4 20  50 52 4f 43 45 53 53 20  |...../. PROCESS |
00001c40  43 4f 44 45 44 41 54 41  20 46 4f 52 20 54 48 41  |CODEDATA FOR THA|
00001c50  54 20 43 48 41 52 41 43  54 45 52 20 2d 20 2d 20  |T CHARACTER - - |
00001c60  2d 0d 0a 0a 29 6c 6f 6f  70 25 3d bb 28 c1 63 6f  |-...)loop%=.(.co|
00001c70  64 65 63 68 61 72 24 2c  32 2c 31 29 29 20 3a 20  |dechar$,2,1)) : |
00001c80  63 6f 64 65 70 74 72 25  3d 33 0d 0a 14 2a e7 72  |codeptr%=3...*.r|
00001c90  61 74 65 25 3c 37 20 8c  20 73 6c 6f 77 65 72 25  |ate%<7 . slower%|
00001ca0  3d 37 2d 72 61 74 65 25  20 8b 20 73 6c 6f 77 65  |=7-rate% . slowe|
00001cb0  72 25 3d 30 0d 0a 1e 14  e3 20 49 25 20 3d 20 31  |r%=0..... I% = 1|
00001cc0  20 b8 20 6c 6f 6f 70 25  0d 0a 28 27 20 20 20 20  | . loop%..('    |
00001cd0  20 6c 65 6e 25 3d bb 28  c1 63 6f 64 65 63 68 61  | len%=.(.codecha|
00001ce0  72 24 2c 63 6f 64 65 70  74 72 25 2c 31 29 29 0d  |r$,codeptr%,1)).|
00001cf0  0a 32 2b 20 20 20 20 20  e7 20 6c 65 6e 25 3d 33  |.2+     . len%=3|
00001d00  20 8c 20 6c 65 6e 25 3d  31 20 3a 20 41 25 3d 30  | . len%=1 : A%=0|
00001d10  20 8b 20 41 25 3d 76 6f  6c 25 0d 0a 3c 10 20 20  | . A%=vol%..<.  |
00001d20  20 20 20 74 69 6d 65 25  3d 91 0d 0a 46 2b 20 20  |   time%=...F+  |
00001d30  20 20 20 d4 43 25 2c 41  25 2c 50 25 2c 44 25 20  |   .C%,A%,P%,D% |
00001d40  3a 20 f2 64 65 6c 61 79  20 3a 20 d4 43 25 2c 30  |: .delay : .C%,0|
00001d50  2c 50 25 2c 31 0d 0a 50  14 20 20 20 20 20 63 6f  |,P%,1..P.     co|
00001d60  64 65 70 74 72 25 2b 3d  31 0d 0a 5a 0d 20 20 20  |deptr%+=1..Z.   |
00001d70  20 20 ed 20 49 25 0d 0a  64 05 e1 0d 0a 6e 05 3a  |  . I%..d....n.:|
00001d80  0d 0a 78 0b dd f2 64 65  6c 61 79 0d 0a 82 05 f5  |..x...delay.....|
00001d90  0d 0a 8c 27 f4 20 55 4e  54 49 4c 20 54 49 4d 45  |...'. UNTIL TIME|
00001da0  2d 74 69 6d 65 25 3e 28  6c 65 6e 25 2a 31 29 2b  |-time%>(len%*1)+|
00001db0  73 6c 6f 77 65 72 25 0d  0a 96 1e fd 20 91 2d 74  |slower%..... .-t|
00001dc0  69 6d 65 25 3e 28 6c 65  6e 25 2a 38 29 2b 73 6c  |ime%>(len%*8)+sl|
00001dd0  6f 77 65 72 25 0d 0a a0  05 e1 0d 0a aa 05 3a 0d  |ower%.........:.|
00001de0  0a b4 0b dd f2 63 6c 65  61 72 0d 0a be 1b 50 6d  |.....clear....Pm|
00001df0  65 73 73 61 67 65 24 28  29 3d c4 70 6c 65 6e 25  |essage$()=.plen%|
00001e00  2c 22 20 22 29 0d 0a c8  2e c8 99 20 22 57 69 6d  |," ")...... "Wim|
00001e10  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 4d  |p_ForceRedraw",M|
00001e20  61 69 6e 57 25 2c 34 2c  2d 33 30 30 2c 37 31 38  |ainW%,4,-300,718|
00001e30  2c 2d 34 0d 0a d2 12 50  6d 65 73 73 61 67 65 24  |,-4....Pmessage$|
00001e40  28 29 3d 22 22 0d 0a dc  05 e1 0d 0a e6 05 3a 0d  |()="".........:.|
00001e50  0a f0 10 dd f2 65 6e 64  6d 65 73 73 61 67 65 0d  |.....endmessage.|
00001e60  0a fa 2e c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |..... "Wimp_Forc|
00001e70  65 52 65 64 72 61 77 22  2c 4d 61 69 6e 57 25 2c  |eRedraw",MainW%,|
00001e80  34 2c 2d 33 30 30 2c 37  31 38 2c 2d 34 0d 0b 04  |4,-300,718,-4...|
00001e90  0b 73 65 6e 64 25 3d a3  0d 0b 0e 05 e1 0d 0b 18  |.send%=.........|
00001ea0  05 3a 0d 0b 22 15 dd f2  6d 65 73 73 61 67 65 28  |.:.."...message(|
00001eb0  62 6c 6f 63 6b 25 29 0d  0b 2c 18 e7 20 62 6c 6f  |block%)..,.. blo|
00001ec0  63 6b 25 21 34 3d 54 61  73 6b 25 20 8c 20 e1 0d  |ck%!4=Task% . ..|
00001ed0  0b 36 12 c8 8e 20 62 6c  6f 63 6b 25 21 31 36 20  |.6... block%!16 |
00001ee0  ca 0d 0b 40 16 c9 20 30  20 20 20 20 20 20 3a 20  |...@.. 0      : |
00001ef0  71 75 69 74 25 3d b9 0d  0b 4a 21 c9 20 26 35 30  |quit%=...J!. &50|
00001f00  32 20 20 20 3a 20 f4 20  50 52 4f 43 68 65 6c 70  |2   : . PROChelp|
00001f10  28 62 6c 6f 63 6b 25 29  0d 0b 54 1b c9 20 26 34  |(block%)..T.. &4|
00001f20  30 30 43 31 20 3a 20 f2  67 65 74 4d 6f 64 65 49  |00C1 : .getModeI|
00001f30  6e 66 6f 0d 0b 5e 05 cb  0d 0b 68 05 e1 0d 0b 72  |nfo..^....h....r|
00001f40  05 3a 0d 0b 7c 16 dd f2  69 63 6f 6e 62 61 72 28  |.:..|...iconbar(|
00001f50  62 75 74 74 6f 6e 25 29  0d 0b 86 10 c8 8e 20 62  |button%)...... b|
00001f60  75 74 74 6f 6e 25 20 ca  0d 0b 90 23 c9 20 31 2c  |utton% ....#. 1,|
00001f70  34 20 20 20 3a 20 f2 6f  70 65 6e 77 69 6e 64 6f  |4   : .openwindo|
00001f80  77 28 4d 61 69 6e 57 25  2c a3 29 0d 0b 9a 1d c9  |w(MainW%,.).....|
00001f90  20 32 20 20 20 20 20 3a  20 f2 6d 65 6e 75 28 77  | 2     : .menu(w|
00001fa0  68 61 6e 64 6c 65 25 29  0d 0b a4 05 cb 0d 0b ae  |handle%)........|
00001fb0  05 e1 0d 0b b8 05 3a 0d  0b c2 0e dd 20 a4 69 63  |......:..... .ic|
00001fc0  6f 6e 62 61 72 0d 0b cc  24 21 62 6c 6f 63 6b 25  |onbar...$!block%|
00001fd0  3d 2d 31 3a 62 6c 6f 63  6b 25 21 34 3d 30 3a 62  |=-1:block%!4=0:b|
00001fe0  6c 6f 63 6b 25 21 38 3d  30 0d 0b d6 2d 62 6c 6f  |lock%!8=0...-blo|
00001ff0  63 6b 25 21 31 32 3d 36  38 3a 62 6c 6f 63 6b 25  |ck%!12=68:block%|
00002000  21 31 36 3d 36 38 3a 62  6c 6f 63 6b 25 21 32 30  |!16=68:block%!20|
00002010  3d 26 33 31 30 32 0d 0b  e0 13 64 61 74 61 24 3d  |=&3102....data$=|
00002020  22 21 53 65 6e 64 65 72  22 0d 0b ea 30 de 20 62  |"!Sender"...0. b|
00002030  6c 6f 63 6b 25 21 32 34  20 28 a9 20 64 61 74 61  |lock%!24 (. data|
00002040  24 2b 31 29 20 3a 20 24  28 62 6c 6f 63 6b 25 21  |$+1) : $(block%!|
00002050  32 34 29 3d 64 61 74 61  24 0d 0b f4 21 62 6c 6f  |24)=data$...!blo|
00002060  63 6b 25 21 32 38 3d 31  3a 62 6c 6f 63 6b 25 21  |ck%!28=1:block%!|
00002070  33 32 3d a9 20 64 61 74  61 24 0d 0b fe 26 c8 99  |32=. data$...&..|
00002080  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00002090  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 69 63 6f 6e  |",,block% . icon|
000020a0  0d 0c 08 09 3d 69 63 6f  6e 0d 0c 12 05 3a 0d 0c  |....=icon....:..|
000020b0  1c 12 dd 20 f2 64 65 66  69 6e 65 4d 65 6e 75 73  |... .defineMenus|
000020c0  0d 0c 26 0e ea 20 74 24  20 3a 20 ea 20 dc 0d 0c  |..&.. t$ : . ...|
000020d0  30 15 de 20 6d 65 6e 75  66 72 65 65 25 20 26 33  |0.. menufree% &3|
000020e0  30 30 30 0d 0c 3a 12 70  74 72 25 3d 6d 65 6e 75  |000..:.ptr%=menu|
000020f0  66 72 65 65 25 0d 0c 44  27 f7 2b 31 20 3a 20 f3  |free%..D'.+1 : .|
00002100  20 74 24 20 3a 20 49 63  6f 6e 4d 25 3d a4 63 72  | t$ : IconM%=.cr|
00002110  65 61 74 65 4d 65 6e 75  28 74 24 29 0d 0c 4e 3b  |eateMenu(t$)..N;|
00002120  dc 22 23 53 65 6e 64 65  72 2c 49 6e 66 6f 23 3e  |."#Sender,Info#>|
00002130  49 6e 66 6f 57 25 2c 48  65 6c 70 2c 53 61 76 65  |InfoW%,Help,Save|
00002140  20 73 65 74 74 69 6e 67  73 7d 48 65 6c 70 57 25  | settings}HelpW%|
00002150  2c 51 75 69 74 22 29 0d  0c 58 21 f3 20 74 24 20  |,Quit")..X!. t$ |
00002160  3a 20 4d 61 69 6e 4d 25  3d a4 63 72 65 61 74 65  |: MainM%=.create|
00002170  4d 65 6e 75 28 74 24 29  0d 0c 62 34 dc 22 23 53  |Menu(t$)..b4."#S|
00002180  65 6e 64 65 72 2c 49 6e  66 6f 23 3e 49 6e 66 6f  |ender,Info#>Info|
00002190  57 25 2c 48 65 6c 70 2c  53 61 76 65 20 73 65 74  |W%,Help,Save set|
000021a0  74 69 6e 67 73 2c 51 75  69 74 22 29 0d 0c 6c 11  |tings,Quit")..l.|
000021b0  6f 6d 65 6e 75 25 3d 49  63 6f 6e 4d 25 0d 0c 76  |omenu%=IconM%..v|
000021c0  05 e1 0d 0c 80 05 3a 0d  0c 8a 15 dd 20 a4 63 72  |......:..... .cr|
000021d0  65 61 74 65 4d 65 6e 75  28 6d 24 29 0d 0c 94 12  |eateMenu(m$)....|
000021e0  70 74 72 25 3d 6d 65 6e  75 66 72 65 65 25 0d 0c  |ptr%=menufree%..|
000021f0  9e 08 69 25 3d 30 0d 0c  a8 12 e7 20 c0 6d 24 2c  |..i%=0..... .m$,|
00002200  31 29 3d 22 23 22 20 8c  0d 0c b2 28 20 20 20 20  |1)="#" ....(    |
00002210  20 3a 20 69 25 3d 31 20  3a 20 74 69 74 6c 65 24  | : i%=1 : title$|
00002220  3d a4 70 61 72 28 6d 24  2c 22 2c 22 2c 69 25 29  |=.par(m$,",",i%)|
00002230  0d 0c bc 11 cc 20 3a 20  74 69 74 6c 65 24 3d 22  |..... : title$="|
00002240  22 0d 0c c6 05 cd 0d 0c  d0 10 24 70 74 72 25 3d  |".........$ptr%=|
00002250  74 69 74 6c 65 24 0d 0c  da 31 70 74 72 25 3f 31  |title$...1ptr%?1|
00002260  32 3d 37 20 3a 20 70 74  72 25 3f 31 33 3d 32 20  |2=7 : ptr%?13=2 |
00002270  3a 20 70 74 72 25 3f 31  34 3d 37 20 3a 20 70 74  |: ptr%?14=7 : pt|
00002280  72 25 3f 31 35 3d 30 0d  0c e4 2b 70 74 72 25 21  |r%?15=0...+ptr%!|
00002290  31 36 3d 31 39 36 2d 32  34 20 3a 20 70 74 72 25  |16=196-24 : ptr%|
000022a0  21 32 30 3d 34 34 20 3a  20 70 74 72 25 21 32 34  |!20=44 : ptr%!24|
000022b0  3d 30 0d 0c ee 1d 70 74  72 25 2b 3d 32 38 20 3a  |=0....ptr%+=28 :|
000022c0  20 6d 61 78 78 25 3d a9  20 74 69 74 6c 65 24 0d  | maxx%=. title$.|
000022d0  0c f8 05 f5 0d 0d 02 2c  69 74 65 6d 24 3d a4 70  |.......,item$=.p|
000022e0  61 72 28 6d 24 2c 22 2c  22 2c 69 25 29 20 3a 20  |ar(m$,",",i%) : |
000022f0  f2 6d 65 6e 75 49 74 65  6d 28 69 74 65 6d 24 29  |.menuItem(item$)|
00002300  0d 0d 0c 0e fd 20 69 74  65 6d 24 3d 22 22 0d 0d  |..... item$=""..|
00002310  16 26 6d 25 3d 6d 65 6e  75 66 72 65 65 25 20 3a  |.&m%=menufree% :|
00002320  20 6d 25 21 31 36 3d 28  6d 61 78 78 25 2a 38 2b  | m%!16=(maxx%*8+|
00002330  36 29 2a 32 0d 0d 20 12  6d 65 6e 75 66 72 65 65  |6)*2.. .menufree|
00002340  25 3d 70 74 72 25 0d 0d  2a 07 3d 6d 25 0d 0d 34  |%=ptr%..*.=m%..4|
00002350  05 3a 0d 0d 3e 16 dd 20  a4 70 61 72 28 74 24 2c  |.:..>.. .par(t$,|
00002360  73 24 2c f8 20 69 25 29  0d 0d 48 1e 61 25 3d 69  |s$,. i%)..H.a%=i|
00002370  25 2b 31 20 3a 20 69 25  3d a7 74 24 2b 73 24 2c  |%+1 : i%=.t$+s$,|
00002380  73 24 2c 61 25 29 0d 0d  52 12 3d c1 74 24 2c 61  |s$,a%)..R.=.t$,a|
00002390  25 2c 69 25 2d 61 25 29  0d 0d 5c 05 3a 0d 0d 66  |%,i%-a%)..\.:..f|
000023a0  16 dd 20 f2 6d 65 6e 75  49 74 65 6d 28 74 65 78  |.. .menuItem(tex|
000023b0  74 24 29 0d 0d 70 2e e7  20 74 65 78 74 24 3d 22  |t$)..p.. text$="|
000023c0  22 20 8c 20 70 74 72 25  21 2d 32 34 3d 28 70 74  |" . ptr%!-24=(pt|
000023d0  72 25 21 2d 32 34 29 20  84 20 26 38 30 20 3a 20  |r%!-24) . &80 : |
000023e0  e1 0d 0d 7a 0e ea 20 69  25 2c 66 6c 61 67 25 0d  |...z.. i%,flag%.|
000023f0  0d 84 1e 66 6c 61 67 25  3d 26 30 30 20 3a 20 69  |...flag%=&00 : i|
00002400  25 3d a7 74 65 78 74 24  2c 22 3e 22 29 0d 0d 8e  |%=.text$,">")...|
00002410  0c e7 20 69 25 3e 30 20  8c 0d 0d 98 35 20 20 20  |.. i%>0 ....5   |
00002420  20 20 3a 20 73 75 62 70  74 72 25 3d a0 c1 74 65  |  : subptr%=..te|
00002430  78 74 24 2c 69 25 2b 31  29 20 3a 20 74 65 78 74  |xt$,i%+1) : text|
00002440  24 3d c0 74 65 78 74 24  2c 69 25 2d 31 29 0d 0d  |$=.text$,i%-1)..|
00002450  a2 12 cc 20 3a 20 73 75  62 70 74 72 25 3d 2d 31  |... : subptr%=-1|
00002460  0d 0d ac 05 cd 0d 0d b6  12 69 25 3d a7 74 65 78  |.........i%=.tex|
00002470  74 24 2c 22 7d 22 29 0d  0d c0 0c e7 20 69 25 3e  |t$,"}")..... i%>|
00002480  30 20 8c 0d 0d ca 35 20  20 20 20 20 3a 20 73 75  |0 ....5     : su|
00002490  62 70 74 72 25 3d bb c1  74 65 78 74 24 2c 69 25  |bptr%=..text$,i%|
000024a0  2b 31 29 20 3a 20 74 65  78 74 24 3d c0 74 65 78  |+1) : text$=.tex|
000024b0  74 24 2c 69 25 2d 31 29  0d 0d d4 15 20 20 20 20  |t$,i%-1)....    |
000024c0  20 3a 20 66 6c 61 67 25  2b 3d 26 30 38 0d 0d de  | : flag%+=&08...|
000024d0  05 cd 0d 0d e8 36 e7 20  c2 74 65 78 74 24 2c 31  |.....6. .text$,1|
000024e0  29 3d 22 23 22 20 8c 20  74 65 78 74 24 3d c0 74  |)="#" . text$=.t|
000024f0  65 78 74 24 29 20 3a 20  66 6c 61 67 25 2b 3d 26  |ext$) : flag%+=&|
00002500  30 32 3a f4 20 6e 65 77  0d 0d f2 34 70 74 72 25  |02:. new...4ptr%|
00002510  21 30 3d 66 6c 61 67 25  20 3a 20 70 74 72 25 21  |!0=flag% : ptr%!|
00002520  34 3d 73 75 62 70 74 72  25 20 3a 20 70 74 72 25  |4=subptr% : ptr%|
00002530  21 38 3d 26 30 37 30 30  30 30 32 31 0d 0d fc 15  |!8=&07000021....|
00002540  e7 20 c0 74 65 78 74 24  2c 31 29 3d 22 24 22 20  |. .text$,1)="$" |
00002550  8c 0d 0e 06 35 20 20 20  20 20 3a 20 21 70 74 72  |....5     : !ptr|
00002560  25 2b 3d 26 30 34 20 3a  20 70 74 72 25 21 38 2b  |%+=&04 : ptr%!8+|
00002570  3d 26 31 30 30 20 3a 20  69 25 3d a7 74 65 78 74  |=&100 : i%=.text|
00002580  24 2c 22 28 22 29 0d 0e  10 13 20 20 20 20 20 3a  |$,"(")....     :|
00002590  20 e7 20 69 25 3e 30 20  8c 0d 0e 1a 30 20 20 20  | . i%>0 ....0   |
000025a0  20 20 3a 20 4c 25 3d bb  c1 74 65 78 74 24 2c 69  |  : L%=..text$,i|
000025b0  25 2b 31 29 20 3a 20 74  65 78 74 24 3d c0 74 65  |%+1) : text$=.te|
000025c0  78 74 24 2c 69 25 2d 31  29 0d 0e 24 0d cc 20 3a  |xt$,i%-1)..$.. :|
000025d0  20 4c 25 3d 31 32 0d 0e  2e 05 cd 0d 0e 38 37 20  | L%=12.......87 |
000025e0  20 20 20 20 3a 20 70 74  72 25 21 31 32 3d a0 c1  |    : ptr%!12=..|
000025f0  74 65 78 74 24 2c 32 29  20 3a 20 70 74 72 25 21  |text$,2) : ptr%!|
00002600  31 36 3d 2d 31 20 3a 20  70 74 72 25 21 32 30 3d  |16=-1 : ptr%!20=|
00002610  4c 25 0d 0e 42 19 20 20  20 20 20 3a 20 74 65 78  |L%..B.     : tex|
00002620  74 24 3d c4 4c 25 2c 22  20 22 29 0d 0e 4c 16 cc  |t$=.L%," ")..L..|
00002630  20 3a 20 e7 20 a9 74 65  78 74 24 3c 3d 31 32 20  | : . .text$<=12 |
00002640  8c 0d 0e 56 1b 20 20 20  20 20 3a 20 24 28 70 74  |...V.     : $(pt|
00002650  72 25 2b 31 32 29 3d 74  65 78 74 24 0d 0e 60 28  |r%+12)=text$..`(|
00002660  cc 20 3a 20 49 25 3d a4  77 6f 72 6b 73 70 28 a9  |. : I%=.worksp(.|
00002670  74 65 78 74 24 2b 31 29  20 3a 20 24 49 25 3d 74  |text$+1) : $I%=t|
00002680  65 78 74 24 0d 0e 6a 35  20 20 20 20 20 3a 20 70  |ext$..j5     : p|
00002690  74 72 25 21 31 32 3d 49  25 20 3a 20 70 74 72 25  |tr%!12=I% : ptr%|
000026a0  21 31 36 3d 2d 31 20 3a  20 70 74 72 25 21 32 30  |!16=-1 : ptr%!20|
000026b0  3d a9 74 65 78 74 24 2b  31 0d 0e 74 1f 20 20 20  |=.text$+1..t.   |
000026c0  20 20 3a 20 70 74 72 25  21 38 3d 70 74 72 25 21  |  : ptr%!8=ptr%!|
000026d0  38 20 84 20 26 31 30 30  0d 0e 7e 05 cd 0d 0e 88  |8 . &100..~.....|
000026e0  40 20 20 20 20 20 3a 20  e7 20 a9 74 65 78 74 24  |@     : . .text$|
000026f0  2d 28 73 75 62 70 74 72  25 3e 30 29 3e 6d 61 78  |-(subptr%>0)>max|
00002700  78 25 20 8c 20 6d 61 78  78 25 3d a9 74 65 78 74  |x% . maxx%=.text|
00002710  24 2d 28 73 75 62 70 74  72 25 3e 30 29 0d 0e 92  |$-(subptr%>0)...|
00002720  05 cd 0d 0e 9c 0c 70 74  72 25 2b 3d 32 34 0d 0e  |......ptr%+=24..|
00002730  a6 05 e1 0d 0e b0 05 3a  0d 0e ba 11 dd 20 a4 77  |.......:..... .w|
00002740  6f 72 6b 73 70 28 4c 25  29 0d 0e c4 0f 62 75 66  |orksp(L%)....buf|
00002750  66 65 72 25 2b 3d 4c 25  0d 0e ce 0f 3d 62 75 66  |fer%+=L%....=buf|
00002760  66 65 72 25 2d 4c 25 0d  0e d8 05 3a 0d 0e e2 15  |fer%-L%....:....|
00002770  dd 20 f2 6d 65 6e 75 28  77 68 61 6e 64 6c 65 25  |. .menu(whandle%|
00002780  29 0d 0e ec 11 c8 8e 20  77 68 61 6e 64 6c 65 25  |)...... whandle%|
00002790  20 ca 0d 0e f6 1b c9 20  2d 32 20 20 20 20 20 3a  | ...... -2     :|
000027a0  20 f2 70 6f 70 28 49 63  6f 6e 4d 25 29 0d 0f 00  | .pop(IconM%)...|
000027b0  1b c9 20 4d 61 69 6e 57  25 20 3a 20 f2 70 6f 70  |.. MainW% : .pop|
000027c0  28 4d 61 69 6e 4d 25 29  0d 0f 0a 05 cb 0d 0f 14  |(MainM%)........|
000027d0  05 e1 0d 0f 1e 05 3a 0d  0f 28 11 dd 20 f2 70 6f  |......:..(.. .po|
000027e0  70 28 6d 65 6e 75 25 29  0d 0f 32 11 e7 20 6d 65  |p(menu%)..2.. me|
000027f0  6e 75 25 3c 30 20 8c 20  e1 0d 0f 3c 1f e7 20 6d  |nu%<0 . ...<.. m|
00002800  65 6e 75 25 3d 49 63 6f  6e 4d 25 20 8c 20 6d 79  |enu%=IconM% . my|
00002810  25 3d 32 32 30 2b 34 34  0d 0f 46 2d c8 99 20 22  |%=220+44..F-.. "|
00002820  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00002830  2c 2c 6d 65 6e 75 25 2c  6d 78 25 2d 36 34 2c 6d  |,,menu%,mx%-64,m|
00002840  79 25 2b 33 32 0d 0f 50  10 6f 6d 65 6e 75 25 3d  |y%+32..P.omenu%=|
00002850  6d 65 6e 75 25 0d 0f 5a  05 e1 0d 0f 64 05 3a 0d  |menu%..Z....d.:.|
00002860  0f 6e 19 dd 20 f2 6d 65  6e 75 73 65 6c 65 63 74  |.n.. .menuselect|
00002870  28 62 6c 6f 63 6b 25 29  0d 0f 78 2e 6d 31 25 3d  |(block%)..x.m1%=|
00002880  62 6c 6f 63 6b 25 21 30  20 3a 20 6d 32 25 3d 62  |block%!0 : m2%=b|
00002890  6c 6f 63 6b 25 21 34 20  3a 20 6d 33 25 3d 62 6c  |lock%!4 : m3%=bl|
000028a0  6f 63 6b 25 21 38 0d 0f  82 0f c8 8e 20 6f 6d 65  |ock%!8...... ome|
000028b0  6e 75 25 20 ca 0d 0f 8c  16 c9 20 4d 61 69 6e 4d  |nu% ...... MainM|
000028c0  25 3a 20 c8 8e 20 6d 31  25 20 ca 0d 0f 96 0d c9  |%: .. m1% ......|
000028d0  20 30 20 20 20 20 20 3a  0d 0f a0 46 c9 20 31 20  | 0     :...F. 1 |
000028e0  20 20 20 20 3a f2 6f 70  65 6e 77 69 6e 64 6f 77  |    :.openwindow|
000028f0  28 48 65 6c 70 57 25 2c  68 66 6c 67 25 29 3a 68  |(HelpW%,hflg%):h|
00002900  66 6c 67 25 3d ac 20 68  66 6c 67 25 3a f2 74 69  |flg%=. hflg%:.ti|
00002910  63 6b 28 6f 6d 65 6e 75  25 2c 6d 31 25 29 0d 0f  |ck(omenu%,m1%)..|
00002920  aa 1a c9 20 32 20 20 20  20 20 3a f2 73 61 76 65  |... 2     :.save|
00002930  73 65 74 74 69 6e 67 73  0d 0f b4 14 c9 20 33 20  |settings..... 3 |
00002940  20 20 20 20 3a 71 75 69  74 25 3d b9 0d 0f be 10  |    :quit%=.....|
00002950  20 20 20 20 20 20 20 20  20 20 20 cb 0d 0f c8 04  |           .....|
00002960  0d 0f d2 16 c9 20 49 63  6f 6e 4d 25 3a 20 c8 8e  |..... IconM%: ..|
00002970  20 6d 31 25 20 ca 0d 0f  dc 0d c9 20 30 20 20 20  | m1% ...... 0   |
00002980  20 20 3a 0d 0f e6 46 c9  20 31 20 20 20 20 20 3a  |  :...F. 1     :|
00002990  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 48 65 6c 70  |.openwindow(Help|
000029a0  57 25 2c 68 66 6c 67 25  29 3a 68 66 6c 67 25 3d  |W%,hflg%):hflg%=|
000029b0  ac 20 68 66 6c 67 25 3a  f2 74 69 63 6b 28 6f 6d  |. hflg%:.tick(om|
000029c0  65 6e 75 25 2c 6d 31 25  29 0d 0f f0 1a c9 20 32  |enu%,m1%)..... 2|
000029d0  20 20 20 20 20 3a f2 73  61 76 65 73 65 74 74 69  |     :.savesetti|
000029e0  6e 67 73 0d 0f fa 14 c9  20 33 20 20 20 20 20 3a  |ngs..... 3     :|
000029f0  71 75 69 74 25 3d b9 0d  10 04 10 20 20 20 20 20  |quit%=.....     |
00002a00  20 20 20 20 20 20 cb 0d  10 0e 05 cb 0d 10 18 24  |      .........$|
00002a10  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00002a20  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |terInfo",,block%|
00002a30  0d 10 22 14 62 75 74 74  6f 6e 25 3d 62 6c 6f 63  |..".button%=bloc|
00002a40  6b 25 21 38 0d 10 2c 1f  e7 20 62 75 74 74 6f 6e  |k%!8..,.. button|
00002a50  25 3d 31 20 f2 6d 65 6e  75 28 77 68 61 6e 64 6c  |%=1 .menu(whandl|
00002a60  65 25 29 0d 10 36 05 e1  0d 10 40 05 3a 0d 10 4a  |e%)..6....@.:..J|
00002a70  13 dd 20 f2 74 69 63 6b  28 6d 25 2c 6d 69 25 29  |.. .tick(m%,mi%)|
00002a80  0d 10 54 2f 4d 61 69 6e  4d 25 21 28 32 38 2b 32  |..T/MainM%!(28+2|
00002a90  34 2a 6d 69 25 29 3d 4d  61 69 6e 4d 25 21 28 32  |4*mi%)=MainM%!(2|
00002aa0  38 2b 32 34 2a 6d 69 25  29 20 82 20 26 30 31 0d  |8+24*mi%) . &01.|
00002ab0  10 5e 2f 49 63 6f 6e 4d  25 21 28 32 38 2b 32 34  |.^/IconM%!(28+24|
00002ac0  2a 6d 69 25 29 3d 49 63  6f 6e 4d 25 21 28 32 38  |*mi%)=IconM%!(28|
00002ad0  2b 32 34 2a 6d 69 25 29  20 82 20 26 30 31 0d 10  |+24*mi%) . &01..|
00002ae0  68 05 e1 0d 10 72 05 3a  0d 10 7c 10 dd 20 f2 63  |h....r.:..|.. .c|
00002af0  6c 6f 73 65 4d 65 6e 75  0d 10 86 1b c8 99 20 22  |loseMenu...... "|
00002b00  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00002b10  2c 2d 31 0d 10 90 05 e1  0d 10 9a 05 3a 0d 10 a4  |,-1.........:...|
00002b20  1f dd f2 72 65 64 6f 69  63 6f 6e 28 69 68 61 6e  |...redoicon(ihan|
00002b30  64 6c 65 25 2c 69 74 65  78 74 24 29 0d 10 ae 13  |dle%,itext$)....|
00002b40  77 68 61 6e 64 6c 65 25  3d 4d 61 69 6e 57 25 0d  |whandle%=MainW%.|
00002b50  10 b8 28 21 62 6c 6f 63  6b 25 3d 77 68 61 6e 64  |..(!block%=whand|
00002b60  6c 65 25 20 3a 20 62 6c  6f 63 6b 25 21 34 3d 69  |le% : block%!4=i|
00002b70  68 61 6e 64 6c 65 25 0d  10 c2 22 c8 99 20 22 57  |handle%...".. "W|
00002b80  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00002b90  22 2c 2c 62 6c 6f 63 6b  25 0d 10 cc 41 21 62 6c  |",,block%...A!bl|
00002ba0  6f 63 6b 25 3d 77 68 61  6e 64 6c 65 25 20 3a 20  |ock%=whandle% : |
00002bb0  62 6c 6f 63 6b 25 21 34  3d 69 68 61 6e 64 6c 65  |block%!4=ihandle|
00002bc0  25 3a 62 6c 6f 63 6b 25  21 38 3d 30 20 3a 20 62  |%:block%!8=0 : b|
00002bd0  6c 6f 63 6b 25 21 31 32  3d 30 0d 10 d6 17 24 28  |lock%!12=0....$(|
00002be0  62 6c 6f 63 6b 25 21 32  38 29 3d 69 74 65 78 74  |block%!28)=itext|
00002bf0  24 0d 10 e0 22 c8 99 20  22 57 69 6d 70 5f 53 65  |$...".. "Wimp_Se|
00002c00  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00002c10  63 6b 25 0d 10 ea 05 e1  0d 10 f4 05 3a 0d 10 fe  |ck%.........:...|
00002c20  12 dd f2 6c 6f 61 64 73  65 74 74 69 6e 67 73 0d  |...loadsettings.|
00002c30  11 08 07 ea 20 78 0d 11  12 1e 78 3d 8e 20 22 3c  |.... x....x=. "<|
00002c40  53 65 6e 64 65 72 24 44  69 72 3e 2e 55 73 65 72  |Sender$Dir>.User|
00002c50  53 65 74 22 0d 11 1c 29  e8 23 78 2c 76 6f 6c 25  |Set"...).#x,vol%|
00002c60  2c 70 69 74 63 68 25 2c  72 61 74 65 25 2c 63 6f  |,pitch%,rate%,co|
00002c70  6e 74 65 6e 74 25 2c 77  72 69 74 65 25 0d 11 26  |ntent%,write%..&|
00002c80  07 d9 23 78 0d 11 30 05  e1 0d 11 3a 05 3a 0d 11  |..#x..0....:.:..|
00002c90  44 12 dd f2 73 61 76 65  73 65 74 74 69 6e 67 73  |D...savesettings|
00002ca0  0d 11 4e 07 ea 20 78 0d  11 58 1e 78 3d ad 20 22  |..N.. x..X.x=. "|
00002cb0  3c 53 65 6e 64 65 72 24  44 69 72 3e 2e 55 73 65  |<Sender$Dir>.Use|
00002cc0  72 53 65 74 22 0d 11 62  29 f1 23 78 2c 76 6f 6c  |rSet"..b).#x,vol|
00002cd0  25 2c 70 69 74 63 68 25  2c 72 61 74 65 25 2c 63  |%,pitch%,rate%,c|
00002ce0  6f 6e 74 65 6e 74 25 2c  77 72 69 74 65 25 0d 11  |ontent%,write%..|
00002cf0  6c 07 d9 23 78 0d 11 76  05 e1 0d 11 80 05 3a 0d  |l..#x..v......:.|
00002d00  11 8a 10 dd f2 72 65 61  64 61 72 72 61 79 73 0d  |.....readarrays.|
00002d10  11 94 13 f2 72 65 61 64  6d 6f 72 73 65 61 72 72  |....readmorsearr|
00002d20  61 79 0d 11 9e 12 f2 72  65 61 64 77 6f 72 64 61  |ay.....readworda|
00002d30  72 72 61 79 0d 11 a8 0e  f2 72 65 61 64 73 70 65  |rray.....readspe|
00002d40  65 64 0d 11 b2 05 e1 0d  11 bc 05 3a 0d 11 c6 16  |ed.........:....|
00002d50  f4 20 20 4d 4f 52 53 45  20 43 4f 44 45 20 44 41  |.  MORSE CODE DA|
00002d60  54 41 0d 11 d0 14 dd f2  72 65 61 64 6d 6f 72 73  |TA......readmors|
00002d70  65 61 72 72 61 79 0d 11  da 08 f7 20 2b 30 0d 11  |earray..... +0..|
00002d80  e4 5e dc 30 36 32 32 32  32 32 33 2c 31 36 31 32  |.^.06222223,1612|
00002d90  32 32 32 33 2c 32 36 31  31 32 32 32 33 2c 33 36  |2223,26112223,36|
00002da0  31 31 31 32 32 33 2c 34  36 31 31 31 31 32 33 2c  |111223,46111123,|
00002db0  35 36 31 31 31 31 31 33  2c 36 36 32 31 31 31 31  |56111113,6621111|
00002dc0  33 2c 37 36 32 32 31 31  31 33 2c 38 36 32 32 32  |3,76221113,86222|
00002dd0  31 31 33 2c 39 36 32 32  32 32 31 33 0d 11 ee 12  |113,96222213....|
00002de0  dc 58 2c 58 2c 58 2c 58  2c 58 2c 58 2c 58 0d 11  |.X,X,X,X,X,X,X..|
00002df0  f8 be dc 41 33 31 32 33  2c 42 35 32 31 31 31 33  |...A3123,B521113|
00002e00  2c 43 35 32 31 32 31 33  2c 44 34 32 31 31 33 2c  |,C521213,D42113,|
00002e10  45 32 31 33 2c 46 35 31  31 32 31 33 2c 47 34 32  |E213,F511213,G42|
00002e20  32 31 33 2c 48 35 31 31  31 31 33 2c 49 33 31 31  |213,H511113,I311|
00002e30  33 2c 4a 35 31 32 32 32  33 2c 4b 34 32 31 32 33  |3,J512223,K42123|
00002e40  2c 4c 35 31 32 31 31 33  2c 4d 33 32 32 33 2c 4e  |,L512113,M3223,N|
00002e50  33 32 31 33 2c 4f 34 32  32 32 33 2c 50 35 31 32  |3213,O42223,P512|
00002e60  32 31 33 2c 51 35 32 32  31 32 33 2c 52 34 31 32  |213,Q522123,R412|
00002e70  31 33 2c 53 34 31 31 31  33 2c 54 32 32 33 2c 55  |13,S41113,T223,U|
00002e80  34 31 31 32 33 2c 56 35  31 31 31 32 33 2c 57 34  |41123,V511123,W4|
00002e90  31 32 32 33 2c 58 35 32  31 31 32 33 2c 59 35 32  |1223,X521123,Y52|
00002ea0  31 32 32 33 2c 5a 35 32  32 31 31 33 0d 12 02 21  |1223,Z522113...!|
00002eb0  e3 49 3d 34 38 b8 39 30  20 3a 20 f3 63 6f 64 65  |.I=48.90 : .code|
00002ec0  64 61 74 61 24 28 49 2d  34 38 29 3a ed 0d 12 0c  |data$(I-48):....|
00002ed0  05 e1 0d 12 16 05 3a 0d  12 20 19 f4 20 20 20 52  |......:.. ..   R|
00002ee0  41 4e 44 4f 4d 20 57 4f  52 44 53 20 44 41 54 41  |ANDOM WORDS DATA|
00002ef0  0d 12 2a 13 dd f2 72 65  61 64 77 6f 72 64 61 72  |..*...readwordar|
00002f00  72 61 79 0d 12 34 08 f7  20 2b 30 0d 12 3e 92 dc  |ray..4.. +0..>..|
00002f10  54 48 45 53 45 2c 41 52  45 2c 54 48 45 2c 46 49  |THESE,ARE,THE,FI|
00002f20  52 53 54 2c 43 4f 44 45  53 2c 54 4f 2c 42 45 2c  |RST,CODES,TO,BE,|
00002f30  55 53 45 44 2c 5a 45 42  52 41 2c 46 4f 58 59 2c  |USED,ZEBRA,FOXY,|
00002f40  51 55 45 52 59 2c 45 58  50 4c 41 49 4e 2c 48 45  |QUERY,EXPLAIN,HE|
00002f50  2c 57 48 49 43 48 2c 59  41 43 48 54 2c 57 45 52  |,WHICH,YACHT,WER|
00002f60  45 2c 59 45 4c 4c 4f 57  2c 53 41 56 45 44 2c 54  |E,YELLOW,SAVED,T|
00002f70  49 47 45 52 2c 4d 4f 54  4f 52 2c 47 4f 53 53 49  |IGER,MOTOR,GOSSI|
00002f80  50 2c 50 52 4f 4d 49 53  45 2c 54 52 55 53 54 2c  |P,PROMISE,TRUST,|
00002f90  4d 41 54 43 48 45 53 2c  53 4d 4f 4b 45 0d 12 48  |MATCHES,SMOKE..H|
00002fa0  b8 dc 53 48 49 50 53 2c  52 48 59 54 48 4d 2c 43  |..SHIPS,RHYTHM,C|
00002fb0  4f 4d 50 55 54 45 2c 42  45 53 54 2c 57 4f 52 53  |OMPUTE,BEST,WORS|
00002fc0  54 2c 52 41 44 49 4f 2c  4d 4f 52 53 45 2c 43 4f  |T,RADIO,MORSE,CO|
00002fd0  44 45 2c 52 45 53 49 53  54 2c 59 41 47 49 2c 59  |DE,RESIST,YAGI,Y|
00002fe0  45 41 53 54 2c 46 4c 49  47 48 54 2c 46 49 47 55  |EAST,FLIGHT,FIGU|
00002ff0  52 45 2c 43 52 41 5a 59  2c 4d 45 52 52 59 2c 45  |RE,CRAZY,MERRY,E|
00003000  58 50 52 45 53 53 2c 4c  41 5a 59 2c 46 41 53 54  |XPRESS,LAZY,FAST|
00003010  2c 54 45 58 54 55 52 45  2c 57 41 58 45 4e 2c 45  |,TEXTURE,WAXEN,E|
00003020  58 50 49 52 45 2c 52 49  54 5a 2c 52 45 51 55 49  |XPIRE,RITZ,REQUI|
00003030  52 45 2c 50 52 4f 50 45  52 2c 50 52 4f 57 2c 52  |RE,PROPER,PROW,R|
00003040  4f 54 41 2c 51 55 49 45  54 2c 50 52 4f 56 45 2c  |OTA,QUIET,PROVE,|
00003050  51 55 4f 54 45 0d 12 52  c5 dc 44 55 43 4b 2c 41  |QUOTE..R..DUCK,A|
00003060  57 41 4b 45 2c 43 4f 41  53 54 2c 50 41 57 4e 2c  |WAKE,COAST,PAWN,|
00003070  43 4f 4d 42 2c 47 48 4f  53 54 2c 54 41 43 4b 2c  |COMB,GHOST,TACK,|
00003080  4d 55 43 48 2c 57 41 47  45 53 2c 42 41 4b 45 2c  |MUCH,WAGES,BAKE,|
00003090  44 55 54 43 48 2c 41 47  4f 2c 50 41 53 54 45 2c  |DUTCH,AGO,PASTE,|
000030a0  50 41 54 48 2c 44 4f 47  2c 41 50 54 2c 47 4f 54  |PATH,DOG,APT,GOT|
000030b0  2c 4c 45 41 50 2c 52 45  53 54 2c 47 52 41 4d 2c  |,LEAP,REST,GRAM,|
000030c0  52 45 53 50 45 43 54 2c  50 41 4e 54 2c 53 4c 55  |RESPECT,PANT,SLU|
000030d0  4d 42 45 52 2c 43 4c 41  54 54 45 52 2c 4c 49 5a  |MBER,CLATTER,LIZ|
000030e0  41 52 44 2c 44 45 45 44  2c 46 49 4e 44 2c 43 48  |ARD,DEED,FIND,CH|
000030f0  41 52 4d 2c 54 4f 4e 47  55 45 2c 57 49 46 45 2c  |ARM,TONGUE,WIFE,|
00003100  53 4c 41 49 4e 2c 41 54  2c 41 4e 44 2c 54 48 45  |SLAIN,AT,AND,THE|
00003110  2c 41 4e 54 49 43 2c 53  41 59 0d 12 5c 77 dc 50  |,ANTIC,SAY..\w.P|
00003120  49 4c 4c 4f 57 2c 48 4f  4c 4c 4f 57 2c 53 49 54  |ILLOW,HOLLOW,SIT|
00003130  2c 4d 59 2c 48 49 4d 2c  4c 49 54 54 4c 45 2c 4b  |,MY,HIM,LITTLE,K|
00003140  49 4c 4c 2c 57 48 41 54  2c 57 48 45 4e 2c 54 48  |ILL,WHAT,WHEN,TH|
00003150  52 45 45 2c 53 45 56 45  4e 2c 53 4f 4c 44 45 52  |REE,SEVEN,SOLDER|
00003160  2c 42 4f 55 4e 44 2c 54  57 4f 2c 4d 41 44 45 2c  |,BOUND,TWO,MADE,|
00003170  48 45 41 54 45 52 2c 49  4e 2c 43 4f 55 50 4c 45  |HEATER,IN,COUPLE|
00003180  2c 46 4f 4f 4c 53 2c 53  49 4c 4c 59 2c 43 52 4f  |,FOOLS,SILLY,CRO|
00003190  57 0d 12 66 06 dc 2a 0d  12 70 0e 77 6f 72 64 73  |W..f..*..p.words|
000031a0  75 6d 25 3d 30 0d 12 7a  11 f5 20 77 6f 72 64 73  |um%=0..z.. words|
000031b0  75 6d 25 2b 3d 31 0d 12  84 14 f3 77 6f 72 64 24  |um%+=1.....word$|
000031c0  28 77 6f 72 64 73 75 6d  25 29 0d 12 8e 19 fd 20  |(wordsum%)..... |
000031d0  77 6f 72 64 24 28 77 6f  72 64 73 75 6d 25 29 3d  |word$(wordsum%)=|
000031e0  22 2a 22 0d 12 98 0f 77  6f 72 64 73 75 6d 25 2d  |"*"....wordsum%-|
000031f0  3d 31 0d 12 a2 05 e1 0d  12 ac 05 3a 0d 12 b6 0f  |=1.........:....|
00003200  dd f2 72 65 61 64 73 70  65 65 64 0d 12 c0 08 f7  |..readspeed.....|
00003210  20 2b 30 0d 12 ca 43 dc  36 30 30 2c 34 30 30 2c  | +0...C.600,400,|
00003220  33 30 30 2c 32 30 30 2c  31 36 30 2c 31 33 30 2c  |300,200,160,130,|
00003230  31 30 30 2c 37 35 2c 36  35 2c 35 30 2c 34 35 2c  |100,75,65,50,45,|
00003240  33 35 2c 32 36 2c 32 30  2c 31 37 2c 31 34 2c 39  |35,26,20,17,14,9|
00003250  2c 37 2c 32 2c 30 0d 12  d4 4c f4 20 20 31 20 20  |,7,2,0...L.  1  |
00003260  20 32 20 20 20 33 20 20  20 34 20 20 20 35 20 20  | 2   3   4   5  |
00003270  20 36 20 20 20 37 20 20  20 38 20 20 39 20 31 30  | 6   7   8  9 10|
00003280  20 31 31 20 31 32 20 31  33 20 31 34 20 31 35 20  | 11 12 13 14 15 |
00003290  31 36 20 31 37 20 31 38  20 31 39 20 32 30 20 77  |16 17 18 19 20 w|
000032a0  70 6d 0d 12 de 1b e3 78  3d 31 20 b8 20 32 30 20  |pm.....x=1 . 20 |
000032b0  3a 20 f3 20 73 70 65 65  64 25 28 78 29 0d 12 e8  |: . speed%(x)...|
000032c0  05 ed 0d 12 f2 05 e1 0d  12 fc 04 0d ff           |.............|
000032cd