� >!RunImage
testing%=�
)ț "<BasicLibrary$File>":�initlibrary
(I� � �closemessages:�4:�:�" at line ";�:� testing%=� ��("Spool"):� � �
2 � testing%=� �*Spool Spooled
<� testing%=� �� �
F5� Appname$ is used for task manager & Appname$Dir
P)� shortname$ is used for iconbar name
Z'� longname$ is used for info window
d6Appname$="ShowError":version$="1.02 (23 May 1996)"
n6shortname$="":longname$="Show errors from WimpLib"
x'Appdir$=�systemvar(Appname$+"$Dir")
�go$=�GetEnv
�&� �upper(go$)="-ICON" �ib=� � ib=�
��initwimp:�initprog
�quit%=�
�� � �error:� �tt@
��
�
 �Poll
�� quit%
�ș "Wimp_CloseDown"
��closemessages
�� testing%=� �*SPOOL
��
�5� quit%=-1 for user quit, -2 for taskmanager quit

:


��Poll

'ș "OS_ReadMonotonicTime" � t:t+=50

"'ș "Wimp_PollIdle",0,b%,t � reason%

,Ȏ reason% �

6 � 0:�check

@ � 1 = Redraw window

J! � 2:ș "Wimp_OpenWindow",,b%

T" � 3:ș "Wimp_CloseWindow",,b%

^& � 6:�mouseclick(b%!8,b%!12,b%!16)

h+ � 7 = Drag box dropped on another task

r% � 8:�processkey(b%!0,b%!4,b%!24)

| � 9:�menuchoice

� � 17,18:�receive(b%!16)

��

��

�:

�0� Buttons : 1 = Adjust, 2 = Menu, 4 = Select

���mouseclick(but,win,icon)

�Ȏ win �

�	 � -2

�  Ȏ but �

�   � 4:�opencheckwin

�   � 1:�closewin(errorwin%)

�   � 2:�ibmenu

�  �
 � errorwin%
  Ȏ icon �
   � 3:�movetoline
&&   :� but=2 ��menu(ibmenu%,-1,-1)
0  �
:�
D�
N:
X��processkey(win,icon,key)
b� keydone:keydone=�
lȎ win �
v�
�)� � keydone �ș "Wimp_ProcessKey",key
��
�:
���menuchoice
�Dș"Wimp_GetPointerInfo",,message_buffer%:mbut%=message_buffer%!8
�m$=�decodemenu(curmenu%)
�Ȏ m$ �
� � "Quit":quit%=�
��
�-� (mbut%�1)=1 ��recreatemenu �curmenu%=-1
��
�:
���receive(mess)

Ȏ mess �
 � &400C1 = mode change
 � &400C2 = task start up
  � &400C3 = task shut down
* � 0:quit%=�*2
4 � 3,5:type=b%!40
>  � type = &8888 �
H   b%!12=b%!8:b%!16=4
R&   ș"Wimp_SendMessage",17,b%,b%!4
\'   �loadfile(�string0(b%+44),b%!40)
f  �
p# � &502:�Help(b%!32,b%!36,b%!4)
z � 10:�desktopsave(b%!20)
��
��
�:
���desktopsave(file%)
�� �
�;� � � b%!12=b%!8:ș "Wimp_SendMessage",19,b%,b%!4:� �:�
�@� The above line acknowledges the message if an error occurs
� � aborting the desktop save.
��#file%,"Run "+Appdir$
��
�:
���loadfile(file$,type)
�
Ȏ type �
�
�
:
$/� Any messages to be received MUST be noted
.��initwimp
8!� messagelist% 256:messptr%=0
B'�notemessage(&502):�notemessage(10)
L�notemessage(0)
VQș "Wimp_Initialise",310,&4B534154,Appname$,messagelist% � wimpversion,handle
`Gindl%=1024:menul%=1024:� b% 2048,ind% indl%,menu% menul%,wspc% &800
jcurmenu%=-1
t�openmessages
~-sprites%=�loadsprites(Appdir$+".Sprites")
�$infobox%=�loadtemplate("Info",1)
�&errorwin%=�loadtemplate("Error",1)
�%�seticontext(infobox%,1,Appname$)
�&�seticontext(infobox%,2,longname$)
�%�seticontext(infobox%,4,version$)
�
� ib �
�; ibhandle=�CreateIconBarIcon("!ShowError",shortname$,1)
��
�8ibmenu%=�createmenu(Appname$+"|Info]>infobox%|Quit")
�iboptions%=options%
��
�:
��initprog

(last$="":�check:�closewin(errorwin%)
�
:
(��Help(win,icon,to)
2!� �DPE:�readhelp(win,icon,to)
<�
F
� Windows
P� infobox%,">HInfobox"
Z� 3,">HInfobox3"
d� -2,">HIconbar"
n� -1,-1
x� Menus
�� -2,-2,-2,-2
�:
���check
�a$=�systemvar("Error$")
�3� �a$,�(" Cancel to Quit"))=" Cancel to Quit" �
�' a$=�a$,�(a$)-�(" Cancel to Quit"))
��
�� a$<>last$ �
�
 last$=a$
� line=�(�a$,�a$,"(")+1))
� e$=�a$,�a$,")")+1)
�! �seticontext(errorwin%,1,e$)
�$ �seticontext(errorwin%,3,�line)
7 �seticontext(errorwin%,5,�systemvar("Error$Task"))
 *Unset Error$Task
 �opencheckwin
"�
,�
6:
@��opencheckwin
J�closewin(errorwin%)
T*!b%=4:b%!4=5:b%!8=11:b%!12=12:b%!16=-1
^%ș "OS_ReadVduVariables",b%,b%+20
h+right=b%!28+1<<b%!20:top=b%!32+1<<b%!24
r.!b%=errorwin%:ș "Wimp_GetWindowState",,b%
|&width=b%!12-b%!4:height=b%!16-b%!8
�:b%!4=right-width:b%!8=top-height:b%!12=right:b%!16=top
�%b%!28=-1:ș "Wimp_OpenWindow",,b%
��
�:
���movetoline
�%ș "XOS_Module",18,"Zap" � ;flags
�� (flags � 1) �
�
 � No Zap
� �7
��
�- ș "XOS_Module",18,"ZapDecimal" � ;flags
� � (flags � 1) �
�	  � 7
  � No ZapDecimal
 �
R  ș "Wimp_StartTask","*ZapCommand GotoLine """+�geticontext(errorwin%,3)+""""
& �
0�
:�
D:
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 0e 74 65 73 74  69 6e 67 25 3d a3 0d 00  |....testing%=...|
00000020  1e 29 c8 9b 20 22 3c 42  61 73 69 63 4c 69 62 72  |.).. "<BasicLibr|
00000030  61 72 79 24 46 69 6c 65  3e 22 3a f2 69 6e 69 74  |ary$File>":.init|
00000040  6c 69 62 72 61 72 79 0d  00 28 49 ee 20 85 20 f2  |library..(I. . .|
00000050  63 6c 6f 73 65 6d 65 73  73 61 67 65 73 3a ef 34  |closemessages:.4|
00000060  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  |:.:." at line ";|
00000070  9e 3a e7 20 74 65 73 74  69 6e 67 25 3d b9 20 8c  |.:. testing%=. .|
00000080  ff 28 22 53 70 6f 6f 6c  22 29 3a e0 20 8b 20 e0  |.("Spool"):. . .|
00000090  0d 00 32 20 e7 20 74 65  73 74 69 6e 67 25 3d b9  |..2 . testing%=.|
000000a0  20 8c 2a 53 70 6f 6f 6c  20 53 70 6f 6f 6c 65 64  | .*Spool Spooled|
000000b0  0d 00 3c 15 e7 20 74 65  73 74 69 6e 67 25 3d b9  |..<.. testing%=.|
000000c0  20 8c fc 20 ee 0d 00 46  35 f4 20 41 70 70 6e 61  | .. ...F5. Appna|
000000d0  6d 65 24 20 69 73 20 75  73 65 64 20 66 6f 72 20  |me$ is used for |
000000e0  74 61 73 6b 20 6d 61 6e  61 67 65 72 20 26 20 41  |task manager & A|
000000f0  70 70 6e 61 6d 65 24 44  69 72 0d 00 50 29 f4 20  |ppname$Dir..P). |
00000100  73 68 6f 72 74 6e 61 6d  65 24 20 69 73 20 75 73  |shortname$ is us|
00000110  65 64 20 66 6f 72 20 69  63 6f 6e 62 61 72 20 6e  |ed for iconbar n|
00000120  61 6d 65 0d 00 5a 27 f4  20 6c 6f 6e 67 6e 61 6d  |ame..Z'. longnam|
00000130  65 24 20 69 73 20 75 73  65 64 20 66 6f 72 20 69  |e$ is used for i|
00000140  6e 66 6f 20 77 69 6e 64  6f 77 0d 00 64 36 41 70  |nfo window..d6Ap|
00000150  70 6e 61 6d 65 24 3d 22  53 68 6f 77 45 72 72 6f  |pname$="ShowErro|
00000160  72 22 3a 76 65 72 73 69  6f 6e 24 3d 22 31 2e 30  |r":version$="1.0|
00000170  32 20 28 32 33 20 4d 61  79 20 31 39 39 36 29 22  |2 (23 May 1996)"|
00000180  0d 00 6e 36 73 68 6f 72  74 6e 61 6d 65 24 3d 22  |..n6shortname$="|
00000190  22 3a 6c 6f 6e 67 6e 61  6d 65 24 3d 22 53 68 6f  |":longname$="Sho|
000001a0  77 20 65 72 72 6f 72 73  20 66 72 6f 6d 20 57 69  |w errors from Wi|
000001b0  6d 70 4c 69 62 22 0d 00  78 27 41 70 70 64 69 72  |mpLib"..x'Appdir|
000001c0  24 3d a4 73 79 73 74 65  6d 76 61 72 28 41 70 70  |$=.systemvar(App|
000001d0  6e 61 6d 65 24 2b 22 24  44 69 72 22 29 0d 00 82  |name$+"$Dir")...|
000001e0  0f 67 6f 24 3d a4 47 65  74 45 6e 76 0d 00 8c 26  |.go$=.GetEnv...&|
000001f0  e7 20 a4 75 70 70 65 72  28 67 6f 24 29 3d 22 2d  |. .upper(go$)="-|
00000200  49 43 4f 4e 22 20 8c 69  62 3d b9 20 8b 20 69 62  |ICON" .ib=. . ib|
00000210  3d a3 0d 00 96 17 f2 69  6e 69 74 77 69 6d 70 3a  |=......initwimp:|
00000220  f2 69 6e 69 74 70 72 6f  67 0d 00 a0 0b 71 75 69  |.initprog....qui|
00000230  74 25 3d a3 0d 00 aa 15  ee 20 85 20 f2 65 72 72  |t%=...... . .err|
00000240  6f 72 3a e5 20 8d 74 74  40 0d 00 b4 05 f5 0d 00  |or:. .tt@.......|
00000250  be 0a 20 f2 50 6f 6c 6c  0d 00 c8 0b fd 20 71 75  |.. .Poll..... qu|
00000260  69 74 25 0d 00 d2 17 c8  99 20 22 57 69 6d 70 5f  |it%...... "Wimp_|
00000270  43 6c 6f 73 65 44 6f 77  6e 22 0d 00 dc 12 f2 63  |CloseDown".....c|
00000280  6c 6f 73 65 6d 65 73 73  61 67 65 73 0d 00 e6 18  |losemessages....|
00000290  e7 20 74 65 73 74 69 6e  67 25 3d b9 20 8c 2a 53  |. testing%=. .*S|
000002a0  50 4f 4f 4c 0d 00 f0 05  e0 0d 00 fa 35 f4 20 71  |POOL........5. q|
000002b0  75 69 74 25 3d 2d 31 20  66 6f 72 20 75 73 65 72  |uit%=-1 for user|
000002c0  20 71 75 69 74 2c 20 2d  32 20 66 6f 72 20 74 61  | quit, -2 for ta|
000002d0  73 6b 6d 61 6e 61 67 65  72 20 71 75 69 74 0d 01  |skmanager quit..|
000002e0  04 05 3a 0d 01 0e 0a dd  f2 50 6f 6c 6c 0d 01 18  |..:......Poll...|
000002f0  27 c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 6e 6f  |'.. "OS_ReadMono|
00000300  74 6f 6e 69 63 54 69 6d  65 22 20 b8 20 74 3a 74  |tonicTime" . t:t|
00000310  2b 3d 35 30 0d 01 22 27  c8 99 20 22 57 69 6d 70  |+=50.."'.. "Wimp|
00000320  5f 50 6f 6c 6c 49 64 6c  65 22 2c 30 2c 62 25 2c  |_PollIdle",0,b%,|
00000330  74 20 b8 20 72 65 61 73  6f 6e 25 0d 01 2c 10 c8  |t . reason%..,..|
00000340  8e 20 72 65 61 73 6f 6e  25 20 ca 0d 01 36 0f 20  |. reason% ...6. |
00000350  c9 20 30 3a f2 63 68 65  63 6b 0d 01 40 18 20 f4  |. 0:.check..@. .|
00000360  20 31 20 3d 20 52 65 64  72 61 77 20 77 69 6e 64  | 1 = Redraw wind|
00000370  6f 77 0d 01 4a 21 20 c9  20 32 3a c8 99 20 22 57  |ow..J! . 2:.. "W|
00000380  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000390  2c 62 25 0d 01 54 22 20  c9 20 33 3a c8 99 20 22  |,b%..T" . 3:.. "|
000003a0  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
000003b0  22 2c 2c 62 25 0d 01 5e  26 20 c9 20 36 3a f2 6d  |",,b%..^& . 6:.m|
000003c0  6f 75 73 65 63 6c 69 63  6b 28 62 25 21 38 2c 62  |ouseclick(b%!8,b|
000003d0  25 21 31 32 2c 62 25 21  31 36 29 0d 01 68 2b 20  |%!12,b%!16)..h+ |
000003e0  f4 20 37 20 3d 20 44 72  61 67 20 62 6f 78 20 64  |. 7 = Drag box d|
000003f0  72 6f 70 70 65 64 20 6f  6e 20 61 6e 6f 74 68 65  |ropped on anothe|
00000400  72 20 74 61 73 6b 0d 01  72 25 20 c9 20 38 3a f2  |r task..r% . 8:.|
00000410  70 72 6f 63 65 73 73 6b  65 79 28 62 25 21 30 2c  |processkey(b%!0,|
00000420  62 25 21 34 2c 62 25 21  32 34 29 0d 01 7c 14 20  |b%!4,b%!24)..|. |
00000430  c9 20 39 3a f2 6d 65 6e  75 63 68 6f 69 63 65 0d  |. 9:.menuchoice.|
00000440  01 86 1c 20 c9 20 31 37  2c 31 38 3a f2 72 65 63  |... . 17,18:.rec|
00000450  65 69 76 65 28 62 25 21  31 36 29 0d 01 90 05 cb  |eive(b%!16).....|
00000460  0d 01 9a 05 e1 0d 01 a4  05 3a 0d 01 ae 30 f4 20  |.........:...0. |
00000470  42 75 74 74 6f 6e 73 20  3a 20 31 20 3d 20 41 64  |Buttons : 1 = Ad|
00000480  6a 75 73 74 2c 20 32 20  3d 20 4d 65 6e 75 2c 20  |just, 2 = Menu, |
00000490  34 20 3d 20 53 65 6c 65  63 74 0d 01 b8 1e dd f2  |4 = Select......|
000004a0  6d 6f 75 73 65 63 6c 69  63 6b 28 62 75 74 2c 77  |mouseclick(but,w|
000004b0  69 6e 2c 69 63 6f 6e 29  0d 01 c2 0c c8 8e 20 77  |in,icon)...... w|
000004c0  69 6e 20 ca 0d 01 cc 09  20 c9 20 2d 32 0d 01 d6  |in ..... . -2...|
000004d0  0e 20 20 c8 8e 20 62 75  74 20 ca 0d 01 e0 18 20  |.  .. but ..... |
000004e0  20 20 c9 20 34 3a f2 6f  70 65 6e 63 68 65 63 6b  |  . 4:.opencheck|
000004f0  77 69 6e 0d 01 ea 1f 20  20 20 c9 20 31 3a f2 63  |win....   . 1:.c|
00000500  6c 6f 73 65 77 69 6e 28  65 72 72 6f 72 77 69 6e  |losewin(errorwin|
00000510  25 29 0d 01 f4 12 20 20  20 c9 20 32 3a f2 69 62  |%)....   . 2:.ib|
00000520  6d 65 6e 75 0d 01 fe 07  20 20 cb 0d 02 08 10 20  |menu....  ..... |
00000530  c9 20 65 72 72 6f 72 77  69 6e 25 0d 02 12 0f 20  |. errorwin%.... |
00000540  20 c8 8e 20 69 63 6f 6e  20 ca 0d 02 1c 16 20 20  | .. icon .....  |
00000550  20 c9 20 33 3a f2 6d 6f  76 65 74 6f 6c 69 6e 65  | . 3:.movetoline|
00000560  0d 02 26 26 20 20 20 7f  3a e7 20 62 75 74 3d 32  |..&&   .:. but=2|
00000570  20 8c f2 6d 65 6e 75 28  69 62 6d 65 6e 75 25 2c  | ..menu(ibmenu%,|
00000580  2d 31 2c 2d 31 29 0d 02  30 07 20 20 cb 0d 02 3a  |-1,-1)..0.  ...:|
00000590  05 cb 0d 02 44 05 e1 0d  02 4e 05 3a 0d 02 58 1e  |....D....N.:..X.|
000005a0  dd f2 70 72 6f 63 65 73  73 6b 65 79 28 77 69 6e  |..processkey(win|
000005b0  2c 69 63 6f 6e 2c 6b 65  79 29 0d 02 62 17 ea 20  |,icon,key)..b.. |
000005c0  6b 65 79 64 6f 6e 65 3a  6b 65 79 64 6f 6e 65 3d  |keydone:keydone=|
000005d0  a3 0d 02 6c 0c c8 8e 20  77 69 6e 20 ca 0d 02 76  |...l... win ...v|
000005e0  05 cb 0d 02 80 29 e7 20  ac 20 6b 65 79 64 6f 6e  |.....). . keydon|
000005f0  65 20 8c c8 99 20 22 57  69 6d 70 5f 50 72 6f 63  |e ... "Wimp_Proc|
00000600  65 73 73 4b 65 79 22 2c  6b 65 79 0d 02 8a 05 e1  |essKey",key.....|
00000610  0d 02 94 05 3a 0d 02 9e  10 dd f2 6d 65 6e 75 63  |....:......menuc|
00000620  68 6f 69 63 65 0d 02 a8  44 c8 99 22 57 69 6d 70  |hoice...D.."Wimp|
00000630  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000640  2c 2c 6d 65 73 73 61 67  65 5f 62 75 66 66 65 72  |,,message_buffer|
00000650  25 3a 6d 62 75 74 25 3d  6d 65 73 73 61 67 65 5f  |%:mbut%=message_|
00000660  62 75 66 66 65 72 25 21  38 0d 02 b2 1c 6d 24 3d  |buffer%!8....m$=|
00000670  a4 64 65 63 6f 64 65 6d  65 6e 75 28 63 75 72 6d  |.decodemenu(curm|
00000680  65 6e 75 25 29 0d 02 bc  0b c8 8e 20 6d 24 20 ca  |enu%)...... m$ .|
00000690  0d 02 c6 15 20 c9 20 22  51 75 69 74 22 3a 71 75  |.... . "Quit":qu|
000006a0  69 74 25 3d b9 0d 02 d0  05 cb 0d 02 da 2d e7 20  |it%=.........-. |
000006b0  28 6d 62 75 74 25 80 31  29 3d 31 20 8c f2 72 65  |(mbut%.1)=1 ..re|
000006c0  63 72 65 61 74 65 6d 65  6e 75 20 8b 63 75 72 6d  |createmenu .curm|
000006d0  65 6e 75 25 3d 2d 31 0d  02 e4 05 e1 0d 02 ee 05  |enu%=-1.........|
000006e0  3a 0d 02 f8 13 dd f2 72  65 63 65 69 76 65 28 6d  |:......receive(m|
000006f0  65 73 73 29 0d 03 02 0d  c8 8e 20 6d 65 73 73 20  |ess)...... mess |
00000700  ca 0d 03 0c 1b 20 f4 20  26 34 30 30 43 31 20 3d  |..... . &400C1 =|
00000710  20 6d 6f 64 65 20 63 68  61 6e 67 65 0d 03 16 1d  | mode change....|
00000720  20 f4 20 26 34 30 30 43  32 20 3d 20 74 61 73 6b  | . &400C2 = task|
00000730  20 73 74 61 72 74 20 75  70 0d 03 20 1e 20 f4 20  | start up.. . . |
00000740  26 34 30 30 43 33 20 3d  20 74 61 73 6b 20 73 68  |&400C3 = task sh|
00000750  75 74 20 64 6f 77 6e 0d  03 2a 12 20 c9 20 30 3a  |ut down..*. . 0:|
00000760  71 75 69 74 25 3d b9 2a  32 0d 03 34 15 20 c9 20  |quit%=.*2..4. . |
00000770  33 2c 35 3a 74 79 70 65  3d 62 25 21 34 30 0d 03  |3,5:type=b%!40..|
00000780  3e 16 20 20 e7 20 74 79  70 65 20 3d 20 26 38 38  |>.  . type = &88|
00000790  38 38 20 8c 0d 03 48 19  20 20 20 62 25 21 31 32  |88 ...H.   b%!12|
000007a0  3d 62 25 21 38 3a 62 25  21 31 36 3d 34 0d 03 52  |=b%!8:b%!16=4..R|
000007b0  26 20 20 20 c8 99 22 57  69 6d 70 5f 53 65 6e 64  |&   .."Wimp_Send|
000007c0  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 25 2c 62  |Message",17,b%,b|
000007d0  25 21 34 0d 03 5c 27 20  20 20 f2 6c 6f 61 64 66  |%!4..\'   .loadf|
000007e0  69 6c 65 28 a4 73 74 72  69 6e 67 30 28 62 25 2b  |ile(.string0(b%+|
000007f0  34 34 29 2c 62 25 21 34  30 29 0d 03 66 07 20 20  |44),b%!40)..f.  |
00000800  cd 0d 03 70 23 20 c9 20  26 35 30 32 3a f2 48 65  |...p# . &502:.He|
00000810  6c 70 28 62 25 21 33 32  2c 62 25 21 33 36 2c 62  |lp(b%!32,b%!36,b|
00000820  25 21 34 29 0d 03 7a 1d  20 c9 20 31 30 3a f2 64  |%!4)..z. . 10:.d|
00000830  65 73 6b 74 6f 70 73 61  76 65 28 62 25 21 32 30  |esktopsave(b%!20|
00000840  29 0d 03 84 05 cb 0d 03  8e 05 e1 0d 03 98 05 3a  |)..............:|
00000850  0d 03 a2 18 dd f2 64 65  73 6b 74 6f 70 73 61 76  |......desktopsav|
00000860  65 28 66 69 6c 65 25 29  0d 03 ac 07 ea 20 85 0d  |e(file%)..... ..|
00000870  03 b6 3b ee 20 85 20 ea  20 62 25 21 31 32 3d 62  |..;. . . b%!12=b|
00000880  25 21 38 3a c8 99 20 22  57 69 6d 70 5f 53 65 6e  |%!8:.. "Wimp_Sen|
00000890  64 4d 65 73 73 61 67 65  22 2c 31 39 2c 62 25 2c  |dMessage",19,b%,|
000008a0  62 25 21 34 3a f7 20 85  3a e1 0d 03 c0 40 f4 20  |b%!4:. .:....@. |
000008b0  54 68 65 20 61 62 6f 76  65 20 6c 69 6e 65 20 61  |The above line a|
000008c0  63 6b 6e 6f 77 6c 65 64  67 65 73 20 74 68 65 20  |cknowledges the |
000008d0  6d 65 73 73 61 67 65 20  69 66 20 61 6e 20 65 72  |message if an er|
000008e0  72 6f 72 20 6f 63 63 75  72 73 0d 03 ca 20 f4 20  |ror occurs... . |
000008f0  61 62 6f 72 74 69 6e 67  20 74 68 65 20 64 65 73  |aborting the des|
00000900  6b 74 6f 70 20 73 61 76  65 2e 0d 03 d4 1a d5 23  |ktop save......#|
00000910  66 69 6c 65 25 2c 22 52  75 6e 20 22 2b 41 70 70  |file%,"Run "+App|
00000920  64 69 72 24 0d 03 de 05  e1 0d 03 e8 05 3a 0d 03  |dir$.........:..|
00000930  f2 1a dd f2 6c 6f 61 64  66 69 6c 65 28 66 69 6c  |....loadfile(fil|
00000940  65 24 2c 74 79 70 65 29  0d 03 fc 0d c8 8e 20 74  |e$,type)...... t|
00000950  79 70 65 20 ca 0d 04 06  05 cb 0d 04 10 05 e1 0d  |ype ............|
00000960  04 1a 05 3a 0d 04 24 2f  f4 20 41 6e 79 20 6d 65  |...:..$/. Any me|
00000970  73 73 61 67 65 73 20 74  6f 20 62 65 20 72 65 63  |ssages to be rec|
00000980  65 69 76 65 64 20 4d 55  53 54 20 62 65 20 6e 6f  |eived MUST be no|
00000990  74 65 64 0d 04 2e 0e dd  f2 69 6e 69 74 77 69 6d  |ted......initwim|
000009a0  70 0d 04 38 21 de 20 6d  65 73 73 61 67 65 6c 69  |p..8!. messageli|
000009b0  73 74 25 20 32 35 36 3a  6d 65 73 73 70 74 72 25  |st% 256:messptr%|
000009c0  3d 30 0d 04 42 27 f2 6e  6f 74 65 6d 65 73 73 61  |=0..B'.notemessa|
000009d0  67 65 28 26 35 30 32 29  3a f2 6e 6f 74 65 6d 65  |ge(&502):.noteme|
000009e0  73 73 61 67 65 28 31 30  29 0d 04 4c 13 f2 6e 6f  |ssage(10)..L..no|
000009f0  74 65 6d 65 73 73 61 67  65 28 30 29 0d 04 56 51  |temessage(0)..VQ|
00000a00  c8 99 20 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |.. "Wimp_Initial|
00000a10  69 73 65 22 2c 33 31 30  2c 26 34 42 35 33 34 31  |ise",310,&4B5341|
00000a20  35 34 2c 41 70 70 6e 61  6d 65 24 2c 6d 65 73 73  |54,Appname$,mess|
00000a30  61 67 65 6c 69 73 74 25  20 b8 20 77 69 6d 70 76  |agelist% . wimpv|
00000a40  65 72 73 69 6f 6e 2c 68  61 6e 64 6c 65 0d 04 60  |ersion,handle..`|
00000a50  47 69 6e 64 6c 25 3d 31  30 32 34 3a 6d 65 6e 75  |Gindl%=1024:menu|
00000a60  6c 25 3d 31 30 32 34 3a  de 20 62 25 20 32 30 34  |l%=1024:. b% 204|
00000a70  38 2c 69 6e 64 25 20 69  6e 64 6c 25 2c 6d 65 6e  |8,ind% indl%,men|
00000a80  75 25 20 6d 65 6e 75 6c  25 2c 77 73 70 63 25 20  |u% menul%,wspc% |
00000a90  26 38 30 30 0d 04 6a 0f  63 75 72 6d 65 6e 75 25  |&800..j.curmenu%|
00000aa0  3d 2d 31 0d 04 74 11 f2  6f 70 65 6e 6d 65 73 73  |=-1..t..openmess|
00000ab0  61 67 65 73 0d 04 7e 2d  73 70 72 69 74 65 73 25  |ages..~-sprites%|
00000ac0  3d a4 6c 6f 61 64 73 70  72 69 74 65 73 28 41 70  |=.loadsprites(Ap|
00000ad0  70 64 69 72 24 2b 22 2e  53 70 72 69 74 65 73 22  |pdir$+".Sprites"|
00000ae0  29 0d 04 88 24 69 6e 66  6f 62 6f 78 25 3d a4 6c  |)...$infobox%=.l|
00000af0  6f 61 64 74 65 6d 70 6c  61 74 65 28 22 49 6e 66  |oadtemplate("Inf|
00000b00  6f 22 2c 31 29 0d 04 92  26 65 72 72 6f 72 77 69  |o",1)...&errorwi|
00000b10  6e 25 3d a4 6c 6f 61 64  74 65 6d 70 6c 61 74 65  |n%=.loadtemplate|
00000b20  28 22 45 72 72 6f 72 22  2c 31 29 0d 04 9c 25 f2  |("Error",1)...%.|
00000b30  73 65 74 69 63 6f 6e 74  65 78 74 28 69 6e 66 6f  |seticontext(info|
00000b40  62 6f 78 25 2c 31 2c 41  70 70 6e 61 6d 65 24 29  |box%,1,Appname$)|
00000b50  0d 04 a6 26 f2 73 65 74  69 63 6f 6e 74 65 78 74  |...&.seticontext|
00000b60  28 69 6e 66 6f 62 6f 78  25 2c 32 2c 6c 6f 6e 67  |(infobox%,2,long|
00000b70  6e 61 6d 65 24 29 0d 04  b0 25 f2 73 65 74 69 63  |name$)...%.setic|
00000b80  6f 6e 74 65 78 74 28 69  6e 66 6f 62 6f 78 25 2c  |ontext(infobox%,|
00000b90  34 2c 76 65 72 73 69 6f  6e 24 29 0d 04 ba 0a e7  |4,version$).....|
00000ba0  20 69 62 20 8c 0d 04 c4  3b 20 69 62 68 61 6e 64  | ib ....; ibhand|
00000bb0  6c 65 3d a4 43 72 65 61  74 65 49 63 6f 6e 42 61  |le=.CreateIconBa|
00000bc0  72 49 63 6f 6e 28 22 21  53 68 6f 77 45 72 72 6f  |rIcon("!ShowErro|
00000bd0  72 22 2c 73 68 6f 72 74  6e 61 6d 65 24 2c 31 29  |r",shortname$,1)|
00000be0  0d 04 ce 05 cd 0d 04 d8  38 69 62 6d 65 6e 75 25  |........8ibmenu%|
00000bf0  3d a4 63 72 65 61 74 65  6d 65 6e 75 28 41 70 70  |=.createmenu(App|
00000c00  6e 61 6d 65 24 2b 22 7c  49 6e 66 6f 5d 3e 69 6e  |name$+"|Info]>in|
00000c10  66 6f 62 6f 78 25 7c 51  75 69 74 22 29 0d 04 e2  |fobox%|Quit")...|
00000c20  17 69 62 6f 70 74 69 6f  6e 73 25 3d 6f 70 74 69  |.iboptions%=opti|
00000c30  6f 6e 73 25 0d 04 ec 05  e1 0d 04 f6 05 3a 0d 05  |ons%.........:..|
00000c40  00 0e dd f2 69 6e 69 74  70 72 6f 67 0d 05 0a 28  |....initprog...(|
00000c50  6c 61 73 74 24 3d 22 22  3a f2 63 68 65 63 6b 3a  |last$="":.check:|
00000c60  f2 63 6c 6f 73 65 77 69  6e 28 65 72 72 6f 72 77  |.closewin(errorw|
00000c70  69 6e 25 29 0d 05 14 05  e1 0d 05 1e 05 3a 0d 05  |in%).........:..|
00000c80  28 17 dd f2 48 65 6c 70  28 77 69 6e 2c 69 63 6f  |(...Help(win,ico|
00000c90  6e 2c 74 6f 29 0d 05 32  21 f7 20 8d 44 50 45 3a  |n,to)..2!. .DPE:|
00000ca0  f2 72 65 61 64 68 65 6c  70 28 77 69 6e 2c 69 63  |.readhelp(win,ic|
00000cb0  6f 6e 2c 74 6f 29 0d 05  3c 05 e1 0d 05 46 0d f4  |on,to)..<....F..|
00000cc0  20 57 69 6e 64 6f 77 73  0d 05 50 1a dc 20 69 6e  | Windows..P.. in|
00000cd0  66 6f 62 6f 78 25 2c 22  3e 48 49 6e 66 6f 62 6f  |fobox%,">HInfobo|
00000ce0  78 22 0d 05 5a 14 dc 20  33 2c 22 3e 48 49 6e 66  |x"..Z.. 3,">HInf|
00000cf0  6f 62 6f 78 33 22 0d 05  64 14 dc 20 2d 32 2c 22  |obox3"..d.. -2,"|
00000d00  3e 48 49 63 6f 6e 62 61  72 22 0d 05 6e 0b dc 20  |>HIconbar"..n.. |
00000d10  2d 31 2c 2d 31 0d 05 78  0b f4 20 4d 65 6e 75 73  |-1,-1..x.. Menus|
00000d20  0d 05 82 11 dc 20 2d 32  2c 2d 32 2c 2d 32 2c 2d  |..... -2,-2,-2,-|
00000d30  32 0d 05 8c 05 3a 0d 05  96 0b dd f2 63 68 65 63  |2....:......chec|
00000d40  6b 0d 05 a0 1b 61 24 3d  a4 73 79 73 74 65 6d 76  |k....a$=.systemv|
00000d50  61 72 28 22 45 72 72 6f  72 24 22 29 0d 05 aa 33  |ar("Error$")...3|
00000d60  e7 20 c2 61 24 2c a9 28  22 20 43 61 6e 63 65 6c  |. .a$,.(" Cancel|
00000d70  20 74 6f 20 51 75 69 74  22 29 29 3d 22 20 43 61  | to Quit"))=" Ca|
00000d80  6e 63 65 6c 20 74 6f 20  51 75 69 74 22 20 8c 0d  |ncel to Quit" ..|
00000d90  05 b4 27 20 61 24 3d c0  61 24 2c a9 28 61 24 29  |..' a$=.a$,.(a$)|
00000da0  2d a9 28 22 20 43 61 6e  63 65 6c 20 74 6f 20 51  |-.(" Cancel to Q|
00000db0  75 69 74 22 29 29 0d 05  be 05 cd 0d 05 c8 11 e7  |uit"))..........|
00000dc0  20 61 24 3c 3e 6c 61 73  74 24 20 8c 0d 05 d2 0d  | a$<>last$ .....|
00000dd0  20 6c 61 73 74 24 3d 61  24 0d 05 dc 1c 20 6c 69  | last$=a$.... li|
00000de0  6e 65 3d bb 28 c1 61 24  2c a7 61 24 2c 22 28 22  |ne=.(.a$,.a$,"("|
00000df0  29 2b 31 29 29 0d 05 e6  17 20 65 24 3d c1 61 24  |)+1)).... e$=.a$|
00000e00  2c a7 61 24 2c 22 29 22  29 2b 31 29 0d 05 f0 21  |,.a$,")")+1)...!|
00000e10  20 f2 73 65 74 69 63 6f  6e 74 65 78 74 28 65 72  | .seticontext(er|
00000e20  72 6f 72 77 69 6e 25 2c  31 2c 65 24 29 0d 05 fa  |rorwin%,1,e$)...|
00000e30  24 20 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 65  |$ .seticontext(e|
00000e40  72 72 6f 72 77 69 6e 25  2c 33 2c c3 6c 69 6e 65  |rrorwin%,3,.line|
00000e50  29 0d 06 04 37 20 f2 73  65 74 69 63 6f 6e 74 65  |)...7 .seticonte|
00000e60  78 74 28 65 72 72 6f 72  77 69 6e 25 2c 35 2c a4  |xt(errorwin%,5,.|
00000e70  73 79 73 74 65 6d 76 61  72 28 22 45 72 72 6f 72  |systemvar("Error|
00000e80  24 54 61 73 6b 22 29 29  0d 06 0e 16 20 2a 55 6e  |$Task")).... *Un|
00000e90  73 65 74 20 45 72 72 6f  72 24 54 61 73 6b 0d 06  |set Error$Task..|
00000ea0  18 12 20 f2 6f 70 65 6e  63 68 65 63 6b 77 69 6e  |.. .opencheckwin|
00000eb0  0d 06 22 05 cd 0d 06 2c  05 e1 0d 06 36 05 3a 0d  |.."....,....6.:.|
00000ec0  06 40 12 dd f2 6f 70 65  6e 63 68 65 63 6b 77 69  |.@...opencheckwi|
00000ed0  6e 0d 06 4a 18 f2 63 6c  6f 73 65 77 69 6e 28 65  |n..J..closewin(e|
00000ee0  72 72 6f 72 77 69 6e 25  29 0d 06 54 2a 21 62 25  |rrorwin%)..T*!b%|
00000ef0  3d 34 3a 62 25 21 34 3d  35 3a 62 25 21 38 3d 31  |=4:b%!4=5:b%!8=1|
00000f00  31 3a 62 25 21 31 32 3d  31 32 3a 62 25 21 31 36  |1:b%!12=12:b%!16|
00000f10  3d 2d 31 0d 06 5e 25 c8  99 20 22 4f 53 5f 52 65  |=-1..^%.. "OS_Re|
00000f20  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 2c  |adVduVariables",|
00000f30  62 25 2c 62 25 2b 32 30  0d 06 68 2b 72 69 67 68  |b%,b%+20..h+righ|
00000f40  74 3d 62 25 21 32 38 2b  31 3c 3c 62 25 21 32 30  |t=b%!28+1<<b%!20|
00000f50  3a 74 6f 70 3d 62 25 21  33 32 2b 31 3c 3c 62 25  |:top=b%!32+1<<b%|
00000f60  21 32 34 0d 06 72 2e 21  62 25 3d 65 72 72 6f 72  |!24..r.!b%=error|
00000f70  77 69 6e 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |win%:.. "Wimp_Ge|
00000f80  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00000f90  25 0d 06 7c 26 77 69 64  74 68 3d 62 25 21 31 32  |%..|&width=b%!12|
00000fa0  2d 62 25 21 34 3a 68 65  69 67 68 74 3d 62 25 21  |-b%!4:height=b%!|
00000fb0  31 36 2d 62 25 21 38 0d  06 86 3a 62 25 21 34 3d  |16-b%!8...:b%!4=|
00000fc0  72 69 67 68 74 2d 77 69  64 74 68 3a 62 25 21 38  |right-width:b%!8|
00000fd0  3d 74 6f 70 2d 68 65 69  67 68 74 3a 62 25 21 31  |=top-height:b%!1|
00000fe0  32 3d 72 69 67 68 74 3a  62 25 21 31 36 3d 74 6f  |2=right:b%!16=to|
00000ff0  70 0d 06 90 25 62 25 21  32 38 3d 2d 31 3a c8 99  |p...%b%!28=-1:..|
00001000  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00001010  77 22 2c 2c 62 25 0d 06  9a 05 e1 0d 06 a4 05 3a  |w",,b%.........:|
00001020  0d 06 ae 10 dd f2 6d 6f  76 65 74 6f 6c 69 6e 65  |......movetoline|
00001030  0d 06 b8 25 c8 99 20 22  58 4f 53 5f 4d 6f 64 75  |...%.. "XOS_Modu|
00001040  6c 65 22 2c 31 38 2c 22  5a 61 70 22 20 b8 20 3b  |le",18,"Zap" . ;|
00001050  66 6c 61 67 73 0d 06 c2  13 e7 20 28 66 6c 61 67  |flags..... (flag|
00001060  73 20 80 20 31 29 20 8c  0d 06 cc 0d 20 f4 20 4e  |s . 1) ..... . N|
00001070  6f 20 5a 61 70 0d 06 d6  07 20 ef 37 0d 06 e0 05  |o Zap.... .7....|
00001080  cc 0d 06 ea 2d 20 c8 99  20 22 58 4f 53 5f 4d 6f  |....- .. "XOS_Mo|
00001090  64 75 6c 65 22 2c 31 38  2c 22 5a 61 70 44 65 63  |dule",18,"ZapDec|
000010a0  69 6d 61 6c 22 20 b8 20  3b 66 6c 61 67 73 0d 06  |imal" . ;flags..|
000010b0  f4 14 20 e7 20 28 66 6c  61 67 73 20 80 20 31 29  |.. . (flags . 1)|
000010c0  20 8c 0d 06 fe 09 20 20  ef 20 37 0d 07 08 15 20  | .....  . 7.... |
000010d0  20 f4 20 4e 6f 20 5a 61  70 44 65 63 69 6d 61 6c  | . No ZapDecimal|
000010e0  0d 07 12 06 20 cc 0d 07  1c 52 20 20 c8 99 20 22  |.... ....R  .. "|
000010f0  57 69 6d 70 5f 53 74 61  72 74 54 61 73 6b 22 2c  |Wimp_StartTask",|
00001100  22 2a 5a 61 70 43 6f 6d  6d 61 6e 64 20 47 6f 74  |"*ZapCommand Got|
00001110  6f 4c 69 6e 65 20 22 22  22 2b a4 67 65 74 69 63  |oLine """+.getic|
00001120  6f 6e 74 65 78 74 28 65  72 72 6f 72 77 69 6e 25  |ontext(errorwin%|
00001130  2c 33 29 2b 22 22 22 22  0d 07 26 06 20 cd 0d 07  |,3)+""""..&. ...|
00001140  30 05 cd 0d 07 3a 05 e1  0d 07 44 05 3a 0d ff     |0....:....D.:..|
0000114f