� >$.Applic.!Stamp.!RunImage

!� Version 1.01 (RISC-OS only)
(
2#� Original Author  : Paul Hobbs
<E�                  : 5, Amersham Avenue, Basildon, Essex SS16 6SJ
F&�                  : (0268) 541170
P
Z&� ShareWare Software - pass it on!
d
nL� -------------------- Initialisation ----------------------------------
x
�version$="1.01 (26-Aug-89)"
�� q% 500,msgblk 200
�$q%="TASK"
�0ș "Wimp_Initialise",200,!q%,"Stamp" � ,task
�ș "Hourglass_On"
�
�L� -------------------- Load Sprite File --------------------------------
�
�L� -------------------- Place Sprite On Icon Bar ------------------------
�
�4sicon=�spriteicon(-1,0,0,68,68,&3102,1,"!stamp")
�
�L� -------------------- Initialise Constants ----------------------------



� Menu title flags



"menu_title_fg= 7

,menu_title_bg= 2

6menu_work_fg = 7

@menu_work_bg = 0

J

T� menu flags

^

htick     =&01

rdotted   =&02

|writeable=&04

�last     =&80

�default  =&10021

�shaded   =&400000

�first    =�

�second   =�

�sel      =�

�

�L� -------------------- Initialise Variables ----------------------------

�

�claimdrag$="":claimmenu$=""

�close_down      = �

�

�L� -------------------- Initialise Arrays -------------------------------

*� text$(5),setting(5),flags(5),data(5)
"� submenu(5),ref(5),menupos(5)
&
0L� -------------------- Initialise Storage ------------------------------
:
D� menu% 100
N� indirect% 400
X
bL� -------------------- Miscelleanous Initialisation --------------------
l
v#iptr%=indirect%:iend%=iptr%+400
�
�L� -------------------- Load Template Files -----------------------------
�
�.�opentemplatefile("<Stamp$Dir>.Templates")
� �loadtemplate("progInfo",q%)
�&ș "Wimp_CreateWindow",,q% � info%
��closetemplatefile
�
�L� -------------------- Application Initialisation ----------------------
�
�� global variables
�
�current_file$ = ""

L� -------------------- Define Icons ------------------------------------

 (�icon_putdata(q%,info%,4,version$,0)
*
4L� -------------------- Launch Initial Windows --------------------------
>
Hș "Hourglass_Off"
R
\L� -------------------- Error Routines ----------------------------------
f
pL� -------------------- Main Program Loop -------------------------------
z
��
�  �action(�poll(1))
�� close_down
�
�L� -------------------- Application Closedown ---------------------------
�
�ș "Wimp_CloseDown"
��
�
�<��clickwindow(mousex%,mousey%,button%,handle%,icon%,ob%)
�Ȏ handle% �
�/  � -2        :�clickiconbar(button%,icon%)
��
�

!��clickiconbar(button%,icon%)
$� icon%<0 � �
.
Ȏ � �
8  � button%=2
B    � icon%=sicon �
L      �menu_sicon
V	    �
`�
j�
t
~��keypress
��
�
�ݤmenuselect_sicon
�level0=q%!0
�Ȏ level0 �
�	  � 0
�	  � 1
�    close_down=�
��
�=0
�
���menu_sicon
no=0:ȗ x,y,b :y=y+100

� menu0
>�define_menu_text("Info",no,0,0,0,0,default,info%,0):no+=1
;�define_menu_text("Quit",no,0,0,0,0,default,0,-1):no+=1
( �create_menu("Stamp",no,x,y)
2menu_nr%=0
<claimmenu$="sicon"
F�
P
Z��dataload(b)
dcurrent_file$=�gname(q%+44)
n� b!40<4096 �
x  �("STAMP "+current_file$)
��
��
�
���ackload(b)
��
�
���finish
�ș "Wimp_CloseDown"
��
�
���close_down
�ș "Wimp_CloseDown"
�� 12

*FX4,0
*FX220,0
�
"
,ݤpoll(mask%)
6 ș "Wimp_Poll",mask%,q% � a%
@=a%
J
T��action(evnt%)
^Ȏ evnt% �
h7  � 6:�clickwindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
r?  � 9:� claimmenu$<>"" � junk=�("FNmenuselect_"+claimmenu$)
|  � 17,18:�receive(q%)
��
��
�
���receive(q%)
�Ȏ q%!16 �
�� 0   :�finish:�
�� 2   :�datasave(q%)
�$� 3,5 :� q%!12=0 � �dataload(q%)
� � &502:�interactive_help(q%)
��
��
�
�2��define_menu_text(text$,n,w,t,d,s,flags,sm,l)
text$(n)=text$
setting(n)=0
>� w � setting(n)=setting(n) � writeable:flags=flags � &100
&&� t � setting(n)=setting(n) � tick
0(� d � setting(n)=setting(n) � dotted
:&� l � setting(n)=setting(n) � last
D� s � flags=flags � shaded
Nflags(n)=flags
Xsubmenu(n)=sm
b�
l
v��create_menu(title$,n,x,y)
�
mb%=menu%
�menus=0:q=0
��
�!  menupos(menus)=mb%:menus+=1
�  $mb%=title$
�  mb%?12=menu_title_fg
�  mb%?13=menu_title_bg
�  mb%?14=menu_work_fg
�  mb%?15=menu_work_bg
�&  mb%!16=100:� width of menu items
�'  mb%!20=40 :� height of menu items
�A  mb%!24=10 :� vertical gap between items (also top & bottom)
�  itemptr=mb%+28
  �
    itemptr!0=setting(q)
    ref(q)=itemptr+4
 @    itemptr!8=flags(q) � menu_work_bg<<28 � menu_work_fg<<24
*    � (flags(q) � &100)=0 �
4       $(itemptr+12)=text$(q)
>	    �
H      pos=�text$(q),"(")
R(      itemptr!12=�(�text$(q),pos-1))
\      itemptr!16=-1
f2      itemptr!20=�(�text$(q),�(text$(q))-pos))
p	    �
z    itemptr+=24:q+=1
�  � (setting(q-1) � last)>0
�  mb%=itemptr
�#  � q<>n � title$=text$(q):q+=1
�	� q=n
�
�� q=0 � n-1
�)  � submenu(q)>0 � submenu(q)<menus �
�#    !ref(q)=menupos(submenu(q))
�  �
�H    !ref(q)=submenu(q):� was -1 i.e. submenu disallowed! This change
�>                      :� allows a window handle to be used
�  �
�� q
	(ș "Wimp_CreateMenu",,menu%,x-20,190
	�
	
	$ݤmax(a%,b%)
	.� a%<b% � =b% � =a%
	8
	B��opentemplatefile(file$)
	L!ș "Wimp_OpenTemplate",,file$
	V�
	`
	j��loadtemplate(name$,b)
	t� type%,pos%,x%
	~Kș "Wimp_LoadTemplate",,b,iptr%,iend%,-1,name$,0 � type%,,iptr%,,,,pos%
	��
	�
	���closetemplatefile
	�ș "Wimp_CloseTemplate"
	��
	�
	�6ݤspriteicon(window,x0,y0,x1,y1,flags,sptr,sname$)
	� � q%!24 �sname$+1:q%!28=sptr
	�!q%!32=�sname$+1:$q%!24=sname$
	�'=�iconblk(window,x0,y0,x1,y1,flags)
	�
	�'ݤiconblk(window,x0,y0,x1,y1,flags)

� icon

!q%=window
q%!4=x0:q%!8=y0
q%!12=x1:q%!16=y1
(q%!20=flags
2#ș "Wimp_CreateIcon",,q% � icon
<	=icon
F
Pݤgname(ptr)
Z	f$=""
dȕ ?ptr<>0 � ?ptr<>13
n  f$=f$+�?ptr:ptr+=1
x�
�=f$
�
�5��icon_putdata(q%,whandle%,ihandle%,data$,redraw)
�q%!0=whandle%
�q%!4=ihandle%
�ș "Wimp_GetIconState",,q%
�$(q%!28)=data$
�� redraw �
�9ș "Wimp_ForceRedraw",whandle%,q%!8,q%!12,q%!16,q%!20
��
��
�
���interactive_help(q%)
� t$
Ȏ q%!32 �
� -2
"y  t$="This is the Stamp icon.|MDragging a file to this icon will date stamp the file with the current time and date."
,�
6� t$<>"" �
7  q%!12=q%!8
8  q%!16=&503
9  $(q%+20)=t$+�0
:  !q%=(25+�t$) � � 3
;&  ș "Wimp_SendMessage",17,q%,q%!4
<�
T�
�

00000000  0d 00 0a 20 f4 20 3e 24  2e 41 70 70 6c 69 63 2e  |... . >$.Applic.|
00000010  21 53 74 61 6d 70 2e 21  52 75 6e 49 6d 61 67 65  |!Stamp.!RunImage|
00000020  0d 00 14 04 0d 00 1e 21  f4 20 56 65 72 73 69 6f  |.......!. Versio|
00000030  6e 20 31 2e 30 31 20 28  52 49 53 43 2d 4f 53 20  |n 1.01 (RISC-OS |
00000040  6f 6e 6c 79 29 0d 00 28  04 0d 00 32 23 f4 20 4f  |only)..(...2#. O|
00000050  72 69 67 69 6e 61 6c 20  41 75 74 68 6f 72 20 20  |riginal Author  |
00000060  3a 20 50 61 75 6c 20 48  6f 62 62 73 0d 00 3c 45  |: Paul Hobbs..<E|
00000070  f4 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000080  20 20 20 3a 20 35 2c 20  41 6d 65 72 73 68 61 6d  |   : 5, Amersham|
00000090  20 41 76 65 6e 75 65 2c  20 42 61 73 69 6c 64 6f  | Avenue, Basildo|
000000a0  6e 2c 20 45 73 73 65 78  20 53 53 31 36 20 36 53  |n, Essex SS16 6S|
000000b0  4a 0d 00 46 26 f4 20 20  20 20 20 20 20 20 20 20  |J..F&.          |
000000c0  20 20 20 20 20 20 20 20  3a 20 28 30 32 36 38 29  |        : (0268)|
000000d0  20 35 34 31 31 37 30 0d  00 50 04 0d 00 5a 26 f4  | 541170..P...Z&.|
000000e0  20 53 68 61 72 65 57 61  72 65 20 53 6f 66 74 77  | ShareWare Softw|
000000f0  61 72 65 20 2d 20 70 61  73 73 20 69 74 20 6f 6e  |are - pass it on|
00000100  21 0d 00 64 04 0d 00 6e  4c f4 20 2d 2d 2d 2d 2d  |!..d...nL. -----|
00000110  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 20  |--------------- |
00000120  49 6e 69 74 69 61 6c 69  73 61 74 69 6f 6e 20 2d  |Initialisation -|
00000130  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000150  2d 0d 00 78 04 0d 00 82  1f 76 65 72 73 69 6f 6e  |-..x.....version|
00000160  24 3d 22 31 2e 30 31 20  28 32 36 2d 41 75 67 2d  |$="1.01 (26-Aug-|
00000170  38 39 29 22 0d 00 8c 17  de 20 71 25 20 35 30 30  |89)"..... q% 500|
00000180  2c 6d 73 67 62 6c 6b 20  32 30 30 0d 00 96 0e 24  |,msgblk 200....$|
00000190  71 25 3d 22 54 41 53 4b  22 0d 00 a0 30 c8 99 20  |q%="TASK"...0.. |
000001a0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000001b0  22 2c 32 30 30 2c 21 71  25 2c 22 53 74 61 6d 70  |",200,!q%,"Stamp|
000001c0  22 20 b8 20 2c 74 61 73  6b 0d 00 aa 15 c8 99 20  |" . ,task...... |
000001d0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 00  |"Hourglass_On"..|
000001e0  b4 04 0d 00 be 4c f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |.....L. --------|
000001f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 20 4c 6f 61  |------------ Loa|
00000200  64 20 53 70 72 69 74 65  20 46 69 6c 65 20 2d 2d  |d Sprite File --|
00000210  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000230  c8 04 0d 00 d2 4c f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |.....L. --------|
00000240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 20 50 6c 61  |------------ Pla|
00000250  63 65 20 53 70 72 69 74  65 20 4f 6e 20 49 63 6f  |ce Sprite On Ico|
00000260  6e 20 42 61 72 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |n Bar ----------|
00000270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000280  dc 04 0d 00 e6 34 73 69  63 6f 6e 3d a4 73 70 72  |.....4sicon=.spr|
00000290  69 74 65 69 63 6f 6e 28  2d 31 2c 30 2c 30 2c 36  |iteicon(-1,0,0,6|
000002a0  38 2c 36 38 2c 26 33 31  30 32 2c 31 2c 22 21 73  |8,68,&3102,1,"!s|
000002b0  74 61 6d 70 22 29 0d 00  f0 04 0d 00 fa 4c f4 20  |tamp").......L. |
000002c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000002d0  2d 2d 2d 2d 20 49 6e 69  74 69 61 6c 69 73 65 20  |---- Initialise |
000002e0  43 6f 6e 73 74 61 6e 74  73 20 2d 2d 2d 2d 2d 2d  |Constants ------|
000002f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000300  2d 2d 2d 2d 2d 2d 0d 01  04 04 0d 01 0e 16 f4 20  |------......... |
00000310  4d 65 6e 75 20 74 69 74  6c 65 20 66 6c 61 67 73  |Menu title flags|
00000320  0d 01 18 04 0d 01 22 14  6d 65 6e 75 5f 74 69 74  |......".menu_tit|
00000330  6c 65 5f 66 67 3d 20 37  0d 01 2c 14 6d 65 6e 75  |le_fg= 7..,.menu|
00000340  5f 74 69 74 6c 65 5f 62  67 3d 20 32 0d 01 36 14  |_title_bg= 2..6.|
00000350  6d 65 6e 75 5f 77 6f 72  6b 5f 66 67 20 3d 20 37  |menu_work_fg = 7|
00000360  0d 01 40 14 6d 65 6e 75  5f 77 6f 72 6b 5f 62 67  |..@.menu_work_bg|
00000370  20 3d 20 30 0d 01 4a 04  0d 01 54 10 f4 20 6d 65  | = 0..J...T.. me|
00000380  6e 75 20 66 6c 61 67 73  0d 01 5e 04 0d 01 68 11  |nu flags..^...h.|
00000390  74 69 63 6b 20 20 20 20  20 3d 26 30 31 0d 01 72  |tick     =&01..r|
000003a0  11 64 6f 74 74 65 64 20  20 20 3d 26 30 32 0d 01  |.dotted   =&02..|
000003b0  7c 11 77 72 69 74 65 61  62 6c 65 3d 26 30 34 0d  ||.writeable=&04.|
000003c0  01 86 11 6c 61 73 74 20  20 20 20 20 3d 26 38 30  |...last     =&80|
000003d0  0d 01 90 14 64 65 66 61  75 6c 74 20 20 3d 26 31  |....default  =&1|
000003e0  30 30 32 31 0d 01 9a 15  73 68 61 64 65 64 20 20  |0021....shaded  |
000003f0  20 3d 26 34 30 30 30 30  30 0d 01 a4 0f 66 69 72  | =&400000....fir|
00000400  73 74 20 20 20 20 3d b9  0d 01 ae 0f 73 65 63 6f  |st    =.....seco|
00000410  6e 64 20 20 20 3d a3 0d  01 b8 0f 73 65 6c 20 20  |nd   =.....sel  |
00000420  20 20 20 20 3d b9 0d 01  c2 04 0d 01 cc 4c f4 20  |    =........L. |
00000430  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000440  2d 2d 2d 2d 20 49 6e 69  74 69 61 6c 69 73 65 20  |---- Initialise |
00000450  56 61 72 69 61 62 6c 65  73 20 2d 2d 2d 2d 2d 2d  |Variables ------|
00000460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000470  2d 2d 2d 2d 2d 2d 0d 01  d6 04 0d 01 e0 1f 63 6c  |------........cl|
00000480  61 69 6d 64 72 61 67 24  3d 22 22 3a 63 6c 61 69  |aimdrag$="":clai|
00000490  6d 6d 65 6e 75 24 3d 22  22 0d 01 ea 17 63 6c 6f  |mmenu$=""....clo|
000004a0  73 65 5f 64 6f 77 6e 20  20 20 20 20 20 3d 20 a3  |se_down      = .|
000004b0  0d 01 f4 04 0d 01 fe 4c  f4 20 2d 2d 2d 2d 2d 2d  |.......L. ------|
000004c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 20 49  |-------------- I|
000004d0  6e 69 74 69 61 6c 69 73  65 20 41 72 72 61 79 73  |nitialise Arrays|
000004e0  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
000004f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000500  0d 02 08 04 0d 02 12 2a  de 20 74 65 78 74 24 28  |.......*. text$(|
00000510  35 29 2c 73 65 74 74 69  6e 67 28 35 29 2c 66 6c  |5),setting(5),fl|
00000520  61 67 73 28 35 29 2c 64  61 74 61 28 35 29 0d 02  |ags(5),data(5)..|
00000530  1c 22 de 20 73 75 62 6d  65 6e 75 28 35 29 2c 72  |.". submenu(5),r|
00000540  65 66 28 35 29 2c 6d 65  6e 75 70 6f 73 28 35 29  |ef(5),menupos(5)|
00000550  0d 02 26 04 0d 02 30 4c  f4 20 2d 2d 2d 2d 2d 2d  |..&...0L. ------|
00000560  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 20 49  |-------------- I|
00000570  6e 69 74 69 61 6c 69 73  65 20 53 74 6f 72 61 67  |nitialise Storag|
00000580  65 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |e --------------|
00000590  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000005a0  0d 02 3a 04 0d 02 44 0f  de 20 6d 65 6e 75 25 20  |..:...D.. menu% |
000005b0  31 30 30 0d 02 4e 13 de  20 69 6e 64 69 72 65 63  |100..N.. indirec|
000005c0  74 25 20 34 30 30 0d 02  58 04 0d 02 62 4c f4 20  |t% 400..X...bL. |
000005d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000005e0  2d 2d 2d 2d 20 4d 69 73  63 65 6c 6c 65 61 6e 6f  |---- Miscelleano|
000005f0  75 73 20 49 6e 69 74 69  61 6c 69 73 61 74 69 6f  |us Initialisatio|
00000600  6e 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |n --------------|
00000610  2d 2d 2d 2d 2d 2d 0d 02  6c 04 0d 02 76 23 69 70  |------..l...v#ip|
00000620  74 72 25 3d 69 6e 64 69  72 65 63 74 25 3a 69 65  |tr%=indirect%:ie|
00000630  6e 64 25 3d 69 70 74 72  25 2b 34 30 30 0d 02 80  |nd%=iptr%+400...|
00000640  04 0d 02 8a 4c f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....L. ---------|
00000650  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 20 4c 6f 61 64  |----------- Load|
00000660  20 54 65 6d 70 6c 61 74  65 20 46 69 6c 65 73 20  | Template Files |
00000670  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000680  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 02 94  |-------------...|
00000690  04 0d 02 9e 2e f2 6f 70  65 6e 74 65 6d 70 6c 61  |......opentempla|
000006a0  74 65 66 69 6c 65 28 22  3c 53 74 61 6d 70 24 44  |tefile("<Stamp$D|
000006b0  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 29 0d  |ir>.Templates").|
000006c0  02 a8 20 f2 6c 6f 61 64  74 65 6d 70 6c 61 74 65  |.. .loadtemplate|
000006d0  28 22 70 72 6f 67 49 6e  66 6f 22 2c 71 25 29 0d  |("progInfo",q%).|
000006e0  02 b2 26 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..&.. "Wimp_Crea|
000006f0  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
00000700  69 6e 66 6f 25 0d 02 bc  16 f2 63 6c 6f 73 65 74  |info%.....closet|
00000710  65 6d 70 6c 61 74 65 66  69 6c 65 0d 02 c6 04 0d  |emplatefile.....|
00000720  02 d0 4c f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..L. -----------|
00000730  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 41 70 70 6c 69 63  |--------- Applic|
00000740  61 74 69 6f 6e 20 49 6e  69 74 69 61 6c 69 73 61  |ation Initialisa|
00000750  74 69 6f 6e 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |tion -----------|
00000760  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 02 da 04 0d  |-----------.....|
00000770  02 e4 16 f4 20 67 6c 6f  62 61 6c 20 76 61 72 69  |.... global vari|
00000780  61 62 6c 65 73 0d 02 ee  04 0d 02 f8 16 63 75 72  |ables........cur|
00000790  72 65 6e 74 5f 66 69 6c  65 24 20 3d 20 22 22 0d  |rent_file$ = "".|
000007a0  03 02 04 0d 03 0c 4c f4  20 2d 2d 2d 2d 2d 2d 2d  |......L. -------|
000007b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 20 44 65  |------------- De|
000007c0  66 69 6e 65 20 49 63 6f  6e 73 20 2d 2d 2d 2d 2d  |fine Icons -----|
000007d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000007e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
000007f0  03 16 04 0d 03 20 28 f2  69 63 6f 6e 5f 70 75 74  |..... (.icon_put|
00000800  64 61 74 61 28 71 25 2c  69 6e 66 6f 25 2c 34 2c  |data(q%,info%,4,|
00000810  76 65 72 73 69 6f 6e 24  2c 30 29 0d 03 2a 04 0d  |version$,0)..*..|
00000820  03 34 4c f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.4L. -----------|
00000830  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 4c 61 75 6e 63 68  |--------- Launch|
00000840  20 49 6e 69 74 69 61 6c  20 57 69 6e 64 6f 77 73  | Initial Windows|
00000850  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000860  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 03 3e 04 0d  |-----------..>..|
00000870  03 48 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |.H... "Hourglass|
00000880  5f 4f 66 66 22 0d 03 52  04 0d 03 5c 4c f4 20 2d  |_Off"..R...\L. -|
00000890  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000008a0  2d 2d 2d 20 45 72 72 6f  72 20 52 6f 75 74 69 6e  |--- Error Routin|
000008b0  65 73 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |es -------------|
000008c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000008d0  2d 2d 2d 2d 2d 0d 03 66  04 0d 03 70 4c f4 20 2d  |-----..f...pL. -|
000008e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000008f0  2d 2d 2d 20 4d 61 69 6e  20 50 72 6f 67 72 61 6d  |--- Main Program|
00000900  20 4c 6f 6f 70 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | Loop ----------|
00000910  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000920  2d 2d 2d 2d 2d 0d 03 7a  04 0d 03 84 05 f5 0d 03  |-----..z........|
00000930  8e 17 20 20 f2 61 63 74  69 6f 6e 28 a4 70 6f 6c  |..  .action(.pol|
00000940  6c 28 31 29 29 0d 03 98  10 fd 20 63 6c 6f 73 65  |l(1))..... close|
00000950  5f 64 6f 77 6e 0d 03 a2  04 0d 03 ac 4c f4 20 2d  |_down.......L. -|
00000960  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000970  2d 2d 2d 20 41 70 70 6c  69 63 61 74 69 6f 6e 20  |--- Application |
00000980  43 6c 6f 73 65 64 6f 77  6e 20 2d 2d 2d 2d 2d 2d  |Closedown ------|
00000990  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000009a0  2d 2d 2d 2d 2d 0d 03 b6  04 0d 03 c0 17 c8 99 20  |-----.......... |
000009b0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000009c0  0d 03 ca 05 e0 0d 03 d4  04 0d 03 de 3c dd f2 63  |............<..c|
000009d0  6c 69 63 6b 77 69 6e 64  6f 77 28 6d 6f 75 73 65  |lickwindow(mouse|
000009e0  78 25 2c 6d 6f 75 73 65  79 25 2c 62 75 74 74 6f  |x%,mousey%,butto|
000009f0  6e 25 2c 68 61 6e 64 6c  65 25 2c 69 63 6f 6e 25  |n%,handle%,icon%|
00000a00  2c 6f 62 25 29 0d 03 e8  10 c8 8e 20 68 61 6e 64  |,ob%)...... hand|
00000a10  6c 65 25 20 ca 0d 03 f2  2f 20 20 c9 20 2d 32 20  |le% ..../  . -2 |
00000a20  20 20 20 20 20 20 20 3a  f2 63 6c 69 63 6b 69 63  |       :.clickic|
00000a30  6f 6e 62 61 72 28 62 75  74 74 6f 6e 25 2c 69 63  |onbar(button%,ic|
00000a40  6f 6e 25 29 0d 03 fc 05  cb 0d 04 06 05 e1 0d 04  |on%)............|
00000a50  10 04 0d 04 1a 21 dd f2  63 6c 69 63 6b 69 63 6f  |.....!..clickico|
00000a60  6e 62 61 72 28 62 75 74  74 6f 6e 25 2c 69 63 6f  |nbar(button%,ico|
00000a70  6e 25 29 0d 04 24 11 e7  20 69 63 6f 6e 25 3c 30  |n%)..$.. icon%<0|
00000a80  20 8c 20 e1 0d 04 2e 0a  c8 8e 20 b9 20 ca 0d 04  | . ....... . ...|
00000a90  38 11 20 20 c9 20 62 75  74 74 6f 6e 25 3d 32 0d  |8.  . button%=2.|
00000aa0  04 42 17 20 20 20 20 e7  20 69 63 6f 6e 25 3d 73  |.B.    . icon%=s|
00000ab0  69 63 6f 6e 20 8c 0d 04  4c 15 20 20 20 20 20 20  |icon ...L.      |
00000ac0  f2 6d 65 6e 75 5f 73 69  63 6f 6e 0d 04 56 09 20  |.menu_sicon..V. |
00000ad0  20 20 20 cd 0d 04 60 05  cb 0d 04 6a 05 e1 0d 04  |   ...`....j....|
00000ae0  74 04 0d 04 7e 0e dd f2  6b 65 79 70 72 65 73 73  |t...~...keypress|
00000af0  0d 04 88 05 e1 0d 04 92  04 0d 04 9c 16 dd a4 6d  |...............m|
00000b00  65 6e 75 73 65 6c 65 63  74 5f 73 69 63 6f 6e 0d  |enuselect_sicon.|
00000b10  04 a6 0f 6c 65 76 65 6c  30 3d 71 25 21 30 0d 04  |...level0=q%!0..|
00000b20  b0 0f c8 8e 20 6c 65 76  65 6c 30 20 ca 0d 04 ba  |.... level0 ....|
00000b30  09 20 20 c9 20 30 0d 04  c4 09 20 20 c9 20 31 0d  |.  . 0....  . 1.|
00000b40  04 ce 14 20 20 20 20 63  6c 6f 73 65 5f 64 6f 77  |...    close_dow|
00000b50  6e 3d b9 0d 04 d8 05 cb  0d 04 e2 06 3d 30 0d 04  |n=..........=0..|
00000b60  ec 04 0d 04 f6 10 dd f2  6d 65 6e 75 5f 73 69 63  |........menu_sic|
00000b70  6f 6e 0d 05 00 1a 6e 6f  3d 30 3a c8 97 20 78 2c  |on....no=0:.. x,|
00000b80  79 2c 62 20 3a 79 3d 79  2b 31 30 30 0d 05 0a 0b  |y,b :y=y+100....|
00000b90  f4 20 6d 65 6e 75 30 0d  05 14 3e f2 64 65 66 69  |. menu0...>.defi|
00000ba0  6e 65 5f 6d 65 6e 75 5f  74 65 78 74 28 22 49 6e  |ne_menu_text("In|
00000bb0  66 6f 22 2c 6e 6f 2c 30  2c 30 2c 30 2c 30 2c 64  |fo",no,0,0,0,0,d|
00000bc0  65 66 61 75 6c 74 2c 69  6e 66 6f 25 2c 30 29 3a  |efault,info%,0):|
00000bd0  6e 6f 2b 3d 31 0d 05 1e  3b f2 64 65 66 69 6e 65  |no+=1...;.define|
00000be0  5f 6d 65 6e 75 5f 74 65  78 74 28 22 51 75 69 74  |_menu_text("Quit|
00000bf0  22 2c 6e 6f 2c 30 2c 30  2c 30 2c 30 2c 64 65 66  |",no,0,0,0,0,def|
00000c00  61 75 6c 74 2c 30 2c 2d  31 29 3a 6e 6f 2b 3d 31  |ault,0,-1):no+=1|
00000c10  0d 05 28 20 f2 63 72 65  61 74 65 5f 6d 65 6e 75  |..( .create_menu|
00000c20  28 22 53 74 61 6d 70 22  2c 6e 6f 2c 78 2c 79 29  |("Stamp",no,x,y)|
00000c30  0d 05 32 0e 6d 65 6e 75  5f 6e 72 25 3d 30 0d 05  |..2.menu_nr%=0..|
00000c40  3c 16 63 6c 61 69 6d 6d  65 6e 75 24 3d 22 73 69  |<.claimmenu$="si|
00000c50  63 6f 6e 22 0d 05 46 05  e1 0d 05 50 04 0d 05 5a  |con"..F....P...Z|
00000c60  11 dd f2 64 61 74 61 6c  6f 61 64 28 62 29 0d 05  |...dataload(b)..|
00000c70  64 1f 63 75 72 72 65 6e  74 5f 66 69 6c 65 24 3d  |d.current_file$=|
00000c80  a4 67 6e 61 6d 65 28 71  25 2b 34 34 29 0d 05 6e  |.gname(q%+44)..n|
00000c90  11 e7 20 62 21 34 30 3c  34 30 39 36 20 8c 0d 05  |.. b!40<4096 ...|
00000ca0  78 1f 20 20 ff 28 22 53  54 41 4d 50 20 22 2b 63  |x.  .("STAMP "+c|
00000cb0  75 72 72 65 6e 74 5f 66  69 6c 65 24 29 0d 05 82  |urrent_file$)...|
00000cc0  05 cd 0d 05 8c 05 e1 0d  05 96 04 0d 05 a0 10 dd  |................|
00000cd0  f2 61 63 6b 6c 6f 61 64  28 62 29 0d 05 aa 05 e1  |.ackload(b).....|
00000ce0  0d 05 b4 04 0d 05 be 0c  dd f2 66 69 6e 69 73 68  |..........finish|
00000cf0  0d 05 c8 17 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000d00  73 65 44 6f 77 6e 22 0d  05 d2 05 e1 0d 05 dc 04  |seDown".........|
00000d10  0d 05 e6 10 dd f2 63 6c  6f 73 65 5f 64 6f 77 6e  |......close_down|
00000d20  0d 05 f0 17 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000d30  73 65 44 6f 77 6e 22 0d  05 fa 08 eb 20 31 32 0d  |seDown"..... 12.|
00000d40  06 04 0a 2a 46 58 34 2c  30 0d 06 0e 0c 2a 46 58  |...*FX4,0....*FX|
00000d50  32 32 30 2c 30 0d 06 18  05 e1 0d 06 22 04 0d 06  |220,0......."...|
00000d60  2c 11 dd a4 70 6f 6c 6c  28 6d 61 73 6b 25 29 0d  |,...poll(mask%).|
00000d70  06 36 20 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |.6 .. "Wimp_Poll|
00000d80  22 2c 6d 61 73 6b 25 2c  71 25 20 b8 20 61 25 0d  |",mask%,q% . a%.|
00000d90  06 40 07 3d 61 25 0d 06  4a 04 0d 06 54 13 dd f2  |.@.=a%..J...T...|
00000da0  61 63 74 69 6f 6e 28 65  76 6e 74 25 29 0d 06 5e  |action(evnt%)..^|
00000db0  0e c8 8e 20 65 76 6e 74  25 20 ca 0d 06 68 37 20  |... evnt% ...h7 |
00000dc0  20 c9 20 36 3a f2 63 6c  69 63 6b 77 69 6e 64 6f  | . 6:.clickwindo|
00000dd0  77 28 21 71 25 2c 71 25  21 34 2c 71 25 21 38 2c  |w(!q%,q%!4,q%!8,|
00000de0  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
00000df0  30 29 0d 06 72 3f 20 20  c9 20 39 3a e7 20 63 6c  |0)..r?  . 9:. cl|
00000e00  61 69 6d 6d 65 6e 75 24  3c 3e 22 22 20 8c 20 6a  |aimmenu$<>"" . j|
00000e10  75 6e 6b 3d a0 28 22 46  4e 6d 65 6e 75 73 65 6c  |unk=.("FNmenusel|
00000e20  65 63 74 5f 22 2b 63 6c  61 69 6d 6d 65 6e 75 24  |ect_"+claimmenu$|
00000e30  29 0d 06 7c 1a 20 20 c9  20 31 37 2c 31 38 3a f2  |)..|.  . 17,18:.|
00000e40  72 65 63 65 69 76 65 28  71 25 29 0d 06 86 05 cb  |receive(q%).....|
00000e50  0d 06 90 05 e1 0d 06 9a  04 0d 06 a4 11 dd f2 72  |...............r|
00000e60  65 63 65 69 76 65 28 71  25 29 0d 06 ae 0e c8 8e  |eceive(q%)......|
00000e70  20 71 25 21 31 36 20 ca  0d 06 b8 14 c9 20 30 20  | q%!16 ...... 0 |
00000e80  20 20 3a f2 66 69 6e 69  73 68 3a e0 0d 06 c2 18  |  :.finish:.....|
00000e90  c9 20 32 20 20 20 3a f2  64 61 74 61 73 61 76 65  |. 2   :.datasave|
00000ea0  28 71 25 29 0d 06 cc 24  c9 20 33 2c 35 20 3a e7  |(q%)...$. 3,5 :.|
00000eb0  20 71 25 21 31 32 3d 30  20 8c 20 f2 64 61 74 61  | q%!12=0 . .data|
00000ec0  6c 6f 61 64 28 71 25 29  0d 06 d6 20 c9 20 26 35  |load(q%)... . &5|
00000ed0  30 32 3a f2 69 6e 74 65  72 61 63 74 69 76 65 5f  |02:.interactive_|
00000ee0  68 65 6c 70 28 71 25 29  0d 06 e0 05 cb 0d 06 ea  |help(q%)........|
00000ef0  05 e1 0d 06 f4 04 0d 06  fe 32 dd f2 64 65 66 69  |.........2..defi|
00000f00  6e 65 5f 6d 65 6e 75 5f  74 65 78 74 28 74 65 78  |ne_menu_text(tex|
00000f10  74 24 2c 6e 2c 77 2c 74  2c 64 2c 73 2c 66 6c 61  |t$,n,w,t,d,s,fla|
00000f20  67 73 2c 73 6d 2c 6c 29  0d 07 08 12 74 65 78 74  |gs,sm,l)....text|
00000f30  24 28 6e 29 3d 74 65 78  74 24 0d 07 12 10 73 65  |$(n)=text$....se|
00000f40  74 74 69 6e 67 28 6e 29  3d 30 0d 07 1c 3e e7 20  |tting(n)=0...>. |
00000f50  77 20 8c 20 73 65 74 74  69 6e 67 28 6e 29 3d 73  |w . setting(n)=s|
00000f60  65 74 74 69 6e 67 28 6e  29 20 84 20 77 72 69 74  |etting(n) . writ|
00000f70  65 61 62 6c 65 3a 66 6c  61 67 73 3d 66 6c 61 67  |eable:flags=flag|
00000f80  73 20 84 20 26 31 30 30  0d 07 26 26 e7 20 74 20  |s . &100..&&. t |
00000f90  8c 20 73 65 74 74 69 6e  67 28 6e 29 3d 73 65 74  |. setting(n)=set|
00000fa0  74 69 6e 67 28 6e 29 20  84 20 74 69 63 6b 0d 07  |ting(n) . tick..|
00000fb0  30 28 e7 20 64 20 8c 20  73 65 74 74 69 6e 67 28  |0(. d . setting(|
00000fc0  6e 29 3d 73 65 74 74 69  6e 67 28 6e 29 20 84 20  |n)=setting(n) . |
00000fd0  64 6f 74 74 65 64 0d 07  3a 26 e7 20 6c 20 8c 20  |dotted..:&. l . |
00000fe0  73 65 74 74 69 6e 67 28  6e 29 3d 73 65 74 74 69  |setting(n)=setti|
00000ff0  6e 67 28 6e 29 20 84 20  6c 61 73 74 0d 07 44 1e  |ng(n) . last..D.|
00001000  e7 20 73 20 8c 20 66 6c  61 67 73 3d 66 6c 61 67  |. s . flags=flag|
00001010  73 20 84 20 73 68 61 64  65 64 0d 07 4e 12 66 6c  |s . shaded..N.fl|
00001020  61 67 73 28 6e 29 3d 66  6c 61 67 73 0d 07 58 11  |ags(n)=flags..X.|
00001030  73 75 62 6d 65 6e 75 28  6e 29 3d 73 6d 0d 07 62  |submenu(n)=sm..b|
00001040  05 e1 0d 07 6c 04 0d 07  76 1f dd f2 63 72 65 61  |....l...v...crea|
00001050  74 65 5f 6d 65 6e 75 28  74 69 74 6c 65 24 2c 6e  |te_menu(title$,n|
00001060  2c 78 2c 79 29 0d 07 80  0d 6d 62 25 3d 6d 65 6e  |,x,y)....mb%=men|
00001070  75 25 0d 07 8a 0f 6d 65  6e 75 73 3d 30 3a 71 3d  |u%....menus=0:q=|
00001080  30 0d 07 94 05 f5 0d 07  9e 21 20 20 6d 65 6e 75  |0........!  menu|
00001090  70 6f 73 28 6d 65 6e 75  73 29 3d 6d 62 25 3a 6d  |pos(menus)=mb%:m|
000010a0  65 6e 75 73 2b 3d 31 0d  07 a8 11 20 20 24 6d 62  |enus+=1....  $mb|
000010b0  25 3d 74 69 74 6c 65 24  0d 07 b2 1a 20 20 6d 62  |%=title$....  mb|
000010c0  25 3f 31 32 3d 6d 65 6e  75 5f 74 69 74 6c 65 5f  |%?12=menu_title_|
000010d0  66 67 0d 07 bc 1a 20 20  6d 62 25 3f 31 33 3d 6d  |fg....  mb%?13=m|
000010e0  65 6e 75 5f 74 69 74 6c  65 5f 62 67 0d 07 c6 19  |enu_title_bg....|
000010f0  20 20 6d 62 25 3f 31 34  3d 6d 65 6e 75 5f 77 6f  |  mb%?14=menu_wo|
00001100  72 6b 5f 66 67 0d 07 d0  19 20 20 6d 62 25 3f 31  |rk_fg....  mb%?1|
00001110  35 3d 6d 65 6e 75 5f 77  6f 72 6b 5f 62 67 0d 07  |5=menu_work_bg..|
00001120  da 26 20 20 6d 62 25 21  31 36 3d 31 30 30 3a f4  |.&  mb%!16=100:.|
00001130  20 77 69 64 74 68 20 6f  66 20 6d 65 6e 75 20 69  | width of menu i|
00001140  74 65 6d 73 0d 07 e4 27  20 20 6d 62 25 21 32 30  |tems...'  mb%!20|
00001150  3d 34 30 20 3a f4 20 68  65 69 67 68 74 20 6f 66  |=40 :. height of|
00001160  20 6d 65 6e 75 20 69 74  65 6d 73 0d 07 ee 41 20  | menu items...A |
00001170  20 6d 62 25 21 32 34 3d  31 30 20 3a f4 20 76 65  | mb%!24=10 :. ve|
00001180  72 74 69 63 61 6c 20 67  61 70 20 62 65 74 77 65  |rtical gap betwe|
00001190  65 6e 20 69 74 65 6d 73  20 28 61 6c 73 6f 20 74  |en items (also t|
000011a0  6f 70 20 26 20 62 6f 74  74 6f 6d 29 0d 07 f8 14  |op & bottom)....|
000011b0  20 20 69 74 65 6d 70 74  72 3d 6d 62 25 2b 32 38  |  itemptr=mb%+28|
000011c0  0d 08 02 07 20 20 f5 0d  08 0c 1c 20 20 20 20 69  |....  .....    i|
000011d0  74 65 6d 70 74 72 21 30  3d 73 65 74 74 69 6e 67  |temptr!0=setting|
000011e0  28 71 29 0d 08 16 18 20  20 20 20 72 65 66 28 71  |(q)....    ref(q|
000011f0  29 3d 69 74 65 6d 70 74  72 2b 34 0d 08 20 40 20  |)=itemptr+4.. @ |
00001200  20 20 20 69 74 65 6d 70  74 72 21 38 3d 66 6c 61  |   itemptr!8=fla|
00001210  67 73 28 71 29 20 84 20  6d 65 6e 75 5f 77 6f 72  |gs(q) . menu_wor|
00001220  6b 5f 62 67 3c 3c 32 38  20 84 20 6d 65 6e 75 5f  |k_bg<<28 . menu_|
00001230  77 6f 72 6b 5f 66 67 3c  3c 32 34 0d 08 2a 1f 20  |work_fg<<24..*. |
00001240  20 20 20 e7 20 28 66 6c  61 67 73 28 71 29 20 80  |   . (flags(q) .|
00001250  20 26 31 30 30 29 3d 30  20 8c 0d 08 34 20 20 20  | &100)=0 ...4   |
00001260  20 20 20 20 24 28 69 74  65 6d 70 74 72 2b 31 32  |    $(itemptr+12|
00001270  29 3d 74 65 78 74 24 28  71 29 0d 08 3e 09 20 20  |)=text$(q)..>.  |
00001280  20 20 cc 0d 08 48 1c 20  20 20 20 20 20 70 6f 73  |  ...H.      pos|
00001290  3d a7 74 65 78 74 24 28  71 29 2c 22 28 22 29 0d  |=.text$(q),"(").|
000012a0  08 52 28 20 20 20 20 20  20 69 74 65 6d 70 74 72  |.R(      itemptr|
000012b0  21 31 32 3d a0 28 c0 74  65 78 74 24 28 71 29 2c  |!12=.(.text$(q),|
000012c0  70 6f 73 2d 31 29 29 0d  08 5c 17 20 20 20 20 20  |pos-1))..\.     |
000012d0  20 69 74 65 6d 70 74 72  21 31 36 3d 2d 31 0d 08  | itemptr!16=-1..|
000012e0  66 32 20 20 20 20 20 20  69 74 65 6d 70 74 72 21  |f2      itemptr!|
000012f0  32 30 3d a0 28 c2 74 65  78 74 24 28 71 29 2c a9  |20=.(.text$(q),.|
00001300  28 74 65 78 74 24 28 71  29 29 2d 70 6f 73 29 29  |(text$(q))-pos))|
00001310  0d 08 70 09 20 20 20 20  cd 0d 08 7a 18 20 20 20  |..p.    ...z.   |
00001320  20 69 74 65 6d 70 74 72  2b 3d 32 34 3a 71 2b 3d  | itemptr+=24:q+=|
00001330  31 0d 08 84 1f 20 20 fd  20 28 73 65 74 74 69 6e  |1....  . (settin|
00001340  67 28 71 2d 31 29 20 80  20 6c 61 73 74 29 3e 30  |g(q-1) . last)>0|
00001350  0d 08 8e 11 20 20 6d 62  25 3d 69 74 65 6d 70 74  |....  mb%=itempt|
00001360  72 0d 08 98 23 20 20 e7  20 71 3c 3e 6e 20 8c 20  |r...#  . q<>n . |
00001370  74 69 74 6c 65 24 3d 74  65 78 74 24 28 71 29 3a  |title$=text$(q):|
00001380  71 2b 3d 31 0d 08 a2 09  fd 20 71 3d 6e 0d 08 ac  |q+=1..... q=n...|
00001390  04 0d 08 b6 0f e3 20 71  3d 30 20 b8 20 6e 2d 31  |...... q=0 . n-1|
000013a0  0d 08 c0 29 20 20 e7 20  73 75 62 6d 65 6e 75 28  |...)  . submenu(|
000013b0  71 29 3e 30 20 80 20 73  75 62 6d 65 6e 75 28 71  |q)>0 . submenu(q|
000013c0  29 3c 6d 65 6e 75 73 20  8c 0d 08 ca 23 20 20 20  |)<menus ....#   |
000013d0  20 21 72 65 66 28 71 29  3d 6d 65 6e 75 70 6f 73  | !ref(q)=menupos|
000013e0  28 73 75 62 6d 65 6e 75  28 71 29 29 0d 08 d4 07  |(submenu(q))....|
000013f0  20 20 cc 0d 08 de 48 20  20 20 20 21 72 65 66 28  |  ....H    !ref(|
00001400  71 29 3d 73 75 62 6d 65  6e 75 28 71 29 3a f4 20  |q)=submenu(q):. |
00001410  77 61 73 20 2d 31 20 69  2e 65 2e 20 73 75 62 6d  |was -1 i.e. subm|
00001420  65 6e 75 20 64 69 73 61  6c 6c 6f 77 65 64 21 20  |enu disallowed! |
00001430  54 68 69 73 20 63 68 61  6e 67 65 0d 08 e8 3e 20  |This change...> |
00001440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001450  20 20 20 20 20 3a f4 20  61 6c 6c 6f 77 73 20 61  |     :. allows a|
00001460  20 77 69 6e 64 6f 77 20  68 61 6e 64 6c 65 20 74  | window handle t|
00001470  6f 20 62 65 20 75 73 65  64 0d 08 f2 07 20 20 cd  |o be used....  .|
00001480  0d 08 fc 07 ed 20 71 0d  09 06 28 c8 99 20 22 57  |..... q...(.. "W|
00001490  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000014a0  2c 6d 65 6e 75 25 2c 78  2d 32 30 2c 31 39 30 0d  |,menu%,x-20,190.|
000014b0  09 10 05 e1 0d 09 1a 04  0d 09 24 10 dd a4 6d 61  |..........$...ma|
000014c0  78 28 61 25 2c 62 25 29  0d 09 2e 17 e7 20 61 25  |x(a%,b%)..... a%|
000014d0  3c 62 25 20 8c 20 3d 62  25 20 8b 20 3d 61 25 0d  |<b% . =b% . =a%.|
000014e0  09 38 04 0d 09 42 1d dd  f2 6f 70 65 6e 74 65 6d  |.8...B...opentem|
000014f0  70 6c 61 74 65 66 69 6c  65 28 66 69 6c 65 24 29  |platefile(file$)|
00001500  0d 09 4c 21 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..L!.. "Wimp_Ope|
00001510  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 66 69 6c 65  |nTemplate",,file|
00001520  24 0d 09 56 05 e1 0d 09  60 04 0d 09 6a 1b dd f2  |$..V....`...j...|
00001530  6c 6f 61 64 74 65 6d 70  6c 61 74 65 28 6e 61 6d  |loadtemplate(nam|
00001540  65 24 2c 62 29 0d 09 74  13 ea 20 74 79 70 65 25  |e$,b)..t.. type%|
00001550  2c 70 6f 73 25 2c 78 25  0d 09 7e 4b c8 99 20 22  |,pos%,x%..~K.. "|
00001560  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00001570  65 22 2c 2c 62 2c 69 70  74 72 25 2c 69 65 6e 64  |e",,b,iptr%,iend|
00001580  25 2c 2d 31 2c 6e 61 6d  65 24 2c 30 20 b8 20 74  |%,-1,name$,0 . t|
00001590  79 70 65 25 2c 2c 69 70  74 72 25 2c 2c 2c 2c 70  |ype%,,iptr%,,,,p|
000015a0  6f 73 25 0d 09 88 05 e1  0d 09 92 04 0d 09 9c 17  |os%.............|
000015b0  dd f2 63 6c 6f 73 65 74  65 6d 70 6c 61 74 65 66  |..closetemplatef|
000015c0  69 6c 65 0d 09 a6 1b c8  99 20 22 57 69 6d 70 5f  |ile...... "Wimp_|
000015d0  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 09  |CloseTemplate"..|
000015e0  b0 05 e1 0d 09 ba 04 0d  09 c4 36 dd a4 73 70 72  |..........6..spr|
000015f0  69 74 65 69 63 6f 6e 28  77 69 6e 64 6f 77 2c 78  |iteicon(window,x|
00001600  30 2c 79 30 2c 78 31 2c  79 31 2c 66 6c 61 67 73  |0,y0,x1,y1,flags|
00001610  2c 73 70 74 72 2c 73 6e  61 6d 65 24 29 0d 09 ce  |,sptr,sname$)...|
00001620  20 de 20 71 25 21 32 34  20 a9 73 6e 61 6d 65 24  | . q%!24 .sname$|
00001630  2b 31 3a 71 25 21 32 38  3d 73 70 74 72 0d 09 d8  |+1:q%!28=sptr...|
00001640  21 71 25 21 33 32 3d a9  73 6e 61 6d 65 24 2b 31  |!q%!32=.sname$+1|
00001650  3a 24 71 25 21 32 34 3d  73 6e 61 6d 65 24 0d 09  |:$q%!24=sname$..|
00001660  e2 27 3d a4 69 63 6f 6e  62 6c 6b 28 77 69 6e 64  |.'=.iconblk(wind|
00001670  6f 77 2c 78 30 2c 79 30  2c 78 31 2c 79 31 2c 66  |ow,x0,y0,x1,y1,f|
00001680  6c 61 67 73 29 0d 09 ec  04 0d 09 f6 27 dd a4 69  |lags).......'..i|
00001690  63 6f 6e 62 6c 6b 28 77  69 6e 64 6f 77 2c 78 30  |conblk(window,x0|
000016a0  2c 79 30 2c 78 31 2c 79  31 2c 66 6c 61 67 73 29  |,y0,x1,y1,flags)|
000016b0  0d 0a 00 0a ea 20 69 63  6f 6e 0d 0a 0a 0e 21 71  |..... icon....!q|
000016c0  25 3d 77 69 6e 64 6f 77  0d 0a 14 13 71 25 21 34  |%=window....q%!4|
000016d0  3d 78 30 3a 71 25 21 38  3d 79 30 0d 0a 1e 15 71  |=x0:q%!8=y0....q|
000016e0  25 21 31 32 3d 78 31 3a  71 25 21 31 36 3d 79 31  |%!12=x1:q%!16=y1|
000016f0  0d 0a 28 0f 71 25 21 32  30 3d 66 6c 61 67 73 0d  |..(.q%!20=flags.|
00001700  0a 32 23 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.2#.. "Wimp_Crea|
00001710  74 65 49 63 6f 6e 22 2c  2c 71 25 20 b8 20 69 63  |teIcon",,q% . ic|
00001720  6f 6e 0d 0a 3c 09 3d 69  63 6f 6e 0d 0a 46 04 0d  |on..<.=icon..F..|
00001730  0a 50 10 dd a4 67 6e 61  6d 65 28 70 74 72 29 0d  |.P...gname(ptr).|
00001740  0a 5a 09 66 24 3d 22 22  0d 0a 64 19 c8 95 20 3f  |.Z.f$=""..d... ?|
00001750  70 74 72 3c 3e 30 20 80  20 3f 70 74 72 3c 3e 31  |ptr<>0 . ?ptr<>1|
00001760  33 0d 0a 6e 18 20 20 66  24 3d 66 24 2b bd 3f 70  |3..n.  f$=f$+.?p|
00001770  74 72 3a 70 74 72 2b 3d  31 0d 0a 78 05 ce 0d 0a  |tr:ptr+=1..x....|
00001780  82 07 3d 66 24 0d 0a 8c  04 0d 0a 96 35 dd f2 69  |..=f$.......5..i|
00001790  63 6f 6e 5f 70 75 74 64  61 74 61 28 71 25 2c 77  |con_putdata(q%,w|
000017a0  68 61 6e 64 6c 65 25 2c  69 68 61 6e 64 6c 65 25  |handle%,ihandle%|
000017b0  2c 64 61 74 61 24 2c 72  65 64 72 61 77 29 0d 0a  |,data$,redraw)..|
000017c0  a0 11 71 25 21 30 3d 77  68 61 6e 64 6c 65 25 0d  |..q%!0=whandle%.|
000017d0  0a aa 11 71 25 21 34 3d  69 68 61 6e 64 6c 65 25  |...q%!4=ihandle%|
000017e0  0d 0a b4 1e c8 99 20 22  57 69 6d 70 5f 47 65 74  |...... "Wimp_Get|
000017f0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 0a  |IconState",,q%..|
00001800  be 12 24 28 71 25 21 32  38 29 3d 64 61 74 61 24  |..$(q%!28)=data$|
00001810  0d 0a c8 0e e7 20 72 65  64 72 61 77 20 8c 0d 0a  |..... redraw ...|
00001820  d2 39 c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |.9.. "Wimp_Force|
00001830  52 65 64 72 61 77 22 2c  77 68 61 6e 64 6c 65 25  |Redraw",whandle%|
00001840  2c 71 25 21 38 2c 71 25  21 31 32 2c 71 25 21 31  |,q%!8,q%!12,q%!1|
00001850  36 2c 71 25 21 32 30 0d  0a dc 05 cd 0d 0a e6 05  |6,q%!20.........|
00001860  e1 0d 0a f0 04 0d 0a fa  1a dd f2 69 6e 74 65 72  |...........inter|
00001870  61 63 74 69 76 65 5f 68  65 6c 70 28 71 25 29 0d  |active_help(q%).|
00001880  0b 04 08 ea 20 74 24 0d  0b 0e 0e c8 8e 20 71 25  |.... t$...... q%|
00001890  21 33 32 20 ca 0d 0b 18  08 c9 20 2d 32 0d 0b 22  |!32 ...... -2.."|
000018a0  79 20 20 74 24 3d 22 54  68 69 73 20 69 73 20 74  |y  t$="This is t|
000018b0  68 65 20 53 74 61 6d 70  20 69 63 6f 6e 2e 7c 4d  |he Stamp icon.|M|
000018c0  44 72 61 67 67 69 6e 67  20 61 20 66 69 6c 65 20  |Dragging a file |
000018d0  74 6f 20 74 68 69 73 20  69 63 6f 6e 20 77 69 6c  |to this icon wil|
000018e0  6c 20 64 61 74 65 20 73  74 61 6d 70 20 74 68 65  |l date stamp the|
000018f0  20 66 69 6c 65 20 77 69  74 68 20 74 68 65 20 63  | file with the c|
00001900  75 72 72 65 6e 74 20 74  69 6d 65 20 61 6e 64 20  |urrent time and |
00001910  64 61 74 65 2e 22 0d 0b  2c 05 cb 0d 0b 36 0e e7  |date."..,....6..|
00001920  20 74 24 3c 3e 22 22 20  8c 0d 0b 37 10 20 20 71  | t$<>"" ...7.  q|
00001930  25 21 31 32 3d 71 25 21  38 0d 0b 38 10 20 20 71  |%!12=q%!8..8.  q|
00001940  25 21 31 36 3d 26 35 30  33 0d 0b 39 14 20 20 24  |%!16=&503..9.  $|
00001950  28 71 25 2b 32 30 29 3d  74 24 2b bd 30 0d 0b 3a  |(q%+20)=t$+.0..:|
00001960  18 20 20 21 71 25 3d 28  32 35 2b a9 74 24 29 20  |.  !q%=(25+.t$) |
00001970  80 20 ac 20 33 0d 0b 3b  26 20 20 c8 99 20 22 57  |. . 3..;&  .. "W|
00001980  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001990  2c 31 37 2c 71 25 2c 71  25 21 34 0d 0b 3c 05 cd  |,17,q%,q%!4..<..|
000019a0  0d 0b 54 05 e1 0d ff                              |..T....|
000019a7