�><infoscoop$dir>.!RUNIMAGE
�
.�  Version 1.11, (c) Dirk-Willem van Gulik
(-�                    Lipperkerkstraat 290
2:�                    7533 AK Enschede, The Netherlands
<.�                    Phone +31 53 303 447.
F2�                    Email dwvgulik#utwente.nl
P
Z$              title$="InfoScoop"
d8              purpose$="Scoops for icon/window defs"
n5              version$="1.11 (c) DW 1991,RAMXFER"
x
�(�           D E F A U L T settings !
�
�4key%=-1       :� the INKEY no of the 'scoop' key
�$key$="SHIFT"  :� and it's name..
�
�A              :� change the delay between two updates here...
�'delay%=50     :� in micro seconds !
�
�)              :� the default settings
�"i_coord%=� :� show coordinates
�"i_wh%   =� :� show window info
� i_ih%   =� :� show icon info
�

!              :� MEMORY usage

4max%=5000     :� for general XFER use, in bytes.

7              :� best value would just cover normal

"'              :� textfile+4 length.

,

6<ML% =100      :� max no of 'lines', avarage of ~50 chars

@1              :� remaning will get trucated !

JF              :� tech.note, no line count is done, only char count

T7debug%=0      :� 0,1,2 states,change at your risc !

^

h� � �_error(0)

rtask%=�_task(title$,200)

|

�� � �_error(1)

�$� block% 500,A% max%,sav% ML%*50

�
�_init

�

��_set_get_default

�

�� � �_error(2-debug%)

�

��

�6 ș"Wimp_Poll",%11111110000110000,block% � reason%

� Ȏ reason% �

�  � 0 :�(key%)�do_it

�  � 1 :�_redraw(block%)
&  � 2 :ș"Wimp_OpenWindow",,block%
'  � 3 :ș"Wimp_CloseWindow",,block%
  � 6 :� block%!8�2�
&    �_openM(block%,mmain%)
0   �
:   Ȏ block%!12 �
D    � main% :
N3     � block%!16=0 � block%!8>15 �drag(main%,0)
X    � xfer%
b     Ȏblock%!16�
l)      � 0 :�block%!8>15�drag(xfer%,0)
v      � 2 :�_try_save
�-       笤_adjust:ș"Wimp_CreateMenu",,-1
�      �
�,    � -1,-2 :� block%!8=4 �_openW(main%)
�	    �
�   �
�0  � 7:$(block%+44)=�CUT(�_Itext(xfer%,1))+�0
�+        ș"Wimp_GetPointerInfo",,block%
�J        :block%!20=block%!12::block%!24=block%!16::block%!28=block%!00
�M        :block%!32=block%!04::block%!36=cp%::block%!40=&FFF::block%!0=120
�1        :block%!12=0::block%!16=1:� DATA SAVE
�>        ș"Wimp_SendMessage",17,block%,block%!20,block%!24
�        ptr%=0
�2  � 8:�block%!0=xfer%�block%!4=1�block%!24=13�
          �_try_save
0          笤_adjust:ș"Wimp_CreateMenu",,-1
         �
 )          ș"Wimp_ProcessKey",,block%
*         �
4  � 9 :Ȏ Last_adr% �
>   � mmain% :Ȏ !block% �
H
      � 0
R      � 1:Ȏ block%!4 �
\       �0:i_wh%=�i_wh%
f       �1:i_ih%=�i_ih%
p        �2:i_coord%=�i_coord%
z       �3:i_task%=�i_task%
�       �
�!       �_update_settings_menu
�      � 2:�_try_save
�      � 3:quit%=�
�      �
�
     �
�  � �_adjust �_reopen
�  � 17,18,19
�   Ȏ block%!16 �
�    � 0      :quit%=�
�#    � 2      :F$=�s0(block%+44)
�6                 �("SAVE "+F$+" "+�~A%+" +"+�~cp%)
�,                 �("SETTYPE "+F$+" FFF")
3                 block%!12=block%!8:block%!16=3
<                 ș"Wimp_SendMessage",17,block%,block%!4
(                 �_Itext(xfer%,1,F$)
$    � 6  : SEmax%=block%!24
.1          � SEmax%>cp%-ptr% � SEmax%=cp%-ptr%
8#          � SEmax%<0 �:SEmax%=0
B          �I%=0 � SEmax%
L2           � I%?(A%+ptr%)=13 � I%?(A%+ptr%)=10
V           �
`L          ș"Wimp_TransferBlock",task%,A%+ptr%,block%!4,block%!20,SEmax%
j          �I%=0 � SEmax%
t2           � I%?(A%+ptr%)=10 � I%?(A%+ptr%)=13
~           �
�          ptr%+=SEmax%
�          block%!24=SEmax%
�           block%!12=block%!8
�          my_ref%=block%!12
�          block%!16=7
�5          ș"Wimp_SendMessage",18,block%,block%!4
�=    � 7 :� omdat 18 bij transmit, checken of ie niet kwam
�=         :� block%!8=my_ref% � 1,"RAM Transmit failure.."
�    � &502 :�_help(block%)
�	    �
�  �
�� quit%
2� �_adjust �"Filer_OpenDir <"+title$+"$dir>.^"

ș"Wimp_CloseDown"
�

(� �_init
25 smem%=�_sprite_init("<"+title$+"$dir>.!sprites")
<- �_wind_init("<"+title$+"$dir>.template")
F �_menu_init
P@ desk_ic%=�_sprite_icon(-1,0,0,68,68,&3102,smem%,"!"+title$)
Z �
d
n� �_menu_init
x� ptr% 2*28+20*32
�  mset%    =�_make_menu(ptr%)
�  mmain%   =�_make_menu(ptr%)
� �
�
�� �_set_get_default
�quit%=�
�Lwh%=123456
�Lih%=654321
�LIT=�:OP%=�:�wis
��_Itext(xfer%,1,"ScoopDat")
��_update_settings_menu
��wis:�P("")
�&�P("Use "+key$+" to scoop info"  )
"�P("about the object at the" )
!�P("pointer position."      )

�P("")
" �P("Have Fun... Love Dirk.")
,�
6
@
J� �_wind_init(F$)
T� temp%
^� temp% 500
h� ind% 500
ro_ind%=ind%+500
|;ș"OS_SWINumberFromString",,"Wimp_GetIconState" � Wgis%
�;ș"OS_SWINumberFromString",,"Wimp_SetIconState" � Wsis%
�:ș"OS_SWINumberFromString",,"Wimp_GetRectangle" � wgr%
�:ș"OS_SWINumberFromString",,"Wimp_SetColour"    � Wsc%
�:ș"OS_SWINumberFromString",,"Wimp_UpdateWindow" � Wuw%
�:ș"OS_SWINumberFromString",,"Wimp_CreateIcon"   � Wci%
�:ș"OS_SWINumberFromString",,"Wimp_DeleteIcon"   � Wdi%
�:ș"OS_SWINumberFromString",,"Wimp_GetWindowInfo"� gwi%
�<ș"OS_SWINumberFromString",,"Wimp_GetWindowState" � gws%
�<ș"OS_SWINumberFromString",,"Wimp_GetPointerInfo" � gpi%
�<ș"OS_SWINumberFromString",,"Wimp_RedrawWindow"   � wrw%
�
�ș"Wimp_OpenTemplate",,F$
�8main%    =�_read_temp(temp%,ind%,o_ind%,-1,"main",0)
8info%    =�_read_temp(temp%,ind%,o_ind%,-1,"info",0)
8xfer%    =�_read_temp(temp%,ind%,o_ind%,-1,"xfer",0)
ș"Wimp_CloseTemplate"
&�_Itext(info%,0,title$)
0�_Itext(info%,1,purpose$)
:,�_Itext(info%,2,"Dirk-Willem van Gulik")
D�_Itext(info%,3,version$)
N�
X
b'� �_read_temp(w%,� i%,ie%,s%,a$,p%)
l4ș"Wimp_LoadTemplate",,w%,i%,ie%,s%,a$,p% � ,,i%
v"ș"Wimp_CreateWindow",,w% � w%
�:=w%
�
�� �_task(a$,v%)
�!� b%,v2%,h%:� b% 4:$b%="TASK"
�+ș"Wimp_Initialise",200,!b%,a$ � v2%,h%
�;� v2%<v% � 1,"Needs WimpManager V"+�(v%/100)+" or more"
�:=h%
�
�� �_sprite_init(f$)
�� fh%,l%
�fh%=�(f$):l%=�#fh%+16:�#fh%
�� smem% l%
�.!smem%=l%:smem%!4=0:smem%!8=16:smem%!12=16
!ș"OS_SpriteOp",&10A,smem%,f$

=smem%

 *� Show :,Window info,Icon info,Coords*
*=� InfoScoop,Info>info,Settings>mset,Save scoop>xfer,Quit*
4
>� �_make_menu(� start%)
H&� limited,no indirected,no options
R� item$,title$,end%,point%
\
fpoint%=start%
p� title$
z+$(start%)=�cut(title$) :� 12 char title
�-start%!12=&00070207      :� acorn colours
�.start%!16=2*(8*12+8)         :� mode fixed
�start%!20=40
�start%!24=4
�start%+=28
��
� � item$
�1 ��item$,1)="*" end%=�:item$=�item$,�item$-1)
� start%!00=0-&80*end%
� �item$,">")�
�,  start%!04=�(�item$,�item$,">")+1)+"%")
�  �
�  start%!04=-1
	  �
	 start%!8=&07000011
	 $(start%+12)=�cut(item$)
	$ start%+=24
	.
 �end%
	8:=point%
	B
	L� �cut(A$)
	V#:=��A$,�A$,">")-1)+�12," "),12)
	`
	j� �_error(l%)
	t	� � �
	~Ȏ l% �
	�S � 0 :� 1,"Error "+�$+","+Þ+" during premilliary 'TalkList' startup..Quitting"
	�Y � 1 :err$="Error "+�$+","+Þ+" during initialsation of 'TalkList' startup..Quitting"
	�0 � 2 :err$="Poll time error ("+�$+","+Þ+")"
	�#         ș"Wimp_CreateMenu",-1
	� �
	�
	�� E%:� E% 200
	�!E%=�:$(E%+4)=err$+�0
	�$ș"Wimp_ReportError",E%,1,title$
	�
	�� l%=1 �
	�
 � � �
 �("KEY2LIST"+Þ)

 �("KEY1EDIT"+Þ)
 ș"Wimp_CloseDown"
 �
( �
2	� � �
<�
F
P@� �_sprite_icon(window%,x0%,y0%,x1%,y1%,flags%,sptr%,sname$)
Z � block%!24 �sname$+1
d block%!28=sptr%
n block%!32=�sname$+1
x $block%!24=sname$
�0 :=�_iconblk(window%,x0%,y0%,x1%,y1%,flags%)
�
�#� �_iconblk(wh%,a%,b%,c%,d%,f%)
� � icon%
� !block%=wh%
� block%!4=a%:block%!8=b%
� block%!12=c%:block%!16=d%
� block%!20=f%
�) ș "Wimp_CreateIcon",,block% � icon%
� :=icon%
�
�� �_openM(block%,adr%)
�Last_menu_x%=block%!00-6*16
� block%!12=-2 �
1 Last_menu_y%=96+4*10*4 :� een item op de bar
 �
"% Last_menu_y%=block%!04+5*10*4 �2
, �
67ș"Wimp_CreateMenu",,adr%,Last_menu_x%,Last_menu_y%
@Last_adr%=adr%
J�
T
^� �_tick(adr%,n%,b%)
hadr%=adr%+28+n%*24
r?adr%=(?adr% � &FE)+b%
|�
�
�� �_adjust
�� b%:� b% 30
� ș "Wimp_GetPointerInfo",,b%
�:=(b%!8 � 1)
�
�� �_help(block%)
�� a$
�Ȏ block%!32 �
�V � -1,-2 :a$="The InfoScoop programme, press Menu, or Select for the info window."
� � info% :a$="Information about the !InfoScoop programme, a programme which extracts data about windows and icons. The information can be saved/viewed in ascii format. "
�  Ȏ block%!36 �
�?  � 0:a$="!InfoScoop, a boring, a very boring name indeed."
�  � 1:a$="This tells you that this is a programme which extracts data about windows and icons. The information can be saved/viewed in ascii format."
k  � 2:a$="Dirk-Willem is a applied-physics students, who loves to receive feedback and chrismas cards."
�  � 3:a$="This boxs tells you that you are free to copy, modify or rape this programme, as long as all original !Help information is supplied as well."
&  �
0\ � main%   :a$="The info will be displayed in this window, as soon as SHIFT is pressed."
:  Ȏ block%!36 �
DI  � 0:a$="Drag this icon to save the data, RAM transmit is supported"
N  �
XP � xfer% :a$="The usual save window. Acts as the default save name as well."
b �
l
�a$<>"" �
v  !block%=256
�  block%!12=block%!8
�  block%!16=&503
�  $(block%+20)=a$+�13
�-  ș"Wimp_SendMessage",17,block%,block%!4
�  �
��
�
�� �_Inform(a$)
�!block%=0:$(block%+4)=a$+�0
�-ș"Wimp_ReportError",block%,%11001,title$
��
�
�� �_reopen

<ș"Wimp_CreateMenu",,Last_adr%,Last_menu_x%,Last_menu_y%

�



 � �_openW(wh%)

*!block%=wh%

4#ș"Wimp_GetWindowState",,block%

>ș"Wimp_OpenWindow",,block%

H�

R

\� �_Itext(wh%,ih%,a$)

f!block%=wh%:block%!4=ih%

pșWgis%,,block%

z� (block%?25)�2 �

�$ $(block%!28)=�a$+�13,block%!36)

� �

�( � 1,"This is NOT supposed to work!"

�' � $(block%+28)=LEFT$(a$+CHR$13,12)

� �

�block%!8=0

�block%!12=0

�șWsis%,,block%

��

�

�� �_Itext(wh%,ih%)

�!block%=wh%:block%!4=ih%

�șWgis%,,block%
� (block%?25)�2 �
 a$=$(block%!28)
 �
$( � 1,"This is NOT supposed to work!"
. �
8:=a$
B
L
� �s0(a%)
V'� a$:ȕ?a%��a$<255:a$+=�?a%:a%+=1:�
`:=a$
j� �_Mtick(adr%,no%,bit%)
t� bit%<>0 � bit%=1
~2?(adr%+28+24*no%)=(?(adr%+28+24*no%)�&FE)+bit%
��
�
�
���_redraw(block%)
�&� !block%<>main% �1,"NOT EXPECTED"
�șwrw%,,block% � more%
�� �_redrawL(block%)
�OX%=block%!4-block%!20
�OY%=block%!16-block%!24-20
�șWsc%,7
�ȕmore%
� L%=0:p%=0
 �

  � OX%+120,OY%-36*L%:
  �$(A%+p%);
  p%+=�$(A%+p%)+1
(  L%+=1
2  �p%>=cp%
< șwgr%,,block% � more%
F �
P�
Z
d� �do_it
nșgpi%,,block%
xwh%=block%!12
�ih%=block%!16
�x%=block%!0
�y%=block%!4
�,� wh%=Lwh% � ih%=Lih% � (�-LIT)<delay% �
�Lwh%=wh%:Lih%=ih%:LIT=�
�
�x%=block%!0
�y%=block%!4
�line%=0:�wis
�
�� i_wh% �_wh(wh%)
�� i_ih% �_ih(wh%,ih%)
�� i_coord% �_coord(wh%)

-ș"Wimp_ForceRedraw",main%,120,-1E4,1E4,0
�
"
,
6� �_ih(wh%,ih%)
@!block%=wh%
J3� wh%<0 � �i_wh% � �P("not a user window,wh<0")
Tblock%!4=ih%
^*� ih%<0 � �P("not a user-icon,ih<0"):�
hșWgis%,,block%
r$� �i_wh% �P("Window no :"+�~wh%)
|
�P("")
��P("  Icon no :"+�ih%)
�$�P("      BBX :"+�bbx(block%+8))
�#�P("     flag :"+�~(block%!24))
�&�P("   button :"+�butt(block%!24))
�!f%=block%!24:block%?(32+8)=13
�A$="":i$="000"
�*�f%>> 0�1 � A$+="Text,"  :�i$,3,1)="1"
�*�f%>> 1�1 � A$+="Sprite,":�i$,2,1)="1"
��f%>> 2�1 � A$+="Border,"
�(�A$<>""�P("          : "+�A$,�A$-1))
�	A$=""
��f%>> 3�1 � A$+="Hcenter,"
��f%>> 3�1 � A$+="Vcenter,"
 �f%>> 9�1 � A$+="Rjustifed,"
�f%>> 3�1 � A$+="Filled,"
(�A$<>""�P("          : "+�A$,�A$-1))
&Q�f%>> 6�1 ��P("          : anti alias font") � �P("          : fg/bg colour")
06�f%>> 7�1 ��P("          : task-redraw/clear bbx")
:=�f%>> 8�1 ��P("          : indirected data"):�i$,1,1)="1"
D1�f%>>10�1 ��P("          : ESG Adjust allow")
N1�f%>>11�1 ��P("          : Half size sprite")
X)�f%>>21�1 ��P("          : Selected")
b'�f%>>22�1 ��P("          : Shaded")
l(�f%>>23�1 ��P("          : Deleted")
v9�f%>>16�31��P("          : ESG group.."+�(f%>>16�31))
�Ȏ i$ �
�- � "000": �P("          : data NOT used")
�< � "001": �P("          : text '"+�$(block%+28),12)+"'")
�H � "010": �P("          : wimp-pool-sprite '"+�$(block%+28),12)+"'")
�E � "011": �P("          : text=wpsprite '"+�$(block%+28),12)+"'")
�- � "100": �P("          : data NOT used")
�0 � "101": �P("          : indirected text,")
�N             �P("          :   text       : "+��txt(block%!28),block%!36))
�B             �P("          :   validation : "+�txt(block%!32))
�=             �P("          :   len(max)   : "+�block%!36)
�= � "110": � block%!32=1 � A$="wimp-pool" � A$="user-pool"
�=             �P("          : indirected sprite from "+A$)
�N             �P("          :   sprite     : "+��txt(block%!28),block%!36))
G � "111": �P("          : indirected text (+sprite in validation)")
N             �P("          :   text       : "+��txt(block%!28),block%!36))
B             �P("          :   validation : "+�txt(block%!32))
 =             �P("          :   len(max)   : "+�block%!36)
* �
4�
>
H� �_wh(wh%)
R- � wh%<0 � �P("not a user window,wh<0"):�
\ !block%=wh%
f șgwi%,,block%
p OX%=block%!4-block%!20
z OY%=block%!16-block%!24-20
� �P("Window no : "+�~wh%)
�& �P("      BBX : "+�bbx(block%+4))
�' �P(" work BBX : "+�bbx(block%+44))
�: �P(" work butt: "+�~(block%!64)+","+�butt(block%!64))
�  �P(" Window flags, if set")
� � I%=0 � 31
�! � ((block%!32)�(1<<I%))<>0 �
�
  Ȏ I% �
�2   � 0:�P("      wf0 : title bar (old style)")
�-   � 1:�P("      wf1 : moveable by user")
�<   � 2:�P("      wf2 : vertical scroll bar (old style)")
�>   � 3:�P("      wf3 : horizontal scroll bar (old style)")
�<   � 4:�P("      wf4 : wimp redrawn, no user redraw rq")
8   � 5:�P("      wf5 : pane, on top of tool window")
3   � 6:�P("      wf6 : allowed outside screen")
6   � 7:�P("      wf7 : no back/close (old style)")
$?   � 8:�P("      wf8 : user-scroll rq returned on sausage")
.>   � 9:�P("      wf9 : user-scroll rq returned on arrows")
80   �10:�P("      wf10: assume GCOL colours")
B@   �11:�P("      wf11: backdrop, no windows below this one")
L(   �12:�P("      wf12: hot-keys on")
V7   �13:�P("      wf13: reserved, should be 0 !!!!")
`7   �14:�P("      wf14: reserved, should be 0 !!!!")
j7   �15:�P("      wf15: reserved, should be 0 !!!!")
t8   �16:�P("      wf16: window is open (of course!)")
~*   �17:�P("      wf17: fully visible")
�0   �18:�P("      wf18: toggled to max size")
�;   �19:�P("      wf19: Open rq cause by toggle click?")
�,   �20:�P("      wf20: has input focus")
�7   �21:�P("      wf21: reserved, should be 0 !!!!")
�7   �22:�P("      wf22: reserved, should be 0 !!!!")
�7   �23:�P("      wf23: reserved, should be 0 !!!!")
�:   �24:�P("      wf24: back icon (new style, wf31=1)")
�;   �25:�P("      wf25: close icon (new style, wf31=1)")
�:   �26:�P("      wf26: title bar (new style, wf31=1)")
�<   �27:�P("      wf27: toggle icon (new style, wf31=1)")
�@   �28:�P("      wf28: vertical scroll (new style, wf31=1)")
�B   �30:�P("      wf30: horizontal scroll (new style, wf31=1)")
:   �29:�P("      wf29: size icon (new style, wf31=1)")

3   �31:�P("      wf31: use net bits wf[24-30]")
   �
  �
(  �
2E � block%?36=&FF �P("          : title/frame TRANSPARANT colour")
<M � block%?39=&FF �P("          : work area bacground TRANSPARANT colour")
F � block%!68=1 �
P1    �P("          : WIMP sprite area in use")
Z	    �
dA    �P("          : other sprite area in use: &"+�~block%!68)
n	    �
x � block%!88=0 �
�6    �P("          : No icons added to definition")
�	    �
�D    �P("          : "+�block%!88+" icon(s) added to definition")
�	    �
� �
�
�� �_coord(wh%)
�� wh%>=0 �
�\ � �i_wh% �:!block%=wh%:șgwi%,,block%:OX%=block%!4-block%!20:OY%=block%!16-block%!24-20
�, �P(""):�P("   Origin @ "+�OX%+","+�OY%)
� �
�"�P("  Pointer @ "+�x%+","+�y%)
�9� wh%>=0 �:�P("  or work @ "+�(x%-OX%)+","+�(y%-OY%))
�

� �butt(if%)
"if%=(if%>>12)�15
,
Ȏif%�
6� 0 :a$="ignore"
@� 1 :a$="always"
J� 2 :a$="auto rep"
T� 3 :a$="click"
^� 4 :a$="release"
h� 5 :a$="dclick"
r� 6 :a$="click/drag"
|� 7 :a$="release/drag"
�� 8 :a$="dclick/drag"
�� 9 :a$="menu"
� � 10 :a$="click/drag/dclick"
�� 11 :a$="radio"
�� 12 :a$="reserved"
�� 13 :a$="reserved"
�� 14 :a$="write/click/drag"
�� 15 :a$="write"
��
�="["+�if%+"] "+a$
�
�� �P(A$)
��A$+1+cp%>max% :�
$(A%+cp%)=�A$,69)
cp%+=�A$+1
�
&
0� �bbx(a%)
:A$=�a%!0
DB$=�a%!4
NC$=�a%!8
X
D$=�a%!12
b':="("+A$+","+B$+")x("+C$+","+D$+")"
l
v� �_update_settings_menu
��_Mtick(mset%,0,i_wh%)
��_Mtick(mset%,1,i_ih%)
��_Mtick(mset%,2,i_coord%)
��
�
�� �drag(wh%,ih%)
�Gblock%!0=wh%:ș"Wimp_GetWindowState",,block%:OX%=block%!4-block%!20
��OY%=block%!16-block%!24:block%!4=ih%:ș"Wimp_GetIconState",,block%:block%!4=5:block%!8+=OX%:block%!12+=OY%:block%!16+=OX%:block%!20+=OY%:block%!24=0:block%!28=0:block%!32=1E5:block%!36=1E5:� sloggY !
�ș"Wimp_DragBox",,block%
��
�
�� �CUT(A$)
�	B$=""
#ȕ �A$,1)<>"." � �B$<12 � �A$>0
 B$=�A$,1)+B$
 A$=�A$,�A$-1)
  �
*� B$="" B$="ScoopDat"
4:=B$
>
H
� �wis
Rcp%=0:$A%=""
\�
f
p� �_try_save
zF$=�_Itext(xfer%,1)
��F$,".")>0�
�> �("SAVE "+F$+" "+�~A%+" +"+�~cp%):�("SETTYPE "+F$+" FFF")
� �
�7 �_Inform("Please drag, or supply a full leafname")
� �
��
�
�� �txt(from%)
�
� I%,sth%
�� �
�!� � �:="COULD NOT BE REACHED"
�
sav%!12=0
�"� from%=0 :="[word value = 0]"
)� from%=-1 :="[word value = -1] no $"
(� from%<-1 :="[word value NEGATIVE]"
1ș"Wimp_SendMessage",19,sav%,wh%,ih% � ,,sth%
$%� sth%=task% :="Thats meself !??"
.4ș"Wimp_TransferBlock",sth%,from%,task%,sav%,200
8�I%=0 � 200
B � sav%?I%<32 � sav%?I%=13
L �
V)sav%?200=13:� moet wel... jammer he !
`:=$sav%
�

00000000  0d 00 0a 1f f4 3e 3c 69  6e 66 6f 73 63 6f 6f 70  |.....><infoscoop|
00000010  24 64 69 72 3e 2e 21 52  55 4e 49 4d 41 47 45 0d  |$dir>.!RUNIMAGE.|
00000020  00 14 05 f4 0d 00 1e 2e  f4 20 20 56 65 72 73 69  |.........  Versi|
00000030  6f 6e 20 31 2e 31 31 2c  20 28 63 29 20 44 69 72  |on 1.11, (c) Dir|
00000040  6b 2d 57 69 6c 6c 65 6d  20 76 61 6e 20 47 75 6c  |k-Willem van Gul|
00000050  69 6b 0d 00 28 2d f4 20  20 20 20 20 20 20 20 20  |ik..(-.         |
00000060  20 20 20 20 20 20 20 20  20 20 20 4c 69 70 70 65  |           Lippe|
00000070  72 6b 65 72 6b 73 74 72  61 61 74 20 32 39 30 0d  |rkerkstraat 290.|
00000080  00 32 3a f4 20 20 20 20  20 20 20 20 20 20 20 20  |.2:.            |
00000090  20 20 20 20 20 20 20 20  37 35 33 33 20 41 4b 20  |        7533 AK |
000000a0  45 6e 73 63 68 65 64 65  2c 20 54 68 65 20 4e 65  |Enschede, The Ne|
000000b0  74 68 65 72 6c 61 6e 64  73 0d 00 3c 2e f4 20 20  |therlands..<..  |
000000c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000d0  20 20 50 68 6f 6e 65 20  2b 33 31 20 35 33 20 33  |  Phone +31 53 3|
000000e0  30 33 20 34 34 37 2e 0d  00 46 32 f4 20 20 20 20  |03 447...F2.    |
000000f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000100  45 6d 61 69 6c 20 64 77  76 67 75 6c 69 6b 23 75  |Email dwvgulik#u|
00000110  74 77 65 6e 74 65 2e 6e  6c 0d 00 50 04 0d 00 5a  |twente.nl..P...Z|
00000120  24 20 20 20 20 20 20 20  20 20 20 20 20 20 20 74  |$              t|
00000130  69 74 6c 65 24 3d 22 49  6e 66 6f 53 63 6f 6f 70  |itle$="InfoScoop|
00000140  22 0d 00 64 38 20 20 20  20 20 20 20 20 20 20 20  |"..d8           |
00000150  20 20 20 70 75 72 70 6f  73 65 24 3d 22 53 63 6f  |   purpose$="Sco|
00000160  6f 70 73 20 66 6f 72 20  69 63 6f 6e 2f 77 69 6e  |ops for icon/win|
00000170  64 6f 77 20 64 65 66 73  22 0d 00 6e 35 20 20 20  |dow defs"..n5   |
00000180  20 20 20 20 20 20 20 20  20 20 20 76 65 72 73 69  |           versi|
00000190  6f 6e 24 3d 22 31 2e 31  31 20 28 63 29 20 44 57  |on$="1.11 (c) DW|
000001a0  20 31 39 39 31 2c 52 41  4d 58 46 45 52 22 0d 00  | 1991,RAMXFER"..|
000001b0  78 04 0d 00 82 28 f4 20  20 20 20 20 20 20 20 20  |x....(.         |
000001c0  20 20 44 20 45 20 46 20  41 20 55 20 4c 20 54 20  |  D E F A U L T |
000001d0  73 65 74 74 69 6e 67 73  20 21 0d 00 8c 04 0d 00  |settings !......|
000001e0  96 34 6b 65 79 25 3d 2d  31 20 20 20 20 20 20 20  |.4key%=-1       |
000001f0  3a f4 20 74 68 65 20 49  4e 4b 45 59 20 6e 6f 20  |:. the INKEY no |
00000200  6f 66 20 74 68 65 20 27  73 63 6f 6f 70 27 20 6b  |of the 'scoop' k|
00000210  65 79 0d 00 a0 24 6b 65  79 24 3d 22 53 48 49 46  |ey...$key$="SHIF|
00000220  54 22 20 20 3a f4 20 61  6e 64 20 69 74 27 73 20  |T"  :. and it's |
00000230  6e 61 6d 65 2e 2e 0d 00  aa 04 0d 00 b4 41 20 20  |name.........A  |
00000240  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 63  |            :. c|
00000250  68 61 6e 67 65 20 74 68  65 20 64 65 6c 61 79 20  |hange the delay |
00000260  62 65 74 77 65 65 6e 20  74 77 6f 20 75 70 64 61  |between two upda|
00000270  74 65 73 20 68 65 72 65  2e 2e 2e 0d 00 be 27 64  |tes here......'d|
00000280  65 6c 61 79 25 3d 35 30  20 20 20 20 20 3a f4 20  |elay%=50     :. |
00000290  69 6e 20 6d 69 63 72 6f  20 73 65 63 6f 6e 64 73  |in micro seconds|
000002a0  20 21 0d 00 c8 04 0d 00  d2 29 20 20 20 20 20 20  | !.......)      |
000002b0  20 20 20 20 20 20 20 20  3a f4 20 74 68 65 20 64  |        :. the d|
000002c0  65 66 61 75 6c 74 20 73  65 74 74 69 6e 67 73 0d  |efault settings.|
000002d0  00 dc 22 69 5f 63 6f 6f  72 64 25 3d b9 20 3a f4  |.."i_coord%=. :.|
000002e0  20 73 68 6f 77 20 63 6f  6f 72 64 69 6e 61 74 65  | show coordinate|
000002f0  73 0d 00 e6 22 69 5f 77  68 25 20 20 20 3d b9 20  |s..."i_wh%   =. |
00000300  3a f4 20 73 68 6f 77 20  77 69 6e 64 6f 77 20 69  |:. show window i|
00000310  6e 66 6f 0d 00 f0 20 69  5f 69 68 25 20 20 20 3d  |nfo... i_ih%   =|
00000320  b9 20 3a f4 20 73 68 6f  77 20 69 63 6f 6e 20 69  |. :. show icon i|
00000330  6e 66 6f 0d 00 fa 04 0d  01 04 21 20 20 20 20 20  |nfo.......!     |
00000340  20 20 20 20 20 20 20 20  20 3a f4 20 4d 45 4d 4f  |         :. MEMO|
00000350  52 59 20 75 73 61 67 65  0d 01 0e 34 6d 61 78 25  |RY usage...4max%|
00000360  3d 35 30 30 30 20 20 20  20 20 3a f4 20 66 6f 72  |=5000     :. for|
00000370  20 67 65 6e 65 72 61 6c  20 58 46 45 52 20 75 73  | general XFER us|
00000380  65 2c 20 69 6e 20 62 79  74 65 73 2e 0d 01 18 37  |e, in bytes....7|
00000390  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
000003a0  20 62 65 73 74 20 76 61  6c 75 65 20 77 6f 75 6c  | best value woul|
000003b0  64 20 6a 75 73 74 20 63  6f 76 65 72 20 6e 6f 72  |d just cover nor|
000003c0  6d 61 6c 0d 01 22 27 20  20 20 20 20 20 20 20 20  |mal.."'         |
000003d0  20 20 20 20 20 3a f4 20  74 65 78 74 66 69 6c 65  |     :. textfile|
000003e0  2b 34 20 6c 65 6e 67 74  68 2e 0d 01 2c 04 0d 01  |+4 length...,...|
000003f0  36 3c 4d 4c 25 20 3d 31  30 30 20 20 20 20 20 20  |6<ML% =100      |
00000400  3a f4 20 6d 61 78 20 6e  6f 20 6f 66 20 27 6c 69  |:. max no of 'li|
00000410  6e 65 73 27 2c 20 61 76  61 72 61 67 65 20 6f 66  |nes', avarage of|
00000420  20 7e 35 30 20 63 68 61  72 73 0d 01 40 31 20 20  | ~50 chars..@1  |
00000430  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 72  |            :. r|
00000440  65 6d 61 6e 69 6e 67 20  77 69 6c 6c 20 67 65 74  |emaning will get|
00000450  20 74 72 75 63 61 74 65  64 20 21 0d 01 4a 46 20  | trucated !..JF |
00000460  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
00000470  74 65 63 68 2e 6e 6f 74  65 2c 20 6e 6f 20 6c 69  |tech.note, no li|
00000480  6e 65 20 63 6f 75 6e 74  20 69 73 20 64 6f 6e 65  |ne count is done|
00000490  2c 20 6f 6e 6c 79 20 63  68 61 72 20 63 6f 75 6e  |, only char coun|
000004a0  74 0d 01 54 37 64 65 62  75 67 25 3d 30 20 20 20  |t..T7debug%=0   |
000004b0  20 20 20 3a f4 20 30 2c  31 2c 32 20 73 74 61 74  |   :. 0,1,2 stat|
000004c0  65 73 2c 63 68 61 6e 67  65 20 61 74 20 79 6f 75  |es,change at you|
000004d0  72 20 72 69 73 63 20 21  0d 01 5e 04 0d 01 68 12  |r risc !..^...h.|
000004e0  ee 20 85 20 f2 5f 65 72  72 6f 72 28 30 29 0d 01  |. . ._error(0)..|
000004f0  72 1c 74 61 73 6b 25 3d  a4 5f 74 61 73 6b 28 74  |r.task%=._task(t|
00000500  69 74 6c 65 24 2c 32 30  30 29 0d 01 7c 04 0d 01  |itle$,200)..|...|
00000510  86 12 ee 20 85 20 f2 5f  65 72 72 6f 72 28 31 29  |... . ._error(1)|
00000520  0d 01 90 24 de 20 62 6c  6f 63 6b 25 20 35 30 30  |...$. block% 500|
00000530  2c 41 25 20 6d 61 78 25  2c 73 61 76 25 20 4d 4c  |,A% max%,sav% ML|
00000540  25 2a 35 30 0d 01 9a 0a  f2 5f 69 6e 69 74 0d 01  |%*50....._init..|
00000550  a4 04 0d 01 ae 15 f2 5f  73 65 74 5f 67 65 74 5f  |......._set_get_|
00000560  64 65 66 61 75 6c 74 0d  01 b8 04 0d 01 c2 19 ee  |default.........|
00000570  20 85 20 f2 5f 65 72 72  6f 72 28 32 2d 64 65 62  | . ._error(2-deb|
00000580  75 67 25 29 0d 01 cc 04  0d 01 d6 05 f5 0d 01 e0  |ug%)............|
00000590  36 20 c8 99 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |6 .."Wimp_Poll",|
000005a0  25 31 31 31 31 31 31 31  30 30 30 30 31 31 30 30  |%111111100001100|
000005b0  30 30 2c 62 6c 6f 63 6b  25 20 b8 20 72 65 61 73  |00,block% . reas|
000005c0  6f 6e 25 0d 01 ea 11 20  c8 8e 20 72 65 61 73 6f  |on%.... .. reaso|
000005d0  6e 25 20 ca 0d 01 f4 19  20 20 c9 20 30 20 3a e7  |n% .....  . 0 :.|
000005e0  a6 28 6b 65 79 25 29 f2  64 6f 5f 69 74 0d 01 fe  |.(key%).do_it...|
000005f0  1b 20 20 c9 20 31 20 3a  f2 5f 72 65 64 72 61 77  |.  . 1 :._redraw|
00000600  28 62 6c 6f 63 6b 25 29  0d 02 08 26 20 20 c9 20  |(block%)...&  . |
00000610  32 20 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |2 :.."Wimp_OpenW|
00000620  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 02  |indow",,block%..|
00000630  12 27 20 20 c9 20 33 20  3a c8 99 22 57 69 6d 70  |.'  . 3 :.."Wimp|
00000640  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
00000650  6c 6f 63 6b 25 0d 02 1c  18 20 20 c9 20 36 20 3a  |lock%....  . 6 :|
00000660  e7 20 62 6c 6f 63 6b 25  21 38 80 32 8c 0d 02 26  |. block%!8.2...&|
00000670  1e 20 20 20 20 f2 5f 6f  70 65 6e 4d 28 62 6c 6f  |.    ._openM(blo|
00000680  63 6b 25 2c 6d 6d 61 69  6e 25 29 0d 02 30 08 20  |ck%,mmain%)..0. |
00000690  20 20 cc 0d 02 3a 15 20  20 20 c8 8e 20 62 6c 6f  |  ...:.   .. blo|
000006a0  63 6b 25 21 31 32 20 ca  0d 02 44 11 20 20 20 20  |ck%!12 ...D.    |
000006b0  c9 20 6d 61 69 6e 25 20  3a 0d 02 4e 33 20 20 20  |. main% :..N3   |
000006c0  20 20 e7 20 62 6c 6f 63  6b 25 21 31 36 3d 30 20  |  . block%!16=0 |
000006d0  80 20 62 6c 6f 63 6b 25  21 38 3e 31 35 20 f2 64  |. block%!8>15 .d|
000006e0  72 61 67 28 6d 61 69 6e  25 2c 30 29 0d 02 58 0f  |rag(main%,0)..X.|
000006f0  20 20 20 20 c9 20 78 66  65 72 25 0d 02 62 15 20  |    . xfer%..b. |
00000700  20 20 20 20 c8 8e 62 6c  6f 63 6b 25 21 31 36 ca  |    ..block%!16.|
00000710  0d 02 6c 29 20 20 20 20  20 20 c9 20 30 20 3a e7  |..l)      . 0 :.|
00000720  62 6c 6f 63 6b 25 21 38  3e 31 35 f2 64 72 61 67  |block%!8>15.drag|
00000730  28 78 66 65 72 25 2c 30  29 0d 02 76 19 20 20 20  |(xfer%,0)..v.   |
00000740  20 20 20 c9 20 32 20 3a  f2 5f 74 72 79 5f 73 61  |   . 2 :._try_sa|
00000750  76 65 0d 02 80 2d 20 20  20 20 20 20 20 e7 ac a4  |ve...-       ...|
00000760  5f 61 64 6a 75 73 74 3a  c8 99 22 57 69 6d 70 5f  |_adjust:.."Wimp_|
00000770  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00000780  02 8a 0b 20 20 20 20 20  20 cb 0d 02 94 2c 20 20  |...      ....,  |
00000790  20 20 c9 20 2d 31 2c 2d  32 20 3a e7 20 62 6c 6f  |  . -1,-2 :. blo|
000007a0  63 6b 25 21 38 3d 34 20  f2 5f 6f 70 65 6e 57 28  |ck%!8=4 ._openW(|
000007b0  6d 61 69 6e 25 29 0d 02  9e 09 20 20 20 20 cb 0d  |main%)....    ..|
000007c0  02 a8 08 20 20 20 cd 0d  02 b2 30 20 20 c9 20 37  |...   ....0  . 7|
000007d0  3a 24 28 62 6c 6f 63 6b  25 2b 34 34 29 3d a4 43  |:$(block%+44)=.C|
000007e0  55 54 28 a4 5f 49 74 65  78 74 28 78 66 65 72 25  |UT(._Itext(xfer%|
000007f0  2c 31 29 29 2b bd 30 0d  02 bc 2b 20 20 20 20 20  |,1))+.0...+     |
00000800  20 20 20 c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |   .."Wimp_GetPo|
00000810  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 62 6c 6f 63  |interInfo",,bloc|
00000820  6b 25 0d 02 c6 4a 20 20  20 20 20 20 20 20 3a 62  |k%...J        :b|
00000830  6c 6f 63 6b 25 21 32 30  3d 62 6c 6f 63 6b 25 21  |lock%!20=block%!|
00000840  31 32 3a 3a 62 6c 6f 63  6b 25 21 32 34 3d 62 6c  |12::block%!24=bl|
00000850  6f 63 6b 25 21 31 36 3a  3a 62 6c 6f 63 6b 25 21  |ock%!16::block%!|
00000860  32 38 3d 62 6c 6f 63 6b  25 21 30 30 0d 02 d0 4d  |28=block%!00...M|
00000870  20 20 20 20 20 20 20 20  3a 62 6c 6f 63 6b 25 21  |        :block%!|
00000880  33 32 3d 62 6c 6f 63 6b  25 21 30 34 3a 3a 62 6c  |32=block%!04::bl|
00000890  6f 63 6b 25 21 33 36 3d  63 70 25 3a 3a 62 6c 6f  |ock%!36=cp%::blo|
000008a0  63 6b 25 21 34 30 3d 26  46 46 46 3a 3a 62 6c 6f  |ck%!40=&FFF::blo|
000008b0  63 6b 25 21 30 3d 31 32  30 0d 02 da 31 20 20 20  |ck%!0=120...1   |
000008c0  20 20 20 20 20 3a 62 6c  6f 63 6b 25 21 31 32 3d  |     :block%!12=|
000008d0  30 3a 3a 62 6c 6f 63 6b  25 21 31 36 3d 31 3a f4  |0::block%!16=1:.|
000008e0  20 44 41 54 41 20 53 41  56 45 0d 02 e4 3e 20 20  | DATA SAVE...>  |
000008f0  20 20 20 20 20 20 c8 99  22 57 69 6d 70 5f 53 65  |      .."Wimp_Se|
00000900  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 62 6c  |ndMessage",17,bl|
00000910  6f 63 6b 25 2c 62 6c 6f  63 6b 25 21 32 30 2c 62  |ock%,block%!20,b|
00000920  6c 6f 63 6b 25 21 32 34  0d 02 ee 12 20 20 20 20  |lock%!24....    |
00000930  20 20 20 20 70 74 72 25  3d 30 0d 02 f8 32 20 20  |    ptr%=0...2  |
00000940  c9 20 38 3a e7 62 6c 6f  63 6b 25 21 30 3d 78 66  |. 8:.block%!0=xf|
00000950  65 72 25 80 62 6c 6f 63  6b 25 21 34 3d 31 80 62  |er%.block%!4=1.b|
00000960  6c 6f 63 6b 25 21 32 34  3d 31 33 8c 0d 03 02 18  |lock%!24=13.....|
00000970  20 20 20 20 20 20 20 20  20 20 f2 5f 74 72 79 5f  |          ._try_|
00000980  73 61 76 65 0d 03 0c 30  20 20 20 20 20 20 20 20  |save...0        |
00000990  20 20 e7 ac a4 5f 61 64  6a 75 73 74 3a c8 99 22  |  ..._adjust:.."|
000009a0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
000009b0  2c 2c 2d 31 0d 03 16 0e  20 20 20 20 20 20 20 20  |,,-1....        |
000009c0  20 cc 0d 03 20 29 20 20  20 20 20 20 20 20 20 20  | ... )          |
000009d0  c8 99 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |.."Wimp_ProcessK|
000009e0  65 79 22 2c 2c 62 6c 6f  63 6b 25 0d 03 2a 0e 20  |ey",,block%..*. |
000009f0  20 20 20 20 20 20 20 20  cd 0d 03 34 19 20 20 c9  |        ...4.  .|
00000a00  20 39 20 3a c8 8e 20 4c  61 73 74 5f 61 64 72 25  | 9 :.. Last_adr%|
00000a10  20 ca 0d 03 3e 1d 20 20  20 c9 20 6d 6d 61 69 6e  | ...>.   . mmain|
00000a20  25 20 3a c8 8e 20 21 62  6c 6f 63 6b 25 20 ca 0d  |% :.. !block% ..|
00000a30  03 48 0d 20 20 20 20 20  20 c9 20 30 0d 03 52 1b  |.H.      . 0..R.|
00000a40  20 20 20 20 20 20 c9 20  31 3a c8 8e 20 62 6c 6f  |      . 1:.. blo|
00000a50  63 6b 25 21 34 20 ca 0d  03 5c 1a 20 20 20 20 20  |ck%!4 ...\.     |
00000a60  20 20 c9 30 3a 69 5f 77  68 25 3d ac 69 5f 77 68  |  .0:i_wh%=.i_wh|
00000a70  25 0d 03 66 1a 20 20 20  20 20 20 20 c9 31 3a 69  |%..f.       .1:i|
00000a80  5f 69 68 25 3d ac 69 5f  69 68 25 0d 03 70 20 20  |_ih%=.i_ih%..p  |
00000a90  20 20 20 20 20 20 c9 32  3a 69 5f 63 6f 6f 72 64  |      .2:i_coord|
00000aa0  25 3d ac 69 5f 63 6f 6f  72 64 25 0d 03 7a 1e 20  |%=.i_coord%..z. |
00000ab0  20 20 20 20 20 20 c9 33  3a 69 5f 74 61 73 6b 25  |      .3:i_task%|
00000ac0  3d ac 69 5f 74 61 73 6b  25 0d 03 84 0c 20 20 20  |=.i_task%....   |
00000ad0  20 20 20 20 cb 0d 03 8e  21 20 20 20 20 20 20 20  |    ....!       |
00000ae0  f2 5f 75 70 64 61 74 65  5f 73 65 74 74 69 6e 67  |._update_setting|
00000af0  73 5f 6d 65 6e 75 0d 03  98 18 20 20 20 20 20 20  |s_menu....      |
00000b00  c9 20 32 3a f2 5f 74 72  79 5f 73 61 76 65 0d 03  |. 2:._try_save..|
00000b10  a2 15 20 20 20 20 20 20  c9 20 33 3a 71 75 69 74  |..      . 3:quit|
00000b20  25 3d b9 0d 03 ac 0b 20  20 20 20 20 20 cb 0d 03  |%=.....      ...|
00000b30  b6 0a 20 20 20 20 20 cb  0d 03 c0 19 20 20 e7 20  |..     .....  . |
00000b40  a4 5f 61 64 6a 75 73 74  20 f2 5f 72 65 6f 70 65  |._adjust ._reope|
00000b50  6e 0d 03 ca 10 20 20 c9  20 31 37 2c 31 38 2c 31  |n....  . 17,18,1|
00000b60  39 0d 03 d4 15 20 20 20  c8 8e 20 62 6c 6f 63 6b  |9....   .. block|
00000b70  25 21 31 36 20 ca 0d 03  de 19 20 20 20 20 c9 20  |%!16 .....    . |
00000b80  30 20 20 20 20 20 20 3a  71 75 69 74 25 3d b9 0d  |0      :quit%=..|
00000b90  03 e8 23 20 20 20 20 c9  20 32 20 20 20 20 20 20  |..#    . 2      |
00000ba0  3a 46 24 3d a4 73 30 28  62 6c 6f 63 6b 25 2b 34  |:F$=.s0(block%+4|
00000bb0  34 29 0d 03 f2 36 20 20  20 20 20 20 20 20 20 20  |4)...6          |
00000bc0  20 20 20 20 20 20 20 ff  28 22 53 41 56 45 20 22  |       .("SAVE "|
00000bd0  2b 46 24 2b 22 20 22 2b  c3 7e 41 25 2b 22 20 2b  |+F$+" "+.~A%+" +|
00000be0  22 2b c3 7e 63 70 25 29  0d 03 fc 2c 20 20 20 20  |"+.~cp%)...,    |
00000bf0  20 20 20 20 20 20 20 20  20 20 20 20 20 ff 28 22  |             .("|
00000c00  53 45 54 54 59 50 45 20  22 2b 46 24 2b 22 20 46  |SETTYPE "+F$+" F|
00000c10  46 46 22 29 0d 04 06 33  20 20 20 20 20 20 20 20  |FF")...3        |
00000c20  20 20 20 20 20 20 20 20  20 62 6c 6f 63 6b 25 21  |         block%!|
00000c30  31 32 3d 62 6c 6f 63 6b  25 21 38 3a 62 6c 6f 63  |12=block%!8:bloc|
00000c40  6b 25 21 31 36 3d 33 0d  04 10 3c 20 20 20 20 20  |k%!16=3...<     |
00000c50  20 20 20 20 20 20 20 20  20 20 20 20 c8 99 22 57  |            .."W|
00000c60  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00000c70  2c 31 37 2c 62 6c 6f 63  6b 25 2c 62 6c 6f 63 6b  |,17,block%,block|
00000c80  25 21 34 0d 04 1a 28 20  20 20 20 20 20 20 20 20  |%!4...(         |
00000c90  20 20 20 20 20 20 20 20  f2 5f 49 74 65 78 74 28  |        ._Itext(|
00000ca0  78 66 65 72 25 2c 31 2c  46 24 29 0d 04 24 1f 20  |xfer%,1,F$)..$. |
00000cb0  20 20 20 c9 20 36 20 20  3a 20 53 45 6d 61 78 25  |   . 6  : SEmax%|
00000cc0  3d 62 6c 6f 63 6b 25 21  32 34 0d 04 2e 31 20 20  |=block%!24...1  |
00000cd0  20 20 20 20 20 20 20 20  e7 20 53 45 6d 61 78 25  |        . SEmax%|
00000ce0  3e 63 70 25 2d 70 74 72  25 20 8c 20 53 45 6d 61  |>cp%-ptr% . SEma|
00000cf0  78 25 3d 63 70 25 2d 70  74 72 25 0d 04 38 23 20  |x%=cp%-ptr%..8# |
00000d00  20 20 20 20 20 20 20 20  20 e7 20 53 45 6d 61 78  |         . SEmax|
00000d10  25 3c 30 20 8c 3a 53 45  6d 61 78 25 3d 30 0d 04  |%<0 .:SEmax%=0..|
00000d20  42 1c 20 20 20 20 20 20  20 20 20 20 e3 49 25 3d  |B.          .I%=|
00000d30  30 20 b8 20 53 45 6d 61  78 25 0d 04 4c 32 20 20  |0 . SEmax%..L2  |
00000d40  20 20 20 20 20 20 20 20  20 e7 20 49 25 3f 28 41  |         . I%?(A|
00000d50  25 2b 70 74 72 25 29 3d  31 33 20 8c 20 49 25 3f  |%+ptr%)=13 . I%?|
00000d60  28 41 25 2b 70 74 72 25  29 3d 31 30 0d 04 56 10  |(A%+ptr%)=10..V.|
00000d70  20 20 20 20 20 20 20 20  20 20 20 ed 0d 04 60 4c  |           ...`L|
00000d80  20 20 20 20 20 20 20 20  20 20 c8 99 22 57 69 6d  |          .."Wim|
00000d90  70 5f 54 72 61 6e 73 66  65 72 42 6c 6f 63 6b 22  |p_TransferBlock"|
00000da0  2c 74 61 73 6b 25 2c 41  25 2b 70 74 72 25 2c 62  |,task%,A%+ptr%,b|
00000db0  6c 6f 63 6b 25 21 34 2c  62 6c 6f 63 6b 25 21 32  |lock%!4,block%!2|
00000dc0  30 2c 53 45 6d 61 78 25  0d 04 6a 1c 20 20 20 20  |0,SEmax%..j.    |
00000dd0  20 20 20 20 20 20 e3 49  25 3d 30 20 b8 20 53 45  |      .I%=0 . SE|
00000de0  6d 61 78 25 0d 04 74 32  20 20 20 20 20 20 20 20  |max%..t2        |
00000df0  20 20 20 e7 20 49 25 3f  28 41 25 2b 70 74 72 25  |   . I%?(A%+ptr%|
00000e00  29 3d 31 30 20 8c 20 49  25 3f 28 41 25 2b 70 74  |)=10 . I%?(A%+pt|
00000e10  72 25 29 3d 31 33 0d 04  7e 10 20 20 20 20 20 20  |r%)=13..~.      |
00000e20  20 20 20 20 20 ed 0d 04  88 1a 20 20 20 20 20 20  |     .....      |
00000e30  20 20 20 20 70 74 72 25  2b 3d 53 45 6d 61 78 25  |    ptr%+=SEmax%|
00000e40  0d 04 92 1e 20 20 20 20  20 20 20 20 20 20 62 6c  |....          bl|
00000e50  6f 63 6b 25 21 32 34 3d  53 45 6d 61 78 25 0d 04  |ock%!24=SEmax%..|
00000e60  9c 20 20 20 20 20 20 20  20 20 20 20 62 6c 6f 63  |.           bloc|
00000e70  6b 25 21 31 32 3d 62 6c  6f 63 6b 25 21 38 0d 04  |k%!12=block%!8..|
00000e80  a6 1f 20 20 20 20 20 20  20 20 20 20 6d 79 5f 72  |..          my_r|
00000e90  65 66 25 3d 62 6c 6f 63  6b 25 21 31 32 0d 04 b0  |ef%=block%!12...|
00000ea0  19 20 20 20 20 20 20 20  20 20 20 62 6c 6f 63 6b  |.          block|
00000eb0  25 21 31 36 3d 37 0d 04  ba 35 20 20 20 20 20 20  |%!16=7...5      |
00000ec0  20 20 20 20 c8 99 22 57  69 6d 70 5f 53 65 6e 64  |    .."Wimp_Send|
00000ed0  4d 65 73 73 61 67 65 22  2c 31 38 2c 62 6c 6f 63  |Message",18,bloc|
00000ee0  6b 25 2c 62 6c 6f 63 6b  25 21 34 0d 04 c4 3d 20  |k%,block%!4...= |
00000ef0  20 20 20 c9 20 37 20 3a  f4 20 6f 6d 64 61 74 20  |   . 7 :. omdat |
00000f00  31 38 20 62 69 6a 20 74  72 61 6e 73 6d 69 74 2c  |18 bij transmit,|
00000f10  20 63 68 65 63 6b 65 6e  20 6f 66 20 69 65 20 6e  | checken of ie n|
00000f20  69 65 74 20 6b 77 61 6d  0d 04 ce 3d 20 20 20 20  |iet kwam...=    |
00000f30  20 20 20 20 20 3a e7 20  62 6c 6f 63 6b 25 21 38  |     :. block%!8|
00000f40  3d 6d 79 5f 72 65 66 25  20 85 20 31 2c 22 52 41  |=my_ref% . 1,"RA|
00000f50  4d 20 54 72 61 6e 73 6d  69 74 20 66 61 69 6c 75  |M Transmit failu|
00000f60  72 65 2e 2e 22 0d 04 d8  1e 20 20 20 20 c9 20 26  |re.."....    . &|
00000f70  35 30 32 20 3a f2 5f 68  65 6c 70 28 62 6c 6f 63  |502 :._help(bloc|
00000f80  6b 25 29 0d 04 e2 09 20  20 20 20 cb 0d 04 ec 07  |k%)....    .....|
00000f90  20 20 cb 0d 04 f6 0b fd  20 71 75 69 74 25 0d 05  |  ...... quit%..|
00000fa0  00 32 e7 20 a4 5f 61 64  6a 75 73 74 20 ff 22 46  |.2. ._adjust ."F|
00000fb0  69 6c 65 72 5f 4f 70 65  6e 44 69 72 20 3c 22 2b  |iler_OpenDir <"+|
00000fc0  74 69 74 6c 65 24 2b 22  24 64 69 72 3e 2e 5e 22  |title$+"$dir>.^"|
00000fd0  0d 05 0a 16 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |......"Wimp_Clos|
00000fe0  65 44 6f 77 6e 22 0d 05  14 05 e0 0d 05 1e 04 0d  |eDown"..........|
00000ff0  05 28 0c dd 20 f2 5f 69  6e 69 74 0d 05 32 35 20  |.(.. ._init..25 |
00001000  73 6d 65 6d 25 3d a4 5f  73 70 72 69 74 65 5f 69  |smem%=._sprite_i|
00001010  6e 69 74 28 22 3c 22 2b  74 69 74 6c 65 24 2b 22  |nit("<"+title$+"|
00001020  24 64 69 72 3e 2e 21 73  70 72 69 74 65 73 22 29  |$dir>.!sprites")|
00001030  0d 05 3c 2d 20 f2 5f 77  69 6e 64 5f 69 6e 69 74  |..<- ._wind_init|
00001040  28 22 3c 22 2b 74 69 74  6c 65 24 2b 22 24 64 69  |("<"+title$+"$di|
00001050  72 3e 2e 74 65 6d 70 6c  61 74 65 22 29 0d 05 46  |r>.template")..F|
00001060  10 20 f2 5f 6d 65 6e 75  5f 69 6e 69 74 0d 05 50  |. ._menu_init..P|
00001070  40 20 64 65 73 6b 5f 69  63 25 3d a4 5f 73 70 72  |@ desk_ic%=._spr|
00001080  69 74 65 5f 69 63 6f 6e  28 2d 31 2c 30 2c 30 2c  |ite_icon(-1,0,0,|
00001090  36 38 2c 36 38 2c 26 33  31 30 32 2c 73 6d 65 6d  |68,68,&3102,smem|
000010a0  25 2c 22 21 22 2b 74 69  74 6c 65 24 29 0d 05 5a  |%,"!"+title$)..Z|
000010b0  06 20 e1 0d 05 64 04 0d  05 6e 11 dd 20 f2 5f 6d  |. ...d...n.. ._m|
000010c0  65 6e 75 5f 69 6e 69 74  0d 05 78 15 de 20 70 74  |enu_init..x.. pt|
000010d0  72 25 20 32 2a 32 38 2b  32 30 2a 33 32 0d 05 82  |r% 2*28+20*32...|
000010e0  20 20 6d 73 65 74 25 20  20 20 20 3d a4 5f 6d 61  |  mset%    =._ma|
000010f0  6b 65 5f 6d 65 6e 75 28  70 74 72 25 29 0d 05 8c  |ke_menu(ptr%)...|
00001100  20 20 6d 6d 61 69 6e 25  20 20 20 3d a4 5f 6d 61  |  mmain%   =._ma|
00001110  6b 65 5f 6d 65 6e 75 28  70 74 72 25 29 0d 05 96  |ke_menu(ptr%)...|
00001120  06 20 e1 0d 05 a0 04 0d  05 aa 17 dd 20 f2 5f 73  |. .......... ._s|
00001130  65 74 5f 67 65 74 5f 64  65 66 61 75 6c 74 0d 05  |et_get_default..|
00001140  b4 0b 71 75 69 74 25 3d  a3 0d 05 be 0f 4c 77 68  |..quit%=.....Lwh|
00001150  25 3d 31 32 33 34 35 36  0d 05 c8 0f 4c 69 68 25  |%=123456....Lih%|
00001160  3d 36 35 34 33 32 31 0d  05 d2 14 4c 49 54 3d 91  |=654321....LIT=.|
00001170  3a 4f 50 25 3d a3 3a f2  77 69 73 0d 05 dc 1f f2  |:OP%=.:.wis.....|
00001180  5f 49 74 65 78 74 28 78  66 65 72 25 2c 31 2c 22  |_Itext(xfer%,1,"|
00001190  53 63 6f 6f 70 44 61 74  22 29 0d 05 e6 1a f2 5f  |ScoopDat")....._|
000011a0  75 70 64 61 74 65 5f 73  65 74 74 69 6e 67 73 5f  |update_settings_|
000011b0  6d 65 6e 75 0d 05 f0 0f  f2 77 69 73 3a f2 50 28  |menu.....wis:.P(|
000011c0  22 22 29 0d 05 fa 26 f2  50 28 22 55 73 65 20 22  |"")...&.P("Use "|
000011d0  2b 6b 65 79 24 2b 22 20  74 6f 20 73 63 6f 6f 70  |+key$+" to scoop|
000011e0  20 69 6e 66 6f 22 20 20  29 0d 06 04 22 f2 50 28  | info"  )...".P(|
000011f0  22 61 62 6f 75 74 20 74  68 65 20 6f 62 6a 65 63  |"about the objec|
00001200  74 20 61 74 20 74 68 65  22 20 29 0d 06 0e 21 f2  |t at the" )...!.|
00001210  50 28 22 70 6f 69 6e 74  65 72 20 70 6f 73 69 74  |P("pointer posit|
00001220  69 6f 6e 2e 22 20 20 20  20 20 20 29 0d 06 18 0a  |ion."      )....|
00001230  f2 50 28 22 22 29 0d 06  22 20 f2 50 28 22 48 61  |.P("").." .P("Ha|
00001240  76 65 20 46 75 6e 2e 2e  2e 20 4c 6f 76 65 20 44  |ve Fun... Love D|
00001250  69 72 6b 2e 22 29 0d 06  2c 05 e1 0d 06 36 04 0d  |irk.")..,....6..|
00001260  06 40 04 0d 06 4a 15 dd  20 f2 5f 77 69 6e 64 5f  |.@...J.. ._wind_|
00001270  69 6e 69 74 28 46 24 29  0d 06 54 0b ea 20 74 65  |init(F$)..T.. te|
00001280  6d 70 25 0d 06 5e 0f de  20 74 65 6d 70 25 20 35  |mp%..^.. temp% 5|
00001290  30 30 0d 06 68 0e de 20  69 6e 64 25 20 35 30 30  |00..h.. ind% 500|
000012a0  0d 06 72 13 6f 5f 69 6e  64 25 3d 69 6e 64 25 2b  |..r.o_ind%=ind%+|
000012b0  35 30 30 0d 06 7c 3b c8  99 22 4f 53 5f 53 57 49  |500..|;.."OS_SWI|
000012c0  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
000012d0  22 2c 2c 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |",,"Wimp_GetIcon|
000012e0  53 74 61 74 65 22 20 b8  20 57 67 69 73 25 0d 06  |State" . Wgis%..|
000012f0  86 3b c8 99 22 4f 53 5f  53 57 49 4e 75 6d 62 65  |.;.."OS_SWINumbe|
00001300  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 57  |rFromString",,"W|
00001310  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001320  22 20 b8 20 57 73 69 73  25 0d 06 90 3a c8 99 22  |" . Wsis%...:.."|
00001330  4f 53 5f 53 57 49 4e 75  6d 62 65 72 46 72 6f 6d  |OS_SWINumberFrom|
00001340  53 74 72 69 6e 67 22 2c  2c 22 57 69 6d 70 5f 47  |String",,"Wimp_G|
00001350  65 74 52 65 63 74 61 6e  67 6c 65 22 20 b8 20 77  |etRectangle" . w|
00001360  67 72 25 0d 06 9a 3a c8  99 22 4f 53 5f 53 57 49  |gr%...:.."OS_SWI|
00001370  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
00001380  22 2c 2c 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |",,"Wimp_SetColo|
00001390  75 72 22 20 20 20 20 b8  20 57 73 63 25 0d 06 a4  |ur"    . Wsc%...|
000013a0  3a c8 99 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |:.."OS_SWINumber|
000013b0  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 57 69  |FromString",,"Wi|
000013c0  6d 70 5f 55 70 64 61 74  65 57 69 6e 64 6f 77 22  |mp_UpdateWindow"|
000013d0  20 b8 20 57 75 77 25 0d  06 ae 3a c8 99 22 4f 53  | . Wuw%...:.."OS|
000013e0  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
000013f0  72 69 6e 67 22 2c 2c 22  57 69 6d 70 5f 43 72 65  |ring",,"Wimp_Cre|
00001400  61 74 65 49 63 6f 6e 22  20 20 20 b8 20 57 63 69  |ateIcon"   . Wci|
00001410  25 0d 06 b8 3a c8 99 22  4f 53 5f 53 57 49 4e 75  |%...:.."OS_SWINu|
00001420  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
00001430  2c 22 57 69 6d 70 5f 44  65 6c 65 74 65 49 63 6f  |,"Wimp_DeleteIco|
00001440  6e 22 20 20 20 b8 20 57  64 69 25 0d 06 c2 3a c8  |n"   . Wdi%...:.|
00001450  99 22 4f 53 5f 53 57 49  4e 75 6d 62 65 72 46 72  |."OS_SWINumberFr|
00001460  6f 6d 53 74 72 69 6e 67  22 2c 2c 22 57 69 6d 70  |omString",,"Wimp|
00001470  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 b8  |_GetWindowInfo".|
00001480  20 67 77 69 25 0d 06 cc  3c c8 99 22 4f 53 5f 53  | gwi%...<.."OS_S|
00001490  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
000014a0  6e 67 22 2c 2c 22 57 69  6d 70 5f 47 65 74 57 69  |ng",,"Wimp_GetWi|
000014b0  6e 64 6f 77 53 74 61 74  65 22 20 b8 20 67 77 73  |ndowState" . gws|
000014c0  25 0d 06 d6 3c c8 99 22  4f 53 5f 53 57 49 4e 75  |%...<.."OS_SWINu|
000014d0  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
000014e0  2c 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |,"Wimp_GetPointe|
000014f0  72 49 6e 66 6f 22 20 b8  20 67 70 69 25 0d 06 e0  |rInfo" . gpi%...|
00001500  3c c8 99 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |<.."OS_SWINumber|
00001510  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 57 69  |FromString",,"Wi|
00001520  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
00001530  20 20 20 b8 20 77 72 77  25 0d 06 ea 04 0d 06 f4  |   . wrw%.......|
00001540  1d c8 99 22 57 69 6d 70  5f 4f 70 65 6e 54 65 6d  |..."Wimp_OpenTem|
00001550  70 6c 61 74 65 22 2c 2c  46 24 0d 06 fe 38 6d 61  |plate",,F$...8ma|
00001560  69 6e 25 20 20 20 20 3d  a4 5f 72 65 61 64 5f 74  |in%    =._read_t|
00001570  65 6d 70 28 74 65 6d 70  25 2c 69 6e 64 25 2c 6f  |emp(temp%,ind%,o|
00001580  5f 69 6e 64 25 2c 2d 31  2c 22 6d 61 69 6e 22 2c  |_ind%,-1,"main",|
00001590  30 29 0d 07 08 38 69 6e  66 6f 25 20 20 20 20 3d  |0)...8info%    =|
000015a0  a4 5f 72 65 61 64 5f 74  65 6d 70 28 74 65 6d 70  |._read_temp(temp|
000015b0  25 2c 69 6e 64 25 2c 6f  5f 69 6e 64 25 2c 2d 31  |%,ind%,o_ind%,-1|
000015c0  2c 22 69 6e 66 6f 22 2c  30 29 0d 07 12 38 78 66  |,"info",0)...8xf|
000015d0  65 72 25 20 20 20 20 3d  a4 5f 72 65 61 64 5f 74  |er%    =._read_t|
000015e0  65 6d 70 28 74 65 6d 70  25 2c 69 6e 64 25 2c 6f  |emp(temp%,ind%,o|
000015f0  5f 69 6e 64 25 2c 2d 31  2c 22 78 66 65 72 22 2c  |_ind%,-1,"xfer",|
00001600  30 29 0d 07 1c 1a c8 99  22 57 69 6d 70 5f 43 6c  |0)......"Wimp_Cl|
00001610  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 07 26 1b  |oseTemplate"..&.|
00001620  f2 5f 49 74 65 78 74 28  69 6e 66 6f 25 2c 30 2c  |._Itext(info%,0,|
00001630  74 69 74 6c 65 24 29 0d  07 30 1d f2 5f 49 74 65  |title$)..0.._Ite|
00001640  78 74 28 69 6e 66 6f 25  2c 31 2c 70 75 72 70 6f  |xt(info%,1,purpo|
00001650  73 65 24 29 0d 07 3a 2c  f2 5f 49 74 65 78 74 28  |se$)..:,._Itext(|
00001660  69 6e 66 6f 25 2c 32 2c  22 44 69 72 6b 2d 57 69  |info%,2,"Dirk-Wi|
00001670  6c 6c 65 6d 20 76 61 6e  20 47 75 6c 69 6b 22 29  |llem van Gulik")|
00001680  0d 07 44 1d f2 5f 49 74  65 78 74 28 69 6e 66 6f  |..D.._Itext(info|
00001690  25 2c 33 2c 76 65 72 73  69 6f 6e 24 29 0d 07 4e  |%,3,version$)..N|
000016a0  05 e1 0d 07 58 04 0d 07  62 27 dd 20 a4 5f 72 65  |....X...b'. ._re|
000016b0  61 64 5f 74 65 6d 70 28  77 25 2c f8 20 69 25 2c  |ad_temp(w%,. i%,|
000016c0  69 65 25 2c 73 25 2c 61  24 2c 70 25 29 0d 07 6c  |ie%,s%,a$,p%)..l|
000016d0  34 c8 99 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |4.."Wimp_LoadTem|
000016e0  70 6c 61 74 65 22 2c 2c  77 25 2c 69 25 2c 69 65  |plate",,w%,i%,ie|
000016f0  25 2c 73 25 2c 61 24 2c  70 25 20 b8 20 2c 2c 69  |%,s%,a$,p% . ,,i|
00001700  25 0d 07 76 22 c8 99 22  57 69 6d 70 5f 43 72 65  |%..v".."Wimp_Cre|
00001710  61 74 65 57 69 6e 64 6f  77 22 2c 2c 77 25 20 b8  |ateWindow",,w% .|
00001720  20 77 25 0d 07 80 08 3a  3d 77 25 0d 07 8a 04 0d  | w%....:=w%.....|
00001730  07 94 13 dd 20 a4 5f 74  61 73 6b 28 61 24 2c 76  |.... ._task(a$,v|
00001740  25 29 0d 07 9e 21 ea 20  62 25 2c 76 32 25 2c 68  |%)...!. b%,v2%,h|
00001750  25 3a de 20 62 25 20 34  3a 24 62 25 3d 22 54 41  |%:. b% 4:$b%="TA|
00001760  53 4b 22 0d 07 a8 2b c8  99 22 57 69 6d 70 5f 49  |SK"...+.."Wimp_I|
00001770  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 21  |nitialise",200,!|
00001780  62 25 2c 61 24 20 b8 20  76 32 25 2c 68 25 0d 07  |b%,a$ . v2%,h%..|
00001790  b2 3b e7 20 76 32 25 3c  76 25 20 85 20 31 2c 22  |.;. v2%<v% . 1,"|
000017a0  4e 65 65 64 73 20 57 69  6d 70 4d 61 6e 61 67 65  |Needs WimpManage|
000017b0  72 20 56 22 2b c3 28 76  25 2f 31 30 30 29 2b 22  |r V"+.(v%/100)+"|
000017c0  20 6f 72 20 6d 6f 72 65  22 0d 07 bc 08 3a 3d 68  | or more"....:=h|
000017d0  25 0d 07 c6 04 0d 07 d0  17 dd 20 a4 5f 73 70 72  |%......... ._spr|
000017e0  69 74 65 5f 69 6e 69 74  28 66 24 29 0d 07 da 0c  |ite_init(f$)....|
000017f0  ea 20 66 68 25 2c 6c 25  0d 07 e4 1f 66 68 25 3d  |. fh%,l%....fh%=|
00001800  8e 28 66 24 29 3a 6c 25  3d a2 23 66 68 25 2b 31  |.(f$):l%=.#fh%+1|
00001810  36 3a d9 23 66 68 25 0d  07 ee 0e de 20 73 6d 65  |6:.#fh%..... sme|
00001820  6d 25 20 6c 25 0d 07 f8  2e 21 73 6d 65 6d 25 3d  |m% l%....!smem%=|
00001830  6c 25 3a 73 6d 65 6d 25  21 34 3d 30 3a 73 6d 65  |l%:smem%!4=0:sme|
00001840  6d 25 21 38 3d 31 36 3a  73 6d 65 6d 25 21 31 32  |m%!8=16:smem%!12|
00001850  3d 31 36 0d 08 02 21 c8  99 22 4f 53 5f 53 70 72  |=16...!.."OS_Spr|
00001860  69 74 65 4f 70 22 2c 26  31 30 41 2c 73 6d 65 6d  |iteOp",&10A,smem|
00001870  25 2c 66 24 0d 08 0c 0a  3d 73 6d 65 6d 25 0d 08  |%,f$....=smem%..|
00001880  16 04 0d 08 20 2a dc 20  53 68 6f 77 20 3a 2c 57  |.... *. Show :,W|
00001890  69 6e 64 6f 77 20 69 6e  66 6f 2c 49 63 6f 6e 20  |indow info,Icon |
000018a0  69 6e 66 6f 2c 43 6f 6f  72 64 73 2a 0d 08 2a 3d  |info,Coords*..*=|
000018b0  dc 20 49 6e 66 6f 53 63  6f 6f 70 2c 49 6e 66 6f  |. InfoScoop,Info|
000018c0  3e 69 6e 66 6f 2c 53 65  74 74 69 6e 67 73 3e 6d  |>info,Settings>m|
000018d0  73 65 74 2c 53 61 76 65  20 73 63 6f 6f 70 3e 78  |set,Save scoop>x|
000018e0  66 65 72 2c 51 75 69 74  2a 0d 08 34 04 0d 08 3e  |fer,Quit*..4...>|
000018f0  1b dd 20 a4 5f 6d 61 6b  65 5f 6d 65 6e 75 28 f8  |.. ._make_menu(.|
00001900  20 73 74 61 72 74 25 29  0d 08 48 26 f4 20 6c 69  | start%)..H&. li|
00001910  6d 69 74 65 64 2c 6e 6f  20 69 6e 64 69 72 65 63  |mited,no indirec|
00001920  74 65 64 2c 6e 6f 20 6f  70 74 69 6f 6e 73 0d 08  |ted,no options..|
00001930  52 1e ea 20 69 74 65 6d  24 2c 74 69 74 6c 65 24  |R.. item$,title$|
00001940  2c 65 6e 64 25 2c 70 6f  69 6e 74 25 0d 08 5c 04  |,end%,point%..\.|
00001950  0d 08 66 11 70 6f 69 6e  74 25 3d 73 74 61 72 74  |..f.point%=start|
00001960  25 0d 08 70 0c f3 20 74  69 74 6c 65 24 0d 08 7a  |%..p.. title$..z|
00001970  2b 24 28 73 74 61 72 74  25 29 3d a4 63 75 74 28  |+$(start%)=.cut(|
00001980  74 69 74 6c 65 24 29 20  3a f4 20 31 32 20 63 68  |title$) :. 12 ch|
00001990  61 72 20 74 69 74 6c 65  0d 08 84 2d 73 74 61 72  |ar title...-star|
000019a0  74 25 21 31 32 3d 26 30  30 30 37 30 32 30 37 20  |t%!12=&00070207 |
000019b0  20 20 20 20 20 3a f4 20  61 63 6f 72 6e 20 63 6f  |     :. acorn co|
000019c0  6c 6f 75 72 73 0d 08 8e  2e 73 74 61 72 74 25 21  |lours....start%!|
000019d0  31 36 3d 32 2a 28 38 2a  31 32 2b 38 29 20 20 20  |16=2*(8*12+8)   |
000019e0  20 20 20 20 20 20 3a f4  20 6d 6f 64 65 20 66 69  |      :. mode fi|
000019f0  78 65 64 0d 08 98 10 73  74 61 72 74 25 21 32 30  |xed....start%!20|
00001a00  3d 34 30 0d 08 a2 0f 73  74 61 72 74 25 21 32 34  |=40....start%!24|
00001a10  3d 34 0d 08 ac 0e 73 74  61 72 74 25 2b 3d 32 38  |=4....start%+=28|
00001a20  0d 08 b6 05 f5 0d 08 c0  0c 20 f3 20 69 74 65 6d  |......... . item|
00001a30  24 0d 08 ca 31 20 e7 c2  69 74 65 6d 24 2c 31 29  |$...1 ..item$,1)|
00001a40  3d 22 2a 22 20 65 6e 64  25 3d b9 3a 69 74 65 6d  |="*" end%=.:item|
00001a50  24 3d c0 69 74 65 6d 24  2c a9 69 74 65 6d 24 2d  |$=.item$,.item$-|
00001a60  31 29 0d 08 d4 19 20 73  74 61 72 74 25 21 30 30  |1).... start%!00|
00001a70  3d 30 2d 26 38 30 2a 65  6e 64 25 0d 08 de 12 20  |=0-&80*end%.... |
00001a80  e7 a7 69 74 65 6d 24 2c  22 3e 22 29 8c 0d 08 e8  |..item$,">")....|
00001a90  2c 20 20 73 74 61 72 74  25 21 30 34 3d a0 28 c1  |,  start%!04=.(.|
00001aa0  69 74 65 6d 24 2c a7 69  74 65 6d 24 2c 22 3e 22  |item$,.item$,">"|
00001ab0  29 2b 31 29 2b 22 25 22  29 0d 08 f2 07 20 20 cc  |)+1)+"%")....  .|
00001ac0  0d 08 fc 12 20 20 73 74  61 72 74 25 21 30 34 3d  |....  start%!04=|
00001ad0  2d 31 0d 09 06 07 20 20  cd 0d 09 10 17 20 73 74  |-1....  ..... st|
00001ae0  61 72 74 25 21 38 3d 26  30 37 30 30 30 30 31 31  |art%!8=&07000011|
00001af0  0d 09 1a 1d 20 24 28 73  74 61 72 74 25 2b 31 32  |.... $(start%+12|
00001b00  29 3d a4 63 75 74 28 69  74 65 6d 24 29 0d 09 24  |)=.cut(item$)..$|
00001b10  0f 20 73 74 61 72 74 25  2b 3d 32 34 0d 09 2e 0a  |. start%+=24....|
00001b20  20 fd 65 6e 64 25 0d 09  38 0c 3a 3d 70 6f 69 6e  | .end%..8.:=poin|
00001b30  74 25 0d 09 42 04 0d 09  4c 0e dd 20 a4 63 75 74  |t%..B...L.. .cut|
00001b40  28 41 24 29 0d 09 56 23  3a 3d c0 c0 41 24 2c a7  |(A$)..V#:=..A$,.|
00001b50  41 24 2c 22 3e 22 29 2d  31 29 2b c4 31 32 2c 22  |A$,">")-1)+.12,"|
00001b60  20 22 29 2c 31 32 29 0d  09 60 04 0d 09 6a 11 dd  | "),12)..`...j..|
00001b70  20 f2 5f 65 72 72 6f 72  28 6c 25 29 0d 09 74 09  | ._error(l%)..t.|
00001b80  ee 20 85 20 87 0d 09 7e  0b c8 8e 20 6c 25 20 ca  |. . ...~... l% .|
00001b90  0d 09 88 53 20 c9 20 30  20 3a 85 20 31 2c 22 45  |...S . 0 :. 1,"E|
00001ba0  72 72 6f 72 20 22 2b f6  24 2b 22 2c 22 2b c3 9e  |rror "+.$+","+..|
00001bb0  2b 22 20 64 75 72 69 6e  67 20 70 72 65 6d 69 6c  |+" during premil|
00001bc0  6c 69 61 72 79 20 27 54  61 6c 6b 4c 69 73 74 27  |liary 'TalkList'|
00001bd0  20 73 74 61 72 74 75 70  2e 2e 51 75 69 74 74 69  | startup..Quitti|
00001be0  6e 67 22 0d 09 92 59 20  c9 20 31 20 3a 65 72 72  |ng"...Y . 1 :err|
00001bf0  24 3d 22 45 72 72 6f 72  20 22 2b f6 24 2b 22 2c  |$="Error "+.$+",|
00001c00  22 2b c3 9e 2b 22 20 64  75 72 69 6e 67 20 69 6e  |"+..+" during in|
00001c10  69 74 69 61 6c 73 61 74  69 6f 6e 20 6f 66 20 27  |itialsation of '|
00001c20  54 61 6c 6b 4c 69 73 74  27 20 73 74 61 72 74 75  |TalkList' startu|
00001c30  70 2e 2e 51 75 69 74 74  69 6e 67 22 0d 09 9c 30  |p..Quitting"...0|
00001c40  20 c9 20 32 20 3a 65 72  72 24 3d 22 50 6f 6c 6c  | . 2 :err$="Poll|
00001c50  20 74 69 6d 65 20 65 72  72 6f 72 20 28 22 2b f6  | time error ("+.|
00001c60  24 2b 22 2c 22 2b c3 9e  2b 22 29 22 0d 09 a6 23  |$+","+..+")"...#|
00001c70  20 20 20 20 20 20 20 20  20 c8 99 22 57 69 6d 70  |         .."Wimp|
00001c80  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2d 31 0d  |_CreateMenu",-1.|
00001c90  09 b0 06 20 cb 0d 09 ba  04 0d 09 c4 11 ea 20 45  |... .......... E|
00001ca0  25 3a de 20 45 25 20 32  30 30 0d 09 ce 19 21 45  |%:. E% 200....!E|
00001cb0  25 3d 9f 3a 24 28 45 25  2b 34 29 3d 65 72 72 24  |%=.:$(E%+4)=err$|
00001cc0  2b bd 30 0d 09 d8 24 c8  99 22 57 69 6d 70 5f 52  |+.0...$.."Wimp_R|
00001cd0  65 70 6f 72 74 45 72 72  6f 72 22 2c 45 25 2c 31  |eportError",E%,1|
00001ce0  2c 74 69 74 6c 65 24 0d  09 e2 04 0d 09 ec 0c e7  |,title$.........|
00001cf0  20 6c 25 3d 31 20 8c 0d  09 f6 0a 20 ee 20 85 20  | l%=1 ..... . . |
00001d00  87 0d 0a 00 15 20 ff 28  22 4b 45 59 32 4c 49 53  |..... .("KEY2LIS|
00001d10  54 22 2b c3 9e 29 0d 0a  0a 15 20 ff 28 22 4b 45  |T"+..).... .("KE|
00001d20  59 31 45 44 49 54 22 2b  c3 9e 29 0d 0a 14 17 20  |Y1EDIT"+..).... |
00001d30  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
00001d40  6e 22 0d 0a 1e 06 20 e0  0d 0a 28 06 20 cd 0d 0a  |n".... ...(. ...|
00001d50  32 09 ee 20 85 20 ee 0d  0a 3c 05 e1 0d 0a 46 04  |2.. . ...<....F.|
00001d60  0d 0a 50 40 dd 20 a4 5f  73 70 72 69 74 65 5f 69  |..P@. ._sprite_i|
00001d70  63 6f 6e 28 77 69 6e 64  6f 77 25 2c 78 30 25 2c  |con(window%,x0%,|
00001d80  79 30 25 2c 78 31 25 2c  79 31 25 2c 66 6c 61 67  |y0%,x1%,y1%,flag|
00001d90  73 25 2c 73 70 74 72 25  2c 73 6e 61 6d 65 24 29  |s%,sptr%,sname$)|
00001da0  0d 0a 5a 1a 20 de 20 62  6c 6f 63 6b 25 21 32 34  |..Z. . block%!24|
00001db0  20 a9 73 6e 61 6d 65 24  2b 31 0d 0a 64 14 20 62  | .sname$+1..d. b|
00001dc0  6c 6f 63 6b 25 21 32 38  3d 73 70 74 72 25 0d 0a  |lock%!28=sptr%..|
00001dd0  6e 18 20 62 6c 6f 63 6b  25 21 33 32 3d a9 73 6e  |n. block%!32=.sn|
00001de0  61 6d 65 24 2b 31 0d 0a  78 16 20 24 62 6c 6f 63  |ame$+1..x. $bloc|
00001df0  6b 25 21 32 34 3d 73 6e  61 6d 65 24 0d 0a 82 30  |k%!24=sname$...0|
00001e00  20 3a 3d a4 5f 69 63 6f  6e 62 6c 6b 28 77 69 6e  | :=._iconblk(win|
00001e10  64 6f 77 25 2c 78 30 25  2c 79 30 25 2c 78 31 25  |dow%,x0%,y0%,x1%|
00001e20  2c 79 31 25 2c 66 6c 61  67 73 25 29 0d 0a 8c 04  |,y1%,flags%)....|
00001e30  0d 0a 96 23 dd 20 a4 5f  69 63 6f 6e 62 6c 6b 28  |...#. ._iconblk(|
00001e40  77 68 25 2c 61 25 2c 62  25 2c 63 25 2c 64 25 2c  |wh%,a%,b%,c%,d%,|
00001e50  66 25 29 0d 0a a0 0c 20  ea 20 69 63 6f 6e 25 0d  |f%).... . icon%.|
00001e60  0a aa 10 20 21 62 6c 6f  63 6b 25 3d 77 68 25 0d  |... !block%=wh%.|
00001e70  0a b4 1c 20 62 6c 6f 63  6b 25 21 34 3d 61 25 3a  |... block%!4=a%:|
00001e80  62 6c 6f 63 6b 25 21 38  3d 62 25 0d 0a be 1e 20  |block%!8=b%.... |
00001e90  62 6c 6f 63 6b 25 21 31  32 3d 63 25 3a 62 6c 6f  |block%!12=c%:blo|
00001ea0  63 6b 25 21 31 36 3d 64  25 0d 0a c8 11 20 62 6c  |ck%!16=d%.... bl|
00001eb0  6f 63 6b 25 21 32 30 3d  66 25 0d 0a d2 29 20 c8  |ock%!20=f%...) .|
00001ec0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00001ed0  6f 6e 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 69 63  |on",,block% . ic|
00001ee0  6f 6e 25 0d 0a dc 0c 20  3a 3d 69 63 6f 6e 25 0d  |on%.... :=icon%.|
00001ef0  0a e6 04 0d 0a f0 1a dd  20 f2 5f 6f 70 65 6e 4d  |........ ._openM|
00001f00  28 62 6c 6f 63 6b 25 2c  61 64 72 25 29 0d 0a fa  |(block%,adr%)...|
00001f10  1f 4c 61 73 74 5f 6d 65  6e 75 5f 78 25 3d 62 6c  |.Last_menu_x%=bl|
00001f20  6f 63 6b 25 21 30 30 2d  36 2a 31 36 0d 0b 04 14  |ock%!00-6*16....|
00001f30  e7 20 62 6c 6f 63 6b 25  21 31 32 3d 2d 32 20 8c  |. block%!12=-2 .|
00001f40  0d 0b 0e 31 20 4c 61 73  74 5f 6d 65 6e 75 5f 79  |...1 Last_menu_y|
00001f50  25 3d 39 36 2b 34 2a 31  30 2a 34 20 3a f4 20 65  |%=96+4*10*4 :. e|
00001f60  65 6e 20 69 74 65 6d 20  6f 70 20 64 65 20 62 61  |en item op de ba|
00001f70  72 0d 0b 18 06 20 cc 0d  0b 22 25 20 4c 61 73 74  |r.... ..."% Last|
00001f80  5f 6d 65 6e 75 5f 79 25  3d 62 6c 6f 63 6b 25 21  |_menu_y%=block%!|
00001f90  30 34 2b 35 2a 31 30 2a  34 20 81 32 0d 0b 2c 06  |04+5*10*4 .2..,.|
00001fa0  20 cd 0d 0b 36 37 c8 99  22 57 69 6d 70 5f 43 72  | ...67.."Wimp_Cr|
00001fb0  65 61 74 65 4d 65 6e 75  22 2c 2c 61 64 72 25 2c  |eateMenu",,adr%,|
00001fc0  4c 61 73 74 5f 6d 65 6e  75 5f 78 25 2c 4c 61 73  |Last_menu_x%,Las|
00001fd0  74 5f 6d 65 6e 75 5f 79  25 0d 0b 40 12 4c 61 73  |t_menu_y%..@.Las|
00001fe0  74 5f 61 64 72 25 3d 61  64 72 25 0d 0b 4a 05 e1  |t_adr%=adr%..J..|
00001ff0  0d 0b 54 04 0d 0b 5e 18  dd 20 f2 5f 74 69 63 6b  |..T...^.. ._tick|
00002000  28 61 64 72 25 2c 6e 25  2c 62 25 29 0d 0b 68 16  |(adr%,n%,b%)..h.|
00002010  61 64 72 25 3d 61 64 72  25 2b 32 38 2b 6e 25 2a  |adr%=adr%+28+n%*|
00002020  32 34 0d 0b 72 1a 3f 61  64 72 25 3d 28 3f 61 64  |24..r.?adr%=(?ad|
00002030  72 25 20 80 20 26 46 45  29 2b 62 25 0d 0b 7c 05  |r% . &FE)+b%..|.|
00002040  e1 0d 0b 86 04 0d 0b 90  0e dd 20 a4 5f 61 64 6a  |.......... ._adj|
00002050  75 73 74 0d 0b 9a 10 ea  20 62 25 3a de 20 62 25  |ust..... b%:. b%|
00002060  20 33 30 0d 0b a4 20 c8  99 20 22 57 69 6d 70 5f  | 30... .. "Wimp_|
00002070  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00002080  2c 62 25 0d 0b ae 10 3a  3d 28 62 25 21 38 20 80  |,b%....:=(b%!8 .|
00002090  20 31 29 0d 0b b8 04 0d  0b c2 14 dd 20 f2 5f 68  | 1)......... ._h|
000020a0  65 6c 70 28 62 6c 6f 63  6b 25 29 0d 0b cc 08 ea  |elp(block%).....|
000020b0  20 61 24 0d 0b d6 12 c8  8e 20 62 6c 6f 63 6b 25  | a$...... block%|
000020c0  21 33 32 20 ca 0d 0b e0  56 20 c9 20 2d 31 2c 2d  |!32 ....V . -1,-|
000020d0  32 20 3a 61 24 3d 22 54  68 65 20 49 6e 66 6f 53  |2 :a$="The InfoS|
000020e0  63 6f 6f 70 20 70 72 6f  67 72 61 6d 6d 65 2c 20  |coop programme, |
000020f0  70 72 65 73 73 20 4d 65  6e 75 2c 20 6f 72 20 53  |press Menu, or S|
00002100  65 6c 65 63 74 20 66 6f  72 20 74 68 65 20 69 6e  |elect for the in|
00002110  66 6f 20 77 69 6e 64 6f  77 2e 22 0d 0b ea ad 20  |fo window.".... |
00002120  c9 20 69 6e 66 6f 25 20  3a 61 24 3d 22 49 6e 66  |. info% :a$="Inf|
00002130  6f 72 6d 61 74 69 6f 6e  20 61 62 6f 75 74 20 74  |ormation about t|
00002140  68 65 20 21 49 6e 66 6f  53 63 6f 6f 70 20 70 72  |he !InfoScoop pr|
00002150  6f 67 72 61 6d 6d 65 2c  20 61 20 70 72 6f 67 72  |ogramme, a progr|
00002160  61 6d 6d 65 20 77 68 69  63 68 20 65 78 74 72 61  |amme which extra|
00002170  63 74 73 20 64 61 74 61  20 61 62 6f 75 74 20 77  |cts data about w|
00002180  69 6e 64 6f 77 73 20 61  6e 64 20 69 63 6f 6e 73  |indows and icons|
00002190  2e 20 54 68 65 20 69 6e  66 6f 72 6d 61 74 69 6f  |. The informatio|
000021a0  6e 20 63 61 6e 20 62 65  20 73 61 76 65 64 2f 76  |n can be saved/v|
000021b0  69 65 77 65 64 20 69 6e  20 61 73 63 69 69 20 66  |iewed in ascii f|
000021c0  6f 72 6d 61 74 2e 20 22  0d 0b f4 14 20 20 c8 8e  |ormat. "....  ..|
000021d0  20 62 6c 6f 63 6b 25 21  33 36 20 ca 0d 0b fe 3f  | block%!36 ....?|
000021e0  20 20 c9 20 30 3a 61 24  3d 22 21 49 6e 66 6f 53  |  . 0:a$="!InfoS|
000021f0  63 6f 6f 70 2c 20 61 20  62 6f 72 69 6e 67 2c 20  |coop, a boring, |
00002200  61 20 76 65 72 79 20 62  6f 72 69 6e 67 20 6e 61  |a very boring na|
00002210  6d 65 20 69 6e 64 65 65  64 2e 22 0d 0c 08 98 20  |me indeed.".... |
00002220  20 c9 20 31 3a 61 24 3d  22 54 68 69 73 20 74 65  | . 1:a$="This te|
00002230  6c 6c 73 20 79 6f 75 20  74 68 61 74 20 74 68 69  |lls you that thi|
00002240  73 20 69 73 20 61 20 70  72 6f 67 72 61 6d 6d 65  |s is a programme|
00002250  20 77 68 69 63 68 20 65  78 74 72 61 63 74 73 20  | which extracts |
00002260  64 61 74 61 20 61 62 6f  75 74 20 77 69 6e 64 6f  |data about windo|
00002270  77 73 20 61 6e 64 20 69  63 6f 6e 73 2e 20 54 68  |ws and icons. Th|
00002280  65 20 69 6e 66 6f 72 6d  61 74 69 6f 6e 20 63 61  |e information ca|
00002290  6e 20 62 65 20 73 61 76  65 64 2f 76 69 65 77 65  |n be saved/viewe|
000022a0  64 20 69 6e 20 61 73 63  69 69 20 66 6f 72 6d 61  |d in ascii forma|
000022b0  74 2e 22 0d 0c 12 6b 20  20 c9 20 32 3a 61 24 3d  |t."...k  . 2:a$=|
000022c0  22 44 69 72 6b 2d 57 69  6c 6c 65 6d 20 69 73 20  |"Dirk-Willem is |
000022d0  61 20 61 70 70 6c 69 65  64 2d 70 68 79 73 69 63  |a applied-physic|
000022e0  73 20 73 74 75 64 65 6e  74 73 2c 20 77 68 6f 20  |s students, who |
000022f0  6c 6f 76 65 73 20 74 6f  20 72 65 63 65 69 76 65  |loves to receive|
00002300  20 66 65 65 64 62 61 63  6b 20 61 6e 64 20 63 68  | feedback and ch|
00002310  72 69 73 6d 61 73 20 63  61 72 64 73 2e 22 0d 0c  |rismas cards."..|
00002320  1c 9b 20 20 c9 20 33 3a  61 24 3d 22 54 68 69 73  |..  . 3:a$="This|
00002330  20 62 6f 78 73 20 74 65  6c 6c 73 20 79 6f 75 20  | boxs tells you |
00002340  74 68 61 74 20 79 6f 75  20 61 72 65 20 66 72 65  |that you are fre|
00002350  65 20 74 6f 20 63 6f 70  79 2c 20 6d 6f 64 69 66  |e to copy, modif|
00002360  79 20 6f 72 20 72 61 70  65 20 74 68 69 73 20 70  |y or rape this p|
00002370  72 6f 67 72 61 6d 6d 65  2c 20 61 73 20 6c 6f 6e  |rogramme, as lon|
00002380  67 20 61 73 20 61 6c 6c  20 6f 72 69 67 69 6e 61  |g as all origina|
00002390  6c 20 21 48 65 6c 70 20  69 6e 66 6f 72 6d 61 74  |l !Help informat|
000023a0  69 6f 6e 20 69 73 20 73  75 70 70 6c 69 65 64 20  |ion is supplied |
000023b0  61 73 20 77 65 6c 6c 2e  22 0d 0c 26 07 20 20 cb  |as well."..&.  .|
000023c0  0d 0c 30 5c 20 c9 20 6d  61 69 6e 25 20 20 20 3a  |..0\ . main%   :|
000023d0  61 24 3d 22 54 68 65 20  69 6e 66 6f 20 77 69 6c  |a$="The info wil|
000023e0  6c 20 62 65 20 64 69 73  70 6c 61 79 65 64 20 69  |l be displayed i|
000023f0  6e 20 74 68 69 73 20 77  69 6e 64 6f 77 2c 20 61  |n this window, a|
00002400  73 20 73 6f 6f 6e 20 61  73 20 53 48 49 46 54 20  |s soon as SHIFT |
00002410  69 73 20 70 72 65 73 73  65 64 2e 22 0d 0c 3a 14  |is pressed."..:.|
00002420  20 20 c8 8e 20 62 6c 6f  63 6b 25 21 33 36 20 ca  |  .. block%!36 .|
00002430  0d 0c 44 49 20 20 c9 20  30 3a 61 24 3d 22 44 72  |..DI  . 0:a$="Dr|
00002440  61 67 20 74 68 69 73 20  69 63 6f 6e 20 74 6f 20  |ag this icon to |
00002450  73 61 76 65 20 74 68 65  20 64 61 74 61 2c 20 52  |save the data, R|
00002460  41 4d 20 74 72 61 6e 73  6d 69 74 20 69 73 20 73  |AM transmit is s|
00002470  75 70 70 6f 72 74 65 64  22 0d 0c 4e 07 20 20 cb  |upported"..N.  .|
00002480  0d 0c 58 50 20 c9 20 78  66 65 72 25 20 3a 61 24  |..XP . xfer% :a$|
00002490  3d 22 54 68 65 20 75 73  75 61 6c 20 73 61 76 65  |="The usual save|
000024a0  20 77 69 6e 64 6f 77 2e  20 41 63 74 73 20 61 73  | window. Acts as|
000024b0  20 74 68 65 20 64 65 66  61 75 6c 74 20 73 61 76  | the default sav|
000024c0  65 20 6e 61 6d 65 20 61  73 20 77 65 6c 6c 2e 22  |e name as well."|
000024d0  0d 0c 62 06 20 cb 0d 0c  6c 0d e7 61 24 3c 3e 22  |..b. ...l..a$<>"|
000024e0  22 20 8c 0d 0c 76 11 20  20 21 62 6c 6f 63 6b 25  |" ...v.  !block%|
000024f0  3d 32 35 36 0d 0c 80 18  20 20 62 6c 6f 63 6b 25  |=256....  block%|
00002500  21 31 32 3d 62 6c 6f 63  6b 25 21 38 0d 0c 8a 14  |!12=block%!8....|
00002510  20 20 62 6c 6f 63 6b 25  21 31 36 3d 26 35 30 33  |  block%!16=&503|
00002520  0d 0c 94 19 20 20 24 28  62 6c 6f 63 6b 25 2b 32  |....  $(block%+2|
00002530  30 29 3d 61 24 2b bd 31  33 0d 0c 9e 2d 20 20 c8  |0)=a$+.13...-  .|
00002540  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00002550  67 65 22 2c 31 37 2c 62  6c 6f 63 6b 25 2c 62 6c  |ge",17,block%,bl|
00002560  6f 63 6b 25 21 34 0d 0c  a8 07 20 20 cd 0d 0c b2  |ock%!4....  ....|
00002570  05 e1 0d 0c bc 04 0d 0c  c6 12 dd 20 f2 5f 49 6e  |........... ._In|
00002580  66 6f 72 6d 28 61 24 29  0d 0c d0 1f 21 62 6c 6f  |form(a$)....!blo|
00002590  63 6b 25 3d 30 3a 24 28  62 6c 6f 63 6b 25 2b 34  |ck%=0:$(block%+4|
000025a0  29 3d 61 24 2b bd 30 0d  0c da 2d c8 99 22 57 69  |)=a$+.0...-.."Wi|
000025b0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
000025c0  62 6c 6f 63 6b 25 2c 25  31 31 30 30 31 2c 74 69  |block%,%11001,ti|
000025d0  74 6c 65 24 0d 0c e4 05  e1 0d 0c ee 04 0d 0c f8  |tle$............|
000025e0  0e dd 20 f2 5f 72 65 6f  70 65 6e 0d 0d 02 3c c8  |.. ._reopen...<.|
000025f0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00002600  75 22 2c 2c 4c 61 73 74  5f 61 64 72 25 2c 4c 61  |u",,Last_adr%,La|
00002610  73 74 5f 6d 65 6e 75 5f  78 25 2c 4c 61 73 74 5f  |st_menu_x%,Last_|
00002620  6d 65 6e 75 5f 79 25 0d  0d 0c 05 e1 0d 0d 16 04  |menu_y%.........|
00002630  0d 0d 20 12 dd 20 f2 5f  6f 70 65 6e 57 28 77 68  |.. .. ._openW(wh|
00002640  25 29 0d 0d 2a 0f 21 62  6c 6f 63 6b 25 3d 77 68  |%)..*.!block%=wh|
00002650  25 0d 0d 34 23 c8 99 22  57 69 6d 70 5f 47 65 74  |%..4#.."Wimp_Get|
00002660  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00002670  6f 63 6b 25 0d 0d 3e 1f  c8 99 22 57 69 6d 70 5f  |ock%..>..."Wimp_|
00002680  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00002690  63 6b 25 0d 0d 48 05 e1  0d 0d 52 04 0d 0d 5c 19  |ck%..H....R...\.|
000026a0  dd 20 f2 5f 49 74 65 78  74 28 77 68 25 2c 69 68  |. ._Itext(wh%,ih|
000026b0  25 2c 61 24 29 0d 0d 66  1c 21 62 6c 6f 63 6b 25  |%,a$)..f.!block%|
000026c0  3d 77 68 25 3a 62 6c 6f  63 6b 25 21 34 3d 69 68  |=wh%:block%!4=ih|
000026d0  25 0d 0d 70 13 c8 99 57  67 69 73 25 2c 2c 62 6c  |%..p...Wgis%,,bl|
000026e0  6f 63 6b 25 0d 0d 7a 15  e7 20 28 62 6c 6f 63 6b  |ock%..z.. (block|
000026f0  25 3f 32 35 29 83 32 20  8c 0d 0d 84 24 20 24 28  |%?25).2 ....$ $(|
00002700  62 6c 6f 63 6b 25 21 32  38 29 3d c0 61 24 2b bd  |block%!28)=.a$+.|
00002710  31 33 2c 62 6c 6f 63 6b  25 21 33 36 29 0d 0d 8e  |13,block%!36)...|
00002720  06 20 cc 0d 0d 98 28 20  85 20 31 2c 22 54 68 69  |. ....( . 1,"Thi|
00002730  73 20 69 73 20 4e 4f 54  20 73 75 70 70 6f 73 65  |s is NOT suppose|
00002740  64 20 74 6f 20 77 6f 72  6b 21 22 0d 0d a2 27 20  |d to work!"...' |
00002750  f4 20 24 28 62 6c 6f 63  6b 25 2b 32 38 29 3d 4c  |. $(block%+28)=L|
00002760  45 46 54 24 28 61 24 2b  43 48 52 24 31 33 2c 31  |EFT$(a$+CHR$13,1|
00002770  32 29 0d 0d ac 06 20 cd  0d 0d b6 0e 62 6c 6f 63  |2).... .....bloc|
00002780  6b 25 21 38 3d 30 0d 0d  c0 0f 62 6c 6f 63 6b 25  |k%!8=0....block%|
00002790  21 31 32 3d 30 0d 0d ca  13 c8 99 57 73 69 73 25  |!12=0......Wsis%|
000027a0  2c 2c 62 6c 6f 63 6b 25  0d 0d d4 05 e1 0d 0d de  |,,block%........|
000027b0  04 0d 0d e8 16 dd 20 a4  5f 49 74 65 78 74 28 77  |...... ._Itext(w|
000027c0  68 25 2c 69 68 25 29 0d  0d f2 1c 21 62 6c 6f 63  |h%,ih%)....!bloc|
000027d0  6b 25 3d 77 68 25 3a 62  6c 6f 63 6b 25 21 34 3d  |k%=wh%:block%!4=|
000027e0  69 68 25 0d 0d fc 13 c8  99 57 67 69 73 25 2c 2c  |ih%......Wgis%,,|
000027f0  62 6c 6f 63 6b 25 0d 0e  06 15 e7 20 28 62 6c 6f  |block%..... (blo|
00002800  63 6b 25 3f 32 35 29 83  32 20 8c 0d 0e 10 14 20  |ck%?25).2 ..... |
00002810  61 24 3d 24 28 62 6c 6f  63 6b 25 21 32 38 29 0d  |a$=$(block%!28).|
00002820  0e 1a 06 20 cc 0d 0e 24  28 20 85 20 31 2c 22 54  |... ...$( . 1,"T|
00002830  68 69 73 20 69 73 20 4e  4f 54 20 73 75 70 70 6f  |his is NOT suppo|
00002840  73 65 64 20 74 6f 20 77  6f 72 6b 21 22 0d 0e 2e  |sed to work!"...|
00002850  06 20 cd 0d 0e 38 08 3a  3d 61 24 0d 0e 42 04 0d  |. ...8.:=a$..B..|
00002860  0e 4c 0d dd 20 a4 73 30  28 61 25 29 0d 0e 56 27  |.L.. .s0(a%)..V'|
00002870  ea 20 61 24 3a c8 95 3f  61 25 80 a9 61 24 3c 32  |. a$:..?a%..a$<2|
00002880  35 35 3a 61 24 2b 3d bd  3f 61 25 3a 61 25 2b 3d  |55:a$+=.?a%:a%+=|
00002890  31 3a ce 0d 0e 60 08 3a  3d 61 24 0d 0e 6a 1c dd  |1:...`.:=a$..j..|
000028a0  20 f2 5f 4d 74 69 63 6b  28 61 64 72 25 2c 6e 6f  | ._Mtick(adr%,no|
000028b0  25 2c 62 69 74 25 29 0d  0e 74 16 e7 20 62 69 74  |%,bit%)..t.. bit|
000028c0  25 3c 3e 30 20 8c 20 62  69 74 25 3d 31 0d 0e 7e  |%<>0 . bit%=1..~|
000028d0  32 3f 28 61 64 72 25 2b  32 38 2b 32 34 2a 6e 6f  |2?(adr%+28+24*no|
000028e0  25 29 3d 28 3f 28 61 64  72 25 2b 32 38 2b 32 34  |%)=(?(adr%+28+24|
000028f0  2a 6e 6f 25 29 80 26 46  45 29 2b 62 69 74 25 0d  |*no%).&FE)+bit%.|
00002900  0e 88 05 e1 0d 0e 92 04  0d 0e 9c 04 0d 0e a6 15  |................|
00002910  dd f2 5f 72 65 64 72 61  77 28 62 6c 6f 63 6b 25  |.._redraw(block%|
00002920  29 0d 0e b0 26 e7 20 21  62 6c 6f 63 6b 25 3c 3e  |)...&. !block%<>|
00002930  6d 61 69 6e 25 20 85 31  2c 22 4e 4f 54 20 45 58  |main% .1,"NOT EX|
00002940  50 45 43 54 45 44 22 0d  0e ba 1a c8 99 77 72 77  |PECTED"......wrw|
00002950  25 2c 2c 62 6c 6f 63 6b  25 20 b8 20 6d 6f 72 65  |%,,block% . more|
00002960  25 0d 0e c4 17 dd 20 f2  5f 72 65 64 72 61 77 4c  |%..... ._redrawL|
00002970  28 62 6c 6f 63 6b 25 29  0d 0e ce 1a 4f 58 25 3d  |(block%)....OX%=|
00002980  62 6c 6f 63 6b 25 21 34  2d 62 6c 6f 63 6b 25 21  |block%!4-block%!|
00002990  32 30 0d 0e d8 1e 4f 59  25 3d 62 6c 6f 63 6b 25  |20....OY%=block%|
000029a0  21 31 36 2d 62 6c 6f 63  6b 25 21 32 34 2d 32 30  |!16-block%!24-20|
000029b0  0d 0e e2 0c c8 99 57 73  63 25 2c 37 0d 0e ec 0b  |......Wsc%,7....|
000029c0  c8 95 6d 6f 72 65 25 0d  0e f6 0e 20 4c 25 3d 30  |..more%.... L%=0|
000029d0  3a 70 25 3d 30 0d 0f 00  06 20 f5 0d 0f 0a 1a 20  |:p%=0.... ..... |
000029e0  20 ec 20 4f 58 25 2b 31  32 30 2c 4f 59 25 2d 33  | . OX%+120,OY%-3|
000029f0  36 2a 4c 25 3a 0d 0f 14  10 20 20 f1 24 28 41 25  |6*L%:....  .$(A%|
00002a00  2b 70 25 29 3b 0d 0f 1e  15 20 20 70 25 2b 3d a9  |+p%);....  p%+=.|
00002a10  24 28 41 25 2b 70 25 29  2b 31 0d 0f 28 0b 20 20  |$(A%+p%)+1..(.  |
00002a20  4c 25 2b 3d 31 0d 0f 32  0e 20 20 fd 70 25 3e 3d  |L%+=1..2.  .p%>=|
00002a30  63 70 25 0d 0f 3c 1b 20  c8 99 77 67 72 25 2c 2c  |cp%..<. ..wgr%,,|
00002a40  62 6c 6f 63 6b 25 20 b8  20 6d 6f 72 65 25 0d 0f  |block% . more%..|
00002a50  46 06 20 ce 0d 0f 50 05  e1 0d 0f 5a 04 0d 0f 64  |F. ...P....Z...d|
00002a60  0c dd 20 f2 64 6f 5f 69  74 0d 0f 6e 12 c8 99 67  |.. .do_it..n...g|
00002a70  70 69 25 2c 2c 62 6c 6f  63 6b 25 0d 0f 78 11 77  |pi%,,block%..x.w|
00002a80  68 25 3d 62 6c 6f 63 6b  25 21 31 32 0d 0f 82 11  |h%=block%!12....|
00002a90  69 68 25 3d 62 6c 6f 63  6b 25 21 31 36 0d 0f 8c  |ih%=block%!16...|
00002aa0  0f 78 25 3d 62 6c 6f 63  6b 25 21 30 0d 0f 96 0f  |.x%=block%!0....|
00002ab0  79 25 3d 62 6c 6f 63 6b  25 21 34 0d 0f a0 2c e7  |y%=block%!4...,.|
00002ac0  20 77 68 25 3d 4c 77 68  25 20 80 20 69 68 25 3d  | wh%=Lwh% . ih%=|
00002ad0  4c 69 68 25 20 80 20 28  91 2d 4c 49 54 29 3c 64  |Lih% . (.-LIT)<d|
00002ae0  65 6c 61 79 25 20 e1 0d  0f aa 1b 4c 77 68 25 3d  |elay% .....Lwh%=|
00002af0  77 68 25 3a 4c 69 68 25  3d 69 68 25 3a 4c 49 54  |wh%:Lih%=ih%:LIT|
00002b00  3d 91 0d 0f b4 04 0d 0f  be 0f 78 25 3d 62 6c 6f  |=.........x%=blo|
00002b10  63 6b 25 21 30 0d 0f c8  0f 79 25 3d 62 6c 6f 63  |ck%!0....y%=bloc|
00002b20  6b 25 21 34 0d 0f d2 10  6c 69 6e 65 25 3d 30 3a  |k%!4....line%=0:|
00002b30  f2 77 69 73 0d 0f dc 04  0d 0f e6 15 e7 20 69 5f  |.wis......... i_|
00002b40  77 68 25 20 f2 5f 77 68  28 77 68 25 29 0d 0f f0  |wh% ._wh(wh%)...|
00002b50  19 e7 20 69 5f 69 68 25  20 f2 5f 69 68 28 77 68  |.. i_ih% ._ih(wh|
00002b60  25 2c 69 68 25 29 0d 0f  fa 1b e7 20 69 5f 63 6f  |%,ih%)..... i_co|
00002b70  6f 72 64 25 20 f2 5f 63  6f 6f 72 64 28 77 68 25  |ord% ._coord(wh%|
00002b80  29 0d 10 04 04 0d 10 0e  2d c8 99 22 57 69 6d 70  |).......-.."Wimp|
00002b90  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 6d 61  |_ForceRedraw",ma|
00002ba0  69 6e 25 2c 31 32 30 2c  2d 31 45 34 2c 31 45 34  |in%,120,-1E4,1E4|
00002bb0  2c 30 0d 10 18 05 e1 0d  10 22 04 0d 10 2c 04 0d  |,0......."...,..|
00002bc0  10 36 13 dd 20 f2 5f 69  68 28 77 68 25 2c 69 68  |.6.. ._ih(wh%,ih|
00002bd0  25 29 0d 10 40 0f 21 62  6c 6f 63 6b 25 3d 77 68  |%)..@.!block%=wh|
00002be0  25 0d 10 4a 33 e7 20 77  68 25 3c 30 20 80 20 ac  |%..J3. wh%<0 . .|
00002bf0  69 5f 77 68 25 20 8c 20  f2 50 28 22 6e 6f 74 20  |i_wh% . .P("not |
00002c00  61 20 75 73 65 72 20 77  69 6e 64 6f 77 2c 77 68  |a user window,wh|
00002c10  3c 30 22 29 0d 10 54 10  62 6c 6f 63 6b 25 21 34  |<0")..T.block%!4|
00002c20  3d 69 68 25 0d 10 5e 2a  e7 20 69 68 25 3c 30 20  |=ih%..^*. ih%<0 |
00002c30  8c 20 f2 50 28 22 6e 6f  74 20 61 20 75 73 65 72  |. .P("not a user|
00002c40  2d 69 63 6f 6e 2c 69 68  3c 30 22 29 3a e1 0d 10  |-icon,ih<0"):...|
00002c50  68 13 c8 99 57 67 69 73  25 2c 2c 62 6c 6f 63 6b  |h...Wgis%,,block|
00002c60  25 0d 10 72 24 e7 20 ac  69 5f 77 68 25 20 f2 50  |%..r$. .i_wh% .P|
00002c70  28 22 57 69 6e 64 6f 77  20 6e 6f 20 3a 22 2b c3  |("Window no :"+.|
00002c80  7e 77 68 25 29 0d 10 7c  0a f2 50 28 22 22 29 0d  |~wh%)..|..P("").|
00002c90  10 86 1a f2 50 28 22 20  20 49 63 6f 6e 20 6e 6f  |....P("  Icon no|
00002ca0  20 3a 22 2b c3 69 68 25  29 0d 10 90 24 f2 50 28  | :"+.ih%)...$.P(|
00002cb0  22 20 20 20 20 20 20 42  42 58 20 3a 22 2b a4 62  |"      BBX :"+.b|
00002cc0  62 78 28 62 6c 6f 63 6b  25 2b 38 29 29 0d 10 9a  |bx(block%+8))...|
00002cd0  23 f2 50 28 22 20 20 20  20 20 66 6c 61 67 20 3a  |#.P("     flag :|
00002ce0  22 2b c3 7e 28 62 6c 6f  63 6b 25 21 32 34 29 29  |"+.~(block%!24))|
00002cf0  0d 10 a4 26 f2 50 28 22  20 20 20 62 75 74 74 6f  |...&.P("   butto|
00002d00  6e 20 3a 22 2b a4 62 75  74 74 28 62 6c 6f 63 6b  |n :"+.butt(block|
00002d10  25 21 32 34 29 29 0d 10  ae 21 66 25 3d 62 6c 6f  |%!24))...!f%=blo|
00002d20  63 6b 25 21 32 34 3a 62  6c 6f 63 6b 25 3f 28 33  |ck%!24:block%?(3|
00002d30  32 2b 38 29 3d 31 33 0d  10 b8 12 41 24 3d 22 22  |2+8)=13....A$=""|
00002d40  3a 69 24 3d 22 30 30 30  22 0d 10 c2 2a e7 66 25  |:i$="000"...*.f%|
00002d50  3e 3e 20 30 80 31 20 8c  20 41 24 2b 3d 22 54 65  |>> 0.1 . A$+="Te|
00002d60  78 74 2c 22 20 20 3a c1  69 24 2c 33 2c 31 29 3d  |xt,"  :.i$,3,1)=|
00002d70  22 31 22 0d 10 cc 2a e7  66 25 3e 3e 20 31 80 31  |"1"...*.f%>> 1.1|
00002d80  20 8c 20 41 24 2b 3d 22  53 70 72 69 74 65 2c 22  | . A$+="Sprite,"|
00002d90  3a c1 69 24 2c 32 2c 31  29 3d 22 31 22 0d 10 d6  |:.i$,2,1)="1"...|
00002da0  1d e7 66 25 3e 3e 20 32  80 31 20 8c 20 41 24 2b  |..f%>> 2.1 . A$+|
00002db0  3d 22 42 6f 72 64 65 72  2c 22 0d 10 e0 28 e7 41  |="Border,"...(.A|
00002dc0  24 3c 3e 22 22 f2 50 28  22 20 20 20 20 20 20 20  |$<>"".P("       |
00002dd0  20 20 20 3a 20 22 2b c0  41 24 2c a9 41 24 2d 31  |   : "+.A$,.A$-1|
00002de0  29 29 0d 10 ea 09 41 24  3d 22 22 0d 10 f4 1e e7  |))....A$="".....|
00002df0  66 25 3e 3e 20 33 80 31  20 8c 20 41 24 2b 3d 22  |f%>> 3.1 . A$+="|
00002e00  48 63 65 6e 74 65 72 2c  22 0d 10 fe 1e e7 66 25  |Hcenter,".....f%|
00002e10  3e 3e 20 33 80 31 20 8c  20 41 24 2b 3d 22 56 63  |>> 3.1 . A$+="Vc|
00002e20  65 6e 74 65 72 2c 22 0d  11 08 20 e7 66 25 3e 3e  |enter,"... .f%>>|
00002e30  20 39 80 31 20 8c 20 41  24 2b 3d 22 52 6a 75 73  | 9.1 . A$+="Rjus|
00002e40  74 69 66 65 64 2c 22 0d  11 12 1d e7 66 25 3e 3e  |tifed,".....f%>>|
00002e50  20 33 80 31 20 8c 20 41  24 2b 3d 22 46 69 6c 6c  | 3.1 . A$+="Fill|
00002e60  65 64 2c 22 0d 11 1c 28  e7 41 24 3c 3e 22 22 f2  |ed,"...(.A$<>"".|
00002e70  50 28 22 20 20 20 20 20  20 20 20 20 20 3a 20 22  |P("          : "|
00002e80  2b c0 41 24 2c a9 41 24  2d 31 29 29 0d 11 26 51  |+.A$,.A$-1))..&Q|
00002e90  e7 66 25 3e 3e 20 36 80  31 20 8c f2 50 28 22 20  |.f%>> 6.1 ..P(" |
00002ea0  20 20 20 20 20 20 20 20  20 3a 20 61 6e 74 69 20  |         : anti |
00002eb0  61 6c 69 61 73 20 66 6f  6e 74 22 29 20 8b 20 f2  |alias font") . .|
00002ec0  50 28 22 20 20 20 20 20  20 20 20 20 20 3a 20 66  |P("          : f|
00002ed0  67 2f 62 67 20 63 6f 6c  6f 75 72 22 29 0d 11 30  |g/bg colour")..0|
00002ee0  36 e7 66 25 3e 3e 20 37  80 31 20 8c f2 50 28 22  |6.f%>> 7.1 ..P("|
00002ef0  20 20 20 20 20 20 20 20  20 20 3a 20 74 61 73 6b  |          : task|
00002f00  2d 72 65 64 72 61 77 2f  63 6c 65 61 72 20 62 62  |-redraw/clear bb|
00002f10  78 22 29 0d 11 3a 3d e7  66 25 3e 3e 20 38 80 31  |x")..:=.f%>> 8.1|
00002f20  20 8c f2 50 28 22 20 20  20 20 20 20 20 20 20 20  | ..P("          |
00002f30  3a 20 69 6e 64 69 72 65  63 74 65 64 20 64 61 74  |: indirected dat|
00002f40  61 22 29 3a c1 69 24 2c  31 2c 31 29 3d 22 31 22  |a"):.i$,1,1)="1"|
00002f50  0d 11 44 31 e7 66 25 3e  3e 31 30 80 31 20 8c f2  |..D1.f%>>10.1 ..|
00002f60  50 28 22 20 20 20 20 20  20 20 20 20 20 3a 20 45  |P("          : E|
00002f70  53 47 20 41 64 6a 75 73  74 20 61 6c 6c 6f 77 22  |SG Adjust allow"|
00002f80  29 0d 11 4e 31 e7 66 25  3e 3e 31 31 80 31 20 8c  |)..N1.f%>>11.1 .|
00002f90  f2 50 28 22 20 20 20 20  20 20 20 20 20 20 3a 20  |.P("          : |
00002fa0  48 61 6c 66 20 73 69 7a  65 20 73 70 72 69 74 65  |Half size sprite|
00002fb0  22 29 0d 11 58 29 e7 66  25 3e 3e 32 31 80 31 20  |")..X).f%>>21.1 |
00002fc0  8c f2 50 28 22 20 20 20  20 20 20 20 20 20 20 3a  |..P("          :|
00002fd0  20 53 65 6c 65 63 74 65  64 22 29 0d 11 62 27 e7  | Selected")..b'.|
00002fe0  66 25 3e 3e 32 32 80 31  20 8c f2 50 28 22 20 20  |f%>>22.1 ..P("  |
00002ff0  20 20 20 20 20 20 20 20  3a 20 53 68 61 64 65 64  |        : Shaded|
00003000  22 29 0d 11 6c 28 e7 66  25 3e 3e 32 33 80 31 20  |")..l(.f%>>23.1 |
00003010  8c f2 50 28 22 20 20 20  20 20 20 20 20 20 20 3a  |..P("          :|
00003020  20 44 65 6c 65 74 65 64  22 29 0d 11 76 39 e7 66  | Deleted")..v9.f|
00003030  25 3e 3e 31 36 80 33 31  8c f2 50 28 22 20 20 20  |%>>16.31..P("   |
00003040  20 20 20 20 20 20 20 3a  20 45 53 47 20 67 72 6f  |       : ESG gro|
00003050  75 70 2e 2e 22 2b c3 28  66 25 3e 3e 31 36 80 33  |up.."+.(f%>>16.3|
00003060  31 29 29 0d 11 80 0b c8  8e 20 69 24 20 ca 0d 11  |1))...... i$ ...|
00003070  8a 2d 20 c9 20 22 30 30  30 22 3a 20 f2 50 28 22  |.- . "000": .P("|
00003080  20 20 20 20 20 20 20 20  20 20 3a 20 64 61 74 61  |          : data|
00003090  20 4e 4f 54 20 75 73 65  64 22 29 0d 11 94 3c 20  | NOT used")...< |
000030a0  c9 20 22 30 30 31 22 3a  20 f2 50 28 22 20 20 20  |. "001": .P("   |
000030b0  20 20 20 20 20 20 20 3a  20 74 65 78 74 20 27 22  |       : text '"|
000030c0  2b c0 24 28 62 6c 6f 63  6b 25 2b 32 38 29 2c 31  |+.$(block%+28),1|
000030d0  32 29 2b 22 27 22 29 0d  11 9e 48 20 c9 20 22 30  |2)+"'")...H . "0|
000030e0  31 30 22 3a 20 f2 50 28  22 20 20 20 20 20 20 20  |10": .P("       |
000030f0  20 20 20 3a 20 77 69 6d  70 2d 70 6f 6f 6c 2d 73  |   : wimp-pool-s|
00003100  70 72 69 74 65 20 27 22  2b c0 24 28 62 6c 6f 63  |prite '"+.$(bloc|
00003110  6b 25 2b 32 38 29 2c 31  32 29 2b 22 27 22 29 0d  |k%+28),12)+"'").|
00003120  11 a8 45 20 c9 20 22 30  31 31 22 3a 20 f2 50 28  |..E . "011": .P(|
00003130  22 20 20 20 20 20 20 20  20 20 20 3a 20 74 65 78  |"          : tex|
00003140  74 3d 77 70 73 70 72 69  74 65 20 27 22 2b c0 24  |t=wpsprite '"+.$|
00003150  28 62 6c 6f 63 6b 25 2b  32 38 29 2c 31 32 29 2b  |(block%+28),12)+|
00003160  22 27 22 29 0d 11 b2 2d  20 c9 20 22 31 30 30 22  |"'")...- . "100"|
00003170  3a 20 f2 50 28 22 20 20  20 20 20 20 20 20 20 20  |: .P("          |
00003180  3a 20 64 61 74 61 20 4e  4f 54 20 75 73 65 64 22  |: data NOT used"|
00003190  29 0d 11 bc 30 20 c9 20  22 31 30 31 22 3a 20 f2  |)...0 . "101": .|
000031a0  50 28 22 20 20 20 20 20  20 20 20 20 20 3a 20 69  |P("          : i|
000031b0  6e 64 69 72 65 63 74 65  64 20 74 65 78 74 2c 22  |ndirected text,"|
000031c0  29 0d 11 c6 4e 20 20 20  20 20 20 20 20 20 20 20  |)...N           |
000031d0  20 20 f2 50 28 22 20 20  20 20 20 20 20 20 20 20  |  .P("          |
000031e0  3a 20 20 20 74 65 78 74  20 20 20 20 20 20 20 3a  |:   text       :|
000031f0  20 22 2b c0 a4 74 78 74  28 62 6c 6f 63 6b 25 21  | "+..txt(block%!|
00003200  32 38 29 2c 62 6c 6f 63  6b 25 21 33 36 29 29 0d  |28),block%!36)).|
00003210  11 d0 42 20 20 20 20 20  20 20 20 20 20 20 20 20  |..B             |
00003220  f2 50 28 22 20 20 20 20  20 20 20 20 20 20 3a 20  |.P("          : |
00003230  20 20 76 61 6c 69 64 61  74 69 6f 6e 20 3a 20 22  |  validation : "|
00003240  2b a4 74 78 74 28 62 6c  6f 63 6b 25 21 33 32 29  |+.txt(block%!32)|
00003250  29 0d 11 da 3d 20 20 20  20 20 20 20 20 20 20 20  |)...=           |
00003260  20 20 f2 50 28 22 20 20  20 20 20 20 20 20 20 20  |  .P("          |
00003270  3a 20 20 20 6c 65 6e 28  6d 61 78 29 20 20 20 3a  |:   len(max)   :|
00003280  20 22 2b c3 62 6c 6f 63  6b 25 21 33 36 29 0d 11  | "+.block%!36)..|
00003290  e4 3d 20 c9 20 22 31 31  30 22 3a 20 e7 20 62 6c  |.= . "110": . bl|
000032a0  6f 63 6b 25 21 33 32 3d  31 20 8c 20 41 24 3d 22  |ock%!32=1 . A$="|
000032b0  77 69 6d 70 2d 70 6f 6f  6c 22 20 8b 20 41 24 3d  |wimp-pool" . A$=|
000032c0  22 75 73 65 72 2d 70 6f  6f 6c 22 0d 11 ee 3d 20  |"user-pool"...= |
000032d0  20 20 20 20 20 20 20 20  20 20 20 20 f2 50 28 22  |            .P("|
000032e0  20 20 20 20 20 20 20 20  20 20 3a 20 69 6e 64 69  |          : indi|
000032f0  72 65 63 74 65 64 20 73  70 72 69 74 65 20 66 72  |rected sprite fr|
00003300  6f 6d 20 22 2b 41 24 29  0d 11 f8 4e 20 20 20 20  |om "+A$)...N    |
00003310  20 20 20 20 20 20 20 20  20 f2 50 28 22 20 20 20  |         .P("   |
00003320  20 20 20 20 20 20 20 3a  20 20 20 73 70 72 69 74  |       :   sprit|
00003330  65 20 20 20 20 20 3a 20  22 2b c0 a4 74 78 74 28  |e     : "+..txt(|
00003340  62 6c 6f 63 6b 25 21 32  38 29 2c 62 6c 6f 63 6b  |block%!28),block|
00003350  25 21 33 36 29 29 0d 12  02 47 20 c9 20 22 31 31  |%!36))...G . "11|
00003360  31 22 3a 20 f2 50 28 22  20 20 20 20 20 20 20 20  |1": .P("        |
00003370  20 20 3a 20 69 6e 64 69  72 65 63 74 65 64 20 74  |  : indirected t|
00003380  65 78 74 20 28 2b 73 70  72 69 74 65 20 69 6e 20  |ext (+sprite in |
00003390  76 61 6c 69 64 61 74 69  6f 6e 29 22 29 0d 12 0c  |validation)")...|
000033a0  4e 20 20 20 20 20 20 20  20 20 20 20 20 20 f2 50  |N             .P|
000033b0  28 22 20 20 20 20 20 20  20 20 20 20 3a 20 20 20  |("          :   |
000033c0  74 65 78 74 20 20 20 20  20 20 20 3a 20 22 2b c0  |text       : "+.|
000033d0  a4 74 78 74 28 62 6c 6f  63 6b 25 21 32 38 29 2c  |.txt(block%!28),|
000033e0  62 6c 6f 63 6b 25 21 33  36 29 29 0d 12 16 42 20  |block%!36))...B |
000033f0  20 20 20 20 20 20 20 20  20 20 20 20 f2 50 28 22  |            .P("|
00003400  20 20 20 20 20 20 20 20  20 20 3a 20 20 20 76 61  |          :   va|
00003410  6c 69 64 61 74 69 6f 6e  20 3a 20 22 2b a4 74 78  |lidation : "+.tx|
00003420  74 28 62 6c 6f 63 6b 25  21 33 32 29 29 0d 12 20  |t(block%!32)).. |
00003430  3d 20 20 20 20 20 20 20  20 20 20 20 20 20 f2 50  |=             .P|
00003440  28 22 20 20 20 20 20 20  20 20 20 20 3a 20 20 20  |("          :   |
00003450  6c 65 6e 28 6d 61 78 29  20 20 20 3a 20 22 2b c3  |len(max)   : "+.|
00003460  62 6c 6f 63 6b 25 21 33  36 29 0d 12 2a 06 20 cb  |block%!36)..*. .|
00003470  0d 12 34 05 e1 0d 12 3e  04 0d 12 48 0f dd 20 f2  |..4....>...H.. .|
00003480  5f 77 68 28 77 68 25 29  0d 12 52 2d 20 e7 20 77  |_wh(wh%)..R- . w|
00003490  68 25 3c 30 20 8c 20 f2  50 28 22 6e 6f 74 20 61  |h%<0 . .P("not a|
000034a0  20 75 73 65 72 20 77 69  6e 64 6f 77 2c 77 68 3c  | user window,wh<|
000034b0  30 22 29 3a e1 0d 12 5c  10 20 21 62 6c 6f 63 6b  |0"):...\. !block|
000034c0  25 3d 77 68 25 0d 12 66  13 20 c8 99 67 77 69 25  |%=wh%..f. ..gwi%|
000034d0  2c 2c 62 6c 6f 63 6b 25  0d 12 70 1b 20 4f 58 25  |,,block%..p. OX%|
000034e0  3d 62 6c 6f 63 6b 25 21  34 2d 62 6c 6f 63 6b 25  |=block%!4-block%|
000034f0  21 32 30 0d 12 7a 1f 20  4f 59 25 3d 62 6c 6f 63  |!20..z. OY%=bloc|
00003500  6b 25 21 31 36 2d 62 6c  6f 63 6b 25 21 32 34 2d  |k%!16-block%!24-|
00003510  32 30 0d 12 84 1d 20 f2  50 28 22 57 69 6e 64 6f  |20.... .P("Windo|
00003520  77 20 6e 6f 20 3a 20 22  2b c3 7e 77 68 25 29 0d  |w no : "+.~wh%).|
00003530  12 8e 26 20 f2 50 28 22  20 20 20 20 20 20 42 42  |..& .P("      BB|
00003540  58 20 3a 20 22 2b a4 62  62 78 28 62 6c 6f 63 6b  |X : "+.bbx(block|
00003550  25 2b 34 29 29 0d 12 98  27 20 f2 50 28 22 20 77  |%+4))...' .P(" w|
00003560  6f 72 6b 20 42 42 58 20  3a 20 22 2b a4 62 62 78  |ork BBX : "+.bbx|
00003570  28 62 6c 6f 63 6b 25 2b  34 34 29 29 0d 12 a2 3a  |(block%+44))...:|
00003580  20 f2 50 28 22 20 77 6f  72 6b 20 62 75 74 74 3a  | .P(" work butt:|
00003590  20 22 2b c3 7e 28 62 6c  6f 63 6b 25 21 36 34 29  | "+.~(block%!64)|
000035a0  2b 22 2c 22 2b a4 62 75  74 74 28 62 6c 6f 63 6b  |+","+.butt(block|
000035b0  25 21 36 34 29 29 0d 12  ac 20 20 f2 50 28 22 20  |%!64))...  .P(" |
000035c0  57 69 6e 64 6f 77 20 66  6c 61 67 73 2c 20 69 66  |Window flags, if|
000035d0  20 73 65 74 22 29 0d 12  b6 10 20 e3 20 49 25 3d  | set").... . I%=|
000035e0  30 20 b8 20 33 31 0d 12  c0 21 20 e7 20 28 28 62  |0 . 31...! . ((b|
000035f0  6c 6f 63 6b 25 21 33 32  29 80 28 31 3c 3c 49 25  |lock%!32).(1<<I%|
00003600  29 29 3c 3e 30 20 8c 0d  12 ca 0d 20 20 c8 8e 20  |))<>0 .....  .. |
00003610  49 25 20 ca 0d 12 d4 32  20 20 20 c9 20 30 3a f2  |I% ....2   . 0:.|
00003620  50 28 22 20 20 20 20 20  20 77 66 30 20 3a 20 74  |P("      wf0 : t|
00003630  69 74 6c 65 20 62 61 72  20 28 6f 6c 64 20 73 74  |itle bar (old st|
00003640  79 6c 65 29 22 29 0d 12  de 2d 20 20 20 c9 20 31  |yle)")...-   . 1|
00003650  3a f2 50 28 22 20 20 20  20 20 20 77 66 31 20 3a  |:.P("      wf1 :|
00003660  20 6d 6f 76 65 61 62 6c  65 20 62 79 20 75 73 65  | moveable by use|
00003670  72 22 29 0d 12 e8 3c 20  20 20 c9 20 32 3a f2 50  |r")...<   . 2:.P|
00003680  28 22 20 20 20 20 20 20  77 66 32 20 3a 20 76 65  |("      wf2 : ve|
00003690  72 74 69 63 61 6c 20 73  63 72 6f 6c 6c 20 62 61  |rtical scroll ba|
000036a0  72 20 28 6f 6c 64 20 73  74 79 6c 65 29 22 29 0d  |r (old style)").|
000036b0  12 f2 3e 20 20 20 c9 20  33 3a f2 50 28 22 20 20  |..>   . 3:.P("  |
000036c0  20 20 20 20 77 66 33 20  3a 20 68 6f 72 69 7a 6f  |    wf3 : horizo|
000036d0  6e 74 61 6c 20 73 63 72  6f 6c 6c 20 62 61 72 20  |ntal scroll bar |
000036e0  28 6f 6c 64 20 73 74 79  6c 65 29 22 29 0d 12 fc  |(old style)")...|
000036f0  3c 20 20 20 c9 20 34 3a  f2 50 28 22 20 20 20 20  |<   . 4:.P("    |
00003700  20 20 77 66 34 20 3a 20  77 69 6d 70 20 72 65 64  |  wf4 : wimp red|
00003710  72 61 77 6e 2c 20 6e 6f  20 75 73 65 72 20 72 65  |rawn, no user re|
00003720  64 72 61 77 20 72 71 22  29 0d 13 06 38 20 20 20  |draw rq")...8   |
00003730  c9 20 35 3a f2 50 28 22  20 20 20 20 20 20 77 66  |. 5:.P("      wf|
00003740  35 20 3a 20 70 61 6e 65  2c 20 6f 6e 20 74 6f 70  |5 : pane, on top|
00003750  20 6f 66 20 74 6f 6f 6c  20 77 69 6e 64 6f 77 22  | of tool window"|
00003760  29 0d 13 10 33 20 20 20  c9 20 36 3a f2 50 28 22  |)...3   . 6:.P("|
00003770  20 20 20 20 20 20 77 66  36 20 3a 20 61 6c 6c 6f  |      wf6 : allo|
00003780  77 65 64 20 6f 75 74 73  69 64 65 20 73 63 72 65  |wed outside scre|
00003790  65 6e 22 29 0d 13 1a 36  20 20 20 c9 20 37 3a f2  |en")...6   . 7:.|
000037a0  50 28 22 20 20 20 20 20  20 77 66 37 20 3a 20 6e  |P("      wf7 : n|
000037b0  6f 20 62 61 63 6b 2f 63  6c 6f 73 65 20 28 6f 6c  |o back/close (ol|
000037c0  64 20 73 74 79 6c 65 29  22 29 0d 13 24 3f 20 20  |d style)")..$?  |
000037d0  20 c9 20 38 3a f2 50 28  22 20 20 20 20 20 20 77  | . 8:.P("      w|
000037e0  66 38 20 3a 20 75 73 65  72 2d 73 63 72 6f 6c 6c  |f8 : user-scroll|
000037f0  20 72 71 20 72 65 74 75  72 6e 65 64 20 6f 6e 20  | rq returned on |
00003800  73 61 75 73 61 67 65 22  29 0d 13 2e 3e 20 20 20  |sausage")...>   |
00003810  c9 20 39 3a f2 50 28 22  20 20 20 20 20 20 77 66  |. 9:.P("      wf|
00003820  39 20 3a 20 75 73 65 72  2d 73 63 72 6f 6c 6c 20  |9 : user-scroll |
00003830  72 71 20 72 65 74 75 72  6e 65 64 20 6f 6e 20 61  |rq returned on a|
00003840  72 72 6f 77 73 22 29 0d  13 38 30 20 20 20 c9 31  |rrows")..80   .1|
00003850  30 3a f2 50 28 22 20 20  20 20 20 20 77 66 31 30  |0:.P("      wf10|
00003860  3a 20 61 73 73 75 6d 65  20 47 43 4f 4c 20 63 6f  |: assume GCOL co|
00003870  6c 6f 75 72 73 22 29 0d  13 42 40 20 20 20 c9 31  |lours")..B@   .1|
00003880  31 3a f2 50 28 22 20 20  20 20 20 20 77 66 31 31  |1:.P("      wf11|
00003890  3a 20 62 61 63 6b 64 72  6f 70 2c 20 6e 6f 20 77  |: backdrop, no w|
000038a0  69 6e 64 6f 77 73 20 62  65 6c 6f 77 20 74 68 69  |indows below thi|
000038b0  73 20 6f 6e 65 22 29 0d  13 4c 28 20 20 20 c9 31  |s one")..L(   .1|
000038c0  32 3a f2 50 28 22 20 20  20 20 20 20 77 66 31 32  |2:.P("      wf12|
000038d0  3a 20 68 6f 74 2d 6b 65  79 73 20 6f 6e 22 29 0d  |: hot-keys on").|
000038e0  13 56 37 20 20 20 c9 31  33 3a f2 50 28 22 20 20  |.V7   .13:.P("  |
000038f0  20 20 20 20 77 66 31 33  3a 20 72 65 73 65 72 76  |    wf13: reserv|
00003900  65 64 2c 20 73 68 6f 75  6c 64 20 62 65 20 30 20  |ed, should be 0 |
00003910  21 21 21 21 22 29 0d 13  60 37 20 20 20 c9 31 34  |!!!!")..`7   .14|
00003920  3a f2 50 28 22 20 20 20  20 20 20 77 66 31 34 3a  |:.P("      wf14:|
00003930  20 72 65 73 65 72 76 65  64 2c 20 73 68 6f 75 6c  | reserved, shoul|
00003940  64 20 62 65 20 30 20 21  21 21 21 22 29 0d 13 6a  |d be 0 !!!!")..j|
00003950  37 20 20 20 c9 31 35 3a  f2 50 28 22 20 20 20 20  |7   .15:.P("    |
00003960  20 20 77 66 31 35 3a 20  72 65 73 65 72 76 65 64  |  wf15: reserved|
00003970  2c 20 73 68 6f 75 6c 64  20 62 65 20 30 20 21 21  |, should be 0 !!|
00003980  21 21 22 29 0d 13 74 38  20 20 20 c9 31 36 3a f2  |!!")..t8   .16:.|
00003990  50 28 22 20 20 20 20 20  20 77 66 31 36 3a 20 77  |P("      wf16: w|
000039a0  69 6e 64 6f 77 20 69 73  20 6f 70 65 6e 20 28 6f  |indow is open (o|
000039b0  66 20 63 6f 75 72 73 65  21 29 22 29 0d 13 7e 2a  |f course!)")..~*|
000039c0  20 20 20 c9 31 37 3a f2  50 28 22 20 20 20 20 20  |   .17:.P("     |
000039d0  20 77 66 31 37 3a 20 66  75 6c 6c 79 20 76 69 73  | wf17: fully vis|
000039e0  69 62 6c 65 22 29 0d 13  88 30 20 20 20 c9 31 38  |ible")...0   .18|
000039f0  3a f2 50 28 22 20 20 20  20 20 20 77 66 31 38 3a  |:.P("      wf18:|
00003a00  20 74 6f 67 67 6c 65 64  20 74 6f 20 6d 61 78 20  | toggled to max |
00003a10  73 69 7a 65 22 29 0d 13  92 3b 20 20 20 c9 31 39  |size")...;   .19|
00003a20  3a f2 50 28 22 20 20 20  20 20 20 77 66 31 39 3a  |:.P("      wf19:|
00003a30  20 4f 70 65 6e 20 72 71  20 63 61 75 73 65 20 62  | Open rq cause b|
00003a40  79 20 74 6f 67 67 6c 65  20 63 6c 69 63 6b 3f 22  |y toggle click?"|
00003a50  29 0d 13 9c 2c 20 20 20  c9 32 30 3a f2 50 28 22  |)...,   .20:.P("|
00003a60  20 20 20 20 20 20 77 66  32 30 3a 20 68 61 73 20  |      wf20: has |
00003a70  69 6e 70 75 74 20 66 6f  63 75 73 22 29 0d 13 a6  |input focus")...|
00003a80  37 20 20 20 c9 32 31 3a  f2 50 28 22 20 20 20 20  |7   .21:.P("    |
00003a90  20 20 77 66 32 31 3a 20  72 65 73 65 72 76 65 64  |  wf21: reserved|
00003aa0  2c 20 73 68 6f 75 6c 64  20 62 65 20 30 20 21 21  |, should be 0 !!|
00003ab0  21 21 22 29 0d 13 b0 37  20 20 20 c9 32 32 3a f2  |!!")...7   .22:.|
00003ac0  50 28 22 20 20 20 20 20  20 77 66 32 32 3a 20 72  |P("      wf22: r|
00003ad0  65 73 65 72 76 65 64 2c  20 73 68 6f 75 6c 64 20  |eserved, should |
00003ae0  62 65 20 30 20 21 21 21  21 22 29 0d 13 ba 37 20  |be 0 !!!!")...7 |
00003af0  20 20 c9 32 33 3a f2 50  28 22 20 20 20 20 20 20  |  .23:.P("      |
00003b00  77 66 32 33 3a 20 72 65  73 65 72 76 65 64 2c 20  |wf23: reserved, |
00003b10  73 68 6f 75 6c 64 20 62  65 20 30 20 21 21 21 21  |should be 0 !!!!|
00003b20  22 29 0d 13 c4 3a 20 20  20 c9 32 34 3a f2 50 28  |")...:   .24:.P(|
00003b30  22 20 20 20 20 20 20 77  66 32 34 3a 20 62 61 63  |"      wf24: bac|
00003b40  6b 20 69 63 6f 6e 20 28  6e 65 77 20 73 74 79 6c  |k icon (new styl|
00003b50  65 2c 20 77 66 33 31 3d  31 29 22 29 0d 13 ce 3b  |e, wf31=1)")...;|
00003b60  20 20 20 c9 32 35 3a f2  50 28 22 20 20 20 20 20  |   .25:.P("     |
00003b70  20 77 66 32 35 3a 20 63  6c 6f 73 65 20 69 63 6f  | wf25: close ico|
00003b80  6e 20 28 6e 65 77 20 73  74 79 6c 65 2c 20 77 66  |n (new style, wf|
00003b90  33 31 3d 31 29 22 29 0d  13 d8 3a 20 20 20 c9 32  |31=1)")...:   .2|
00003ba0  36 3a f2 50 28 22 20 20  20 20 20 20 77 66 32 36  |6:.P("      wf26|
00003bb0  3a 20 74 69 74 6c 65 20  62 61 72 20 28 6e 65 77  |: title bar (new|
00003bc0  20 73 74 79 6c 65 2c 20  77 66 33 31 3d 31 29 22  | style, wf31=1)"|
00003bd0  29 0d 13 e2 3c 20 20 20  c9 32 37 3a f2 50 28 22  |)...<   .27:.P("|
00003be0  20 20 20 20 20 20 77 66  32 37 3a 20 74 6f 67 67  |      wf27: togg|
00003bf0  6c 65 20 69 63 6f 6e 20  28 6e 65 77 20 73 74 79  |le icon (new sty|
00003c00  6c 65 2c 20 77 66 33 31  3d 31 29 22 29 0d 13 ec  |le, wf31=1)")...|
00003c10  40 20 20 20 c9 32 38 3a  f2 50 28 22 20 20 20 20  |@   .28:.P("    |
00003c20  20 20 77 66 32 38 3a 20  76 65 72 74 69 63 61 6c  |  wf28: vertical|
00003c30  20 73 63 72 6f 6c 6c 20  28 6e 65 77 20 73 74 79  | scroll (new sty|
00003c40  6c 65 2c 20 77 66 33 31  3d 31 29 22 29 0d 13 f6  |le, wf31=1)")...|
00003c50  42 20 20 20 c9 33 30 3a  f2 50 28 22 20 20 20 20  |B   .30:.P("    |
00003c60  20 20 77 66 33 30 3a 20  68 6f 72 69 7a 6f 6e 74  |  wf30: horizont|
00003c70  61 6c 20 73 63 72 6f 6c  6c 20 28 6e 65 77 20 73  |al scroll (new s|
00003c80  74 79 6c 65 2c 20 77 66  33 31 3d 31 29 22 29 0d  |tyle, wf31=1)").|
00003c90  14 00 3a 20 20 20 c9 32  39 3a f2 50 28 22 20 20  |..:   .29:.P("  |
00003ca0  20 20 20 20 77 66 32 39  3a 20 73 69 7a 65 20 69  |    wf29: size i|
00003cb0  63 6f 6e 20 28 6e 65 77  20 73 74 79 6c 65 2c 20  |con (new style, |
00003cc0  77 66 33 31 3d 31 29 22  29 0d 14 0a 33 20 20 20  |wf31=1)")...3   |
00003cd0  c9 33 31 3a f2 50 28 22  20 20 20 20 20 20 77 66  |.31:.P("      wf|
00003ce0  33 31 3a 20 75 73 65 20  6e 65 74 20 62 69 74 73  |31: use net bits|
00003cf0  20 77 66 5b 32 34 2d 33  30 5d 22 29 0d 14 14 08  | wf[24-30]")....|
00003d00  20 20 20 cb 0d 14 1e 07  20 20 cd 0d 14 28 07 20  |   .....  ...(. |
00003d10  20 ed 0d 14 32 45 20 e7  20 62 6c 6f 63 6b 25 3f  | ...2E . block%?|
00003d20  33 36 3d 26 46 46 20 f2  50 28 22 20 20 20 20 20  |36=&FF .P("     |
00003d30  20 20 20 20 20 3a 20 74  69 74 6c 65 2f 66 72 61  |     : title/fra|
00003d40  6d 65 20 54 52 41 4e 53  50 41 52 41 4e 54 20 63  |me TRANSPARANT c|
00003d50  6f 6c 6f 75 72 22 29 0d  14 3c 4d 20 e7 20 62 6c  |olour")..<M . bl|
00003d60  6f 63 6b 25 3f 33 39 3d  26 46 46 20 f2 50 28 22  |ock%?39=&FF .P("|
00003d70  20 20 20 20 20 20 20 20  20 20 3a 20 77 6f 72 6b  |          : work|
00003d80  20 61 72 65 61 20 62 61  63 67 72 6f 75 6e 64 20  | area bacground |
00003d90  54 52 41 4e 53 50 41 52  41 4e 54 20 63 6f 6c 6f  |TRANSPARANT colo|
00003da0  75 72 22 29 0d 14 46 14  20 e7 20 62 6c 6f 63 6b  |ur")..F. . block|
00003db0  25 21 36 38 3d 31 20 8c  0d 14 50 31 20 20 20 20  |%!68=1 ...P1    |
00003dc0  f2 50 28 22 20 20 20 20  20 20 20 20 20 20 3a 20  |.P("          : |
00003dd0  57 49 4d 50 20 73 70 72  69 74 65 20 61 72 65 61  |WIMP sprite area|
00003de0  20 69 6e 20 75 73 65 22  29 0d 14 5a 09 20 20 20  | in use")..Z.   |
00003df0  20 cc 0d 14 64 41 20 20  20 20 f2 50 28 22 20 20  | ...dA    .P("  |
00003e00  20 20 20 20 20 20 20 20  3a 20 6f 74 68 65 72 20  |        : other |
00003e10  73 70 72 69 74 65 20 61  72 65 61 20 69 6e 20 75  |sprite area in u|
00003e20  73 65 3a 20 26 22 2b c3  7e 62 6c 6f 63 6b 25 21  |se: &"+.~block%!|
00003e30  36 38 29 0d 14 6e 09 20  20 20 20 cd 0d 14 78 14  |68)..n.    ...x.|
00003e40  20 e7 20 62 6c 6f 63 6b  25 21 38 38 3d 30 20 8c  | . block%!88=0 .|
00003e50  0d 14 82 36 20 20 20 20  f2 50 28 22 20 20 20 20  |...6    .P("    |
00003e60  20 20 20 20 20 20 3a 20  4e 6f 20 69 63 6f 6e 73  |      : No icons|
00003e70  20 61 64 64 65 64 20 74  6f 20 64 65 66 69 6e 69  | added to defini|
00003e80  74 69 6f 6e 22 29 0d 14  8c 09 20 20 20 20 cc 0d  |tion")....    ..|
00003e90  14 96 44 20 20 20 20 f2  50 28 22 20 20 20 20 20  |..D    .P("     |
00003ea0  20 20 20 20 20 3a 20 22  2b c3 62 6c 6f 63 6b 25  |     : "+.block%|
00003eb0  21 38 38 2b 22 20 69 63  6f 6e 28 73 29 20 61 64  |!88+" icon(s) ad|
00003ec0  64 65 64 20 74 6f 20 64  65 66 69 6e 69 74 69 6f  |ded to definitio|
00003ed0  6e 22 29 0d 14 a0 09 20  20 20 20 cd 0d 14 aa 06  |n")....    .....|
00003ee0  20 e1 0d 14 b4 04 0d 14  be 12 dd 20 f2 5f 63 6f  | .......... ._co|
00003ef0  6f 72 64 28 77 68 25 29  0d 14 c8 0e e7 20 77 68  |ord(wh%)..... wh|
00003f00  25 3e 3d 30 20 8c 0d 14  d2 5c 20 e7 20 ac 69 5f  |%>=0 ....\ . .i_|
00003f10  77 68 25 20 8c 3a 21 62  6c 6f 63 6b 25 3d 77 68  |wh% .:!block%=wh|
00003f20  25 3a c8 99 67 77 69 25  2c 2c 62 6c 6f 63 6b 25  |%:..gwi%,,block%|
00003f30  3a 4f 58 25 3d 62 6c 6f  63 6b 25 21 34 2d 62 6c  |:OX%=block%!4-bl|
00003f40  6f 63 6b 25 21 32 30 3a  4f 59 25 3d 62 6c 6f 63  |ock%!20:OY%=bloc|
00003f50  6b 25 21 31 36 2d 62 6c  6f 63 6b 25 21 32 34 2d  |k%!16-block%!24-|
00003f60  32 30 0d 14 dc 2c 20 f2  50 28 22 22 29 3a f2 50  |20..., .P(""):.P|
00003f70  28 22 20 20 20 4f 72 69  67 69 6e 20 40 20 22 2b  |("   Origin @ "+|
00003f80  c3 4f 58 25 2b 22 2c 22  2b c3 4f 59 25 29 0d 14  |.OX%+","+.OY%)..|
00003f90  e6 06 20 cd 0d 14 f0 22  f2 50 28 22 20 20 50 6f  |.. ....".P("  Po|
00003fa0  69 6e 74 65 72 20 40 20  22 2b c3 78 25 2b 22 2c  |inter @ "+.x%+",|
00003fb0  22 2b c3 79 25 29 0d 14  fa 39 e7 20 77 68 25 3e  |"+.y%)...9. wh%>|
00003fc0  3d 30 20 8c 3a f2 50 28  22 20 20 6f 72 20 77 6f  |=0 .:.P("  or wo|
00003fd0  72 6b 20 40 20 22 2b c3  28 78 25 2d 4f 58 25 29  |rk @ "+.(x%-OX%)|
00003fe0  2b 22 2c 22 2b c3 28 79  25 2d 4f 59 25 29 29 0d  |+","+.(y%-OY%)).|
00003ff0  15 04 05 e1 0d 15 0e 04  0d 15 18 10 dd 20 a4 62  |............. .b|
00004000  75 74 74 28 69 66 25 29  0d 15 22 14 69 66 25 3d  |utt(if%)..".if%=|
00004010  28 69 66 25 3e 3e 31 32  29 80 31 35 0d 15 2c 0a  |(if%>>12).15..,.|
00004020  c8 8e 69 66 25 ca 0d 15  36 14 c9 20 30 20 3a 61  |..if%...6.. 0 :a|
00004030  24 3d 22 69 67 6e 6f 72  65 22 0d 15 40 14 c9 20  |$="ignore"..@.. |
00004040  31 20 3a 61 24 3d 22 61  6c 77 61 79 73 22 0d 15  |1 :a$="always"..|
00004050  4a 16 c9 20 32 20 3a 61  24 3d 22 61 75 74 6f 20  |J.. 2 :a$="auto |
00004060  72 65 70 22 0d 15 54 13  c9 20 33 20 3a 61 24 3d  |rep"..T.. 3 :a$=|
00004070  22 63 6c 69 63 6b 22 0d  15 5e 15 c9 20 34 20 3a  |"click"..^.. 4 :|
00004080  61 24 3d 22 72 65 6c 65  61 73 65 22 0d 15 68 14  |a$="release"..h.|
00004090  c9 20 35 20 3a 61 24 3d  22 64 63 6c 69 63 6b 22  |. 5 :a$="dclick"|
000040a0  0d 15 72 18 c9 20 36 20  3a 61 24 3d 22 63 6c 69  |..r.. 6 :a$="cli|
000040b0  63 6b 2f 64 72 61 67 22  0d 15 7c 1a c9 20 37 20  |ck/drag"..|.. 7 |
000040c0  3a 61 24 3d 22 72 65 6c  65 61 73 65 2f 64 72 61  |:a$="release/dra|
000040d0  67 22 0d 15 86 19 c9 20  38 20 3a 61 24 3d 22 64  |g"..... 8 :a$="d|
000040e0  63 6c 69 63 6b 2f 64 72  61 67 22 0d 15 90 12 c9  |click/drag".....|
000040f0  20 39 20 3a 61 24 3d 22  6d 65 6e 75 22 0d 15 9a  | 9 :a$="menu"...|
00004100  20 c9 20 31 30 20 3a 61  24 3d 22 63 6c 69 63 6b  | . 10 :a$="click|
00004110  2f 64 72 61 67 2f 64 63  6c 69 63 6b 22 0d 15 a4  |/drag/dclick"...|
00004120  14 c9 20 31 31 20 3a 61  24 3d 22 72 61 64 69 6f  |.. 11 :a$="radio|
00004130  22 0d 15 ae 17 c9 20 31  32 20 3a 61 24 3d 22 72  |"..... 12 :a$="r|
00004140  65 73 65 72 76 65 64 22  0d 15 b8 17 c9 20 31 33  |eserved"..... 13|
00004150  20 3a 61 24 3d 22 72 65  73 65 72 76 65 64 22 0d  | :a$="reserved".|
00004160  15 c2 1f c9 20 31 34 20  3a 61 24 3d 22 77 72 69  |.... 14 :a$="wri|
00004170  74 65 2f 63 6c 69 63 6b  2f 64 72 61 67 22 0d 15  |te/click/drag"..|
00004180  cc 14 c9 20 31 35 20 3a  61 24 3d 22 77 72 69 74  |... 15 :a$="writ|
00004190  65 22 0d 15 d6 05 cb 0d  15 e0 15 3d 22 5b 22 2b  |e".........="["+|
000041a0  c3 69 66 25 2b 22 5d 20  22 2b 61 24 0d 15 ea 04  |.if%+"] "+a$....|
000041b0  0d 15 f4 0c dd 20 f2 50  28 41 24 29 0d 15 fe 16  |..... .P(A$)....|
000041c0  e7 a9 41 24 2b 31 2b 63  70 25 3e 6d 61 78 25 20  |..A$+1+cp%>max% |
000041d0  3a e1 0d 16 08 15 24 28  41 25 2b 63 70 25 29 3d  |:.....$(A%+cp%)=|
000041e0  c0 41 24 2c 36 39 29 0d  16 12 0e 63 70 25 2b 3d  |.A$,69)....cp%+=|
000041f0  a9 41 24 2b 31 0d 16 1c  05 e1 0d 16 26 04 0d 16  |.A$+1.......&...|
00004200  30 0e dd 20 a4 62 62 78  28 61 25 29 0d 16 3a 0c  |0.. .bbx(a%)..:.|
00004210  41 24 3d c3 61 25 21 30  0d 16 44 0c 42 24 3d c3  |A$=.a%!0..D.B$=.|
00004220  61 25 21 34 0d 16 4e 0c  43 24 3d c3 61 25 21 38  |a%!4..N.C$=.a%!8|
00004230  0d 16 58 0d 44 24 3d c3  61 25 21 31 32 0d 16 62  |..X.D$=.a%!12..b|
00004240  27 3a 3d 22 28 22 2b 41  24 2b 22 2c 22 2b 42 24  |':="("+A$+","+B$|
00004250  2b 22 29 78 28 22 2b 43  24 2b 22 2c 22 2b 44 24  |+")x("+C$+","+D$|
00004260  2b 22 29 22 0d 16 6c 04  0d 16 76 1c dd 20 f2 5f  |+")"..l...v.. ._|
00004270  75 70 64 61 74 65 5f 73  65 74 74 69 6e 67 73 5f  |update_settings_|
00004280  6d 65 6e 75 0d 16 80 1a  f2 5f 4d 74 69 63 6b 28  |menu....._Mtick(|
00004290  6d 73 65 74 25 2c 30 2c  69 5f 77 68 25 29 0d 16  |mset%,0,i_wh%)..|
000042a0  8a 1a f2 5f 4d 74 69 63  6b 28 6d 73 65 74 25 2c  |..._Mtick(mset%,|
000042b0  31 2c 69 5f 69 68 25 29  0d 16 94 1d f2 5f 4d 74  |1,i_ih%)....._Mt|
000042c0  69 63 6b 28 6d 73 65 74  25 2c 32 2c 69 5f 63 6f  |ick(mset%,2,i_co|
000042d0  6f 72 64 25 29 0d 16 9e  05 e1 0d 16 a8 04 0d 16  |ord%)...........|
000042e0  b2 14 dd 20 f2 64 72 61  67 28 77 68 25 2c 69 68  |... .drag(wh%,ih|
000042f0  25 29 0d 16 bc 47 62 6c  6f 63 6b 25 21 30 3d 77  |%)...Gblock%!0=w|
00004300  68 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |h%:.."Wimp_GetWi|
00004310  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00004320  6b 25 3a 4f 58 25 3d 62  6c 6f 63 6b 25 21 34 2d  |k%:OX%=block%!4-|
00004330  62 6c 6f 63 6b 25 21 32  30 0d 16 c6 cb 4f 59 25  |block%!20....OY%|
00004340  3d 62 6c 6f 63 6b 25 21  31 36 2d 62 6c 6f 63 6b  |=block%!16-block|
00004350  25 21 32 34 3a 62 6c 6f  63 6b 25 21 34 3d 69 68  |%!24:block%!4=ih|
00004360  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
00004370  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 3a  |nState",,block%:|
00004380  62 6c 6f 63 6b 25 21 34  3d 35 3a 62 6c 6f 63 6b  |block%!4=5:block|
00004390  25 21 38 2b 3d 4f 58 25  3a 62 6c 6f 63 6b 25 21  |%!8+=OX%:block%!|
000043a0  31 32 2b 3d 4f 59 25 3a  62 6c 6f 63 6b 25 21 31  |12+=OY%:block%!1|
000043b0  36 2b 3d 4f 58 25 3a 62  6c 6f 63 6b 25 21 32 30  |6+=OX%:block%!20|
000043c0  2b 3d 4f 59 25 3a 62 6c  6f 63 6b 25 21 32 34 3d  |+=OY%:block%!24=|
000043d0  30 3a 62 6c 6f 63 6b 25  21 32 38 3d 30 3a 62 6c  |0:block%!28=0:bl|
000043e0  6f 63 6b 25 21 33 32 3d  31 45 35 3a 62 6c 6f 63  |ock%!32=1E5:bloc|
000043f0  6b 25 21 33 36 3d 31 45  35 3a f4 20 73 6c 6f 67  |k%!36=1E5:. slog|
00004400  67 59 20 21 0d 16 d0 1c  c8 99 22 57 69 6d 70 5f  |gY !......"Wimp_|
00004410  44 72 61 67 42 6f 78 22  2c 2c 62 6c 6f 63 6b 25  |DragBox",,block%|
00004420  0d 16 da 05 e1 0d 16 e4  04 0d 16 ee 0e dd 20 a4  |.............. .|
00004430  43 55 54 28 41 24 29 0d  16 f8 09 42 24 3d 22 22  |CUT(A$)....B$=""|
00004440  0d 17 02 23 c8 95 20 c2  41 24 2c 31 29 3c 3e 22  |...#.. .A$,1)<>"|
00004450  2e 22 20 80 20 a9 42 24  3c 31 32 20 80 20 a9 41  |." . .B$<12 . .A|
00004460  24 3e 30 0d 17 0c 11 20  42 24 3d c2 41 24 2c 31  |$>0.... B$=.A$,1|
00004470  29 2b 42 24 0d 17 16 12  20 41 24 3d c0 41 24 2c  |)+B$.... A$=.A$,|
00004480  a9 41 24 2d 31 29 0d 17  20 06 20 ce 0d 17 2a 19  |.A$-1).. . ...*.|
00004490  e7 20 42 24 3d 22 22 20  42 24 3d 22 53 63 6f 6f  |. B$="" B$="Scoo|
000044a0  70 44 61 74 22 0d 17 34  08 3a 3d 42 24 0d 17 3e  |pDat"..4.:=B$..>|
000044b0  04 0d 17 48 0a dd 20 f2  77 69 73 0d 17 52 10 63  |...H.. .wis..R.c|
000044c0  70 25 3d 30 3a 24 41 25  3d 22 22 0d 17 5c 05 e1  |p%=0:$A%=""..\..|
000044d0  0d 17 66 04 0d 17 70 10  dd 20 f2 5f 74 72 79 5f  |..f...p.. ._try_|
000044e0  73 61 76 65 0d 17 7a 17  46 24 3d a4 5f 49 74 65  |save..z.F$=._Ite|
000044f0  78 74 28 78 66 65 72 25  2c 31 29 0d 17 84 10 e7  |xt(xfer%,1).....|
00004500  a7 46 24 2c 22 2e 22 29  3e 30 8c 0d 17 8e 3e 20  |.F$,".")>0....> |
00004510  ff 28 22 53 41 56 45 20  22 2b 46 24 2b 22 20 22  |.("SAVE "+F$+" "|
00004520  2b c3 7e 41 25 2b 22 20  2b 22 2b c3 7e 63 70 25  |+.~A%+" +"+.~cp%|
00004530  29 3a ff 28 22 53 45 54  54 59 50 45 20 22 2b 46  |):.("SETTYPE "+F|
00004540  24 2b 22 20 46 46 46 22  29 0d 17 98 06 20 cc 0d  |$+" FFF").... ..|
00004550  17 a2 37 20 f2 5f 49 6e  66 6f 72 6d 28 22 50 6c  |..7 ._Inform("Pl|
00004560  65 61 73 65 20 64 72 61  67 2c 20 6f 72 20 73 75  |ease drag, or su|
00004570  70 70 6c 79 20 61 20 66  75 6c 6c 20 6c 65 61 66  |pply a full leaf|
00004580  6e 61 6d 65 22 29 0d 17  ac 06 20 cd 0d 17 b6 05  |name").... .....|
00004590  e1 0d 17 c0 04 0d 17 ca  11 dd 20 a4 74 78 74 28  |.......... .txt(|
000045a0  66 72 6f 6d 25 29 0d 17  d4 0d ea 20 49 25 2c 73  |from%)..... I%,s|
000045b0  74 68 25 0d 17 de 07 ea  20 85 0d 17 e8 21 ee 20  |th%..... ....!. |
000045c0  85 20 ea 3a 3d 22 43 4f  55 4c 44 20 4e 4f 54 20  |. .:="COULD NOT |
000045d0  42 45 20 52 45 41 43 48  45 44 22 0d 17 f2 0d 73  |BE REACHED"....s|
000045e0  61 76 25 21 31 32 3d 30  0d 17 fc 22 e7 20 66 72  |av%!12=0...". fr|
000045f0  6f 6d 25 3d 30 20 3a 3d  22 5b 77 6f 72 64 20 76  |om%=0 :="[word v|
00004600  61 6c 75 65 20 3d 20 30  5d 22 0d 18 06 29 e7 20  |alue = 0]"...). |
00004610  66 72 6f 6d 25 3d 2d 31  20 3a 3d 22 5b 77 6f 72  |from%=-1 :="[wor|
00004620  64 20 76 61 6c 75 65 20  3d 20 2d 31 5d 20 6e 6f  |d value = -1] no|
00004630  20 24 22 0d 18 10 28 e7  20 66 72 6f 6d 25 3c 2d  | $"...(. from%<-|
00004640  31 20 3a 3d 22 5b 77 6f  72 64 20 76 61 6c 75 65  |1 :="[word value|
00004650  20 4e 45 47 41 54 49 56  45 5d 22 0d 18 1a 31 c8  | NEGATIVE]"...1.|
00004660  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00004670  67 65 22 2c 31 39 2c 73  61 76 25 2c 77 68 25 2c  |ge",19,sav%,wh%,|
00004680  69 68 25 20 b8 20 2c 2c  73 74 68 25 0d 18 24 25  |ih% . ,,sth%..$%|
00004690  e7 20 73 74 68 25 3d 74  61 73 6b 25 20 3a 3d 22  |. sth%=task% :="|
000046a0  54 68 61 74 73 20 6d 65  73 65 6c 66 20 21 3f 3f  |Thats meself !??|
000046b0  22 0d 18 2e 34 c8 99 22  57 69 6d 70 5f 54 72 61  |"...4.."Wimp_Tra|
000046c0  6e 73 66 65 72 42 6c 6f  63 6b 22 2c 73 74 68 25  |nsferBlock",sth%|
000046d0  2c 66 72 6f 6d 25 2c 74  61 73 6b 25 2c 73 61 76  |,from%,task%,sav|
000046e0  25 2c 32 30 30 0d 18 38  0f e3 49 25 3d 30 20 b8  |%,200..8..I%=0 .|
000046f0  20 32 30 30 0d 18 42 1e  20 e7 20 73 61 76 25 3f  | 200..B. . sav%?|
00004700  49 25 3c 33 32 20 8c 20  73 61 76 25 3f 49 25 3d  |I%<32 . sav%?I%=|
00004710  31 33 0d 18 4c 06 20 ed  0d 18 56 29 73 61 76 25  |13..L. ...V)sav%|
00004720  3f 32 30 30 3d 31 33 3a  f4 20 6d 6f 65 74 20 77  |?200=13:. moet w|
00004730  65 6c 2e 2e 2e 20 6a 61  6d 6d 65 72 20 68 65 20  |el... jammer he |
00004740  21 0d 18 60 0b 3a 3d 24  73 61 76 25 0d ff        |!..`.:=$sav%..|
0000474e