� > <CharDef$Dir>.!RunImage
K� *********************************************************************
&� Systemfont Character-(re)definer
(6� Copyright (C) Walther Schoonenberg, 19 sept 1989
2K� *********************************************************************
<
Fprogram$="CharDef"
P version$="1.00 (19-Sept-89)"
Zfilename$="CharFile"
d
n'� **** initialise program as a task
x� taskid%4:$taskid%="TASK"
�9ș "Wimp_Initialise",200,!taskid%,program$ � version%
�� � �errorbox:�
�*� **** datablock for wimp messages etc
�� q% 256
�/� **** datablock for window definitions etc
�� block% 1024
�4� **** workspace for indirected icons in windows
�/maxws%=&1400:� ws% maxws%:wsend%=ws%+maxws%
�� **** get window templates
�5ș "Wimp_OpenTemplate",,"<CharDef$Dir>.Templates"
�+� � ș "Wimp_CloseTemplate":�errorbox:�
�@ș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Own",0 � ,,ws%
�title%=block%!72

)ș "Wimp_CreateWindow",,block% � own%

Aș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Info",0 � ,,ws%

*ș "Wimp_CreateWindow",,block% � info%

"version%=�iconaddr(info%,4)

,$version%=version$

6Cș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Select",0 � ,,ws%

@,ș "Wimp_CreateWindow",,block% � select%

Jascii%=�iconaddr(select%,2)

TBș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Query",0 � ,,ws%

^+ș "Wimp_CreateWindow",,block% � query%

hGș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,"Saveboxff7",0 � ,,ws%

r)block%!64=1: � use common sprite area

|0ș "Wimp_CreateWindow",,block% � saveboxff7%

�&filename%=�iconaddr(saveboxff7%,2)

�$filename%=filename$

�saveref%=0

� $title%=�leafname(filename$)

�ș "Wimp_CloseTemplate"

�� � �errorbox:�

�� **** wimp colours

�I`wbcol=0:`tbcol=2:`sco=3:`mbcol=2:`wfcol=7:`tfcol=7:`sci=1:`tbcol2=12

�

�	�init

�

�quit%=�

�#mask%=1: � mask out null_reason
�
'  ș "Wimp_Poll",mask%,q% � reason%
  Ȏ reason% �
&  � 1: �redraw_window(!q%)
0D  � 2: �open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
:2  � 3: �close_window(!q%): � !q%=edit% �clear2
D8  � 6: �mouse_click(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
N  � 7: �decode_drag
X   � 8: �key_press(!q%,q%!24)
b  � 9: �menu_select
l/  � 17,18,19: �receive(reason%,q%!12,q%!16)
v  �
�� quit%
�ș "Wimp_CloseDown"
��
�
�L� **********************************************************************
�$� Application-dependent routines
�
�� �draw_own
�� I%=&20 � &FF
�  � I%<=&7F � I%>=&A0 �
�,    tab%=(I%-32) � 16:line%=(I%-32) � 16
�8    � bx%+basx%+2*chx%*tab%,by%-basy%-chy%*(5+line%)
�    � �(I%)
  �
�
�
 
*� �draw_grid
4� Y%=0 � YMAX%
>!  � bx%+XBASE,by%+YBASE-Y%*SY
H*  � bx%+XBASE+XMAX%*SX,by%+YBASE-Y%*SY
R�
\� X%=0 � XMAX%
f!  � bx%+XBASE+X%*SX,by%+YBASE
p*  � bx%+XBASE+X%*SX,by%+YBASE-YMAX%*SY
z�
��
�
�� �draw_edit
��draw_grid
�� Y%=1 � YMAX%
�  � X%=1 � XMAX%
�(    � dot%(X%,Y%)=1 �plot_dot(X%,Y%)
�  �
��
��
�
�� �draw_store
��draw_grid
� Y%=1 � YMAX%
  � X%=1 � XMAX%
-    � dotstore%(X%,Y%)=1 �plot_dot(X%,Y%)
$  �
.�
8�
B
L� �plot_dot(x%,y%)
V<ȓ Ȑ bx%+XBASE+(x%-1)*SX+4,by%+YBASE-y%*SY+8,SX-8,SY-16
`0� 69,bx%+xbase1+(x%-1)*2,by%+ybase1-(y%-1)*4
j<� dy%<4 � 69,bx%+xbase1+(x%-1)*2,by%+ybase1-(y%-1)*4-dy%
t�
~
�� �mirror_horizontal
�� Y%=1 � YMAX%
�  � X%=1 � XMAX%
�"    tempdot%(X%,1)=dot%(X%,Y%)
�  �
�  � X%=1 � XMAX%
�*    dot%(X%,Y%)=tempdot%(XMAX%-X%+1,1)
�  �
��
��redraw_window(edit%)
��
�
� �mirror_vertical

� X%=1 � XMAX%
  � Y%=1 � YMAX%
"    tempdot%(1,Y%)=dot%(X%,Y%)
(  �
2  � Y%=1 � YMAX%
<*    dot%(X%,Y%)=tempdot%(1,YMAX%-Y%+1)
F  �
P�
Z�redraw_window(edit%)
d�
n
x� �rotate_left
�� X%=1 � XMAX%
�  � Y%=1 � YMAX%
�#    tempdot%(X%,Y%)=dot%(X%,Y%)
�  �
��
�� X%=1 � XMAX%
�  � Y%=1 � YMAX%
�+    dot%(X%,Y%)=tempdot%(YMAX%-Y%+1,X%)
�  �
��
��redraw_window(edit%)
��
�
� �rotate_right
� X%=1 � XMAX%
  � Y%=1 � YMAX%
"#    tempdot%(X%,Y%)=dot%(X%,Y%)
,  �
6�
@� X%=1 � XMAX%
J  � Y%=1 � YMAX%
T+    dot%(X%,Y%)=tempdot%(Y%,XMAX%-X%+1)
^  �
h�
r�redraw_window(edit%)
|�
�
�� �shift_left
�� Y%=1 � YMAX%
�  � X%=2 � XMAX%
�!    dot%(X%-1,Y%)=dot%(X%,Y%)
�  �
�  dot%(XMAX%,Y%)=0
��
��redraw_window(edit%)
��
�
�� �shift_right
�� Y%=1 � YMAX%
  � X%=XMAX% � 2 � -1
!    dot%(X%,Y%)=dot%(X%-1,Y%)
  �
&  dot%(1,Y%)=0
0�
:�redraw_window(edit%)
D�
N
X� �shift_up
b� X%=1 � XMAX%
l  � Y%=2 � YMAX%
v!    dot%(X%,Y%-1)=dot%(X%,Y%)
�  �
�  dot%(X%,YMAX%)=0
��
��redraw_window(edit%)
��
�
�� �shift_down
�� X%=1 � XMAX%
�  � Y%=YMAX% � 2 � -1
�!    dot%(X%,Y%)=dot%(X%,Y%-1)
�  �
�  dot%(X%,1)=0
��
�redraw_window(edit%)
�

 � �store
*� X%=1 � XMAX%
4  � Y%=1 � YMAX%
>$    dotstore%(X%,Y%)=dot%(X%,Y%)
H  �
R�
\�front(store%)
f�
p
z� �restore
�� X%=1 � XMAX%
�  � Y%=1 � YMAX%
�$    dot%(X%,Y%)=dotstore%(X%,Y%)
�  �
��
��close_window(store%)
��redraw_window(edit%)
��
�
�� �install
�� code%
�� cnr%<&20 � cnr%>&FF �7:�
�
� 23,cnr%
	� Y%=1 � YMAX%
	
  code%=0
	  � X%=1 � XMAX%
	$'    � dot%(X%,Y%)=1 code%+=2^(8-X%)
	.  �
	8
  � code%
	B�
	L	sv%=�
	V%$title%=�leafname(filename$)+" *"
	`
�clear
	j�
	t
	~� �clear
	�� X%=1 � XMAX%
	�  � Y%=1 � YMAX%
	�    dot%(X%,Y%)=0
	�  �
	��
	��close_window(edit%)
	��clear2
	��
	�
	�
� �clear2
	�
cnr%=0
	�S%=�iconaddr(own%,0):$S%=""
Eș "Wimp_ForceRedraw",-1,0,0,scrx1%,scry1%: � redraw whole screen

�

� �select(x%,y%)
(� tab%,line%,n%
2<� cnr%<>0 �warningbox("Already a character selected!"):�
<2tab%=0.5*(x%-basx%)/chx%:line%=7-basy%-y%/chy%
Fn%=32+line%*16+tab%
P=� (n%>=&20 � n%<=&7F) � (n%>=&A0 � n%<=&FF) cnr%=n%: �old
Z�
d
n� �selectASCII
x<� cnr%<>0 �warningbox("Already a character selected!"):�
�n%=�($ascii%)
�1� (n%>=&20 � n%<=&7F) � (n%>=&A0 � n%<=&FF) �
�  ș "Wimp_CreateMenu",,-1
�
  cnr%=n%
�
  �old
��
�)  �warningbox("Illegal ASCII-value!")
��
��
�
�
� �old
�� code%
�� cnr%<&20 � cnr%>&FF �7:�
cblock?0=cnr%
ș "OS_Word",&0A,cblock
� Y%=1 � YMAX%
"  code%=cblock?Y%
,  � X%=1 � XMAX%
6&    dot%(X%,Y%)=code% � (2^(8-X%))
@'    � dot%(X%,Y%)=1 code%-=2^(8-X%)
J  �
T�
^$S%=�iconaddr(own%,0):$S%=�(cnr%)
h�redraw_window(own%)
r�front(edit%)
|�
�
�� �edit(x%,y%)
�� x0%,y0%,x1%,y1%
�x%=x%-XBASE:y%=YBASE-y%
�3� x%>=0 � x%<=XMAX%*SX � y%>=0 � y%<=YMAX%*SY �
�#  x%=(x% � SX)+1:y%=(y% � SY)+1
�3  � dot%(x%,y%)=1 dot%(x%,y%)=0 � dot%(x%,y%)=1
�)  x0%=XBASE+(x%-1)*SX:y0%=YBASE-y%*SY
�)  x1%=XBASE+x%*SX:y1%=YBASE-(y%-1)*SY
�0  � PROCupdate_window(edit%,x0%,y0%,x1%,y1%)
�'  x0%=xbase1:y0%=ybase1-(YMAX%-1)*4
�+  x1%=xbase1+(XMAX%-1)*2+2:y1%=ybase1+4
�0  � PROCupdate_window(edit%,x0%,y0%,x1%,y1%)
  �redraw_window(edit%)
�
�
&
0� �reset
:�("alphabet "+default$)
D	sv%=�
Nfilename$="CharFile"
X$filename%=filename$
b $title%=�leafname(filename$)
l
�clear
v�
�
�� �rtoz(p%)
�� q$
�ȕ ?p%<>0 q$+=�?p%:p%+=1:�
�=q$
�
�� �check_type
�type%=q%!40
�9� type%=&1000 �warningbox("Can't load a directory"):�
�<� type%=&2000 �warningbox("Can't load an application"):�
�:� type%<>&FF7 �warningbox("Must be a systemfont file")
��
�

� �load

� x%,id%

�check_type:� type%<>&FF7 �

 filename$=�rtoz(q%+44)

* $title%=�leafname(filename$)

4id%=�(filename$)

>ș "Hourglass_On"

Hȕ � �# id%

R5  x%=�# id%:� x%<>23 � 0,"Incorrect file format!"

\
  � x%

f?  x%=�# id%: � x%<&20 � x%>&FF � 0,"Incorrect file format!"

p
  � x%

z  � J%=0 � 7

�    x%=�# id%:� x%

�  �

��

�
�clear

�
�# id%

�ș "Hourglass_Off"

�Eș "Wimp_ForceRedraw",-1,0,0,scrx1%,scry1%: � redraw whole screen

��

�

�� �save

�� x%,id%

�filename$=$filename%

�� filename$="" �7:�
+ș "Wimp_CreateMenu",,-1: � remove menu
ș "Hourglass_On"
id%=�(filename$)
$� I%=&20 � &FF
.)  cblock?0=I%:ș "OS_Word",&0A,cblock
8  �# id%,23
B  �# id%,I%
L  � J%=0 � 7
V    x%=cblock?(J%+1)
`    �# id%,x%
j  �
t�
~
�# id%
�"�("Settype "+filename$+" FF7")
�	sv%=�
� $title%=�leafname(filename$)
�ș "Hourglass_Off"
��redraw_window(own%)
��close_window(saveboxff7%)
��
�
�� �init_application
�offset%=16:linefeed%=32
�figure%=1:colour%=1
�$chx%=16:chy%=36:basx%=4:basy%=12
XMAX%=8:YMAX%=8:SX=24:SY=48

� cblock 9
D� dot%(XMAX%,YMAX%),dotstore%(XMAX%,YMAX%),tempdot%(XMAX%,YMAX%)
OXBASE=50:YBASE=-30:xbase1=XBASE+(XMAX%+2)*SX:ybase1=YBASE-(YMAX%-1)*SY-SY/4
(+sv%=�: � true if modified and not saved
2#� dot% : bfont character-matrix
<)� cnr% : ascii-code current character
F
cnr%=0
P� X%=1 � XMAX%
Z  � Y%=1 � YMAX%
d(    dot%(X%,Y%)=0:dotstore%(X%,Y%)=0
n  �
x�
�default$="Latin1"
�edit%=-1
��
�
�� �init_menus
�"� datablock for menu structure
�menublocksize=268
�"noofmenus=9:� menu$(noofmenus)
�!noofdiagw=3:� sub%(noofdiagw)
�$menu$(1)=program$+",!1Info,Quit"
�sub%(1)=info%
�� iconmenu% 2*menublocksize
�$�create_menu(iconmenu%,menu$(1))
8menu$(2)=program$+",!1Info,!2Save,!3Select,(3)Reset"
;menu$(3)="Systemfont,Latin1,Latin2,Latin3,Latin4,Greek"
sub%(2)=saveboxff7%
"sub%(3)=select%
,� mainmenu% 3*menublocksize
6$�create_menu(mainmenu%,menu$(2))
@*menu$(4)="Edit,(5)Alter,Store,Install"
J1menu$(5)="Alter,(6)Rotate,(7)Mirror,(8)Shift"
T menu$(6)="Rotate,Left,Right"
^)menu$(7)="Mirror,Horizontal,Vertical"
h'menu$(8)="Shift,Left,Right,Up,Down"
r� editmenu% 5*menublocksize
|$�create_menu(editmenu%,menu$(4))
�menu$(5)="Store,Restore"
� � storemenu% 2*menublocksize
�%�create_menu(storemenu%,menu$(5))
��
�
�L� **********************************************************************
�
�� �savefile(f%,n$)
�� l$,c%,d$,d%
�
� f% �
�  l$=n$
��
�  l$=$filename%
Z  � �l$,".")=0 �warningbox("To save the file, drag the icon to a directory viewer."):�
�
	�save
&�
0
:%� �receive(reason%,ref%,message%)
D� name$,i%,x%
NȎ reason% �
X� 17,18
b  Ȏ message% �
l  � 0: � quit-message
v          quit%=�
�  � 1: � datasave-message
�?          � file dropped from application - return filename
�          !q%=256
�%          q%!12=q%!8:� copy myref
�*          q%!16=2:� set to DataLoadAck
�%          q%!36=-1:� unsafe file!
�,          $(q%+44)="<CharDef$Dir>.Scrap"
�          ?(q%+44+20)=0
�.          ș "Wimp_SendMessage",17,q%,q%!4
�          �
�  � 2: � ref%<>saveref% �
�>            �warningbox("Unexpected save packet received")
�            �
          �
          � q%!36=-1 �
)            �savefile(�,�rtoz(q%+44))
           �
*'            $filename%=�rtoz(q%+44)
4            �savefile(�,"")
>          �
H          !q%=256
R          q%!16=3
\          q%!12=q%!8
f5          ș "Wimp_SendMessage",17,q%,q%!20,q%!24
p  � 3: � dataload-message
z?          � file dropped from Filer - transfer to data file
�          �load
�@  � WHEN 4: REM acknowledgement of file loaded - delete file
�  �         PROCinit_system
�/  � WHEN &502: REM interactive help request
�'  �            PROCinteractive_help
�  � &400C1: �getmodeinfo
�  �
�� 19
�>  � ***** ack can only be if broadcast for file has failed
�  � $filename%=""
�1  � PROCpopup_savedbox(saveboxff7%,filename%)
��
��
 
8� �mouse_click(mousex%,mousey%,b%,handle%,icon%,ob%)
� x%,y%
$Ȏ b% �
.� 2: � menu-button clicked
8  Ȏ handle% �
B$  � store%: �do_menu(storemenu%)
L#  � edit%:  �do_menu(editmenu%)
V  � own%
`    $filename%=filename$
j    � sv% �
t+      $title%=�leafname(filename$)+" *"
~	    �
�&      $title%=�leafname(filename$)
�	    �
�    �do_menu(mainmenu%)
�  � -2: �do_menu(iconmenu%)
�  �
�,� 1,4: � select- or alter-button clicked
�A  � handle%>-1 � �getw(handle%):x%=mousex%-bx%:y%=mousey%-by%
�  Ȏ handle% �
�  � own%: �select(x%,y%)
�  � edit%: �edit(x%,y%)
�'  � select%: � icon%=0 �selectASCII
�.  � saveboxff7%: � icon%=0 �savefile(�,"")
8  � -2: � open% �front(own%) � �reopen(own%):open%=�

  �
� &40: � drag started
E  � handle%=saveboxff7% �drag_icon(mousex%,mousey%,saveboxff7%,3)
(�
2�
< 
F� �key_press(handle%,key%)
PȎ handle% �
Z
� select%
d8  � key%=13 �selectASCII � ș "Wimp_ProcessKey",key%
n� saveboxff7%
x;  � key%=13 �savefile(�,"") � ș "Wimp_ProcessKey",key%
��
��
�
�� �close_window(handle%)
��getw(handle%)
�xo%=x0%:yo%=y0%:open%=�
�)!q%=handle%:ș "Wimp_CloseWindow",,q%
��
�
�� �do_menu(block%)
�menu%=block%
�x� menu%=iconmenu% ș "Wimp_CreateMenu",,block%,mousex%-64,96+80 � ș "Wimp_CreateMenu",,block%,mousex%-32,mousey%+16
��

$� �create_menu(menublock%,text$)
� level%,crap%
"level%=0
,.crap%=�create_menu_level(menublock%,text$)
6?� crap%<>menublock% � 1,"Internal error in PROCcreate_menu"
@�
J
T*� �create_menu_level(menublock%,text$)
^M� newtext$,title$,ptr%,shade%,tick%,dotted%,fgcol%,submenu%,writable%,mb%
h'mb%=menublock%+level%*menublocksize
r title$=�text$,�text$,",")-1)
|text$=�text$,�text$,",")+1)
�$mb%=�title$,11)
�6mb%?12=`tfcol:mb%?13=2:mb%?14=`wfcol:mb%?15=`wbcol
�!mb%!16=180:mb%!20=40:mb%!24=0
�� �text$,1)<>"," text$+=","
�ptr%=mb%+28
��
�  shade%=0
�
  tick%=0
�  dotted%=0
�  writable%=0
�  submenu%=-1
�6  � �text$,1)="<" � shade%=&400000:text$=�text$,2)
�/  � �text$,1)=">" � tick%=1:text$=�text$,2)
1  � �text$,1)=":" � dotted%=2:text$=�text$,2)
S  �: IF LEFT$(text$,1)="*" THEN writable%=4:text$=MID$(text$,2) NOT SUPPORTED!!
k  �: IF LEFT$(text$,1)="#" THEN fgcol=EVAL("&"+MID$(text$,2,1)):text$=MID$(text$,3) NOT SUPPORTED !!!!!
&  � �text$,1)="!" �
0%    submenu%=sub%(�(�text$,2,1)))
:    text$=�text$,3)
D  �
N  � �text$,1)="(" �
X    text$=�text$,2)
b0    newtext$=menu$(�(�text$,�text$,")")-1)))
l#    text$=�text$,�text$,")")+1)
v    level%+=1
�8    submenu%=�create_menu_level(menublock%,newtext$)
�  �
�  �:IF writable% THEN
�    �:i%=INSTR(text$,"|")
�)    �:ptr%!12=EVAL(LEFT$(text$,i%-1))
�     �:text$=MID$(text$,i%+1)
�    �:ptr%!16=-1
�5    �:ptr%!20=EVAL(LEFT$(text$,INSTR(text$,",")))
�+    �:mb%!16=FNmax(mb%!16,4+16*ptr%!20)
�  �:ELSE
�+  $(ptr%+12)=��text$,�text$,",")-1),11)
�
  �:ENDIF
�!  text$=�text$,�text$,",")+1)
=  ptr%!0=tick% � dotted% � writable% � (&80 � (text$=""))
  ptr%!4=submenu%
L  � shade% � ptr%!8=&400000 � &010021 � 7<<28 � 0<<24 � ptr%!8=&07000021
   ptr%+=24
*� text$=""
4=mb%
>
H� �menu_select
R� menu$,adjust%
\;ș "Wimp_GetPointerInfo",,block%:adjust%=(block%!8 � 1)
fȎ menu% �
p� mainmenu%
z;  ș "Wimp_DecodeMenu",,mainmenu%,q%,�200," ")�,,,menu$
�  Ȏ menu$ �
�0  � "Reset.Latin1": default$="Latin1":�reset
�0  � "Reset.Latin2": default$="Latin2":�reset
�0  � "Reset.Latin3": default$="Latin3":�reset
�0  � "Reset.Latin4": default$="Latin4":�reset
�/  � "Reset.Greek":  default$="Greek":�reset
�  �
�� storemenu%
�<  ș "Wimp_DecodeMenu",,storemenu%,q%,�200," ")�,,,menu$
�  Ȏ menu$ �
�  � "Restore": �restore
�  �
�� editmenu%
;  ș "Wimp_DecodeMenu",,editmenu%,q%,�200," ")�,,,menu$
  Ȏ menu$ �
)  � "Alter.Rotate.Left": �rotate_left
$+  � "Alter.Rotate.Right": �rotate_right
.5  � "Alter.Mirror.Horizontal": �mirror_horizontal
81  � "Alter.Mirror.Vertical": �mirror_vertical
B'  � "Alter.Shift.Left": �shift_left
L)  � "Alter.Shift.Right": �shift_right
V#  � "Alter.Shift.Up": �shift_up
`'  � "Alter.Shift.Down": �shift_down
j  � "Store": �store
t  � "Install": �install
~  �
�� iconmenu%
�;  ș "Wimp_DecodeMenu",,iconmenu%,q%,�200," ")�,,,menu$
�  � menu$="Quit":quit%=�
��
�� adjust% �do_menu(menu%)
��
� 
�� �redraw_window(handle%)
�E� IF handle%<>info% AND handle%<>own% ENDPROC: REM ???? nodig ???
�!q%=handle%
�&ș "Wimp_RedrawWindow",,q% � more%
��draw_window(handle%)
�


1� �update_window(handle%,ux0%,uy0%,ux1%,uy1%)
9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
(&ș "Wimp_UpdateWindow",,q% � more%
2�draw_window(handle%)
<�
F 
P� �draw_window(handle%)
Z�info(q%+4)
dȕ more%
n  Ȏ handle% �
x  � store%: �draw_store
�  � edit%: �draw_edit
�  � own%:  �draw_own
�  �
�(  ș "Wimp_GetRectangle",,q% � more%
��
��
� 
�e� �create_window(cx0%,cy0%,cx1%,cy1%,scx%,scy%,flags%,fc%,bc%,sx0%,sy0%,sx1%,sy1%,titlef%,title$)
�;!block%=cx0%:block%!4=cy0%:block%!8=cx1%:block%!12=cy1%
�!block%!16=scx%:block%!20=scy%
�!block%!24=-1:block%!28=flags%
�� fc%=15 � bc%=15 �
�;  block%?32=15:block%?33=15:block%?34=fc%:block%?35=bc%
�
C  block%?32=`tfcol:block%?33=`tbcol:block%?34=fc%:block%?35=bc%
�
"?block%?36=`sco:block%?37=`sci:block%?38=`tbcol2:block%?39=0
,?block%!40=sx0%:block%!44=sy0%:block%!48=sx1%:block%!52=sy1%
6block%!56=titlef%
@/block%!60=&3000         : � work area flags
J(block%!64=0:block%!68=0 : � reserved
T$(block%+72)=�title$,11)
^2block%!84=0: � ICONS IN WINDOW NOT IMPLEMENTED
h,ș "Wimp_CreateWindow",,block% � handle%
r=handle%
|
�� �front(handle%)
�� handle%=-1 � �
��getw(handle%)
�6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
��
� 
�� �popup(handle%)
��getw(handle%)
�0xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
�F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
��
� 
�� �reopen(handle%)
�getw(handle%)
F�open_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
�
& 
0>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
:� handle%=-1 � �
D'block%!0=handle%:block%!28=bhandle%
N9block%!4=x0%:block%!8=y0%:block%!12=x1%:block%!16=y1%
X!block%!20=scx%:block%!24=scy%
b ș "Wimp_OpenWindow",,block%
l�
v 
�� �getw(handle%)
�4!block%=handle%:ș "Wimp_GetWindowState",,block%
�7�info(block%+4):bhandle%=block%!28:flags%=block%!32
��
� 
�� �info(block%)
�Ux0%=!block%:y0%=block%!4:x1%=block%!8:y1%=block%!12:scx%=block%!16:scy%=block%!20
�bx%=x0%-scx%:by%=y1%-scy%
��
� 
�� �getpointer
�$ș "Wimp_GetPointerInfo",,block%
�`mousex%=!block%:mousey%=block%!4:b%=block%!8:handle%=block%!12:icon%=block%!16:ob%=block%!20
�
 
� �iconbar
 J!q%=-1:q%!4=0:q%!8=0:q%!12=69:q%!16=68:q%!20=&3002:$(q%+24)="!chardef"
*"ș "Wimp_CreateIcon",,q% � ic%
4=ic%
> 
H� �set_colour(c%)
Rș "Wimp_SetColour",c%
\�
f
p� �set_line(l%)
z"� bx%+offset%,by%-linefeed%*l%
��
�
�� �init
��init_application
��:PROCinit_sprites
��init_menus
��init_wimp
��
�
�� �init_sprites
�� install user sprites
�0S%=�"<CharDef$Dir>.!Sprites":T%=�#S%+16:�#S%
�� sprites% T%
!sprites%=T%:sprites%!8=1
"ș "OS_SpriteOp",&109,sprites%
;ș "OS_SpriteOp",&10A,sprites%,"<CharDef$Dir>.!Sprites"
$�
.
8� �init_wimp
BVedit%=�create_window(100,-430,350+100,0,0,0,%1111,7,0,0,-430,350,0,%101101,"Edit")
LXstore%=�create_window(200,-430,350+200,0,0,0,%1111,7,0,0,-430,350,0,%101101,"Store")
Viconbar%=�iconbar
`�getmodeinfo
jopen%=�
tH�getpointer:xo%=mousex%:yo%=mousey%: � only necessary if open%=FALSE
~�
�
�� �getmodeinfo
�block%!0=4
�block%!4=5
�block%!8=11
�block%!12=12
�block%!16=-1
�-ș "OS_ReadVduVariables",block%,block%+20
�dx%=1<<(block%!20)
�dy%=1<<(block%!24)
�scrx1%=(block%!28+1)*dx%
�scry1%=(block%!32+1)*dy%
�


� �iconaddr(h%,i%)
-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
(8� (q%!24 � &100)=0 � �moan("Icon is not indirected")
2
=q%!28
<
F/� �drag_icon(mousex%,mousey%,handle%,icon%)
P!� bx%,by%,ix0%,ix1%,iy0%,iy1%
Z,!q%=handle%:ș "Wimp_GetWindowState",,q%
dbx%=q%!4-q%!20
nby%=q%!16-q%!24
x5!q%=handle%:q%!4=icon%:ș "Wimp_GetIconState",,q%
�
ix0%=q%!8
�iy0%=q%!12
�ix1%=q%!16
�iy1%=q%!20
�!q%=handle%
�
q%!4=5
�q%!8=bx%+ix0%
�q%!12=by%+iy0%
�q%!16=bx%+ix1%
�q%!20=by%+iy1%
�q%!24=q%!8-mousex%
�q%!28=q%!12-mousey%
�q%!32=scrx1%+q%!16-mousex%
q%!36=scry1%+q%!20-mousey%
ș "Wimp_DragBox",,q%
�
"
,� �decode_drag
6� f%,h%,i%,mx%,my%,ext%
@f%=�leafname_ptr(filename%)
J ș "Wimp_GetPointerInfo",,q%
Tmx%=!q%
^my%=q%!4
hh%=q%!12
ri%=q%!16
|+� h%=saveboxff7% �:� dropped on myself!
�!q%=256
�q%!12=0
�q%!16=1
�q%!20=h%
�q%!24=i%
�
q%!28=mx%
�
q%!32=my%
�q%!36=2240
�q%!40=&FF7
�$(q%+44)=$f%
�?(q%+44+�$(q%+44))=0
�%ș "Wimp_SendMessage",17,q%,h%,i%
�saveref%=q%!8
 �
 
 � �leafname_ptr(f1%)
 &	� f2%
 0�
 : f2%=f1%
 D f1%+=�$f1%,".")
 N
� f1%=f2%
 X=f1%
 b
 l� �leafname(f$)
 v� i%
 ��
 �  i%=�f$,".")
 �  � i%<>0 f$=�f$,i%+1)
 �
� i%=0
 �=f$
 �
 �� �moan(report$)
 �� &20000,report$
 ��
 �
 �� �warningbox(warning$)
 �!q%=0:$(q%+4)=warning$+�0
 �'ș "Wimp_ReportError",q%,1,program$
!�
!
!� �errorbox
! � �
!*� � � ș "Wimp_CloseDown":�
!4&!q%=�:$(q%+4)=�$+" at line "+Þ+�0
!>'ș "Wimp_ReportError",q%,1,program$
!Hș "Wimp_CloseDown"
!R�
!\
!f� ***EOF***
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 43 68 61 72 44 65 66  |..... > <CharDef|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 4b f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..K. ***********|
00000030  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000060  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 00 1e 26 f4 20  |**********...&. |
00000070  53 79 73 74 65 6d 66 6f  6e 74 20 43 68 61 72 61  |Systemfont Chara|
00000080  63 74 65 72 2d 28 72 65  29 64 65 66 69 6e 65 72  |cter-(re)definer|
00000090  0d 00 28 36 f4 20 43 6f  70 79 72 69 67 68 74 20  |..(6. Copyright |
000000a0  28 43 29 20 57 61 6c 74  68 65 72 20 53 63 68 6f  |(C) Walther Scho|
000000b0  6f 6e 65 6e 62 65 72 67  2c 20 31 39 20 73 65 70  |onenberg, 19 sep|
000000c0  74 20 31 39 38 39 0d 00  32 4b f4 20 2a 2a 2a 2a  |t 1989..2K. ****|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000110  2a 0d 00 3c 04 0d 00 46  16 70 72 6f 67 72 61 6d  |*..<...F.program|
00000120  24 3d 22 43 68 61 72 44  65 66 22 0d 00 50 20 76  |$="CharDef"..P v|
00000130  65 72 73 69 6f 6e 24 3d  22 31 2e 30 30 20 28 31  |ersion$="1.00 (1|
00000140  39 2d 53 65 70 74 2d 38  39 29 22 0d 00 5a 18 66  |9-Sept-89)"..Z.f|
00000150  69 6c 65 6e 61 6d 65 24  3d 22 43 68 61 72 46 69  |ilename$="CharFi|
00000160  6c 65 22 0d 00 64 04 0d  00 6e 27 f4 20 2a 2a 2a  |le"..d...n'. ***|
00000170  2a 20 69 6e 69 74 69 61  6c 69 73 65 20 70 72 6f  |* initialise pro|
00000180  67 72 61 6d 20 61 73 20  61 20 74 61 73 6b 0d 00  |gram as a task..|
00000190  78 1e de 20 74 61 73 6b  69 64 25 34 3a 24 74 61  |x.. taskid%4:$ta|
000001a0  73 6b 69 64 25 3d 22 54  41 53 4b 22 0d 00 82 39  |skid%="TASK"...9|
000001b0  c8 99 20 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |.. "Wimp_Initial|
000001c0  69 73 65 22 2c 32 30 30  2c 21 74 61 73 6b 69 64  |ise",200,!taskid|
000001d0  25 2c 70 72 6f 67 72 61  6d 24 20 b8 20 76 65 72  |%,program$ . ver|
000001e0  73 69 6f 6e 25 0d 00 8c  13 ee 20 85 20 f2 65 72  |sion%..... . .er|
000001f0  72 6f 72 62 6f 78 3a e0  0d 00 96 2a f4 20 2a 2a  |rorbox:....*. **|
00000200  2a 2a 20 64 61 74 61 62  6c 6f 63 6b 20 66 6f 72  |** datablock for|
00000210  20 77 69 6d 70 20 6d 65  73 73 61 67 65 73 20 65  | wimp messages e|
00000220  74 63 0d 00 a0 0c de 20  71 25 20 32 35 36 0d 00  |tc..... q% 256..|
00000230  aa 2f f4 20 2a 2a 2a 2a  20 64 61 74 61 62 6c 6f  |./. **** datablo|
00000240  63 6b 20 66 6f 72 20 77  69 6e 64 6f 77 20 64 65  |ck for window de|
00000250  66 69 6e 69 74 69 6f 6e  73 20 65 74 63 0d 00 b4  |finitions etc...|
00000260  11 de 20 62 6c 6f 63 6b  25 20 31 30 32 34 0d 00  |.. block% 1024..|
00000270  be 34 f4 20 2a 2a 2a 2a  20 77 6f 72 6b 73 70 61  |.4. **** workspa|
00000280  63 65 20 66 6f 72 20 69  6e 64 69 72 65 63 74 65  |ce for indirecte|
00000290  64 20 69 63 6f 6e 73 20  69 6e 20 77 69 6e 64 6f  |d icons in windo|
000002a0  77 73 0d 00 c8 2f 6d 61  78 77 73 25 3d 26 31 34  |ws.../maxws%=&14|
000002b0  30 30 3a de 20 77 73 25  20 6d 61 78 77 73 25 3a  |00:. ws% maxws%:|
000002c0  77 73 65 6e 64 25 3d 77  73 25 2b 6d 61 78 77 73  |wsend%=ws%+maxws|
000002d0  25 0d 00 d2 1f f4 20 2a  2a 2a 2a 20 67 65 74 20  |%..... **** get |
000002e0  77 69 6e 64 6f 77 20 74  65 6d 70 6c 61 74 65 73  |window templates|
000002f0  0d 00 dc 35 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...5.. "Wimp_Ope|
00000300  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 22 3c 43 68  |nTemplate",,"<Ch|
00000310  61 72 44 65 66 24 44 69  72 3e 2e 54 65 6d 70 6c  |arDef$Dir>.Templ|
00000320  61 74 65 73 22 0d 00 e6  2b ee 20 85 20 c8 99 20  |ates"...+. . .. |
00000330  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000340  61 74 65 22 3a f2 65 72  72 6f 72 62 6f 78 3a e0  |ate":.errorbox:.|
00000350  0d 00 f0 40 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...@.. "Wimp_Loa|
00000360  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00000370  6b 25 2c 77 73 25 2c 77  73 65 6e 64 25 2c 2d 31  |k%,ws%,wsend%,-1|
00000380  2c 22 4f 77 6e 22 2c 30  20 b8 20 2c 2c 77 73 25  |,"Own",0 . ,,ws%|
00000390  0d 00 fa 14 74 69 74 6c  65 25 3d 62 6c 6f 63 6b  |....title%=block|
000003a0  25 21 37 32 0d 01 04 29  c8 99 20 22 57 69 6d 70  |%!72...).. "Wimp|
000003b0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000003c0  62 6c 6f 63 6b 25 20 b8  20 6f 77 6e 25 0d 01 0e  |block% . own%...|
000003d0  41 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |A.. "Wimp_LoadTe|
000003e0  6d 70 6c 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 2c  |mplate",,block%,|
000003f0  77 73 25 2c 77 73 65 6e  64 25 2c 2d 31 2c 22 49  |ws%,wsend%,-1,"I|
00000400  6e 66 6f 22 2c 30 20 b8  20 2c 2c 77 73 25 0d 01  |nfo",0 . ,,ws%..|
00000410  18 2a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.*.. "Wimp_Creat|
00000420  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00000430  20 b8 20 69 6e 66 6f 25  0d 01 22 1f 76 65 72 73  | . info%..".vers|
00000440  69 6f 6e 25 3d a4 69 63  6f 6e 61 64 64 72 28 69  |ion%=.iconaddr(i|
00000450  6e 66 6f 25 2c 34 29 0d  01 2c 16 24 76 65 72 73  |nfo%,4)..,.$vers|
00000460  69 6f 6e 25 3d 76 65 72  73 69 6f 6e 24 0d 01 36  |ion%=version$..6|
00000470  43 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |C.. "Wimp_LoadTe|
00000480  6d 70 6c 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 2c  |mplate",,block%,|
00000490  77 73 25 2c 77 73 65 6e  64 25 2c 2d 31 2c 22 53  |ws%,wsend%,-1,"S|
000004a0  65 6c 65 63 74 22 2c 30  20 b8 20 2c 2c 77 73 25  |elect",0 . ,,ws%|
000004b0  0d 01 40 2c c8 99 20 22  57 69 6d 70 5f 43 72 65  |..@,.. "Wimp_Cre|
000004c0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |ateWindow",,bloc|
000004d0  6b 25 20 b8 20 73 65 6c  65 63 74 25 0d 01 4a 1f  |k% . select%..J.|
000004e0  61 73 63 69 69 25 3d a4  69 63 6f 6e 61 64 64 72  |ascii%=.iconaddr|
000004f0  28 73 65 6c 65 63 74 25  2c 32 29 0d 01 54 42 c8  |(select%,2)..TB.|
00000500  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000510  6c 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 2c 77 73  |late",,block%,ws|
00000520  25 2c 77 73 65 6e 64 25  2c 2d 31 2c 22 51 75 65  |%,wsend%,-1,"Que|
00000530  72 79 22 2c 30 20 b8 20  2c 2c 77 73 25 0d 01 5e  |ry",0 . ,,ws%..^|
00000540  2b c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |+.. "Wimp_Create|
00000550  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 20  |Window",,block% |
00000560  b8 20 71 75 65 72 79 25  0d 01 68 47 c8 99 20 22  |. query%..hG.. "|
00000570  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000580  65 22 2c 2c 62 6c 6f 63  6b 25 2c 77 73 25 2c 77  |e",,block%,ws%,w|
00000590  73 65 6e 64 25 2c 2d 31  2c 22 53 61 76 65 62 6f  |send%,-1,"Savebo|
000005a0  78 66 66 37 22 2c 30 20  b8 20 2c 2c 77 73 25 0d  |xff7",0 . ,,ws%.|
000005b0  01 72 29 62 6c 6f 63 6b  25 21 36 34 3d 31 3a 20  |.r)block%!64=1: |
000005c0  f4 20 75 73 65 20 63 6f  6d 6d 6f 6e 20 73 70 72  |. use common spr|
000005d0  69 74 65 20 61 72 65 61  0d 01 7c 30 c8 99 20 22  |ite area..|0.. "|
000005e0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000005f0  77 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 73 61 76  |w",,block% . sav|
00000600  65 62 6f 78 66 66 37 25  0d 01 86 26 66 69 6c 65  |eboxff7%...&file|
00000610  6e 61 6d 65 25 3d a4 69  63 6f 6e 61 64 64 72 28  |name%=.iconaddr(|
00000620  73 61 76 65 62 6f 78 66  66 37 25 2c 32 29 0d 01  |saveboxff7%,2)..|
00000630  90 18 24 66 69 6c 65 6e  61 6d 65 25 3d 66 69 6c  |..$filename%=fil|
00000640  65 6e 61 6d 65 24 0d 01  9a 0e 73 61 76 65 72 65  |ename$....savere|
00000650  66 25 3d 30 0d 01 a4 20  24 74 69 74 6c 65 25 3d  |f%=0... $title%=|
00000660  a4 6c 65 61 66 6e 61 6d  65 28 66 69 6c 65 6e 61  |.leafname(filena|
00000670  6d 65 24 29 0d 01 ae 1b  c8 99 20 22 57 69 6d 70  |me$)...... "Wimp|
00000680  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
00000690  01 b8 13 ee 20 85 20 f2  65 72 72 6f 72 62 6f 78  |.... . .errorbox|
000006a0  3a e0 0d 01 c2 17 f4 20  2a 2a 2a 2a 20 77 69 6d  |:...... **** wim|
000006b0  70 20 63 6f 6c 6f 75 72  73 0d 01 cc 49 60 77 62  |p colours...I`wb|
000006c0  63 6f 6c 3d 30 3a 60 74  62 63 6f 6c 3d 32 3a 60  |col=0:`tbcol=2:`|
000006d0  73 63 6f 3d 33 3a 60 6d  62 63 6f 6c 3d 32 3a 60  |sco=3:`mbcol=2:`|
000006e0  77 66 63 6f 6c 3d 37 3a  60 74 66 63 6f 6c 3d 37  |wfcol=7:`tfcol=7|
000006f0  3a 60 73 63 69 3d 31 3a  60 74 62 63 6f 6c 32 3d  |:`sci=1:`tbcol2=|
00000700  31 32 0d 01 d6 04 0d 01  e0 09 f2 69 6e 69 74 0d  |12.........init.|
00000710  01 ea 04 0d 01 f4 0b 71  75 69 74 25 3d a3 0d 01  |.......quit%=...|
00000720  fe 23 6d 61 73 6b 25 3d  31 3a 20 f4 20 6d 61 73  |.#mask%=1: . mas|
00000730  6b 20 6f 75 74 20 6e 75  6c 6c 5f 72 65 61 73 6f  |k out null_reaso|
00000740  6e 0d 02 08 05 f5 0d 02  12 27 20 20 c8 99 20 22  |n........'  .. "|
00000750  57 69 6d 70 5f 50 6f 6c  6c 22 2c 6d 61 73 6b 25  |Wimp_Poll",mask%|
00000760  2c 71 25 20 b8 20 72 65  61 73 6f 6e 25 0d 02 1c  |,q% . reason%...|
00000770  12 20 20 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |.  .. reason% ..|
00000780  02 26 1e 20 20 c9 20 31  3a 20 f2 72 65 64 72 61  |.&.  . 1: .redra|
00000790  77 5f 77 69 6e 64 6f 77  28 21 71 25 29 0d 02 30  |w_window(!q%)..0|
000007a0  44 20 20 c9 20 32 3a 20  f2 6f 70 65 6e 5f 77 69  |D  . 2: .open_wi|
000007b0  6e 64 6f 77 28 21 71 25  2c 71 25 21 34 2c 71 25  |ndow(!q%,q%!4,q%|
000007c0  21 38 2c 71 25 21 31 32  2c 71 25 21 31 36 2c 71  |!8,q%!12,q%!16,q|
000007d0  25 21 32 30 2c 71 25 21  32 34 2c 71 25 21 32 38  |%!20,q%!24,q%!28|
000007e0  29 0d 02 3a 32 20 20 c9  20 33 3a 20 f2 63 6c 6f  |)..:2  . 3: .clo|
000007f0  73 65 5f 77 69 6e 64 6f  77 28 21 71 25 29 3a 20  |se_window(!q%): |
00000800  e7 20 21 71 25 3d 65 64  69 74 25 20 f2 63 6c 65  |. !q%=edit% .cle|
00000810  61 72 32 0d 02 44 38 20  20 c9 20 36 3a 20 f2 6d  |ar2..D8  . 6: .m|
00000820  6f 75 73 65 5f 63 6c 69  63 6b 28 21 71 25 2c 71  |ouse_click(!q%,q|
00000830  25 21 34 2c 71 25 21 38  2c 71 25 21 31 32 2c 71  |%!4,q%!8,q%!12,q|
00000840  25 21 31 36 2c 71 25 21  32 30 29 0d 02 4e 17 20  |%!16,q%!20)..N. |
00000850  20 c9 20 37 3a 20 f2 64  65 63 6f 64 65 5f 64 72  | . 7: .decode_dr|
00000860  61 67 0d 02 58 20 20 20  c9 20 38 3a 20 f2 6b 65  |ag..X   . 8: .ke|
00000870  79 5f 70 72 65 73 73 28  21 71 25 2c 71 25 21 32  |y_press(!q%,q%!2|
00000880  34 29 0d 02 62 17 20 20  c9 20 39 3a 20 f2 6d 65  |4)..b.  . 9: .me|
00000890  6e 75 5f 73 65 6c 65 63  74 0d 02 6c 2f 20 20 c9  |nu_select..l/  .|
000008a0  20 31 37 2c 31 38 2c 31  39 3a 20 f2 72 65 63 65  | 17,18,19: .rece|
000008b0  69 76 65 28 72 65 61 73  6f 6e 25 2c 71 25 21 31  |ive(reason%,q%!1|
000008c0  32 2c 71 25 21 31 36 29  0d 02 76 07 20 20 cb 0d  |2,q%!16)..v.  ..|
000008d0  02 80 0b fd 20 71 75 69  74 25 0d 02 8a 17 c8 99  |.... quit%......|
000008e0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
000008f0  22 0d 02 94 05 e0 0d 02  9e 04 0d 02 a8 4c f4 20  |"............L. |
00000900  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000940  2a 2a 2a 2a 2a 2a 0d 02  b2 24 f4 20 41 70 70 6c  |******...$. Appl|
00000950  69 63 61 74 69 6f 6e 2d  64 65 70 65 6e 64 65 6e  |ication-dependen|
00000960  74 20 72 6f 75 74 69 6e  65 73 0d 02 bc 04 0d 02  |t routines......|
00000970  c6 0f dd 20 f2 64 72 61  77 5f 6f 77 6e 0d 02 d0  |... .draw_own...|
00000980  12 e3 20 49 25 3d 26 32  30 20 b8 20 26 46 46 0d  |.. I%=&20 . &FF.|
00000990  02 da 1b 20 20 e7 20 49  25 3c 3d 26 37 46 20 84  |...  . I%<=&7F .|
000009a0  20 49 25 3e 3d 26 41 30  20 8c 0d 02 e4 2c 20 20  | I%>=&A0 ....,  |
000009b0  20 20 74 61 62 25 3d 28  49 25 2d 33 32 29 20 83  |  tab%=(I%-32) .|
000009c0  20 31 36 3a 6c 69 6e 65  25 3d 28 49 25 2d 33 32  | 16:line%=(I%-32|
000009d0  29 20 81 20 31 36 0d 02  ee 38 20 20 20 20 ec 20  |) . 16...8    . |
000009e0  62 78 25 2b 62 61 73 78  25 2b 32 2a 63 68 78 25  |bx%+basx%+2*chx%|
000009f0  2a 74 61 62 25 2c 62 79  25 2d 62 61 73 79 25 2d  |*tab%,by%-basy%-|
00000a00  63 68 79 25 2a 28 35 2b  6c 69 6e 65 25 29 0d 02  |chy%*(5+line%)..|
00000a10  f8 0f 20 20 20 20 f1 20  bd 28 49 25 29 0d 03 02  |..    . .(I%)...|
00000a20  07 20 20 cd 0d 03 0c 05  ed 0d 03 16 05 e1 0d 03  |.  .............|
00000a30  20 04 0d 03 2a 10 dd 20  f2 64 72 61 77 5f 67 72  | ...*.. .draw_gr|
00000a40  69 64 0d 03 34 12 e3 20  59 25 3d 30 20 b8 20 59  |id..4.. Y%=0 . Y|
00000a50  4d 41 58 25 0d 03 3e 21  20 20 ec 20 62 78 25 2b  |MAX%..>!  . bx%+|
00000a60  58 42 41 53 45 2c 62 79  25 2b 59 42 41 53 45 2d  |XBASE,by%+YBASE-|
00000a70  59 25 2a 53 59 0d 03 48  2a 20 20 df 20 62 78 25  |Y%*SY..H*  . bx%|
00000a80  2b 58 42 41 53 45 2b 58  4d 41 58 25 2a 53 58 2c  |+XBASE+XMAX%*SX,|
00000a90  62 79 25 2b 59 42 41 53  45 2d 59 25 2a 53 59 0d  |by%+YBASE-Y%*SY.|
00000aa0  03 52 05 ed 0d 03 5c 12  e3 20 58 25 3d 30 20 b8  |.R....\.. X%=0 .|
00000ab0  20 58 4d 41 58 25 0d 03  66 21 20 20 ec 20 62 78  | XMAX%..f!  . bx|
00000ac0  25 2b 58 42 41 53 45 2b  58 25 2a 53 58 2c 62 79  |%+XBASE+X%*SX,by|
00000ad0  25 2b 59 42 41 53 45 0d  03 70 2a 20 20 df 20 62  |%+YBASE..p*  . b|
00000ae0  78 25 2b 58 42 41 53 45  2b 58 25 2a 53 58 2c 62  |x%+XBASE+X%*SX,b|
00000af0  79 25 2b 59 42 41 53 45  2d 59 4d 41 58 25 2a 53  |y%+YBASE-YMAX%*S|
00000b00  59 0d 03 7a 05 ed 0d 03  84 05 e1 0d 03 8e 04 0d  |Y..z............|
00000b10  03 98 10 dd 20 f2 64 72  61 77 5f 65 64 69 74 0d  |.... .draw_edit.|
00000b20  03 a2 0e f2 64 72 61 77  5f 67 72 69 64 0d 03 ac  |....draw_grid...|
00000b30  12 e3 20 59 25 3d 31 20  b8 20 59 4d 41 58 25 0d  |.. Y%=1 . YMAX%.|
00000b40  03 b6 14 20 20 e3 20 58  25 3d 31 20 b8 20 58 4d  |...  . X%=1 . XM|
00000b50  41 58 25 0d 03 c0 28 20  20 20 20 e7 20 64 6f 74  |AX%...(    . dot|
00000b60  25 28 58 25 2c 59 25 29  3d 31 20 f2 70 6c 6f 74  |%(X%,Y%)=1 .plot|
00000b70  5f 64 6f 74 28 58 25 2c  59 25 29 0d 03 ca 07 20  |_dot(X%,Y%).... |
00000b80  20 ed 0d 03 d4 05 ed 0d  03 de 05 e1 0d 03 e8 04  | ...............|
00000b90  0d 03 f2 11 dd 20 f2 64  72 61 77 5f 73 74 6f 72  |..... .draw_stor|
00000ba0  65 0d 03 fc 0e f2 64 72  61 77 5f 67 72 69 64 0d  |e.....draw_grid.|
00000bb0  04 06 12 e3 20 59 25 3d  31 20 b8 20 59 4d 41 58  |.... Y%=1 . YMAX|
00000bc0  25 0d 04 10 14 20 20 e3  20 58 25 3d 31 20 b8 20  |%....  . X%=1 . |
00000bd0  58 4d 41 58 25 0d 04 1a  2d 20 20 20 20 e7 20 64  |XMAX%...-    . d|
00000be0  6f 74 73 74 6f 72 65 25  28 58 25 2c 59 25 29 3d  |otstore%(X%,Y%)=|
00000bf0  31 20 f2 70 6c 6f 74 5f  64 6f 74 28 58 25 2c 59  |1 .plot_dot(X%,Y|
00000c00  25 29 0d 04 24 07 20 20  ed 0d 04 2e 05 ed 0d 04  |%)..$.  ........|
00000c10  38 05 e1 0d 04 42 04 0d  04 4c 16 dd 20 f2 70 6c  |8....B...L.. .pl|
00000c20  6f 74 5f 64 6f 74 28 78  25 2c 79 25 29 0d 04 56  |ot_dot(x%,y%)..V|
00000c30  3c c8 93 20 c8 90 20 62  78 25 2b 58 42 41 53 45  |<.. .. bx%+XBASE|
00000c40  2b 28 78 25 2d 31 29 2a  53 58 2b 34 2c 62 79 25  |+(x%-1)*SX+4,by%|
00000c50  2b 59 42 41 53 45 2d 79  25 2a 53 59 2b 38 2c 53  |+YBASE-y%*SY+8,S|
00000c60  58 2d 38 2c 53 59 2d 31  36 0d 04 60 30 f0 20 36  |X-8,SY-16..`0. 6|
00000c70  39 2c 62 78 25 2b 78 62  61 73 65 31 2b 28 78 25  |9,bx%+xbase1+(x%|
00000c80  2d 31 29 2a 32 2c 62 79  25 2b 79 62 61 73 65 31  |-1)*2,by%+ybase1|
00000c90  2d 28 79 25 2d 31 29 2a  34 0d 04 6a 3c e7 20 64  |-(y%-1)*4..j<. d|
00000ca0  79 25 3c 34 20 f0 20 36  39 2c 62 78 25 2b 78 62  |y%<4 . 69,bx%+xb|
00000cb0  61 73 65 31 2b 28 78 25  2d 31 29 2a 32 2c 62 79  |ase1+(x%-1)*2,by|
00000cc0  25 2b 79 62 61 73 65 31  2d 28 79 25 2d 31 29 2a  |%+ybase1-(y%-1)*|
00000cd0  34 2d 64 79 25 0d 04 74  05 e1 0d 04 7e 04 0d 04  |4-dy%..t....~...|
00000ce0  88 18 dd 20 f2 6d 69 72  72 6f 72 5f 68 6f 72 69  |... .mirror_hori|
00000cf0  7a 6f 6e 74 61 6c 0d 04  92 12 e3 20 59 25 3d 31  |zontal..... Y%=1|
00000d00  20 b8 20 59 4d 41 58 25  0d 04 9c 14 20 20 e3 20  | . YMAX%....  . |
00000d10  58 25 3d 31 20 b8 20 58  4d 41 58 25 0d 04 a6 22  |X%=1 . XMAX%..."|
00000d20  20 20 20 20 74 65 6d 70  64 6f 74 25 28 58 25 2c  |    tempdot%(X%,|
00000d30  31 29 3d 64 6f 74 25 28  58 25 2c 59 25 29 0d 04  |1)=dot%(X%,Y%)..|
00000d40  b0 07 20 20 ed 0d 04 ba  14 20 20 e3 20 58 25 3d  |..  .....  . X%=|
00000d50  31 20 b8 20 58 4d 41 58  25 0d 04 c4 2a 20 20 20  |1 . XMAX%...*   |
00000d60  20 64 6f 74 25 28 58 25  2c 59 25 29 3d 74 65 6d  | dot%(X%,Y%)=tem|
00000d70  70 64 6f 74 25 28 58 4d  41 58 25 2d 58 25 2b 31  |pdot%(XMAX%-X%+1|
00000d80  2c 31 29 0d 04 ce 07 20  20 ed 0d 04 d8 05 ed 0d  |,1)....  .......|
00000d90  04 e2 19 f2 72 65 64 72  61 77 5f 77 69 6e 64 6f  |....redraw_windo|
00000da0  77 28 65 64 69 74 25 29  0d 04 ec 05 e1 0d 04 f6  |w(edit%)........|
00000db0  04 0d 05 00 16 dd 20 f2  6d 69 72 72 6f 72 5f 76  |...... .mirror_v|
00000dc0  65 72 74 69 63 61 6c 0d  05 0a 12 e3 20 58 25 3d  |ertical..... X%=|
00000dd0  31 20 b8 20 58 4d 41 58  25 0d 05 14 14 20 20 e3  |1 . XMAX%....  .|
00000de0  20 59 25 3d 31 20 b8 20  59 4d 41 58 25 0d 05 1e  | Y%=1 . YMAX%...|
00000df0  22 20 20 20 20 74 65 6d  70 64 6f 74 25 28 31 2c  |"    tempdot%(1,|
00000e00  59 25 29 3d 64 6f 74 25  28 58 25 2c 59 25 29 0d  |Y%)=dot%(X%,Y%).|
00000e10  05 28 07 20 20 ed 0d 05  32 14 20 20 e3 20 59 25  |.(.  ...2.  . Y%|
00000e20  3d 31 20 b8 20 59 4d 41  58 25 0d 05 3c 2a 20 20  |=1 . YMAX%..<*  |
00000e30  20 20 64 6f 74 25 28 58  25 2c 59 25 29 3d 74 65  |  dot%(X%,Y%)=te|
00000e40  6d 70 64 6f 74 25 28 31  2c 59 4d 41 58 25 2d 59  |mpdot%(1,YMAX%-Y|
00000e50  25 2b 31 29 0d 05 46 07  20 20 ed 0d 05 50 05 ed  |%+1)..F.  ...P..|
00000e60  0d 05 5a 19 f2 72 65 64  72 61 77 5f 77 69 6e 64  |..Z..redraw_wind|
00000e70  6f 77 28 65 64 69 74 25  29 0d 05 64 05 e1 0d 05  |ow(edit%)..d....|
00000e80  6e 04 0d 05 78 12 dd 20  f2 72 6f 74 61 74 65 5f  |n...x.. .rotate_|
00000e90  6c 65 66 74 0d 05 82 12  e3 20 58 25 3d 31 20 b8  |left..... X%=1 .|
00000ea0  20 58 4d 41 58 25 0d 05  8c 14 20 20 e3 20 59 25  | XMAX%....  . Y%|
00000eb0  3d 31 20 b8 20 59 4d 41  58 25 0d 05 96 23 20 20  |=1 . YMAX%...#  |
00000ec0  20 20 74 65 6d 70 64 6f  74 25 28 58 25 2c 59 25  |  tempdot%(X%,Y%|
00000ed0  29 3d 64 6f 74 25 28 58  25 2c 59 25 29 0d 05 a0  |)=dot%(X%,Y%)...|
00000ee0  07 20 20 ed 0d 05 aa 05  ed 0d 05 b4 12 e3 20 58  |.  ........... X|
00000ef0  25 3d 31 20 b8 20 58 4d  41 58 25 0d 05 be 14 20  |%=1 . XMAX%.... |
00000f00  20 e3 20 59 25 3d 31 20  b8 20 59 4d 41 58 25 0d  | . Y%=1 . YMAX%.|
00000f10  05 c8 2b 20 20 20 20 64  6f 74 25 28 58 25 2c 59  |..+    dot%(X%,Y|
00000f20  25 29 3d 74 65 6d 70 64  6f 74 25 28 59 4d 41 58  |%)=tempdot%(YMAX|
00000f30  25 2d 59 25 2b 31 2c 58  25 29 0d 05 d2 07 20 20  |%-Y%+1,X%)....  |
00000f40  ed 0d 05 dc 05 ed 0d 05  e6 19 f2 72 65 64 72 61  |...........redra|
00000f50  77 5f 77 69 6e 64 6f 77  28 65 64 69 74 25 29 0d  |w_window(edit%).|
00000f60  05 f0 05 e1 0d 05 fa 04  0d 06 04 13 dd 20 f2 72  |............. .r|
00000f70  6f 74 61 74 65 5f 72 69  67 68 74 0d 06 0e 12 e3  |otate_right.....|
00000f80  20 58 25 3d 31 20 b8 20  58 4d 41 58 25 0d 06 18  | X%=1 . XMAX%...|
00000f90  14 20 20 e3 20 59 25 3d  31 20 b8 20 59 4d 41 58  |.  . Y%=1 . YMAX|
00000fa0  25 0d 06 22 23 20 20 20  20 74 65 6d 70 64 6f 74  |%.."#    tempdot|
00000fb0  25 28 58 25 2c 59 25 29  3d 64 6f 74 25 28 58 25  |%(X%,Y%)=dot%(X%|
00000fc0  2c 59 25 29 0d 06 2c 07  20 20 ed 0d 06 36 05 ed  |,Y%)..,.  ...6..|
00000fd0  0d 06 40 12 e3 20 58 25  3d 31 20 b8 20 58 4d 41  |..@.. X%=1 . XMA|
00000fe0  58 25 0d 06 4a 14 20 20  e3 20 59 25 3d 31 20 b8  |X%..J.  . Y%=1 .|
00000ff0  20 59 4d 41 58 25 0d 06  54 2b 20 20 20 20 64 6f  | YMAX%..T+    do|
00001000  74 25 28 58 25 2c 59 25  29 3d 74 65 6d 70 64 6f  |t%(X%,Y%)=tempdo|
00001010  74 25 28 59 25 2c 58 4d  41 58 25 2d 58 25 2b 31  |t%(Y%,XMAX%-X%+1|
00001020  29 0d 06 5e 07 20 20 ed  0d 06 68 05 ed 0d 06 72  |)..^.  ...h....r|
00001030  19 f2 72 65 64 72 61 77  5f 77 69 6e 64 6f 77 28  |..redraw_window(|
00001040  65 64 69 74 25 29 0d 06  7c 05 e1 0d 06 86 04 0d  |edit%)..|.......|
00001050  06 90 11 dd 20 f2 73 68  69 66 74 5f 6c 65 66 74  |.... .shift_left|
00001060  0d 06 9a 12 e3 20 59 25  3d 31 20 b8 20 59 4d 41  |..... Y%=1 . YMA|
00001070  58 25 0d 06 a4 14 20 20  e3 20 58 25 3d 32 20 b8  |X%....  . X%=2 .|
00001080  20 58 4d 41 58 25 0d 06  ae 21 20 20 20 20 64 6f  | XMAX%...!    do|
00001090  74 25 28 58 25 2d 31 2c  59 25 29 3d 64 6f 74 25  |t%(X%-1,Y%)=dot%|
000010a0  28 58 25 2c 59 25 29 0d  06 b8 07 20 20 ed 0d 06  |(X%,Y%)....  ...|
000010b0  c2 16 20 20 64 6f 74 25  28 58 4d 41 58 25 2c 59  |..  dot%(XMAX%,Y|
000010c0  25 29 3d 30 0d 06 cc 05  ed 0d 06 d6 19 f2 72 65  |%)=0..........re|
000010d0  64 72 61 77 5f 77 69 6e  64 6f 77 28 65 64 69 74  |draw_window(edit|
000010e0  25 29 0d 06 e0 05 e1 0d  06 ea 04 0d 06 f4 12 dd  |%)..............|
000010f0  20 f2 73 68 69 66 74 5f  72 69 67 68 74 0d 06 fe  | .shift_right...|
00001100  12 e3 20 59 25 3d 31 20  b8 20 59 4d 41 58 25 0d  |.. Y%=1 . YMAX%.|
00001110  07 08 19 20 20 e3 20 58  25 3d 58 4d 41 58 25 20  |...  . X%=XMAX% |
00001120  b8 20 32 20 88 20 2d 31  0d 07 12 21 20 20 20 20  |. 2 . -1...!    |
00001130  64 6f 74 25 28 58 25 2c  59 25 29 3d 64 6f 74 25  |dot%(X%,Y%)=dot%|
00001140  28 58 25 2d 31 2c 59 25  29 0d 07 1c 07 20 20 ed  |(X%-1,Y%)....  .|
00001150  0d 07 26 12 20 20 64 6f  74 25 28 31 2c 59 25 29  |..&.  dot%(1,Y%)|
00001160  3d 30 0d 07 30 05 ed 0d  07 3a 19 f2 72 65 64 72  |=0..0....:..redr|
00001170  61 77 5f 77 69 6e 64 6f  77 28 65 64 69 74 25 29  |aw_window(edit%)|
00001180  0d 07 44 05 e1 0d 07 4e  04 0d 07 58 0f dd 20 f2  |..D....N...X.. .|
00001190  73 68 69 66 74 5f 75 70  0d 07 62 12 e3 20 58 25  |shift_up..b.. X%|
000011a0  3d 31 20 b8 20 58 4d 41  58 25 0d 07 6c 14 20 20  |=1 . XMAX%..l.  |
000011b0  e3 20 59 25 3d 32 20 b8  20 59 4d 41 58 25 0d 07  |. Y%=2 . YMAX%..|
000011c0  76 21 20 20 20 20 64 6f  74 25 28 58 25 2c 59 25  |v!    dot%(X%,Y%|
000011d0  2d 31 29 3d 64 6f 74 25  28 58 25 2c 59 25 29 0d  |-1)=dot%(X%,Y%).|
000011e0  07 80 07 20 20 ed 0d 07  8a 16 20 20 64 6f 74 25  |...  .....  dot%|
000011f0  28 58 25 2c 59 4d 41 58  25 29 3d 30 0d 07 94 05  |(X%,YMAX%)=0....|
00001200  ed 0d 07 9e 19 f2 72 65  64 72 61 77 5f 77 69 6e  |......redraw_win|
00001210  64 6f 77 28 65 64 69 74  25 29 0d 07 a8 05 e1 0d  |dow(edit%)......|
00001220  07 b2 04 0d 07 bc 11 dd  20 f2 73 68 69 66 74 5f  |........ .shift_|
00001230  64 6f 77 6e 0d 07 c6 12  e3 20 58 25 3d 31 20 b8  |down..... X%=1 .|
00001240  20 58 4d 41 58 25 0d 07  d0 19 20 20 e3 20 59 25  | XMAX%....  . Y%|
00001250  3d 59 4d 41 58 25 20 b8  20 32 20 88 20 2d 31 0d  |=YMAX% . 2 . -1.|
00001260  07 da 21 20 20 20 20 64  6f 74 25 28 58 25 2c 59  |..!    dot%(X%,Y|
00001270  25 29 3d 64 6f 74 25 28  58 25 2c 59 25 2d 31 29  |%)=dot%(X%,Y%-1)|
00001280  0d 07 e4 07 20 20 ed 0d  07 ee 12 20 20 64 6f 74  |....  .....  dot|
00001290  25 28 58 25 2c 31 29 3d  30 0d 07 f8 05 ed 0d 08  |%(X%,1)=0.......|
000012a0  02 19 f2 72 65 64 72 61  77 5f 77 69 6e 64 6f 77  |...redraw_window|
000012b0  28 65 64 69 74 25 29 0d  08 0c 05 e1 0d 08 16 04  |(edit%).........|
000012c0  0d 08 20 0c dd 20 f2 73  74 6f 72 65 0d 08 2a 12  |.. .. .store..*.|
000012d0  e3 20 58 25 3d 31 20 b8  20 58 4d 41 58 25 0d 08  |. X%=1 . XMAX%..|
000012e0  34 14 20 20 e3 20 59 25  3d 31 20 b8 20 59 4d 41  |4.  . Y%=1 . YMA|
000012f0  58 25 0d 08 3e 24 20 20  20 20 64 6f 74 73 74 6f  |X%..>$    dotsto|
00001300  72 65 25 28 58 25 2c 59  25 29 3d 64 6f 74 25 28  |re%(X%,Y%)=dot%(|
00001310  58 25 2c 59 25 29 0d 08  48 07 20 20 ed 0d 08 52  |X%,Y%)..H.  ...R|
00001320  05 ed 0d 08 5c 12 f2 66  72 6f 6e 74 28 73 74 6f  |....\..front(sto|
00001330  72 65 25 29 0d 08 66 05  e1 0d 08 70 04 0d 08 7a  |re%)..f....p...z|
00001340  0e dd 20 f2 72 65 73 74  6f 72 65 0d 08 84 12 e3  |.. .restore.....|
00001350  20 58 25 3d 31 20 b8 20  58 4d 41 58 25 0d 08 8e  | X%=1 . XMAX%...|
00001360  14 20 20 e3 20 59 25 3d  31 20 b8 20 59 4d 41 58  |.  . Y%=1 . YMAX|
00001370  25 0d 08 98 24 20 20 20  20 64 6f 74 25 28 58 25  |%...$    dot%(X%|
00001380  2c 59 25 29 3d 64 6f 74  73 74 6f 72 65 25 28 58  |,Y%)=dotstore%(X|
00001390  25 2c 59 25 29 0d 08 a2  07 20 20 ed 0d 08 ac 05  |%,Y%)....  .....|
000013a0  ed 0d 08 b6 19 f2 63 6c  6f 73 65 5f 77 69 6e 64  |......close_wind|
000013b0  6f 77 28 73 74 6f 72 65  25 29 0d 08 c0 19 f2 72  |ow(store%).....r|
000013c0  65 64 72 61 77 5f 77 69  6e 64 6f 77 28 65 64 69  |edraw_window(edi|
000013d0  74 25 29 0d 08 ca 05 e1  0d 08 d4 04 0d 08 de 0e  |t%).............|
000013e0  dd 20 f2 69 6e 73 74 61  6c 6c 0d 08 e8 0b ea 20  |. .install..... |
000013f0  63 6f 64 65 25 0d 08 f2  1e e7 20 63 6e 72 25 3c  |code%..... cnr%<|
00001400  26 32 30 20 84 20 63 6e  72 25 3e 26 46 46 20 ef  |&20 . cnr%>&FF .|
00001410  37 3a e1 0d 08 fc 0d ef  20 32 33 2c 63 6e 72 25  |7:...... 23,cnr%|
00001420  0d 09 06 12 e3 20 59 25  3d 31 20 b8 20 59 4d 41  |..... Y%=1 . YMA|
00001430  58 25 0d 09 10 0d 20 20  63 6f 64 65 25 3d 30 0d  |X%....  code%=0.|
00001440  09 1a 14 20 20 e3 20 58  25 3d 31 20 b8 20 58 4d  |...  . X%=1 . XM|
00001450  41 58 25 0d 09 24 27 20  20 20 20 e7 20 64 6f 74  |AX%..$'    . dot|
00001460  25 28 58 25 2c 59 25 29  3d 31 20 63 6f 64 65 25  |%(X%,Y%)=1 code%|
00001470  2b 3d 32 5e 28 38 2d 58  25 29 0d 09 2e 07 20 20  |+=2^(8-X%)....  |
00001480  ed 0d 09 38 0d 20 20 ef  20 63 6f 64 65 25 0d 09  |...8.  . code%..|
00001490  42 05 ed 0d 09 4c 09 73  76 25 3d b9 0d 09 56 25  |B....L.sv%=...V%|
000014a0  24 74 69 74 6c 65 25 3d  a4 6c 65 61 66 6e 61 6d  |$title%=.leafnam|
000014b0  65 28 66 69 6c 65 6e 61  6d 65 24 29 2b 22 20 2a  |e(filename$)+" *|
000014c0  22 0d 09 60 0a f2 63 6c  65 61 72 0d 09 6a 05 e1  |"..`..clear..j..|
000014d0  0d 09 74 04 0d 09 7e 0c  dd 20 f2 63 6c 65 61 72  |..t...~.. .clear|
000014e0  0d 09 88 12 e3 20 58 25  3d 31 20 b8 20 58 4d 41  |..... X%=1 . XMA|
000014f0  58 25 0d 09 92 14 20 20  e3 20 59 25 3d 31 20 b8  |X%....  . Y%=1 .|
00001500  20 59 4d 41 58 25 0d 09  9c 15 20 20 20 20 64 6f  | YMAX%....    do|
00001510  74 25 28 58 25 2c 59 25  29 3d 30 0d 09 a6 07 20  |t%(X%,Y%)=0.... |
00001520  20 ed 0d 09 b0 05 ed 0d  09 ba 18 f2 63 6c 6f 73  | ...........clos|
00001530  65 5f 77 69 6e 64 6f 77  28 65 64 69 74 25 29 0d  |e_window(edit%).|
00001540  09 c4 0b f2 63 6c 65 61  72 32 0d 09 ce 05 e1 0d  |....clear2......|
00001550  09 d8 04 0d 09 e2 0d dd  20 f2 63 6c 65 61 72 32  |........ .clear2|
00001560  0d 09 ec 0a 63 6e 72 25  3d 30 0d 09 f6 1f 53 25  |....cnr%=0....S%|
00001570  3d a4 69 63 6f 6e 61 64  64 72 28 6f 77 6e 25 2c  |=.iconaddr(own%,|
00001580  30 29 3a 24 53 25 3d 22  22 0d 0a 00 45 c8 99 20  |0):$S%=""...E.. |
00001590  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
000015a0  77 22 2c 2d 31 2c 30 2c  30 2c 73 63 72 78 31 25  |w",-1,0,0,scrx1%|
000015b0  2c 73 63 72 79 31 25 3a  20 f4 20 72 65 64 72 61  |,scry1%: . redra|
000015c0  77 20 77 68 6f 6c 65 20  73 63 72 65 65 6e 0d 0a  |w whole screen..|
000015d0  0a 05 e1 0d 0a 14 04 0d  0a 1e 14 dd 20 f2 73 65  |............ .se|
000015e0  6c 65 63 74 28 78 25 2c  79 25 29 0d 0a 28 13 ea  |lect(x%,y%)..(..|
000015f0  20 74 61 62 25 2c 6c 69  6e 65 25 2c 6e 25 0d 0a  | tab%,line%,n%..|
00001600  32 3c e7 20 63 6e 72 25  3c 3e 30 20 f2 77 61 72  |2<. cnr%<>0 .war|
00001610  6e 69 6e 67 62 6f 78 28  22 41 6c 72 65 61 64 79  |ningbox("Already|
00001620  20 61 20 63 68 61 72 61  63 74 65 72 20 73 65 6c  | a character sel|
00001630  65 63 74 65 64 21 22 29  3a e1 0d 0a 3c 32 74 61  |ected!"):...<2ta|
00001640  62 25 3d 30 2e 35 2a 28  78 25 2d 62 61 73 78 25  |b%=0.5*(x%-basx%|
00001650  29 2f 63 68 78 25 3a 6c  69 6e 65 25 3d 37 2d 62  |)/chx%:line%=7-b|
00001660  61 73 79 25 2d 79 25 2f  63 68 79 25 0d 0a 46 17  |asy%-y%/chy%..F.|
00001670  6e 25 3d 33 32 2b 6c 69  6e 65 25 2a 31 36 2b 74  |n%=32+line%*16+t|
00001680  61 62 25 0d 0a 50 3d e7  20 28 6e 25 3e 3d 26 32  |ab%..P=. (n%>=&2|
00001690  30 20 80 20 6e 25 3c 3d  26 37 46 29 20 84 20 28  |0 . n%<=&7F) . (|
000016a0  6e 25 3e 3d 26 41 30 20  80 20 6e 25 3c 3d 26 46  |n%>=&A0 . n%<=&F|
000016b0  46 29 20 63 6e 72 25 3d  6e 25 3a 20 f2 6f 6c 64  |F) cnr%=n%: .old|
000016c0  0d 0a 5a 05 e1 0d 0a 64  04 0d 0a 6e 12 dd 20 f2  |..Z....d...n.. .|
000016d0  73 65 6c 65 63 74 41 53  43 49 49 0d 0a 78 3c e7  |selectASCII..x<.|
000016e0  20 63 6e 72 25 3c 3e 30  20 f2 77 61 72 6e 69 6e  | cnr%<>0 .warnin|
000016f0  67 62 6f 78 28 22 41 6c  72 65 61 64 79 20 61 20  |gbox("Already a |
00001700  63 68 61 72 61 63 74 65  72 20 73 65 6c 65 63 74  |character select|
00001710  65 64 21 22 29 3a e1 0d  0a 82 11 6e 25 3d bb 28  |ed!"):.....n%=.(|
00001720  24 61 73 63 69 69 25 29  0d 0a 8c 31 e7 20 28 6e  |$ascii%)...1. (n|
00001730  25 3e 3d 26 32 30 20 80  20 6e 25 3c 3d 26 37 46  |%>=&20 . n%<=&7F|
00001740  29 20 84 20 28 6e 25 3e  3d 26 41 30 20 80 20 6e  |) . (n%>=&A0 . n|
00001750  25 3c 3d 26 46 46 29 20  8c 0d 0a 96 1e 20 20 c8  |%<=&FF) .....  .|
00001760  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001770  6e 75 22 2c 2c 2d 31 0d  0a a0 0d 20 20 63 6e 72  |nu",,-1....  cnr|
00001780  25 3d 6e 25 0d 0a aa 0a  20 20 f2 6f 6c 64 0d 0a  |%=n%....  .old..|
00001790  b4 05 cc 0d 0a be 29 20  20 f2 77 61 72 6e 69 6e  |......)  .warnin|
000017a0  67 62 6f 78 28 22 49 6c  6c 65 67 61 6c 20 41 53  |gbox("Illegal AS|
000017b0  43 49 49 2d 76 61 6c 75  65 21 22 29 0d 0a c8 05  |CII-value!")....|
000017c0  cd 0d 0a d2 05 e1 0d 0a  dc 04 0d 0a e6 0a dd 20  |............... |
000017d0  f2 6f 6c 64 0d 0a f0 0b  ea 20 63 6f 64 65 25 0d  |.old..... code%.|
000017e0  0a fa 1e e7 20 63 6e 72  25 3c 26 32 30 20 84 20  |.... cnr%<&20 . |
000017f0  63 6e 72 25 3e 26 46 46  20 ef 37 3a e1 0d 0b 04  |cnr%>&FF .7:....|
00001800  11 63 62 6c 6f 63 6b 3f  30 3d 63 6e 72 25 0d 0b  |.cblock?0=cnr%..|
00001810  0e 1b c8 99 20 22 4f 53  5f 57 6f 72 64 22 2c 26  |.... "OS_Word",&|
00001820  30 41 2c 63 62 6c 6f 63  6b 0d 0b 18 12 e3 20 59  |0A,cblock..... Y|
00001830  25 3d 31 20 b8 20 59 4d  41 58 25 0d 0b 22 15 20  |%=1 . YMAX%..". |
00001840  20 63 6f 64 65 25 3d 63  62 6c 6f 63 6b 3f 59 25  | code%=cblock?Y%|
00001850  0d 0b 2c 14 20 20 e3 20  58 25 3d 31 20 b8 20 58  |..,.  . X%=1 . X|
00001860  4d 41 58 25 0d 0b 36 26  20 20 20 20 64 6f 74 25  |MAX%..6&    dot%|
00001870  28 58 25 2c 59 25 29 3d  63 6f 64 65 25 20 81 20  |(X%,Y%)=code% . |
00001880  28 32 5e 28 38 2d 58 25  29 29 0d 0b 40 27 20 20  |(2^(8-X%))..@'  |
00001890  20 20 e7 20 64 6f 74 25  28 58 25 2c 59 25 29 3d  |  . dot%(X%,Y%)=|
000018a0  31 20 63 6f 64 65 25 2d  3d 32 5e 28 38 2d 58 25  |1 code%-=2^(8-X%|
000018b0  29 0d 0b 4a 07 20 20 ed  0d 0b 54 05 ed 0d 0b 5e  |)..J.  ...T....^|
000018c0  24 53 25 3d a4 69 63 6f  6e 61 64 64 72 28 6f 77  |$S%=.iconaddr(ow|
000018d0  6e 25 2c 30 29 3a 24 53  25 3d c3 28 63 6e 72 25  |n%,0):$S%=.(cnr%|
000018e0  29 0d 0b 68 18 f2 72 65  64 72 61 77 5f 77 69 6e  |)..h..redraw_win|
000018f0  64 6f 77 28 6f 77 6e 25  29 0d 0b 72 11 f2 66 72  |dow(own%)..r..fr|
00001900  6f 6e 74 28 65 64 69 74  25 29 0d 0b 7c 05 e1 0d  |ont(edit%)..|...|
00001910  0b 86 04 0d 0b 90 12 dd  20 f2 65 64 69 74 28 78  |........ .edit(x|
00001920  25 2c 79 25 29 0d 0b 9a  15 ea 20 78 30 25 2c 79  |%,y%)..... x0%,y|
00001930  30 25 2c 78 31 25 2c 79  31 25 0d 0b a4 1b 78 25  |0%,x1%,y1%....x%|
00001940  3d 78 25 2d 58 42 41 53  45 3a 79 25 3d 59 42 41  |=x%-XBASE:y%=YBA|
00001950  53 45 2d 79 25 0d 0b ae  33 e7 20 78 25 3e 3d 30  |SE-y%...3. x%>=0|
00001960  20 80 20 78 25 3c 3d 58  4d 41 58 25 2a 53 58 20  | . x%<=XMAX%*SX |
00001970  80 20 79 25 3e 3d 30 20  80 20 79 25 3c 3d 59 4d  |. y%>=0 . y%<=YM|
00001980  41 58 25 2a 53 59 20 8c  0d 0b b8 23 20 20 78 25  |AX%*SY ....#  x%|
00001990  3d 28 78 25 20 81 20 53  58 29 2b 31 3a 79 25 3d  |=(x% . SX)+1:y%=|
000019a0  28 79 25 20 81 20 53 59  29 2b 31 0d 0b c2 33 20  |(y% . SY)+1...3 |
000019b0  20 e7 20 64 6f 74 25 28  78 25 2c 79 25 29 3d 31  | . dot%(x%,y%)=1|
000019c0  20 64 6f 74 25 28 78 25  2c 79 25 29 3d 30 20 8b  | dot%(x%,y%)=0 .|
000019d0  20 64 6f 74 25 28 78 25  2c 79 25 29 3d 31 0d 0b  | dot%(x%,y%)=1..|
000019e0  cc 29 20 20 78 30 25 3d  58 42 41 53 45 2b 28 78  |.)  x0%=XBASE+(x|
000019f0  25 2d 31 29 2a 53 58 3a  79 30 25 3d 59 42 41 53  |%-1)*SX:y0%=YBAS|
00001a00  45 2d 79 25 2a 53 59 0d  0b d6 29 20 20 78 31 25  |E-y%*SY...)  x1%|
00001a10  3d 58 42 41 53 45 2b 78  25 2a 53 58 3a 79 31 25  |=XBASE+x%*SX:y1%|
00001a20  3d 59 42 41 53 45 2d 28  79 25 2d 31 29 2a 53 59  |=YBASE-(y%-1)*SY|
00001a30  0d 0b e0 30 20 20 f4 20  50 52 4f 43 75 70 64 61  |...0  . PROCupda|
00001a40  74 65 5f 77 69 6e 64 6f  77 28 65 64 69 74 25 2c  |te_window(edit%,|
00001a50  78 30 25 2c 79 30 25 2c  78 31 25 2c 79 31 25 29  |x0%,y0%,x1%,y1%)|
00001a60  0d 0b ea 27 20 20 78 30  25 3d 78 62 61 73 65 31  |...'  x0%=xbase1|
00001a70  3a 79 30 25 3d 79 62 61  73 65 31 2d 28 59 4d 41  |:y0%=ybase1-(YMA|
00001a80  58 25 2d 31 29 2a 34 0d  0b f4 2b 20 20 78 31 25  |X%-1)*4...+  x1%|
00001a90  3d 78 62 61 73 65 31 2b  28 58 4d 41 58 25 2d 31  |=xbase1+(XMAX%-1|
00001aa0  29 2a 32 2b 32 3a 79 31  25 3d 79 62 61 73 65 31  |)*2+2:y1%=ybase1|
00001ab0  2b 34 0d 0b fe 30 20 20  f4 20 50 52 4f 43 75 70  |+4...0  . PROCup|
00001ac0  64 61 74 65 5f 77 69 6e  64 6f 77 28 65 64 69 74  |date_window(edit|
00001ad0  25 2c 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |%,x0%,y0%,x1%,y1|
00001ae0  25 29 0d 0c 08 1b 20 20  f2 72 65 64 72 61 77 5f  |%)....  .redraw_|
00001af0  77 69 6e 64 6f 77 28 65  64 69 74 25 29 0d 0c 12  |window(edit%)...|
00001b00  05 cd 0d 0c 1c 05 e1 0d  0c 26 04 0d 0c 30 0c dd  |.........&...0..|
00001b10  20 f2 72 65 73 65 74 0d  0c 3a 1b ff 28 22 61 6c  | .reset..:..("al|
00001b20  70 68 61 62 65 74 20 22  2b 64 65 66 61 75 6c 74  |phabet "+default|
00001b30  24 29 0d 0c 44 09 73 76  25 3d a3 0d 0c 4e 18 66  |$)..D.sv%=...N.f|
00001b40  69 6c 65 6e 61 6d 65 24  3d 22 43 68 61 72 46 69  |ilename$="CharFi|
00001b50  6c 65 22 0d 0c 58 18 24  66 69 6c 65 6e 61 6d 65  |le"..X.$filename|
00001b60  25 3d 66 69 6c 65 6e 61  6d 65 24 0d 0c 62 20 24  |%=filename$..b $|
00001b70  74 69 74 6c 65 25 3d a4  6c 65 61 66 6e 61 6d 65  |title%=.leafname|
00001b80  28 66 69 6c 65 6e 61 6d  65 24 29 0d 0c 6c 0a f2  |(filename$)..l..|
00001b90  63 6c 65 61 72 0d 0c 76  05 e1 0d 0c 80 04 0d 0c  |clear..v........|
00001ba0  8a 0f dd 20 a4 72 74 6f  7a 28 70 25 29 0d 0c 94  |... .rtoz(p%)...|
00001bb0  08 ea 20 71 24 0d 0c 9e  1e c8 95 20 3f 70 25 3c  |.. q$...... ?p%<|
00001bc0  3e 30 20 71 24 2b 3d bd  3f 70 25 3a 70 25 2b 3d  |>0 q$+=.?p%:p%+=|
00001bd0  31 3a ce 0d 0c a8 07 3d  71 24 0d 0c b2 04 0d 0c  |1:.....=q$......|
00001be0  bc 11 dd 20 f2 63 68 65  63 6b 5f 74 79 70 65 0d  |... .check_type.|
00001bf0  0c c6 0f 74 79 70 65 25  3d 71 25 21 34 30 0d 0c  |...type%=q%!40..|
00001c00  d0 39 e7 20 74 79 70 65  25 3d 26 31 30 30 30 20  |.9. type%=&1000 |
00001c10  f2 77 61 72 6e 69 6e 67  62 6f 78 28 22 43 61 6e  |.warningbox("Can|
00001c20  27 74 20 6c 6f 61 64 20  61 20 64 69 72 65 63 74  |'t load a direct|
00001c30  6f 72 79 22 29 3a e1 0d  0c da 3c e7 20 74 79 70  |ory"):....<. typ|
00001c40  65 25 3d 26 32 30 30 30  20 f2 77 61 72 6e 69 6e  |e%=&2000 .warnin|
00001c50  67 62 6f 78 28 22 43 61  6e 27 74 20 6c 6f 61 64  |gbox("Can't load|
00001c60  20 61 6e 20 61 70 70 6c  69 63 61 74 69 6f 6e 22  | an application"|
00001c70  29 3a e1 0d 0c e4 3a e7  20 74 79 70 65 25 3c 3e  |):....:. type%<>|
00001c80  26 46 46 37 20 f2 77 61  72 6e 69 6e 67 62 6f 78  |&FF7 .warningbox|
00001c90  28 22 4d 75 73 74 20 62  65 20 61 20 73 79 73 74  |("Must be a syst|
00001ca0  65 6d 66 6f 6e 74 20 66  69 6c 65 22 29 0d 0c ee  |emfont file")...|
00001cb0  05 e1 0d 0c f8 04 0d 0d  02 0b dd 20 f2 6c 6f 61  |........... .loa|
00001cc0  64 0d 0d 0c 0c ea 20 78  25 2c 69 64 25 0d 0d 16  |d..... x%,id%...|
00001cd0  1f f2 63 68 65 63 6b 5f  74 79 70 65 3a e7 20 74  |..check_type:. t|
00001ce0  79 70 65 25 3c 3e 26 46  46 37 20 e1 0d 0d 20 1a  |ype%<>&FF7 ... .|
00001cf0  66 69 6c 65 6e 61 6d 65  24 3d a4 72 74 6f 7a 28  |filename$=.rtoz(|
00001d00  71 25 2b 34 34 29 0d 0d  2a 20 24 74 69 74 6c 65  |q%+44)..* $title|
00001d10  25 3d a4 6c 65 61 66 6e  61 6d 65 28 66 69 6c 65  |%=.leafname(file|
00001d20  6e 61 6d 65 24 29 0d 0d  34 14 69 64 25 3d 8e 28  |name$)..4.id%=.(|
00001d30  66 69 6c 65 6e 61 6d 65  24 29 0d 0d 3e 15 c8 99  |filename$)..>...|
00001d40  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
00001d50  0d 48 0f c8 95 20 ac 20  c5 23 20 69 64 25 0d 0d  |.H... . .# id%..|
00001d60  52 35 20 20 78 25 3d 9a  23 20 69 64 25 3a e7 20  |R5  x%=.# id%:. |
00001d70  78 25 3c 3e 32 33 20 85  20 30 2c 22 49 6e 63 6f  |x%<>23 . 0,"Inco|
00001d80  72 72 65 63 74 20 66 69  6c 65 20 66 6f 72 6d 61  |rrect file forma|
00001d90  74 21 22 0d 0d 5c 0a 20  20 ef 20 78 25 0d 0d 66  |t!"..\.  . x%..f|
00001da0  3f 20 20 78 25 3d 9a 23  20 69 64 25 3a 20 e7 20  |?  x%=.# id%: . |
00001db0  78 25 3c 26 32 30 20 84  20 78 25 3e 26 46 46 20  |x%<&20 . x%>&FF |
00001dc0  85 20 30 2c 22 49 6e 63  6f 72 72 65 63 74 20 66  |. 0,"Incorrect f|
00001dd0  69 6c 65 20 66 6f 72 6d  61 74 21 22 0d 0d 70 0a  |ile format!"..p.|
00001de0  20 20 ef 20 78 25 0d 0d  7a 10 20 20 e3 20 4a 25  |  . x%..z.  . J%|
00001df0  3d 30 20 b8 20 37 0d 0d  84 16 20 20 20 20 78 25  |=0 . 7....    x%|
00001e00  3d 9a 23 20 69 64 25 3a  ef 20 78 25 0d 0d 8e 07  |=.# id%:. x%....|
00001e10  20 20 ed 0d 0d 98 05 ce  0d 0d a2 0a f2 63 6c 65  |  ...........cle|
00001e20  61 72 0d 0d ac 0a d9 23  20 69 64 25 0d 0d b6 16  |ar.....# id%....|
00001e30  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00001e40  66 22 0d 0d c0 45 c8 99  20 22 57 69 6d 70 5f 46  |f"...E.. "Wimp_F|
00001e50  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 31 2c 30  |orceRedraw",-1,0|
00001e60  2c 30 2c 73 63 72 78 31  25 2c 73 63 72 79 31 25  |,0,scrx1%,scry1%|
00001e70  3a 20 f4 20 72 65 64 72  61 77 20 77 68 6f 6c 65  |: . redraw whole|
00001e80  20 73 63 72 65 65 6e 0d  0d ca 05 e1 0d 0d d4 04  | screen.........|
00001e90  0d 0d de 0b dd 20 f2 73  61 76 65 0d 0d e8 0c ea  |..... .save.....|
00001ea0  20 78 25 2c 69 64 25 0d  0d f2 18 66 69 6c 65 6e  | x%,id%....filen|
00001eb0  61 6d 65 24 3d 24 66 69  6c 65 6e 61 6d 65 25 0d  |ame$=$filename%.|
00001ec0  0d fc 17 e7 20 66 69 6c  65 6e 61 6d 65 24 3d 22  |.... filename$="|
00001ed0  22 20 ef 37 3a e1 0d 0e  06 2b c8 99 20 22 57 69  |" .7:....+.. "Wi|
00001ee0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001ef0  2d 31 3a 20 f4 20 72 65  6d 6f 76 65 20 6d 65 6e  |-1: . remove men|
00001f00  75 0d 0e 10 15 c8 99 20  22 48 6f 75 72 67 6c 61  |u...... "Hourgla|
00001f10  73 73 5f 4f 6e 22 0d 0e  1a 14 69 64 25 3d ae 28  |ss_On"....id%=.(|
00001f20  66 69 6c 65 6e 61 6d 65  24 29 0d 0e 24 12 e3 20  |filename$)..$.. |
00001f30  49 25 3d 26 32 30 20 b8  20 26 46 46 0d 0e 2e 29  |I%=&20 . &FF...)|
00001f40  20 20 63 62 6c 6f 63 6b  3f 30 3d 49 25 3a c8 99  |  cblock?0=I%:..|
00001f50  20 22 4f 53 5f 57 6f 72  64 22 2c 26 30 41 2c 63  | "OS_Word",&0A,c|
00001f60  62 6c 6f 63 6b 0d 0e 38  0f 20 20 d5 23 20 69 64  |block..8.  .# id|
00001f70  25 2c 32 33 0d 0e 42 0f  20 20 d5 23 20 69 64 25  |%,23..B.  .# id%|
00001f80  2c 49 25 0d 0e 4c 10 20  20 e3 20 4a 25 3d 30 20  |,I%..L.  . J%=0 |
00001f90  b8 20 37 0d 0e 56 18 20  20 20 20 78 25 3d 63 62  |. 7..V.    x%=cb|
00001fa0  6c 6f 63 6b 3f 28 4a 25  2b 31 29 0d 0e 60 11 20  |lock?(J%+1)..`. |
00001fb0  20 20 20 d5 23 20 69 64  25 2c 78 25 0d 0e 6a 07  |   .# id%,x%..j.|
00001fc0  20 20 ed 0d 0e 74 05 ed  0d 0e 7e 0a d9 23 20 69  |  ...t....~..# i|
00001fd0  64 25 0d 0e 88 22 ff 28  22 53 65 74 74 79 70 65  |d%...".("Settype|
00001fe0  20 22 2b 66 69 6c 65 6e  61 6d 65 24 2b 22 20 46  | "+filename$+" F|
00001ff0  46 37 22 29 0d 0e 92 09  73 76 25 3d a3 0d 0e 9c  |F7")....sv%=....|
00002000  20 24 74 69 74 6c 65 25  3d a4 6c 65 61 66 6e 61  | $title%=.leafna|
00002010  6d 65 28 66 69 6c 65 6e  61 6d 65 24 29 0d 0e a6  |me(filename$)...|
00002020  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00002030  66 66 22 0d 0e b0 18 f2  72 65 64 72 61 77 5f 77  |ff".....redraw_w|
00002040  69 6e 64 6f 77 28 6f 77  6e 25 29 0d 0e ba 1e f2  |indow(own%).....|
00002050  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 73 61 76  |close_window(sav|
00002060  65 62 6f 78 66 66 37 25  29 0d 0e c4 05 e1 0d 0e  |eboxff7%).......|
00002070  ce 04 0d 0e d8 17 dd 20  f2 69 6e 69 74 5f 61 70  |....... .init_ap|
00002080  70 6c 69 63 61 74 69 6f  6e 0d 0e e2 1b 6f 66 66  |plication....off|
00002090  73 65 74 25 3d 31 36 3a  6c 69 6e 65 66 65 65 64  |set%=16:linefeed|
000020a0  25 3d 33 32 0d 0e ec 17  66 69 67 75 72 65 25 3d  |%=32....figure%=|
000020b0  31 3a 63 6f 6c 6f 75 72  25 3d 31 0d 0e f6 24 63  |1:colour%=1...$c|
000020c0  68 78 25 3d 31 36 3a 63  68 79 25 3d 33 36 3a 62  |hx%=16:chy%=36:b|
000020d0  61 73 78 25 3d 34 3a 62  61 73 79 25 3d 31 32 0d  |asx%=4:basy%=12.|
000020e0  0f 00 1f 58 4d 41 58 25  3d 38 3a 59 4d 41 58 25  |...XMAX%=8:YMAX%|
000020f0  3d 38 3a 53 58 3d 32 34  3a 53 59 3d 34 38 0d 0f  |=8:SX=24:SY=48..|
00002100  0a 0e de 20 63 62 6c 6f  63 6b 20 39 0d 0f 14 44  |... cblock 9...D|
00002110  de 20 64 6f 74 25 28 58  4d 41 58 25 2c 59 4d 41  |. dot%(XMAX%,YMA|
00002120  58 25 29 2c 64 6f 74 73  74 6f 72 65 25 28 58 4d  |X%),dotstore%(XM|
00002130  41 58 25 2c 59 4d 41 58  25 29 2c 74 65 6d 70 64  |AX%,YMAX%),tempd|
00002140  6f 74 25 28 58 4d 41 58  25 2c 59 4d 41 58 25 29  |ot%(XMAX%,YMAX%)|
00002150  0d 0f 1e 4f 58 42 41 53  45 3d 35 30 3a 59 42 41  |...OXBASE=50:YBA|
00002160  53 45 3d 2d 33 30 3a 78  62 61 73 65 31 3d 58 42  |SE=-30:xbase1=XB|
00002170  41 53 45 2b 28 58 4d 41  58 25 2b 32 29 2a 53 58  |ASE+(XMAX%+2)*SX|
00002180  3a 79 62 61 73 65 31 3d  59 42 41 53 45 2d 28 59  |:ybase1=YBASE-(Y|
00002190  4d 41 58 25 2d 31 29 2a  53 59 2d 53 59 2f 34 0d  |MAX%-1)*SY-SY/4.|
000021a0  0f 28 2b 73 76 25 3d a3  3a 20 f4 20 74 72 75 65  |.(+sv%=.: . true|
000021b0  20 69 66 20 6d 6f 64 69  66 69 65 64 20 61 6e 64  | if modified and|
000021c0  20 6e 6f 74 20 73 61 76  65 64 0d 0f 32 23 f4 20  | not saved..2#. |
000021d0  64 6f 74 25 20 3a 20 62  66 6f 6e 74 20 63 68 61  |dot% : bfont cha|
000021e0  72 61 63 74 65 72 2d 6d  61 74 72 69 78 0d 0f 3c  |racter-matrix..<|
000021f0  29 f4 20 63 6e 72 25 20  3a 20 61 73 63 69 69 2d  |). cnr% : ascii-|
00002200  63 6f 64 65 20 63 75 72  72 65 6e 74 20 63 68 61  |code current cha|
00002210  72 61 63 74 65 72 0d 0f  46 0a 63 6e 72 25 3d 30  |racter..F.cnr%=0|
00002220  0d 0f 50 12 e3 20 58 25  3d 31 20 b8 20 58 4d 41  |..P.. X%=1 . XMA|
00002230  58 25 0d 0f 5a 14 20 20  e3 20 59 25 3d 31 20 b8  |X%..Z.  . Y%=1 .|
00002240  20 59 4d 41 58 25 0d 0f  64 28 20 20 20 20 64 6f  | YMAX%..d(    do|
00002250  74 25 28 58 25 2c 59 25  29 3d 30 3a 64 6f 74 73  |t%(X%,Y%)=0:dots|
00002260  74 6f 72 65 25 28 58 25  2c 59 25 29 3d 30 0d 0f  |tore%(X%,Y%)=0..|
00002270  6e 07 20 20 ed 0d 0f 78  05 ed 0d 0f 82 15 64 65  |n.  ...x......de|
00002280  66 61 75 6c 74 24 3d 22  4c 61 74 69 6e 31 22 0d  |fault$="Latin1".|
00002290  0f 8c 0c 65 64 69 74 25  3d 2d 31 0d 0f 96 05 e1  |...edit%=-1.....|
000022a0  0d 0f a0 04 0d 0f aa 11  dd 20 f2 69 6e 69 74 5f  |......... .init_|
000022b0  6d 65 6e 75 73 0d 0f b4  22 f4 20 64 61 74 61 62  |menus...". datab|
000022c0  6c 6f 63 6b 20 66 6f 72  20 6d 65 6e 75 20 73 74  |lock for menu st|
000022d0  72 75 63 74 75 72 65 0d  0f be 15 6d 65 6e 75 62  |ructure....menub|
000022e0  6c 6f 63 6b 73 69 7a 65  3d 32 36 38 0d 0f c8 22  |locksize=268..."|
000022f0  6e 6f 6f 66 6d 65 6e 75  73 3d 39 3a de 20 6d 65  |noofmenus=9:. me|
00002300  6e 75 24 28 6e 6f 6f 66  6d 65 6e 75 73 29 0d 0f  |nu$(noofmenus)..|
00002310  d2 21 6e 6f 6f 66 64 69  61 67 77 3d 33 3a de 20  |.!noofdiagw=3:. |
00002320  73 75 62 25 28 6e 6f 6f  66 64 69 61 67 77 29 0d  |sub%(noofdiagw).|
00002330  0f dc 24 6d 65 6e 75 24  28 31 29 3d 70 72 6f 67  |..$menu$(1)=prog|
00002340  72 61 6d 24 2b 22 2c 21  31 49 6e 66 6f 2c 51 75  |ram$+",!1Info,Qu|
00002350  69 74 22 0d 0f e6 11 73  75 62 25 28 31 29 3d 69  |it"....sub%(1)=i|
00002360  6e 66 6f 25 0d 0f f0 1f  de 20 69 63 6f 6e 6d 65  |nfo%..... iconme|
00002370  6e 75 25 20 32 2a 6d 65  6e 75 62 6c 6f 63 6b 73  |nu% 2*menublocks|
00002380  69 7a 65 0d 0f fa 24 f2  63 72 65 61 74 65 5f 6d  |ize...$.create_m|
00002390  65 6e 75 28 69 63 6f 6e  6d 65 6e 75 25 2c 6d 65  |enu(iconmenu%,me|
000023a0  6e 75 24 28 31 29 29 0d  10 04 38 6d 65 6e 75 24  |nu$(1))...8menu$|
000023b0  28 32 29 3d 70 72 6f 67  72 61 6d 24 2b 22 2c 21  |(2)=program$+",!|
000023c0  31 49 6e 66 6f 2c 21 32  53 61 76 65 2c 21 33 53  |1Info,!2Save,!3S|
000023d0  65 6c 65 63 74 2c 28 33  29 52 65 73 65 74 22 0d  |elect,(3)Reset".|
000023e0  10 0e 3b 6d 65 6e 75 24  28 33 29 3d 22 53 79 73  |..;menu$(3)="Sys|
000023f0  74 65 6d 66 6f 6e 74 2c  4c 61 74 69 6e 31 2c 4c  |temfont,Latin1,L|
00002400  61 74 69 6e 32 2c 4c 61  74 69 6e 33 2c 4c 61 74  |atin2,Latin3,Lat|
00002410  69 6e 34 2c 47 72 65 65  6b 22 0d 10 18 17 73 75  |in4,Greek"....su|
00002420  62 25 28 32 29 3d 73 61  76 65 62 6f 78 66 66 37  |b%(2)=saveboxff7|
00002430  25 0d 10 22 13 73 75 62  25 28 33 29 3d 73 65 6c  |%..".sub%(3)=sel|
00002440  65 63 74 25 0d 10 2c 1f  de 20 6d 61 69 6e 6d 65  |ect%..,.. mainme|
00002450  6e 75 25 20 33 2a 6d 65  6e 75 62 6c 6f 63 6b 73  |nu% 3*menublocks|
00002460  69 7a 65 0d 10 36 24 f2  63 72 65 61 74 65 5f 6d  |ize..6$.create_m|
00002470  65 6e 75 28 6d 61 69 6e  6d 65 6e 75 25 2c 6d 65  |enu(mainmenu%,me|
00002480  6e 75 24 28 32 29 29 0d  10 40 2a 6d 65 6e 75 24  |nu$(2))..@*menu$|
00002490  28 34 29 3d 22 45 64 69  74 2c 28 35 29 41 6c 74  |(4)="Edit,(5)Alt|
000024a0  65 72 2c 53 74 6f 72 65  2c 49 6e 73 74 61 6c 6c  |er,Store,Install|
000024b0  22 0d 10 4a 31 6d 65 6e  75 24 28 35 29 3d 22 41  |"..J1menu$(5)="A|
000024c0  6c 74 65 72 2c 28 36 29  52 6f 74 61 74 65 2c 28  |lter,(6)Rotate,(|
000024d0  37 29 4d 69 72 72 6f 72  2c 28 38 29 53 68 69 66  |7)Mirror,(8)Shif|
000024e0  74 22 0d 10 54 20 6d 65  6e 75 24 28 36 29 3d 22  |t"..T menu$(6)="|
000024f0  52 6f 74 61 74 65 2c 4c  65 66 74 2c 52 69 67 68  |Rotate,Left,Righ|
00002500  74 22 0d 10 5e 29 6d 65  6e 75 24 28 37 29 3d 22  |t"..^)menu$(7)="|
00002510  4d 69 72 72 6f 72 2c 48  6f 72 69 7a 6f 6e 74 61  |Mirror,Horizonta|
00002520  6c 2c 56 65 72 74 69 63  61 6c 22 0d 10 68 27 6d  |l,Vertical"..h'm|
00002530  65 6e 75 24 28 38 29 3d  22 53 68 69 66 74 2c 4c  |enu$(8)="Shift,L|
00002540  65 66 74 2c 52 69 67 68  74 2c 55 70 2c 44 6f 77  |eft,Right,Up,Dow|
00002550  6e 22 0d 10 72 1f de 20  65 64 69 74 6d 65 6e 75  |n"..r.. editmenu|
00002560  25 20 35 2a 6d 65 6e 75  62 6c 6f 63 6b 73 69 7a  |% 5*menublocksiz|
00002570  65 0d 10 7c 24 f2 63 72  65 61 74 65 5f 6d 65 6e  |e..|$.create_men|
00002580  75 28 65 64 69 74 6d 65  6e 75 25 2c 6d 65 6e 75  |u(editmenu%,menu|
00002590  24 28 34 29 29 0d 10 86  1c 6d 65 6e 75 24 28 35  |$(4))....menu$(5|
000025a0  29 3d 22 53 74 6f 72 65  2c 52 65 73 74 6f 72 65  |)="Store,Restore|
000025b0  22 0d 10 90 20 de 20 73  74 6f 72 65 6d 65 6e 75  |"... . storemenu|
000025c0  25 20 32 2a 6d 65 6e 75  62 6c 6f 63 6b 73 69 7a  |% 2*menublocksiz|
000025d0  65 0d 10 9a 25 f2 63 72  65 61 74 65 5f 6d 65 6e  |e...%.create_men|
000025e0  75 28 73 74 6f 72 65 6d  65 6e 75 25 2c 6d 65 6e  |u(storemenu%,men|
000025f0  75 24 28 35 29 29 0d 10  a4 05 e1 0d 10 ae 04 0d  |u$(5))..........|
00002600  10 b8 4c f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..L. ***********|
00002610  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00002640  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 10 c2 04 0d  |***********.....|
00002650  10 cc 16 dd 20 f2 73 61  76 65 66 69 6c 65 28 66  |.... .savefile(f|
00002660  25 2c 6e 24 29 0d 10 d6  11 ea 20 6c 24 2c 63 25  |%,n$)..... l$,c%|
00002670  2c 64 24 2c 64 25 0d 10  e0 0a e7 20 66 25 20 8c  |,d$,d%..... f% .|
00002680  0d 10 ea 0b 20 20 6c 24  3d 6e 24 0d 10 f4 05 cc  |....  l$=n$.....|
00002690  0d 10 fe 13 20 20 6c 24  3d 24 66 69 6c 65 6e 61  |....  l$=$filena|
000026a0  6d 65 25 0d 11 08 5a 20  20 e7 20 a7 6c 24 2c 22  |me%...Z  . .l$,"|
000026b0  2e 22 29 3d 30 20 f2 77  61 72 6e 69 6e 67 62 6f  |.")=0 .warningbo|
000026c0  78 28 22 54 6f 20 73 61  76 65 20 74 68 65 20 66  |x("To save the f|
000026d0  69 6c 65 2c 20 64 72 61  67 20 74 68 65 20 69 63  |ile, drag the ic|
000026e0  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
000026f0  79 20 76 69 65 77 65 72  2e 22 29 3a e1 0d 11 12  |y viewer."):....|
00002700  05 cd 0d 11 1c 09 f2 73  61 76 65 0d 11 26 05 e1  |.......save..&..|
00002710  0d 11 30 04 0d 11 3a 25  dd 20 f2 72 65 63 65 69  |..0...:%. .recei|
00002720  76 65 28 72 65 61 73 6f  6e 25 2c 72 65 66 25 2c  |ve(reason%,ref%,|
00002730  6d 65 73 73 61 67 65 25  29 0d 11 44 11 ea 20 6e  |message%)..D.. n|
00002740  61 6d 65 24 2c 69 25 2c  78 25 0d 11 4e 10 c8 8e  |ame$,i%,x%..N...|
00002750  20 72 65 61 73 6f 6e 25  20 ca 0d 11 58 0b c9 20  | reason% ...X.. |
00002760  31 37 2c 31 38 0d 11 62  13 20 20 c8 8e 20 6d 65  |17,18..b.  .. me|
00002770  73 73 61 67 65 25 20 ca  0d 11 6c 19 20 20 c9 20  |ssage% ...l.  . |
00002780  30 3a 20 f4 20 71 75 69  74 2d 6d 65 73 73 61 67  |0: . quit-messag|
00002790  65 0d 11 76 15 20 20 20  20 20 20 20 20 20 20 71  |e..v.          q|
000027a0  75 69 74 25 3d b9 0d 11  80 1d 20 20 c9 20 31 3a  |uit%=.....  . 1:|
000027b0  20 f4 20 64 61 74 61 73  61 76 65 2d 6d 65 73 73  | . datasave-mess|
000027c0  61 67 65 0d 11 8a 3f 20  20 20 20 20 20 20 20 20  |age...?         |
000027d0  20 f4 20 66 69 6c 65 20  64 72 6f 70 70 65 64 20  | . file dropped |
000027e0  66 72 6f 6d 20 61 70 70  6c 69 63 61 74 69 6f 6e  |from application|
000027f0  20 2d 20 72 65 74 75 72  6e 20 66 69 6c 65 6e 61  | - return filena|
00002800  6d 65 0d 11 94 15 20 20  20 20 20 20 20 20 20 20  |me....          |
00002810  21 71 25 3d 32 35 36 0d  11 9e 25 20 20 20 20 20  |!q%=256...%     |
00002820  20 20 20 20 20 71 25 21  31 32 3d 71 25 21 38 3a  |     q%!12=q%!8:|
00002830  f4 20 63 6f 70 79 20 6d  79 72 65 66 0d 11 a8 2a  |. copy myref...*|
00002840  20 20 20 20 20 20 20 20  20 20 71 25 21 31 36 3d  |          q%!16=|
00002850  32 3a f4 20 73 65 74 20  74 6f 20 44 61 74 61 4c  |2:. set to DataL|
00002860  6f 61 64 41 63 6b 0d 11  b2 25 20 20 20 20 20 20  |oadAck...%      |
00002870  20 20 20 20 71 25 21 33  36 3d 2d 31 3a f4 20 75  |    q%!36=-1:. u|
00002880  6e 73 61 66 65 20 66 69  6c 65 21 0d 11 bc 2c 20  |nsafe file!..., |
00002890  20 20 20 20 20 20 20 20  20 24 28 71 25 2b 34 34  |         $(q%+44|
000028a0  29 3d 22 3c 43 68 61 72  44 65 66 24 44 69 72 3e  |)="<CharDef$Dir>|
000028b0  2e 53 63 72 61 70 22 0d  11 c6 1b 20 20 20 20 20  |.Scrap"....     |
000028c0  20 20 20 20 20 3f 28 71  25 2b 34 34 2b 32 30 29  |     ?(q%+44+20)|
000028d0  3d 30 0d 11 d0 2e 20 20  20 20 20 20 20 20 20 20  |=0....          |
000028e0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000028f0  73 61 67 65 22 2c 31 37  2c 71 25 2c 71 25 21 34  |sage",17,q%,q%!4|
00002900  0d 11 da 0f 20 20 20 20  20 20 20 20 20 20 e1 0d  |....          ..|
00002910  11 e4 1d 20 20 c9 20 32  3a 20 e7 20 72 65 66 25  |...  . 2: . ref%|
00002920  3c 3e 73 61 76 65 72 65  66 25 20 8c 0d 11 ee 3e  |<>saveref% ....>|
00002930  20 20 20 20 20 20 20 20  20 20 20 20 f2 77 61 72  |            .war|
00002940  6e 69 6e 67 62 6f 78 28  22 55 6e 65 78 70 65 63  |ningbox("Unexpec|
00002950  74 65 64 20 73 61 76 65  20 70 61 63 6b 65 74 20  |ted save packet |
00002960  72 65 63 65 69 76 65 64  22 29 0d 11 f8 11 20 20  |received")....  |
00002970  20 20 20 20 20 20 20 20  20 20 e1 0d 12 02 0f 20  |          ..... |
00002980  20 20 20 20 20 20 20 20  20 cd 0d 12 0c 1a 20 20  |         .....  |
00002990  20 20 20 20 20 20 20 20  e7 20 71 25 21 33 36 3d  |        . q%!36=|
000029a0  2d 31 20 8c 0d 12 16 29  20 20 20 20 20 20 20 20  |-1 ....)        |
000029b0  20 20 20 20 f2 73 61 76  65 66 69 6c 65 28 b9 2c  |    .savefile(.,|
000029c0  a4 72 74 6f 7a 28 71 25  2b 34 34 29 29 0d 12 20  |.rtoz(q%+44)).. |
000029d0  0f 20 20 20 20 20 20 20  20 20 20 cc 0d 12 2a 27  |.          ...*'|
000029e0  20 20 20 20 20 20 20 20  20 20 20 20 24 66 69 6c  |            $fil|
000029f0  65 6e 61 6d 65 25 3d a4  72 74 6f 7a 28 71 25 2b  |ename%=.rtoz(q%+|
00002a00  34 34 29 0d 12 34 1f 20  20 20 20 20 20 20 20 20  |44)..4.         |
00002a10  20 20 20 f2 73 61 76 65  66 69 6c 65 28 a3 2c 22  |   .savefile(.,"|
00002a20  22 29 0d 12 3e 0f 20 20  20 20 20 20 20 20 20 20  |")..>.          |
00002a30  cd 0d 12 48 15 20 20 20  20 20 20 20 20 20 20 21  |...H.          !|
00002a40  71 25 3d 32 35 36 0d 12  52 15 20 20 20 20 20 20  |q%=256..R.      |
00002a50  20 20 20 20 71 25 21 31  36 3d 33 0d 12 5c 18 20  |    q%!16=3..\. |
00002a60  20 20 20 20 20 20 20 20  20 71 25 21 31 32 3d 71  |         q%!12=q|
00002a70  25 21 38 0d 12 66 35 20  20 20 20 20 20 20 20 20  |%!8..f5         |
00002a80  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
00002a90  73 73 61 67 65 22 2c 31  37 2c 71 25 2c 71 25 21  |ssage",17,q%,q%!|
00002aa0  32 30 2c 71 25 21 32 34  0d 12 70 1d 20 20 c9 20  |20,q%!24..p.  . |
00002ab0  33 3a 20 f4 20 64 61 74  61 6c 6f 61 64 2d 6d 65  |3: . dataload-me|
00002ac0  73 73 61 67 65 0d 12 7a  3f 20 20 20 20 20 20 20  |ssage..z?       |
00002ad0  20 20 20 f4 20 66 69 6c  65 20 64 72 6f 70 70 65  |   . file droppe|
00002ae0  64 20 66 72 6f 6d 20 46  69 6c 65 72 20 2d 20 74  |d from Filer - t|
00002af0  72 61 6e 73 66 65 72 20  74 6f 20 64 61 74 61 20  |ransfer to data |
00002b00  66 69 6c 65 0d 12 84 13  20 20 20 20 20 20 20 20  |file....        |
00002b10  20 20 f2 6c 6f 61 64 0d  12 8e 40 20 20 f4 20 57  |  .load...@  . W|
00002b20  48 45 4e 20 34 3a 20 52  45 4d 20 61 63 6b 6e 6f  |HEN 4: REM ackno|
00002b30  77 6c 65 64 67 65 6d 65  6e 74 20 6f 66 20 66 69  |wledgement of fi|
00002b40  6c 65 20 6c 6f 61 64 65  64 20 2d 20 64 65 6c 65  |le loaded - dele|
00002b50  74 65 20 66 69 6c 65 0d  12 98 1f 20 20 f4 20 20  |te file....  .  |
00002b60  20 20 20 20 20 20 20 50  52 4f 43 69 6e 69 74 5f  |       PROCinit_|
00002b70  73 79 73 74 65 6d 0d 12  a2 2f 20 20 f4 20 57 48  |system.../  . WH|
00002b80  45 4e 20 26 35 30 32 3a  20 52 45 4d 20 69 6e 74  |EN &502: REM int|
00002b90  65 72 61 63 74 69 76 65  20 68 65 6c 70 20 72 65  |eractive help re|
00002ba0  71 75 65 73 74 0d 12 ac  27 20 20 f4 20 20 20 20  |quest...'  .    |
00002bb0  20 20 20 20 20 20 20 20  50 52 4f 43 69 6e 74 65  |        PROCinte|
00002bc0  72 61 63 74 69 76 65 5f  68 65 6c 70 0d 12 b6 1c  |ractive_help....|
00002bd0  20 20 c9 20 26 34 30 30  43 31 3a 20 f2 67 65 74  |  . &400C1: .get|
00002be0  6d 6f 64 65 69 6e 66 6f  0d 12 c0 07 20 20 cb 0d  |modeinfo....  ..|
00002bf0  12 ca 08 c9 20 31 39 0d  12 d4 3e 20 20 f4 20 2a  |.... 19...>  . *|
00002c00  2a 2a 2a 2a 20 61 63 6b  20 63 61 6e 20 6f 6e 6c  |**** ack can onl|
00002c10  79 20 62 65 20 69 66 20  62 72 6f 61 64 63 61 73  |y be if broadcas|
00002c20  74 20 66 6f 72 20 66 69  6c 65 20 68 61 73 20 66  |t for file has f|
00002c30  61 69 6c 65 64 0d 12 de  15 20 20 f4 20 24 66 69  |ailed....  . $fi|
00002c40  6c 65 6e 61 6d 65 25 3d  22 22 0d 12 e8 31 20 20  |lename%=""...1  |
00002c50  f4 20 50 52 4f 43 70 6f  70 75 70 5f 73 61 76 65  |. PROCpopup_save|
00002c60  64 62 6f 78 28 73 61 76  65 62 6f 78 66 66 37 25  |dbox(saveboxff7%|
00002c70  2c 66 69 6c 65 6e 61 6d  65 25 29 0d 12 f2 05 cb  |,filename%).....|
00002c80  0d 12 fc 05 e1 0d 13 06  05 20 0d 13 10 38 dd 20  |......... ...8. |
00002c90  f2 6d 6f 75 73 65 5f 63  6c 69 63 6b 28 6d 6f 75  |.mouse_click(mou|
00002ca0  73 65 78 25 2c 6d 6f 75  73 65 79 25 2c 62 25 2c  |sex%,mousey%,b%,|
00002cb0  68 61 6e 64 6c 65 25 2c  69 63 6f 6e 25 2c 6f 62  |handle%,icon%,ob|
00002cc0  25 29 0d 13 1a 0b ea 20  78 25 2c 79 25 0d 13 24  |%)..... x%,y%..$|
00002cd0  0b c8 8e 20 62 25 20 ca  0d 13 2e 1e c9 20 32 3a  |... b% ...... 2:|
00002ce0  20 f4 20 6d 65 6e 75 2d  62 75 74 74 6f 6e 20 63  | . menu-button c|
00002cf0  6c 69 63 6b 65 64 0d 13  38 12 20 20 c8 8e 20 68  |licked..8.  .. h|
00002d00  61 6e 64 6c 65 25 20 ca  0d 13 42 24 20 20 c9 20  |andle% ...B$  . |
00002d10  73 74 6f 72 65 25 3a 20  f2 64 6f 5f 6d 65 6e 75  |store%: .do_menu|
00002d20  28 73 74 6f 72 65 6d 65  6e 75 25 29 0d 13 4c 23  |(storemenu%)..L#|
00002d30  20 20 c9 20 65 64 69 74  25 3a 20 20 f2 64 6f 5f  |  . edit%:  .do_|
00002d40  6d 65 6e 75 28 65 64 69  74 6d 65 6e 75 25 29 0d  |menu(editmenu%).|
00002d50  13 56 0c 20 20 c9 20 6f  77 6e 25 0d 13 60 1c 20  |.V.  . own%..`. |
00002d60  20 20 20 24 66 69 6c 65  6e 61 6d 65 25 3d 66 69  |   $filename%=fi|
00002d70  6c 65 6e 61 6d 65 24 0d  13 6a 0f 20 20 20 20 e7  |lename$..j.    .|
00002d80  20 73 76 25 20 8c 0d 13  74 2b 20 20 20 20 20 20  | sv% ...t+      |
00002d90  24 74 69 74 6c 65 25 3d  a4 6c 65 61 66 6e 61 6d  |$title%=.leafnam|
00002da0  65 28 66 69 6c 65 6e 61  6d 65 24 29 2b 22 20 2a  |e(filename$)+" *|
00002db0  22 0d 13 7e 09 20 20 20  20 cc 0d 13 88 26 20 20  |"..~.    ....&  |
00002dc0  20 20 20 20 24 74 69 74  6c 65 25 3d a4 6c 65 61  |    $title%=.lea|
00002dd0  66 6e 61 6d 65 28 66 69  6c 65 6e 61 6d 65 24 29  |fname(filename$)|
00002de0  0d 13 92 09 20 20 20 20  cd 0d 13 9c 1b 20 20 20  |....    .....   |
00002df0  20 f2 64 6f 5f 6d 65 6e  75 28 6d 61 69 6e 6d 65  | .do_menu(mainme|
00002e00  6e 75 25 29 0d 13 a6 1f  20 20 c9 20 2d 32 3a 20  |nu%)....  . -2: |
00002e10  f2 64 6f 5f 6d 65 6e 75  28 69 63 6f 6e 6d 65 6e  |.do_menu(iconmen|
00002e20  75 25 29 0d 13 b0 07 20  20 cb 0d 13 ba 2c c9 20  |u%)....  ....,. |
00002e30  31 2c 34 3a 20 f4 20 73  65 6c 65 63 74 2d 20 6f  |1,4: . select- o|
00002e40  72 20 61 6c 74 65 72 2d  62 75 74 74 6f 6e 20 63  |r alter-button c|
00002e50  6c 69 63 6b 65 64 0d 13  c4 41 20 20 e7 20 68 61  |licked...A  . ha|
00002e60  6e 64 6c 65 25 3e 2d 31  20 8c 20 f2 67 65 74 77  |ndle%>-1 . .getw|
00002e70  28 68 61 6e 64 6c 65 25  29 3a 78 25 3d 6d 6f 75  |(handle%):x%=mou|
00002e80  73 65 78 25 2d 62 78 25  3a 79 25 3d 6d 6f 75 73  |sex%-bx%:y%=mous|
00002e90  65 79 25 2d 62 79 25 0d  13 ce 12 20 20 c8 8e 20  |ey%-by%....  .. |
00002ea0  68 61 6e 64 6c 65 25 20  ca 0d 13 d8 1c 20 20 c9  |handle% .....  .|
00002eb0  20 6f 77 6e 25 3a 20 f2  73 65 6c 65 63 74 28 78  | own%: .select(x|
00002ec0  25 2c 79 25 29 0d 13 e2  1b 20 20 c9 20 65 64 69  |%,y%)....  . edi|
00002ed0  74 25 3a 20 f2 65 64 69  74 28 78 25 2c 79 25 29  |t%: .edit(x%,y%)|
00002ee0  0d 13 ec 27 20 20 c9 20  73 65 6c 65 63 74 25 3a  |...'  . select%:|
00002ef0  20 e7 20 69 63 6f 6e 25  3d 30 20 f2 73 65 6c 65  | . icon%=0 .sele|
00002f00  63 74 41 53 43 49 49 0d  13 f6 2e 20 20 c9 20 73  |ctASCII....  . s|
00002f10  61 76 65 62 6f 78 66 66  37 25 3a 20 e7 20 69 63  |aveboxff7%: . ic|
00002f20  6f 6e 25 3d 30 20 f2 73  61 76 65 66 69 6c 65 28  |on%=0 .savefile(|
00002f30  a3 2c 22 22 29 0d 14 00  38 20 20 c9 20 2d 32 3a  |.,"")...8  . -2:|
00002f40  20 e7 20 6f 70 65 6e 25  20 f2 66 72 6f 6e 74 28  | . open% .front(|
00002f50  6f 77 6e 25 29 20 8b 20  f2 72 65 6f 70 65 6e 28  |own%) . .reopen(|
00002f60  6f 77 6e 25 29 3a 6f 70  65 6e 25 3d b9 0d 14 0a  |own%):open%=....|
00002f70  07 20 20 cb 0d 14 14 19  c9 20 26 34 30 3a 20 f4  |.  ...... &40: .|
00002f80  20 64 72 61 67 20 73 74  61 72 74 65 64 0d 14 1e  | drag started...|
00002f90  45 20 20 e7 20 68 61 6e  64 6c 65 25 3d 73 61 76  |E  . handle%=sav|
00002fa0  65 62 6f 78 66 66 37 25  20 f2 64 72 61 67 5f 69  |eboxff7% .drag_i|
00002fb0  63 6f 6e 28 6d 6f 75 73  65 78 25 2c 6d 6f 75 73  |con(mousex%,mous|
00002fc0  65 79 25 2c 73 61 76 65  62 6f 78 66 66 37 25 2c  |ey%,saveboxff7%,|
00002fd0  33 29 0d 14 28 05 cb 0d  14 32 05 e1 0d 14 3c 05  |3)..(....2....<.|
00002fe0  20 0d 14 46 1e dd 20 f2  6b 65 79 5f 70 72 65 73  | ..F.. .key_pres|
00002ff0  73 28 68 61 6e 64 6c 65  25 2c 6b 65 79 25 29 0d  |s(handle%,key%).|
00003000  14 50 10 c8 8e 20 68 61  6e 64 6c 65 25 20 ca 0d  |.P... handle% ..|
00003010  14 5a 0d c9 20 73 65 6c  65 63 74 25 0d 14 64 38  |.Z.. select%..d8|
00003020  20 20 e7 20 6b 65 79 25  3d 31 33 20 f2 73 65 6c  |  . key%=13 .sel|
00003030  65 63 74 41 53 43 49 49  20 8b 20 c8 99 20 22 57  |ectASCII . .. "W|
00003040  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
00003050  6b 65 79 25 0d 14 6e 11  c9 20 73 61 76 65 62 6f  |key%..n.. savebo|
00003060  78 66 66 37 25 0d 14 78  3b 20 20 e7 20 6b 65 79  |xff7%..x;  . key|
00003070  25 3d 31 33 20 f2 73 61  76 65 66 69 6c 65 28 a3  |%=13 .savefile(.|
00003080  2c 22 22 29 20 8b 20 c8  99 20 22 57 69 6d 70 5f  |,"") . .. "Wimp_|
00003090  50 72 6f 63 65 73 73 4b  65 79 22 2c 6b 65 79 25  |ProcessKey",key%|
000030a0  0d 14 82 05 cb 0d 14 8c  05 e1 0d 14 96 04 0d 14  |................|
000030b0  a0 1c dd 20 f2 63 6c 6f  73 65 5f 77 69 6e 64 6f  |... .close_windo|
000030c0  77 28 68 61 6e 64 6c 65  25 29 0d 14 aa 12 f2 67  |w(handle%).....g|
000030d0  65 74 77 28 68 61 6e 64  6c 65 25 29 0d 14 b4 1b  |etw(handle%)....|
000030e0  78 6f 25 3d 78 30 25 3a  79 6f 25 3d 79 30 25 3a  |xo%=x0%:yo%=y0%:|
000030f0  6f 70 65 6e 25 3d a3 0d  14 be 29 21 71 25 3d 68  |open%=....)!q%=h|
00003100  61 6e 64 6c 65 25 3a c8  99 20 22 57 69 6d 70 5f  |andle%:.. "Wimp_|
00003110  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |CloseWindow",,q%|
00003120  0d 14 c8 05 e1 0d 14 d2  04 0d 14 dc 16 dd 20 f2  |.............. .|
00003130  64 6f 5f 6d 65 6e 75 28  62 6c 6f 63 6b 25 29 0d  |do_menu(block%).|
00003140  14 e6 10 6d 65 6e 75 25  3d 62 6c 6f 63 6b 25 0d  |...menu%=block%.|
00003150  14 f0 78 e7 20 6d 65 6e  75 25 3d 69 63 6f 6e 6d  |..x. menu%=iconm|
00003160  65 6e 75 25 20 c8 99 20  22 57 69 6d 70 5f 43 72  |enu% .. "Wimp_Cr|
00003170  65 61 74 65 4d 65 6e 75  22 2c 2c 62 6c 6f 63 6b  |eateMenu",,block|
00003180  25 2c 6d 6f 75 73 65 78  25 2d 36 34 2c 39 36 2b  |%,mousex%-64,96+|
00003190  38 30 20 8b 20 c8 99 20  22 57 69 6d 70 5f 43 72  |80 . .. "Wimp_Cr|
000031a0  65 61 74 65 4d 65 6e 75  22 2c 2c 62 6c 6f 63 6b  |eateMenu",,block|
000031b0  25 2c 6d 6f 75 73 65 78  25 2d 33 32 2c 6d 6f 75  |%,mousex%-32,mou|
000031c0  73 65 79 25 2b 31 36 0d  14 fa 05 e1 0d 15 04 04  |sey%+16.........|
000031d0  0d 15 0e 24 dd 20 f2 63  72 65 61 74 65 5f 6d 65  |...$. .create_me|
000031e0  6e 75 28 6d 65 6e 75 62  6c 6f 63 6b 25 2c 74 65  |nu(menublock%,te|
000031f0  78 74 24 29 0d 15 18 12  ea 20 6c 65 76 65 6c 25  |xt$)..... level%|
00003200  2c 63 72 61 70 25 0d 15  22 0c 6c 65 76 65 6c 25  |,crap%..".level%|
00003210  3d 30 0d 15 2c 2e 63 72  61 70 25 3d a4 63 72 65  |=0..,.crap%=.cre|
00003220  61 74 65 5f 6d 65 6e 75  5f 6c 65 76 65 6c 28 6d  |ate_menu_level(m|
00003230  65 6e 75 62 6c 6f 63 6b  25 2c 74 65 78 74 24 29  |enublock%,text$)|
00003240  0d 15 36 3f e7 20 63 72  61 70 25 3c 3e 6d 65 6e  |..6?. crap%<>men|
00003250  75 62 6c 6f 63 6b 25 20  85 20 31 2c 22 49 6e 74  |ublock% . 1,"Int|
00003260  65 72 6e 61 6c 20 65 72  72 6f 72 20 69 6e 20 50  |ernal error in P|
00003270  52 4f 43 63 72 65 61 74  65 5f 6d 65 6e 75 22 0d  |ROCcreate_menu".|
00003280  15 40 05 e1 0d 15 4a 04  0d 15 54 2a dd 20 a4 63  |.@....J...T*. .c|
00003290  72 65 61 74 65 5f 6d 65  6e 75 5f 6c 65 76 65 6c  |reate_menu_level|
000032a0  28 6d 65 6e 75 62 6c 6f  63 6b 25 2c 74 65 78 74  |(menublock%,text|
000032b0  24 29 0d 15 5e 4d ea 20  6e 65 77 74 65 78 74 24  |$)..^M. newtext$|
000032c0  2c 74 69 74 6c 65 24 2c  70 74 72 25 2c 73 68 61  |,title$,ptr%,sha|
000032d0  64 65 25 2c 74 69 63 6b  25 2c 64 6f 74 74 65 64  |de%,tick%,dotted|
000032e0  25 2c 66 67 63 6f 6c 25  2c 73 75 62 6d 65 6e 75  |%,fgcol%,submenu|
000032f0  25 2c 77 72 69 74 61 62  6c 65 25 2c 6d 62 25 0d  |%,writable%,mb%.|
00003300  15 68 27 6d 62 25 3d 6d  65 6e 75 62 6c 6f 63 6b  |.h'mb%=menublock|
00003310  25 2b 6c 65 76 65 6c 25  2a 6d 65 6e 75 62 6c 6f  |%+level%*menublo|
00003320  63 6b 73 69 7a 65 0d 15  72 20 74 69 74 6c 65 24  |cksize..r title$|
00003330  3d c0 74 65 78 74 24 2c  a7 74 65 78 74 24 2c 22  |=.text$,.text$,"|
00003340  2c 22 29 2d 31 29 0d 15  7c 1f 74 65 78 74 24 3d  |,")-1)..|.text$=|
00003350  c1 74 65 78 74 24 2c a7  74 65 78 74 24 2c 22 2c  |.text$,.text$,",|
00003360  22 29 2b 31 29 0d 15 86  14 24 6d 62 25 3d c0 74  |")+1)....$mb%=.t|
00003370  69 74 6c 65 24 2c 31 31  29 0d 15 90 36 6d 62 25  |itle$,11)...6mb%|
00003380  3f 31 32 3d 60 74 66 63  6f 6c 3a 6d 62 25 3f 31  |?12=`tfcol:mb%?1|
00003390  33 3d 32 3a 6d 62 25 3f  31 34 3d 60 77 66 63 6f  |3=2:mb%?14=`wfco|
000033a0  6c 3a 6d 62 25 3f 31 35  3d 60 77 62 63 6f 6c 0d  |l:mb%?15=`wbcol.|
000033b0  15 9a 21 6d 62 25 21 31  36 3d 31 38 30 3a 6d 62  |..!mb%!16=180:mb|
000033c0  25 21 32 30 3d 34 30 3a  6d 62 25 21 32 34 3d 30  |%!20=40:mb%!24=0|
000033d0  0d 15 a4 1f e7 20 c2 74  65 78 74 24 2c 31 29 3c  |..... .text$,1)<|
000033e0  3e 22 2c 22 20 74 65 78  74 24 2b 3d 22 2c 22 0d  |>"," text$+=",".|
000033f0  15 ae 0f 70 74 72 25 3d  6d 62 25 2b 32 38 0d 15  |...ptr%=mb%+28..|
00003400  b8 05 f5 0d 15 c2 0e 20  20 73 68 61 64 65 25 3d  |.......  shade%=|
00003410  30 0d 15 cc 0d 20 20 74  69 63 6b 25 3d 30 0d 15  |0....  tick%=0..|
00003420  d6 0f 20 20 64 6f 74 74  65 64 25 3d 30 0d 15 e0  |..  dotted%=0...|
00003430  11 20 20 77 72 69 74 61  62 6c 65 25 3d 30 0d 15  |.  writable%=0..|
00003440  ea 11 20 20 73 75 62 6d  65 6e 75 25 3d 2d 31 0d  |..  submenu%=-1.|
00003450  15 f4 36 20 20 e7 20 c0  74 65 78 74 24 2c 31 29  |..6  . .text$,1)|
00003460  3d 22 3c 22 20 8c 20 73  68 61 64 65 25 3d 26 34  |="<" . shade%=&4|
00003470  30 30 30 30 30 3a 74 65  78 74 24 3d c1 74 65 78  |00000:text$=.tex|
00003480  74 24 2c 32 29 0d 15 fe  2f 20 20 e7 20 c0 74 65  |t$,2).../  . .te|
00003490  78 74 24 2c 31 29 3d 22  3e 22 20 8c 20 74 69 63  |xt$,1)=">" . tic|
000034a0  6b 25 3d 31 3a 74 65 78  74 24 3d c1 74 65 78 74  |k%=1:text$=.text|
000034b0  24 2c 32 29 0d 16 08 31  20 20 e7 20 c0 74 65 78  |$,2)...1  . .tex|
000034c0  74 24 2c 31 29 3d 22 3a  22 20 8c 20 64 6f 74 74  |t$,1)=":" . dott|
000034d0  65 64 25 3d 32 3a 74 65  78 74 24 3d c1 74 65 78  |ed%=2:text$=.tex|
000034e0  74 24 2c 32 29 0d 16 12  53 20 20 f4 3a 20 49 46  |t$,2)...S  .: IF|
000034f0  20 4c 45 46 54 24 28 74  65 78 74 24 2c 31 29 3d  | LEFT$(text$,1)=|
00003500  22 2a 22 20 54 48 45 4e  20 77 72 69 74 61 62 6c  |"*" THEN writabl|
00003510  65 25 3d 34 3a 74 65 78  74 24 3d 4d 49 44 24 28  |e%=4:text$=MID$(|
00003520  74 65 78 74 24 2c 32 29  20 4e 4f 54 20 53 55 50  |text$,2) NOT SUP|
00003530  50 4f 52 54 45 44 21 21  0d 16 1c 6b 20 20 f4 3a  |PORTED!!...k  .:|
00003540  20 49 46 20 4c 45 46 54  24 28 74 65 78 74 24 2c  | IF LEFT$(text$,|
00003550  31 29 3d 22 23 22 20 54  48 45 4e 20 66 67 63 6f  |1)="#" THEN fgco|
00003560  6c 3d 45 56 41 4c 28 22  26 22 2b 4d 49 44 24 28  |l=EVAL("&"+MID$(|
00003570  74 65 78 74 24 2c 32 2c  31 29 29 3a 74 65 78 74  |text$,2,1)):text|
00003580  24 3d 4d 49 44 24 28 74  65 78 74 24 2c 33 29 20  |$=MID$(text$,3) |
00003590  4e 4f 54 20 53 55 50 50  4f 52 54 45 44 20 21 21  |NOT SUPPORTED !!|
000035a0  21 21 21 0d 16 26 17 20  20 e7 20 c0 74 65 78 74  |!!!..&.  . .text|
000035b0  24 2c 31 29 3d 22 21 22  20 8c 0d 16 30 25 20 20  |$,1)="!" ...0%  |
000035c0  20 20 73 75 62 6d 65 6e  75 25 3d 73 75 62 25 28  |  submenu%=sub%(|
000035d0  bb 28 c1 74 65 78 74 24  2c 32 2c 31 29 29 29 0d  |.(.text$,2,1))).|
000035e0  16 3a 17 20 20 20 20 74  65 78 74 24 3d c1 74 65  |.:.    text$=.te|
000035f0  78 74 24 2c 33 29 0d 16  44 07 20 20 cd 0d 16 4e  |xt$,3)..D.  ...N|
00003600  17 20 20 e7 20 c0 74 65  78 74 24 2c 31 29 3d 22  |.  . .text$,1)="|
00003610  28 22 20 8c 0d 16 58 17  20 20 20 20 74 65 78 74  |(" ...X.    text|
00003620  24 3d c1 74 65 78 74 24  2c 32 29 0d 16 62 30 20  |$=.text$,2)..b0 |
00003630  20 20 20 6e 65 77 74 65  78 74 24 3d 6d 65 6e 75  |   newtext$=menu|
00003640  24 28 bb 28 c0 74 65 78  74 24 2c a7 74 65 78 74  |$(.(.text$,.text|
00003650  24 2c 22 29 22 29 2d 31  29 29 29 0d 16 6c 23 20  |$,")")-1)))..l# |
00003660  20 20 20 74 65 78 74 24  3d c1 74 65 78 74 24 2c  |   text$=.text$,|
00003670  a7 74 65 78 74 24 2c 22  29 22 29 2b 31 29 0d 16  |.text$,")")+1)..|
00003680  76 11 20 20 20 20 6c 65  76 65 6c 25 2b 3d 31 0d  |v.    level%+=1.|
00003690  16 80 38 20 20 20 20 73  75 62 6d 65 6e 75 25 3d  |..8    submenu%=|
000036a0  a4 63 72 65 61 74 65 5f  6d 65 6e 75 5f 6c 65 76  |.create_menu_lev|
000036b0  65 6c 28 6d 65 6e 75 62  6c 6f 63 6b 25 2c 6e 65  |el(menublock%,ne|
000036c0  77 74 65 78 74 24 29 0d  16 8a 07 20 20 cd 0d 16  |wtext$)....  ...|
000036d0  94 19 20 20 f4 3a 49 46  20 77 72 69 74 61 62 6c  |..  .:IF writabl|
000036e0  65 25 20 54 48 45 4e 0d  16 9e 1d 20 20 20 20 f4  |e% THEN....    .|
000036f0  3a 69 25 3d 49 4e 53 54  52 28 74 65 78 74 24 2c  |:i%=INSTR(text$,|
00003700  22 7c 22 29 0d 16 a8 29  20 20 20 20 f4 3a 70 74  |"|")...)    .:pt|
00003710  72 25 21 31 32 3d 45 56  41 4c 28 4c 45 46 54 24  |r%!12=EVAL(LEFT$|
00003720  28 74 65 78 74 24 2c 69  25 2d 31 29 29 0d 16 b2  |(text$,i%-1))...|
00003730  20 20 20 20 20 f4 3a 74  65 78 74 24 3d 4d 49 44  |     .:text$=MID|
00003740  24 28 74 65 78 74 24 2c  69 25 2b 31 29 0d 16 bc  |$(text$,i%+1)...|
00003750  14 20 20 20 20 f4 3a 70  74 72 25 21 31 36 3d 2d  |.    .:ptr%!16=-|
00003760  31 0d 16 c6 35 20 20 20  20 f4 3a 70 74 72 25 21  |1...5    .:ptr%!|
00003770  32 30 3d 45 56 41 4c 28  4c 45 46 54 24 28 74 65  |20=EVAL(LEFT$(te|
00003780  78 74 24 2c 49 4e 53 54  52 28 74 65 78 74 24 2c  |xt$,INSTR(text$,|
00003790  22 2c 22 29 29 29 0d 16  d0 2b 20 20 20 20 f4 3a  |",")))...+    .:|
000037a0  6d 62 25 21 31 36 3d 46  4e 6d 61 78 28 6d 62 25  |mb%!16=FNmax(mb%|
000037b0  21 31 36 2c 34 2b 31 36  2a 70 74 72 25 21 32 30  |!16,4+16*ptr%!20|
000037c0  29 0d 16 da 0c 20 20 f4  3a 45 4c 53 45 0d 16 e4  |)....  .:ELSE...|
000037d0  2b 20 20 24 28 70 74 72  25 2b 31 32 29 3d c0 c0  |+  $(ptr%+12)=..|
000037e0  74 65 78 74 24 2c a7 74  65 78 74 24 2c 22 2c 22  |text$,.text$,","|
000037f0  29 2d 31 29 2c 31 31 29  0d 16 ee 0d 20 20 f4 3a  |)-1),11)....  .:|
00003800  45 4e 44 49 46 0d 16 f8  21 20 20 74 65 78 74 24  |ENDIF...!  text$|
00003810  3d c1 74 65 78 74 24 2c  a7 74 65 78 74 24 2c 22  |=.text$,.text$,"|
00003820  2c 22 29 2b 31 29 0d 17  02 3d 20 20 70 74 72 25  |,")+1)...=  ptr%|
00003830  21 30 3d 74 69 63 6b 25  20 84 20 64 6f 74 74 65  |!0=tick% . dotte|
00003840  64 25 20 84 20 77 72 69  74 61 62 6c 65 25 20 84  |d% . writable% .|
00003850  20 28 26 38 30 20 80 20  28 74 65 78 74 24 3d 22  | (&80 . (text$="|
00003860  22 29 29 0d 17 0c 15 20  20 70 74 72 25 21 34 3d  |"))....  ptr%!4=|
00003870  73 75 62 6d 65 6e 75 25  0d 17 16 4c 20 20 e7 20  |submenu%...L  . |
00003880  73 68 61 64 65 25 20 8c  20 70 74 72 25 21 38 3d  |shade% . ptr%!8=|
00003890  26 34 30 30 30 30 30 20  84 20 26 30 31 30 30 32  |&400000 . &01002|
000038a0  31 20 84 20 37 3c 3c 32  38 20 84 20 30 3c 3c 32  |1 . 7<<28 . 0<<2|
000038b0  34 20 8b 20 70 74 72 25  21 38 3d 26 30 37 30 30  |4 . ptr%!8=&0700|
000038c0  30 30 32 31 0d 17 20 0e  20 20 70 74 72 25 2b 3d  |0021.. .  ptr%+=|
000038d0  32 34 0d 17 2a 0e fd 20  74 65 78 74 24 3d 22 22  |24..*.. text$=""|
000038e0  0d 17 34 08 3d 6d 62 25  0d 17 3e 04 0d 17 48 12  |..4.=mb%..>...H.|
000038f0  dd 20 f2 6d 65 6e 75 5f  73 65 6c 65 63 74 0d 17  |. .menu_select..|
00003900  52 13 ea 20 6d 65 6e 75  24 2c 61 64 6a 75 73 74  |R.. menu$,adjust|
00003910  25 0d 17 5c 3b c8 99 20  22 57 69 6d 70 5f 47 65  |%..\;.. "Wimp_Ge|
00003920  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 62  |tPointerInfo",,b|
00003930  6c 6f 63 6b 25 3a 61 64  6a 75 73 74 25 3d 28 62  |lock%:adjust%=(b|
00003940  6c 6f 63 6b 25 21 38 20  80 20 31 29 0d 17 66 0e  |lock%!8 . 1)..f.|
00003950  c8 8e 20 6d 65 6e 75 25  20 ca 0d 17 70 0f c9 20  |.. menu% ...p.. |
00003960  6d 61 69 6e 6d 65 6e 75  25 0d 17 7a 3b 20 20 c8  |mainmenu%..z;  .|
00003970  99 20 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |. "Wimp_DecodeMe|
00003980  6e 75 22 2c 2c 6d 61 69  6e 6d 65 6e 75 25 2c 71  |nu",,mainmenu%,q|
00003990  25 2c c4 32 30 30 2c 22  20 22 29 b8 2c 2c 2c 6d  |%,.200," ").,,,m|
000039a0  65 6e 75 24 0d 17 84 10  20 20 c8 8e 20 6d 65 6e  |enu$....  .. men|
000039b0  75 24 20 ca 0d 17 8e 30  20 20 c9 20 22 52 65 73  |u$ ....0  . "Res|
000039c0  65 74 2e 4c 61 74 69 6e  31 22 3a 20 64 65 66 61  |et.Latin1": defa|
000039d0  75 6c 74 24 3d 22 4c 61  74 69 6e 31 22 3a f2 72  |ult$="Latin1":.r|
000039e0  65 73 65 74 0d 17 98 30  20 20 c9 20 22 52 65 73  |eset...0  . "Res|
000039f0  65 74 2e 4c 61 74 69 6e  32 22 3a 20 64 65 66 61  |et.Latin2": defa|
00003a00  75 6c 74 24 3d 22 4c 61  74 69 6e 32 22 3a f2 72  |ult$="Latin2":.r|
00003a10  65 73 65 74 0d 17 a2 30  20 20 c9 20 22 52 65 73  |eset...0  . "Res|
00003a20  65 74 2e 4c 61 74 69 6e  33 22 3a 20 64 65 66 61  |et.Latin3": defa|
00003a30  75 6c 74 24 3d 22 4c 61  74 69 6e 33 22 3a f2 72  |ult$="Latin3":.r|
00003a40  65 73 65 74 0d 17 ac 30  20 20 c9 20 22 52 65 73  |eset...0  . "Res|
00003a50  65 74 2e 4c 61 74 69 6e  34 22 3a 20 64 65 66 61  |et.Latin4": defa|
00003a60  75 6c 74 24 3d 22 4c 61  74 69 6e 34 22 3a f2 72  |ult$="Latin4":.r|
00003a70  65 73 65 74 0d 17 b6 2f  20 20 c9 20 22 52 65 73  |eset.../  . "Res|
00003a80  65 74 2e 47 72 65 65 6b  22 3a 20 20 64 65 66 61  |et.Greek":  defa|
00003a90  75 6c 74 24 3d 22 47 72  65 65 6b 22 3a f2 72 65  |ult$="Greek":.re|
00003aa0  73 65 74 0d 17 c0 07 20  20 cb 0d 17 ca 10 c9 20  |set....  ...... |
00003ab0  73 74 6f 72 65 6d 65 6e  75 25 0d 17 d4 3c 20 20  |storemenu%...<  |
00003ac0  c8 99 20 22 57 69 6d 70  5f 44 65 63 6f 64 65 4d  |.. "Wimp_DecodeM|
00003ad0  65 6e 75 22 2c 2c 73 74  6f 72 65 6d 65 6e 75 25  |enu",,storemenu%|
00003ae0  2c 71 25 2c c4 32 30 30  2c 22 20 22 29 b8 2c 2c  |,q%,.200," ").,,|
00003af0  2c 6d 65 6e 75 24 0d 17  de 10 20 20 c8 8e 20 6d  |,menu$....  .. m|
00003b00  65 6e 75 24 20 ca 0d 17  e8 1b 20 20 c9 20 22 52  |enu$ .....  . "R|
00003b10  65 73 74 6f 72 65 22 3a  20 f2 72 65 73 74 6f 72  |estore": .restor|
00003b20  65 0d 17 f2 07 20 20 cb  0d 17 fc 0f c9 20 65 64  |e....  ...... ed|
00003b30  69 74 6d 65 6e 75 25 0d  18 06 3b 20 20 c8 99 20  |itmenu%...;  .. |
00003b40  22 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  |"Wimp_DecodeMenu|
00003b50  22 2c 2c 65 64 69 74 6d  65 6e 75 25 2c 71 25 2c  |",,editmenu%,q%,|
00003b60  c4 32 30 30 2c 22 20 22  29 b8 2c 2c 2c 6d 65 6e  |.200," ").,,,men|
00003b70  75 24 0d 18 10 10 20 20  c8 8e 20 6d 65 6e 75 24  |u$....  .. menu$|
00003b80  20 ca 0d 18 1a 29 20 20  c9 20 22 41 6c 74 65 72  | ....)  . "Alter|
00003b90  2e 52 6f 74 61 74 65 2e  4c 65 66 74 22 3a 20 f2  |.Rotate.Left": .|
00003ba0  72 6f 74 61 74 65 5f 6c  65 66 74 0d 18 24 2b 20  |rotate_left..$+ |
00003bb0  20 c9 20 22 41 6c 74 65  72 2e 52 6f 74 61 74 65  | . "Alter.Rotate|
00003bc0  2e 52 69 67 68 74 22 3a  20 f2 72 6f 74 61 74 65  |.Right": .rotate|
00003bd0  5f 72 69 67 68 74 0d 18  2e 35 20 20 c9 20 22 41  |_right...5  . "A|
00003be0  6c 74 65 72 2e 4d 69 72  72 6f 72 2e 48 6f 72 69  |lter.Mirror.Hori|
00003bf0  7a 6f 6e 74 61 6c 22 3a  20 f2 6d 69 72 72 6f 72  |zontal": .mirror|
00003c00  5f 68 6f 72 69 7a 6f 6e  74 61 6c 0d 18 38 31 20  |_horizontal..81 |
00003c10  20 c9 20 22 41 6c 74 65  72 2e 4d 69 72 72 6f 72  | . "Alter.Mirror|
00003c20  2e 56 65 72 74 69 63 61  6c 22 3a 20 f2 6d 69 72  |.Vertical": .mir|
00003c30  72 6f 72 5f 76 65 72 74  69 63 61 6c 0d 18 42 27  |ror_vertical..B'|
00003c40  20 20 c9 20 22 41 6c 74  65 72 2e 53 68 69 66 74  |  . "Alter.Shift|
00003c50  2e 4c 65 66 74 22 3a 20  f2 73 68 69 66 74 5f 6c  |.Left": .shift_l|
00003c60  65 66 74 0d 18 4c 29 20  20 c9 20 22 41 6c 74 65  |eft..L)  . "Alte|
00003c70  72 2e 53 68 69 66 74 2e  52 69 67 68 74 22 3a 20  |r.Shift.Right": |
00003c80  f2 73 68 69 66 74 5f 72  69 67 68 74 0d 18 56 23  |.shift_right..V#|
00003c90  20 20 c9 20 22 41 6c 74  65 72 2e 53 68 69 66 74  |  . "Alter.Shift|
00003ca0  2e 55 70 22 3a 20 f2 73  68 69 66 74 5f 75 70 0d  |.Up": .shift_up.|
00003cb0  18 60 27 20 20 c9 20 22  41 6c 74 65 72 2e 53 68  |.`'  . "Alter.Sh|
00003cc0  69 66 74 2e 44 6f 77 6e  22 3a 20 f2 73 68 69 66  |ift.Down": .shif|
00003cd0  74 5f 64 6f 77 6e 0d 18  6a 17 20 20 c9 20 22 53  |t_down..j.  . "S|
00003ce0  74 6f 72 65 22 3a 20 f2  73 74 6f 72 65 0d 18 74  |tore": .store..t|
00003cf0  1b 20 20 c9 20 22 49 6e  73 74 61 6c 6c 22 3a 20  |.  . "Install": |
00003d00  f2 69 6e 73 74 61 6c 6c  0d 18 7e 07 20 20 cb 0d  |.install..~.  ..|
00003d10  18 88 0f c9 20 69 63 6f  6e 6d 65 6e 75 25 0d 18  |.... iconmenu%..|
00003d20  92 3b 20 20 c8 99 20 22  57 69 6d 70 5f 44 65 63  |.;  .. "Wimp_Dec|
00003d30  6f 64 65 4d 65 6e 75 22  2c 2c 69 63 6f 6e 6d 65  |odeMenu",,iconme|
00003d40  6e 75 25 2c 71 25 2c c4  32 30 30 2c 22 20 22 29  |nu%,q%,.200," ")|
00003d50  b8 2c 2c 2c 6d 65 6e 75  24 0d 18 9c 1c 20 20 e7  |.,,,menu$....  .|
00003d60  20 6d 65 6e 75 24 3d 22  51 75 69 74 22 3a 71 75  | menu$="Quit":qu|
00003d70  69 74 25 3d b9 0d 18 a6  05 cb 0d 18 b0 1d e7 20  |it%=........... |
00003d80  61 64 6a 75 73 74 25 20  f2 64 6f 5f 6d 65 6e 75  |adjust% .do_menu|
00003d90  28 6d 65 6e 75 25 29 0d  18 ba 05 e1 0d 18 c4 05  |(menu%).........|
00003da0  20 0d 18 ce 1d dd 20 f2  72 65 64 72 61 77 5f 77  | ..... .redraw_w|
00003db0  69 6e 64 6f 77 28 68 61  6e 64 6c 65 25 29 0d 18  |indow(handle%)..|
00003dc0  d8 45 f4 20 49 46 20 68  61 6e 64 6c 65 25 3c 3e  |.E. IF handle%<>|
00003dd0  69 6e 66 6f 25 20 41 4e  44 20 68 61 6e 64 6c 65  |info% AND handle|
00003de0  25 3c 3e 6f 77 6e 25 20  45 4e 44 50 52 4f 43 3a  |%<>own% ENDPROC:|
00003df0  20 52 45 4d 20 3f 3f 3f  3f 20 6e 6f 64 69 67 20  | REM ???? nodig |
00003e00  3f 3f 3f 0d 18 e2 0f 21  71 25 3d 68 61 6e 64 6c  |???....!q%=handl|
00003e10  65 25 0d 18 ec 26 c8 99  20 22 57 69 6d 70 5f 52  |e%...&.. "Wimp_R|
00003e20  65 64 72 61 77 57 69 6e  64 6f 77 22 2c 2c 71 25  |edrawWindow",,q%|
00003e30  20 b8 20 6d 6f 72 65 25  0d 18 f6 19 f2 64 72 61  | . more%.....dra|
00003e40  77 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |w_window(handle%|
00003e50  29 0d 19 00 05 e1 0d 19  0a 04 0d 19 14 31 dd 20  |)............1. |
00003e60  f2 75 70 64 61 74 65 5f  77 69 6e 64 6f 77 28 68  |.update_window(h|
00003e70  61 6e 64 6c 65 25 2c 75  78 30 25 2c 75 79 30 25  |andle%,ux0%,uy0%|
00003e80  2c 75 78 31 25 2c 75 79  31 25 29 0d 19 1e 39 21  |,ux1%,uy1%)...9!|
00003e90  71 25 3d 68 61 6e 64 6c  65 25 3a 71 25 21 34 3d  |q%=handle%:q%!4=|
00003ea0  75 78 30 25 3a 71 25 21  38 3d 75 79 30 25 3a 71  |ux0%:q%!8=uy0%:q|
00003eb0  25 21 31 32 3d 75 78 31  25 3a 71 25 21 31 36 3d  |%!12=ux1%:q%!16=|
00003ec0  75 79 31 25 0d 19 28 26  c8 99 20 22 57 69 6d 70  |uy1%..(&.. "Wimp|
00003ed0  5f 55 70 64 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_UpdateWindow",,|
00003ee0  71 25 20 b8 20 6d 6f 72  65 25 0d 19 32 19 f2 64  |q% . more%..2..d|
00003ef0  72 61 77 5f 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |raw_window(handl|
00003f00  65 25 29 0d 19 3c 05 e1  0d 19 46 05 20 0d 19 50  |e%)..<....F. ..P|
00003f10  1b dd 20 f2 64 72 61 77  5f 77 69 6e 64 6f 77 28  |.. .draw_window(|
00003f20  68 61 6e 64 6c 65 25 29  0d 19 5a 0f f2 69 6e 66  |handle%)..Z..inf|
00003f30  6f 28 71 25 2b 34 29 0d  19 64 0c c8 95 20 6d 6f  |o(q%+4)..d... mo|
00003f40  72 65 25 0d 19 6e 12 20  20 c8 8e 20 68 61 6e 64  |re%..n.  .. hand|
00003f50  6c 65 25 20 ca 0d 19 78  1b 20 20 c9 20 73 74 6f  |le% ...x.  . sto|
00003f60  72 65 25 3a 20 f2 64 72  61 77 5f 73 74 6f 72 65  |re%: .draw_store|
00003f70  0d 19 82 19 20 20 c9 20  65 64 69 74 25 3a 20 f2  |....  . edit%: .|
00003f80  64 72 61 77 5f 65 64 69  74 0d 19 8c 18 20 20 c9  |draw_edit....  .|
00003f90  20 6f 77 6e 25 3a 20 20  f2 64 72 61 77 5f 6f 77  | own%:  .draw_ow|
00003fa0  6e 0d 19 96 07 20 20 cb  0d 19 a0 28 20 20 c8 99  |n....  ....(  ..|
00003fb0  20 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  | "Wimp_GetRectan|
00003fc0  67 6c 65 22 2c 2c 71 25  20 b8 20 6d 6f 72 65 25  |gle",,q% . more%|
00003fd0  0d 19 aa 05 ce 0d 19 b4  05 e1 0d 19 be 05 20 0d  |.............. .|
00003fe0  19 c8 65 dd 20 a4 63 72  65 61 74 65 5f 77 69 6e  |..e. .create_win|
00003ff0  64 6f 77 28 63 78 30 25  2c 63 79 30 25 2c 63 78  |dow(cx0%,cy0%,cx|
00004000  31 25 2c 63 79 31 25 2c  73 63 78 25 2c 73 63 79  |1%,cy1%,scx%,scy|
00004010  25 2c 66 6c 61 67 73 25  2c 66 63 25 2c 62 63 25  |%,flags%,fc%,bc%|
00004020  2c 73 78 30 25 2c 73 79  30 25 2c 73 78 31 25 2c  |,sx0%,sy0%,sx1%,|
00004030  73 79 31 25 2c 74 69 74  6c 65 66 25 2c 74 69 74  |sy1%,titlef%,tit|
00004040  6c 65 24 29 0d 19 d2 3b  21 62 6c 6f 63 6b 25 3d  |le$)...;!block%=|
00004050  63 78 30 25 3a 62 6c 6f  63 6b 25 21 34 3d 63 79  |cx0%:block%!4=cy|
00004060  30 25 3a 62 6c 6f 63 6b  25 21 38 3d 63 78 31 25  |0%:block%!8=cx1%|
00004070  3a 62 6c 6f 63 6b 25 21  31 32 3d 63 79 31 25 0d  |:block%!12=cy1%.|
00004080  19 dc 21 62 6c 6f 63 6b  25 21 31 36 3d 73 63 78  |..!block%!16=scx|
00004090  25 3a 62 6c 6f 63 6b 25  21 32 30 3d 73 63 79 25  |%:block%!20=scy%|
000040a0  0d 19 e6 21 62 6c 6f 63  6b 25 21 32 34 3d 2d 31  |...!block%!24=-1|
000040b0  3a 62 6c 6f 63 6b 25 21  32 38 3d 66 6c 61 67 73  |:block%!28=flags|
000040c0  25 0d 19 f0 17 e7 20 66  63 25 3d 31 35 20 80 20  |%..... fc%=15 . |
000040d0  62 63 25 3d 31 35 20 8c  0d 19 fa 3b 20 20 62 6c  |bc%=15 ....;  bl|
000040e0  6f 63 6b 25 3f 33 32 3d  31 35 3a 62 6c 6f 63 6b  |ock%?32=15:block|
000040f0  25 3f 33 33 3d 31 35 3a  62 6c 6f 63 6b 25 3f 33  |%?33=15:block%?3|
00004100  34 3d 66 63 25 3a 62 6c  6f 63 6b 25 3f 33 35 3d  |4=fc%:block%?35=|
00004110  62 63 25 0d 1a 04 05 cc  0d 1a 0e 43 20 20 62 6c  |bc%........C  bl|
00004120  6f 63 6b 25 3f 33 32 3d  60 74 66 63 6f 6c 3a 62  |ock%?32=`tfcol:b|
00004130  6c 6f 63 6b 25 3f 33 33  3d 60 74 62 63 6f 6c 3a  |lock%?33=`tbcol:|
00004140  62 6c 6f 63 6b 25 3f 33  34 3d 66 63 25 3a 62 6c  |block%?34=fc%:bl|
00004150  6f 63 6b 25 3f 33 35 3d  62 63 25 0d 1a 18 05 cd  |ock%?35=bc%.....|
00004160  0d 1a 22 3f 62 6c 6f 63  6b 25 3f 33 36 3d 60 73  |.."?block%?36=`s|
00004170  63 6f 3a 62 6c 6f 63 6b  25 3f 33 37 3d 60 73 63  |co:block%?37=`sc|
00004180  69 3a 62 6c 6f 63 6b 25  3f 33 38 3d 60 74 62 63  |i:block%?38=`tbc|
00004190  6f 6c 32 3a 62 6c 6f 63  6b 25 3f 33 39 3d 30 0d  |ol2:block%?39=0.|
000041a0  1a 2c 3f 62 6c 6f 63 6b  25 21 34 30 3d 73 78 30  |.,?block%!40=sx0|
000041b0  25 3a 62 6c 6f 63 6b 25  21 34 34 3d 73 79 30 25  |%:block%!44=sy0%|
000041c0  3a 62 6c 6f 63 6b 25 21  34 38 3d 73 78 31 25 3a  |:block%!48=sx1%:|
000041d0  62 6c 6f 63 6b 25 21 35  32 3d 73 79 31 25 0d 1a  |block%!52=sy1%..|
000041e0  36 15 62 6c 6f 63 6b 25  21 35 36 3d 74 69 74 6c  |6.block%!56=titl|
000041f0  65 66 25 0d 1a 40 2f 62  6c 6f 63 6b 25 21 36 30  |ef%..@/block%!60|
00004200  3d 26 33 30 30 30 20 20  20 20 20 20 20 20 20 3a  |=&3000         :|
00004210  20 f4 20 77 6f 72 6b 20  61 72 65 61 20 66 6c 61  | . work area fla|
00004220  67 73 0d 1a 4a 28 62 6c  6f 63 6b 25 21 36 34 3d  |gs..J(block%!64=|
00004230  30 3a 62 6c 6f 63 6b 25  21 36 38 3d 30 20 3a 20  |0:block%!68=0 : |
00004240  f4 20 72 65 73 65 72 76  65 64 0d 1a 54 1c 24 28  |. reserved..T.$(|
00004250  62 6c 6f 63 6b 25 2b 37  32 29 3d c0 74 69 74 6c  |block%+72)=.titl|
00004260  65 24 2c 31 31 29 0d 1a  5e 32 62 6c 6f 63 6b 25  |e$,11)..^2block%|
00004270  21 38 34 3d 30 3a 20 f4  20 49 43 4f 4e 53 20 49  |!84=0: . ICONS I|
00004280  4e 20 57 49 4e 44 4f 57  20 4e 4f 54 20 49 4d 50  |N WINDOW NOT IMP|
00004290  4c 45 4d 45 4e 54 45 44  0d 1a 68 2c c8 99 20 22  |LEMENTED..h,.. "|
000042a0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000042b0  77 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 68 61 6e  |w",,block% . han|
000042c0  64 6c 65 25 0d 1a 72 0c  3d 68 61 6e 64 6c 65 25  |dle%..r.=handle%|
000042d0  0d 1a 7c 04 0d 1a 86 15  dd 20 f2 66 72 6f 6e 74  |..|...... .front|
000042e0  28 68 61 6e 64 6c 65 25  29 0d 1a 90 14 e7 20 68  |(handle%)..... h|
000042f0  61 6e 64 6c 65 25 3d 2d  31 20 8c 20 e1 0d 1a 9a  |andle%=-1 . ....|
00004300  12 f2 67 65 74 77 28 68  61 6e 64 6c 65 25 29 0d  |..getw(handle%).|
00004310  1a a4 36 f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |..6.open_window(|
00004320  68 61 6e 64 6c 65 25 2c  78 30 25 2c 79 30 25 2c  |handle%,x0%,y0%,|
00004330  78 31 25 2c 79 31 25 2c  73 63 78 25 2c 73 63 79  |x1%,y1%,scx%,scy|
00004340  25 2c 2d 31 29 0d 1a ae  05 e1 0d 1a b8 05 20 0d  |%,-1)......... .|
00004350  1a c2 15 dd 20 f2 70 6f  70 75 70 28 68 61 6e 64  |.... .popup(hand|
00004360  6c 65 25 29 0d 1a cc 12  f2 67 65 74 77 28 68 61  |le%).....getw(ha|
00004370  6e 64 6c 65 25 29 0d 1a  d6 30 78 6f 25 3d 6d 6f  |ndle%)...0xo%=mo|
00004380  75 73 65 78 25 2d 28 78  30 25 2b 78 31 25 29 2f  |usex%-(x0%+x1%)/|
00004390  32 3a 79 6f 25 3d 6d 6f  75 73 65 79 25 2d 28 79  |2:yo%=mousey%-(y|
000043a0  31 25 2b 36 34 29 0d 1a  e0 46 f2 6f 70 65 6e 5f  |1%+64)...F.open_|
000043b0  77 69 6e 64 6f 77 28 68  61 6e 64 6c 65 25 2c 78  |window(handle%,x|
000043c0  30 25 2b 78 6f 25 2c 79  30 25 2b 79 6f 25 2c 78  |0%+xo%,y0%+yo%,x|
000043d0  31 25 2b 78 6f 25 2c 79  31 25 2b 79 6f 25 2c 73  |1%+xo%,y1%+yo%,s|
000043e0  63 78 25 2c 73 63 79 25  2c 2d 31 29 0d 1a ea 05  |cx%,scy%,-1)....|
000043f0  e1 0d 1a f4 05 20 0d 1a  fe 16 dd 20 f2 72 65 6f  |..... ..... .reo|
00004400  70 65 6e 28 68 61 6e 64  6c 65 25 29 0d 1b 08 12  |pen(handle%)....|
00004410  f2 67 65 74 77 28 68 61  6e 64 6c 65 25 29 0d 1b  |.getw(handle%)..|
00004420  12 46 f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 68  |.F.open_window(h|
00004430  61 6e 64 6c 65 25 2c 78  6f 25 2c 79 6f 25 2c 78  |andle%,xo%,yo%,x|
00004440  31 25 2d 78 30 25 2b 78  6f 25 2c 79 31 25 2d 79  |1%-x0%+xo%,y1%-y|
00004450  30 25 2b 79 6f 25 2c 73  63 78 25 2c 73 63 79 25  |0%+yo%,scx%,scy%|
00004460  2c 2d 31 29 0d 1b 1c 05  e1 0d 1b 26 05 20 0d 1b  |,-1).......&. ..|
00004470  30 3e dd 20 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |0>. .open_window|
00004480  28 68 61 6e 64 6c 65 25  2c 78 30 25 2c 79 30 25  |(handle%,x0%,y0%|
00004490  2c 78 31 25 2c 79 31 25  2c 73 63 78 25 2c 73 63  |,x1%,y1%,scx%,sc|
000044a0  79 25 2c 62 68 61 6e 64  6c 65 25 29 0d 1b 3a 14  |y%,bhandle%)..:.|
000044b0  e7 20 68 61 6e 64 6c 65  25 3d 2d 31 20 8c 20 e1  |. handle%=-1 . .|
000044c0  0d 1b 44 27 62 6c 6f 63  6b 25 21 30 3d 68 61 6e  |..D'block%!0=han|
000044d0  64 6c 65 25 3a 62 6c 6f  63 6b 25 21 32 38 3d 62  |dle%:block%!28=b|
000044e0  68 61 6e 64 6c 65 25 0d  1b 4e 39 62 6c 6f 63 6b  |handle%..N9block|
000044f0  25 21 34 3d 78 30 25 3a  62 6c 6f 63 6b 25 21 38  |%!4=x0%:block%!8|
00004500  3d 79 30 25 3a 62 6c 6f  63 6b 25 21 31 32 3d 78  |=y0%:block%!12=x|
00004510  31 25 3a 62 6c 6f 63 6b  25 21 31 36 3d 79 31 25  |1%:block%!16=y1%|
00004520  0d 1b 58 21 62 6c 6f 63  6b 25 21 32 30 3d 73 63  |..X!block%!20=sc|
00004530  78 25 3a 62 6c 6f 63 6b  25 21 32 34 3d 73 63 79  |x%:block%!24=scy|
00004540  25 0d 1b 62 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |%..b .. "Wimp_Op|
00004550  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
00004560  25 0d 1b 6c 05 e1 0d 1b  76 05 20 0d 1b 80 14 dd  |%..l....v. .....|
00004570  20 f2 67 65 74 77 28 68  61 6e 64 6c 65 25 29 0d  | .getw(handle%).|
00004580  1b 8a 34 21 62 6c 6f 63  6b 25 3d 68 61 6e 64 6c  |..4!block%=handl|
00004590  65 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |e%:.. "Wimp_GetW|
000045a0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
000045b0  63 6b 25 0d 1b 94 37 f2  69 6e 66 6f 28 62 6c 6f  |ck%...7.info(blo|
000045c0  63 6b 25 2b 34 29 3a 62  68 61 6e 64 6c 65 25 3d  |ck%+4):bhandle%=|
000045d0  62 6c 6f 63 6b 25 21 32  38 3a 66 6c 61 67 73 25  |block%!28:flags%|
000045e0  3d 62 6c 6f 63 6b 25 21  33 32 0d 1b 9e 05 e1 0d  |=block%!32......|
000045f0  1b a8 05 20 0d 1b b2 13  dd 20 f2 69 6e 66 6f 28  |... ..... .info(|
00004600  62 6c 6f 63 6b 25 29 0d  1b bc 55 78 30 25 3d 21  |block%)...Ux0%=!|
00004610  62 6c 6f 63 6b 25 3a 79  30 25 3d 62 6c 6f 63 6b  |block%:y0%=block|
00004620  25 21 34 3a 78 31 25 3d  62 6c 6f 63 6b 25 21 38  |%!4:x1%=block%!8|
00004630  3a 79 31 25 3d 62 6c 6f  63 6b 25 21 31 32 3a 73  |:y1%=block%!12:s|
00004640  63 78 25 3d 62 6c 6f 63  6b 25 21 31 36 3a 73 63  |cx%=block%!16:sc|
00004650  79 25 3d 62 6c 6f 63 6b  25 21 32 30 0d 1b c6 1d  |y%=block%!20....|
00004660  62 78 25 3d 78 30 25 2d  73 63 78 25 3a 62 79 25  |bx%=x0%-scx%:by%|
00004670  3d 79 31 25 2d 73 63 79  25 0d 1b d0 05 e1 0d 1b  |=y1%-scy%.......|
00004680  da 05 20 0d 1b e4 11 dd  20 f2 67 65 74 70 6f 69  |.. ..... .getpoi|
00004690  6e 74 65 72 0d 1b ee 24  c8 99 20 22 57 69 6d 70  |nter...$.. "Wimp|
000046a0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
000046b0  2c 2c 62 6c 6f 63 6b 25  0d 1b f8 60 6d 6f 75 73  |,,block%...`mous|
000046c0  65 78 25 3d 21 62 6c 6f  63 6b 25 3a 6d 6f 75 73  |ex%=!block%:mous|
000046d0  65 79 25 3d 62 6c 6f 63  6b 25 21 34 3a 62 25 3d  |ey%=block%!4:b%=|
000046e0  62 6c 6f 63 6b 25 21 38  3a 68 61 6e 64 6c 65 25  |block%!8:handle%|
000046f0  3d 62 6c 6f 63 6b 25 21  31 32 3a 69 63 6f 6e 25  |=block%!12:icon%|
00004700  3d 62 6c 6f 63 6b 25 21  31 36 3a 6f 62 25 3d 62  |=block%!16:ob%=b|
00004710  6c 6f 63 6b 25 21 32 30  0d 1c 02 05 e1 0d 1c 0c  |lock%!20........|
00004720  05 20 0d 1c 16 0e dd 20  a4 69 63 6f 6e 62 61 72  |. ..... .iconbar|
00004730  0d 1c 20 4a 21 71 25 3d  2d 31 3a 71 25 21 34 3d  |.. J!q%=-1:q%!4=|
00004740  30 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 36  |0:q%!8=0:q%!12=6|
00004750  39 3a 71 25 21 31 36 3d  36 38 3a 71 25 21 32 30  |9:q%!16=68:q%!20|
00004760  3d 26 33 30 30 32 3a 24  28 71 25 2b 32 34 29 3d  |=&3002:$(q%+24)=|
00004770  22 21 63 68 61 72 64 65  66 22 0d 1c 2a 22 c8 99  |"!chardef"..*"..|
00004780  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00004790  6e 22 2c 2c 71 25 20 b8  20 69 63 25 0d 1c 34 08  |n",,q% . ic%..4.|
000047a0  3d 69 63 25 0d 1c 3e 05  20 0d 1c 48 15 dd 20 f2  |=ic%..>. ..H.. .|
000047b0  73 65 74 5f 63 6f 6c 6f  75 72 28 63 25 29 0d 1c  |set_colour(c%)..|
000047c0  52 1a c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |R... "Wimp_SetCo|
000047d0  6c 6f 75 72 22 2c 63 25  0d 1c 5c 05 e1 0d 1c 66  |lour",c%..\....f|
000047e0  04 0d 1c 70 13 dd 20 f2  73 65 74 5f 6c 69 6e 65  |...p.. .set_line|
000047f0  28 6c 25 29 0d 1c 7a 22  ec 20 62 78 25 2b 6f 66  |(l%)..z". bx%+of|
00004800  66 73 65 74 25 2c 62 79  25 2d 6c 69 6e 65 66 65  |fset%,by%-linefe|
00004810  65 64 25 2a 6c 25 0d 1c  84 05 e1 0d 1c 8e 04 0d  |ed%*l%..........|
00004820  1c 98 0b dd 20 f2 69 6e  69 74 0d 1c a2 15 f2 69  |.... .init.....i|
00004830  6e 69 74 5f 61 70 70 6c  69 63 61 74 69 6f 6e 0d  |nit_application.|
00004840  1c ac 16 f4 3a 50 52 4f  43 69 6e 69 74 5f 73 70  |....:PROCinit_sp|
00004850  72 69 74 65 73 0d 1c b6  0f f2 69 6e 69 74 5f 6d  |rites.....init_m|
00004860  65 6e 75 73 0d 1c c0 0e  f2 69 6e 69 74 5f 77 69  |enus.....init_wi|
00004870  6d 70 0d 1c ca 05 e1 0d  1c d4 04 0d 1c de 13 dd  |mp..............|
00004880  20 f2 69 6e 69 74 5f 73  70 72 69 74 65 73 0d 1c  | .init_sprites..|
00004890  e8 1a f4 20 69 6e 73 74  61 6c 6c 20 75 73 65 72  |... install user|
000048a0  20 73 70 72 69 74 65 73  0d 1c f2 30 53 25 3d 8e  | sprites...0S%=.|
000048b0  22 3c 43 68 61 72 44 65  66 24 44 69 72 3e 2e 21  |"<CharDef$Dir>.!|
000048c0  53 70 72 69 74 65 73 22  3a 54 25 3d a2 23 53 25  |Sprites":T%=.#S%|
000048d0  2b 31 36 3a d9 23 53 25  0d 1c fc 11 de 20 73 70  |+16:.#S%..... sp|
000048e0  72 69 74 65 73 25 20 54  25 0d 1d 06 1d 21 73 70  |rites% T%....!sp|
000048f0  72 69 74 65 73 25 3d 54  25 3a 73 70 72 69 74 65  |rites%=T%:sprite|
00004900  73 25 21 38 3d 31 0d 1d  10 22 c8 99 20 22 4f 53  |s%!8=1...".. "OS|
00004910  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00004920  73 70 72 69 74 65 73 25  0d 1d 1a 3b c8 99 20 22  |sprites%...;.. "|
00004930  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00004940  41 2c 73 70 72 69 74 65  73 25 2c 22 3c 43 68 61  |A,sprites%,"<Cha|
00004950  72 44 65 66 24 44 69 72  3e 2e 21 53 70 72 69 74  |rDef$Dir>.!Sprit|
00004960  65 73 22 0d 1d 24 05 e1  0d 1d 2e 04 0d 1d 38 10  |es"..$........8.|
00004970  dd 20 f2 69 6e 69 74 5f  77 69 6d 70 0d 1d 42 56  |. .init_wimp..BV|
00004980  65 64 69 74 25 3d a4 63  72 65 61 74 65 5f 77 69  |edit%=.create_wi|
00004990  6e 64 6f 77 28 31 30 30  2c 2d 34 33 30 2c 33 35  |ndow(100,-430,35|
000049a0  30 2b 31 30 30 2c 30 2c  30 2c 30 2c 25 31 31 31  |0+100,0,0,0,%111|
000049b0  31 2c 37 2c 30 2c 30 2c  2d 34 33 30 2c 33 35 30  |1,7,0,0,-430,350|
000049c0  2c 30 2c 25 31 30 31 31  30 31 2c 22 45 64 69 74  |,0,%101101,"Edit|
000049d0  22 29 0d 1d 4c 58 73 74  6f 72 65 25 3d a4 63 72  |")..LXstore%=.cr|
000049e0  65 61 74 65 5f 77 69 6e  64 6f 77 28 32 30 30 2c  |eate_window(200,|
000049f0  2d 34 33 30 2c 33 35 30  2b 32 30 30 2c 30 2c 30  |-430,350+200,0,0|
00004a00  2c 30 2c 25 31 31 31 31  2c 37 2c 30 2c 30 2c 2d  |,0,%1111,7,0,0,-|
00004a10  34 33 30 2c 33 35 30 2c  30 2c 25 31 30 31 31 30  |430,350,0,%10110|
00004a20  31 2c 22 53 74 6f 72 65  22 29 0d 1d 56 15 69 63  |1,"Store")..V.ic|
00004a30  6f 6e 62 61 72 25 3d a4  69 63 6f 6e 62 61 72 0d  |onbar%=.iconbar.|
00004a40  1d 60 10 f2 67 65 74 6d  6f 64 65 69 6e 66 6f 0d  |.`..getmodeinfo.|
00004a50  1d 6a 0b 6f 70 65 6e 25  3d a3 0d 1d 74 48 f2 67  |.j.open%=...tH.g|
00004a60  65 74 70 6f 69 6e 74 65  72 3a 78 6f 25 3d 6d 6f  |etpointer:xo%=mo|
00004a70  75 73 65 78 25 3a 79 6f  25 3d 6d 6f 75 73 65 79  |usex%:yo%=mousey|
00004a80  25 3a 20 f4 20 6f 6e 6c  79 20 6e 65 63 65 73 73  |%: . only necess|
00004a90  61 72 79 20 69 66 20 6f  70 65 6e 25 3d 46 41 4c  |ary if open%=FAL|
00004aa0  53 45 0d 1d 7e 05 e1 0d  1d 88 04 0d 1d 92 12 dd  |SE..~...........|
00004ab0  20 f2 67 65 74 6d 6f 64  65 69 6e 66 6f 0d 1d 9c  | .getmodeinfo...|
00004ac0  0e 62 6c 6f 63 6b 25 21  30 3d 34 0d 1d a6 0e 62  |.block%!0=4....b|
00004ad0  6c 6f 63 6b 25 21 34 3d  35 0d 1d b0 0f 62 6c 6f  |lock%!4=5....blo|
00004ae0  63 6b 25 21 38 3d 31 31  0d 1d ba 10 62 6c 6f 63  |ck%!8=11....bloc|
00004af0  6b 25 21 31 32 3d 31 32  0d 1d c4 10 62 6c 6f 63  |k%!12=12....bloc|
00004b00  6b 25 21 31 36 3d 2d 31  0d 1d ce 2d c8 99 20 22  |k%!16=-1...-.. "|
00004b10  4f 53 5f 52 65 61 64 56  64 75 56 61 72 69 61 62  |OS_ReadVduVariab|
00004b20  6c 65 73 22 2c 62 6c 6f  63 6b 25 2c 62 6c 6f 63  |les",block%,bloc|
00004b30  6b 25 2b 32 30 0d 1d d8  16 64 78 25 3d 31 3c 3c  |k%+20....dx%=1<<|
00004b40  28 62 6c 6f 63 6b 25 21  32 30 29 0d 1d e2 16 64  |(block%!20)....d|
00004b50  79 25 3d 31 3c 3c 28 62  6c 6f 63 6b 25 21 32 34  |y%=1<<(block%!24|
00004b60  29 0d 1d ec 1c 73 63 72  78 31 25 3d 28 62 6c 6f  |)....scrx1%=(blo|
00004b70  63 6b 25 21 32 38 2b 31  29 2a 64 78 25 0d 1d f6  |ck%!28+1)*dx%...|
00004b80  1c 73 63 72 79 31 25 3d  28 62 6c 6f 63 6b 25 21  |.scry1%=(block%!|
00004b90  33 32 2b 31 29 2a 64 79  25 0d 1e 00 05 e1 0d 1e  |32+1)*dy%.......|
00004ba0  0a 04 0d 1e 14 16 dd 20  a4 69 63 6f 6e 61 64 64  |....... .iconadd|
00004bb0  72 28 68 25 2c 69 25 29  0d 1e 1e 2d 21 71 25 3d  |r(h%,i%)...-!q%=|
00004bc0  68 25 3a 71 25 21 34 3d  69 25 3a c8 99 20 22 57  |h%:q%!4=i%:.. "W|
00004bd0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00004be0  22 2c 2c 71 25 0d 1e 28  38 e7 20 28 71 25 21 32  |",,q%..(8. (q%!2|
00004bf0  34 20 80 20 26 31 30 30  29 3d 30 20 8c 20 f2 6d  |4 . &100)=0 . .m|
00004c00  6f 61 6e 28 22 49 63 6f  6e 20 69 73 20 6e 6f 74  |oan("Icon is not|
00004c10  20 69 6e 64 69 72 65 63  74 65 64 22 29 0d 1e 32  | indirected")..2|
00004c20  0a 3d 71 25 21 32 38 0d  1e 3c 04 0d 1e 46 2f dd  |.=q%!28..<...F/.|
00004c30  20 f2 64 72 61 67 5f 69  63 6f 6e 28 6d 6f 75 73  | .drag_icon(mous|
00004c40  65 78 25 2c 6d 6f 75 73  65 79 25 2c 68 61 6e 64  |ex%,mousey%,hand|
00004c50  6c 65 25 2c 69 63 6f 6e  25 29 0d 1e 50 21 ea 20  |le%,icon%)..P!. |
00004c60  62 78 25 2c 62 79 25 2c  69 78 30 25 2c 69 78 31  |bx%,by%,ix0%,ix1|
00004c70  25 2c 69 79 30 25 2c 69  79 31 25 0d 1e 5a 2c 21  |%,iy0%,iy1%..Z,!|
00004c80  71 25 3d 68 61 6e 64 6c  65 25 3a c8 99 20 22 57  |q%=handle%:.. "W|
00004c90  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00004ca0  74 65 22 2c 2c 71 25 0d  1e 64 12 62 78 25 3d 71  |te",,q%..d.bx%=q|
00004cb0  25 21 34 2d 71 25 21 32  30 0d 1e 6e 13 62 79 25  |%!4-q%!20..n.by%|
00004cc0  3d 71 25 21 31 36 2d 71  25 21 32 34 0d 1e 78 35  |=q%!16-q%!24..x5|
00004cd0  21 71 25 3d 68 61 6e 64  6c 65 25 3a 71 25 21 34  |!q%=handle%:q%!4|
00004ce0  3d 69 63 6f 6e 25 3a c8  99 20 22 57 69 6d 70 5f  |=icon%:.. "Wimp_|
00004cf0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
00004d00  25 0d 1e 82 0d 69 78 30  25 3d 71 25 21 38 0d 1e  |%....ix0%=q%!8..|
00004d10  8c 0e 69 79 30 25 3d 71  25 21 31 32 0d 1e 96 0e  |..iy0%=q%!12....|
00004d20  69 78 31 25 3d 71 25 21  31 36 0d 1e a0 0e 69 79  |ix1%=q%!16....iy|
00004d30  31 25 3d 71 25 21 32 30  0d 1e aa 0f 21 71 25 3d  |1%=q%!20....!q%=|
00004d40  68 61 6e 64 6c 65 25 0d  1e b4 0a 71 25 21 34 3d  |handle%....q%!4=|
00004d50  35 0d 1e be 11 71 25 21  38 3d 62 78 25 2b 69 78  |5....q%!8=bx%+ix|
00004d60  30 25 0d 1e c8 12 71 25  21 31 32 3d 62 79 25 2b  |0%....q%!12=by%+|
00004d70  69 79 30 25 0d 1e d2 12  71 25 21 31 36 3d 62 78  |iy0%....q%!16=bx|
00004d80  25 2b 69 78 31 25 0d 1e  dc 12 71 25 21 32 30 3d  |%+ix1%....q%!20=|
00004d90  62 79 25 2b 69 79 31 25  0d 1e e6 16 71 25 21 32  |by%+iy1%....q%!2|
00004da0  34 3d 71 25 21 38 2d 6d  6f 75 73 65 78 25 0d 1e  |4=q%!8-mousex%..|
00004db0  f0 17 71 25 21 32 38 3d  71 25 21 31 32 2d 6d 6f  |..q%!28=q%!12-mo|
00004dc0  75 73 65 79 25 0d 1e fa  1e 71 25 21 33 32 3d 73  |usey%....q%!32=s|
00004dd0  63 72 78 31 25 2b 71 25  21 31 36 2d 6d 6f 75 73  |crx1%+q%!16-mous|
00004de0  65 78 25 0d 1f 04 1e 71  25 21 33 36 3d 73 63 72  |ex%....q%!36=scr|
00004df0  79 31 25 2b 71 25 21 32  30 2d 6d 6f 75 73 65 79  |y1%+q%!20-mousey|
00004e00  25 0d 1f 0e 19 c8 99 20  22 57 69 6d 70 5f 44 72  |%...... "Wimp_Dr|
00004e10  61 67 42 6f 78 22 2c 2c  71 25 0d 1f 18 05 e1 0d  |agBox",,q%......|
00004e20  1f 22 04 0d 1f 2c 12 dd  20 f2 64 65 63 6f 64 65  |."...,.. .decode|
00004e30  5f 64 72 61 67 0d 1f 36  1b ea 20 66 25 2c 68 25  |_drag..6.. f%,h%|
00004e40  2c 69 25 2c 6d 78 25 2c  6d 79 25 2c 65 78 74 25  |,i%,mx%,my%,ext%|
00004e50  0d 1f 40 1f 66 25 3d a4  6c 65 61 66 6e 61 6d 65  |..@.f%=.leafname|
00004e60  5f 70 74 72 28 66 69 6c  65 6e 61 6d 65 25 29 0d  |_ptr(filename%).|
00004e70  1f 4a 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |.J .. "Wimp_GetP|
00004e80  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 71 25 0d  |ointerInfo",,q%.|
00004e90  1f 54 0b 6d 78 25 3d 21  71 25 0d 1f 5e 0c 6d 79  |.T.mx%=!q%..^.my|
00004ea0  25 3d 71 25 21 34 0d 1f  68 0c 68 25 3d 71 25 21  |%=q%!4..h.h%=q%!|
00004eb0  31 32 0d 1f 72 0c 69 25  3d 71 25 21 31 36 0d 1f  |12..r.i%=q%!16..|
00004ec0  7c 2b e7 20 68 25 3d 73  61 76 65 62 6f 78 66 66  ||+. h%=saveboxff|
00004ed0  37 25 20 e1 3a f4 20 64  72 6f 70 70 65 64 20 6f  |7% .:. dropped o|
00004ee0  6e 20 6d 79 73 65 6c 66  21 0d 1f 86 0b 21 71 25  |n myself!....!q%|
00004ef0  3d 32 35 36 0d 1f 90 0b  71 25 21 31 32 3d 30 0d  |=256....q%!12=0.|
00004f00  1f 9a 0b 71 25 21 31 36  3d 31 0d 1f a4 0c 71 25  |...q%!16=1....q%|
00004f10  21 32 30 3d 68 25 0d 1f  ae 0c 71 25 21 32 34 3d  |!20=h%....q%!24=|
00004f20  69 25 0d 1f b8 0d 71 25  21 32 38 3d 6d 78 25 0d  |i%....q%!28=mx%.|
00004f30  1f c2 0d 71 25 21 33 32  3d 6d 79 25 0d 1f cc 0e  |...q%!32=my%....|
00004f40  71 25 21 33 36 3d 32 32  34 30 0d 1f d6 0e 71 25  |q%!36=2240....q%|
00004f50  21 34 30 3d 26 46 46 37  0d 1f e0 10 24 28 71 25  |!40=&FF7....$(q%|
00004f60  2b 34 34 29 3d 24 66 25  0d 1f ea 18 3f 28 71 25  |+44)=$f%....?(q%|
00004f70  2b 34 34 2b a9 24 28 71  25 2b 34 34 29 29 3d 30  |+44+.$(q%+44))=0|
00004f80  0d 1f f4 25 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...%.. "Wimp_Sen|
00004f90  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
00004fa0  68 25 2c 69 25 0d 1f fe  11 73 61 76 65 72 65 66  |h%,i%....saveref|
00004fb0  25 3d 71 25 21 38 0d 20  08 05 e1 0d 20 12 04 0d  |%=q%!8. .... ...|
00004fc0  20 1c 18 dd 20 a4 6c 65  61 66 6e 61 6d 65 5f 70  | ... .leafname_p|
00004fd0  74 72 28 66 31 25 29 0d  20 26 09 ea 20 66 32 25  |tr(f1%). &.. f2%|
00004fe0  0d 20 30 05 f5 0d 20 3a  0c 20 66 32 25 3d 66 31  |. 0... :. f2%=f1|
00004ff0  25 0d 20 44 14 20 66 31  25 2b 3d a7 24 66 31 25  |%. D. f1%+=.$f1%|
00005000  2c 22 2e 22 29 0d 20 4e  0d fd 20 66 31 25 3d 66  |,"."). N.. f1%=f|
00005010  32 25 0d 20 58 08 3d 66  31 25 0d 20 62 04 0d 20  |2%. X.=f1%. b.. |
00005020  6c 13 dd 20 a4 6c 65 61  66 6e 61 6d 65 28 66 24  |l.. .leafname(f$|
00005030  29 0d 20 76 08 ea 20 69  25 0d 20 80 05 f5 0d 20  |). v.. i%. .... |
00005040  8a 11 20 20 69 25 3d a7  66 24 2c 22 2e 22 29 0d  |..  i%=.f$,".").|
00005050  20 94 1a 20 20 e7 20 69  25 3c 3e 30 20 66 24 3d  | ..  . i%<>0 f$=|
00005060  c1 66 24 2c 69 25 2b 31  29 0d 20 9e 0a fd 20 69  |.f$,i%+1). ... i|
00005070  25 3d 30 0d 20 a8 07 3d  66 24 0d 20 b2 04 0d 20  |%=0. ..=f$. ... |
00005080  bc 14 dd 20 f2 6d 6f 61  6e 28 72 65 70 6f 72 74  |... .moan(report|
00005090  24 29 0d 20 c6 14 85 20  26 32 30 30 30 30 2c 72  |$). ... &20000,r|
000050a0  65 70 6f 72 74 24 0d 20  d0 05 e1 0d 20 da 04 0d  |eport$. .... ...|
000050b0  20 e4 1b dd 20 f2 77 61  72 6e 69 6e 67 62 6f 78  | ... .warningbox|
000050c0  28 77 61 72 6e 69 6e 67  24 29 0d 20 ee 1d 21 71  |(warning$). ..!q|
000050d0  25 3d 30 3a 24 28 71 25  2b 34 29 3d 77 61 72 6e  |%=0:$(q%+4)=warn|
000050e0  69 6e 67 24 2b bd 30 0d  20 f8 27 c8 99 20 22 57  |ing$+.0. .'.. "W|
000050f0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00005100  2c 71 25 2c 31 2c 70 72  6f 67 72 61 6d 24 0d 21  |,q%,1,program$.!|
00005110  02 05 e1 0d 21 0c 04 0d  21 16 0f dd 20 f2 65 72  |....!...!... .er|
00005120  72 6f 72 62 6f 78 0d 21  20 07 ea 20 85 0d 21 2a  |rorbox.! .. ..!*|
00005130  1f ee 20 85 20 ea 20 c8  99 20 22 57 69 6d 70 5f  |.. . . .. "Wimp_|
00005140  43 6c 6f 73 65 44 6f 77  6e 22 3a e0 0d 21 34 26  |CloseDown":..!4&|
00005150  21 71 25 3d 9f 3a 24 28  71 25 2b 34 29 3d f6 24  |!q%=.:$(q%+4)=.$|
00005160  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 9e 2b  |+" at line "+..+|
00005170  bd 30 0d 21 3e 27 c8 99  20 22 57 69 6d 70 5f 52  |.0.!>'.. "Wimp_R|
00005180  65 70 6f 72 74 45 72 72  6f 72 22 2c 71 25 2c 31  |eportError",q%,1|
00005190  2c 70 72 6f 67 72 61 6d  24 0d 21 48 17 c8 99 20  |,program$.!H... |
000051a0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000051b0  0d 21 52 05 e1 0d 21 5c  04 0d 21 66 0f f4 20 2a  |.!R...!\..!f.. *|
000051c0  2a 2a 45 4f 46 2a 2a 2a  0d ff                    |**EOF***..|
000051ca