� >!RunImage
/� 9-pin Epson compatible keystrip generator
� Version 2.10
($� By Mike Ironmonger, April 1991
-&� � Archimedes World November 1991
2:
<%� � �error(�,�$+" at line "+Þ):�
F�initialise
P� � �error(�,�$)
Z:
d�
n@ș "Wimp_Poll",&80033+(no_star% � pos_caret%>-1),block% � R%
xȎ R% �
� � 0 : �check_string
�' � 2 : ș "Wimp_OpenWindow",,block%
�6 � 3 : ș "Wimp_CloseWindow",,block%:pos_caret%=-1
�6 � 6 : �button_click(block%!8,block%!12,block%!16)
� � 7 : �drag_done
�; � 8 : �key_press(block%!0,block%!4,block%!8,block%!24)
�  � 9 : �menu_select(!block%)
� � 11 : pos_caret%=-1
�+ � 12 : � !block%=w_main% pos_caret%=99
�" � 17,18 : �message(block%!16)
��
�� quit%
�ș "Wimp_CloseDown"

�

:

*** reason codes ***

":

,��check_string

6&ș "Wimp_GetCaretPosition",,block%

@� !block%<>w_main% �

JC%=block%!4

T"ș "Wimp_GetIconState",,block%

^now$=$(block%!28)

h
Ȏ � �

r1 � pos_caret%<>C% : pos_caret%=C%:caret$=now$

|+ � now$<>caret$ : �retitle(fname$+" *")

��

��

�:

���button_click(B%,W%,I%)

�Ȏ B% �

�. � 2 : �menu_click(W%,!block%-64,block%!4)

�  � 1,4 : �sa_click(B%,W%,I%)

� � 16,64 : �drag_click(I%)

��

��

�:

���drag_done

�
B%=block%
#ș "Wimp_GetPointerInfo",,B%+28
&!B%=64:B%!12=0:B%!16=1:B%!20=B%!40
"B%!24=B%!44:B%!36=1:B%!40=&7FD
&A$=�get_string(b_fname%)
0ȕ �A$,".")>0
: A$=�A$,�A$,".")+1)
D�
N$(B%+44)=A$+�0
X+ș "Wimp_SendMessage",17,B%,B%!20,B%!24
b�
l:
v��key_press(W%,I%,X%,C%)
�
Ȏ � �
�< � W%=w_save% � C%=13   : �save(�get_string(b_fname%),�)
�7 � W%=w_main% � C%=13   : �caret_to((I%+2)�74,9999)
�5 � W%=w_main% � C%=&18E : �caret_to((I%+2)�74,X%)
�6 � W%=w_main% � C%=&18F : �caret_to((I%+72)�74,X%)
�  ș "Wimp_ProcessKey",C%
��
��
�:
���menu_select(S%)
�7ș "Wimp_GetPointerInfo",,block%:stay%=(block%!8=1)
�Ȏ menu_window% �
� � -2 : �quit
 � w_main% : Ȏ S% �
4  � 0 : � fname$<>"Keystrip" �save(fname$,stay%)
  � 1 : �print_strip
   � 2 : �clear_strip
* �
4�
>)� stay% ș "Wimp_CreateMenu",,b_menu%
H�
R:
\��message(M%)
fȎ M% �
p � 0 : �quit
z2 � 2 : �ack(3):�save(�get_string(block%+44),�)
�C � 3,5 : � block%!40=&7FB �ack(4):�load(�get_string(block%+44))
��
��
�:
�*** button clicks
�:
���menu_click(W%,X%,Y%)
�menu_window%=W%
�Ȏ W% �
�! � -2 : �create_icon_bar_menu
�" � w_main% : �create_main_menu
��
��
:
��sa_click(B%,W%,I%)
Ȏ W% �
$! � -2 : �show_window(w_main%)
.9 � w_save% : � I%=2 �save(�get_string(b_fname%),B%=1)
86 � w_quit% : ș "Wimp_CreateMenu",,-1:quit%=(I%=1)
B�
L�
V:
`��drag_click(I%)
jB%=block%+12:I%=B%+92+I%*32
tș "Wimp_GetWindowInfo",,B%
~ I%!-4=5:!I%+=B%!4:I%!8+=B%!4
�I%!4+=B%!16:I%!12+=B%!16
�I%!16=0:I%!24=&7FFFFFFF
�I%!20=0:I%!28=&7FFFFFFF
�ș "Wimp_DragBox",,I%-8
��
�:
�*** menu creation
�:
���create_icon_bar_menu
�'�create_menu(b_menu%,"Keystrip",96)
� �menu_item("Info",0,w_info%)
��menu_item("Quit",&80,0)
(ș "Wimp_CreateMenu",,b_menu%,X%,180

�

��create_main_menu
('�create_menu(b_menu%,"Keystrip",96)
2 �menu_item("Save",0,w_save%)
<�menu_item("Print",0,0)
F�menu_item("Clear",&80,0)
PA� fname$="<Untitled>" $b_fname%="Keystrip" � $b_fname%=fname$
Z'ș "Wimp_CreateMenu",,b_menu%,X%,Y%
d�
n:
x*** printing
�:
���print_strip
�� �
�� � � �printer_off(�<>17):�
��printer_on
�� start_key%=0 � 8 � 4
��print_block
��
��printer_off(�)
��
�:
���print_block
�Bblock$()="|          |          |          |          |      "
block$(0)=�51," ")
block$(1)=block$(0)
Cblock$(2)="a----------b----------b----------b----------c      "
"Cblock$(6)="h----------+----------+----------+----------d      "
,block$(10)=block$(6)
6Dblock$(14)="g----------f----------f----------f----------e      "
@5� start_key%=4 �add_title(�get_string(b_ktitle%))
J"� start_key%=8 �add_ctrl_shift
T� key%=0 � 3
^� row%=0 � 2
h�do_square(key%,row%)
r�,
|�C%=1�50-(start_key%=8)
��L%=14�0� -1
��1,�(�block$(L%),C%,1))
��
�	�1,13
�%ș "OS_Byte",246,0,255 � ,ignore%
�� ignore%<>10 �1,10
��
��
�:
���add_title(A$)
�X%=1+(45-�(A$))/2
��block$(0),X%)=A$
��
:
��add_ctrl_shift
�block$(4),47)="CTRL"
&�block$(8),47)="SHIFT"
0�
::
D��do_square(K%,R%)
Nline$()="":tot%=0
X2key$=�get_string(b_key%(start_key%+K%,R%))+" "
b�
l# len%=�key$," ")-1:next%=len%+2
v# � len%>10 len%=10:next%=len%+1
�' �add_word(line$(tot%),�key$,len%))
� key$=�key$,next%)
�
� key$=""
�� line%=0 � 2
�Ȏ line% �
� � 0 : � tot%>0 �insert(0)
�4 � 1 : � tot%=0 �insert(0) � � tot%=2 �insert(1)
�! � 2 : � tot%>0 �insert(tot%)
��
��
��
�:
���add_word(� line$,W$)
� line$="" line$=W$:�
� �(line$)+1+len%>10 �
$ � tot%<2 tot%+=1:line$(tot%)=W$
 �
* line$=line$+" "+W$
4�
>�
H:
R��insert(L%)
\"X%=K%*11+2+(10-�(line$(L%)))/2
f)�block$(row%*4+line%+3),X%)=line$(L%)
p�
z:
�*** printer on-off
�:
���printer_on
�ș "Hourglass_Start",1
�*fx 229
�*� 2,1,27,1,64     :� printer on, reset
�$� 1,27,1,83,1,0   :� superscript
�.� 1,27,1,51,1,15  :� 15/216 inch line feed
�� 1,27,1,119,1,1  :� 15 CPI
��
��A%=1�40
�;� C%             :� number of character to be redefined
�.� 1,27,1,121,1,C% :� redefine character C%
	
�B%=1 � 9
	8� D%:� 1,D%    :� nine bytes to define new character
	�,
	$�
	.:
	8��printer_off(error%)
	B+� 1,27,1,64,3     :� reset, printer off
	L
*fx 229 1
	Vș "Hourglass_Off"
	`� error% �error(�,�$)
	j�
	t:
	~*** clear_strip
	�:
	���clear_strip
	�$b_ktitle%=""
	��K%=0�11:�R%=0�2
	�$b_key%(K%,R%)=""
	��,
	�0ș "Wimp_ForceRedraw",w_main%,90,-840,1222,0
	��caret_to(1,0)
	��retitle(fname$+" *")
	��
	�:
	�*** save/load
:

��ack(msg%)
%block%!12=block%!8:block%!16=msg%
,ș "Wimp_SendMessage",17,block%,block%!4
(�
2:
<��save(F$,stay%)
FE� �F$,".")=0 � 1,"To save, drag file icon to a directory viewer."
PC%=�(F$)
Z � #C%,�get_string(b_ktitle%)
d�K%=0�11:�R%=0�2
n$� #C%,�get_string(b_key%(K%,R%))
x�,
�	� #C%
�ș "OS_File",18,F$,&7FB
��retitle(F$)
�%� � stay% ș "Wimp_CreateMenu",-1
�pos_caret%=99
��
�:
���load(F$)
�C%=�(F$)
�� #C%,$b_ktitle%
��K%=0�11:�R%=0�2
�� #C%,$b_key%(K%,R%)
��,
	� #C%
�show_window(w_main%)
�retitle(F$)
"0ș "Wimp_ForceRedraw",w_main%,90,-840,1222,0
,�caret_to(1,9999)
6�
@:
J*** quit
T:
^
��quit
h>� no_star% quit%=� � ș "Wimp_CreateMenu",,w_quit%,290,700
r�
|:
�
*** utils
�:
�ݤget_string(P%)
�	A$=""
�
ȕ ?P%>31
� A$+=�?P%:P%+=1
��
�=A$
�:
���retitle(F$)
�no_star%=(�F$,2)<>" *")
�� no_star% fname$=F$
�$b_title%=F$
!block%=w_main%
$ș "Wimp_GetWindowState",,block%
Hș "Wimp_ForceRedraw",-1,block%!4,block%!16+4,block%!12,block%!16+36
&�
0:
:*** wimp utils
D:
N9��set_icon_state(!block%,block%!4,block%!8,block%!12)
X"ș "Wimp_SetIconState",,block%
b�
l:
v��caret_to(I%,X%)
�pos_caret%=99
�3ș "Wimp_SetCaretPosition",w_main%,I%,X%,,-1,-1
��
�:
� ��error(!block%,$(block%+4))
�-ș "Wimp_ReportError",block%,1,"Keystrip"
��
�:
�*** initialise
�:
���initialise
�1ș "Wimp_Initialise",200,&4B534154,"Keystrip"
�:

!� block% 1023,b_menu% 28+3*24

� block$(14),line$(3)

quit%=�

 pos_caret%=-1

*:

4,A%=�icon(-1,"!keystrip",0,0,68,68,&3002)

>:

H2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"

R-�load_window("main",b_title%,256,w_main%)

\'�load_window("info",A%,256,w_info%)

f-�load_window("save",b_fname%,256,w_save%)

p+�load_window("quit",b_quit%,82,w_quit%)

zL$b_quit%="Keystrip edited but not saved: are you sure you want to quit?"

�ș "Wimp_CloseTemplate"

�:

��retitle("<Untitled>")

�� b_key%(11,2)

�0� b_allow% 18:$b_allow%="A #&*+\-/<>?A-Z\\|"

�2A%=�icon(w_main%,"TITLE",0,-44,88,28,&7000001)

�IA%=�ind_icon(w_main%,b_ktitle%,b_allow%,45,"",88,-52,732,44,&700F125)

�K%=0

�� Y%=-104 � -764 � -132

�� X%=0 � 616 � 616

�6A%=�icon(w_main%,"CTRL",X%+16,Y%+8,72,28,&7000001)

�NA%=�ind_icon(w_main%,b_key%(K%,0),b_allow%,32,"",X%+88,Y%,524,44,&700F125)

�5A%=�icon(w_main%,"SHIFT",X%,Y%-32,88,28,&7000001)
QA%=�ind_icon(w_main%,b_key%(K%,1),b_allow%,32,"",X%+88,Y%-40,524,44,&700F125)
<A%=�icon(w_main%,"F"+�(K%+1),X%+8,Y%-80,76,44,&B700002D)
QA%=�ind_icon(w_main%,b_key%(K%,2),b_allow%,32,"",X%+88,Y%-80,524,44,&700F125)
$K%+=1:�,
.:
8ș "OS_GetEnv" � A$
B+F$=�A$,�A$,""" ")+2):� F$<>"" �load(F$)
L�
V:
`*** wimp routines
j:
t/��load_window(name$,� buff%,len%,� handle%)
~� len%>0 � buff% len%-1
�>ș "Wimp_LoadTemplate",,block%,buff%,buff%+len%,-1,name$,0
�block%!64=1
�,ș "Wimp_CreateWindow",,block% � handle%
��
�:
���show_window(!block%)
�$ș "Wimp_GetWindowState",,block%
�block%!28=-1
� ș "Wimp_OpenWindow",,block%
�/� (((block%!32)>>16)�1)=0 �caret_to(1,9999)
��
�:
/ݤicon(!block%,text$,X%,Y%,W%,H%,block%!20)

block%!4=X%:block%!12=X%+W%
block%!8=Y%:block%!16=Y%+H%
"� text$<>"" $(block%+24)=text$
(%ș "Wimp_CreateIcon",,block% � I%
2=I%
<:
F@ݤind_icon(window%,� buf%,block%!28,L%,text$,X%,Y%,W%,H%,F%)
P� buf% L%:$buf%=text$
Z!block%!24=buf%:block%!32=L%+1
d%=�icon(window%,"",X%,Y%,W%,H%,F%)
n:
x#��create_menu(M%,title$,width%)
�($M%=title$:M%!12=&70207:M%!16=width%
�M%!20=44:M%!24=0:I%=M%+28
��
�:
���menu_item(I$,F%,S%)
� !I%=F%:I%!4=S%:I%!8=&7000021
�$(I%+12)=I$:I%+=24
��
�:
�*** sideways character data
�@� character number followed by nine bytes for new defenition
�:
�%� 38,114,132,8,148,34,64,144,0,96
 � 43,16,0,16,0,255,0,16,0,16
� 45,0,0,0,0,255,0,0,0,0
� 60,2,4,8,16,32,16,8,4,2
"� 62,32,16,8,4,2,4,8,16,32
,!� 63,16,0,0,16,12,2,0,130,124
6$� 65,130,0,130,0,254,0,130,68,56
@$� 66,252,2,128,2,252,2,128,2,252
J,� 67,124,130,128,128,128,128,128,130,124
T$� 68,248,4,130,0,130,0,130,4,248
^$� 69,254,0,128,0,240,0,128,0,254
h$� 70,128,0,128,0,240,0,128,0,254
r'� 71,126,128,2,128,30,128,0,128,126
|$� 72,130,0,130,0,254,0,130,0,130
�!� 73,124,0,16,0,16,0,16,0,124
�� 74,112,136,0,8,0,8,0,8,54
�&� 75,132,8,144,32,192,32,144,8,132
�$� 76,252,0,128,0,128,0,128,0,128
�'� 77,130,0,130,16,130,16,170,68,130
�%� 78,130,0,134,8,146,32,194,0,130
�$� 80,128,0,128,0,252,2,128,2,252
�&� 81,114,132,8,146,0,130,0,130,124
�%� 82,130,4,136,16,236,2,128,2,252
�&� 83,124,130,0,2,124,128,0,130,124
� � 84,16,0,16,0,16,0,16,0,254
�$� 85,124,0,130,0,130,0,130,0,130
�!� 86,16,0,40,0,68,0,130,0,130
'� 87,130,68,170,16,130,16,130,0,130
$� 88,130,68,40,16,0,16,40,68,130
"� 89,16,0,16,0,56,68,130,0,130
&!� 90,254,0,64,32,16,8,4,0,254
0� 97,16,0,16,0,31,0,0,0,0
:� 98,16,0,16,0,255,0,0,0,0
D� 99,16,0,16,0,240,0,0,0,0
N!� 100,16,0,16,0,240,0,16,0,16
X� 101,0,0,0,0,240,0,16,0,16
b� 102,0,0,0,0,255,0,16,0,16
l� 103,0,0,0,0,31,0,16,0,16
v � 104,16,0,16,0,31,0,16,0,16
� � 124,16,0,16,0,16,0,16,0,16
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 2f f4 20 39 2d  70 69 6e 20 45 70 73 6f  |.../. 9-pin Epso|
00000020  6e 20 63 6f 6d 70 61 74  69 62 6c 65 20 6b 65 79  |n compatible key|
00000030  73 74 72 69 70 20 67 65  6e 65 72 61 74 6f 72 0d  |strip generator.|
00000040  00 1e 12 f4 20 56 65 72  73 69 6f 6e 20 32 2e 31  |.... Version 2.1|
00000050  30 0d 00 28 24 f4 20 42  79 20 4d 69 6b 65 20 49  |0..($. By Mike I|
00000060  72 6f 6e 6d 6f 6e 67 65  72 2c 20 41 70 72 69 6c  |ronmonger, April|
00000070  20 31 39 39 31 0d 00 2d  26 f4 20 a9 20 41 72 63  | 1991..-&. . Arc|
00000080  68 69 6d 65 64 65 73 20  57 6f 72 6c 64 20 4e 6f  |himedes World No|
00000090  76 65 6d 62 65 72 20 31  39 39 31 0d 00 32 05 3a  |vember 1991..2.:|
000000a0  0d 00 3c 25 ee 20 85 20  f2 65 72 72 6f 72 28 9f  |..<%. . .error(.|
000000b0  2c f6 24 2b 22 20 61 74  20 6c 69 6e 65 20 22 2b  |,.$+" at line "+|
000000c0  c3 9e 29 3a e0 0d 00 46  0f f2 69 6e 69 74 69 61  |..):...F..initia|
000000d0  6c 69 73 65 0d 00 50 14  ee 20 85 20 f2 65 72 72  |lise..P.. . .err|
000000e0  6f 72 28 9f 2c f6 24 29  0d 00 5a 05 3a 0d 00 64  |or(.,.$)..Z.:..d|
000000f0  05 f5 0d 00 6e 40 c8 99  20 22 57 69 6d 70 5f 50  |....n@.. "Wimp_P|
00000100  6f 6c 6c 22 2c 26 38 30  30 33 33 2b 28 6e 6f 5f  |oll",&80033+(no_|
00000110  73 74 61 72 25 20 80 20  70 6f 73 5f 63 61 72 65  |star% . pos_care|
00000120  74 25 3e 2d 31 29 2c 62  6c 6f 63 6b 25 20 b8 20  |t%>-1),block% . |
00000130  52 25 0d 00 78 0b c8 8e  20 52 25 20 ca 0d 00 82  |R%..x... R% ....|
00000140  18 20 c9 20 30 20 3a 20  f2 63 68 65 63 6b 5f 73  |. . 0 : .check_s|
00000150  74 72 69 6e 67 0d 00 8c  27 20 c9 20 32 20 3a 20  |tring...' . 2 : |
00000160  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000170  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 00 96 36  |dow",,block%...6|
00000180  20 c9 20 33 20 3a 20 c8  99 20 22 57 69 6d 70 5f  | . 3 : .. "Wimp_|
00000190  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
000001a0  6f 63 6b 25 3a 70 6f 73  5f 63 61 72 65 74 25 3d  |ock%:pos_caret%=|
000001b0  2d 31 0d 00 a0 36 20 c9  20 36 20 3a 20 f2 62 75  |-1...6 . 6 : .bu|
000001c0  74 74 6f 6e 5f 63 6c 69  63 6b 28 62 6c 6f 63 6b  |tton_click(block|
000001d0  25 21 38 2c 62 6c 6f 63  6b 25 21 31 32 2c 62 6c  |%!8,block%!12,bl|
000001e0  6f 63 6b 25 21 31 36 29  0d 00 aa 15 20 c9 20 37  |ock%!16).... . 7|
000001f0  20 3a 20 f2 64 72 61 67  5f 64 6f 6e 65 0d 00 b4  | : .drag_done...|
00000200  3b 20 c9 20 38 20 3a 20  f2 6b 65 79 5f 70 72 65  |; . 8 : .key_pre|
00000210  73 73 28 62 6c 6f 63 6b  25 21 30 2c 62 6c 6f 63  |ss(block%!0,bloc|
00000220  6b 25 21 34 2c 62 6c 6f  63 6b 25 21 38 2c 62 6c  |k%!4,block%!8,bl|
00000230  6f 63 6b 25 21 32 34 29  0d 00 be 20 20 c9 20 39  |ock%!24)...  . 9|
00000240  20 3a 20 f2 6d 65 6e 75  5f 73 65 6c 65 63 74 28  | : .menu_select(|
00000250  21 62 6c 6f 63 6b 25 29  0d 00 c8 19 20 c9 20 31  |!block%).... . 1|
00000260  31 20 3a 20 70 6f 73 5f  63 61 72 65 74 25 3d 2d  |1 : pos_caret%=-|
00000270  31 0d 00 d2 2b 20 c9 20  31 32 20 3a 20 e7 20 21  |1...+ . 12 : . !|
00000280  62 6c 6f 63 6b 25 3d 77  5f 6d 61 69 6e 25 20 70  |block%=w_main% p|
00000290  6f 73 5f 63 61 72 65 74  25 3d 39 39 0d 00 dc 22  |os_caret%=99..."|
000002a0  20 c9 20 31 37 2c 31 38  20 3a 20 f2 6d 65 73 73  | . 17,18 : .mess|
000002b0  61 67 65 28 62 6c 6f 63  6b 25 21 31 36 29 0d 00  |age(block%!16)..|
000002c0  e6 05 cb 0d 00 f0 0b fd  20 71 75 69 74 25 0d 00  |........ quit%..|
000002d0  fa 17 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.... "Wimp_Close|
000002e0  44 6f 77 6e 22 0d 01 04  05 e0 0d 01 0e 05 3a 0d  |Down".........:.|
000002f0  01 18 18 2a 2a 2a 20 72  65 61 73 6f 6e 20 63 6f  |...*** reason co|
00000300  64 65 73 20 2a 2a 2a 0d  01 22 05 3a 0d 01 2c 12  |des ***..".:..,.|
00000310  dd f2 63 68 65 63 6b 5f  73 74 72 69 6e 67 0d 01  |..check_string..|
00000320  36 26 c8 99 20 22 57 69  6d 70 5f 47 65 74 43 61  |6&.. "Wimp_GetCa|
00000330  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 62 6c  |retPosition",,bl|
00000340  6f 63 6b 25 0d 01 40 18  e7 20 21 62 6c 6f 63 6b  |ock%..@.. !block|
00000350  25 3c 3e 77 5f 6d 61 69  6e 25 20 e1 0d 01 4a 0f  |%<>w_main% ...J.|
00000360  43 25 3d 62 6c 6f 63 6b  25 21 34 0d 01 54 22 c8  |C%=block%!4..T".|
00000370  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00000380  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 01 5e  |tate",,block%..^|
00000390  15 6e 6f 77 24 3d 24 28  62 6c 6f 63 6b 25 21 32  |.now$=$(block%!2|
000003a0  38 29 0d 01 68 0a c8 8e  20 b9 20 ca 0d 01 72 31  |8)..h... . ...r1|
000003b0  20 c9 20 70 6f 73 5f 63  61 72 65 74 25 3c 3e 43  | . pos_caret%<>C|
000003c0  25 20 3a 20 70 6f 73 5f  63 61 72 65 74 25 3d 43  |% : pos_caret%=C|
000003d0  25 3a 63 61 72 65 74 24  3d 6e 6f 77 24 0d 01 7c  |%:caret$=now$..||
000003e0  2b 20 c9 20 6e 6f 77 24  3c 3e 63 61 72 65 74 24  |+ . now$<>caret$|
000003f0  20 3a 20 f2 72 65 74 69  74 6c 65 28 66 6e 61 6d  | : .retitle(fnam|
00000400  65 24 2b 22 20 2a 22 29  0d 01 86 05 cb 0d 01 90  |e$+" *")........|
00000410  05 e1 0d 01 9a 05 3a 0d  01 a4 1c dd f2 62 75 74  |......:......but|
00000420  74 6f 6e 5f 63 6c 69 63  6b 28 42 25 2c 57 25 2c  |ton_click(B%,W%,|
00000430  49 25 29 0d 01 ae 0b c8  8e 20 42 25 20 ca 0d 01  |I%)...... B% ...|
00000440  b8 2e 20 c9 20 32 20 3a  20 f2 6d 65 6e 75 5f 63  |.. . 2 : .menu_c|
00000450  6c 69 63 6b 28 57 25 2c  21 62 6c 6f 63 6b 25 2d  |lick(W%,!block%-|
00000460  36 34 2c 62 6c 6f 63 6b  25 21 34 29 0d 01 c2 20  |64,block%!4)... |
00000470  20 c9 20 31 2c 34 20 3a  20 f2 73 61 5f 63 6c 69  | . 1,4 : .sa_cli|
00000480  63 6b 28 42 25 2c 57 25  2c 49 25 29 0d 01 cc 1e  |ck(B%,W%,I%)....|
00000490  20 c9 20 31 36 2c 36 34  20 3a 20 f2 64 72 61 67  | . 16,64 : .drag|
000004a0  5f 63 6c 69 63 6b 28 49  25 29 0d 01 d6 05 cb 0d  |_click(I%)......|
000004b0  01 e0 05 e1 0d 01 ea 05  3a 0d 01 f4 0f dd f2 64  |........:......d|
000004c0  72 61 67 5f 64 6f 6e 65  0d 01 fe 0d 42 25 3d 62  |rag_done....B%=b|
000004d0  6c 6f 63 6b 25 0d 02 08  23 c8 99 20 22 57 69 6d  |lock%...#.. "Wim|
000004e0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
000004f0  22 2c 2c 42 25 2b 32 38  0d 02 12 26 21 42 25 3d  |",,B%+28...&!B%=|
00000500  36 34 3a 42 25 21 31 32  3d 30 3a 42 25 21 31 36  |64:B%!12=0:B%!16|
00000510  3d 31 3a 42 25 21 32 30  3d 42 25 21 34 30 0d 02  |=1:B%!20=B%!40..|
00000520  1c 22 42 25 21 32 34 3d  42 25 21 34 34 3a 42 25  |."B%!24=B%!44:B%|
00000530  21 33 36 3d 31 3a 42 25  21 34 30 3d 26 37 46 44  |!36=1:B%!40=&7FD|
00000540  0d 02 26 1c 41 24 3d a4  67 65 74 5f 73 74 72 69  |..&.A$=.get_stri|
00000550  6e 67 28 62 5f 66 6e 61  6d 65 25 29 0d 02 30 11  |ng(b_fname%)..0.|
00000560  c8 95 20 a7 41 24 2c 22  2e 22 29 3e 30 0d 02 3a  |.. .A$,".")>0..:|
00000570  17 20 41 24 3d c1 41 24  2c a7 41 24 2c 22 2e 22  |. A$=.A$,.A$,"."|
00000580  29 2b 31 29 0d 02 44 05  ce 0d 02 4e 12 24 28 42  |)+1)..D....N.$(B|
00000590  25 2b 34 34 29 3d 41 24  2b bd 30 0d 02 58 2b c8  |%+44)=A$+.0..X+.|
000005a0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
000005b0  61 67 65 22 2c 31 37 2c  42 25 2c 42 25 21 32 30  |age",17,B%,B%!20|
000005c0  2c 42 25 21 32 34 0d 02  62 05 e1 0d 02 6c 05 3a  |,B%!24..b....l.:|
000005d0  0d 02 76 1c dd f2 6b 65  79 5f 70 72 65 73 73 28  |..v...key_press(|
000005e0  57 25 2c 49 25 2c 58 25  2c 43 25 29 0d 02 80 0a  |W%,I%,X%,C%)....|
000005f0  c8 8e 20 b9 20 ca 0d 02  8a 3c 20 c9 20 57 25 3d  |.. . ....< . W%=|
00000600  77 5f 73 61 76 65 25 20  80 20 43 25 3d 31 33 20  |w_save% . C%=13 |
00000610  20 20 3a 20 f2 73 61 76  65 28 a4 67 65 74 5f 73  |  : .save(.get_s|
00000620  74 72 69 6e 67 28 62 5f  66 6e 61 6d 65 25 29 2c  |tring(b_fname%),|
00000630  a3 29 0d 02 94 37 20 c9  20 57 25 3d 77 5f 6d 61  |.)...7 . W%=w_ma|
00000640  69 6e 25 20 80 20 43 25  3d 31 33 20 20 20 3a 20  |in% . C%=13   : |
00000650  f2 63 61 72 65 74 5f 74  6f 28 28 49 25 2b 32 29  |.caret_to((I%+2)|
00000660  83 37 34 2c 39 39 39 39  29 0d 02 9e 35 20 c9 20  |.74,9999)...5 . |
00000670  57 25 3d 77 5f 6d 61 69  6e 25 20 80 20 43 25 3d  |W%=w_main% . C%=|
00000680  26 31 38 45 20 3a 20 f2  63 61 72 65 74 5f 74 6f  |&18E : .caret_to|
00000690  28 28 49 25 2b 32 29 83  37 34 2c 58 25 29 0d 02  |((I%+2).74,X%)..|
000006a0  a8 36 20 c9 20 57 25 3d  77 5f 6d 61 69 6e 25 20  |.6 . W%=w_main% |
000006b0  80 20 43 25 3d 26 31 38  46 20 3a 20 f2 63 61 72  |. C%=&18F : .car|
000006c0  65 74 5f 74 6f 28 28 49  25 2b 37 32 29 83 37 34  |et_to((I%+72).74|
000006d0  2c 58 25 29 0d 02 b2 1e  20 7f 20 c8 99 20 22 57  |,X%).... . .. "W|
000006e0  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
000006f0  43 25 0d 02 bc 05 cb 0d  02 c6 05 e1 0d 02 d0 05  |C%..............|
00000700  3a 0d 02 da 15 dd f2 6d  65 6e 75 5f 73 65 6c 65  |:......menu_sele|
00000710  63 74 28 53 25 29 0d 02  e4 37 c8 99 20 22 57 69  |ct(S%)...7.. "Wi|
00000720  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000730  6f 22 2c 2c 62 6c 6f 63  6b 25 3a 73 74 61 79 25  |o",,block%:stay%|
00000740  3d 28 62 6c 6f 63 6b 25  21 38 3d 31 29 0d 02 ee  |=(block%!8=1)...|
00000750  15 c8 8e 20 6d 65 6e 75  5f 77 69 6e 64 6f 77 25  |... menu_window%|
00000760  20 ca 0d 02 f8 11 20 c9  20 2d 32 20 3a 20 f2 71  | ..... . -2 : .q|
00000770  75 69 74 0d 03 02 18 20  c9 20 77 5f 6d 61 69 6e  |uit.... . w_main|
00000780  25 20 3a 20 c8 8e 20 53  25 20 ca 0d 03 0c 34 20  |% : .. S% ....4 |
00000790  20 c9 20 30 20 3a 20 e7  20 66 6e 61 6d 65 24 3c  | . 0 : . fname$<|
000007a0  3e 22 4b 65 79 73 74 72  69 70 22 20 f2 73 61 76  |>"Keystrip" .sav|
000007b0  65 28 66 6e 61 6d 65 24  2c 73 74 61 79 25 29 0d  |e(fname$,stay%).|
000007c0  03 16 18 20 20 c9 20 31  20 3a 20 f2 70 72 69 6e  |...  . 1 : .prin|
000007d0  74 5f 73 74 72 69 70 0d  03 20 18 20 20 c9 20 32  |t_strip.. .  . 2|
000007e0  20 3a 20 f2 63 6c 65 61  72 5f 73 74 72 69 70 0d  | : .clear_strip.|
000007f0  03 2a 06 20 cb 0d 03 34  05 cb 0d 03 3e 29 e7 20  |.*. ...4....>). |
00000800  73 74 61 79 25 20 c8 99  20 22 57 69 6d 70 5f 43  |stay% .. "Wimp_C|
00000810  72 65 61 74 65 4d 65 6e  75 22 2c 2c 62 5f 6d 65  |reateMenu",,b_me|
00000820  6e 75 25 0d 03 48 05 e1  0d 03 52 05 3a 0d 03 5c  |nu%..H....R.:..\|
00000830  11 dd f2 6d 65 73 73 61  67 65 28 4d 25 29 0d 03  |...message(M%)..|
00000840  66 0b c8 8e 20 4d 25 20  ca 0d 03 70 10 20 c9 20  |f... M% ...p. . |
00000850  30 20 3a 20 f2 71 75 69  74 0d 03 7a 32 20 c9 20  |0 : .quit..z2 . |
00000860  32 20 3a 20 f2 61 63 6b  28 33 29 3a f2 73 61 76  |2 : .ack(3):.sav|
00000870  65 28 a4 67 65 74 5f 73  74 72 69 6e 67 28 62 6c  |e(.get_string(bl|
00000880  6f 63 6b 25 2b 34 34 29  2c a3 29 0d 03 84 43 20  |ock%+44),.)...C |
00000890  c9 20 33 2c 35 20 3a 20  e7 20 62 6c 6f 63 6b 25  |. 3,5 : . block%|
000008a0  21 34 30 3d 26 37 46 42  20 f2 61 63 6b 28 34 29  |!40=&7FB .ack(4)|
000008b0  3a f2 6c 6f 61 64 28 a4  67 65 74 5f 73 74 72 69  |:.load(.get_stri|
000008c0  6e 67 28 62 6c 6f 63 6b  25 2b 34 34 29 29 0d 03  |ng(block%+44))..|
000008d0  8e 05 cb 0d 03 98 05 e1  0d 03 a2 05 3a 0d 03 ac  |............:...|
000008e0  15 2a 2a 2a 20 62 75 74  74 6f 6e 20 63 6c 69 63  |.*** button clic|
000008f0  6b 73 0d 03 b6 05 3a 0d  03 c0 1a dd f2 6d 65 6e  |ks....:......men|
00000900  75 5f 63 6c 69 63 6b 28  57 25 2c 58 25 2c 59 25  |u_click(W%,X%,Y%|
00000910  29 0d 03 ca 13 6d 65 6e  75 5f 77 69 6e 64 6f 77  |)....menu_window|
00000920  25 3d 57 25 0d 03 d4 0b  c8 8e 20 57 25 20 ca 0d  |%=W%...... W% ..|
00000930  03 de 21 20 c9 20 2d 32  20 3a 20 f2 63 72 65 61  |..! . -2 : .crea|
00000940  74 65 5f 69 63 6f 6e 5f  62 61 72 5f 6d 65 6e 75  |te_icon_bar_menu|
00000950  0d 03 e8 22 20 c9 20 77  5f 6d 61 69 6e 25 20 3a  |..." . w_main% :|
00000960  20 f2 63 72 65 61 74 65  5f 6d 61 69 6e 5f 6d 65  | .create_main_me|
00000970  6e 75 0d 03 f2 05 cb 0d  03 fc 05 e1 0d 04 06 05  |nu..............|
00000980  3a 0d 04 10 18 dd f2 73  61 5f 63 6c 69 63 6b 28  |:......sa_click(|
00000990  42 25 2c 57 25 2c 49 25  29 0d 04 1a 0b c8 8e 20  |B%,W%,I%)...... |
000009a0  57 25 20 ca 0d 04 24 21  20 c9 20 2d 32 20 3a 20  |W% ...$! . -2 : |
000009b0  f2 73 68 6f 77 5f 77 69  6e 64 6f 77 28 77 5f 6d  |.show_window(w_m|
000009c0  61 69 6e 25 29 0d 04 2e  39 20 c9 20 77 5f 73 61  |ain%)...9 . w_sa|
000009d0  76 65 25 20 3a 20 e7 20  49 25 3d 32 20 f2 73 61  |ve% : . I%=2 .sa|
000009e0  76 65 28 a4 67 65 74 5f  73 74 72 69 6e 67 28 62  |ve(.get_string(b|
000009f0  5f 66 6e 61 6d 65 25 29  2c 42 25 3d 31 29 0d 04  |_fname%),B%=1)..|
00000a00  38 36 20 c9 20 77 5f 71  75 69 74 25 20 3a 20 c8  |86 . w_quit% : .|
00000a10  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00000a20  6e 75 22 2c 2c 2d 31 3a  71 75 69 74 25 3d 28 49  |nu",,-1:quit%=(I|
00000a30  25 3d 31 29 0d 04 42 05  cb 0d 04 4c 05 e1 0d 04  |%=1)..B....L....|
00000a40  56 05 3a 0d 04 60 14 dd  f2 64 72 61 67 5f 63 6c  |V.:..`...drag_cl|
00000a50  69 63 6b 28 49 25 29 0d  04 6a 1f 42 25 3d 62 6c  |ick(I%)..j.B%=bl|
00000a60  6f 63 6b 25 2b 31 32 3a  49 25 3d 42 25 2b 39 32  |ock%+12:I%=B%+92|
00000a70  2b 49 25 2a 33 32 0d 04  74 1f c8 99 20 22 57 69  |+I%*32..t... "Wi|
00000a80  6d 70 5f 47 65 74 57 69  6e 64 6f 77 49 6e 66 6f  |mp_GetWindowInfo|
00000a90  22 2c 2c 42 25 0d 04 7e  20 49 25 21 2d 34 3d 35  |",,B%..~ I%!-4=5|
00000aa0  3a 21 49 25 2b 3d 42 25  21 34 3a 49 25 21 38 2b  |:!I%+=B%!4:I%!8+|
00000ab0  3d 42 25 21 34 0d 04 88  1c 49 25 21 34 2b 3d 42  |=B%!4....I%!4+=B|
00000ac0  25 21 31 36 3a 49 25 21  31 32 2b 3d 42 25 21 31  |%!16:I%!12+=B%!1|
00000ad0  36 0d 04 92 1b 49 25 21  31 36 3d 30 3a 49 25 21  |6....I%!16=0:I%!|
00000ae0  32 34 3d 26 37 46 46 46  46 46 46 46 0d 04 9c 1b  |24=&7FFFFFFF....|
00000af0  49 25 21 32 30 3d 30 3a  49 25 21 32 38 3d 26 37  |I%!20=0:I%!28=&7|
00000b00  46 46 46 46 46 46 46 0d  04 a6 1b c8 99 20 22 57  |FFFFFFF...... "W|
00000b10  69 6d 70 5f 44 72 61 67  42 6f 78 22 2c 2c 49 25  |imp_DragBox",,I%|
00000b20  2d 38 0d 04 b0 05 e1 0d  04 ba 05 3a 0d 04 c4 15  |-8.........:....|
00000b30  2a 2a 2a 20 6d 65 6e 75  20 63 72 65 61 74 69 6f  |*** menu creatio|
00000b40  6e 0d 04 ce 05 3a 0d 04  d8 1a dd f2 63 72 65 61  |n....:......crea|
00000b50  74 65 5f 69 63 6f 6e 5f  62 61 72 5f 6d 65 6e 75  |te_icon_bar_menu|
00000b60  0d 04 e2 27 f2 63 72 65  61 74 65 5f 6d 65 6e 75  |...'.create_menu|
00000b70  28 62 5f 6d 65 6e 75 25  2c 22 4b 65 79 73 74 72  |(b_menu%,"Keystr|
00000b80  69 70 22 2c 39 36 29 0d  04 ec 20 f2 6d 65 6e 75  |ip",96)... .menu|
00000b90  5f 69 74 65 6d 28 22 49  6e 66 6f 22 2c 30 2c 77  |_item("Info",0,w|
00000ba0  5f 69 6e 66 6f 25 29 0d  04 f6 1c f2 6d 65 6e 75  |_info%).....menu|
00000bb0  5f 69 74 65 6d 28 22 51  75 69 74 22 2c 26 38 30  |_item("Quit",&80|
00000bc0  2c 30 29 0d 05 00 28 c8  99 20 22 57 69 6d 70 5f  |,0)...(.. "Wimp_|
00000bd0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 62 5f 6d  |CreateMenu",,b_m|
00000be0  65 6e 75 25 2c 58 25 2c  31 38 30 0d 05 0a 05 e1  |enu%,X%,180.....|
00000bf0  0d 05 14 04 0d 05 1e 16  dd f2 63 72 65 61 74 65  |..........create|
00000c00  5f 6d 61 69 6e 5f 6d 65  6e 75 0d 05 28 27 f2 63  |_main_menu..('.c|
00000c10  72 65 61 74 65 5f 6d 65  6e 75 28 62 5f 6d 65 6e  |reate_menu(b_men|
00000c20  75 25 2c 22 4b 65 79 73  74 72 69 70 22 2c 39 36  |u%,"Keystrip",96|
00000c30  29 0d 05 32 20 f2 6d 65  6e 75 5f 69 74 65 6d 28  |)..2 .menu_item(|
00000c40  22 53 61 76 65 22 2c 30  2c 77 5f 73 61 76 65 25  |"Save",0,w_save%|
00000c50  29 0d 05 3c 1b f2 6d 65  6e 75 5f 69 74 65 6d 28  |)..<..menu_item(|
00000c60  22 50 72 69 6e 74 22 2c  30 2c 30 29 0d 05 46 1d  |"Print",0,0)..F.|
00000c70  f2 6d 65 6e 75 5f 69 74  65 6d 28 22 43 6c 65 61  |.menu_item("Clea|
00000c80  72 22 2c 26 38 30 2c 30  29 0d 05 50 41 e7 20 66  |r",&80,0)..PA. f|
00000c90  6e 61 6d 65 24 3d 22 3c  55 6e 74 69 74 6c 65 64  |name$="<Untitled|
00000ca0  3e 22 20 24 62 5f 66 6e  61 6d 65 25 3d 22 4b 65  |>" $b_fname%="Ke|
00000cb0  79 73 74 72 69 70 22 20  8b 20 24 62 5f 66 6e 61  |ystrip" . $b_fna|
00000cc0  6d 65 25 3d 66 6e 61 6d  65 24 0d 05 5a 27 c8 99  |me%=fname$..Z'..|
00000cd0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000ce0  75 22 2c 2c 62 5f 6d 65  6e 75 25 2c 58 25 2c 59  |u",,b_menu%,X%,Y|
00000cf0  25 0d 05 64 05 e1 0d 05  6e 05 3a 0d 05 78 10 2a  |%..d....n.:..x.*|
00000d00  2a 2a 20 70 72 69 6e 74  69 6e 67 0d 05 82 05 3a  |** printing....:|
00000d10  0d 05 8c 11 dd f2 70 72  69 6e 74 5f 73 74 72 69  |......print_stri|
00000d20  70 0d 05 96 07 ea 20 85  0d 05 a0 1f ee 20 85 20  |p..... ...... . |
00000d30  ea 20 f2 70 72 69 6e 74  65 72 5f 6f 66 66 28 9f  |. .printer_off(.|
00000d40  3c 3e 31 37 29 3a e1 0d  05 aa 0f f2 70 72 69 6e  |<>17):......prin|
00000d50  74 65 72 5f 6f 6e 0d 05  b4 1a e3 20 73 74 61 72  |ter_on..... star|
00000d60  74 5f 6b 65 79 25 3d 30  20 b8 20 38 20 88 20 34  |t_key%=0 . 8 . 4|
00000d70  0d 05 be 10 f2 70 72 69  6e 74 5f 62 6c 6f 63 6b  |.....print_block|
00000d80  0d 05 c8 05 ed 0d 05 d2  13 f2 70 72 69 6e 74 65  |..........printe|
00000d90  72 5f 6f 66 66 28 a3 29  0d 05 dc 05 e1 0d 05 e6  |r_off(.)........|
00000da0  05 3a 0d 05 f0 11 dd f2  70 72 69 6e 74 5f 62 6c  |.:......print_bl|
00000db0  6f 63 6b 0d 05 fa 42 62  6c 6f 63 6b 24 28 29 3d  |ock...Bblock$()=|
00000dc0  22 7c 20 20 20 20 20 20  20 20 20 20 7c 20 20 20  |"|          |   |
00000dd0  20 20 20 20 20 20 20 7c  20 20 20 20 20 20 20 20  |       |        |
00000de0  20 20 7c 20 20 20 20 20  20 20 20 20 20 7c 20 20  |  |          |  |
00000df0  20 20 20 20 22 0d 06 04  16 62 6c 6f 63 6b 24 28  |    "....block$(|
00000e00  30 29 3d c4 35 31 2c 22  20 22 29 0d 06 0e 17 62  |0)=.51," ")....b|
00000e10  6c 6f 63 6b 24 28 31 29  3d 62 6c 6f 63 6b 24 28  |lock$(1)=block$(|
00000e20  30 29 0d 06 18 43 62 6c  6f 63 6b 24 28 32 29 3d  |0)...Cblock$(2)=|
00000e30  22 61 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 62 2d 2d 2d  |"a----------b---|
00000e40  2d 2d 2d 2d 2d 2d 2d 62  2d 2d 2d 2d 2d 2d 2d 2d  |-------b--------|
00000e50  2d 2d 62 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 63 20 20  |--b----------c  |
00000e60  20 20 20 20 22 0d 06 22  43 62 6c 6f 63 6b 24 28  |    ".."Cblock$(|
00000e70  36 29 3d 22 68 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2b  |6)="h----------+|
00000e80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2b 2d 2d 2d 2d 2d  |----------+-----|
00000e90  2d 2d 2d 2d 2d 2b 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |-----+----------|
00000ea0  64 20 20 20 20 20 20 22  0d 06 2c 18 62 6c 6f 63  |d      "..,.bloc|
00000eb0  6b 24 28 31 30 29 3d 62  6c 6f 63 6b 24 28 36 29  |k$(10)=block$(6)|
00000ec0  0d 06 36 44 62 6c 6f 63  6b 24 28 31 34 29 3d 22  |..6Dblock$(14)="|
00000ed0  67 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 66 2d 2d 2d 2d  |g----------f----|
00000ee0  2d 2d 2d 2d 2d 2d 66 2d  2d 2d 2d 2d 2d 2d 2d 2d  |------f---------|
00000ef0  2d 66 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 65 20 20 20  |-f----------e   |
00000f00  20 20 20 22 0d 06 40 35  e7 20 73 74 61 72 74 5f  |   "..@5. start_|
00000f10  6b 65 79 25 3d 34 20 f2  61 64 64 5f 74 69 74 6c  |key%=4 .add_titl|
00000f20  65 28 a4 67 65 74 5f 73  74 72 69 6e 67 28 62 5f  |e(.get_string(b_|
00000f30  6b 74 69 74 6c 65 25 29  29 0d 06 4a 22 e7 20 73  |ktitle%))..J". s|
00000f40  74 61 72 74 5f 6b 65 79  25 3d 38 20 f2 61 64 64  |tart_key%=8 .add|
00000f50  5f 63 74 72 6c 5f 73 68  69 66 74 0d 06 54 10 e3  |_ctrl_shift..T..|
00000f60  20 6b 65 79 25 3d 30 20  b8 20 33 0d 06 5e 10 e3  | key%=0 . 3..^..|
00000f70  20 72 6f 77 25 3d 30 20  b8 20 32 0d 06 68 19 f2  | row%=0 . 2..h..|
00000f80  64 6f 5f 73 71 75 61 72  65 28 6b 65 79 25 2c 72  |do_square(key%,r|
00000f90  6f 77 25 29 0d 06 72 06  ed 2c 0d 06 7c 1b e3 43  |ow%)..r..,..|..C|
00000fa0  25 3d 31 b8 35 30 2d 28  73 74 61 72 74 5f 6b 65  |%=1.50-(start_ke|
00000fb0  79 25 3d 38 29 0d 06 86  10 e3 4c 25 3d 31 34 b8  |y%=8).....L%=14.|
00000fc0  30 88 20 2d 31 0d 06 90  1b ef 31 2c 97 28 c1 62  |0. -1.....1,.(.b|
00000fd0  6c 6f 63 6b 24 28 4c 25  29 2c 43 25 2c 31 29 29  |lock$(L%),C%,1))|
00000fe0  0d 06 9a 05 ed 0d 06 a4  09 ef 31 2c 31 33 0d 06  |..........1,13..|
00000ff0  ae 25 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 32  |.%.. "OS_Byte",2|
00001000  34 36 2c 30 2c 32 35 35  20 b8 20 2c 69 67 6e 6f  |46,0,255 . ,igno|
00001010  72 65 25 0d 06 b8 17 e7  20 69 67 6e 6f 72 65 25  |re%..... ignore%|
00001020  3c 3e 31 30 20 ef 31 2c  31 30 0d 06 c2 05 ed 0d  |<>10 .1,10......|
00001030  06 cc 05 e1 0d 06 d6 05  3a 0d 06 e0 13 dd f2 61  |........:......a|
00001040  64 64 5f 74 69 74 6c 65  28 41 24 29 0d 06 ea 15  |dd_title(A$)....|
00001050  58 25 3d 31 2b 28 34 35  2d a9 28 41 24 29 29 2f  |X%=1+(45-.(A$))/|
00001060  32 0d 06 f4 15 c1 62 6c  6f 63 6b 24 28 30 29 2c  |2.....block$(0),|
00001070  58 25 29 3d 41 24 0d 06  fe 05 e1 0d 07 08 05 3a  |X%)=A$.........:|
00001080  0d 07 12 14 dd f2 61 64  64 5f 63 74 72 6c 5f 73  |......add_ctrl_s|
00001090  68 69 66 74 0d 07 1c 19  c1 62 6c 6f 63 6b 24 28  |hift.....block$(|
000010a0  34 29 2c 34 37 29 3d 22  43 54 52 4c 22 0d 07 26  |4),47)="CTRL"..&|
000010b0  1a c1 62 6c 6f 63 6b 24  28 38 29 2c 34 37 29 3d  |..block$(8),47)=|
000010c0  22 53 48 49 46 54 22 0d  07 30 05 e1 0d 07 3a 05  |"SHIFT"..0....:.|
000010d0  3a 0d 07 44 16 dd f2 64  6f 5f 73 71 75 61 72 65  |:..D...do_square|
000010e0  28 4b 25 2c 52 25 29 0d  07 4e 15 6c 69 6e 65 24  |(K%,R%)..N.line$|
000010f0  28 29 3d 22 22 3a 74 6f  74 25 3d 30 0d 07 58 32  |()="":tot%=0..X2|
00001100  6b 65 79 24 3d a4 67 65  74 5f 73 74 72 69 6e 67  |key$=.get_string|
00001110  28 62 5f 6b 65 79 25 28  73 74 61 72 74 5f 6b 65  |(b_key%(start_ke|
00001120  79 25 2b 4b 25 2c 52 25  29 29 2b 22 20 22 0d 07  |y%+K%,R%))+" "..|
00001130  62 05 f5 0d 07 6c 23 20  6c 65 6e 25 3d a7 6b 65  |b....l# len%=.ke|
00001140  79 24 2c 22 20 22 29 2d  31 3a 6e 65 78 74 25 3d  |y$," ")-1:next%=|
00001150  6c 65 6e 25 2b 32 0d 07  76 23 20 e7 20 6c 65 6e  |len%+2..v# . len|
00001160  25 3e 31 30 20 6c 65 6e  25 3d 31 30 3a 6e 65 78  |%>10 len%=10:nex|
00001170  74 25 3d 6c 65 6e 25 2b  31 0d 07 80 27 20 f2 61  |t%=len%+1...' .a|
00001180  64 64 5f 77 6f 72 64 28  6c 69 6e 65 24 28 74 6f  |dd_word(line$(to|
00001190  74 25 29 2c c0 6b 65 79  24 2c 6c 65 6e 25 29 29  |t%),.key$,len%))|
000011a0  0d 07 8a 16 20 6b 65 79  24 3d c1 6b 65 79 24 2c  |.... key$=.key$,|
000011b0  6e 65 78 74 25 29 0d 07  94 0d fd 20 6b 65 79 24  |next%)..... key$|
000011c0  3d 22 22 0d 07 9e 11 e3  20 6c 69 6e 65 25 3d 30  |=""..... line%=0|
000011d0  20 b8 20 32 0d 07 a8 0e  c8 8e 20 6c 69 6e 65 25  | . 2...... line%|
000011e0  20 ca 0d 07 b2 1e 20 c9  20 30 20 3a 20 e7 20 74  | ..... . 0 : . t|
000011f0  6f 74 25 3e 30 20 f2 69  6e 73 65 72 74 28 30 29  |ot%>0 .insert(0)|
00001200  0d 07 bc 34 20 c9 20 31  20 3a 20 e7 20 74 6f 74  |...4 . 1 : . tot|
00001210  25 3d 30 20 f2 69 6e 73  65 72 74 28 30 29 20 8b  |%=0 .insert(0) .|
00001220  20 e7 20 74 6f 74 25 3d  32 20 f2 69 6e 73 65 72  | . tot%=2 .inser|
00001230  74 28 31 29 0d 07 c6 21  20 c9 20 32 20 3a 20 e7  |t(1)...! . 2 : .|
00001240  20 74 6f 74 25 3e 30 20  f2 69 6e 73 65 72 74 28  | tot%>0 .insert(|
00001250  74 6f 74 25 29 0d 07 d0  05 cb 0d 07 da 05 ed 0d  |tot%)...........|
00001260  07 e4 05 e1 0d 07 ee 05  3a 0d 07 f8 1a dd f2 61  |........:......a|
00001270  64 64 5f 77 6f 72 64 28  f8 20 6c 69 6e 65 24 2c  |dd_word(. line$,|
00001280  57 24 29 0d 08 02 19 e7  20 6c 69 6e 65 24 3d 22  |W$)..... line$="|
00001290  22 20 6c 69 6e 65 24 3d  57 24 3a e1 0d 08 0c 1a  |" line$=W$:.....|
000012a0  e7 20 a9 28 6c 69 6e 65  24 29 2b 31 2b 6c 65 6e  |. .(line$)+1+len|
000012b0  25 3e 31 30 20 8c 0d 08  16 24 20 e7 20 74 6f 74  |%>10 ....$ . tot|
000012c0  25 3c 32 20 74 6f 74 25  2b 3d 31 3a 6c 69 6e 65  |%<2 tot%+=1:line|
000012d0  24 28 74 6f 74 25 29 3d  57 24 0d 08 20 05 cc 0d  |$(tot%)=W$.. ...|
000012e0  08 2a 17 20 6c 69 6e 65  24 3d 6c 69 6e 65 24 2b  |.*. line$=line$+|
000012f0  22 20 22 2b 57 24 0d 08  34 05 cd 0d 08 3e 05 e1  |" "+W$..4....>..|
00001300  0d 08 48 05 3a 0d 08 52  10 dd f2 69 6e 73 65 72  |..H.:..R...inser|
00001310  74 28 4c 25 29 0d 08 5c  22 58 25 3d 4b 25 2a 31  |t(L%)..\"X%=K%*1|
00001320  31 2b 32 2b 28 31 30 2d  a9 28 6c 69 6e 65 24 28  |1+2+(10-.(line$(|
00001330  4c 25 29 29 29 2f 32 0d  08 66 29 c1 62 6c 6f 63  |L%)))/2..f).bloc|
00001340  6b 24 28 72 6f 77 25 2a  34 2b 6c 69 6e 65 25 2b  |k$(row%*4+line%+|
00001350  33 29 2c 58 25 29 3d 6c  69 6e 65 24 28 4c 25 29  |3),X%)=line$(L%)|
00001360  0d 08 70 05 e1 0d 08 7a  05 3a 0d 08 84 16 2a 2a  |..p....z.:....**|
00001370  2a 20 70 72 69 6e 74 65  72 20 6f 6e 2d 6f 66 66  |* printer on-off|
00001380  0d 08 8e 05 3a 0d 08 98  10 dd f2 70 72 69 6e 74  |....:......print|
00001390  65 72 5f 6f 6e 0d 08 a2  1a c8 99 20 22 48 6f 75  |er_on...... "Hou|
000013a0  72 67 6c 61 73 73 5f 53  74 61 72 74 22 2c 31 0d  |rglass_Start",1.|
000013b0  08 ac 0b 2a 66 78 20 32  32 39 0d 08 b6 2a ef 20  |...*fx 229...*. |
000013c0  32 2c 31 2c 32 37 2c 31  2c 36 34 20 20 20 20 20  |2,1,27,1,64     |
000013d0  3a f4 20 70 72 69 6e 74  65 72 20 6f 6e 2c 20 72  |:. printer on, r|
000013e0  65 73 65 74 0d 08 c0 24  ef 20 31 2c 32 37 2c 31  |eset...$. 1,27,1|
000013f0  2c 38 33 2c 31 2c 30 20  20 20 3a f4 20 73 75 70  |,83,1,0   :. sup|
00001400  65 72 73 63 72 69 70 74  0d 08 ca 2e ef 20 31 2c  |erscript..... 1,|
00001410  32 37 2c 31 2c 35 31 2c  31 2c 31 35 20 20 3a f4  |27,1,51,1,15  :.|
00001420  20 31 35 2f 32 31 36 20  69 6e 63 68 20 6c 69 6e  | 15/216 inch lin|
00001430  65 20 66 65 65 64 0d 08  d4 1f ef 20 31 2c 32 37  |e feed..... 1,27|
00001440  2c 31 2c 31 31 39 2c 31  2c 31 20 20 3a f4 20 31  |,1,119,1,1  :. 1|
00001450  35 20 43 50 49 0d 08 de  05 f7 0d 08 e8 0c e3 41  |5 CPI..........A|
00001460  25 3d 31 b8 34 30 0d 08  f2 3b f3 20 43 25 20 20  |%=1.40...;. C%  |
00001470  20 20 20 20 20 20 20 20  20 20 20 3a f4 20 6e 75  |           :. nu|
00001480  6d 62 65 72 20 6f 66 20  63 68 61 72 61 63 74 65  |mber of characte|
00001490  72 20 74 6f 20 62 65 20  72 65 64 65 66 69 6e 65  |r to be redefine|
000014a0  64 0d 08 fc 2e ef 20 31  2c 32 37 2c 31 2c 31 32  |d..... 1,27,1,12|
000014b0  31 2c 31 2c 43 25 20 3a  f4 20 72 65 64 65 66 69  |1,1,C% :. redefi|
000014c0  6e 65 20 63 68 61 72 61  63 74 65 72 20 43 25 0d  |ne character C%.|
000014d0  09 06 0d e3 42 25 3d 31  20 b8 20 39 0d 09 10 38  |....B%=1 . 9...8|
000014e0  f3 20 44 25 3a ef 20 31  2c 44 25 20 20 20 20 3a  |. D%:. 1,D%    :|
000014f0  f4 20 6e 69 6e 65 20 62  79 74 65 73 20 74 6f 20  |. nine bytes to |
00001500  64 65 66 69 6e 65 20 6e  65 77 20 63 68 61 72 61  |define new chara|
00001510  63 74 65 72 0d 09 1a 06  ed 2c 0d 09 24 05 e1 0d  |cter.....,..$...|
00001520  09 2e 05 3a 0d 09 38 19  dd f2 70 72 69 6e 74 65  |...:..8...printe|
00001530  72 5f 6f 66 66 28 65 72  72 6f 72 25 29 0d 09 42  |r_off(error%)..B|
00001540  2b ef 20 31 2c 32 37 2c  31 2c 36 34 2c 33 20 20  |+. 1,27,1,64,3  |
00001550  20 20 20 3a f4 20 72 65  73 65 74 2c 20 70 72 69  |   :. reset, pri|
00001560  6e 74 65 72 20 6f 66 66  0d 09 4c 0d 2a 66 78 20  |nter off..L.*fx |
00001570  32 32 39 20 31 0d 09 56  16 c8 99 20 22 48 6f 75  |229 1..V... "Hou|
00001580  72 67 6c 61 73 73 5f 4f  66 66 22 0d 09 60 19 e7  |rglass_Off"..`..|
00001590  20 65 72 72 6f 72 25 20  f2 65 72 72 6f 72 28 9f  | error% .error(.|
000015a0  2c f6 24 29 0d 09 6a 05  e1 0d 09 74 05 3a 0d 09  |,.$)..j....t.:..|
000015b0  7e 13 2a 2a 2a 20 63 6c  65 61 72 5f 73 74 72 69  |~.*** clear_stri|
000015c0  70 0d 09 88 05 3a 0d 09  92 11 dd f2 63 6c 65 61  |p....:......clea|
000015d0  72 5f 73 74 72 69 70 0d  09 9c 11 24 62 5f 6b 74  |r_strip....$b_kt|
000015e0  69 74 6c 65 25 3d 22 22  0d 09 a6 14 e3 4b 25 3d  |itle%="".....K%=|
000015f0  30 b8 31 31 3a e3 52 25  3d 30 b8 32 0d 09 b0 15  |0.11:.R%=0.2....|
00001600  24 62 5f 6b 65 79 25 28  4b 25 2c 52 25 29 3d 22  |$b_key%(K%,R%)="|
00001610  22 0d 09 ba 06 ed 2c 0d  09 c4 30 c8 99 20 22 57  |".....,...0.. "W|
00001620  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00001630  2c 77 5f 6d 61 69 6e 25  2c 39 30 2c 2d 38 34 30  |,w_main%,90,-840|
00001640  2c 31 32 32 32 2c 30 0d  09 ce 12 f2 63 61 72 65  |,1222,0.....care|
00001650  74 5f 74 6f 28 31 2c 30  29 0d 09 d8 19 f2 72 65  |t_to(1,0).....re|
00001660  74 69 74 6c 65 28 66 6e  61 6d 65 24 2b 22 20 2a  |title(fname$+" *|
00001670  22 29 0d 09 e2 05 e1 0d  09 ec 05 3a 0d 09 f6 11  |").........:....|
00001680  2a 2a 2a 20 73 61 76 65  2f 6c 6f 61 64 0d 0a 00  |*** save/load...|
00001690  05 3a 0d 0a 0a 0f dd f2  61 63 6b 28 6d 73 67 25  |.:......ack(msg%|
000016a0  29 0d 0a 14 25 62 6c 6f  63 6b 25 21 31 32 3d 62  |)...%block%!12=b|
000016b0  6c 6f 63 6b 25 21 38 3a  62 6c 6f 63 6b 25 21 31  |lock%!8:block%!1|
000016c0  36 3d 6d 73 67 25 0d 0a  1e 2c c8 99 20 22 57 69  |6=msg%...,.. "Wi|
000016d0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000016e0  31 37 2c 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 25  |17,block%,block%|
000016f0  21 34 0d 0a 28 05 e1 0d  0a 32 05 3a 0d 0a 3c 14  |!4..(....2.:..<.|
00001700  dd f2 73 61 76 65 28 46  24 2c 73 74 61 79 25 29  |..save(F$,stay%)|
00001710  0d 0a 46 45 e7 20 a7 46  24 2c 22 2e 22 29 3d 30  |..FE. .F$,".")=0|
00001720  20 85 20 31 2c 22 54 6f  20 73 61 76 65 2c 20 64  | . 1,"To save, d|
00001730  72 61 67 20 66 69 6c 65  20 69 63 6f 6e 20 74 6f  |rag file icon to|
00001740  20 61 20 64 69 72 65 63  74 6f 72 79 20 76 69 65  | a directory vie|
00001750  77 65 72 2e 22 0d 0a 50  0c 43 25 3d ae 28 46 24  |wer."..P.C%=.(F$|
00001760  29 0d 0a 5a 20 f1 20 23  43 25 2c a4 67 65 74 5f  |)..Z . #C%,.get_|
00001770  73 74 72 69 6e 67 28 62  5f 6b 74 69 74 6c 65 25  |string(b_ktitle%|
00001780  29 0d 0a 64 14 e3 4b 25  3d 30 b8 31 31 3a e3 52  |)..d..K%=0.11:.R|
00001790  25 3d 30 b8 32 0d 0a 6e  24 f1 20 23 43 25 2c a4  |%=0.2..n$. #C%,.|
000017a0  67 65 74 5f 73 74 72 69  6e 67 28 62 5f 6b 65 79  |get_string(b_key|
000017b0  25 28 4b 25 2c 52 25 29  29 0d 0a 78 06 ed 2c 0d  |%(K%,R%))..x..,.|
000017c0  0a 82 09 d9 20 23 43 25  0d 0a 8c 1b c8 99 20 22  |.... #C%...... "|
000017d0  4f 53 5f 46 69 6c 65 22  2c 31 38 2c 46 24 2c 26  |OS_File",18,F$,&|
000017e0  37 46 42 0d 0a 96 10 f2  72 65 74 69 74 6c 65 28  |7FB.....retitle(|
000017f0  46 24 29 0d 0a a0 25 e7  20 ac 20 73 74 61 79 25  |F$)...%. . stay%|
00001800  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00001810  4d 65 6e 75 22 2c 2d 31  0d 0a aa 11 70 6f 73 5f  |Menu",-1....pos_|
00001820  63 61 72 65 74 25 3d 39  39 0d 0a b4 05 e1 0d 0a  |caret%=99.......|
00001830  be 05 3a 0d 0a c8 0e dd  f2 6c 6f 61 64 28 46 24  |..:......load(F$|
00001840  29 0d 0a d2 0c 43 25 3d  8e 28 46 24 29 0d 0a dc  |)....C%=.(F$)...|
00001850  14 e8 20 23 43 25 2c 24  62 5f 6b 74 69 74 6c 65  |.. #C%,$b_ktitle|
00001860  25 0d 0a e6 14 e3 4b 25  3d 30 b8 31 31 3a e3 52  |%.....K%=0.11:.R|
00001870  25 3d 30 b8 32 0d 0a f0  18 e8 20 23 43 25 2c 24  |%=0.2..... #C%,$|
00001880  62 5f 6b 65 79 25 28 4b  25 2c 52 25 29 0d 0a fa  |b_key%(K%,R%)...|
00001890  06 ed 2c 0d 0b 04 09 d9  20 23 43 25 0d 0b 0e 19  |..,..... #C%....|
000018a0  f2 73 68 6f 77 5f 77 69  6e 64 6f 77 28 77 5f 6d  |.show_window(w_m|
000018b0  61 69 6e 25 29 0d 0b 18  10 f2 72 65 74 69 74 6c  |ain%).....retitl|
000018c0  65 28 46 24 29 0d 0b 22  30 c8 99 20 22 57 69 6d  |e(F$).."0.. "Wim|
000018d0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
000018e0  5f 6d 61 69 6e 25 2c 39  30 2c 2d 38 34 30 2c 31  |_main%,90,-840,1|
000018f0  32 32 32 2c 30 0d 0b 2c  15 f2 63 61 72 65 74 5f  |222,0..,..caret_|
00001900  74 6f 28 31 2c 39 39 39  39 29 0d 0b 36 05 e1 0d  |to(1,9999)..6...|
00001910  0b 40 05 3a 0d 0b 4a 0c  2a 2a 2a 20 71 75 69 74  |.@.:..J.*** quit|
00001920  0d 0b 54 05 3a 0d 0b 5e  0a dd f2 71 75 69 74 0d  |..T.:..^...quit.|
00001930  0b 68 3e e7 20 6e 6f 5f  73 74 61 72 25 20 71 75  |.h>. no_star% qu|
00001940  69 74 25 3d b9 20 8b 20  c8 99 20 22 57 69 6d 70  |it%=. . .. "Wimp|
00001950  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 77 5f  |_CreateMenu",,w_|
00001960  71 75 69 74 25 2c 32 39  30 2c 37 30 30 0d 0b 72  |quit%,290,700..r|
00001970  05 e1 0d 0b 7c 05 3a 0d  0b 86 0d 2a 2a 2a 20 75  |....|.:....*** u|
00001980  74 69 6c 73 0d 0b 90 05  3a 0d 0b 9a 14 dd a4 67  |tils....:......g|
00001990  65 74 5f 73 74 72 69 6e  67 28 50 25 29 0d 0b a4  |et_string(P%)...|
000019a0  09 41 24 3d 22 22 0d 0b  ae 0d c8 95 20 3f 50 25  |.A$=""...... ?P%|
000019b0  3e 33 31 0d 0b b8 13 20  41 24 2b 3d bd 3f 50 25  |>31.... A$+=.?P%|
000019c0  3a 50 25 2b 3d 31 0d 0b  c2 05 ce 0d 0b cc 07 3d  |:P%+=1.........=|
000019d0  41 24 0d 0b d6 05 3a 0d  0b e0 11 dd f2 72 65 74  |A$....:......ret|
000019e0  69 74 6c 65 28 46 24 29  0d 0b ea 1b 6e 6f 5f 73  |itle(F$)....no_s|
000019f0  74 61 72 25 3d 28 c2 46  24 2c 32 29 3c 3e 22 20  |tar%=(.F$,2)<>" |
00001a00  2a 22 29 0d 0b f4 18 e7  20 6e 6f 5f 73 74 61 72  |*")..... no_star|
00001a10  25 20 66 6e 61 6d 65 24  3d 46 24 0d 0b fe 10 24  |% fname$=F$....$|
00001a20  62 5f 74 69 74 6c 65 25  3d 46 24 0d 0c 08 13 21  |b_title%=F$....!|
00001a30  62 6c 6f 63 6b 25 3d 77  5f 6d 61 69 6e 25 0d 0c  |block%=w_main%..|
00001a40  12 24 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.$.. "Wimp_GetWi|
00001a50  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00001a60  6b 25 0d 0c 1c 48 c8 99  20 22 57 69 6d 70 5f 46  |k%...H.. "Wimp_F|
00001a70  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 31 2c 62  |orceRedraw",-1,b|
00001a80  6c 6f 63 6b 25 21 34 2c  62 6c 6f 63 6b 25 21 31  |lock%!4,block%!1|
00001a90  36 2b 34 2c 62 6c 6f 63  6b 25 21 31 32 2c 62 6c  |6+4,block%!12,bl|
00001aa0  6f 63 6b 25 21 31 36 2b  33 36 0d 0c 26 05 e1 0d  |ock%!16+36..&...|
00001ab0  0c 30 05 3a 0d 0c 3a 12  2a 2a 2a 20 77 69 6d 70  |.0.:..:.*** wimp|
00001ac0  20 75 74 69 6c 73 0d 0c  44 05 3a 0d 0c 4e 39 dd  | utils..D.:..N9.|
00001ad0  f2 73 65 74 5f 69 63 6f  6e 5f 73 74 61 74 65 28  |.set_icon_state(|
00001ae0  21 62 6c 6f 63 6b 25 2c  62 6c 6f 63 6b 25 21 34  |!block%,block%!4|
00001af0  2c 62 6c 6f 63 6b 25 21  38 2c 62 6c 6f 63 6b 25  |,block%!8,block%|
00001b00  21 31 32 29 0d 0c 58 22  c8 99 20 22 57 69 6d 70  |!12)..X".. "Wimp|
00001b10  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00001b20  62 6c 6f 63 6b 25 0d 0c  62 05 e1 0d 0c 6c 05 3a  |block%..b....l.:|
00001b30  0d 0c 76 15 dd f2 63 61  72 65 74 5f 74 6f 28 49  |..v...caret_to(I|
00001b40  25 2c 58 25 29 0d 0c 80  11 70 6f 73 5f 63 61 72  |%,X%)....pos_car|
00001b50  65 74 25 3d 39 39 0d 0c  8a 33 c8 99 20 22 57 69  |et%=99...3.. "Wi|
00001b60  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00001b70  69 6f 6e 22 2c 77 5f 6d  61 69 6e 25 2c 49 25 2c  |ion",w_main%,I%,|
00001b80  58 25 2c 2c 2d 31 2c 2d  31 0d 0c 94 05 e1 0d 0c  |X%,,-1,-1.......|
00001b90  9e 05 3a 0d 0c a8 20 dd  f2 65 72 72 6f 72 28 21  |..:... ..error(!|
00001ba0  62 6c 6f 63 6b 25 2c 24  28 62 6c 6f 63 6b 25 2b  |block%,$(block%+|
00001bb0  34 29 29 0d 0c b2 2d c8  99 20 22 57 69 6d 70 5f  |4))...-.. "Wimp_|
00001bc0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 62 6c 6f  |ReportError",blo|
00001bd0  63 6b 25 2c 31 2c 22 4b  65 79 73 74 72 69 70 22  |ck%,1,"Keystrip"|
00001be0  0d 0c bc 05 e1 0d 0c c6  05 3a 0d 0c d0 12 2a 2a  |.........:....**|
00001bf0  2a 20 69 6e 69 74 69 61  6c 69 73 65 0d 0c da 05  |* initialise....|
00001c00  3a 0d 0c e4 10 dd f2 69  6e 69 74 69 61 6c 69 73  |:......initialis|
00001c10  65 0d 0c ee 31 c8 99 20  22 57 69 6d 70 5f 49 6e  |e...1.. "Wimp_In|
00001c20  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00001c30  42 35 33 34 31 35 34 2c  22 4b 65 79 73 74 72 69  |B534154,"Keystri|
00001c40  70 22 0d 0c f8 05 3a 0d  0d 02 21 de 20 62 6c 6f  |p"....:...!. blo|
00001c50  63 6b 25 20 31 30 32 33  2c 62 5f 6d 65 6e 75 25  |ck% 1023,b_menu%|
00001c60  20 32 38 2b 33 2a 32 34  0d 0d 0c 19 de 20 62 6c  | 28+3*24..... bl|
00001c70  6f 63 6b 24 28 31 34 29  2c 6c 69 6e 65 24 28 33  |ock$(14),line$(3|
00001c80  29 0d 0d 16 0b 71 75 69  74 25 3d a3 0d 0d 20 11  |)....quit%=... .|
00001c90  70 6f 73 5f 63 61 72 65  74 25 3d 2d 31 0d 0d 2a  |pos_caret%=-1..*|
00001ca0  05 3a 0d 0d 34 2c 41 25  3d a4 69 63 6f 6e 28 2d  |.:..4,A%=.icon(-|
00001cb0  31 2c 22 21 6b 65 79 73  74 72 69 70 22 2c 30 2c  |1,"!keystrip",0,|
00001cc0  30 2c 36 38 2c 36 38 2c  26 33 30 30 32 29 0d 0d  |0,68,68,&3002)..|
00001cd0  3e 05 3a 0d 0d 48 32 c8  99 20 22 57 69 6d 70 5f  |>.:..H2.. "Wimp_|
00001ce0  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 22  |OpenTemplate",,"|
00001cf0  3c 4f 62 65 79 24 44 69  72 3e 2e 54 65 6d 70 6c  |<Obey$Dir>.Templ|
00001d00  61 74 65 73 22 0d 0d 52  2d f2 6c 6f 61 64 5f 77  |ates"..R-.load_w|
00001d10  69 6e 64 6f 77 28 22 6d  61 69 6e 22 2c 62 5f 74  |indow("main",b_t|
00001d20  69 74 6c 65 25 2c 32 35  36 2c 77 5f 6d 61 69 6e  |itle%,256,w_main|
00001d30  25 29 0d 0d 5c 27 f2 6c  6f 61 64 5f 77 69 6e 64  |%)..\'.load_wind|
00001d40  6f 77 28 22 69 6e 66 6f  22 2c 41 25 2c 32 35 36  |ow("info",A%,256|
00001d50  2c 77 5f 69 6e 66 6f 25  29 0d 0d 66 2d f2 6c 6f  |,w_info%)..f-.lo|
00001d60  61 64 5f 77 69 6e 64 6f  77 28 22 73 61 76 65 22  |ad_window("save"|
00001d70  2c 62 5f 66 6e 61 6d 65  25 2c 32 35 36 2c 77 5f  |,b_fname%,256,w_|
00001d80  73 61 76 65 25 29 0d 0d  70 2b f2 6c 6f 61 64 5f  |save%)..p+.load_|
00001d90  77 69 6e 64 6f 77 28 22  71 75 69 74 22 2c 62 5f  |window("quit",b_|
00001da0  71 75 69 74 25 2c 38 32  2c 77 5f 71 75 69 74 25  |quit%,82,w_quit%|
00001db0  29 0d 0d 7a 4c 24 62 5f  71 75 69 74 25 3d 22 4b  |)..zL$b_quit%="K|
00001dc0  65 79 73 74 72 69 70 20  65 64 69 74 65 64 20 62  |eystrip edited b|
00001dd0  75 74 20 6e 6f 74 20 73  61 76 65 64 3a 20 61 72  |ut not saved: ar|
00001de0  65 20 79 6f 75 20 73 75  72 65 20 79 6f 75 20 77  |e you sure you w|
00001df0  61 6e 74 20 74 6f 20 71  75 69 74 3f 22 0d 0d 84  |ant to quit?"...|
00001e00  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
00001e10  65 6d 70 6c 61 74 65 22  0d 0d 8e 05 3a 0d 0d 98  |emplate"....:...|
00001e20  1a f2 72 65 74 69 74 6c  65 28 22 3c 55 6e 74 69  |..retitle("<Unti|
00001e30  74 6c 65 64 3e 22 29 0d  0d a2 12 de 20 62 5f 6b  |tled>")..... b_k|
00001e40  65 79 25 28 31 31 2c 32  29 0d 0d ac 30 de 20 62  |ey%(11,2)...0. b|
00001e50  5f 61 6c 6c 6f 77 25 20  31 38 3a 24 62 5f 61 6c  |_allow% 18:$b_al|
00001e60  6c 6f 77 25 3d 22 41 20  23 26 2a 2b 5c 2d 2f 3c  |low%="A #&*+\-/<|
00001e70  3e 3f 41 2d 5a 5c 5c 7c  22 0d 0d b6 32 41 25 3d  |>?A-Z\\|"...2A%=|
00001e80  a4 69 63 6f 6e 28 77 5f  6d 61 69 6e 25 2c 22 54  |.icon(w_main%,"T|
00001e90  49 54 4c 45 22 2c 30 2c  2d 34 34 2c 38 38 2c 32  |ITLE",0,-44,88,2|
00001ea0  38 2c 26 37 30 30 30 30  30 31 29 0d 0d c0 49 41  |8,&7000001)...IA|
00001eb0  25 3d a4 69 6e 64 5f 69  63 6f 6e 28 77 5f 6d 61  |%=.ind_icon(w_ma|
00001ec0  69 6e 25 2c 62 5f 6b 74  69 74 6c 65 25 2c 62 5f  |in%,b_ktitle%,b_|
00001ed0  61 6c 6c 6f 77 25 2c 34  35 2c 22 22 2c 38 38 2c  |allow%,45,"",88,|
00001ee0  2d 35 32 2c 37 33 32 2c  34 34 2c 26 37 30 30 46  |-52,732,44,&700F|
00001ef0  31 32 35 29 0d 0d ca 08  4b 25 3d 30 0d 0d d4 1b  |125)....K%=0....|
00001f00  e3 20 59 25 3d 2d 31 30  34 20 b8 20 2d 37 36 34  |. Y%=-104 . -764|
00001f10  20 88 20 2d 31 33 32 0d  0d de 16 e3 20 58 25 3d  | . -132..... X%=|
00001f20  30 20 b8 20 36 31 36 20  88 20 36 31 36 0d 0d e8  |0 . 616 . 616...|
00001f30  36 41 25 3d a4 69 63 6f  6e 28 77 5f 6d 61 69 6e  |6A%=.icon(w_main|
00001f40  25 2c 22 43 54 52 4c 22  2c 58 25 2b 31 36 2c 59  |%,"CTRL",X%+16,Y|
00001f50  25 2b 38 2c 37 32 2c 32  38 2c 26 37 30 30 30 30  |%+8,72,28,&70000|
00001f60  30 31 29 0d 0d f2 4e 41  25 3d a4 69 6e 64 5f 69  |01)...NA%=.ind_i|
00001f70  63 6f 6e 28 77 5f 6d 61  69 6e 25 2c 62 5f 6b 65  |con(w_main%,b_ke|
00001f80  79 25 28 4b 25 2c 30 29  2c 62 5f 61 6c 6c 6f 77  |y%(K%,0),b_allow|
00001f90  25 2c 33 32 2c 22 22 2c  58 25 2b 38 38 2c 59 25  |%,32,"",X%+88,Y%|
00001fa0  2c 35 32 34 2c 34 34 2c  26 37 30 30 46 31 32 35  |,524,44,&700F125|
00001fb0  29 0d 0d fc 35 41 25 3d  a4 69 63 6f 6e 28 77 5f  |)...5A%=.icon(w_|
00001fc0  6d 61 69 6e 25 2c 22 53  48 49 46 54 22 2c 58 25  |main%,"SHIFT",X%|
00001fd0  2c 59 25 2d 33 32 2c 38  38 2c 32 38 2c 26 37 30  |,Y%-32,88,28,&70|
00001fe0  30 30 30 30 31 29 0d 0e  06 51 41 25 3d a4 69 6e  |00001)...QA%=.in|
00001ff0  64 5f 69 63 6f 6e 28 77  5f 6d 61 69 6e 25 2c 62  |d_icon(w_main%,b|
00002000  5f 6b 65 79 25 28 4b 25  2c 31 29 2c 62 5f 61 6c  |_key%(K%,1),b_al|
00002010  6c 6f 77 25 2c 33 32 2c  22 22 2c 58 25 2b 38 38  |low%,32,"",X%+88|
00002020  2c 59 25 2d 34 30 2c 35  32 34 2c 34 34 2c 26 37  |,Y%-40,524,44,&7|
00002030  30 30 46 31 32 35 29 0d  0e 10 3c 41 25 3d a4 69  |00F125)...<A%=.i|
00002040  63 6f 6e 28 77 5f 6d 61  69 6e 25 2c 22 46 22 2b  |con(w_main%,"F"+|
00002050  c3 28 4b 25 2b 31 29 2c  58 25 2b 38 2c 59 25 2d  |.(K%+1),X%+8,Y%-|
00002060  38 30 2c 37 36 2c 34 34  2c 26 42 37 30 30 30 30  |80,76,44,&B70000|
00002070  32 44 29 0d 0e 1a 51 41  25 3d a4 69 6e 64 5f 69  |2D)...QA%=.ind_i|
00002080  63 6f 6e 28 77 5f 6d 61  69 6e 25 2c 62 5f 6b 65  |con(w_main%,b_ke|
00002090  79 25 28 4b 25 2c 32 29  2c 62 5f 61 6c 6c 6f 77  |y%(K%,2),b_allow|
000020a0  25 2c 33 32 2c 22 22 2c  58 25 2b 38 38 2c 59 25  |%,32,"",X%+88,Y%|
000020b0  2d 38 30 2c 35 32 34 2c  34 34 2c 26 37 30 30 46  |-80,524,44,&700F|
000020c0  31 32 35 29 0d 0e 24 0c  4b 25 2b 3d 31 3a ed 2c  |125)..$.K%+=1:.,|
000020d0  0d 0e 2e 05 3a 0d 0e 38  17 c8 99 20 22 4f 53 5f  |....:..8... "OS_|
000020e0  47 65 74 45 6e 76 22 20  b8 20 41 24 0d 0e 42 2b  |GetEnv" . A$..B+|
000020f0  46 24 3d c1 41 24 2c a7  41 24 2c 22 22 22 20 22  |F$=.A$,.A$,""" "|
00002100  29 2b 32 29 3a e7 20 46  24 3c 3e 22 22 20 f2 6c  |)+2):. F$<>"" .l|
00002110  6f 61 64 28 46 24 29 0d  0e 4c 05 e1 0d 0e 56 05  |oad(F$)..L....V.|
00002120  3a 0d 0e 60 15 2a 2a 2a  20 77 69 6d 70 20 72 6f  |:..`.*** wimp ro|
00002130  75 74 69 6e 65 73 0d 0e  6a 05 3a 0d 0e 74 2f dd  |utines..j.:..t/.|
00002140  f2 6c 6f 61 64 5f 77 69  6e 64 6f 77 28 6e 61 6d  |.load_window(nam|
00002150  65 24 2c f8 20 62 75 66  66 25 2c 6c 65 6e 25 2c  |e$,. buff%,len%,|
00002160  f8 20 68 61 6e 64 6c 65  25 29 0d 0e 7e 1b e7 20  |. handle%)..~.. |
00002170  6c 65 6e 25 3e 30 20 de  20 62 75 66 66 25 20 6c  |len%>0 . buff% l|
00002180  65 6e 25 2d 31 0d 0e 88  3e c8 99 20 22 57 69 6d  |en%-1...>.. "Wim|
00002190  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000021a0  2c 62 6c 6f 63 6b 25 2c  62 75 66 66 25 2c 62 75  |,block%,buff%,bu|
000021b0  66 66 25 2b 6c 65 6e 25  2c 2d 31 2c 6e 61 6d 65  |ff%+len%,-1,name|
000021c0  24 2c 30 0d 0e 92 0f 62  6c 6f 63 6b 25 21 36 34  |$,0....block%!64|
000021d0  3d 31 0d 0e 9c 2c c8 99  20 22 57 69 6d 70 5f 43  |=1...,.. "Wimp_C|
000021e0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
000021f0  6f 63 6b 25 20 b8 20 68  61 6e 64 6c 65 25 0d 0e  |ock% . handle%..|
00002200  a6 05 e1 0d 0e b0 05 3a  0d 0e ba 1a dd f2 73 68  |.......:......sh|
00002210  6f 77 5f 77 69 6e 64 6f  77 28 21 62 6c 6f 63 6b  |ow_window(!block|
00002220  25 29 0d 0e c4 24 c8 99  20 22 57 69 6d 70 5f 47  |%)...$.. "Wimp_G|
00002230  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00002240  62 6c 6f 63 6b 25 0d 0e  ce 10 62 6c 6f 63 6b 25  |block%....block%|
00002250  21 32 38 3d 2d 31 0d 0e  d8 20 c8 99 20 22 57 69  |!28=-1... .. "Wi|
00002260  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00002270  62 6c 6f 63 6b 25 0d 0e  e2 2f e7 20 28 28 28 62  |block%.../. (((b|
00002280  6c 6f 63 6b 25 21 33 32  29 3e 3e 31 36 29 80 31  |lock%!32)>>16).1|
00002290  29 3d 30 20 f2 63 61 72  65 74 5f 74 6f 28 31 2c  |)=0 .caret_to(1,|
000022a0  39 39 39 39 29 0d 0e ec  05 e1 0d 0e f6 05 3a 0d  |9999).........:.|
000022b0  0f 00 2f dd a4 69 63 6f  6e 28 21 62 6c 6f 63 6b  |../..icon(!block|
000022c0  25 2c 74 65 78 74 24 2c  58 25 2c 59 25 2c 57 25  |%,text$,X%,Y%,W%|
000022d0  2c 48 25 2c 62 6c 6f 63  6b 25 21 32 30 29 0d 0f  |,H%,block%!20)..|
000022e0  0a 1f 62 6c 6f 63 6b 25  21 34 3d 58 25 3a 62 6c  |..block%!4=X%:bl|
000022f0  6f 63 6b 25 21 31 32 3d  58 25 2b 57 25 0d 0f 14  |ock%!12=X%+W%...|
00002300  1f 62 6c 6f 63 6b 25 21  38 3d 59 25 3a 62 6c 6f  |.block%!8=Y%:blo|
00002310  63 6b 25 21 31 36 3d 59  25 2b 48 25 0d 0f 1e 22  |ck%!16=Y%+H%..."|
00002320  e7 20 74 65 78 74 24 3c  3e 22 22 20 24 28 62 6c  |. text$<>"" $(bl|
00002330  6f 63 6b 25 2b 32 34 29  3d 74 65 78 74 24 0d 0f  |ock%+24)=text$..|
00002340  28 25 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |(%.. "Wimp_Creat|
00002350  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
00002360  20 49 25 0d 0f 32 07 3d  49 25 0d 0f 3c 05 3a 0d  | I%..2.=I%..<.:.|
00002370  0f 46 40 dd a4 69 6e 64  5f 69 63 6f 6e 28 77 69  |.F@..ind_icon(wi|
00002380  6e 64 6f 77 25 2c f8 20  62 75 66 25 2c 62 6c 6f  |ndow%,. buf%,blo|
00002390  63 6b 25 21 32 38 2c 4c  25 2c 74 65 78 74 24 2c  |ck%!28,L%,text$,|
000023a0  58 25 2c 59 25 2c 57 25  2c 48 25 2c 46 25 29 0d  |X%,Y%,W%,H%,F%).|
000023b0  0f 50 19 de 20 62 75 66  25 20 4c 25 3a 24 62 75  |.P.. buf% L%:$bu|
000023c0  66 25 3d 74 65 78 74 24  0d 0f 5a 21 62 6c 6f 63  |f%=text$..Z!bloc|
000023d0  6b 25 21 32 34 3d 62 75  66 25 3a 62 6c 6f 63 6b  |k%!24=buf%:block|
000023e0  25 21 33 32 3d 4c 25 2b  31 0d 0f 64 25 3d a4 69  |%!32=L%+1..d%=.i|
000023f0  63 6f 6e 28 77 69 6e 64  6f 77 25 2c 22 22 2c 58  |con(window%,"",X|
00002400  25 2c 59 25 2c 57 25 2c  48 25 2c 46 25 29 0d 0f  |%,Y%,W%,H%,F%)..|
00002410  6e 05 3a 0d 0f 78 23 dd  f2 63 72 65 61 74 65 5f  |n.:..x#..create_|
00002420  6d 65 6e 75 28 4d 25 2c  74 69 74 6c 65 24 2c 77  |menu(M%,title$,w|
00002430  69 64 74 68 25 29 0d 0f  82 28 24 4d 25 3d 74 69  |idth%)...($M%=ti|
00002440  74 6c 65 24 3a 4d 25 21  31 32 3d 26 37 30 32 30  |tle$:M%!12=&7020|
00002450  37 3a 4d 25 21 31 36 3d  77 69 64 74 68 25 0d 0f  |7:M%!16=width%..|
00002460  8c 1d 4d 25 21 32 30 3d  34 34 3a 4d 25 21 32 34  |..M%!20=44:M%!24|
00002470  3d 30 3a 49 25 3d 4d 25  2b 32 38 0d 0f 96 05 e1  |=0:I%=M%+28.....|
00002480  0d 0f a0 05 3a 0d 0f aa  19 dd f2 6d 65 6e 75 5f  |....:......menu_|
00002490  69 74 65 6d 28 49 24 2c  46 25 2c 53 25 29 0d 0f  |item(I$,F%,S%)..|
000024a0  b4 20 21 49 25 3d 46 25  3a 49 25 21 34 3d 53 25  |. !I%=F%:I%!4=S%|
000024b0  3a 49 25 21 38 3d 26 37  30 30 30 30 32 31 0d 0f  |:I%!8=&7000021..|
000024c0  be 16 24 28 49 25 2b 31  32 29 3d 49 24 3a 49 25  |..$(I%+12)=I$:I%|
000024d0  2b 3d 32 34 0d 0f c8 05  e1 0d 0f d2 05 3a 0d 0f  |+=24.........:..|
000024e0  dc 1f 2a 2a 2a 20 73 69  64 65 77 61 79 73 20 63  |..*** sideways c|
000024f0  68 61 72 61 63 74 65 72  20 64 61 74 61 0d 0f e6  |haracter data...|
00002500  40 f4 20 63 68 61 72 61  63 74 65 72 20 6e 75 6d  |@. character num|
00002510  62 65 72 20 66 6f 6c 6c  6f 77 65 64 20 62 79 20  |ber followed by |
00002520  6e 69 6e 65 20 62 79 74  65 73 20 66 6f 72 20 6e  |nine bytes for n|
00002530  65 77 20 64 65 66 65 6e  69 74 69 6f 6e 0d 0f f0  |ew defenition...|
00002540  05 3a 0d 0f fa 25 dc 20  33 38 2c 31 31 34 2c 31  |.:...%. 38,114,1|
00002550  33 32 2c 38 2c 31 34 38  2c 33 34 2c 36 34 2c 31  |32,8,148,34,64,1|
00002560  34 34 2c 30 2c 39 36 0d  10 04 20 dc 20 34 33 2c  |44,0,96... . 43,|
00002570  31 36 2c 30 2c 31 36 2c  30 2c 32 35 35 2c 30 2c  |16,0,16,0,255,0,|
00002580  31 36 2c 30 2c 31 36 0d  10 0e 1c dc 20 34 35 2c  |16,0,16..... 45,|
00002590  30 2c 30 2c 30 2c 30 2c  32 35 35 2c 30 2c 30 2c  |0,0,0,0,255,0,0,|
000025a0  30 2c 30 0d 10 18 1d dc  20 36 30 2c 32 2c 34 2c  |0,0..... 60,2,4,|
000025b0  38 2c 31 36 2c 33 32 2c  31 36 2c 38 2c 34 2c 32  |8,16,32,16,8,4,2|
000025c0  0d 10 22 1e dc 20 36 32  2c 33 32 2c 31 36 2c 38  |..".. 62,32,16,8|
000025d0  2c 34 2c 32 2c 34 2c 38  2c 31 36 2c 33 32 0d 10  |,4,2,4,8,16,32..|
000025e0  2c 21 dc 20 36 33 2c 31  36 2c 30 2c 30 2c 31 36  |,!. 63,16,0,0,16|
000025f0  2c 31 32 2c 32 2c 30 2c  31 33 30 2c 31 32 34 0d  |,12,2,0,130,124.|
00002600  10 36 24 dc 20 36 35 2c  31 33 30 2c 30 2c 31 33  |.6$. 65,130,0,13|
00002610  30 2c 30 2c 32 35 34 2c  30 2c 31 33 30 2c 36 38  |0,0,254,0,130,68|
00002620  2c 35 36 0d 10 40 24 dc  20 36 36 2c 32 35 32 2c  |,56..@$. 66,252,|
00002630  32 2c 31 32 38 2c 32 2c  32 35 32 2c 32 2c 31 32  |2,128,2,252,2,12|
00002640  38 2c 32 2c 32 35 32 0d  10 4a 2c dc 20 36 37 2c  |8,2,252..J,. 67,|
00002650  31 32 34 2c 31 33 30 2c  31 32 38 2c 31 32 38 2c  |124,130,128,128,|
00002660  31 32 38 2c 31 32 38 2c  31 32 38 2c 31 33 30 2c  |128,128,128,130,|
00002670  31 32 34 0d 10 54 24 dc  20 36 38 2c 32 34 38 2c  |124..T$. 68,248,|
00002680  34 2c 31 33 30 2c 30 2c  31 33 30 2c 30 2c 31 33  |4,130,0,130,0,13|
00002690  30 2c 34 2c 32 34 38 0d  10 5e 24 dc 20 36 39 2c  |0,4,248..^$. 69,|
000026a0  32 35 34 2c 30 2c 31 32  38 2c 30 2c 32 34 30 2c  |254,0,128,0,240,|
000026b0  30 2c 31 32 38 2c 30 2c  32 35 34 0d 10 68 24 dc  |0,128,0,254..h$.|
000026c0  20 37 30 2c 31 32 38 2c  30 2c 31 32 38 2c 30 2c  | 70,128,0,128,0,|
000026d0  32 34 30 2c 30 2c 31 32  38 2c 30 2c 32 35 34 0d  |240,0,128,0,254.|
000026e0  10 72 27 dc 20 37 31 2c  31 32 36 2c 31 32 38 2c  |.r'. 71,126,128,|
000026f0  32 2c 31 32 38 2c 33 30  2c 31 32 38 2c 30 2c 31  |2,128,30,128,0,1|
00002700  32 38 2c 31 32 36 0d 10  7c 24 dc 20 37 32 2c 31  |28,126..|$. 72,1|
00002710  33 30 2c 30 2c 31 33 30  2c 30 2c 32 35 34 2c 30  |30,0,130,0,254,0|
00002720  2c 31 33 30 2c 30 2c 31  33 30 0d 10 86 21 dc 20  |,130,0,130...!. |
00002730  37 33 2c 31 32 34 2c 30  2c 31 36 2c 30 2c 31 36  |73,124,0,16,0,16|
00002740  2c 30 2c 31 36 2c 30 2c  31 32 34 0d 10 90 1f dc  |,0,16,0,124.....|
00002750  20 37 34 2c 31 31 32 2c  31 33 36 2c 30 2c 38 2c  | 74,112,136,0,8,|
00002760  30 2c 38 2c 30 2c 38 2c  35 34 0d 10 9a 26 dc 20  |0,8,0,8,54...&. |
00002770  37 35 2c 31 33 32 2c 38  2c 31 34 34 2c 33 32 2c  |75,132,8,144,32,|
00002780  31 39 32 2c 33 32 2c 31  34 34 2c 38 2c 31 33 32  |192,32,144,8,132|
00002790  0d 10 a4 24 dc 20 37 36  2c 32 35 32 2c 30 2c 31  |...$. 76,252,0,1|
000027a0  32 38 2c 30 2c 31 32 38  2c 30 2c 31 32 38 2c 30  |28,0,128,0,128,0|
000027b0  2c 31 32 38 0d 10 ae 27  dc 20 37 37 2c 31 33 30  |,128...'. 77,130|
000027c0  2c 30 2c 31 33 30 2c 31  36 2c 31 33 30 2c 31 36  |,0,130,16,130,16|
000027d0  2c 31 37 30 2c 36 38 2c  31 33 30 0d 10 b8 25 dc  |,170,68,130...%.|
000027e0  20 37 38 2c 31 33 30 2c  30 2c 31 33 34 2c 38 2c  | 78,130,0,134,8,|
000027f0  31 34 36 2c 33 32 2c 31  39 34 2c 30 2c 31 33 30  |146,32,194,0,130|
00002800  0d 10 c2 24 dc 20 38 30  2c 31 32 38 2c 30 2c 31  |...$. 80,128,0,1|
00002810  32 38 2c 30 2c 32 35 32  2c 32 2c 31 32 38 2c 32  |28,0,252,2,128,2|
00002820  2c 32 35 32 0d 10 cc 26  dc 20 38 31 2c 31 31 34  |,252...&. 81,114|
00002830  2c 31 33 32 2c 38 2c 31  34 36 2c 30 2c 31 33 30  |,132,8,146,0,130|
00002840  2c 30 2c 31 33 30 2c 31  32 34 0d 10 d6 25 dc 20  |,0,130,124...%. |
00002850  38 32 2c 31 33 30 2c 34  2c 31 33 36 2c 31 36 2c  |82,130,4,136,16,|
00002860  32 33 36 2c 32 2c 31 32  38 2c 32 2c 32 35 32 0d  |236,2,128,2,252.|
00002870  10 e0 26 dc 20 38 33 2c  31 32 34 2c 31 33 30 2c  |..&. 83,124,130,|
00002880  30 2c 32 2c 31 32 34 2c  31 32 38 2c 30 2c 31 33  |0,2,124,128,0,13|
00002890  30 2c 31 32 34 0d 10 ea  20 dc 20 38 34 2c 31 36  |0,124... . 84,16|
000028a0  2c 30 2c 31 36 2c 30 2c  31 36 2c 30 2c 31 36 2c  |,0,16,0,16,0,16,|
000028b0  30 2c 32 35 34 0d 10 f4  24 dc 20 38 35 2c 31 32  |0,254...$. 85,12|
000028c0  34 2c 30 2c 31 33 30 2c  30 2c 31 33 30 2c 30 2c  |4,0,130,0,130,0,|
000028d0  31 33 30 2c 30 2c 31 33  30 0d 10 fe 21 dc 20 38  |130,0,130...!. 8|
000028e0  36 2c 31 36 2c 30 2c 34  30 2c 30 2c 36 38 2c 30  |6,16,0,40,0,68,0|
000028f0  2c 31 33 30 2c 30 2c 31  33 30 0d 11 08 27 dc 20  |,130,0,130...'. |
00002900  38 37 2c 31 33 30 2c 36  38 2c 31 37 30 2c 31 36  |87,130,68,170,16|
00002910  2c 31 33 30 2c 31 36 2c  31 33 30 2c 30 2c 31 33  |,130,16,130,0,13|
00002920  30 0d 11 12 24 dc 20 38  38 2c 31 33 30 2c 36 38  |0...$. 88,130,68|
00002930  2c 34 30 2c 31 36 2c 30  2c 31 36 2c 34 30 2c 36  |,40,16,0,16,40,6|
00002940  38 2c 31 33 30 0d 11 1c  22 dc 20 38 39 2c 31 36  |8,130...". 89,16|
00002950  2c 30 2c 31 36 2c 30 2c  35 36 2c 36 38 2c 31 33  |,0,16,0,56,68,13|
00002960  30 2c 30 2c 31 33 30 0d  11 26 21 dc 20 39 30 2c  |0,0,130..&!. 90,|
00002970  32 35 34 2c 30 2c 36 34  2c 33 32 2c 31 36 2c 38  |254,0,64,32,16,8|
00002980  2c 34 2c 30 2c 32 35 34  0d 11 30 1d dc 20 39 37  |,4,0,254..0.. 97|
00002990  2c 31 36 2c 30 2c 31 36  2c 30 2c 33 31 2c 30 2c  |,16,0,16,0,31,0,|
000029a0  30 2c 30 2c 30 0d 11 3a  1e dc 20 39 38 2c 31 36  |0,0,0..:.. 98,16|
000029b0  2c 30 2c 31 36 2c 30 2c  32 35 35 2c 30 2c 30 2c  |,0,16,0,255,0,0,|
000029c0  30 2c 30 0d 11 44 1e dc  20 39 39 2c 31 36 2c 30  |0,0..D.. 99,16,0|
000029d0  2c 31 36 2c 30 2c 32 34  30 2c 30 2c 30 2c 30 2c  |,16,0,240,0,0,0,|
000029e0  30 0d 11 4e 21 dc 20 31  30 30 2c 31 36 2c 30 2c  |0..N!. 100,16,0,|
000029f0  31 36 2c 30 2c 32 34 30  2c 30 2c 31 36 2c 30 2c  |16,0,240,0,16,0,|
00002a00  31 36 0d 11 58 1f dc 20  31 30 31 2c 30 2c 30 2c  |16..X.. 101,0,0,|
00002a10  30 2c 30 2c 32 34 30 2c  30 2c 31 36 2c 30 2c 31  |0,0,240,0,16,0,1|
00002a20  36 0d 11 62 1f dc 20 31  30 32 2c 30 2c 30 2c 30  |6..b.. 102,0,0,0|
00002a30  2c 30 2c 32 35 35 2c 30  2c 31 36 2c 30 2c 31 36  |,0,255,0,16,0,16|
00002a40  0d 11 6c 1e dc 20 31 30  33 2c 30 2c 30 2c 30 2c  |..l.. 103,0,0,0,|
00002a50  30 2c 33 31 2c 30 2c 31  36 2c 30 2c 31 36 0d 11  |0,31,0,16,0,16..|
00002a60  76 20 dc 20 31 30 34 2c  31 36 2c 30 2c 31 36 2c  |v . 104,16,0,16,|
00002a70  30 2c 33 31 2c 30 2c 31  36 2c 30 2c 31 36 0d 11  |0,31,0,16,0,16..|
00002a80  80 20 dc 20 31 32 34 2c  31 36 2c 30 2c 31 36 2c  |. . 124,16,0,16,|
00002a90  30 2c 31 36 2c 30 2c 31  36 2c 30 2c 31 36 0d ff  |0,16,0,16,0,16..|
00002aa0