"�>Develop.!SerialCom.SerialCom
� Version 1.0 By Mike Cook
� All rights reserved
(� � �errorbox
2
<� taskid%4:$taskid%="TASK"
F� intmess% 20
PIintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
ZQș "Wimp_Initialise",300,!taskid%,"Command_PIC",intmess% � version%,taskhand%
dH� q% &300,qc% 80, Wn% 1504,temp% 256,buffers% 512,menu% 128,SW% 1500
n(� TextWarn% 100, ww% 256, tblock% 32
xNumI%=5
�3� IX%(NumI%),IY%(NumI%),IX1%(NumI%),IY1%(NumI%)
�&� SPoint%(NumI%),Tx%(100),Rx%(100)
�4ș "Wimp_OpenTemplate",,"<ComPIC$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�>ș "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+1500,-1,"Pallette",0
�
Wn%!28=-1
�� A%=0 � NumI%
�$SPoint%(A%)=!(Wn%+4+88+20+32*A%)
�9IX%(A%)=!(Wn%+4+88+32*A%):IY%(A%)=!(Wn%+4+88+4+32*A%)
�>IX1%(A%)=!(Wn%+4+88+8+32*A%):IY1%(A%)=!(Wn%+4+88+12+32*A%)
��



)ș "Wimp_CreateWindow",,Wn%+4 � monW%

Wn%!0=monW%:Wn%!28=-1

"

,9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0

6)q%!108=TextWarn%:q%!112=-1:q%!116=300

@ XQ%=q%!8-q%!0:YQ%=q%!12-q%!4

J*ș "Wimp_CreateWindow",,q% � warningW%

Tș "Wimp_CloseTemplate"

^
ref%=0

hsmpicon%=�icon

rwopen%=�:warnOn%=�

|InWin%=�

�

�� � �errorbox

��setupmenu

�?� Initilise Serial Port 19,200 Baud 8 data 1 Stop no Parity

�ș"OS_SerialOp",0,&04,&FF00

�ș"OS_SerialOp",1,0

�ș"OS_SerialOp",5,8

�ș"OS_SerialOp",6,8

�ș"OS_Byte",2,2

�

��

� ș "Wimp_Poll",0,q% � A%

�
  Ȏ A% �
   � 0:�_Null
"   � 2:ș"Wimp_OpenWindow",,q%
   � 3:�_close
&   � 6:�_do_click(q%)
0   � 8:�_KeyPress
:   � 9:�_SORT_Menu
D   � 17,18:�receive(q%)
N   �
X � �
b
l�
v
�� �_Null
�� wopen% �
��rx
�� Rx%(0)<>0 � �display
��
��
�
�� �_SORT_Menu
�� !q%=1 � �die
��
�
�
� �_close
�7� q%!0=monW% � ș"Wimp_GetWindowInfo",,Wn%:wopen%=�
 � q%!0=warningW% � warnOn%=�
ș "Wimp_CloseWindow",,q%
�
 
*� �_do_click(q%)
4i%=q%!16
>Ȏ q%!12 �
H(� warningW%: q%!0=warningW% :�_close
R
\(� -2: � Look first at Icon Bar Click
f        � q%!16=smpicon% �
p=        � q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-94,190
z"        � q%!8=4 � �_Open(Wn%)
�
        �
�
�� monW%:  
�D              � q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-94,q%!4
�'              � q%!8=4 � �_MonClick
��
��
�
�
�� �_MonClick
�� Y%,X%,B%,i%
�&� Do the action for a window click
�i%=q%!16
� i%=0 � �_Gcom
�

$� �_Open(p%)
.� OPEN UP WINDOW HERE
8� wopen% �
Bq%!0=monW%
Lș"Wimp_GetWindowState",,q%
V6  � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
`�
jș"Wimp_OpenWindow",,p%
twopen%=�
~�
��
�
���setupmenu
�� m%
�
�$menu%="ComPIC"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=128
�menu%!20=40
menu%!24=0

m%=menu%+28

m%!0=0
m%!4=info%
(m%!8=(7<<24)� %10001
2$(m%+12)="Info"
<
F
m%+=24
Pm%!0=&80
Z
m%!4=0
dm%!8=(7<<24)� %10001
n$(m%+12)="Quit"
x
��
�
�� �receive(q%)
�� A%
�A%=q%!16
�Ȏ A% �
�� 0:�die
�� &502:   Ȏ � �
�u             � q%!32=-2 � q%!36=smpicon%:mes$="This is the Serial PIC Communicator icon.|MSend and recieve bytes"
�             :mes$=""
�             �
�    � mes$<>"" �
�    q%!12=q%!8
    $(q%+20)=mes$+�0
    q%!0=(20+�mes$+4)� � 3
    q%!16=&503
"(    ș "Wimp_SendMessage",18,q%,q%!4
,�
6�
@
J
ݤicon
Tq%!0=-1
^
q%!4=0
hq%!8=10 : � Y DIRECTION
rq%!12=70 : � X DIRECTION
|q%!16=96
�q%!20=&2002
�$(q%+24)="!ComPIC"
�$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
�� �_setupW(t$)
�X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�� 7
�
warnOn%=�
�ș "Wimp_OpenWindow",,q%
��

� �errorbox
ș "Wimp_DragBox",,-1
&2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
0:ș "Wimp_ReportError",buffers%,1,"Command PIC Monitor"
:�die
D�
N
X	��die
b*ș "Wimp_CloseDown",taskhand%,!taskid%
l�
v�
�
�� �_KeyPress
�� q%!24=13 �
�
�_Gcom
�$SPoint%(1)=""
�&ș"Wimp_GetCaretPosition",,tblock%
�Tș"Wimp_SetCaretPosition",tblock%!0,tblock%!4,tblock%!8,tblock%!12,tblock%!16,-1
�<ș"Wimp_ForceRedraw",monW%,IX%(1),IY%(1),IX1%(1),IY1%(1)
��
��
�
�� �_sput(n%,X$)
�� A%
�x%=SPoint%(n%)
�� A%=1 � �(X$)
?x%=�(�X$,A%,1))
	x%+=1
�
 	?x%=0
*@ș"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
4�
>
Hݤsget(x%)
R� x$
\!ȕ ?x%>&20 x$+=�(?x%):x%+=1:�
f=x$
p
zݤskget
�� x$
�ȕ ?xp%=&20 xp%+=1:�
�$ȕ ?xp%>&20 x$+=�(?xp%):xp%+=1:�
�=x$
�
�� �rcom
�� A%,B%,T$
�Tx%()=0
�A%=0:B%=0:xp%=SPoint%(1)
��
�	A%+=1
�
T$=�skget
�� T$<>"" �
	Tx%(A%)=�hs(�T$,1))
	.� �(T$)>1 � Tx%(A%)=Tx%(A%)+�hs(�T$,1))*16
	<� �(T$)>2 � �_setupW(T$+" - Two digit hex numbers only")
	$�
	.� T$="" � A%=10
	8Tx%(0)=A%-1
	B�
	L
	V� �_Gcom
	`	�rcom
	j	�send
	t�
	~
	�
� �hs(v$)
	�� v%
	�v%=�(v$) � &DF
	�#� v%>&40 � v%=v%-55 � v%=v%-&10
	�� v%>&F � v%=0
	�=v%
	�
	�� �send
	�� A%,B%
	�B%=0
	�
A%=Tx%(0)
	�ȕ A%<>0
	A%-=1

	B%+=1
ș"OS_SerialOp",3,Tx%(B%)

T%=�+1
(� REPEAT UNTIL TIME>T%
2�
<�
F
P	� �rx
Z� B%,C%,T%
dRx%()=0
nT%=�
x�
�ș"OS_SerialOp",4 � ,B% ;C%
�C%=C% � &2
�,� C%=0 � Rx%(0)+=1:Rx%(Rx%(0))=B%:T%=�+5
�� �>T% � Rx%(0)>12
��
�
�� �display
�� A%,T$,B%
�� A%=0 � 2
�!$SPoint%(A%+2)=$SPoint%(A%+3)
�Hș"Wimp_ForceRedraw",monW%,IX%(A%+2),IY%(A%+2),IX1%(A%+2),IY1%(A%+2)
��
�	T$=""
� A%=1 � Rx%(0)
T$=T$+�~(Rx%(A%))+" "
�
"�PROC_sput(5,T$)
#$SPoint%(5)=T$
$<ș"Wimp_ForceRedraw",monW%,IX%(5),IY%(5),IX1%(5),IY1%(5)
,�
�

00000000  0d 00 0a 22 f4 3e 44 65  76 65 6c 6f 70 2e 21 53  |...".>Develop.!S|
00000010  65 72 69 61 6c 43 6f 6d  2e 53 65 72 69 61 6c 43  |erialCom.SerialC|
00000020  6f 6d 0d 00 14 1e f4 20  56 65 72 73 69 6f 6e 20  |om..... Version |
00000030  31 2e 30 20 42 79 20 4d  69 6b 65 20 43 6f 6f 6b  |1.0 By Mike Cook|
00000040  0d 00 1e 19 f4 20 41 6c  6c 20 72 69 67 68 74 73  |..... All rights|
00000050  20 72 65 73 65 72 76 65  64 0d 00 28 11 ee 20 85  | reserved..(.. .|
00000060  20 f2 65 72 72 6f 72 62  6f 78 0d 00 32 04 0d 00  | .errorbox..2...|
00000070  3c 1e de 20 74 61 73 6b  69 64 25 34 3a 24 74 61  |<.. taskid%4:$ta|
00000080  73 6b 69 64 25 3d 22 54  41 53 4b 22 0d 00 46 11  |skid%="TASK"..F.|
00000090  de 20 69 6e 74 6d 65 73  73 25 20 32 30 0d 00 50  |. intmess% 20..P|
000000a0  49 69 6e 74 6d 65 73 73  25 21 30 3d 31 3a 69 6e  |Iintmess%!0=1:in|
000000b0  74 6d 65 73 73 25 21 34  3d 32 3a 69 6e 74 6d 65  |tmess%!4=2:intme|
000000c0  73 73 25 21 38 3d 33 3a  69 6e 74 6d 65 73 73 25  |ss%!8=3:intmess%|
000000d0  21 31 32 3d 26 35 30 32  3a 69 6e 74 6d 65 73 73  |!12=&502:intmess|
000000e0  25 21 31 36 3d 30 0d 00  5a 51 c8 99 20 22 57 69  |%!16=0..ZQ.. "Wi|
000000f0  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 33  |mp_Initialise",3|
00000100  30 30 2c 21 74 61 73 6b  69 64 25 2c 22 43 6f 6d  |00,!taskid%,"Com|
00000110  6d 61 6e 64 5f 50 49 43  22 2c 69 6e 74 6d 65 73  |mand_PIC",intmes|
00000120  73 25 20 b8 20 76 65 72  73 69 6f 6e 25 2c 74 61  |s% . version%,ta|
00000130  73 6b 68 61 6e 64 25 0d  00 64 48 de 20 71 25 20  |skhand%..dH. q% |
00000140  26 33 30 30 2c 71 63 25  20 38 30 2c 20 57 6e 25  |&300,qc% 80, Wn%|
00000150  20 31 35 30 34 2c 74 65  6d 70 25 20 32 35 36 2c  | 1504,temp% 256,|
00000160  62 75 66 66 65 72 73 25  20 35 31 32 2c 6d 65 6e  |buffers% 512,men|
00000170  75 25 20 31 32 38 2c 53  57 25 20 31 35 30 30 0d  |u% 128,SW% 1500.|
00000180  00 6e 28 de 20 54 65 78  74 57 61 72 6e 25 20 31  |.n(. TextWarn% 1|
00000190  30 30 2c 20 77 77 25 20  32 35 36 2c 20 74 62 6c  |00, ww% 256, tbl|
000001a0  6f 63 6b 25 20 33 32 0d  00 78 0b 4e 75 6d 49 25  |ock% 32..x.NumI%|
000001b0  3d 35 0d 00 82 33 de 20  49 58 25 28 4e 75 6d 49  |=5...3. IX%(NumI|
000001c0  25 29 2c 49 59 25 28 4e  75 6d 49 25 29 2c 49 58  |%),IY%(NumI%),IX|
000001d0  31 25 28 4e 75 6d 49 25  29 2c 49 59 31 25 28 4e  |1%(NumI%),IY1%(N|
000001e0  75 6d 49 25 29 0d 00 8c  26 de 20 53 50 6f 69 6e  |umI%)...&. SPoin|
000001f0  74 25 28 4e 75 6d 49 25  29 2c 54 78 25 28 31 30  |t%(NumI%),Tx%(10|
00000200  30 29 2c 52 78 25 28 31  30 30 29 0d 00 96 34 c8  |0),Rx%(100)...4.|
00000210  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000220  6c 61 74 65 22 2c 2c 22  3c 43 6f 6d 50 49 43 24  |late",,"<ComPIC$|
00000230  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
00000240  00 a0 29 ee 20 85 20 c8  99 20 22 57 69 6d 70 5f  |..). . .. "Wimp_|
00000250  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 3a f2  |CloseTemplate":.|
00000260  65 72 72 6f 72 62 6f 78  0d 00 aa 3a c8 99 20 22  |errorbox...:.. "|
00000270  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000280  65 22 2c 2c 71 25 2c 74  65 6d 70 25 2c 74 65 6d  |e",,q%,temp%,tem|
00000290  70 25 2b 32 35 36 2c 2d  31 2c 22 49 6e 66 6f 22  |p%+256,-1,"Info"|
000002a0  2c 30 0d 00 b4 26 c8 99  20 22 57 69 6d 70 5f 43  |,0...&.. "Wimp_C|
000002b0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
000002c0  20 b8 20 69 6e 66 6f 25  0d 00 be 3e c8 99 20 22  | . info%...>.. "|
000002d0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000002e0  65 22 2c 2c 57 6e 25 2b  34 2c 53 57 25 2c 53 57  |e",,Wn%+4,SW%,SW|
000002f0  25 2b 31 35 30 30 2c 2d  31 2c 22 50 61 6c 6c 65  |%+1500,-1,"Palle|
00000300  74 74 65 22 2c 30 0d 00  c8 0d 57 6e 25 21 32 38  |tte",0....Wn%!28|
00000310  3d 2d 31 0d 00 d2 12 e3  20 41 25 3d 30 20 b8 20  |=-1..... A%=0 . |
00000320  4e 75 6d 49 25 0d 00 dc  24 53 50 6f 69 6e 74 25  |NumI%...$SPoint%|
00000330  28 41 25 29 3d 21 28 57  6e 25 2b 34 2b 38 38 2b  |(A%)=!(Wn%+4+88+|
00000340  32 30 2b 33 32 2a 41 25  29 0d 00 e6 39 49 58 25  |20+32*A%)...9IX%|
00000350  28 41 25 29 3d 21 28 57  6e 25 2b 34 2b 38 38 2b  |(A%)=!(Wn%+4+88+|
00000360  33 32 2a 41 25 29 3a 49  59 25 28 41 25 29 3d 21  |32*A%):IY%(A%)=!|
00000370  28 57 6e 25 2b 34 2b 38  38 2b 34 2b 33 32 2a 41  |(Wn%+4+88+4+32*A|
00000380  25 29 0d 00 f0 3e 49 58  31 25 28 41 25 29 3d 21  |%)...>IX1%(A%)=!|
00000390  28 57 6e 25 2b 34 2b 38  38 2b 38 2b 33 32 2a 41  |(Wn%+4+88+8+32*A|
000003a0  25 29 3a 49 59 31 25 28  41 25 29 3d 21 28 57 6e  |%):IY1%(A%)=!(Wn|
000003b0  25 2b 34 2b 38 38 2b 31  32 2b 33 32 2a 41 25 29  |%+4+88+12+32*A%)|
000003c0  0d 00 fa 05 ed 0d 01 04  04 0d 01 0e 29 c8 99 20  |............).. |
000003d0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000003e0  6f 77 22 2c 2c 57 6e 25  2b 34 20 b8 20 6d 6f 6e  |ow",,Wn%+4 . mon|
000003f0  57 25 0d 01 18 19 57 6e  25 21 30 3d 6d 6f 6e 57  |W%....Wn%!0=monW|
00000400  25 3a 57 6e 25 21 32 38  3d 2d 31 0d 01 22 04 0d  |%:Wn%!28=-1.."..|
00000410  01 2c 39 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.,9.. "Wimp_Load|
00000420  54 65 6d 70 6c 61 74 65  22 2c 2c 71 25 2c 77 77  |Template",,q%,ww|
00000430  25 2c 77 77 25 2b 32 35  36 2c 2d 31 2c 22 57 61  |%,ww%+256,-1,"Wa|
00000440  72 6e 69 6e 67 22 2c 30  0d 01 36 29 71 25 21 31  |rning",0..6)q%!1|
00000450  30 38 3d 54 65 78 74 57  61 72 6e 25 3a 71 25 21  |08=TextWarn%:q%!|
00000460  31 31 32 3d 2d 31 3a 71  25 21 31 31 36 3d 33 30  |112=-1:q%!116=30|
00000470  30 0d 01 40 20 58 51 25  3d 71 25 21 38 2d 71 25  |0..@ XQ%=q%!8-q%|
00000480  21 30 3a 59 51 25 3d 71  25 21 31 32 2d 71 25 21  |!0:YQ%=q%!12-q%!|
00000490  34 0d 01 4a 2a c8 99 20  22 57 69 6d 70 5f 43 72  |4..J*.. "Wimp_Cr|
000004a0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
000004b0  b8 20 77 61 72 6e 69 6e  67 57 25 0d 01 54 1b c8  |. warningW%..T..|
000004c0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |. "Wimp_CloseTem|
000004d0  70 6c 61 74 65 22 0d 01  5e 0a 72 65 66 25 3d 30  |plate"..^.ref%=0|
000004e0  0d 01 68 12 73 6d 70 69  63 6f 6e 25 3d a4 69 63  |..h.smpicon%=.ic|
000004f0  6f 6e 0d 01 72 16 77 6f  70 65 6e 25 3d a3 3a 77  |on..r.wopen%=.:w|
00000500  61 72 6e 4f 6e 25 3d a3  0d 01 7c 0c 49 6e 57 69  |arnOn%=...|.InWi|
00000510  6e 25 3d a3 0d 01 86 04  0d 01 90 11 ee 20 85 20  |n%=.......... . |
00000520  f2 65 72 72 6f 72 62 6f  78 0d 01 9a 0e f2 73 65  |.errorbox.....se|
00000530  74 75 70 6d 65 6e 75 0d  01 a4 3f f4 20 49 6e 69  |tupmenu...?. Ini|
00000540  74 69 6c 69 73 65 20 53  65 72 69 61 6c 20 50 6f  |tilise Serial Po|
00000550  72 74 20 31 39 2c 32 30  30 20 42 61 75 64 20 38  |rt 19,200 Baud 8|
00000560  20 64 61 74 61 20 31 20  53 74 6f 70 20 6e 6f 20  | data 1 Stop no |
00000570  50 61 72 69 74 79 0d 01  ae 1f c8 99 22 4f 53 5f  |Parity......"OS_|
00000580  53 65 72 69 61 6c 4f 70  22 2c 30 2c 26 30 34 2c  |SerialOp",0,&04,|
00000590  26 46 46 30 30 0d 01 b8  17 c8 99 22 4f 53 5f 53  |&FF00......"OS_S|
000005a0  65 72 69 61 6c 4f 70 22  2c 31 2c 30 0d 01 c2 17  |erialOp",1,0....|
000005b0  c8 99 22 4f 53 5f 53 65  72 69 61 6c 4f 70 22 2c  |.."OS_SerialOp",|
000005c0  35 2c 38 0d 01 cc 17 c8  99 22 4f 53 5f 53 65 72  |5,8......"OS_Ser|
000005d0  69 61 6c 4f 70 22 2c 36  2c 38 0d 01 d6 13 c8 99  |ialOp",6,8......|
000005e0  22 4f 53 5f 42 79 74 65  22 2c 32 2c 32 0d 01 e0  |"OS_Byte",2,2...|
000005f0  04 0d 01 ea 05 f5 0d 01  f4 1d 20 c8 99 20 22 57  |.......... .. "W|
00000600  69 6d 70 5f 50 6f 6c 6c  22 2c 30 2c 71 25 20 b8  |imp_Poll",0,q% .|
00000610  20 41 25 0d 01 fe 0d 20  20 c8 8e 20 41 25 20 ca  | A%....  .. A% .|
00000620  0d 02 08 11 20 20 20 c9  20 30 3a f2 5f 4e 75 6c  |....   . 0:._Nul|
00000630  6c 0d 02 12 22 20 20 20  c9 20 32 3a c8 99 22 57  |l..."   . 2:.."W|
00000640  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000650  2c 71 25 0d 02 1c 12 20  20 20 c9 20 33 3a f2 5f  |,q%....   . 3:._|
00000660  63 6c 6f 73 65 0d 02 26  19 20 20 20 c9 20 36 3a  |close..&.   . 6:|
00000670  f2 5f 64 6f 5f 63 6c 69  63 6b 28 71 25 29 0d 02  |._do_click(q%)..|
00000680  30 15 20 20 20 c9 20 38  3a f2 5f 4b 65 79 50 72  |0.   . 8:._KeyPr|
00000690  65 73 73 0d 02 3a 16 20  20 20 c9 20 39 3a f2 5f  |ess..:.   . 9:._|
000006a0  53 4f 52 54 5f 4d 65 6e  75 0d 02 44 1b 20 20 20  |SORT_Menu..D.   |
000006b0  c9 20 31 37 2c 31 38 3a  f2 72 65 63 65 69 76 65  |. 17,18:.receive|
000006c0  28 71 25 29 0d 02 4e 08  20 20 20 cb 0d 02 58 08  |(q%)..N.   ...X.|
000006d0  20 fd 20 a3 0d 02 62 04  0d 02 6c 05 e0 0d 02 76  | . ...b...l....v|
000006e0  04 0d 02 80 0c dd 20 f2  5f 4e 75 6c 6c 0d 02 8a  |...... ._Null...|
000006f0  0e e7 20 77 6f 70 65 6e  25 20 8c 0d 02 94 07 f2  |.. wopen% ......|
00000700  72 78 0d 02 9e 1a e7 20  52 78 25 28 30 29 3c 3e  |rx..... Rx%(0)<>|
00000710  30 20 8c 20 f2 64 69 73  70 6c 61 79 0d 02 a8 05  |0 . .display....|
00000720  cd 0d 02 b2 05 e1 0d 02  bc 04 0d 02 c6 11 dd 20  |............... |
00000730  f2 5f 53 4f 52 54 5f 4d  65 6e 75 0d 02 d0 12 e7  |._SORT_Menu.....|
00000740  20 21 71 25 3d 31 20 8c  20 f2 64 69 65 0d 02 da  | !q%=1 . .die...|
00000750  05 e1 0d 02 e4 04 0d 02  ee 0d dd 20 f2 5f 63 6c  |........... ._cl|
00000760  6f 73 65 0d 02 f8 37 e7  20 71 25 21 30 3d 6d 6f  |ose...7. q%!0=mo|
00000770  6e 57 25 20 8c 20 c8 99  22 57 69 6d 70 5f 47 65  |nW% . .."Wimp_Ge|
00000780  74 57 69 6e 64 6f 77 49  6e 66 6f 22 2c 2c 57 6e  |tWindowInfo",,Wn|
00000790  25 3a 77 6f 70 65 6e 25  3d a3 0d 03 02 20 e7 20  |%:wopen%=.... . |
000007a0  71 25 21 30 3d 77 61 72  6e 69 6e 67 57 25 20 8c  |q%!0=warningW% .|
000007b0  20 77 61 72 6e 4f 6e 25  3d a3 0d 03 0c 1d c8 99  | warnOn%=.......|
000007c0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
000007d0  6f 77 22 2c 2c 71 25 0d  03 16 05 e1 0d 03 20 04  |ow",,q%....... .|
000007e0  0d 03 2a 14 dd 20 f2 5f  64 6f 5f 63 6c 69 63 6b  |..*.. ._do_click|
000007f0  28 71 25 29 0d 03 34 0c  69 25 3d 71 25 21 31 36  |(q%)..4.i%=q%!16|
00000800  0d 03 3e 0e c8 8e 20 71  25 21 31 32 20 ca 0d 03  |..>... q%!12 ...|
00000810  48 28 c9 20 77 61 72 6e  69 6e 67 57 25 3a 20 71  |H(. warningW%: q|
00000820  25 21 30 3d 77 61 72 6e  69 6e 67 57 25 20 3a f2  |%!0=warningW% :.|
00000830  5f 63 6c 6f 73 65 0d 03  52 04 0d 03 5c 28 c9 20  |_close..R...\(. |
00000840  2d 32 3a 20 f4 20 4c 6f  6f 6b 20 66 69 72 73 74  |-2: . Look first|
00000850  20 61 74 20 49 63 6f 6e  20 42 61 72 20 43 6c 69  | at Icon Bar Cli|
00000860  63 6b 0d 03 66 1e 20 20  20 20 20 20 20 20 e7 20  |ck..f.        . |
00000870  71 25 21 31 36 3d 73 6d  70 69 63 6f 6e 25 20 8c  |q%!16=smpicon% .|
00000880  0d 03 70 3d 20 20 20 20  20 20 20 20 e7 20 71 25  |..p=        . q%|
00000890  21 38 3d 32 20 8c 20 c8  99 22 57 69 6d 70 5f 43  |!8=2 . .."Wimp_C|
000008a0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
000008b0  25 2c 71 25 21 30 2d 39  34 2c 31 39 30 0d 03 7a  |%,q%!0-94,190..z|
000008c0  22 20 20 20 20 20 20 20  20 e7 20 71 25 21 38 3d  |"        . q%!8=|
000008d0  34 20 8c 20 f2 5f 4f 70  65 6e 28 57 6e 25 29 0d  |4 . ._Open(Wn%).|
000008e0  03 84 0d 20 20 20 20 20  20 20 20 cd 0d 03 8e 04  |...        .....|
000008f0  0d 03 98 0e c9 20 6d 6f  6e 57 25 3a 20 20 0d 03  |..... monW%:  ..|
00000900  a2 44 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.D              |
00000910  e7 20 71 25 21 38 3d 32  20 8c 20 c8 99 22 57 69  |. q%!8=2 . .."Wi|
00000920  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000930  6d 65 6e 75 25 2c 71 25  21 30 2d 39 34 2c 71 25  |menu%,q%!0-94,q%|
00000940  21 34 0d 03 ac 27 20 20  20 20 20 20 20 20 20 20  |!4...'          |
00000950  20 20 20 20 e7 20 71 25  21 38 3d 34 20 8c 20 f2  |    . q%!8=4 . .|
00000960  5f 4d 6f 6e 43 6c 69 63  6b 0d 03 b6 05 cb 0d 03  |_MonClick.......|
00000970  c0 05 e1 0d 03 ca 04 0d  03 d4 04 0d 03 de 10 dd  |................|
00000980  20 f2 5f 4d 6f 6e 43 6c  69 63 6b 0d 03 e8 11 ea  | ._MonClick.....|
00000990  20 59 25 2c 58 25 2c 42  25 2c 69 25 0d 03 f2 26  | Y%,X%,B%,i%...&|
000009a0  f4 20 44 6f 20 74 68 65  20 61 63 74 69 6f 6e 20  |. Do the action |
000009b0  66 6f 72 20 61 20 77 69  6e 64 6f 77 20 63 6c 69  |for a window cli|
000009c0  63 6b 0d 03 fc 0c 69 25  3d 71 25 21 31 36 0d 04  |ck....i%=q%!16..|
000009d0  06 13 e7 20 69 25 3d 30  20 8c 20 f2 5f 47 63 6f  |... i%=0 . ._Gco|
000009e0  6d 0d 04 10 05 e1 0d 04  1a 04 0d 04 24 10 dd 20  |m...........$.. |
000009f0  f2 5f 4f 70 65 6e 28 70  25 29 0d 04 2e 19 f4 20  |._Open(p%)..... |
00000a00  4f 50 45 4e 20 55 50 20  57 49 4e 44 4f 57 20 48  |OPEN UP WINDOW H|
00000a10  45 52 45 0d 04 38 0e e7  20 77 6f 70 65 6e 25 20  |ERE..8.. wopen% |
00000a20  8c 0d 04 42 0e 71 25 21  30 3d 6d 6f 6e 57 25 0d  |...B.q%!0=monW%.|
00000a30  04 4c 1f c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |.L..."Wimp_GetWi|
00000a40  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 25 0d 04  |ndowState",,q%..|
00000a50  56 36 20 20 e7 20 71 25  21 32 38 3c 3e 2d 31 20  |V6  . q%!28<>-1 |
00000a60  8c 20 71 25 21 32 38 3d  2d 31 3a 20 c8 99 20 22  |. q%!28=-1: .. "|
00000a70  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000a80  2c 2c 71 25 0d 04 60 05  cc 0d 04 6a 1b c8 99 22  |,,q%..`....j..."|
00000a90  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000aa0  2c 2c 70 25 0d 04 74 0c  77 6f 70 65 6e 25 3d b9  |,,p%..t.wopen%=.|
00000ab0  0d 04 7e 05 cd 0d 04 88  05 e1 0d 04 92 04 0d 04  |..~.............|
00000ac0  9c 0f dd f2 73 65 74 75  70 6d 65 6e 75 0d 04 a6  |....setupmenu...|
00000ad0  08 ea 20 6d 25 0d 04 b0  04 0d 04 ba 13 24 6d 65  |.. m%........$me|
00000ae0  6e 75 25 3d 22 43 6f 6d  50 49 43 22 0d 04 c4 0e  |nu%="ComPIC"....|
00000af0  6d 65 6e 75 25 3f 31 32  3d 37 0d 04 ce 0e 6d 65  |menu%?12=7....me|
00000b00  6e 75 25 3f 31 33 3d 32  0d 04 d8 0e 6d 65 6e 75  |nu%?13=2....menu|
00000b10  25 3f 31 34 3d 37 0d 04  e2 0e 6d 65 6e 75 25 3f  |%?14=7....menu%?|
00000b20  31 35 3d 30 0d 04 ec 10  6d 65 6e 75 25 21 31 36  |15=0....menu%!16|
00000b30  3d 31 32 38 0d 04 f6 0f  6d 65 6e 75 25 21 32 30  |=128....menu%!20|
00000b40  3d 34 30 0d 05 00 0e 6d  65 6e 75 25 21 32 34 3d  |=40....menu%!24=|
00000b50  30 0d 05 0a 0f 6d 25 3d  6d 65 6e 75 25 2b 32 38  |0....m%=menu%+28|
00000b60  0d 05 14 0a 6d 25 21 30  3d 30 0d 05 1e 0e 6d 25  |....m%!0=0....m%|
00000b70  21 34 3d 69 6e 66 6f 25  0d 05 28 18 6d 25 21 38  |!4=info%..(.m%!8|
00000b80  3d 28 37 3c 3c 32 34 29  84 20 25 31 30 30 30 31  |=(7<<24). %10001|
00000b90  0d 05 32 13 24 28 6d 25  2b 31 32 29 3d 22 49 6e  |..2.$(m%+12)="In|
00000ba0  66 6f 22 0d 05 3c 04 0d  05 46 0a 6d 25 2b 3d 32  |fo"..<...F.m%+=2|
00000bb0  34 0d 05 50 0c 6d 25 21  30 3d 26 38 30 0d 05 5a  |4..P.m%!0=&80..Z|
00000bc0  0a 6d 25 21 34 3d 30 0d  05 64 18 6d 25 21 38 3d  |.m%!4=0..d.m%!8=|
00000bd0  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 0d  |(7<<24). %10001.|
00000be0  05 6e 13 24 28 6d 25 2b  31 32 29 3d 22 51 75 69  |.n.$(m%+12)="Qui|
00000bf0  74 22 0d 05 78 04 0d 05  82 05 e1 0d 05 8c 04 0d  |t"..x...........|
00000c00  05 96 12 dd 20 f2 72 65  63 65 69 76 65 28 71 25  |.... .receive(q%|
00000c10  29 0d 05 a0 08 ea 20 41  25 0d 05 aa 0c 41 25 3d  |)..... A%....A%=|
00000c20  71 25 21 31 36 0d 05 b4  0b c8 8e 20 41 25 20 ca  |q%!16...... A% .|
00000c30  0d 05 be 0c c9 20 30 3a  f2 64 69 65 0d 05 c8 14  |..... 0:.die....|
00000c40  c9 20 26 35 30 32 3a 20  20 20 c8 8e 20 b9 20 ca  |. &502:   .. . .|
00000c50  0d 05 d2 75 20 20 20 20  20 20 20 20 20 20 20 20  |...u            |
00000c60  20 c9 20 71 25 21 33 32  3d 2d 32 20 80 20 71 25  | . q%!32=-2 . q%|
00000c70  21 33 36 3d 73 6d 70 69  63 6f 6e 25 3a 6d 65 73  |!36=smpicon%:mes|
00000c80  24 3d 22 54 68 69 73 20  69 73 20 74 68 65 20 53  |$="This is the S|
00000c90  65 72 69 61 6c 20 50 49  43 20 43 6f 6d 6d 75 6e  |erial PIC Commun|
00000ca0  69 63 61 74 6f 72 20 69  63 6f 6e 2e 7c 4d 53 65  |icator icon.|MSe|
00000cb0  6e 64 20 61 6e 64 20 72  65 63 69 65 76 65 20 62  |nd and recieve b|
00000cc0  79 74 65 73 22 0d 05 dc  1a 20 20 20 20 20 20 20  |ytes"....       |
00000cd0  20 20 20 20 20 20 7f 3a  6d 65 73 24 3d 22 22 0d  |      .:mes$="".|
00000ce0  05 e6 12 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000cf0  cb 0d 05 f0 14 20 20 20  20 e7 20 6d 65 73 24 3c  |.....    . mes$<|
00000d00  3e 22 22 20 8c 0d 05 fa  12 20 20 20 20 71 25 21  |>"" .....    q%!|
00000d10  31 32 3d 71 25 21 38 0d  06 04 18 20 20 20 20 24  |12=q%!8....    $|
00000d20  28 71 25 2b 32 30 29 3d  6d 65 73 24 2b bd 30 0d  |(q%+20)=mes$+.0.|
00000d30  06 0e 1e 20 20 20 20 71  25 21 30 3d 28 32 30 2b  |...    q%!0=(20+|
00000d40  a9 6d 65 73 24 2b 34 29  80 20 ac 20 33 0d 06 18  |.mes$+4). . 3...|
00000d50  12 20 20 20 20 71 25 21  31 36 3d 26 35 30 33 0d  |.    q%!16=&503.|
00000d60  06 22 28 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |."(    .. "Wimp_|
00000d70  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 38 2c  |SendMessage",18,|
00000d80  71 25 2c 71 25 21 34 0d  06 2c 05 cb 0d 06 36 05  |q%,q%!4..,....6.|
00000d90  e1 0d 06 40 04 0d 06 4a  0a dd a4 69 63 6f 6e 0d  |...@...J...icon.|
00000da0  06 54 0b 71 25 21 30 3d  2d 31 0d 06 5e 0a 71 25  |.T.q%!0=-1..^.q%|
00000db0  21 34 3d 30 0d 06 68 1b  71 25 21 38 3d 31 30 20  |!4=0..h.q%!8=10 |
00000dc0  3a 20 f4 20 59 20 44 49  52 45 43 54 49 4f 4e 0d  |: . Y DIRECTION.|
00000dd0  06 72 1c 71 25 21 31 32  3d 37 30 20 3a 20 f4 20  |.r.q%!12=70 : . |
00000de0  58 20 44 49 52 45 43 54  49 4f 4e 0d 06 7c 0c 71  |X DIRECTION..|.q|
00000df0  25 21 31 36 3d 39 36 0d  06 86 0f 71 25 21 32 30  |%!16=96....q%!20|
00000e00  3d 26 32 30 30 32 0d 06  90 16 24 28 71 25 2b 32  |=&2002....$(q%+2|
00000e10  34 29 3d 22 21 43 6f 6d  50 49 43 22 0d 06 9a 24  |4)="!ComPIC"...$|
00000e20  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00000e30  63 6f 6e 22 2c 2c 71 25  20 b8 20 69 63 6f 6e 25  |con",,q% . icon%|
00000e40  0d 06 a4 0a 3d 69 63 6f  6e 25 0d 06 ae 04 0d 06  |....=icon%......|
00000e50  b8 12 dd 20 f2 5f 73 65  74 75 70 57 28 74 24 29  |... ._setupW(t$)|
00000e60  0d 06 c2 58 21 71 25 3d  77 61 72 6e 69 6e 67 57  |...X!q%=warningW|
00000e70  25 3a 71 25 21 34 3d 32  30 30 3a 71 25 21 38 3d  |%:q%!4=200:q%!8=|
00000e80  32 30 30 3a 71 25 21 31  32 3d 32 30 30 2b 58 51  |200:q%!12=200+XQ|
00000e90  25 3a 71 25 21 31 36 3d  32 30 30 2b 59 51 25 3a  |%:q%!16=200+YQ%:|
00000ea0  71 25 21 32 30 3d 30 3a  71 25 21 32 34 3d 30 3a  |q%!20=0:q%!24=0:|
00000eb0  71 25 21 32 38 3d 2d 31  0d 06 cc 11 24 54 65 78  |q%!28=-1....$Tex|
00000ec0  74 57 61 72 6e 25 3d 74  24 0d 06 d6 15 54 65 78  |tWarn%=t$....Tex|
00000ed0  74 57 61 72 6e 25 3f a9  28 74 24 29 3d 30 0d 06  |tWarn%?.(t$)=0..|
00000ee0  e0 07 ef 20 37 0d 06 ea  0d 77 61 72 6e 4f 6e 25  |... 7....warnOn%|
00000ef0  3d b9 0d 06 f4 1c c8 99  20 22 57 69 6d 70 5f 4f  |=....... "Wimp_O|
00000f00  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 06  |penWindow",,q%..|
00000f10  fe 05 e1 0d 07 08 04 0d  07 12 0f dd 20 f2 65 72  |............ .er|
00000f20  72 6f 72 62 6f 78 0d 07  1c 19 c8 99 20 22 57 69  |rorbox...... "Wi|
00000f30  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 2d 31 0d  |mp_DragBox",,-1.|
00000f40  07 26 32 21 62 75 66 66  65 72 73 25 3d 9f 3a 24  |.&2!buffers%=.:$|
00000f50  28 62 75 66 66 65 72 73  25 2b 34 29 3d f6 24 2b  |(buffers%+4)=.$+|
00000f60  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b bd  |" at line "+..+.|
00000f70  30 0d 07 30 3a c8 99 20  22 57 69 6d 70 5f 52 65  |0..0:.. "Wimp_Re|
00000f80  70 6f 72 74 45 72 72 6f  72 22 2c 62 75 66 66 65  |portError",buffe|
00000f90  72 73 25 2c 31 2c 22 43  6f 6d 6d 61 6e 64 20 50  |rs%,1,"Command P|
00000fa0  49 43 20 4d 6f 6e 69 74  6f 72 22 0d 07 3a 08 f2  |IC Monitor"..:..|
00000fb0  64 69 65 0d 07 44 05 e1  0d 07 4e 04 0d 07 58 09  |die..D....N...X.|
00000fc0  dd f2 64 69 65 0d 07 62  2a c8 99 20 22 57 69 6d  |..die..b*.. "Wim|
00000fd0  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 2c 74 61 73  |p_CloseDown",tas|
00000fe0  6b 68 61 6e 64 25 2c 21  74 61 73 6b 69 64 25 0d  |khand%,!taskid%.|
00000ff0  07 6c 05 e0 0d 07 76 05  e1 0d 07 80 04 0d 07 8a  |.l....v.........|
00001000  10 dd 20 f2 5f 4b 65 79  50 72 65 73 73 0d 07 94  |.. ._KeyPress...|
00001010  10 e7 20 71 25 21 32 34  3d 31 33 20 8c 0d 07 9e  |.. q%!24=13 ....|
00001020  0a f2 5f 47 63 6f 6d 0d  07 a8 12 24 53 50 6f 69  |.._Gcom....$SPoi|
00001030  6e 74 25 28 31 29 3d 22  22 0d 07 a9 26 c8 99 22  |nt%(1)=""...&.."|
00001040  57 69 6d 70 5f 47 65 74  43 61 72 65 74 50 6f 73  |Wimp_GetCaretPos|
00001050  69 74 69 6f 6e 22 2c 2c  74 62 6c 6f 63 6b 25 0d  |ition",,tblock%.|
00001060  07 aa 54 c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |..T.."Wimp_SetCa|
00001070  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 74 62 6c  |retPosition",tbl|
00001080  6f 63 6b 25 21 30 2c 74  62 6c 6f 63 6b 25 21 34  |ock%!0,tblock%!4|
00001090  2c 74 62 6c 6f 63 6b 25  21 38 2c 74 62 6c 6f 63  |,tblock%!8,tbloc|
000010a0  6b 25 21 31 32 2c 74 62  6c 6f 63 6b 25 21 31 36  |k%!12,tblock%!16|
000010b0  2c 2d 31 0d 07 b2 3c c8  99 22 57 69 6d 70 5f 46  |,-1...<.."Wimp_F|
000010c0  6f 72 63 65 52 65 64 72  61 77 22 2c 6d 6f 6e 57  |orceRedraw",monW|
000010d0  25 2c 49 58 25 28 31 29  2c 49 59 25 28 31 29 2c  |%,IX%(1),IY%(1),|
000010e0  49 58 31 25 28 31 29 2c  49 59 31 25 28 31 29 0d  |IX1%(1),IY1%(1).|
000010f0  07 bc 05 cd 0d 07 c6 05  e1 0d 07 d0 04 0d 07 da  |................|
00001100  13 dd 20 f2 5f 73 70 75  74 28 6e 25 2c 58 24 29  |.. ._sput(n%,X$)|
00001110  0d 07 e4 08 ea 20 41 25  0d 07 ee 12 78 25 3d 53  |..... A%....x%=S|
00001120  50 6f 69 6e 74 25 28 6e  25 29 0d 07 f8 12 e3 20  |Point%(n%)..... |
00001130  41 25 3d 31 20 b8 20 a9  28 58 24 29 0d 08 02 14  |A%=1 . .(X$)....|
00001140  3f 78 25 3d 97 28 c1 58  24 2c 41 25 2c 31 29 29  |?x%=.(.X$,A%,1))|
00001150  0d 08 0c 09 78 25 2b 3d  31 0d 08 16 05 ed 0d 08  |....x%+=1.......|
00001160  20 09 3f 78 25 3d 30 0d  08 2a 40 c8 99 22 57 69  | .?x%=0..*@.."Wi|
00001170  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00001180  6d 6f 6e 57 25 2c 49 58  25 28 6e 25 29 2c 49 59  |monW%,IX%(n%),IY|
00001190  25 28 6e 25 29 2c 49 58  31 25 28 6e 25 29 2c 49  |%(n%),IX1%(n%),I|
000011a0  59 31 25 28 6e 25 29 0d  08 34 05 e1 0d 08 3e 04  |Y1%(n%)..4....>.|
000011b0  0d 08 48 0e dd a4 73 67  65 74 28 78 25 29 0d 08  |..H...sget(x%)..|
000011c0  52 08 ea 20 78 24 0d 08  5c 21 c8 95 20 3f 78 25  |R.. x$..\!.. ?x%|
000011d0  3e 26 32 30 20 78 24 2b  3d bd 28 3f 78 25 29 3a  |>&20 x$+=.(?x%):|
000011e0  78 25 2b 3d 31 3a ce 0d  08 66 07 3d 78 24 0d 08  |x%+=1:...f.=x$..|
000011f0  70 04 0d 08 7a 0b dd a4  73 6b 67 65 74 0d 08 84  |p...z...skget...|
00001200  08 ea 20 78 24 0d 08 8e  18 c8 95 20 3f 78 70 25  |.. x$...... ?xp%|
00001210  3d 26 32 30 20 78 70 25  2b 3d 31 3a ce 0d 08 98  |=&20 xp%+=1:....|
00001220  24 c8 95 20 3f 78 70 25  3e 26 32 30 20 78 24 2b  |$.. ?xp%>&20 x$+|
00001230  3d bd 28 3f 78 70 25 29  3a 78 70 25 2b 3d 31 3a  |=.(?xp%):xp%+=1:|
00001240  ce 0d 08 a2 07 3d 78 24  0d 08 ac 04 0d 08 b6 0b  |.....=x$........|
00001250  dd 20 f2 72 63 6f 6d 0d  08 c0 0e ea 20 41 25 2c  |. .rcom..... A%,|
00001260  42 25 2c 54 24 0d 08 ca  0b 54 78 25 28 29 3d 30  |B%,T$....Tx%()=0|
00001270  0d 08 d4 1c 41 25 3d 30  3a 42 25 3d 30 3a 78 70  |....A%=0:B%=0:xp|
00001280  25 3d 53 50 6f 69 6e 74  25 28 31 29 0d 08 de 05  |%=SPoint%(1)....|
00001290  f5 0d 08 e8 09 41 25 2b  3d 31 0d 08 f2 0d 54 24  |.....A%+=1....T$|
000012a0  3d a4 73 6b 67 65 74 0d  08 fc 0e e7 20 54 24 3c  |=.skget..... T$<|
000012b0  3e 22 22 20 8c 0d 09 06  17 54 78 25 28 41 25 29  |>"" .....Tx%(A%)|
000012c0  3d a4 68 73 28 c2 54 24  2c 31 29 29 0d 09 10 2e  |=.hs(.T$,1))....|
000012d0  e7 20 a9 28 54 24 29 3e  31 20 8c 20 54 78 25 28  |. .(T$)>1 . Tx%(|
000012e0  41 25 29 3d 54 78 25 28  41 25 29 2b a4 68 73 28  |A%)=Tx%(A%)+.hs(|
000012f0  c0 54 24 2c 31 29 29 2a  31 36 0d 09 1a 3c e7 20  |.T$,1))*16...<. |
00001300  a9 28 54 24 29 3e 32 20  8c 20 f2 5f 73 65 74 75  |.(T$)>2 . ._setu|
00001310  70 57 28 54 24 2b 22 20  2d 20 54 77 6f 20 64 69  |pW(T$+" - Two di|
00001320  67 69 74 20 68 65 78 20  6e 75 6d 62 65 72 73 20  |git hex numbers |
00001330  6f 6e 6c 79 22 29 0d 09  24 05 cd 0d 09 2e 13 fd  |only")..$.......|
00001340  20 54 24 3d 22 22 20 84  20 41 25 3d 31 30 0d 09  | T$="" . A%=10..|
00001350  38 0f 54 78 25 28 30 29  3d 41 25 2d 31 0d 09 42  |8.Tx%(0)=A%-1..B|
00001360  05 e1 0d 09 4c 04 0d 09  56 0c dd 20 f2 5f 47 63  |....L...V.. ._Gc|
00001370  6f 6d 0d 09 60 09 f2 72  63 6f 6d 0d 09 6a 09 f2  |om..`..rcom..j..|
00001380  73 65 6e 64 0d 09 74 05  e1 0d 09 7e 04 0d 09 88  |send..t....~....|
00001390  0d dd 20 a4 68 73 28 76  24 29 0d 09 92 08 ea 20  |.. .hs(v$)..... |
000013a0  76 25 0d 09 9c 12 76 25  3d 97 28 76 24 29 20 80  |v%....v%=.(v$) .|
000013b0  20 26 44 46 0d 09 a6 23  e7 20 76 25 3e 26 34 30  | &DF...#. v%>&40|
000013c0  20 8c 20 76 25 3d 76 25  2d 35 35 20 8b 20 76 25  | . v%=v%-55 . v%|
000013d0  3d 76 25 2d 26 31 30 0d  09 b0 12 e7 20 76 25 3e  |=v%-&10..... v%>|
000013e0  26 46 20 8c 20 76 25 3d  30 0d 09 ba 07 3d 76 25  |&F . v%=0....=v%|
000013f0  0d 09 c4 04 0d 09 ce 0b  dd 20 f2 73 65 6e 64 0d  |......... .send.|
00001400  09 d8 0b ea 20 41 25 2c  42 25 0d 09 e2 08 42 25  |.... A%,B%....B%|
00001410  3d 30 0d 09 ec 0d 41 25  3d 54 78 25 28 30 29 0d  |=0....A%=Tx%(0).|
00001420  09 f6 0c c8 95 20 41 25  3c 3e 30 0d 0a 00 09 41  |..... A%<>0....A|
00001430  25 2d 3d 31 0d 0a 0a 09  42 25 2b 3d 31 0d 0a 14  |%-=1....B%+=1...|
00001440  1d c8 99 22 4f 53 5f 53  65 72 69 61 6c 4f 70 22  |..."OS_SerialOp"|
00001450  2c 33 2c 54 78 25 28 42  25 29 0d 0a 1e 0a 54 25  |,3,Tx%(B%)....T%|
00001460  3d 91 2b 31 0d 0a 28 1a  f4 20 52 45 50 45 41 54  |=.+1..(.. REPEAT|
00001470  20 55 4e 54 49 4c 20 54  49 4d 45 3e 54 25 0d 0a  | UNTIL TIME>T%..|
00001480  32 05 ce 0d 0a 3c 05 e1  0d 0a 46 04 0d 0a 50 09  |2....<....F...P.|
00001490  dd 20 f2 72 78 0d 0a 5a  0e ea 20 42 25 2c 43 25  |. .rx..Z.. B%,C%|
000014a0  2c 54 25 0d 0a 64 0b 52  78 25 28 29 3d 30 0d 0a  |,T%..d.Rx%()=0..|
000014b0  6e 08 54 25 3d 91 0d 0a  78 05 f5 0d 0a 82 1f c8  |n.T%=...x.......|
000014c0  99 22 4f 53 5f 53 65 72  69 61 6c 4f 70 22 2c 34  |."OS_SerialOp",4|
000014d0  20 b8 20 2c 42 25 20 3b  43 25 0d 0a 8c 0e 43 25  | . ,B% ;C%....C%|
000014e0  3d 43 25 20 80 20 26 32  0d 0a 96 2c e7 20 43 25  |=C% . &2...,. C%|
000014f0  3d 30 20 8c 20 52 78 25  28 30 29 2b 3d 31 3a 52  |=0 . Rx%(0)+=1:R|
00001500  78 25 28 52 78 25 28 30  29 29 3d 42 25 3a 54 25  |x%(Rx%(0))=B%:T%|
00001510  3d 91 2b 35 0d 0a a0 16  fd 20 91 3e 54 25 20 84  |=.+5..... .>T% .|
00001520  20 52 78 25 28 30 29 3e  31 32 0d 0a aa 05 e1 0d  | Rx%(0)>12......|
00001530  0a b4 04 0d 0a be 0e dd  20 f2 64 69 73 70 6c 61  |........ .displa|
00001540  79 0d 0a c8 0e ea 20 41  25 2c 54 24 2c 42 25 0d  |y..... A%,T$,B%.|
00001550  0a d2 0e e3 20 41 25 3d  30 20 b8 20 32 0d 0a dc  |.... A%=0 . 2...|
00001560  21 24 53 50 6f 69 6e 74  25 28 41 25 2b 32 29 3d  |!$SPoint%(A%+2)=|
00001570  24 53 50 6f 69 6e 74 25  28 41 25 2b 33 29 0d 0a  |$SPoint%(A%+3)..|
00001580  e6 48 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |.H.."Wimp_ForceR|
00001590  65 64 72 61 77 22 2c 6d  6f 6e 57 25 2c 49 58 25  |edraw",monW%,IX%|
000015a0  28 41 25 2b 32 29 2c 49  59 25 28 41 25 2b 32 29  |(A%+2),IY%(A%+2)|
000015b0  2c 49 58 31 25 28 41 25  2b 32 29 2c 49 59 31 25  |,IX1%(A%+2),IY1%|
000015c0  28 41 25 2b 32 29 0d 0a  f0 05 ed 0d 0a fa 09 54  |(A%+2).........T|
000015d0  24 3d 22 22 0d 0b 04 13  e3 20 41 25 3d 31 20 b8  |$=""..... A%=1 .|
000015e0  20 52 78 25 28 30 29 0d  0b 0e 19 54 24 3d 54 24  | Rx%(0)....T$=T$|
000015f0  2b c3 7e 28 52 78 25 28  41 25 29 29 2b 22 20 22  |+.~(Rx%(A%))+" "|
00001600  0d 0b 18 05 ed 0d 0b 22  14 f4 50 52 4f 43 5f 73  |......."..PROC_s|
00001610  70 75 74 28 35 2c 54 24  29 0d 0b 23 12 24 53 50  |put(5,T$)..#.$SP|
00001620  6f 69 6e 74 25 28 35 29  3d 54 24 0d 0b 24 3c c8  |oint%(5)=T$..$<.|
00001630  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00001640  61 77 22 2c 6d 6f 6e 57  25 2c 49 58 25 28 35 29  |aw",monW%,IX%(5)|
00001650  2c 49 59 25 28 35 29 2c  49 58 31 25 28 35 29 2c  |,IY%(5),IX1%(5),|
00001660  49 59 31 25 28 35 29 0d  0b 2c 05 e1 0d ff        |IY1%(5)..,....|
0000166e