Home » Archimedes archive » Zipped Apps » Notes » !Notes/!RunImage
!Notes/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Zipped Apps » Notes |
| Filename: | !Notes/!RunImage |
| Read OK: | ✔ |
| File size: | 2788 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
H ��H��H ��0�0� P�� ���� �� �Basic � -quit @00009000,0000B72C 0' �� ,�
� > !RunImage
�
version$="1.00 (5-May-89)"
(�initialise
2� � �error
<�
F ș"Wimp_Poll",0,q1% � r%
P Ȏ r% �
Z � 0 : �active% �
d active%=�
n1 ș "Wimp_GetCaretPosition",,q1%
x5 ș "Wimp_SendMessage",3,q1%,!q1%,-1
� �
�2 �printfile%<>0 �print(printfile%)
�& � 2 : ș"Wimp_OpenWindow",,q1%
�' � 3 : ș"Wimp_CloseWindow",,q1%
� � 6 : �mouseclick
� � 9 : �menuselect
� � 17,18: �receive(r%)
� � 19 : �ack
� �
�� �
��
�:
���initialise
� c%,i%
� ws% 256:wsend%=ws%+256
*� menufree% 512:menuend%=menufree%+512
"� q1% 256, q2% 512
, � f$(50)
64ș"Wimp_Initialise",200,&4B534154,"Notes system"
@2ș"Wimp_OpenTemplate",,"<Notes$Dir>.Templates"
J=ș"Wimp_LoadTemplate",,q2%,ws%,wsend%,-1,"info",0 � ,,ws%
T $(q2%!(88+96+20))=version$
^&ș"Wimp_CreateWindow",,q2% � info%
hș"Wimp_CloseTemplate"
r� name% 11
|cmenu%=�crmenu
� � "#Selection,current,all"
�nmenu%=�crmenu
� � "#Name,$name%(11)"
�mainmenu%=�crmenu
�6 � "#Notes,Info>info%,Add>nmenu%,Delete>cmenu%,++"
�3 � "View>cmenu%,Print>cmenu%,Purge>cmenu%,Quit"
��load_config
�� p1% 10:$p1%="s!notes"
� � p2% 10:$p2%=f$(current%)
� !q1%=-1
� q1%!4=0
�
q1%!8=-16
�q1%!12=161
q1%!16=88
q1%!20=&1700312B
q1%!24=p2%
&q1%!28=p1%
0
q1%!32=10
:"ș"Wimp_CreateIcon",,q1% � ic%
Dprintfile%=0
Nerror_flag%=3
X
active%=�
b
unsafe%=�
l�
v:
���mouseclick
�� p%
��q1%!8 � 2 �
�1 �q1%!12=-2 �domenu(mainmenu%,!q1%-64,96+308)
��
� �(q1%!8 � 5)�(entries%<>0) �
� �q1%!8 � 4 �
� current%+=1
�# �current%>entries% current%=1
� �
� current%-=1
�# �current%<1 current%=entries%
� �
�update_icon
�
�
:
*��update_icon
4$p2%=f$(current%)
>A!q1%=-1:q1%!4=ic%:q1%!8=0:q1%!12=0:ș"Wimp_SetIconState",,q1%
H�
R:
\��domenu(h%,x%,y%)
f$menudata%=h%:menux%=x%:menuy%=y%
p
$name%=""
z!ș"Wimp_CreateMenu",,h%,x%,y%
��
�:
���menuselect
� � a$,i%
�8ș"Wimp_DecodeMenu",,menudata%,q1%,�200," ") � ,,,a$
� �a$="" �
��a$="Quit" �shutdown:�
��a$,4)="Add." �
� a$=�a$,5)
�= i%=�("<Notes$Dir>.Categories."+a$):� check for existence
�/ �i%<>0 �#i%:�ok("Category already exists")
� entries%+=1
� f$(entries%)=a$
�purge(entries%)
�entries%=1 current%=1
�save_config
$�
.�a$="Delete.current" �
8/ error_flag%=1:� OK if we get an error next
B3 �"Remove <Notes$Dir>.Categories."+f$(current%)
L error_flag%=3
V f$(current%)="":entries%-=1
` �save_config
j�
t�a$="Delete.all" �
~/ error_flag%=1:� OK if we get an error next
� �i%=1�entries%
�. �"Remove <Notes$Dir>.Categories."+f$(i%)
� �
� error_flag%=3
� entries%=0
� �save_config
��
�&�a$="View.current" �view(current%)
�-�a$="View.all" �i%=1�entries%:�view(i%):�
�)�a$="Print.current" �print(-current%)
� �a$="Print.all" �print(1)
�(�a$="Purge.current" �purge(current%)
/�a$="Purge.all" �i%=1�entries%:�purge(i%):�
ș"Wimp_GetPointerInfo",,q1%
3�(q1%!8 � 1) � �domenu(menudata%,menux%,menuy%)
�
(:
2��view(i%)
<� c%
F q1%!12=0
P q1%!16=5
Z'q1%!20=0:q1%!24=0:q1%!28=0:q1%!32=0
d
q1%!36=-1
nq1%!40=&FFF
x.$(q1%+44)="<Notes$Dir>.Categories."+f$(i%)
� c%=�$(q1%+44):q1%?(44+c%)=0
�!q1%=47+c%+1��3
�!ș"Wimp_SendMessage",18,q1%,0
��
�:
���print(i%)
�� c%
�printfile%=i%
� q1%!12=0
�q1%!16=&80142
�'q1%!20=0:q1%!24=0:q1%!28=0:q1%!32=0
� q1%!36=1
�q1%!40=&FFF
1$(q1%+44)="<Notes$Dir>.Categories."+f$(�(i%))
c%=�$(q1%+44):q1%?(44+c%)=0
!q1%=47+c%+1��3
"!ș"Wimp_SendMessage",18,q1%,0
,�
6:
@��purge(i%)
Jerror_flag%=1
T.�("Create <Notes$Dir>.Categories."+f$(i%))
^error_flag%=3
h7�("Settype <Notes$Dir>.Categories."+f$(i%)+" Text")
r�
|:
���save_config
� � i%,c%
�error_flag%=1
��entries%=0 �
� *Remove <Notes$Dir>.!Config
��
� c%=�"<Notes$Dir>.!Config"
� �i%=1 � 50
� �f$(i%)<>"" �#c%,f$(i%)
� �
� �#c%
��
�error_flag%=3
�load_config
�update_icon
�
&:
0��load_config
: � i%,c%
Dentries%=0
Ncurrent%=0
X f$()=""
bf$(0)="<No files>"
l c%=�"<Notes$Dir>.!Config"
v �c%<>0 �
� current%=1
� ȕ � �#c%
� entries%+=1
� �#c%,f$(entries%)
� �
� �#c%
��
� �entries%<>0 i%=0 � i%=-1
� �set_shade(mainmenu%,2,i%)
� �set_shade(mainmenu%,3,i%)
� �set_shade(mainmenu%,4,i%)
� �set_shade(mainmenu%,5,i%)
��entries%=50 �
�set_shade(mainmenu%,1,-1)
�
�set_shade(mainmenu%,1,0)
�
*�
4:
>ݤrtoz(p%)
H� q$
R ȕ ?p%<>0 q$+=�?p%:p%+=1:�
\=q$
f:
p ��ack
z.�q1%!16=5 ș"Wimp_StartTask",�rtoz(q1%+44)
�D�q1%!16=&80142 printfile%=0:�ok("No printer manager installed.")
��
�:
���receive(r%)
�� C%,D%,E%,F$,G%
�Ȏ q1%!16 �
��0: �shutdown:�
�+�1: � file dropped from !Edit onto icon
�B �current%=0 �ok("Define a category before saving data")
� unsafe%=�
�) $(q1%+44)="<Wimp$Scrap>":C%=13
�( q1%?(44+C%)=0:!q1%=47+C%+1��3
�? q1%!16=2:q1%!12=q1%!8:q1%!36=1:� imply data is safe!
- ș "Wimp_SendMessage",17,q1%,q1%!4
-�2: � printer manager ready to print file
P �("Copy <Notes$Dir>.Categories."+f$(�(printfile%))+" "+�rtoz(q1%+44))
$ q1%!16=3:q1%!12=q1%!8
.- ș "Wimp_SendMessage",17,q1%,q1%!4
8H �printfile%>0 printfile%+=1:�printfile%>entries% printfile%=0
B% �printfile%<0 printfile%=0
L;�3: � !Edit has saved file - transfer data to note file
VB �current%=0 �ok("Define a category before saving data")
` E%=0:G%=�
j F$=�rtoz(q1%+44)
t �
~- � try to open the file for update
�K ș"XOS_Find",&C0,"<Notes$Dir>.Categories."+f$(current%) � C%;D%
� �D%�1 �
�7 C%=0:� if already open, reset handle & ...
�( G%=�:� open up error window
� !q2%=1
�R $(q2%+4)="The notes file is currently open. Wait for it to close?"+�0
�; ș"Wimp_ReportError",q2%,%110011,"Notes" � ,E%
� �E%=1 �
�+ E%=�:� � �-E%>10:� wait a bit
�( E%=0:� retry if OK clicked
� �
�
�
� C%<>0 � E%=2
�E%=2 G%=�
8 �G% ș"Wimp_ReportError",q2%,%1000001,"Notes"
�C%<>0 �
( �#C%=�#C%
2 �#C%,�$
< �#C%,ĩ(�$),"~")
F D%=�F$
P ȕ � �#D%
Z �#C%,�#D%
d
�
n �#D%
x �#C%,""
� �#C%
� �unsafe% �
� �("Delete "+F$)
� active%=�
�
�
� unsafe%=�
�! q1%!16=4:q1%!12=q1%!8
�. ș "Wimp_SendMessage",17,q1%,q1%!4
� �
� �&502: �interactive_help
��
��
�:
��interactive_help
� t$
Ȏ q1%!32 �
".�-2: t$="This is the Notes system icon.|M"
, �current%=0 �
63 t$+="Define a category with MENU-Add."
@
�
JT t$+="Drop a text file on it to add the text to the current category.|M"
T �entries%=1 �
^< t$+="Define another category with MENU-Add.|M"
h �
r= t$+="Click SELECT/ADJUST to change category.|M"
| �
�U t$+="Click MENU to delete, view, print or purge this or all categories."
�
�
��
�
�t$<>"" �
� q1%!12=q1%!8
� q1%!16=&503
� $(q1%+20)=t$+�0
� !q1%=(25+�t$)��3
�& ș"Wimp_SendMessage",17,q1%,q1%!4
��
��
�:
���shutdown
ș"Wimp_CloseDown"
�
:
& ��error
0�error_flag%=3 �
:7 �errorbox("Unexpected error :- "+�$+" ("+�(�)+")")
D�
N �errorbox(�$)
X�
berror_flag%=3
l�
v:
� ��ok(e$)
�error_flag%=1
�
� 1,e$
��
�:
���fatal(e$)
�error_flag%=2
�
� 1,e$
��
�:
���errorbox(r$)
�� r%
�!q1%=�:$(q1%+4)=r$+�0
6ș"Wimp_ReportError",q1%,error_flag%,"Notes" � ,r%
�r%=2 ș"Wimp_CloseDown":�
�
:
* ݤcrmenu
4� m%,menu$,m$
>6� (menufree%+28>menuend%) �fatal("Menu area full")
H � menu$
Rȕ �menu$,2)="++"
\ � m$
f menu$=�menu$,�menu$-2)+m$
p�
zmenuptr%=menufree%
�i%=0
�=� �menu$,1)="#" i%=1:menutitle$=�par(",") � menutitle$=""
�$menuptr%=menutitle$
�menuptr%?12=7
�menuptr%?13=2
�menuptr%?14=7
�menuptr%?15=1
�menuptr%!16=196
�menuptr%!20=44
�menuptr%!24=0
�menuptr%+=28
�maxx%=�menutitle$-3
��
item$=�par(",")
�menuitem(item$)
� item$=""
$m%=menufree%
.m%!16=(maxx%*8+6)*2
8menufree%=menuptr%
B=m%
L:
V��menuitem(text$)
`� i%,flg%,subptr%,L%
j0� text$="" menuptr%!-24=(menuptr%!-24)�&80:�
t5� (menuptr%+24>menuend%) �fatal("Menu area full")
~ flg%=&00
�i%=�text$,">")
� � i%>0 �
� subptr%=��text$,i%+1)
� text$=�text$,i%-1)
��
� subptr%=-1
��
�4� �text$,1)="#" text$=�text$,�text$-1):flg%+=&02
�menuptr%!0=flg%
�menuptr%!4=subptr%
�menuptr%!8=&07000021
�� �text$,1)="$" �
!menuptr%+=&04
menuptr%!8+=&100
i%=�text$,"(")
� i%>0 �
( L%=��text$,i%+1)
2 text$=�text$,i%-1)
< �
F L%=12
P �
Z menuptr%!12=��text$,2)
d menuptr%!16=-1
n menuptr%!20=L%
x �L%>16 L%=16
� text$=�L%," ")
��
� �text$<=12�
� $(menuptr%+12)=text$
� �
�' I%=�workspace(�text$+1):$I%=text$
�8 menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
�" menuptr%!8=menuptr%!8 � &100
� �
��
� � �text$>maxx% maxx%=�text$
�menuptr%+=24
��
:
ݤpar(sep$)
� i1%
" i1%=i%+1
, i%=�menu$+sep$,sep$,i1%)
6=�menu$,i1%,i%-i1%)
@:
J ��shade(menuhandle%,item%)
TCmenuhandle%!(28+8+24*item%)=menuhandle%!(28+8+24*item%)�&400000
^�
h:
r%ݤshade_status(menuhandle%,item%)
|8= -((menuhandle%!(28+8+24*item%) � &400000)=&400000)
�:
�)��set_shade(menuhandle%,item%,value%)
�G�shade_status(menuhandle%,item%)<>value% �shade(menuhandle%,item%)
��
�:
� ��tick(menuhandle%,item%)
�9menuhandle%!(28+24*item%)=menuhandle%!(28+24*item%)�1
��
�:
�$ݤtick_status(menuhandle%,item%)
�!= menuhandle%!(28+24*item%)�1
�:
�(��set_tick(menuhandle%,item%,value%)
E�tick_status(menuhandle%,item%)<>value% �tick(menuhandle%,item%)
�
:
&ݤworkspace(L%)
08� curws%+L%>ws%+maxws% � �fatal("No more workspace")
:curws%+=L%
D=curws%-L%
� 00000000 48 00 9f e5 48 10 9f e5 48 20 9f e5 04 30 11 e4 |H...H...H ...0..|
00000010 04 30 02 e4 04 00 50 e2 fb ff ff 1a 02 00 a0 e3 |.0....P.........|
00000020 04 10 8f e2 08 20 8f e2 1e 00 00 ef 42 61 73 69 |..... ......Basi|
00000030 63 00 84 20 2d 71 75 69 74 20 40 30 30 30 30 39 |c.. -quit @00009|
00000040 30 30 30 2c 30 30 30 30 42 37 32 43 00 00 00 00 |000,0000B72C....|
00000050 30 27 00 00 88 a7 00 00 2c b7 00 00 0d 00 0a 11 |0'......,.......|
00000060 f4 20 3e 20 21 52 75 6e 49 6d 61 67 65 0d 00 14 |. > !RunImage...|
00000070 05 f4 0d 00 1e 1e 76 65 72 73 69 6f 6e 24 3d 22 |......version$="|
00000080 31 2e 30 30 20 28 35 2d 4d 61 79 2d 38 39 29 22 |1.00 (5-May-89)"|
00000090 0d 00 28 0f f2 69 6e 69 74 69 61 6c 69 73 65 0d |..(..initialise.|
000000a0 00 32 0e ee 20 85 20 f2 65 72 72 6f 72 0d 00 3c |.2.. . .error..<|
000000b0 05 f5 0d 00 46 1d 20 c8 99 22 57 69 6d 70 5f 50 |....F. .."Wimp_P|
000000c0 6f 6c 6c 22 2c 30 2c 71 31 25 20 b8 20 72 25 0d |oll",0,q1% . r%.|
000000d0 00 50 0c 20 c8 8e 20 72 25 20 ca 0d 00 5a 18 20 |.P. .. r% ...Z. |
000000e0 c9 20 30 20 20 20 20 3a 20 e7 61 63 74 69 76 65 |. 0 : .active|
000000f0 25 20 8c 0d 00 64 1b 20 20 20 20 20 20 20 20 20 |% ...d. |
00000100 20 20 20 20 20 61 63 74 69 76 65 25 3d a3 0d 00 | active%=...|
00000110 6e 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |n1 |
00000120 c8 99 20 22 57 69 6d 70 5f 47 65 74 43 61 72 65 |.. "Wimp_GetCare|
00000130 74 50 6f 73 69 74 69 6f 6e 22 2c 2c 71 31 25 0d |tPosition",,q1%.|
00000140 00 78 35 20 20 20 20 20 20 20 20 20 20 20 20 20 |.x5 |
00000150 20 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 | .. "Wimp_SendMe|
00000160 73 73 61 67 65 22 2c 33 2c 71 31 25 2c 21 71 31 |ssage",3,q1%,!q1|
00000170 25 2c 2d 31 0d 00 82 12 20 20 20 20 20 20 20 20 |%,-1.... |
00000180 20 20 20 20 20 cd 0d 00 8c 32 20 20 20 20 20 20 | ....2 |
00000190 20 20 20 20 20 20 20 e7 70 72 69 6e 74 66 69 6c | .printfil|
000001a0 65 25 3c 3e 30 20 f2 70 72 69 6e 74 28 70 72 69 |e%<>0 .print(pri|
000001b0 6e 74 66 69 6c 65 25 29 0d 00 96 26 20 c9 20 32 |ntfile%)...& . 2|
000001c0 20 20 20 20 3a 20 c8 99 22 57 69 6d 70 5f 4f 70 | : .."Wimp_Op|
000001d0 65 6e 57 69 6e 64 6f 77 22 2c 2c 71 31 25 0d 00 |enWindow",,q1%..|
000001e0 a0 27 20 c9 20 33 20 20 20 20 3a 20 c8 99 22 57 |.' . 3 : .."W|
000001f0 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 |imp_CloseWindow"|
00000200 2c 2c 71 31 25 0d 00 aa 19 20 c9 20 36 20 20 20 |,,q1%.... . 6 |
00000210 20 3a 20 f2 6d 6f 75 73 65 63 6c 69 63 6b 0d 00 | : .mouseclick..|
00000220 b4 19 20 c9 20 39 20 20 20 20 3a 20 f2 6d 65 6e |.. . 9 : .men|
00000230 75 73 65 6c 65 63 74 0d 00 be 1a 20 c9 20 31 37 |uselect.... . 17|
00000240 2c 31 38 3a 20 f2 72 65 63 65 69 76 65 28 72 25 |,18: .receive(r%|
00000250 29 0d 00 c8 12 20 c9 20 31 39 20 20 20 3a 20 f2 |).... . 19 : .|
00000260 61 63 6b 0d 00 d2 06 20 cb 0d 00 dc 07 fd 20 a3 |ack.... ...... .|
00000270 0d 00 e6 05 e0 0d 00 f0 05 3a 0d 00 fa 10 dd f2 |.........:......|
00000280 69 6e 69 74 69 61 6c 69 73 65 0d 01 04 0b ea 20 |initialise..... |
00000290 63 25 2c 69 25 0d 01 0e 1c de 20 77 73 25 20 32 |c%,i%..... ws% 2|
000002a0 35 36 3a 77 73 65 6e 64 25 3d 77 73 25 2b 32 35 |56:wsend%=ws%+25|
000002b0 36 0d 01 18 2a de 20 6d 65 6e 75 66 72 65 65 25 |6...*. menufree%|
000002c0 20 35 31 32 3a 6d 65 6e 75 65 6e 64 25 3d 6d 65 | 512:menuend%=me|
000002d0 6e 75 66 72 65 65 25 2b 35 31 32 0d 01 22 16 de |nufree%+512.."..|
000002e0 20 71 31 25 20 32 35 36 2c 20 71 32 25 20 35 31 | q1% 256, q2% 51|
000002f0 32 0d 01 2c 0c de 20 66 24 28 35 30 29 0d 01 36 |2..,.. f$(50)..6|
00000300 34 c8 99 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c |4.."Wimp_Initial|
00000310 69 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 |ise",200,&4B5341|
00000320 35 34 2c 22 4e 6f 74 65 73 20 73 79 73 74 65 6d |54,"Notes system|
00000330 22 0d 01 40 32 c8 99 22 57 69 6d 70 5f 4f 70 65 |"..@2.."Wimp_Ope|
00000340 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c 4e 6f |nTemplate",,"<No|
00000350 74 65 73 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 |tes$Dir>.Templat|
00000360 65 73 22 0d 01 4a 3d c8 99 22 57 69 6d 70 5f 4c |es"..J=.."Wimp_L|
00000370 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 71 32 |oadTemplate",,q2|
00000380 25 2c 77 73 25 2c 77 73 65 6e 64 25 2c 2d 31 2c |%,ws%,wsend%,-1,|
00000390 22 69 6e 66 6f 22 2c 30 20 b8 20 2c 2c 77 73 25 |"info",0 . ,,ws%|
000003a0 0d 01 54 1e 24 28 71 32 25 21 28 38 38 2b 39 36 |..T.$(q2%!(88+96|
000003b0 2b 32 30 29 29 3d 76 65 72 73 69 6f 6e 24 0d 01 |+20))=version$..|
000003c0 5e 26 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 |^&.."Wimp_Create|
000003d0 57 69 6e 64 6f 77 22 2c 2c 71 32 25 20 b8 20 69 |Window",,q2% . i|
000003e0 6e 66 6f 25 0d 01 68 1a c8 99 22 57 69 6d 70 5f |nfo%..h..."Wimp_|
000003f0 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d 01 |CloseTemplate"..|
00000400 72 0e de 20 6e 61 6d 65 25 20 31 31 0d 01 7c 12 |r.. name% 11..|.|
00000410 63 6d 65 6e 75 25 3d a4 63 72 6d 65 6e 75 0d 01 |cmenu%=.crmenu..|
00000420 86 1f 20 dc 20 22 23 53 65 6c 65 63 74 69 6f 6e |.. . "#Selection|
00000430 2c 63 75 72 72 65 6e 74 2c 61 6c 6c 22 0d 01 90 |,current,all"...|
00000440 12 6e 6d 65 6e 75 25 3d a4 63 72 6d 65 6e 75 0d |.nmenu%=.crmenu.|
00000450 01 9a 19 20 dc 20 22 23 4e 61 6d 65 2c 24 6e 61 |... . "#Name,$na|
00000460 6d 65 25 28 31 31 29 22 0d 01 a4 15 6d 61 69 6e |me%(11)"....main|
00000470 6d 65 6e 75 25 3d a4 63 72 6d 65 6e 75 0d 01 ae |menu%=.crmenu...|
00000480 36 20 dc 20 22 23 4e 6f 74 65 73 2c 49 6e 66 6f |6 . "#Notes,Info|
00000490 3e 69 6e 66 6f 25 2c 41 64 64 3e 6e 6d 65 6e 75 |>info%,Add>nmenu|
000004a0 25 2c 44 65 6c 65 74 65 3e 63 6d 65 6e 75 25 2c |%,Delete>cmenu%,|
000004b0 2b 2b 22 0d 01 b8 33 20 dc 20 22 56 69 65 77 3e |++"...3 . "View>|
000004c0 63 6d 65 6e 75 25 2c 50 72 69 6e 74 3e 63 6d 65 |cmenu%,Print>cme|
000004d0 6e 75 25 2c 50 75 72 67 65 3e 63 6d 65 6e 75 25 |nu%,Purge>cmenu%|
000004e0 2c 51 75 69 74 22 0d 01 c2 10 f2 6c 6f 61 64 5f |,Quit".....load_|
000004f0 63 6f 6e 66 69 67 0d 01 cc 1b de 20 70 31 25 20 |config..... p1% |
00000500 31 30 3a 24 70 31 25 3d 22 73 21 6e 6f 74 65 73 |10:$p1%="s!notes|
00000510 22 0d 01 d6 1e de 20 70 32 25 20 31 30 3a 24 70 |"..... p2% 10:$p|
00000520 32 25 3d 66 24 28 63 75 72 72 65 6e 74 25 29 0d |2%=f$(current%).|
00000530 01 e0 0b 21 71 31 25 3d 2d 31 0d 01 ea 0b 71 31 |...!q1%=-1....q1|
00000540 25 21 34 3d 30 0d 01 f4 0d 71 31 25 21 38 3d 2d |%!4=0....q1%!8=-|
00000550 31 36 0d 01 fe 0e 71 31 25 21 31 32 3d 31 36 31 |16....q1%!12=161|
00000560 0d 02 08 0d 71 31 25 21 31 36 3d 38 38 0d 02 12 |....q1%!16=88...|
00000570 14 71 31 25 21 32 30 3d 26 31 37 30 30 33 31 32 |.q1%!20=&1700312|
00000580 42 0d 02 1c 0e 71 31 25 21 32 34 3d 70 32 25 0d |B....q1%!24=p2%.|
00000590 02 26 0e 71 31 25 21 32 38 3d 70 31 25 0d 02 30 |.&.q1%!28=p1%..0|
000005a0 0d 71 31 25 21 33 32 3d 31 30 0d 02 3a 22 c8 99 |.q1%!32=10..:"..|
000005b0 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
000005c0 22 2c 2c 71 31 25 20 b8 20 69 63 25 0d 02 44 10 |",,q1% . ic%..D.|
000005d0 70 72 69 6e 74 66 69 6c 65 25 3d 30 0d 02 4e 11 |printfile%=0..N.|
000005e0 65 72 72 6f 72 5f 66 6c 61 67 25 3d 33 0d 02 58 |error_flag%=3..X|
000005f0 0d 61 63 74 69 76 65 25 3d a3 0d 02 62 0d 75 6e |.active%=...b.un|
00000600 73 61 66 65 25 3d a3 0d 02 6c 05 e1 0d 02 76 05 |safe%=...l....v.|
00000610 3a 0d 02 80 10 dd f2 6d 6f 75 73 65 63 6c 69 63 |:......mouseclic|
00000620 6b 0d 02 8a 08 ea 20 70 25 0d 02 94 10 e7 71 31 |k..... p%.....q1|
00000630 25 21 38 20 80 20 32 20 8c 0d 02 9e 31 20 e7 71 |%!8 . 2 ....1 .q|
00000640 31 25 21 31 32 3d 2d 32 20 f2 64 6f 6d 65 6e 75 |1%!12=-2 .domenu|
00000650 28 6d 61 69 6e 6d 65 6e 75 25 2c 21 71 31 25 2d |(mainmenu%,!q1%-|
00000660 36 34 2c 39 36 2b 33 30 38 29 0d 02 a8 05 cd 0d |64,96+308)......|
00000670 02 b2 20 e7 28 71 31 25 21 38 20 80 20 35 29 80 |.. .(q1%!8 . 5).|
00000680 28 65 6e 74 72 69 65 73 25 3c 3e 30 29 20 8c 0d |(entries%<>0) ..|
00000690 02 bc 11 20 e7 71 31 25 21 38 20 80 20 34 20 8c |... .q1%!8 . 4 .|
000006a0 0d 02 c6 11 20 20 63 75 72 72 65 6e 74 25 2b 3d |.... current%+=|
000006b0 31 0d 02 d0 23 20 20 e7 63 75 72 72 65 6e 74 25 |1...# .current%|
000006c0 3e 65 6e 74 72 69 65 73 25 20 63 75 72 72 65 6e |>entries% curren|
000006d0 74 25 3d 31 0d 02 da 06 20 cc 0d 02 e4 11 20 20 |t%=1.... ..... |
000006e0 63 75 72 72 65 6e 74 25 2d 3d 31 0d 02 ee 23 20 |current%-=1...# |
000006f0 20 e7 63 75 72 72 65 6e 74 25 3c 31 20 63 75 72 | .current%<1 cur|
00000700 72 65 6e 74 25 3d 65 6e 74 72 69 65 73 25 0d 02 |rent%=entries%..|
00000710 f8 06 20 cd 0d 03 02 11 20 f2 75 70 64 61 74 65 |.. ..... .update|
00000720 5f 69 63 6f 6e 0d 03 0c 05 cd 0d 03 16 05 e1 0d |_icon...........|
00000730 03 20 05 3a 0d 03 2a 11 dd f2 75 70 64 61 74 65 |. .:..*...update|
00000740 5f 69 63 6f 6e 0d 03 34 15 24 70 32 25 3d 66 24 |_icon..4.$p2%=f$|
00000750 28 63 75 72 72 65 6e 74 25 29 0d 03 3e 41 21 71 |(current%)..>A!q|
00000760 31 25 3d 2d 31 3a 71 31 25 21 34 3d 69 63 25 3a |1%=-1:q1%!4=ic%:|
00000770 71 31 25 21 38 3d 30 3a 71 31 25 21 31 32 3d 30 |q1%!8=0:q1%!12=0|
00000780 3a c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |:.."Wimp_SetIcon|
00000790 53 74 61 74 65 22 2c 2c 71 31 25 0d 03 48 05 e1 |State",,q1%..H..|
000007a0 0d 03 52 05 3a 0d 03 5c 16 dd f2 64 6f 6d 65 6e |..R.:..\...domen|
000007b0 75 28 68 25 2c 78 25 2c 79 25 29 0d 03 66 24 6d |u(h%,x%,y%)..f$m|
000007c0 65 6e 75 64 61 74 61 25 3d 68 25 3a 6d 65 6e 75 |enudata%=h%:menu|
000007d0 78 25 3d 78 25 3a 6d 65 6e 75 79 25 3d 79 25 0d |x%=x%:menuy%=y%.|
000007e0 03 70 0d 24 6e 61 6d 65 25 3d 22 22 0d 03 7a 21 |.p.$name%=""..z!|
000007f0 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |.."Wimp_CreateMe|
00000800 6e 75 22 2c 2c 68 25 2c 78 25 2c 79 25 0d 03 84 |nu",,h%,x%,y%...|
00000810 05 e1 0d 03 8e 05 3a 0d 03 98 10 dd f2 6d 65 6e |......:......men|
00000820 75 73 65 6c 65 63 74 0d 03 a2 0b ea 20 61 24 2c |uselect..... a$,|
00000830 69 25 0d 03 ac 38 c8 99 22 57 69 6d 70 5f 44 65 |i%...8.."Wimp_De|
00000840 63 6f 64 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 64 |codeMenu",,menud|
00000850 61 74 61 25 2c 71 31 25 2c c4 32 30 30 2c 22 20 |ata%,q1%,.200," |
00000860 22 29 20 b8 20 2c 2c 2c 61 24 0d 03 b6 0c e7 61 |") . ,,,a$.....a|
00000870 24 3d 22 22 20 e1 0d 03 c0 1a e7 61 24 3d 22 51 |$="" ......a$="Q|
00000880 75 69 74 22 20 f2 73 68 75 74 64 6f 77 6e 3a e0 |uit" .shutdown:.|
00000890 0d 03 ca 14 e7 c0 61 24 2c 34 29 3d 22 41 64 64 |......a$,4)="Add|
000008a0 2e 22 20 8c 0d 03 d4 0e 20 61 24 3d c1 61 24 2c |." ..... a$=.a$,|
000008b0 35 29 0d 03 de 3d 20 69 25 3d 8e 28 22 3c 4e 6f |5)...= i%=.("<No|
000008c0 74 65 73 24 44 69 72 3e 2e 43 61 74 65 67 6f 72 |tes$Dir>.Categor|
000008d0 69 65 73 2e 22 2b 61 24 29 3a f4 20 63 68 65 63 |ies."+a$):. chec|
000008e0 6b 20 66 6f 72 20 65 78 69 73 74 65 6e 63 65 0d |k for existence.|
000008f0 03 e8 2f 20 e7 69 25 3c 3e 30 20 d9 23 69 25 3a |../ .i%<>0 .#i%:|
00000900 f2 6f 6b 28 22 43 61 74 65 67 6f 72 79 20 61 6c |.ok("Category al|
00000910 72 65 61 64 79 20 65 78 69 73 74 73 22 29 0d 03 |ready exists")..|
00000920 f2 10 20 65 6e 74 72 69 65 73 25 2b 3d 31 0d 03 |.. entries%+=1..|
00000930 fc 14 20 66 24 28 65 6e 74 72 69 65 73 25 29 3d |.. f$(entries%)=|
00000940 61 24 0d 04 06 15 20 f2 70 75 72 67 65 28 65 6e |a$.... .purge(en|
00000950 74 72 69 65 73 25 29 0d 04 10 1b 20 e7 65 6e 74 |tries%).... .ent|
00000960 72 69 65 73 25 3d 31 20 63 75 72 72 65 6e 74 25 |ries%=1 current%|
00000970 3d 31 0d 04 1a 11 20 f2 73 61 76 65 5f 63 6f 6e |=1.... .save_con|
00000980 66 69 67 0d 04 24 05 cd 0d 04 2e 1a e7 61 24 3d |fig..$.......a$=|
00000990 22 44 65 6c 65 74 65 2e 63 75 72 72 65 6e 74 22 |"Delete.current"|
000009a0 20 8c 0d 04 38 2f 20 65 72 72 6f 72 5f 66 6c 61 | ...8/ error_fla|
000009b0 67 25 3d 31 3a f4 20 4f 4b 20 69 66 20 77 65 20 |g%=1:. OK if we |
000009c0 67 65 74 20 61 6e 20 65 72 72 6f 72 20 6e 65 78 |get an error nex|
000009d0 74 0d 04 42 33 20 ff 22 52 65 6d 6f 76 65 20 3c |t..B3 ."Remove <|
000009e0 4e 6f 74 65 73 24 44 69 72 3e 2e 43 61 74 65 67 |Notes$Dir>.Categ|
000009f0 6f 72 69 65 73 2e 22 2b 66 24 28 63 75 72 72 65 |ories."+f$(curre|
00000a00 6e 74 25 29 0d 04 4c 12 20 65 72 72 6f 72 5f 66 |nt%)..L. error_f|
00000a10 6c 61 67 25 3d 33 0d 04 56 20 20 66 24 28 63 75 |lag%=3..V f$(cu|
00000a20 72 72 65 6e 74 25 29 3d 22 22 3a 65 6e 74 72 69 |rrent%)="":entri|
00000a30 65 73 25 2d 3d 31 0d 04 60 11 20 f2 73 61 76 65 |es%-=1..`. .save|
00000a40 5f 63 6f 6e 66 69 67 0d 04 6a 05 cd 0d 04 74 16 |_config..j....t.|
00000a50 e7 61 24 3d 22 44 65 6c 65 74 65 2e 61 6c 6c 22 |.a$="Delete.all"|
00000a60 20 8c 0d 04 7e 2f 20 65 72 72 6f 72 5f 66 6c 61 | ...~/ error_fla|
00000a70 67 25 3d 31 3a f4 20 4f 4b 20 69 66 20 77 65 20 |g%=1:. OK if we |
00000a80 67 65 74 20 61 6e 20 65 72 72 6f 72 20 6e 65 78 |get an error nex|
00000a90 74 0d 04 88 13 20 e3 69 25 3d 31 b8 65 6e 74 72 |t.... .i%=1.entr|
00000aa0 69 65 73 25 0d 04 92 2e 20 20 ff 22 52 65 6d 6f |ies%.... ."Remo|
00000ab0 76 65 20 3c 4e 6f 74 65 73 24 44 69 72 3e 2e 43 |ve <Notes$Dir>.C|
00000ac0 61 74 65 67 6f 72 69 65 73 2e 22 2b 66 24 28 69 |ategories."+f$(i|
00000ad0 25 29 0d 04 9c 06 20 ed 0d 04 a6 12 20 65 72 72 |%).... ..... err|
00000ae0 6f 72 5f 66 6c 61 67 25 3d 33 0d 04 b0 0f 20 65 |or_flag%=3.... e|
00000af0 6e 74 72 69 65 73 25 3d 30 0d 04 ba 11 20 f2 73 |ntries%=0.... .s|
00000b00 61 76 65 5f 63 6f 6e 66 69 67 0d 04 c4 05 cd 0d |ave_config......|
00000b10 04 ce 26 e7 61 24 3d 22 56 69 65 77 2e 63 75 72 |..&.a$="View.cur|
00000b20 72 65 6e 74 22 20 f2 76 69 65 77 28 63 75 72 72 |rent" .view(curr|
00000b30 65 6e 74 25 29 0d 04 d8 2d e7 61 24 3d 22 56 69 |ent%)...-.a$="Vi|
00000b40 65 77 2e 61 6c 6c 22 20 e3 69 25 3d 31 b8 65 6e |ew.all" .i%=1.en|
00000b50 74 72 69 65 73 25 3a f2 76 69 65 77 28 69 25 29 |tries%:.view(i%)|
00000b60 3a ed 0d 04 e2 29 e7 61 24 3d 22 50 72 69 6e 74 |:....).a$="Print|
00000b70 2e 63 75 72 72 65 6e 74 22 20 f2 70 72 69 6e 74 |.current" .print|
00000b80 28 2d 63 75 72 72 65 6e 74 25 29 0d 04 ec 1d e7 |(-current%).....|
00000b90 61 24 3d 22 50 72 69 6e 74 2e 61 6c 6c 22 20 f2 |a$="Print.all" .|
00000ba0 70 72 69 6e 74 28 31 29 0d 04 f6 28 e7 61 24 3d |print(1)...(.a$=|
00000bb0 22 50 75 72 67 65 2e 63 75 72 72 65 6e 74 22 20 |"Purge.current" |
00000bc0 f2 70 75 72 67 65 28 63 75 72 72 65 6e 74 25 29 |.purge(current%)|
00000bd0 0d 05 00 2f e7 61 24 3d 22 50 75 72 67 65 2e 61 |.../.a$="Purge.a|
00000be0 6c 6c 22 20 e3 69 25 3d 31 b8 65 6e 74 72 69 65 |ll" .i%=1.entrie|
00000bf0 73 25 3a f2 70 75 72 67 65 28 69 25 29 3a ed 0d |s%:.purge(i%):..|
00000c00 05 0a 20 c8 99 22 57 69 6d 70 5f 47 65 74 50 6f |.. .."Wimp_GetPo|
00000c10 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 71 31 25 0d |interInfo",,q1%.|
00000c20 05 14 33 e7 28 71 31 25 21 38 20 80 20 31 29 20 |..3.(q1%!8 . 1) |
00000c30 8c 20 f2 64 6f 6d 65 6e 75 28 6d 65 6e 75 64 61 |. .domenu(menuda|
00000c40 74 61 25 2c 6d 65 6e 75 78 25 2c 6d 65 6e 75 79 |ta%,menux%,menuy|
00000c50 25 29 0d 05 1e 05 e1 0d 05 28 05 3a 0d 05 32 0e |%).......(.:..2.|
00000c60 dd f2 76 69 65 77 28 69 25 29 0d 05 3c 08 ea 20 |..view(i%)..<.. |
00000c70 63 25 0d 05 46 0c 71 31 25 21 31 32 3d 30 0d 05 |c%..F.q1%!12=0..|
00000c80 50 0c 71 31 25 21 31 36 3d 35 0d 05 5a 27 71 31 |P.q1%!16=5..Z'q1|
00000c90 25 21 32 30 3d 30 3a 71 31 25 21 32 34 3d 30 3a |%!20=0:q1%!24=0:|
00000ca0 71 31 25 21 32 38 3d 30 3a 71 31 25 21 33 32 3d |q1%!28=0:q1%!32=|
00000cb0 30 0d 05 64 0d 71 31 25 21 33 36 3d 2d 31 0d 05 |0..d.q1%!36=-1..|
00000cc0 6e 0f 71 31 25 21 34 30 3d 26 46 46 46 0d 05 78 |n.q1%!40=&FFF..x|
00000cd0 2e 24 28 71 31 25 2b 34 34 29 3d 22 3c 4e 6f 74 |.$(q1%+44)="<Not|
00000ce0 65 73 24 44 69 72 3e 2e 43 61 74 65 67 6f 72 69 |es$Dir>.Categori|
00000cf0 65 73 2e 22 2b 66 24 28 69 25 29 0d 05 82 1f 63 |es."+f$(i%)....c|
00000d00 25 3d a9 24 28 71 31 25 2b 34 34 29 3a 71 31 25 |%=.$(q1%+44):q1%|
00000d10 3f 28 34 34 2b 63 25 29 3d 30 0d 05 8c 13 21 71 |?(44+c%)=0....!q|
00000d20 31 25 3d 34 37 2b 63 25 2b 31 80 ac 33 0d 05 96 |1%=47+c%+1..3...|
00000d30 21 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |!.."Wimp_SendMes|
00000d40 73 61 67 65 22 2c 31 38 2c 71 31 25 2c 30 0d 05 |sage",18,q1%,0..|
00000d50 a0 05 e1 0d 05 aa 05 3a 0d 05 b4 0f dd f2 70 72 |.......:......pr|
00000d60 69 6e 74 28 69 25 29 0d 05 be 08 ea 20 63 25 0d |int(i%)..... c%.|
00000d70 05 c8 11 70 72 69 6e 74 66 69 6c 65 25 3d 69 25 |...printfile%=i%|
00000d80 0d 05 d2 0c 71 31 25 21 31 32 3d 30 0d 05 dc 11 |....q1%!12=0....|
00000d90 71 31 25 21 31 36 3d 26 38 30 31 34 32 0d 05 e6 |q1%!16=&80142...|
00000da0 27 71 31 25 21 32 30 3d 30 3a 71 31 25 21 32 34 |'q1%!20=0:q1%!24|
00000db0 3d 30 3a 71 31 25 21 32 38 3d 30 3a 71 31 25 21 |=0:q1%!28=0:q1%!|
00000dc0 33 32 3d 30 0d 05 f0 0c 71 31 25 21 33 36 3d 31 |32=0....q1%!36=1|
00000dd0 0d 05 fa 0f 71 31 25 21 34 30 3d 26 46 46 46 0d |....q1%!40=&FFF.|
00000de0 06 04 31 24 28 71 31 25 2b 34 34 29 3d 22 3c 4e |..1$(q1%+44)="<N|
00000df0 6f 74 65 73 24 44 69 72 3e 2e 43 61 74 65 67 6f |otes$Dir>.Catego|
00000e00 72 69 65 73 2e 22 2b 66 24 28 94 28 69 25 29 29 |ries."+f$(.(i%))|
00000e10 0d 06 0e 1f 63 25 3d a9 24 28 71 31 25 2b 34 34 |....c%=.$(q1%+44|
00000e20 29 3a 71 31 25 3f 28 34 34 2b 63 25 29 3d 30 0d |):q1%?(44+c%)=0.|
00000e30 06 18 13 21 71 31 25 3d 34 37 2b 63 25 2b 31 80 |...!q1%=47+c%+1.|
00000e40 ac 33 0d 06 22 21 c8 99 22 57 69 6d 70 5f 53 65 |.3.."!.."Wimp_Se|
00000e50 6e 64 4d 65 73 73 61 67 65 22 2c 31 38 2c 71 31 |ndMessage",18,q1|
00000e60 25 2c 30 0d 06 2c 05 e1 0d 06 36 05 3a 0d 06 40 |%,0..,....6.:..@|
00000e70 0f dd f2 70 75 72 67 65 28 69 25 29 0d 06 4a 11 |...purge(i%)..J.|
00000e80 65 72 72 6f 72 5f 66 6c 61 67 25 3d 31 0d 06 54 |error_flag%=1..T|
00000e90 2e ff 28 22 43 72 65 61 74 65 20 3c 4e 6f 74 65 |..("Create <Note|
00000ea0 73 24 44 69 72 3e 2e 43 61 74 65 67 6f 72 69 65 |s$Dir>.Categorie|
00000eb0 73 2e 22 2b 66 24 28 69 25 29 29 0d 06 5e 11 65 |s."+f$(i%))..^.e|
00000ec0 72 72 6f 72 5f 66 6c 61 67 25 3d 33 0d 06 68 37 |rror_flag%=3..h7|
00000ed0 ff 28 22 53 65 74 74 79 70 65 20 3c 4e 6f 74 65 |.("Settype <Note|
00000ee0 73 24 44 69 72 3e 2e 43 61 74 65 67 6f 72 69 65 |s$Dir>.Categorie|
00000ef0 73 2e 22 2b 66 24 28 69 25 29 2b 22 20 54 65 78 |s."+f$(i%)+" Tex|
00000f00 74 22 29 0d 06 72 05 e1 0d 06 7c 05 3a 0d 06 86 |t")..r....|.:...|
00000f10 11 dd f2 73 61 76 65 5f 63 6f 6e 66 69 67 0d 06 |...save_config..|
00000f20 90 0b ea 20 69 25 2c 63 25 0d 06 9a 11 65 72 72 |... i%,c%....err|
00000f30 6f 72 5f 66 6c 61 67 25 3d 31 0d 06 a4 11 e7 65 |or_flag%=1.....e|
00000f40 6e 74 72 69 65 73 25 3d 30 20 8c 0d 06 ae 20 20 |ntries%=0 .... |
00000f50 2a 52 65 6d 6f 76 65 20 3c 4e 6f 74 65 73 24 44 |*Remove <Notes$D|
00000f60 69 72 3e 2e 21 43 6f 6e 66 69 67 0d 06 b8 05 cc |ir>.!Config.....|
00000f70 0d 06 c2 1e 20 63 25 3d ae 22 3c 4e 6f 74 65 73 |.... c%=."<Notes|
00000f80 24 44 69 72 3e 2e 21 43 6f 6e 66 69 67 22 0d 06 |$Dir>.!Config"..|
00000f90 cc 0f 20 e3 69 25 3d 31 20 b8 20 35 30 0d 06 d6 |.. .i%=1 . 50...|
00000fa0 1d 20 20 e7 66 24 28 69 25 29 3c 3e 22 22 20 f1 |. .f$(i%)<>"" .|
00000fb0 23 63 25 2c 66 24 28 69 25 29 0d 06 e0 06 20 ed |#c%,f$(i%).... .|
00000fc0 0d 06 ea 09 20 d9 23 63 25 0d 06 f4 05 cd 0d 06 |.... .#c%.......|
00000fd0 fe 11 65 72 72 6f 72 5f 66 6c 61 67 25 3d 33 0d |..error_flag%=3.|
00000fe0 07 08 10 f2 6c 6f 61 64 5f 63 6f 6e 66 69 67 0d |....load_config.|
00000ff0 07 12 10 f2 75 70 64 61 74 65 5f 69 63 6f 6e 0d |....update_icon.|
00001000 07 1c 05 e1 0d 07 26 05 3a 0d 07 30 11 dd f2 6c |......&.:..0...l|
00001010 6f 61 64 5f 63 6f 6e 66 69 67 0d 07 3a 0b ea 20 |oad_config..:.. |
00001020 69 25 2c 63 25 0d 07 44 0e 65 6e 74 72 69 65 73 |i%,c%..D.entries|
00001030 25 3d 30 0d 07 4e 0e 63 75 72 72 65 6e 74 25 3d |%=0..N.current%=|
00001040 30 0d 07 58 0b 66 24 28 29 3d 22 22 0d 07 62 16 |0..X.f$()=""..b.|
00001050 66 24 28 30 29 3d 22 3c 4e 6f 20 66 69 6c 65 73 |f$(0)="<No files|
00001060 3e 22 0d 07 6c 1d 63 25 3d 8e 22 3c 4e 6f 74 65 |>"..l.c%=."<Note|
00001070 73 24 44 69 72 3e 2e 21 43 6f 6e 66 69 67 22 0d |s$Dir>.!Config".|
00001080 07 76 0c e7 63 25 3c 3e 30 20 8c 0d 07 80 0f 20 |.v..c%<>0 ..... |
00001090 63 75 72 72 65 6e 74 25 3d 31 0d 07 8a 0e 20 c8 |current%=1.... .|
000010a0 95 20 ac 20 c5 23 63 25 0d 07 94 11 20 20 65 6e |. . .#c%.... en|
000010b0 74 72 69 65 73 25 2b 3d 31 0d 07 9e 17 20 20 e8 |tries%+=1.... .|
000010c0 23 63 25 2c 66 24 28 65 6e 74 72 69 65 73 25 29 |#c%,f$(entries%)|
000010d0 0d 07 a8 06 20 ce 0d 07 b2 09 20 d9 23 63 25 0d |.... ..... .#c%.|
000010e0 07 bc 05 cd 0d 07 c6 1d e7 65 6e 74 72 69 65 73 |.........entries|
000010f0 25 3c 3e 30 20 69 25 3d 30 20 8b 20 69 25 3d 2d |%<>0 i%=0 . i%=-|
00001100 31 0d 07 d0 1e f2 73 65 74 5f 73 68 61 64 65 28 |1.....set_shade(|
00001110 6d 61 69 6e 6d 65 6e 75 25 2c 32 2c 69 25 29 0d |mainmenu%,2,i%).|
00001120 07 da 1e f2 73 65 74 5f 73 68 61 64 65 28 6d 61 |....set_shade(ma|
00001130 69 6e 6d 65 6e 75 25 2c 33 2c 69 25 29 0d 07 e4 |inmenu%,3,i%)...|
00001140 1e f2 73 65 74 5f 73 68 61 64 65 28 6d 61 69 6e |..set_shade(main|
00001150 6d 65 6e 75 25 2c 34 2c 69 25 29 0d 07 ee 1e f2 |menu%,4,i%).....|
00001160 73 65 74 5f 73 68 61 64 65 28 6d 61 69 6e 6d 65 |set_shade(mainme|
00001170 6e 75 25 2c 35 2c 69 25 29 0d 07 f8 12 e7 65 6e |nu%,5,i%).....en|
00001180 74 72 69 65 73 25 3d 35 30 20 8c 0d 08 02 1f 20 |tries%=50 ..... |
00001190 f2 73 65 74 5f 73 68 61 64 65 28 6d 61 69 6e 6d |.set_shade(mainm|
000011a0 65 6e 75 25 2c 31 2c 2d 31 29 0d 08 0c 05 cc 0d |enu%,1,-1)......|
000011b0 08 16 1e 20 f2 73 65 74 5f 73 68 61 64 65 28 6d |... .set_shade(m|
000011c0 61 69 6e 6d 65 6e 75 25 2c 31 2c 30 29 0d 08 20 |ainmenu%,1,0).. |
000011d0 05 cd 0d 08 2a 05 e1 0d 08 34 05 3a 0d 08 3e 0e |....*....4.:..>.|
000011e0 dd a4 72 74 6f 7a 28 70 25 29 0d 08 48 08 ea 20 |..rtoz(p%)..H.. |
000011f0 71 24 0d 08 52 1e c8 95 20 3f 70 25 3c 3e 30 20 |q$..R... ?p%<>0 |
00001200 71 24 2b 3d bd 3f 70 25 3a 70 25 2b 3d 31 3a ce |q$+=.?p%:p%+=1:.|
00001210 0d 08 5c 07 3d 71 24 0d 08 66 05 3a 0d 08 70 09 |..\.=q$..f.:..p.|
00001220 dd f2 61 63 6b 0d 08 7a 2e e7 71 31 25 21 31 36 |..ack..z..q1%!16|
00001230 3d 35 20 c8 99 22 57 69 6d 70 5f 53 74 61 72 74 |=5 .."Wimp_Start|
00001240 54 61 73 6b 22 2c a4 72 74 6f 7a 28 71 31 25 2b |Task",.rtoz(q1%+|
00001250 34 34 29 0d 08 84 44 e7 71 31 25 21 31 36 3d 26 |44)...D.q1%!16=&|
00001260 38 30 31 34 32 20 70 72 69 6e 74 66 69 6c 65 25 |80142 printfile%|
00001270 3d 30 3a f2 6f 6b 28 22 4e 6f 20 70 72 69 6e 74 |=0:.ok("No print|
00001280 65 72 20 6d 61 6e 61 67 65 72 20 69 6e 73 74 61 |er manager insta|
00001290 6c 6c 65 64 2e 22 29 0d 08 8e 05 e1 0d 08 98 05 |lled.").........|
000012a0 3a 0d 08 a2 11 dd f2 72 65 63 65 69 76 65 28 72 |:......receive(r|
000012b0 25 29 0d 08 ac 14 ea 20 43 25 2c 44 25 2c 45 25 |%)..... C%,D%,E%|
000012c0 2c 46 24 2c 47 25 0d 08 b6 0f c8 8e 20 71 31 25 |,F$,G%...... q1%|
000012d0 21 31 36 20 ca 0d 08 c0 13 c9 30 3a 20 f2 73 68 |!16 ......0: .sh|
000012e0 75 74 64 6f 77 6e 3a e0 0d 08 ca 2b c9 31 3a 20 |utdown:....+.1: |
000012f0 f4 20 66 69 6c 65 20 64 72 6f 70 70 65 64 20 66 |. file dropped f|
00001300 72 6f 6d 20 21 45 64 69 74 20 6f 6e 74 6f 20 69 |rom !Edit onto i|
00001310 63 6f 6e 0d 08 d4 42 20 20 20 20 20 20 20 e7 63 |con...B .c|
00001320 75 72 72 65 6e 74 25 3d 30 20 f2 6f 6b 28 22 44 |urrent%=0 .ok("D|
00001330 65 66 69 6e 65 20 61 20 63 61 74 65 67 6f 72 79 |efine a category|
00001340 20 62 65 66 6f 72 65 20 73 61 76 69 6e 67 20 64 | before saving d|
00001350 61 74 61 22 29 0d 08 de 14 20 20 20 20 20 20 20 |ata").... |
00001360 75 6e 73 61 66 65 25 3d b9 0d 08 e8 29 20 20 20 |unsafe%=....) |
00001370 20 20 20 20 24 28 71 31 25 2b 34 34 29 3d 22 3c | $(q1%+44)="<|
00001380 57 69 6d 70 24 53 63 72 61 70 3e 22 3a 43 25 3d |Wimp$Scrap>":C%=|
00001390 31 33 0d 08 f2 28 20 20 20 20 20 20 20 71 31 25 |13...( q1%|
000013a0 3f 28 34 34 2b 43 25 29 3d 30 3a 21 71 31 25 3d |?(44+C%)=0:!q1%=|
000013b0 34 37 2b 43 25 2b 31 80 ac 33 0d 08 fc 3f 20 20 |47+C%+1..3...? |
000013c0 20 20 20 20 20 71 31 25 21 31 36 3d 32 3a 71 31 | q1%!16=2:q1|
000013d0 25 21 31 32 3d 71 31 25 21 38 3a 71 31 25 21 33 |%!12=q1%!8:q1%!3|
000013e0 36 3d 31 3a f4 20 69 6d 70 6c 79 20 64 61 74 61 |6=1:. imply data|
000013f0 20 69 73 20 73 61 66 65 21 0d 09 06 2d 20 20 20 | is safe!...- |
00001400 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 53 65 6e | .. "Wimp_Sen|
00001410 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 71 31 25 |dMessage",17,q1%|
00001420 2c 71 31 25 21 34 0d 09 10 2d c9 32 3a 20 f4 20 |,q1%!4...-.2: . |
00001430 70 72 69 6e 74 65 72 20 6d 61 6e 61 67 65 72 20 |printer manager |
00001440 72 65 61 64 79 20 74 6f 20 70 72 69 6e 74 20 66 |ready to print f|
00001450 69 6c 65 0d 09 1a 50 20 20 20 20 20 20 20 ff 28 |ile...P .(|
00001460 22 43 6f 70 79 20 3c 4e 6f 74 65 73 24 44 69 72 |"Copy <Notes$Dir|
00001470 3e 2e 43 61 74 65 67 6f 72 69 65 73 2e 22 2b 66 |>.Categories."+f|
00001480 24 28 94 28 70 72 69 6e 74 66 69 6c 65 25 29 29 |$(.(printfile%))|
00001490 2b 22 20 22 2b a4 72 74 6f 7a 28 71 31 25 2b 34 |+" "+.rtoz(q1%+4|
000014a0 34 29 29 0d 09 24 20 20 20 20 20 20 20 20 71 31 |4))..$ q1|
000014b0 25 21 31 36 3d 33 3a 71 31 25 21 31 32 3d 71 31 |%!16=3:q1%!12=q1|
000014c0 25 21 38 0d 09 2e 2d 20 20 20 20 20 20 20 c8 99 |%!8...- ..|
000014d0 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 | "Wimp_SendMessa|
000014e0 67 65 22 2c 31 37 2c 71 31 25 2c 71 31 25 21 34 |ge",17,q1%,q1%!4|
000014f0 0d 09 38 48 20 20 20 20 20 20 20 e7 70 72 69 6e |..8H .prin|
00001500 74 66 69 6c 65 25 3e 30 20 70 72 69 6e 74 66 69 |tfile%>0 printfi|
00001510 6c 65 25 2b 3d 31 3a e7 70 72 69 6e 74 66 69 6c |le%+=1:.printfil|
00001520 65 25 3e 65 6e 74 72 69 65 73 25 20 70 72 69 6e |e%>entries% prin|
00001530 74 66 69 6c 65 25 3d 30 0d 09 42 25 20 20 20 20 |tfile%=0..B% |
00001540 20 20 20 e7 70 72 69 6e 74 66 69 6c 65 25 3c 30 | .printfile%<0|
00001550 20 70 72 69 6e 74 66 69 6c 65 25 3d 30 0d 09 4c | printfile%=0..L|
00001560 3b c9 33 3a 20 f4 20 21 45 64 69 74 20 68 61 73 |;.3: . !Edit has|
00001570 20 73 61 76 65 64 20 66 69 6c 65 20 2d 20 74 72 | saved file - tr|
00001580 61 6e 73 66 65 72 20 64 61 74 61 20 74 6f 20 6e |ansfer data to n|
00001590 6f 74 65 20 66 69 6c 65 0d 09 56 42 20 20 20 20 |ote file..VB |
000015a0 20 20 20 e7 63 75 72 72 65 6e 74 25 3d 30 20 f2 | .current%=0 .|
000015b0 6f 6b 28 22 44 65 66 69 6e 65 20 61 20 63 61 74 |ok("Define a cat|
000015c0 65 67 6f 72 79 20 62 65 66 6f 72 65 20 73 61 76 |egory before sav|
000015d0 69 6e 67 20 64 61 74 61 22 29 0d 09 60 14 20 20 |ing data")..`. |
000015e0 20 20 20 20 20 45 25 3d 30 3a 47 25 3d a3 0d 09 | E%=0:G%=...|
000015f0 6a 1b 20 20 20 20 20 20 20 46 24 3d a4 72 74 6f |j. F$=.rto|
00001600 7a 28 71 31 25 2b 34 34 29 0d 09 74 0c 20 20 20 |z(q1%+44)..t. |
00001610 20 20 20 20 f5 0d 09 7e 2d 20 20 20 20 20 20 20 | ...~- |
00001620 20 f4 20 74 72 79 20 74 6f 20 6f 70 65 6e 20 74 | . try to open t|
00001630 68 65 20 66 69 6c 65 20 66 6f 72 20 75 70 64 61 |he file for upda|
00001640 74 65 0d 09 88 4b 20 20 20 20 20 20 20 20 c8 99 |te...K ..|
00001650 22 58 4f 53 5f 46 69 6e 64 22 2c 26 43 30 2c 22 |"XOS_Find",&C0,"|
00001660 3c 4e 6f 74 65 73 24 44 69 72 3e 2e 43 61 74 65 |<Notes$Dir>.Cate|
00001670 67 6f 72 69 65 73 2e 22 2b 66 24 28 63 75 72 72 |gories."+f$(curr|
00001680 65 6e 74 25 29 20 b8 20 43 25 3b 44 25 0d 09 92 |ent%) . C%;D%...|
00001690 13 20 20 20 20 20 20 20 20 e7 44 25 80 31 20 8c |. .D%.1 .|
000016a0 0d 09 9c 37 20 20 20 20 20 20 20 20 20 43 25 3d |...7 C%=|
000016b0 30 3a f4 20 69 66 20 61 6c 72 65 61 64 79 20 6f |0:. if already o|
000016c0 70 65 6e 2c 20 72 65 73 65 74 20 68 61 6e 64 6c |pen, reset handl|
000016d0 65 20 26 20 2e 2e 2e 0d 09 a6 28 20 20 20 20 20 |e & ......( |
000016e0 20 20 20 20 47 25 3d b9 3a f4 20 6f 70 65 6e 20 | G%=.:. open |
000016f0 75 70 20 65 72 72 6f 72 20 77 69 6e 64 6f 77 0d |up error window.|
00001700 09 b0 13 20 20 20 20 20 20 20 20 20 21 71 32 25 |... !q2%|
00001710 3d 31 0d 09 ba 52 20 20 20 20 20 20 20 20 20 24 |=1...R $|
00001720 28 71 32 25 2b 34 29 3d 22 54 68 65 20 6e 6f 74 |(q2%+4)="The not|
00001730 65 73 20 66 69 6c 65 20 69 73 20 63 75 72 72 65 |es file is curre|
00001740 6e 74 6c 79 20 6f 70 65 6e 2e 20 57 61 69 74 20 |ntly open. Wait |
00001750 66 6f 72 20 69 74 20 74 6f 20 63 6c 6f 73 65 3f |for it to close?|
00001760 22 2b bd 30 0d 09 c4 3b 20 20 20 20 20 20 20 20 |"+.0...; |
00001770 20 c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 | .."Wimp_ReportE|
00001780 72 72 6f 72 22 2c 71 32 25 2c 25 31 31 30 30 31 |rror",q2%,%11001|
00001790 31 2c 22 4e 6f 74 65 73 22 20 b8 20 2c 45 25 0d |1,"Notes" . ,E%.|
000017a0 09 ce 14 20 20 20 20 20 20 20 20 20 e7 45 25 3d |... .E%=|
000017b0 31 20 8c 0d 09 d8 2b 20 20 20 20 20 20 20 20 20 |1 ....+ |
000017c0 20 45 25 3d 91 3a f5 20 fd 20 91 2d 45 25 3e 31 | E%=.:. . .-E%>1|
000017d0 30 3a f4 20 77 61 69 74 20 61 20 62 69 74 0d 09 |0:. wait a bit..|
000017e0 e2 28 20 20 20 20 20 20 20 20 20 20 45 25 3d 30 |.( E%=0|
000017f0 3a f4 20 72 65 74 72 79 20 69 66 20 4f 4b 20 63 |:. retry if OK c|
00001800 6c 69 63 6b 65 64 0d 09 ec 0e 20 20 20 20 20 20 |licked.... |
00001810 20 20 20 cd 0d 09 f6 0d 20 20 20 20 20 20 20 20 | ..... |
00001820 cd 0d 0a 00 19 20 20 20 20 20 20 20 fd 20 43 25 |..... . C%|
00001830 3c 3e 30 20 84 20 45 25 3d 32 0d 0a 0a 15 20 20 |<>0 . E%=2.... |
00001840 20 20 20 20 20 e7 45 25 3d 32 20 47 25 3d a3 0d | .E%=2 G%=..|
00001850 0a 14 38 20 20 20 20 20 20 20 e7 47 25 20 c8 99 |..8 .G% ..|
00001860 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f |"Wimp_ReportErro|
00001870 72 22 2c 71 32 25 2c 25 31 30 30 30 30 30 31 2c |r",q2%,%1000001,|
00001880 22 4e 6f 74 65 73 22 0d 0a 1e 13 20 20 20 20 20 |"Notes".... |
00001890 20 20 e7 43 25 3c 3e 30 20 8c 0d 0a 28 15 20 20 | .C%<>0 ...(. |
000018a0 20 20 20 20 20 20 cf 23 43 25 3d a2 23 43 25 0d | .#C%=.#C%.|
000018b0 0a 32 13 20 20 20 20 20 20 20 20 d5 23 43 25 2c |.2. .#C%,|
000018c0 91 24 0d 0a 3c 1c 20 20 20 20 20 20 20 20 d5 23 |.$..<. .#|
000018d0 43 25 2c c4 a9 28 91 24 29 2c 22 7e 22 29 0d 0a |C%,..(.$),"~")..|
000018e0 46 12 20 20 20 20 20 20 20 20 44 25 3d 8e 46 24 |F. D%=.F$|
000018f0 0d 0a 50 15 20 20 20 20 20 20 20 20 c8 95 20 ac |..P. .. .|
00001900 20 c5 23 44 25 0d 0a 5a 16 20 20 20 20 20 20 20 | .#D%..Z. |
00001910 20 20 d5 23 43 25 2c 9a 23 44 25 0d 0a 64 0d 20 | .#C%,.#D%..d. |
00001920 20 20 20 20 20 20 20 ce 0d 0a 6e 10 20 20 20 20 | ...n. |
00001930 20 20 20 20 d9 23 44 25 0d 0a 78 13 20 20 20 20 | .#D%..x. |
00001940 20 20 20 20 d5 23 43 25 2c 22 22 0d 0a 82 10 20 | .#C%,"".... |
00001950 20 20 20 20 20 20 20 d9 23 43 25 0d 0a 8c 16 20 | .#C%.... |
00001960 20 20 20 20 20 20 20 e7 75 6e 73 61 66 65 25 20 | .unsafe% |
00001970 8c 0d 0a 96 1c 20 20 20 20 20 20 20 20 20 ff 28 |..... .(|
00001980 22 44 65 6c 65 74 65 20 22 2b 46 24 29 0d 0a a0 |"Delete "+F$)...|
00001990 16 20 20 20 20 20 20 20 20 20 61 63 74 69 76 65 |. active|
000019a0 25 3d b9 0d 0a aa 0d 20 20 20 20 20 20 20 20 cd |%=..... .|
000019b0 0d 0a b4 15 20 20 20 20 20 20 20 20 75 6e 73 61 |.... unsa|
000019c0 66 65 25 3d a3 0d 0a be 21 20 20 20 20 20 20 20 |fe%=....! |
000019d0 20 71 31 25 21 31 36 3d 34 3a 71 31 25 21 31 32 | q1%!16=4:q1%!12|
000019e0 3d 71 31 25 21 38 0d 0a c8 2e 20 20 20 20 20 20 |=q1%!8.... |
000019f0 20 20 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d | .. "Wimp_SendM|
00001a00 65 73 73 61 67 65 22 2c 31 37 2c 71 31 25 2c 71 |essage",17,q1%,q|
00001a10 31 25 21 34 0d 0a d2 0c 20 20 20 20 20 20 20 cd |1%!4.... .|
00001a20 0d 0a dc 1c c9 26 35 30 32 3a 20 f2 69 6e 74 65 |.....&502: .inte|
00001a30 72 61 63 74 69 76 65 5f 68 65 6c 70 0d 0a e6 05 |ractive_help....|
00001a40 cb 0d 0a f0 05 e1 0d 0a fa 05 3a 0d 0b 04 16 dd |..........:.....|
00001a50 f2 69 6e 74 65 72 61 63 74 69 76 65 5f 68 65 6c |.interactive_hel|
00001a60 70 0d 0b 0e 08 ea 20 74 24 0d 0b 18 0f c8 8e 20 |p..... t$...... |
00001a70 71 31 25 21 33 32 20 ca 0d 0b 22 2e c9 2d 32 3a |q1%!32 ..."..-2:|
00001a80 20 74 24 3d 22 54 68 69 73 20 69 73 20 74 68 65 | t$="This is the|
00001a90 20 4e 6f 74 65 73 20 73 79 73 74 65 6d 20 69 63 | Notes system ic|
00001aa0 6f 6e 2e 7c 4d 22 0d 0b 2c 19 20 20 20 20 20 20 |on.|M"..,. |
00001ab0 20 20 e7 63 75 72 72 65 6e 74 25 3d 30 20 8c 0d | .current%=0 ..|
00001ac0 0b 36 33 20 20 20 20 20 20 20 20 20 74 24 2b 3d |.63 t$+=|
00001ad0 22 44 65 66 69 6e 65 20 61 20 63 61 74 65 67 6f |"Define a catego|
00001ae0 72 79 20 77 69 74 68 20 4d 45 4e 55 2d 41 64 64 |ry with MENU-Add|
00001af0 2e 22 0d 0b 40 0d 20 20 20 20 20 20 20 20 cc 0d |."..@. ..|
00001b00 0b 4a 54 20 20 20 20 20 20 20 20 20 74 24 2b 3d |.JT t$+=|
00001b10 22 44 72 6f 70 20 61 20 74 65 78 74 20 66 69 6c |"Drop a text fil|
00001b20 65 20 6f 6e 20 69 74 20 74 6f 20 61 64 64 20 74 |e on it to add t|
00001b30 68 65 20 74 65 78 74 20 74 6f 20 74 68 65 20 63 |he text to the c|
00001b40 75 72 72 65 6e 74 20 63 61 74 65 67 6f 72 79 2e |urrent category.|
00001b50 7c 4d 22 0d 0b 54 1a 20 20 20 20 20 20 20 20 20 ||M"..T. |
00001b60 e7 65 6e 74 72 69 65 73 25 3d 31 20 8c 0d 0b 5e |.entries%=1 ...^|
00001b70 3c 20 20 20 20 20 20 20 20 20 20 74 24 2b 3d 22 |< t$+="|
00001b80 44 65 66 69 6e 65 20 61 6e 6f 74 68 65 72 20 63 |Define another c|
00001b90 61 74 65 67 6f 72 79 20 77 69 74 68 20 4d 45 4e |ategory with MEN|
00001ba0 55 2d 41 64 64 2e 7c 4d 22 0d 0b 68 0e 20 20 20 |U-Add.|M"..h. |
00001bb0 20 20 20 20 20 20 cc 0d 0b 72 3d 20 20 20 20 20 | ...r= |
00001bc0 20 20 20 20 20 74 24 2b 3d 22 43 6c 69 63 6b 20 | t$+="Click |
00001bd0 53 45 4c 45 43 54 2f 41 44 4a 55 53 54 20 74 6f |SELECT/ADJUST to|
00001be0 20 63 68 61 6e 67 65 20 63 61 74 65 67 6f 72 79 | change category|
00001bf0 2e 7c 4d 22 0d 0b 7c 0e 20 20 20 20 20 20 20 20 |.|M"..|. |
00001c00 20 cd 0d 0b 86 55 20 20 20 20 20 20 20 20 20 74 | ....U t|
00001c10 24 2b 3d 22 43 6c 69 63 6b 20 4d 45 4e 55 20 74 |$+="Click MENU t|
00001c20 6f 20 64 65 6c 65 74 65 2c 20 76 69 65 77 2c 20 |o delete, view, |
00001c30 70 72 69 6e 74 20 6f 72 20 70 75 72 67 65 20 74 |print or purge t|
00001c40 68 69 73 20 6f 72 20 61 6c 6c 20 63 61 74 65 67 |his or all categ|
00001c50 6f 72 69 65 73 2e 22 0d 0b 90 0d 20 20 20 20 20 |ories.".... |
00001c60 20 20 20 cd 0d 0b 9a 05 cb 0d 0b a4 0d e7 74 24 | ...........t$|
00001c70 3c 3e 22 22 20 8c 0d 0b ae 11 20 71 31 25 21 31 |<>"" ..... q1%!1|
00001c80 32 3d 71 31 25 21 38 0d 0b b8 10 20 71 31 25 21 |2=q1%!8.... q1%!|
00001c90 31 36 3d 26 35 30 33 0d 0b c2 14 20 24 28 71 31 |16=&503.... $(q1|
00001ca0 25 2b 32 30 29 3d 74 24 2b bd 30 0d 0b cc 15 20 |%+20)=t$+.0.... |
00001cb0 21 71 31 25 3d 28 32 35 2b a9 74 24 29 80 ac 33 |!q1%=(25+.t$)..3|
00001cc0 0d 0b d6 26 20 c8 99 22 57 69 6d 70 5f 53 65 6e |...& .."Wimp_Sen|
00001cd0 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 71 31 25 |dMessage",17,q1%|
00001ce0 2c 71 31 25 21 34 0d 0b e0 05 cd 0d 0b ea 05 e1 |,q1%!4..........|
00001cf0 0d 0b f4 05 3a 0d 0b fe 0e dd f2 73 68 75 74 64 |....:......shutd|
00001d00 6f 77 6e 0d 0c 08 16 c8 99 22 57 69 6d 70 5f 43 |own......"Wimp_C|
00001d10 6c 6f 73 65 44 6f 77 6e 22 0d 0c 12 05 e1 0d 0c |loseDown".......|
00001d20 1c 05 3a 0d 0c 26 0b dd f2 65 72 72 6f 72 0d 0c |..:..&...error..|
00001d30 30 14 e7 65 72 72 6f 72 5f 66 6c 61 67 25 3d 33 |0..error_flag%=3|
00001d40 20 8c 0d 0c 3a 37 20 f2 65 72 72 6f 72 62 6f 78 | ...:7 .errorbox|
00001d50 28 22 55 6e 65 78 70 65 63 74 65 64 20 65 72 72 |("Unexpected err|
00001d60 6f 72 20 3a 2d 20 22 2b f6 24 2b 22 20 28 22 2b |or :- "+.$+" ("+|
00001d70 c3 28 9e 29 2b 22 29 22 29 0d 0c 44 05 cc 0d 0c |.(.)+")")..D....|
00001d80 4e 12 20 f2 65 72 72 6f 72 62 6f 78 28 f6 24 29 |N. .errorbox(.$)|
00001d90 0d 0c 58 05 cd 0d 0c 62 11 65 72 72 6f 72 5f 66 |..X....b.error_f|
00001da0 6c 61 67 25 3d 33 0d 0c 6c 05 e1 0d 0c 76 05 3a |lag%=3..l....v.:|
00001db0 0d 0c 80 0c dd f2 6f 6b 28 65 24 29 0d 0c 8a 11 |......ok(e$)....|
00001dc0 65 72 72 6f 72 5f 66 6c 61 67 25 3d 31 0d 0c 94 |error_flag%=1...|
00001dd0 0a 85 20 31 2c 65 24 0d 0c 9e 05 e1 0d 0c a8 05 |.. 1,e$.........|
00001de0 3a 0d 0c b2 0f dd f2 66 61 74 61 6c 28 65 24 29 |:......fatal(e$)|
00001df0 0d 0c bc 11 65 72 72 6f 72 5f 66 6c 61 67 25 3d |....error_flag%=|
00001e00 32 0d 0c c6 0a 85 20 31 2c 65 24 0d 0c d0 05 e1 |2..... 1,e$.....|
00001e10 0d 0c da 05 3a 0d 0c e4 12 dd f2 65 72 72 6f 72 |....:......error|
00001e20 62 6f 78 28 72 24 29 0d 0c ee 08 ea 20 72 25 0d |box(r$)..... r%.|
00001e30 0c f8 19 21 71 31 25 3d 9f 3a 24 28 71 31 25 2b |...!q1%=.:$(q1%+|
00001e40 34 29 3d 72 24 2b bd 30 0d 0d 02 36 c8 99 22 57 |4)=r$+.0...6.."W|
00001e50 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 |imp_ReportError"|
00001e60 2c 71 31 25 2c 65 72 72 6f 72 5f 66 6c 61 67 25 |,q1%,error_flag%|
00001e70 2c 22 4e 6f 74 65 73 22 20 b8 20 2c 72 25 0d 0d |,"Notes" . ,r%..|
00001e80 0c 1e e7 72 25 3d 32 20 c8 99 22 57 69 6d 70 5f |...r%=2 .."Wimp_|
00001e90 43 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 0d 16 05 |CloseDown":.....|
00001ea0 e1 0d 0d 20 05 3a 0d 0d 2a 0c dd a4 63 72 6d 65 |... .:..*...crme|
00001eb0 6e 75 0d 0d 34 11 ea 20 6d 25 2c 6d 65 6e 75 24 |nu..4.. m%,menu$|
00001ec0 2c 6d 24 0d 0d 3e 36 e7 20 28 6d 65 6e 75 66 72 |,m$..>6. (menufr|
00001ed0 65 65 25 2b 32 38 3e 6d 65 6e 75 65 6e 64 25 29 |ee%+28>menuend%)|
00001ee0 20 f2 66 61 74 61 6c 28 22 4d 65 6e 75 20 61 72 | .fatal("Menu ar|
00001ef0 65 61 20 66 75 6c 6c 22 29 0d 0d 48 0b f3 20 6d |ea full")..H.. m|
00001f00 65 6e 75 24 0d 0d 52 15 c8 95 20 c2 6d 65 6e 75 |enu$..R... .menu|
00001f10 24 2c 32 29 3d 22 2b 2b 22 0d 0d 5c 09 20 f3 20 |$,2)="++"..\. . |
00001f20 6d 24 0d 0d 66 1e 20 6d 65 6e 75 24 3d c0 6d 65 |m$..f. menu$=.me|
00001f30 6e 75 24 2c a9 6d 65 6e 75 24 2d 32 29 2b 6d 24 |nu$,.menu$-2)+m$|
00001f40 0d 0d 70 05 ce 0d 0d 7a 16 6d 65 6e 75 70 74 72 |..p....z.menuptr|
00001f50 25 3d 6d 65 6e 75 66 72 65 65 25 0d 0d 84 08 69 |%=menufree%....i|
00001f60 25 3d 30 0d 0d 8e 3d e7 20 c0 6d 65 6e 75 24 2c |%=0...=. .menu$,|
00001f70 31 29 3d 22 23 22 20 69 25 3d 31 3a 6d 65 6e 75 |1)="#" i%=1:menu|
00001f80 74 69 74 6c 65 24 3d a4 70 61 72 28 22 2c 22 29 |title$=.par(",")|
00001f90 20 8b 20 6d 65 6e 75 74 69 74 6c 65 24 3d 22 22 | . menutitle$=""|
00001fa0 0d 0d 98 18 24 6d 65 6e 75 70 74 72 25 3d 6d 65 |....$menuptr%=me|
00001fb0 6e 75 74 69 74 6c 65 24 0d 0d a2 11 6d 65 6e 75 |nutitle$....menu|
00001fc0 70 74 72 25 3f 31 32 3d 37 0d 0d ac 11 6d 65 6e |ptr%?12=7....men|
00001fd0 75 70 74 72 25 3f 31 33 3d 32 0d 0d b6 11 6d 65 |uptr%?13=2....me|
00001fe0 6e 75 70 74 72 25 3f 31 34 3d 37 0d 0d c0 11 6d |nuptr%?14=7....m|
00001ff0 65 6e 75 70 74 72 25 3f 31 35 3d 31 0d 0d ca 13 |enuptr%?15=1....|
00002000 6d 65 6e 75 70 74 72 25 21 31 36 3d 31 39 36 0d |menuptr%!16=196.|
00002010 0d d4 12 6d 65 6e 75 70 74 72 25 21 32 30 3d 34 |...menuptr%!20=4|
00002020 34 0d 0d de 11 6d 65 6e 75 70 74 72 25 21 32 34 |4....menuptr%!24|
00002030 3d 30 0d 0d e8 10 6d 65 6e 75 70 74 72 25 2b 3d |=0....menuptr%+=|
00002040 32 38 0d 0d f2 17 6d 61 78 78 25 3d a9 6d 65 6e |28....maxx%=.men|
00002050 75 74 69 74 6c 65 24 2d 33 0d 0d fc 05 f5 0d 0e |utitle$-3.......|
00002060 06 14 20 69 74 65 6d 24 3d a4 70 61 72 28 22 2c |.. item$=.par(",|
00002070 22 29 0d 0e 10 15 20 f2 6d 65 6e 75 69 74 65 6d |").... .menuitem|
00002080 28 69 74 65 6d 24 29 0d 0e 1a 0e fd 20 69 74 65 |(item$)..... ite|
00002090 6d 24 3d 22 22 0d 0e 24 10 6d 25 3d 6d 65 6e 75 |m$=""..$.m%=menu|
000020a0 66 72 65 65 25 0d 0e 2e 17 6d 25 21 31 36 3d 28 |free%....m%!16=(|
000020b0 6d 61 78 78 25 2a 38 2b 36 29 2a 32 0d 0e 38 16 |maxx%*8+6)*2..8.|
000020c0 6d 65 6e 75 66 72 65 65 25 3d 6d 65 6e 75 70 74 |menufree%=menupt|
000020d0 72 25 0d 0e 42 07 3d 6d 25 0d 0e 4c 05 3a 0d 0e |r%..B.=m%..L.:..|
000020e0 56 15 dd f2 6d 65 6e 75 69 74 65 6d 28 74 65 78 |V...menuitem(tex|
000020f0 74 24 29 0d 0e 60 18 ea 20 69 25 2c 66 6c 67 25 |t$)..`.. i%,flg%|
00002100 2c 73 75 62 70 74 72 25 2c 4c 25 0d 0e 6a 30 e7 |,subptr%,L%..j0.|
00002110 20 74 65 78 74 24 3d 22 22 20 6d 65 6e 75 70 74 | text$="" menupt|
00002120 72 25 21 2d 32 34 3d 28 6d 65 6e 75 70 74 72 25 |r%!-24=(menuptr%|
00002130 21 2d 32 34 29 84 26 38 30 3a e1 0d 0e 74 35 e7 |!-24).&80:...t5.|
00002140 20 28 6d 65 6e 75 70 74 72 25 2b 32 34 3e 6d 65 | (menuptr%+24>me|
00002150 6e 75 65 6e 64 25 29 20 f2 66 61 74 61 6c 28 22 |nuend%) .fatal("|
00002160 4d 65 6e 75 20 61 72 65 61 20 66 75 6c 6c 22 29 |Menu area full")|
00002170 0d 0e 7e 0c 66 6c 67 25 3d 26 30 30 0d 0e 88 12 |..~.flg%=&00....|
00002180 69 25 3d a7 74 65 78 74 24 2c 22 3e 22 29 0d 0e |i%=.text$,">")..|
00002190 92 0c e7 20 69 25 3e 30 20 8c 0d 0e 9c 1a 20 73 |... i%>0 ..... s|
000021a0 75 62 70 74 72 25 3d a0 c1 74 65 78 74 24 2c 69 |ubptr%=..text$,i|
000021b0 25 2b 31 29 0d 0e a6 17 20 74 65 78 74 24 3d c0 |%+1).... text$=.|
000021c0 74 65 78 74 24 2c 69 25 2d 31 29 0d 0e b0 05 cc |text$,i%-1).....|
000021d0 0d 0e ba 0f 20 73 75 62 70 74 72 25 3d 2d 31 0d |.... subptr%=-1.|
000021e0 0e c4 05 cd 0d 0e ce 34 e7 20 c2 74 65 78 74 24 |.......4. .text$|
000021f0 2c 31 29 3d 22 23 22 20 74 65 78 74 24 3d c0 74 |,1)="#" text$=.t|
00002200 65 78 74 24 2c a9 74 65 78 74 24 2d 31 29 3a 66 |ext$,.text$-1):f|
00002210 6c 67 25 2b 3d 26 30 32 0d 0e d8 13 6d 65 6e 75 |lg%+=&02....menu|
00002220 70 74 72 25 21 30 3d 66 6c 67 25 0d 0e e2 16 6d |ptr%!0=flg%....m|
00002230 65 6e 75 70 74 72 25 21 34 3d 73 75 62 70 74 72 |enuptr%!4=subptr|
00002240 25 0d 0e ec 18 6d 65 6e 75 70 74 72 25 21 38 3d |%....menuptr%!8=|
00002250 26 30 37 30 30 30 30 32 31 0d 0e f6 15 e7 20 c0 |&07000021..... .|
00002260 74 65 78 74 24 2c 31 29 3d 22 24 22 20 8c 0d 0f |text$,1)="$" ...|
00002270 00 13 20 21 6d 65 6e 75 70 74 72 25 2b 3d 26 30 |.. !menuptr%+=&0|
00002280 34 0d 0f 0a 15 20 6d 65 6e 75 70 74 72 25 21 38 |4.... menuptr%!8|
00002290 2b 3d 26 31 30 30 0d 0f 14 13 20 69 25 3d a7 74 |+=&100.... i%=.t|
000022a0 65 78 74 24 2c 22 28 22 29 0d 0f 1e 0d 20 e7 20 |ext$,"(").... . |
000022b0 69 25 3e 30 20 8c 0d 0f 28 16 20 20 4c 25 3d bb |i%>0 ...(. L%=.|
000022c0 c1 74 65 78 74 24 2c 69 25 2b 31 29 0d 0f 32 18 |.text$,i%+1)..2.|
000022d0 20 20 74 65 78 74 24 3d c0 74 65 78 74 24 2c 69 | text$=.text$,i|
000022e0 25 2d 31 29 0d 0f 3c 06 20 cc 0d 0f 46 0b 20 20 |%-1)..<. ...F. |
000022f0 4c 25 3d 31 32 0d 0f 50 06 20 cd 0d 0f 5a 1b 20 |L%=12..P. ...Z. |
00002300 6d 65 6e 75 70 74 72 25 21 31 32 3d a0 c1 74 65 |menuptr%!12=..te|
00002310 78 74 24 2c 32 29 0d 0f 64 13 20 6d 65 6e 75 70 |xt$,2)..d. menup|
00002320 74 72 25 21 31 36 3d 2d 31 0d 0f 6e 13 20 6d 65 |tr%!16=-1..n. me|
00002330 6e 75 70 74 72 25 21 32 30 3d 4c 25 0d 0f 78 11 |nuptr%!20=L%..x.|
00002340 20 e7 4c 25 3e 31 36 20 4c 25 3d 31 36 0d 0f 82 | .L%>16 L%=16...|
00002350 13 20 74 65 78 74 24 3d c4 4c 25 2c 22 20 22 29 |. text$=.L%," ")|
00002360 0d 0f 8c 05 cc 0d 0f 96 11 20 e7 a9 74 65 78 74 |......... ..text|
00002370 24 3c 3d 31 32 8c 0d 0f a0 1a 20 20 24 28 6d 65 |$<=12..... $(me|
00002380 6e 75 70 74 72 25 2b 31 32 29 3d 74 65 78 74 24 |nuptr%+12)=text$|
00002390 0d 0f aa 06 20 cc 0d 0f b4 27 20 20 49 25 3d a4 |.... ....' I%=.|
000023a0 77 6f 72 6b 73 70 61 63 65 28 a9 74 65 78 74 24 |workspace(.text$|
000023b0 2b 31 29 3a 24 49 25 3d 74 65 78 74 24 0d 0f be |+1):$I%=text$...|
000023c0 38 20 20 6d 65 6e 75 70 74 72 25 21 31 32 3d 49 |8 menuptr%!12=I|
000023d0 25 3a 6d 65 6e 75 70 74 72 25 21 31 36 3d 2d 31 |%:menuptr%!16=-1|
000023e0 3a 6d 65 6e 75 70 74 72 25 21 32 30 3d a9 74 65 |:menuptr%!20=.te|
000023f0 78 74 24 2b 31 0d 0f c8 22 20 20 6d 65 6e 75 70 |xt$+1..." menup|
00002400 74 72 25 21 38 3d 6d 65 6e 75 70 74 72 25 21 38 |tr%!8=menuptr%!8|
00002410 20 84 20 26 31 30 30 0d 0f d2 06 20 cd 0d 0f dc | . &100.... ....|
00002420 05 cd 0d 0f e6 1f e7 20 a9 74 65 78 74 24 3e 6d |....... .text$>m|
00002430 61 78 78 25 20 6d 61 78 78 25 3d a9 74 65 78 74 |axx% maxx%=.text|
00002440 24 0d 0f f0 10 6d 65 6e 75 70 74 72 25 2b 3d 32 |$....menuptr%+=2|
00002450 34 0d 0f fa 05 e1 0d 10 04 05 3a 0d 10 0e 0f dd |4.........:.....|
00002460 a4 70 61 72 28 73 65 70 24 29 0d 10 18 09 ea 20 |.par(sep$)..... |
00002470 69 31 25 0d 10 22 0c 69 31 25 3d 69 25 2b 31 0d |i1%..".i1%=i%+1.|
00002480 10 2c 1c 69 25 3d a7 6d 65 6e 75 24 2b 73 65 70 |.,.i%=.menu$+sep|
00002490 24 2c 73 65 70 24 2c 69 31 25 29 0d 10 36 17 3d |$,sep$,i1%)..6.=|
000024a0 c1 6d 65 6e 75 24 2c 69 31 25 2c 69 25 2d 69 31 |.menu$,i1%,i%-i1|
000024b0 25 29 0d 10 40 05 3a 0d 10 4a 1e dd f2 73 68 61 |%)..@.:..J...sha|
000024c0 64 65 28 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 69 |de(menuhandle%,i|
000024d0 74 65 6d 25 29 0d 10 54 43 6d 65 6e 75 68 61 6e |tem%)..TCmenuhan|
000024e0 64 6c 65 25 21 28 32 38 2b 38 2b 32 34 2a 69 74 |dle%!(28+8+24*it|
000024f0 65 6d 25 29 3d 6d 65 6e 75 68 61 6e 64 6c 65 25 |em%)=menuhandle%|
00002500 21 28 32 38 2b 38 2b 32 34 2a 69 74 65 6d 25 29 |!(28+8+24*item%)|
00002510 82 26 34 30 30 30 30 30 0d 10 5e 05 e1 0d 10 68 |.&400000..^....h|
00002520 05 3a 0d 10 72 25 dd a4 73 68 61 64 65 5f 73 74 |.:..r%..shade_st|
00002530 61 74 75 73 28 6d 65 6e 75 68 61 6e 64 6c 65 25 |atus(menuhandle%|
00002540 2c 69 74 65 6d 25 29 0d 10 7c 38 3d 20 2d 28 28 |,item%)..|8= -((|
00002550 6d 65 6e 75 68 61 6e 64 6c 65 25 21 28 32 38 2b |menuhandle%!(28+|
00002560 38 2b 32 34 2a 69 74 65 6d 25 29 20 80 20 26 34 |8+24*item%) . &4|
00002570 30 30 30 30 30 29 3d 26 34 30 30 30 30 30 29 0d |00000)=&400000).|
00002580 10 86 05 3a 0d 10 90 29 dd f2 73 65 74 5f 73 68 |...:...)..set_sh|
00002590 61 64 65 28 6d 65 6e 75 68 61 6e 64 6c 65 25 2c |ade(menuhandle%,|
000025a0 69 74 65 6d 25 2c 76 61 6c 75 65 25 29 0d 10 9a |item%,value%)...|
000025b0 47 e7 a4 73 68 61 64 65 5f 73 74 61 74 75 73 28 |G..shade_status(|
000025c0 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 69 74 65 6d |menuhandle%,item|
000025d0 25 29 3c 3e 76 61 6c 75 65 25 20 f2 73 68 61 64 |%)<>value% .shad|
000025e0 65 28 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 69 74 |e(menuhandle%,it|
000025f0 65 6d 25 29 0d 10 a4 05 e1 0d 10 ae 05 3a 0d 10 |em%).........:..|
00002600 b8 1d dd f2 74 69 63 6b 28 6d 65 6e 75 68 61 6e |....tick(menuhan|
00002610 64 6c 65 25 2c 69 74 65 6d 25 29 0d 10 c2 39 6d |dle%,item%)...9m|
00002620 65 6e 75 68 61 6e 64 6c 65 25 21 28 32 38 2b 32 |enuhandle%!(28+2|
00002630 34 2a 69 74 65 6d 25 29 3d 6d 65 6e 75 68 61 6e |4*item%)=menuhan|
00002640 64 6c 65 25 21 28 32 38 2b 32 34 2a 69 74 65 6d |dle%!(28+24*item|
00002650 25 29 82 31 0d 10 cc 05 e1 0d 10 d6 05 3a 0d 10 |%).1.........:..|
00002660 e0 24 dd a4 74 69 63 6b 5f 73 74 61 74 75 73 28 |.$..tick_status(|
00002670 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 69 74 65 6d |menuhandle%,item|
00002680 25 29 0d 10 ea 21 3d 20 6d 65 6e 75 68 61 6e 64 |%)...!= menuhand|
00002690 6c 65 25 21 28 32 38 2b 32 34 2a 69 74 65 6d 25 |le%!(28+24*item%|
000026a0 29 80 31 0d 10 f4 05 3a 0d 10 fe 28 dd f2 73 65 |).1....:...(..se|
000026b0 74 5f 74 69 63 6b 28 6d 65 6e 75 68 61 6e 64 6c |t_tick(menuhandl|
000026c0 65 25 2c 69 74 65 6d 25 2c 76 61 6c 75 65 25 29 |e%,item%,value%)|
000026d0 0d 11 08 45 e7 a4 74 69 63 6b 5f 73 74 61 74 75 |...E..tick_statu|
000026e0 73 28 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 69 74 |s(menuhandle%,it|
000026f0 65 6d 25 29 3c 3e 76 61 6c 75 65 25 20 f2 74 69 |em%)<>value% .ti|
00002700 63 6b 28 6d 65 6e 75 68 61 6e 64 6c 65 25 2c 69 |ck(menuhandle%,i|
00002710 74 65 6d 25 29 0d 11 12 05 e1 0d 11 1c 05 3a 0d |tem%).........:.|
00002720 11 26 13 dd a4 77 6f 72 6b 73 70 61 63 65 28 4c |.&...workspace(L|
00002730 25 29 0d 11 30 38 e7 20 63 75 72 77 73 25 2b 4c |%)..08. curws%+L|
00002740 25 3e 77 73 25 2b 6d 61 78 77 73 25 20 8c 20 f2 |%>ws%+maxws% . .|
00002750 66 61 74 61 6c 28 22 4e 6f 20 6d 6f 72 65 20 77 |fatal("No more w|
00002760 6f 72 6b 73 70 61 63 65 22 29 0d 11 3a 0e 63 75 |orkspace")..:.cu|
00002770 72 77 73 25 2b 3d 4c 25 0d 11 44 0e 3d 63 75 72 |rws%+=L%..D.=cur|
00002780 77 73 25 2d 4c 25 0d ff |ws%-L%..|
00002788 
.