Home » Archimedes archive » Acorn Computing » 1994 08 subscription disc.adf » 9408s » Shareware/Event/!ShellDBug/!ShellDBug
Shareware/Event/!ShellDBug/!ShellDBug
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 » Acorn Computing » 1994 08 subscription disc.adf » 9408s |
| Filename: | Shareware/Event/!ShellDBug/!ShellDBug |
| Read OK: | ✔ |
| File size: | 2239 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM > <ShellDBug$Dir>.!ShellDBug
2:
3ON ERROR MODE12:SYS"Hourglass_Smash":REPORT:PRINT" at line: ";ERL:END
4:
5LIBRARY "<EvntShellSystem$Path>ShellLibRT"
6:
7SYS "Hourglass_On"
8:
9SYS "Wimp_SlotSize",-1,-1 TO progsize%
10pagesize%=1<<10
11freespace%=&8000+progsize%
12END=freespace%+pagesize%
13HIMEM=freespace%
14:
15PROCshell_HeapManagerInit("<EvntShellSystem$Path>",freespace%)
16PROCshell_Init
17task_id%=FNshell_WimpInit_I(200,"EvntShell Debugger")
18REM PROCshell_TraceInit("RAM::RamDisc0.$.Tracefile")
19REM PROCshell_TraceOn
20PROCshell_ResourcesInit
21PROCapp_init
22:
23REM -------------------- Initialise Variables ----------------------------
24:
25_closedown% =FALSE :REM Set this to TRUE when you want the program to
26 :REM end
27changed% =FALSE :REM Used to keep track of whether the data has
28 :REM been changed. Call PROCfile_changed() when it
29 :REM has. But if the program does not use data
30 :REM files just ignore this variable but do not
31 :REM delete it as the program checks it before
32 :REM exiting!
33:
34REM -------------------- Miscelleanous Initialisation --------------------
35:
36ON ERROR PROCshell_Error
37:
38SYS "Hourglass_Off"
39REPEAT
40 PROCshell_Action(FNshell_Poll_I(0,task_id%))
41UNTIL _closedown%
42:
43PROCshell_Exit:END
44:
45REM ======================================================================
46:
47DEF PROCapp_init
48PROCSetUp_Menus
49PROCSetUp_Windows
50PROCSetUp_IconBar
51
52TraceActive%=FALSE :REM global flag..
53respond_to_task%=0 :REM task handle to accept debug info from
54line_spacing% =40 :REM obvious..
55UpdateRequired% =FALSE:REM only update window on null events..
56PROCshell_InitHelpSystem(FNshell_GetAppDir+".ShellDBug",TRUE)
57nr_lines%=0:nr_chars%=0:buffer%=FNshell_HeapBlockFetch(4)
58ENDPROC
59:
60
61REM ===== Menu_Setup routines ======================================
62
63DEF PROCSetUp_Menus
64LOCAL void%
65
66MenuHandle_IconBar%=FNshell_MenuNew(FNshell_MessageNoArgs("ShellDBug"))
67MenuItem_Info% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Info"),"")
68void% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Help"),"_MenuSelect_Help")
69MenuItem_Events% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("ListEvnts"),"_MenuSelect_Events")
70void% =FNshell_MenuAdd(0,"Quit","_MenuSelect_Quit")
71PROCshell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpen_Info","")
72
73MenuHandle_Buffer% =FNshell_MenuNew(FNshell_MessageNoArgs("Debugbuffer"))
74void% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Clearbuffer"),"_MenuSelect_Clear")
75MenuItem_Save% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Savebuffer"),"")
76PROCshell_AttachMenuDBox(MenuItem_Save%,"save_temp","_PreOpen_SaveTemp","")
77
78MenuHandle_Events% =FNshell_MenuNew("Events")
79MenuItem_ClickSel% =FNshell_MenuAdd(0,"Click_Select","_MenuSelect_ClickSel")
80MenuItem_ClickAdj% =FNshell_MenuAdd(0,"Click_Adjust","_MenuSelect_ClickAdj")
81MenuItem_Tags% =FNshell_MenuAdd(0,"Help tags","_MenuSelect_Tags")
82PROCshell_AttachSubMenu(MenuItem_Events%,MenuHandle_Events%,"")
83
84ENDPROC
85:
86
87REM ===== Window_SetUp routines ====================================
88
89DEF PROCSetUp_Windows
90PROCshell_CreateWindowStatic("mainw",mainw%)
91PROCshell_AttachUserRedraw(mainw%,"_redraw")
92PROCshell_AttachHelpTag(mainw%,-1,"mainw")
93PROCshell_AttachMenu(mainw%,-1,MenuHandle_Buffer%,0,0,0)
94ENDPROC
95:
96
97REM ===== IconBar_SetUp routines ===================================
98
99DEF PROCSetUp_IconBar
100sicon=FNshell_Iconbar(-1,"!"+FNshell_GetAppName,"Off",120,MenuHandle_IconBar%,0,0,0)
101PROCshell_AttachHelpTag(-1,sicon,"iconbar")
102PROCshell_AttachClickSelect(-1,sicon,"_ClickSelIconbar")
103PROCshell_AttachClickAdjust(-1,sicon,"_ClickAdjIconbar")
104ENDPROC
105:
106
107REM ===== Dialog_PreOpen routines ==================================
108
109DEF FN_PreOpen_Info(h%)
110PROCshell_IconPutData(h%,0,FNshell_MessageNoArgs("progInfo0"),0)
111PROCshell_IconPutData(h%,1,FNshell_MessageNoArgs("progInfo1"),0)
112PROCshell_IconPutData(h%,2,FNshell_MessageNoArgs("progInfo2"),0)
113PROCshell_IconPutData(h%,3,FNshell_MessageNoArgs("progInfo3"),0)
114PROCshell_AttachHelpTag(h%,-1,"proginfow")
115=0
116:
117DEF FN_PreOpen_SaveTemp(h%)
118PROCshell_IconPutData(h%,1,"TraceFile",0)
119PROCshell_AttachDataSave(h%,2,nr_chars%,&FFF,1,"_do_save")
120PROCshell_AttachHelpTag(h%,-1,"savetempw")
121=0
122:
123
124REM ===== Dialog_PostOpen routines =================================
125
126REM ===== Click_Select routines ====================================
127
128DEF FN_ClickSelIconbar(wh%,icon%)
129PROCshell_OpenWindowStatic(mainw%)
130=0
131:
132
133REM ===== Click_Adjust routines ====================================
134
135DEF FN_ClickAdjIconbar(wh%,icon%)
136REM Toggle active status..
137VDU7
138IF TraceActive%=FALSE THEN
139 TraceActive%=TRUE
140 PROCshell_IconbarSetText(-1,sicon,"On")
141 PROCshell_BroadcastMessage(&43B00,"EvntShellLib:TraceOn")
142ELSE
143 TraceActive%=FALSE
144 PROCshell_IconbarSetText(-1,sicon,"Off")
145 PROCshell_BroadcastMessage(&43B00,"EvntShellLib:TraceOff")
146ENDIF
147=0
148:
149REM ===== Menu_Select routines =====================================
150
151DEF FN_MenuSelect_Help(blk%)
152PROCshell_HelpWord(FNshell_GetAppName+".$")
153=0
154:
155DEF FN_MenuSelect_Quit(blk%)
156_closedown%=TRUE
157=0
158:
159DEF FN_MenuSelect_Clear(blk%)
160nr_lines%=0:PROCshell_HeapBlockReturn(buffer%)
161buffer%=FNshell_HeapBlockFetch(4)
162IF FNshell_WindowIsOpen(mainw%) THEN
163 PROCshell_CloseWindow(mainw%)
164 PROCshell_OpenWindowStatic(mainw%)
165ENDIF
166buffer%=FNshell_HeapBlockFetch(4)
167PROCshell_WindowResize(mainw%,0,-120,1000,0,-1)
168=0
169:
170
171DEF FN_MenuSelect_ClickSel(blk%)
172PROCshell_BroadcastMessage(&43B00,"EvntShellLib:ListClickSelect")
173=0
174:
175DEF FN_MenuSelect_ClickAdj(blk%)
176PROCshell_BroadcastMessage(&43B00,"EvntShellLib:ListClickAdjust")
177=0
178:
179DEF FN_MenuSelect_Tags(blk%)
180PROCshell_BroadcastMessage(&43B00,"EvntShellLib:ListHelpTags")
181=0
182:
183
184REM ===== Menu_Warning routines ====================================
185
186REM ===== Data_Load routines =======================================
187
188REM ===== Data_Save routines =======================================
189
190DEF FN_do_save(name$)
191LOCAL ptr%,X%,lines%
192PROCshell_Tracef0("In FN_do_save..")
193PROCshell_Tracef0("File name is "+name$)
194ptr%=0
195X%=OPENOUT(name$)
196IF nr_lines%>0 THEN
197 REPEAT
198 BPUT# X%,$(buffer%+ptr%)
199 ptr%+=100:lines%+=1
200 UNTIL lines%=nr_lines%
201ENDIF
202CLOSE# X%
203OSCLI("SetType "+name$+" FFF")
204=0
205:
206REM ================ Application Routines ================================
207:
208DEF PROCshell_HandleUnknownMessage(blk%)
209CASE blk%!16 OF
210 WHEN &43B00:PROCmessage(blk%!4,$(blk%+20)):REM possible trace message!
211ENDCASE
212ENDPROC
213:
214DEF PROCmessage(task%,text$)
215REM Ignore messages sent by this task!!
216IF task%<>task_id% THEN
217 IF LEFT$(text$,14)="ShellDBug:Init" THEN
218 PROCshelldbug_init(task%,MID$(text$,16))
219 ENDIF
220 IF LEFT$(text$,15)="ShellDBug:Trace" THEN
221 PROCshelldbug_trace(task%,MID$(text$,16))
222 ENDIF
223 IF LEFT$(text$,17)="ShellDBug:TraceOn" THEN
224 TraceActive%=TRUE
225 PROCshell_IconbarSetText(-1,sicon,"On")
226 PROCshelldbug_trace(task%,"Starting Trace...")
227 ENDIF
228 IF LEFT$(text$,18)="ShellDBug:TraceOff" THEN
229 TraceActive%=FALSE
230 PROCshell_IconbarSetText(-1,sicon,"Off")
231 PROCshelldbug_trace(task%,"Trace Off...")
232 ENDIF
233ENDIF
234ENDPROC
235:
236DEF PROCshelldbug_init(task%,text$)
237respond_to_task%=task%
238PROCshell_CloseWindow(mainw%)
239PROCshell_OpenWindowStatic(mainw%)
240nr_lines%=0:nr_chars%=0
241PROCshell_WindowResize(mainw%,0,-120,1000,0,-1)
242PROCshell_WindowRetitle(mainw%,text$)
243PROCshell_HeapBlockReturn(buffer%)
244buffer%=FNshell_HeapBlockFetch(4)
245IF TraceActive% THEN
246 PROCshell_BroadcastMessage(&43B00,"EvntShellLib:TraceOn")
247ENDIF
248ENDPROC
249:
250DEF PROCshelldbug_trace(task%,text$)
251IF task%=respond_to_task% THEN
252 buffer%=FNshell_HeapBlockExtend(buffer%,100)
253 text$=LEFT$(text$,LENtext$-1):REM strip CHR$0 from end..
254 nr_chars%=nr_chars%+LENtext$+1
255 $(buffer%+(nr_lines%*100))=LEFT$(text$,99)
256 nr_lines%+=1
257 UpdateRequired%=TRUE
258ENDIF
259ENDPROC
260:
261DEF FN_redraw(blk%,x0%,y0%)
262LOCAL top%,base%,i%
263top%=(y0%-blk%!40)DIVline_spacing%
264IF top%<0 THEN top%=0
265base%=(47+y0%-blk%!32)DIVline_spacing%
266i%=top%
267WHILE i%<nr_lines% AND i%<=base%
268 IF i%=nr_lines%-1 THEN SYS "Wimp_SetColour",11 ELSE SYS "Wimp_SetColour",5
269 MOVE x0%+10,y0%-(i%*line_spacing%)-10
270 PRINT $(buffer%+(100*i%))
271 i%+=1
272ENDWHILE
273=0
274:
275DEF PROCshell_DoBackgroundTask
276IF UpdateRequired% THEN
277PROCshell_WindowResize(mainw%,0,(((nr_lines%+1)*line_spacing%)*-1)+line_spacing%,1600,0,0)
278 IF FNshell_WindowIsOpen(mainw%) THEN
279 _Q%!0=mainw%
280 SYS "Wimp_GetWindowInfo",,_Q%
281 _Q%!24=_Q%!48-_Q%!8
282 SYS "Wimp_CloseWindow",,_Q%
283 SYS "Wimp_OpenWindow",,_Q%
284 ENDIF
285 UpdateRequired%=FALSE
286ENDIF
287ENDPROC
288:
289REM ================= End Of User Application ============================
290:
291
"� > <ShellDBug$Dir>.!ShellDBug
:
3� � �12:ș"Hourglass_Smash":�:�" at line: ";�:�
:
)ț "<EvntShellSystem$Path>ShellLibRT"
:
ș "Hourglass_On"
:
(ș "Wimp_SlotSize",-1,-1 � progsize%
pagesize%=1<<10
freespace%=&8000+progsize%
�=freespace%+pagesize%
�=freespace%
:
?�shell_HeapManagerInit("<EvntShellSystem$Path>",freespace%)
�shell_Init
8task_id%=�shell_WimpInit_I(200,"EvntShell Debugger")
6� PROCshell_TraceInit("RAM::RamDisc0.$.Tracefile")
� PROCshell_TraceOn
�shell_ResourcesInit
�app_init
:
L� -------------------- Initialise Variables ----------------------------
:
G_closedown% =� :� Set this to TRUE when you want the program to
! :� end
Dchanged% =� :� Used to keep track of whether the data has
K :� been changed. Call PROCfile_changed() when it
G :� has. But if the program does not use data
H :� files just ignore this variable but do not
G :� delete it as the program checks it before
& :� exiting!
!:
"L� -------------------- Miscelleanous Initialisation --------------------
#:
$� � �shell_Error
%:
&ș "Hourglass_Off"
'�
(. �shell_Action(�shell_Poll_I(0,task_id%))
)� _closedown%
*:
+�shell_Exit:�
,:
-L� ======================================================================
.:
/� �app_init
0�SetUp_Menus
1�SetUp_Windows
2�SetUp_IconBar
3
4&TraceActive%=� :� global flag..
5Brespond_to_task%=0 :� task handle to accept debug info from
6&line_spacing% =40 :� obvious..
7<UpdateRequired% =�:� only update window on null events..
8:�shell_InitHelpSystem(�shell_GetAppDir+".ShellDBug",�)
9<nr_lines%=0:nr_chars%=0:buffer%=�shell_HeapBlockFetch(4)
:�
;:
<
=F� ===== Menu_Setup routines ======================================
>
?� �SetUp_Menus
@ � void%
A
BIMenuHandle_IconBar%=�shell_MenuNew(�shell_MessageNoArgs("ShellDBug"))
CIMenuItem_Info% =�shell_MenuAdd(0,�shell_MessageNoArgs("Info"),"")
DYvoid% =�shell_MenuAdd(0,�shell_MessageNoArgs("Help"),"_MenuSelect_Help")
E`MenuItem_Events% =�shell_MenuAdd(0,�shell_MessageNoArgs("ListEvnts"),"_MenuSelect_Events")
FCvoid% =�shell_MenuAdd(0,"Quit","_MenuSelect_Quit")
GG�shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpen_Info","")
H
IKMenuHandle_Buffer% =�shell_MenuNew(�shell_MessageNoArgs("Debugbuffer"))
Javoid% =�shell_MenuAdd(0,�shell_MessageNoArgs("Clearbuffer"),"_MenuSelect_Clear")
KOMenuItem_Save% =�shell_MenuAdd(0,�shell_MessageNoArgs("Savebuffer"),"")
LL�shell_AttachMenuDBox(MenuItem_Save%,"save_temp","_PreOpen_SaveTemp","")
M
N0MenuHandle_Events% =�shell_MenuNew("Events")
OOMenuItem_ClickSel% =�shell_MenuAdd(0,"Click_Select","_MenuSelect_ClickSel")
POMenuItem_ClickAdj% =�shell_MenuAdd(0,"Click_Adjust","_MenuSelect_ClickAdj")
QDMenuItem_Tags% =�shell_MenuAdd(0,"Help tags","_MenuSelect_Tags")
R@�shell_AttachSubMenu(MenuItem_Events%,MenuHandle_Events%,"")
S
T�
U:
V
WF� ===== Window_SetUp routines ====================================
X
Y� �SetUp_Windows
Z-�shell_CreateWindowStatic("mainw",mainw%)
[-�shell_AttachUserRedraw(mainw%,"_redraw")
\+�shell_AttachHelpTag(mainw%,-1,"mainw")
]9�shell_AttachMenu(mainw%,-1,MenuHandle_Buffer%,0,0,0)
^�
_:
`
aF� ===== IconBar_SetUp routines ===================================
b
c� �SetUp_IconBar
dVsicon=�shell_Iconbar(-1,"!"+�shell_GetAppName,"Off",120,MenuHandle_IconBar%,0,0,0)
e,�shell_AttachHelpTag(-1,sicon,"iconbar")
f9�shell_AttachClickSelect(-1,sicon,"_ClickSelIconbar")
g9�shell_AttachClickAdjust(-1,sicon,"_ClickAdjIconbar")
h�
i:
j
kF� ===== Dialog_PreOpen routines ==================================
l
m� �_PreOpen_Info(h%)
n@�shell_IconPutData(h%,0,�shell_MessageNoArgs("progInfo0"),0)
o@�shell_IconPutData(h%,1,�shell_MessageNoArgs("progInfo1"),0)
p@�shell_IconPutData(h%,2,�shell_MessageNoArgs("progInfo2"),0)
q@�shell_IconPutData(h%,3,�shell_MessageNoArgs("progInfo3"),0)
r+�shell_AttachHelpTag(h%,-1,"proginfow")
s=0
t:
u � �_PreOpen_SaveTemp(h%)
v*�shell_IconPutData(h%,1,"TraceFile",0)
w;�shell_AttachDataSave(h%,2,nr_chars%,&FFF,1,"_do_save")
x+�shell_AttachHelpTag(h%,-1,"savetempw")
y=0
z:
{
|F� ===== Dialog_PostOpen routines =================================
}
~F� ===== Click_Select routines ====================================
�"� �_ClickSelIconbar(wh%,icon%)
�#�shell_OpenWindowStatic(mainw%)
�=0
�:
�
�F� ===== Click_Adjust routines ====================================
�
�"� �_ClickAdjIconbar(wh%,icon%)
� � Toggle active status..
��7
�� TraceActive%=� �
� TraceActive%=�
�* �shell_IconbarSetText(-1,sicon,"On")
�< �shell_BroadcastMessage(&43B00,"EvntShellLib:TraceOn")
��
� TraceActive%=�
�+ �shell_IconbarSetText(-1,sicon,"Off")
�= �shell_BroadcastMessage(&43B00,"EvntShellLib:TraceOff")
��
�=0
�:
�F� ===== Menu_Select routines =====================================
�
� � �_MenuSelect_Help(blk%)
�+�shell_HelpWord(�shell_GetAppName+".$")
�=0
�:
� � �_MenuSelect_Quit(blk%)
�_closedown%=�
�=0
�:
� � �_MenuSelect_Clear(blk%)
�/nr_lines%=0:�shell_HeapBlockReturn(buffer%)
�$buffer%=�shell_HeapBlockFetch(4)
�#� �shell_WindowIsOpen(mainw%) �
� �shell_CloseWindow(mainw%)
�+ �shell_OpenWindowStatic(mainw%)
��
�$buffer%=�shell_HeapBlockFetch(4)
�0�shell_WindowResize(mainw%,0,-120,1000,0,-1)
�=0
�:
�
�!� �_MenuSelect_ClickSel(blk%)
�B�shell_BroadcastMessage(&43B00,"EvntShellLib:ListClickSelect")
�=0
�:
�!� �_MenuSelect_ClickAdj(blk%)
�B�shell_BroadcastMessage(&43B00,"EvntShellLib:ListClickAdjust")
�=0
�:
� � �_MenuSelect_Tags(blk%)
�?�shell_BroadcastMessage(&43B00,"EvntShellLib:ListHelpTags")
�=0
�:
�
�F� ===== Menu_Warning routines ====================================
�
�F� ===== Data_Load routines =======================================
�
�F� ===== Data_Save routines =======================================
�
�� �_do_save(name$)
�� ptr%,X%,lines%
�%�shell_Tracef0("In FN_do_save..")
�)�shell_Tracef0("File name is "+name$)
�
ptr%=0
�X%=�(name$)
�� nr_lines%>0 �
� �
� �# X%,$(buffer%+ptr%)
� ptr%+=100:lines%+=1
� � lines%=nr_lines%
��
� �# X%
� �("SetType "+name$+" FFF")
�=0
�:
�L� ================ Application Routines ================================
�:
�'� �shell_HandleUnknownMessage(blk%)
�Ȏ blk%!16 �
�D � &43B00:�message(blk%!4,$(blk%+20)):� possible trace message!
��
��
�:
�� �message(task%,text$)
�)� Ignore messages sent by this task!!
�� task%<>task_id% �
�& � �text$,14)="ShellDBug:Init" �
�) �shelldbug_init(task%,�text$,16))
� �
�& � �text$,15)="ShellDBug:Trace" �
�* �shelldbug_trace(task%,�text$,16))
� �
�( � �text$,17)="ShellDBug:TraceOn" �
� TraceActive%=�
�, �shell_IconbarSetText(-1,sicon,"On")
�3 �shelldbug_trace(task%,"Starting Trace...")
� �
�) � �text$,18)="ShellDBug:TraceOff" �
� TraceActive%=�
�- �shell_IconbarSetText(-1,sicon,"Off")
�. �shelldbug_trace(task%,"Trace Off...")
� �
��
��
�:
�"� �shelldbug_init(task%,text$)
�respond_to_task%=task%
� �shell_CloseWindow(mainw%)
�#�shell_OpenWindowStatic(mainw%)
�nr_lines%=0:nr_chars%=0
�0�shell_WindowResize(mainw%,0,-120,1000,0,-1)
�&�shell_WindowRetitle(mainw%,text$)
�#�shell_HeapBlockReturn(buffer%)
�$buffer%=�shell_HeapBlockFetch(4)
�� TraceActive% �
�< �shell_BroadcastMessage(&43B00,"EvntShellLib:TraceOn")
��
��
�:
�#� �shelldbug_trace(task%,text$)
� � task%=respond_to_task% �
�1 buffer%=�shell_HeapBlockExtend(buffer%,100)
�5 text$=�text$,�text$-1):� strip CHR$0 from end..
�" nr_chars%=nr_chars%+�text$+1
�+ $(buffer%+(nr_lines%*100))=�text$,99)
nr_lines%+=1
UpdateRequired%=�
�
�
:
� �_redraw(blk%,x0%,y0%)
� top%,base%,i%
$top%=(y0%-blk%!40)�line_spacing%
� top%<0 � top%=0
(base%=(47+y0%-blk%!32)�line_spacing%
i%=top%
ȕ i%<nr_lines% � i%<=base%
G � i%=nr_lines%-1 � ș "Wimp_SetColour",11 � ș "Wimp_SetColour",5
( � x0%+10,y0%-(i%*line_spacing%)-10
� $(buffer%+(100*i%))
i%+=1
�
=0
:
� �shell_DoBackgroundTask
� UpdateRequired% �
[�shell_WindowResize(mainw%,0,(((nr_lines%+1)*line_spacing%)*-1)+line_spacing%,1600,0,0)
% � �shell_WindowIsOpen(mainw%) �
_Q%!0=mainw%
$ ș "Wimp_GetWindowInfo",,_Q%
_Q%!24=_Q%!48-_Q%!8
" ș "Wimp_CloseWindow",,_Q%
! ș "Wimp_OpenWindow",,_Q%
�
UpdateRequired%=�
�
�
:
!L� ================= End Of User Application ============================
":
#
� 00000000 0d 00 01 22 f4 20 3e 20 3c 53 68 65 6c 6c 44 42 |...". > <ShellDB|
00000010 75 67 24 44 69 72 3e 2e 21 53 68 65 6c 6c 44 42 |ug$Dir>.!ShellDB|
00000020 75 67 0d 00 02 05 3a 0d 00 03 33 ee 20 85 20 eb |ug....:...3. . .|
00000030 31 32 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |12:.."Hourglass_|
00000040 53 6d 61 73 68 22 3a f6 3a f1 22 20 61 74 20 6c |Smash":.:." at l|
00000050 69 6e 65 3a 20 22 3b 9e 3a e0 0d 00 04 05 3a 0d |ine: ";.:.....:.|
00000060 00 05 29 c8 9b 20 22 3c 45 76 6e 74 53 68 65 6c |..).. "<EvntShel|
00000070 6c 53 79 73 74 65 6d 24 50 61 74 68 3e 53 68 65 |lSystem$Path>She|
00000080 6c 6c 4c 69 62 52 54 22 0d 00 06 05 3a 0d 00 07 |llLibRT"....:...|
00000090 15 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f |... "Hourglass_O|
000000a0 6e 22 0d 00 08 05 3a 0d 00 09 28 c8 99 20 22 57 |n"....:...(.. "W|
000000b0 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 |imp_SlotSize",-1|
000000c0 2c 2d 31 20 b8 20 70 72 6f 67 73 69 7a 65 25 0d |,-1 . progsize%.|
000000d0 00 0a 13 70 61 67 65 73 69 7a 65 25 3d 31 3c 3c |...pagesize%=1<<|
000000e0 31 30 0d 00 0b 1e 66 72 65 65 73 70 61 63 65 25 |10....freespace%|
000000f0 3d 26 38 30 30 30 2b 70 72 6f 67 73 69 7a 65 25 |=&8000+progsize%|
00000100 0d 00 0c 1a e0 3d 66 72 65 65 73 70 61 63 65 25 |.....=freespace%|
00000110 2b 70 61 67 65 73 69 7a 65 25 0d 00 0d 10 d3 3d |+pagesize%.....=|
00000120 66 72 65 65 73 70 61 63 65 25 0d 00 0e 05 3a 0d |freespace%....:.|
00000130 00 0f 3f f2 73 68 65 6c 6c 5f 48 65 61 70 4d 61 |..?.shell_HeapMa|
00000140 6e 61 67 65 72 49 6e 69 74 28 22 3c 45 76 6e 74 |nagerInit("<Evnt|
00000150 53 68 65 6c 6c 53 79 73 74 65 6d 24 50 61 74 68 |ShellSystem$Path|
00000160 3e 22 2c 66 72 65 65 73 70 61 63 65 25 29 0d 00 |>",freespace%)..|
00000170 10 0f f2 73 68 65 6c 6c 5f 49 6e 69 74 0d 00 11 |...shell_Init...|
00000180 38 74 61 73 6b 5f 69 64 25 3d a4 73 68 65 6c 6c |8task_id%=.shell|
00000190 5f 57 69 6d 70 49 6e 69 74 5f 49 28 32 30 30 2c |_WimpInit_I(200,|
000001a0 22 45 76 6e 74 53 68 65 6c 6c 20 44 65 62 75 67 |"EvntShell Debug|
000001b0 67 65 72 22 29 0d 00 12 36 f4 20 50 52 4f 43 73 |ger")...6. PROCs|
000001c0 68 65 6c 6c 5f 54 72 61 63 65 49 6e 69 74 28 22 |hell_TraceInit("|
000001d0 52 41 4d 3a 3a 52 61 6d 44 69 73 63 30 2e 24 2e |RAM::RamDisc0.$.|
000001e0 54 72 61 63 65 66 69 6c 65 22 29 0d 00 13 17 f4 |Tracefile").....|
000001f0 20 50 52 4f 43 73 68 65 6c 6c 5f 54 72 61 63 65 | PROCshell_Trace|
00000200 4f 6e 0d 00 14 18 f2 73 68 65 6c 6c 5f 52 65 73 |On.....shell_Res|
00000210 6f 75 72 63 65 73 49 6e 69 74 0d 00 15 0d f2 61 |ourcesInit.....a|
00000220 70 70 5f 69 6e 69 74 0d 00 16 05 3a 0d 00 17 4c |pp_init....:...L|
00000230 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |. --------------|
00000240 2d 2d 2d 2d 2d 2d 20 49 6e 69 74 69 61 6c 69 73 |------ Initialis|
00000250 65 20 56 61 72 69 61 62 6c 65 73 20 2d 2d 2d 2d |e Variables ----|
00000260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000270 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 18 05 3a 0d 00 19 |--------....:...|
00000280 47 5f 63 6c 6f 73 65 64 6f 77 6e 25 20 20 20 20 |G_closedown% |
00000290 20 3d a3 20 3a f4 20 53 65 74 20 74 68 69 73 20 | =. :. Set this |
000002a0 74 6f 20 54 52 55 45 20 77 68 65 6e 20 79 6f 75 |to TRUE when you|
000002b0 20 77 61 6e 74 20 74 68 65 20 70 72 6f 67 72 61 | want the progra|
000002c0 6d 20 74 6f 0d 00 1a 21 20 20 20 20 20 20 20 20 |m to...! |
000002d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :|
000002e0 f4 20 65 6e 64 0d 00 1b 44 63 68 61 6e 67 65 64 |. end...Dchanged|
000002f0 25 20 20 20 20 20 20 20 20 3d a3 20 3a f4 20 55 |% =. :. U|
00000300 73 65 64 20 74 6f 20 6b 65 65 70 20 74 72 61 63 |sed to keep trac|
00000310 6b 20 6f 66 20 77 68 65 74 68 65 72 20 74 68 65 |k of whether the|
00000320 20 64 61 74 61 20 68 61 73 0d 00 1c 4b 20 20 20 | data has...K |
00000330 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340 20 20 20 20 3a f4 20 62 65 65 6e 20 63 68 61 6e | :. been chan|
00000350 67 65 64 2e 20 43 61 6c 6c 20 50 52 4f 43 66 69 |ged. Call PROCfi|
00000360 6c 65 5f 63 68 61 6e 67 65 64 28 29 20 77 68 65 |le_changed() whe|
00000370 6e 20 69 74 0d 00 1d 47 20 20 20 20 20 20 20 20 |n it...G |
00000380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :|
00000390 f4 20 68 61 73 2e 20 42 75 74 20 69 66 20 74 68 |. has. But if th|
000003a0 65 20 70 72 6f 67 72 61 6d 20 64 6f 65 73 20 6e |e program does n|
000003b0 6f 74 20 75 73 65 20 64 61 74 61 0d 00 1e 48 20 |ot use data...H |
000003c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003d0 20 20 20 20 20 20 3a f4 20 66 69 6c 65 73 20 6a | :. files j|
000003e0 75 73 74 20 69 67 6e 6f 72 65 20 74 68 69 73 20 |ust ignore this |
000003f0 76 61 72 69 61 62 6c 65 20 62 75 74 20 64 6f 20 |variable but do |
00000400 6e 6f 74 0d 00 1f 47 20 20 20 20 20 20 20 20 20 |not...G |
00000410 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a f4 | :.|
00000420 20 64 65 6c 65 74 65 20 69 74 20 61 73 20 74 68 | delete it as th|
00000430 65 20 70 72 6f 67 72 61 6d 20 63 68 65 63 6b 73 |e program checks|
00000440 20 69 74 20 62 65 66 6f 72 65 0d 00 20 26 20 20 | it before.. & |
00000450 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460 20 20 20 20 20 3a f4 20 65 78 69 74 69 6e 67 21 | :. exiting!|
00000470 0d 00 21 05 3a 0d 00 22 4c f4 20 2d 2d 2d 2d 2d |..!.:.."L. -----|
00000480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 |--------------- |
00000490 4d 69 73 63 65 6c 6c 65 61 6e 6f 75 73 20 49 6e |Miscelleanous In|
000004a0 69 74 69 61 6c 69 73 61 74 69 6f 6e 20 2d 2d 2d |itialisation ---|
000004b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000004c0 2d 0d 00 23 05 3a 0d 00 24 14 ee 20 85 20 f2 73 |-..#.:..$.. . .s|
000004d0 68 65 6c 6c 5f 45 72 72 6f 72 0d 00 25 05 3a 0d |hell_Error..%.:.|
000004e0 00 26 16 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 |.&... "Hourglass|
000004f0 5f 4f 66 66 22 0d 00 27 05 f5 0d 00 28 2e 20 20 |_Off"..'....(. |
00000500 f2 73 68 65 6c 6c 5f 41 63 74 69 6f 6e 28 a4 73 |.shell_Action(.s|
00000510 68 65 6c 6c 5f 50 6f 6c 6c 5f 49 28 30 2c 74 61 |hell_Poll_I(0,ta|
00000520 73 6b 5f 69 64 25 29 29 0d 00 29 11 fd 20 5f 63 |sk_id%))..).. _c|
00000530 6c 6f 73 65 64 6f 77 6e 25 0d 00 2a 05 3a 0d 00 |losedown%..*.:..|
00000540 2b 11 f2 73 68 65 6c 6c 5f 45 78 69 74 3a e0 0d |+..shell_Exit:..|
00000550 00 2c 05 3a 0d 00 2d 4c f4 20 3d 3d 3d 3d 3d 3d |.,.:..-L. ======|
00000560 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
000005a0 0d 00 2e 05 3a 0d 00 2f 0f dd 20 f2 61 70 70 5f |....:../.. .app_|
000005b0 69 6e 69 74 0d 00 30 10 f2 53 65 74 55 70 5f 4d |init..0..SetUp_M|
000005c0 65 6e 75 73 0d 00 31 12 f2 53 65 74 55 70 5f 57 |enus..1..SetUp_W|
000005d0 69 6e 64 6f 77 73 0d 00 32 12 f2 53 65 74 55 70 |indows..2..SetUp|
000005e0 5f 49 63 6f 6e 42 61 72 0d 00 33 04 0d 00 34 26 |_IconBar..3...4&|
000005f0 54 72 61 63 65 41 63 74 69 76 65 25 3d a3 20 20 |TraceActive%=. |
00000600 20 20 3a f4 20 67 6c 6f 62 61 6c 20 66 6c 61 67 | :. global flag|
00000610 2e 2e 0d 00 35 42 72 65 73 70 6f 6e 64 5f 74 6f |....5Brespond_to|
00000620 5f 74 61 73 6b 25 3d 30 20 20 20 20 3a f4 20 74 |_task%=0 :. t|
00000630 61 73 6b 20 68 61 6e 64 6c 65 20 74 6f 20 61 63 |ask handle to ac|
00000640 63 65 70 74 20 64 65 62 75 67 20 69 6e 66 6f 20 |cept debug info |
00000650 66 72 6f 6d 0d 00 36 26 6c 69 6e 65 5f 73 70 61 |from..6&line_spa|
00000660 63 69 6e 67 25 20 20 20 3d 34 30 20 20 20 3a f4 |cing% =40 :.|
00000670 20 6f 62 76 69 6f 75 73 2e 2e 0d 00 37 3c 55 70 | obvious....7<Up|
00000680 64 61 74 65 52 65 71 75 69 72 65 64 25 20 3d a3 |dateRequired% =.|
00000690 3a f4 20 6f 6e 6c 79 20 75 70 64 61 74 65 20 77 |:. only update w|
000006a0 69 6e 64 6f 77 20 6f 6e 20 6e 75 6c 6c 20 65 76 |indow on null ev|
000006b0 65 6e 74 73 2e 2e 0d 00 38 3a f2 73 68 65 6c 6c |ents....8:.shell|
000006c0 5f 49 6e 69 74 48 65 6c 70 53 79 73 74 65 6d 28 |_InitHelpSystem(|
000006d0 a4 73 68 65 6c 6c 5f 47 65 74 41 70 70 44 69 72 |.shell_GetAppDir|
000006e0 2b 22 2e 53 68 65 6c 6c 44 42 75 67 22 2c b9 29 |+".ShellDBug",.)|
000006f0 0d 00 39 3c 6e 72 5f 6c 69 6e 65 73 25 3d 30 3a |..9<nr_lines%=0:|
00000700 6e 72 5f 63 68 61 72 73 25 3d 30 3a 62 75 66 66 |nr_chars%=0:buff|
00000710 65 72 25 3d a4 73 68 65 6c 6c 5f 48 65 61 70 42 |er%=.shell_HeapB|
00000720 6c 6f 63 6b 46 65 74 63 68 28 34 29 0d 00 3a 05 |lockFetch(4)..:.|
00000730 e1 0d 00 3b 05 3a 0d 00 3c 04 0d 00 3d 46 f4 20 |...;.:..<...=F. |
00000740 3d 3d 3d 3d 3d 20 4d 65 6e 75 5f 53 65 74 75 70 |===== Menu_Setup|
00000750 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d | routines ======|
00000760 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000780 0d 00 3e 04 0d 00 3f 12 dd 20 f2 53 65 74 55 70 |..>...?.. .SetUp|
00000790 5f 4d 65 6e 75 73 0d 00 40 0b ea 20 76 6f 69 64 |_Menus..@.. void|
000007a0 25 0d 00 41 04 0d 00 42 49 4d 65 6e 75 48 61 6e |%..A...BIMenuHan|
000007b0 64 6c 65 5f 49 63 6f 6e 42 61 72 25 3d a4 73 68 |dle_IconBar%=.sh|
000007c0 65 6c 6c 5f 4d 65 6e 75 4e 65 77 28 a4 73 68 65 |ell_MenuNew(.she|
000007d0 6c 6c 5f 4d 65 73 73 61 67 65 4e 6f 41 72 67 73 |ll_MessageNoArgs|
000007e0 28 22 53 68 65 6c 6c 44 42 75 67 22 29 29 0d 00 |("ShellDBug"))..|
000007f0 43 49 4d 65 6e 75 49 74 65 6d 5f 49 6e 66 6f 25 |CIMenuItem_Info%|
00000800 20 20 20 20 20 3d a4 73 68 65 6c 6c 5f 4d 65 6e | =.shell_Men|
00000810 75 41 64 64 28 30 2c a4 73 68 65 6c 6c 5f 4d 65 |uAdd(0,.shell_Me|
00000820 73 73 61 67 65 4e 6f 41 72 67 73 28 22 49 6e 66 |ssageNoArgs("Inf|
00000830 6f 22 29 2c 22 22 29 0d 00 44 59 76 6f 69 64 25 |o"),"")..DYvoid%|
00000840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d a4 | =.|
00000850 73 68 65 6c 6c 5f 4d 65 6e 75 41 64 64 28 30 2c |shell_MenuAdd(0,|
00000860 a4 73 68 65 6c 6c 5f 4d 65 73 73 61 67 65 4e 6f |.shell_MessageNo|
00000870 41 72 67 73 28 22 48 65 6c 70 22 29 2c 22 5f 4d |Args("Help"),"_M|
00000880 65 6e 75 53 65 6c 65 63 74 5f 48 65 6c 70 22 29 |enuSelect_Help")|
00000890 0d 00 45 60 4d 65 6e 75 49 74 65 6d 5f 45 76 65 |..E`MenuItem_Eve|
000008a0 6e 74 73 25 20 20 20 3d a4 73 68 65 6c 6c 5f 4d |nts% =.shell_M|
000008b0 65 6e 75 41 64 64 28 30 2c a4 73 68 65 6c 6c 5f |enuAdd(0,.shell_|
000008c0 4d 65 73 73 61 67 65 4e 6f 41 72 67 73 28 22 4c |MessageNoArgs("L|
000008d0 69 73 74 45 76 6e 74 73 22 29 2c 22 5f 4d 65 6e |istEvnts"),"_Men|
000008e0 75 53 65 6c 65 63 74 5f 45 76 65 6e 74 73 22 29 |uSelect_Events")|
000008f0 0d 00 46 43 76 6f 69 64 25 20 20 20 20 20 20 20 |..FCvoid% |
00000900 20 20 20 20 20 20 20 3d a4 73 68 65 6c 6c 5f 4d | =.shell_M|
00000910 65 6e 75 41 64 64 28 30 2c 22 51 75 69 74 22 2c |enuAdd(0,"Quit",|
00000920 22 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 51 75 69 |"_MenuSelect_Qui|
00000930 74 22 29 0d 00 47 47 f2 73 68 65 6c 6c 5f 41 74 |t")..GG.shell_At|
00000940 74 61 63 68 4d 65 6e 75 44 42 6f 78 28 4d 65 6e |tachMenuDBox(Men|
00000950 75 49 74 65 6d 5f 49 6e 66 6f 25 2c 22 70 72 6f |uItem_Info%,"pro|
00000960 67 49 6e 66 6f 22 2c 22 5f 50 72 65 4f 70 65 6e |gInfo","_PreOpen|
00000970 5f 49 6e 66 6f 22 2c 22 22 29 0d 00 48 04 0d 00 |_Info","")..H...|
00000980 49 4b 4d 65 6e 75 48 61 6e 64 6c 65 5f 42 75 66 |IKMenuHandle_Buf|
00000990 66 65 72 25 20 3d a4 73 68 65 6c 6c 5f 4d 65 6e |fer% =.shell_Men|
000009a0 75 4e 65 77 28 a4 73 68 65 6c 6c 5f 4d 65 73 73 |uNew(.shell_Mess|
000009b0 61 67 65 4e 6f 41 72 67 73 28 22 44 65 62 75 67 |ageNoArgs("Debug|
000009c0 62 75 66 66 65 72 22 29 29 0d 00 4a 61 76 6f 69 |buffer"))..Javoi|
000009d0 64 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |d% |
000009e0 3d a4 73 68 65 6c 6c 5f 4d 65 6e 75 41 64 64 28 |=.shell_MenuAdd(|
000009f0 30 2c a4 73 68 65 6c 6c 5f 4d 65 73 73 61 67 65 |0,.shell_Message|
00000a00 4e 6f 41 72 67 73 28 22 43 6c 65 61 72 62 75 66 |NoArgs("Clearbuf|
00000a10 66 65 72 22 29 2c 22 5f 4d 65 6e 75 53 65 6c 65 |fer"),"_MenuSele|
00000a20 63 74 5f 43 6c 65 61 72 22 29 0d 00 4b 4f 4d 65 |ct_Clear")..KOMe|
00000a30 6e 75 49 74 65 6d 5f 53 61 76 65 25 20 20 20 20 |nuItem_Save% |
00000a40 20 3d a4 73 68 65 6c 6c 5f 4d 65 6e 75 41 64 64 | =.shell_MenuAdd|
00000a50 28 30 2c a4 73 68 65 6c 6c 5f 4d 65 73 73 61 67 |(0,.shell_Messag|
00000a60 65 4e 6f 41 72 67 73 28 22 53 61 76 65 62 75 66 |eNoArgs("Savebuf|
00000a70 66 65 72 22 29 2c 22 22 29 0d 00 4c 4c f2 73 68 |fer"),"")..LL.sh|
00000a80 65 6c 6c 5f 41 74 74 61 63 68 4d 65 6e 75 44 42 |ell_AttachMenuDB|
00000a90 6f 78 28 4d 65 6e 75 49 74 65 6d 5f 53 61 76 65 |ox(MenuItem_Save|
00000aa0 25 2c 22 73 61 76 65 5f 74 65 6d 70 22 2c 22 5f |%,"save_temp","_|
00000ab0 50 72 65 4f 70 65 6e 5f 53 61 76 65 54 65 6d 70 |PreOpen_SaveTemp|
00000ac0 22 2c 22 22 29 0d 00 4d 04 0d 00 4e 30 4d 65 6e |","")..M...N0Men|
00000ad0 75 48 61 6e 64 6c 65 5f 45 76 65 6e 74 73 25 20 |uHandle_Events% |
00000ae0 3d a4 73 68 65 6c 6c 5f 4d 65 6e 75 4e 65 77 28 |=.shell_MenuNew(|
00000af0 22 45 76 65 6e 74 73 22 29 0d 00 4f 4f 4d 65 6e |"Events")..OOMen|
00000b00 75 49 74 65 6d 5f 43 6c 69 63 6b 53 65 6c 25 20 |uItem_ClickSel% |
00000b10 3d a4 73 68 65 6c 6c 5f 4d 65 6e 75 41 64 64 28 |=.shell_MenuAdd(|
00000b20 30 2c 22 43 6c 69 63 6b 5f 53 65 6c 65 63 74 22 |0,"Click_Select"|
00000b30 2c 22 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 43 6c |,"_MenuSelect_Cl|
00000b40 69 63 6b 53 65 6c 22 29 0d 00 50 4f 4d 65 6e 75 |ickSel")..POMenu|
00000b50 49 74 65 6d 5f 43 6c 69 63 6b 41 64 6a 25 20 3d |Item_ClickAdj% =|
00000b60 a4 73 68 65 6c 6c 5f 4d 65 6e 75 41 64 64 28 30 |.shell_MenuAdd(0|
00000b70 2c 22 43 6c 69 63 6b 5f 41 64 6a 75 73 74 22 2c |,"Click_Adjust",|
00000b80 22 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 43 6c 69 |"_MenuSelect_Cli|
00000b90 63 6b 41 64 6a 22 29 0d 00 51 44 4d 65 6e 75 49 |ckAdj")..QDMenuI|
00000ba0 74 65 6d 5f 54 61 67 73 25 20 3d a4 73 68 65 6c |tem_Tags% =.shel|
00000bb0 6c 5f 4d 65 6e 75 41 64 64 28 30 2c 22 48 65 6c |l_MenuAdd(0,"Hel|
00000bc0 70 20 74 61 67 73 22 2c 22 5f 4d 65 6e 75 53 65 |p tags","_MenuSe|
00000bd0 6c 65 63 74 5f 54 61 67 73 22 29 0d 00 52 40 f2 |lect_Tags")..R@.|
00000be0 73 68 65 6c 6c 5f 41 74 74 61 63 68 53 75 62 4d |shell_AttachSubM|
00000bf0 65 6e 75 28 4d 65 6e 75 49 74 65 6d 5f 45 76 65 |enu(MenuItem_Eve|
00000c00 6e 74 73 25 2c 4d 65 6e 75 48 61 6e 64 6c 65 5f |nts%,MenuHandle_|
00000c10 45 76 65 6e 74 73 25 2c 22 22 29 0d 00 53 04 0d |Events%,"")..S..|
00000c20 00 54 05 e1 0d 00 55 05 3a 0d 00 56 04 0d 00 57 |.T....U.:..V...W|
00000c30 46 f4 20 3d 3d 3d 3d 3d 20 57 69 6e 64 6f 77 5f |F. ===== Window_|
00000c40 53 65 74 55 70 20 72 6f 75 74 69 6e 65 73 20 3d |SetUp routines =|
00000c50 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000c70 3d 3d 3d 0d 00 58 04 0d 00 59 14 dd 20 f2 53 65 |===..X...Y.. .Se|
00000c80 74 55 70 5f 57 69 6e 64 6f 77 73 0d 00 5a 2d f2 |tUp_Windows..Z-.|
00000c90 73 68 65 6c 6c 5f 43 72 65 61 74 65 57 69 6e 64 |shell_CreateWind|
00000ca0 6f 77 53 74 61 74 69 63 28 22 6d 61 69 6e 77 22 |owStatic("mainw"|
00000cb0 2c 6d 61 69 6e 77 25 29 0d 00 5b 2d f2 73 68 65 |,mainw%)..[-.she|
00000cc0 6c 6c 5f 41 74 74 61 63 68 55 73 65 72 52 65 64 |ll_AttachUserRed|
00000cd0 72 61 77 28 6d 61 69 6e 77 25 2c 22 5f 72 65 64 |raw(mainw%,"_red|
00000ce0 72 61 77 22 29 0d 00 5c 2b f2 73 68 65 6c 6c 5f |raw")..\+.shell_|
00000cf0 41 74 74 61 63 68 48 65 6c 70 54 61 67 28 6d 61 |AttachHelpTag(ma|
00000d00 69 6e 77 25 2c 2d 31 2c 22 6d 61 69 6e 77 22 29 |inw%,-1,"mainw")|
00000d10 0d 00 5d 39 f2 73 68 65 6c 6c 5f 41 74 74 61 63 |..]9.shell_Attac|
00000d20 68 4d 65 6e 75 28 6d 61 69 6e 77 25 2c 2d 31 2c |hMenu(mainw%,-1,|
00000d30 4d 65 6e 75 48 61 6e 64 6c 65 5f 42 75 66 66 65 |MenuHandle_Buffe|
00000d40 72 25 2c 30 2c 30 2c 30 29 0d 00 5e 05 e1 0d 00 |r%,0,0,0)..^....|
00000d50 5f 05 3a 0d 00 60 04 0d 00 61 46 f4 20 3d 3d 3d |_.:..`...aF. ===|
00000d60 3d 3d 20 49 63 6f 6e 42 61 72 5f 53 65 74 55 70 |== IconBar_SetUp|
00000d70 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d | routines ======|
00000d80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000d90 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 62 |=============..b|
00000da0 04 0d 00 63 14 dd 20 f2 53 65 74 55 70 5f 49 63 |...c.. .SetUp_Ic|
00000db0 6f 6e 42 61 72 0d 00 64 56 73 69 63 6f 6e 3d a4 |onBar..dVsicon=.|
00000dc0 73 68 65 6c 6c 5f 49 63 6f 6e 62 61 72 28 2d 31 |shell_Iconbar(-1|
00000dd0 2c 22 21 22 2b a4 73 68 65 6c 6c 5f 47 65 74 41 |,"!"+.shell_GetA|
00000de0 70 70 4e 61 6d 65 2c 22 4f 66 66 22 2c 31 32 30 |ppName,"Off",120|
00000df0 2c 4d 65 6e 75 48 61 6e 64 6c 65 5f 49 63 6f 6e |,MenuHandle_Icon|
00000e00 42 61 72 25 2c 30 2c 30 2c 30 29 0d 00 65 2c f2 |Bar%,0,0,0)..e,.|
00000e10 73 68 65 6c 6c 5f 41 74 74 61 63 68 48 65 6c 70 |shell_AttachHelp|
00000e20 54 61 67 28 2d 31 2c 73 69 63 6f 6e 2c 22 69 63 |Tag(-1,sicon,"ic|
00000e30 6f 6e 62 61 72 22 29 0d 00 66 39 f2 73 68 65 6c |onbar")..f9.shel|
00000e40 6c 5f 41 74 74 61 63 68 43 6c 69 63 6b 53 65 6c |l_AttachClickSel|
00000e50 65 63 74 28 2d 31 2c 73 69 63 6f 6e 2c 22 5f 43 |ect(-1,sicon,"_C|
00000e60 6c 69 63 6b 53 65 6c 49 63 6f 6e 62 61 72 22 29 |lickSelIconbar")|
00000e70 0d 00 67 39 f2 73 68 65 6c 6c 5f 41 74 74 61 63 |..g9.shell_Attac|
00000e80 68 43 6c 69 63 6b 41 64 6a 75 73 74 28 2d 31 2c |hClickAdjust(-1,|
00000e90 73 69 63 6f 6e 2c 22 5f 43 6c 69 63 6b 41 64 6a |sicon,"_ClickAdj|
00000ea0 49 63 6f 6e 62 61 72 22 29 0d 00 68 05 e1 0d 00 |Iconbar")..h....|
00000eb0 69 05 3a 0d 00 6a 04 0d 00 6b 46 f4 20 3d 3d 3d |i.:..j...kF. ===|
00000ec0 3d 3d 20 44 69 61 6c 6f 67 5f 50 72 65 4f 70 65 |== Dialog_PreOpe|
00000ed0 6e 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d |n routines =====|
00000ee0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000ef0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 6c |=============..l|
00000f00 04 0d 00 6d 18 dd 20 a4 5f 50 72 65 4f 70 65 6e |...m.. ._PreOpen|
00000f10 5f 49 6e 66 6f 28 68 25 29 0d 00 6e 40 f2 73 68 |_Info(h%)..n@.sh|
00000f20 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 61 74 61 28 |ell_IconPutData(|
00000f30 68 25 2c 30 2c a4 73 68 65 6c 6c 5f 4d 65 73 73 |h%,0,.shell_Mess|
00000f40 61 67 65 4e 6f 41 72 67 73 28 22 70 72 6f 67 49 |ageNoArgs("progI|
00000f50 6e 66 6f 30 22 29 2c 30 29 0d 00 6f 40 f2 73 68 |nfo0"),0)..o@.sh|
00000f60 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 61 74 61 28 |ell_IconPutData(|
00000f70 68 25 2c 31 2c a4 73 68 65 6c 6c 5f 4d 65 73 73 |h%,1,.shell_Mess|
00000f80 61 67 65 4e 6f 41 72 67 73 28 22 70 72 6f 67 49 |ageNoArgs("progI|
00000f90 6e 66 6f 31 22 29 2c 30 29 0d 00 70 40 f2 73 68 |nfo1"),0)..p@.sh|
00000fa0 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 61 74 61 28 |ell_IconPutData(|
00000fb0 68 25 2c 32 2c a4 73 68 65 6c 6c 5f 4d 65 73 73 |h%,2,.shell_Mess|
00000fc0 61 67 65 4e 6f 41 72 67 73 28 22 70 72 6f 67 49 |ageNoArgs("progI|
00000fd0 6e 66 6f 32 22 29 2c 30 29 0d 00 71 40 f2 73 68 |nfo2"),0)..q@.sh|
00000fe0 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 61 74 61 28 |ell_IconPutData(|
00000ff0 68 25 2c 33 2c a4 73 68 65 6c 6c 5f 4d 65 73 73 |h%,3,.shell_Mess|
00001000 61 67 65 4e 6f 41 72 67 73 28 22 70 72 6f 67 49 |ageNoArgs("progI|
00001010 6e 66 6f 33 22 29 2c 30 29 0d 00 72 2b f2 73 68 |nfo3"),0)..r+.sh|
00001020 65 6c 6c 5f 41 74 74 61 63 68 48 65 6c 70 54 61 |ell_AttachHelpTa|
00001030 67 28 68 25 2c 2d 31 2c 22 70 72 6f 67 69 6e 66 |g(h%,-1,"proginf|
00001040 6f 77 22 29 0d 00 73 06 3d 30 0d 00 74 05 3a 0d |ow")..s.=0..t.:.|
00001050 00 75 1c dd 20 a4 5f 50 72 65 4f 70 65 6e 5f 53 |.u.. ._PreOpen_S|
00001060 61 76 65 54 65 6d 70 28 68 25 29 0d 00 76 2a f2 |aveTemp(h%)..v*.|
00001070 73 68 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 61 74 |shell_IconPutDat|
00001080 61 28 68 25 2c 31 2c 22 54 72 61 63 65 46 69 6c |a(h%,1,"TraceFil|
00001090 65 22 2c 30 29 0d 00 77 3b f2 73 68 65 6c 6c 5f |e",0)..w;.shell_|
000010a0 41 74 74 61 63 68 44 61 74 61 53 61 76 65 28 68 |AttachDataSave(h|
000010b0 25 2c 32 2c 6e 72 5f 63 68 61 72 73 25 2c 26 46 |%,2,nr_chars%,&F|
000010c0 46 46 2c 31 2c 22 5f 64 6f 5f 73 61 76 65 22 29 |FF,1,"_do_save")|
000010d0 0d 00 78 2b f2 73 68 65 6c 6c 5f 41 74 74 61 63 |..x+.shell_Attac|
000010e0 68 48 65 6c 70 54 61 67 28 68 25 2c 2d 31 2c 22 |hHelpTag(h%,-1,"|
000010f0 73 61 76 65 74 65 6d 70 77 22 29 0d 00 79 06 3d |savetempw")..y.=|
00001100 30 0d 00 7a 05 3a 0d 00 7b 04 0d 00 7c 46 f4 20 |0..z.:..{...|F. |
00001110 3d 3d 3d 3d 3d 20 44 69 61 6c 6f 67 5f 50 6f 73 |===== Dialog_Pos|
00001120 74 4f 70 65 6e 20 72 6f 75 74 69 6e 65 73 20 3d |tOpen routines =|
00001130 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00001150 0d 00 7d 04 0d 00 7e 46 f4 20 3d 3d 3d 3d 3d 20 |..}...~F. ===== |
00001160 43 6c 69 63 6b 5f 53 65 6c 65 63 74 20 72 6f 75 |Click_Select rou|
00001170 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |tines ==========|
00001180 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001190 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 7f 04 0d 00 |==========......|
000011a0 80 22 dd 20 a4 5f 43 6c 69 63 6b 53 65 6c 49 63 |.". ._ClickSelIc|
000011b0 6f 6e 62 61 72 28 77 68 25 2c 69 63 6f 6e 25 29 |onbar(wh%,icon%)|
000011c0 0d 00 81 23 f2 73 68 65 6c 6c 5f 4f 70 65 6e 57 |...#.shell_OpenW|
000011d0 69 6e 64 6f 77 53 74 61 74 69 63 28 6d 61 69 6e |indowStatic(main|
000011e0 77 25 29 0d 00 82 06 3d 30 0d 00 83 05 3a 0d 00 |w%)....=0....:..|
000011f0 84 04 0d 00 85 46 f4 20 3d 3d 3d 3d 3d 20 43 6c |.....F. ===== Cl|
00001200 69 63 6b 5f 41 64 6a 75 73 74 20 72 6f 75 74 69 |ick_Adjust routi|
00001210 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |nes ============|
00001220 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001230 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 86 04 0d 00 87 22 |========......."|
00001240 dd 20 a4 5f 43 6c 69 63 6b 41 64 6a 49 63 6f 6e |. ._ClickAdjIcon|
00001250 62 61 72 28 77 68 25 2c 69 63 6f 6e 25 29 0d 00 |bar(wh%,icon%)..|
00001260 88 1c f4 20 54 6f 67 67 6c 65 20 61 63 74 69 76 |... Toggle activ|
00001270 65 20 73 74 61 74 75 73 2e 2e 0d 00 89 06 ef 37 |e status.......7|
00001280 0d 00 8a 16 e7 20 54 72 61 63 65 41 63 74 69 76 |..... TraceActiv|
00001290 65 25 3d a3 20 8c 0d 00 8b 14 20 20 54 72 61 63 |e%=. ..... Trac|
000012a0 65 41 63 74 69 76 65 25 3d b9 0d 00 8c 2a 20 20 |eActive%=....* |
000012b0 f2 73 68 65 6c 6c 5f 49 63 6f 6e 62 61 72 53 65 |.shell_IconbarSe|
000012c0 74 54 65 78 74 28 2d 31 2c 73 69 63 6f 6e 2c 22 |tText(-1,sicon,"|
000012d0 4f 6e 22 29 0d 00 8d 3c 20 20 f2 73 68 65 6c 6c |On")...< .shell|
000012e0 5f 42 72 6f 61 64 63 61 73 74 4d 65 73 73 61 67 |_BroadcastMessag|
000012f0 65 28 26 34 33 42 30 30 2c 22 45 76 6e 74 53 68 |e(&43B00,"EvntSh|
00001300 65 6c 6c 4c 69 62 3a 54 72 61 63 65 4f 6e 22 29 |ellLib:TraceOn")|
00001310 0d 00 8e 05 cc 0d 00 8f 14 20 20 54 72 61 63 65 |......... Trace|
00001320 41 63 74 69 76 65 25 3d a3 0d 00 90 2b 20 20 f2 |Active%=....+ .|
00001330 73 68 65 6c 6c 5f 49 63 6f 6e 62 61 72 53 65 74 |shell_IconbarSet|
00001340 54 65 78 74 28 2d 31 2c 73 69 63 6f 6e 2c 22 4f |Text(-1,sicon,"O|
00001350 66 66 22 29 0d 00 91 3d 20 20 f2 73 68 65 6c 6c |ff")...= .shell|
00001360 5f 42 72 6f 61 64 63 61 73 74 4d 65 73 73 61 67 |_BroadcastMessag|
00001370 65 28 26 34 33 42 30 30 2c 22 45 76 6e 74 53 68 |e(&43B00,"EvntSh|
00001380 65 6c 6c 4c 69 62 3a 54 72 61 63 65 4f 66 66 22 |ellLib:TraceOff"|
00001390 29 0d 00 92 05 cd 0d 00 93 06 3d 30 0d 00 94 05 |).........=0....|
000013a0 3a 0d 00 95 46 f4 20 3d 3d 3d 3d 3d 20 4d 65 6e |:...F. ===== Men|
000013b0 75 5f 53 65 6c 65 63 74 20 72 6f 75 74 69 6e 65 |u_Select routine|
000013c0 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |s ==============|
000013d0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
000013e0 3d 3d 3d 3d 3d 3d 3d 0d 00 96 04 0d 00 97 1d dd |=======.........|
000013f0 20 a4 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 48 65 | ._MenuSelect_He|
00001400 6c 70 28 62 6c 6b 25 29 0d 00 98 2b f2 73 68 65 |lp(blk%)...+.she|
00001410 6c 6c 5f 48 65 6c 70 57 6f 72 64 28 a4 73 68 65 |ll_HelpWord(.she|
00001420 6c 6c 5f 47 65 74 41 70 70 4e 61 6d 65 2b 22 2e |ll_GetAppName+".|
00001430 24 22 29 0d 00 99 06 3d 30 0d 00 9a 05 3a 0d 00 |$")....=0....:..|
00001440 9b 1d dd 20 a4 5f 4d 65 6e 75 53 65 6c 65 63 74 |... ._MenuSelect|
00001450 5f 51 75 69 74 28 62 6c 6b 25 29 0d 00 9c 11 5f |_Quit(blk%)...._|
00001460 63 6c 6f 73 65 64 6f 77 6e 25 3d b9 0d 00 9d 06 |closedown%=.....|
00001470 3d 30 0d 00 9e 05 3a 0d 00 9f 1e dd 20 a4 5f 4d |=0....:..... ._M|
00001480 65 6e 75 53 65 6c 65 63 74 5f 43 6c 65 61 72 28 |enuSelect_Clear(|
00001490 62 6c 6b 25 29 0d 00 a0 2f 6e 72 5f 6c 69 6e 65 |blk%).../nr_line|
000014a0 73 25 3d 30 3a f2 73 68 65 6c 6c 5f 48 65 61 70 |s%=0:.shell_Heap|
000014b0 42 6c 6f 63 6b 52 65 74 75 72 6e 28 62 75 66 66 |BlockReturn(buff|
000014c0 65 72 25 29 0d 00 a1 24 62 75 66 66 65 72 25 3d |er%)...$buffer%=|
000014d0 a4 73 68 65 6c 6c 5f 48 65 61 70 42 6c 6f 63 6b |.shell_HeapBlock|
000014e0 46 65 74 63 68 28 34 29 0d 00 a2 23 e7 20 a4 73 |Fetch(4)...#. .s|
000014f0 68 65 6c 6c 5f 57 69 6e 64 6f 77 49 73 4f 70 65 |hell_WindowIsOpe|
00001500 6e 28 6d 61 69 6e 77 25 29 20 8c 0d 00 a3 20 20 |n(mainw%) .... |
00001510 20 f2 73 68 65 6c 6c 5f 43 6c 6f 73 65 57 69 6e | .shell_CloseWin|
00001520 64 6f 77 28 6d 61 69 6e 77 25 29 0d 00 a4 2b 20 |dow(mainw%)...+ |
00001530 20 f2 73 68 65 6c 6c 5f 4f 70 65 6e 57 69 6e 64 | .shell_OpenWind|
00001540 6f 77 53 74 61 74 69 63 28 6d 61 69 6e 77 25 29 |owStatic(mainw%)|
00001550 20 20 20 20 20 20 0d 00 a5 05 cd 0d 00 a6 24 62 | ........$b|
00001560 75 66 66 65 72 25 3d a4 73 68 65 6c 6c 5f 48 65 |uffer%=.shell_He|
00001570 61 70 42 6c 6f 63 6b 46 65 74 63 68 28 34 29 0d |apBlockFetch(4).|
00001580 00 a7 30 f2 73 68 65 6c 6c 5f 57 69 6e 64 6f 77 |..0.shell_Window|
00001590 52 65 73 69 7a 65 28 6d 61 69 6e 77 25 2c 30 2c |Resize(mainw%,0,|
000015a0 2d 31 32 30 2c 31 30 30 30 2c 30 2c 2d 31 29 0d |-120,1000,0,-1).|
000015b0 00 a8 06 3d 30 0d 00 a9 05 3a 0d 00 aa 04 0d 00 |...=0....:......|
000015c0 ab 21 dd 20 a4 5f 4d 65 6e 75 53 65 6c 65 63 74 |.!. ._MenuSelect|
000015d0 5f 43 6c 69 63 6b 53 65 6c 28 62 6c 6b 25 29 0d |_ClickSel(blk%).|
000015e0 00 ac 42 f2 73 68 65 6c 6c 5f 42 72 6f 61 64 63 |..B.shell_Broadc|
000015f0 61 73 74 4d 65 73 73 61 67 65 28 26 34 33 42 30 |astMessage(&43B0|
00001600 30 2c 22 45 76 6e 74 53 68 65 6c 6c 4c 69 62 3a |0,"EvntShellLib:|
00001610 4c 69 73 74 43 6c 69 63 6b 53 65 6c 65 63 74 22 |ListClickSelect"|
00001620 29 0d 00 ad 06 3d 30 0d 00 ae 05 3a 0d 00 af 21 |)....=0....:...!|
00001630 dd 20 a4 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 43 |. ._MenuSelect_C|
00001640 6c 69 63 6b 41 64 6a 28 62 6c 6b 25 29 0d 00 b0 |lickAdj(blk%)...|
00001650 42 f2 73 68 65 6c 6c 5f 42 72 6f 61 64 63 61 73 |B.shell_Broadcas|
00001660 74 4d 65 73 73 61 67 65 28 26 34 33 42 30 30 2c |tMessage(&43B00,|
00001670 22 45 76 6e 74 53 68 65 6c 6c 4c 69 62 3a 4c 69 |"EvntShellLib:Li|
00001680 73 74 43 6c 69 63 6b 41 64 6a 75 73 74 22 29 0d |stClickAdjust").|
00001690 00 b1 06 3d 30 0d 00 b2 05 3a 0d 00 b3 1d dd 20 |...=0....:..... |
000016a0 a4 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 54 61 67 |._MenuSelect_Tag|
000016b0 73 28 62 6c 6b 25 29 0d 00 b4 3f f2 73 68 65 6c |s(blk%)...?.shel|
000016c0 6c 5f 42 72 6f 61 64 63 61 73 74 4d 65 73 73 61 |l_BroadcastMessa|
000016d0 67 65 28 26 34 33 42 30 30 2c 22 45 76 6e 74 53 |ge(&43B00,"EvntS|
000016e0 68 65 6c 6c 4c 69 62 3a 4c 69 73 74 48 65 6c 70 |hellLib:ListHelp|
000016f0 54 61 67 73 22 29 0d 00 b5 06 3d 30 0d 00 b6 05 |Tags")....=0....|
00001700 3a 0d 00 b7 04 0d 00 b8 46 f4 20 3d 3d 3d 3d 3d |:.......F. =====|
00001710 20 4d 65 6e 75 5f 57 61 72 6e 69 6e 67 20 72 6f | Menu_Warning ro|
00001720 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d |utines =========|
00001730 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001740 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 b9 04 0d |===========.....|
00001750 00 ba 46 f4 20 3d 3d 3d 3d 3d 20 44 61 74 61 5f |..F. ===== Data_|
00001760 4c 6f 61 64 20 72 6f 75 74 69 6e 65 73 20 3d 3d |Load routines ==|
00001770 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00001790 3d 3d 3d 3d 3d 0d 00 bb 04 0d 00 bc 46 f4 20 3d |=====.......F. =|
000017a0 3d 3d 3d 3d 20 44 61 74 61 5f 53 61 76 65 20 72 |==== Data_Save r|
000017b0 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d |outines ========|
000017c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
000017d0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d |===============.|
000017e0 00 bd 04 0d 00 be 16 dd 20 a4 5f 64 6f 5f 73 61 |........ ._do_sa|
000017f0 76 65 28 6e 61 6d 65 24 29 0d 00 bf 14 ea 20 70 |ve(name$)..... p|
00001800 74 72 25 2c 58 25 2c 6c 69 6e 65 73 25 0d 00 c0 |tr%,X%,lines%...|
00001810 25 f2 73 68 65 6c 6c 5f 54 72 61 63 65 66 30 28 |%.shell_Tracef0(|
00001820 22 49 6e 20 46 4e 5f 64 6f 5f 73 61 76 65 2e 2e |"In FN_do_save..|
00001830 22 29 0d 00 c1 29 f2 73 68 65 6c 6c 5f 54 72 61 |")...).shell_Tra|
00001840 63 65 66 30 28 22 46 69 6c 65 20 6e 61 6d 65 20 |cef0("File name |
00001850 69 73 20 22 2b 6e 61 6d 65 24 29 0d 00 c2 0a 70 |is "+name$)....p|
00001860 74 72 25 3d 30 0d 00 c3 0f 58 25 3d ae 28 6e 61 |tr%=0....X%=.(na|
00001870 6d 65 24 29 0d 00 c4 13 e7 20 6e 72 5f 6c 69 6e |me$)..... nr_lin|
00001880 65 73 25 3e 30 20 8c 0d 00 c5 07 20 20 f5 0d 00 |es%>0 ..... ...|
00001890 c6 1d 20 20 20 20 d5 23 20 58 25 2c 24 28 62 75 |.. .# X%,$(bu|
000018a0 66 66 65 72 25 2b 70 74 72 25 29 0d 00 c7 1b 20 |ffer%+ptr%).... |
000018b0 20 20 20 70 74 72 25 2b 3d 31 30 30 3a 6c 69 6e | ptr%+=100:lin|
000018c0 65 73 25 2b 3d 31 0d 00 c8 18 20 20 fd 20 6c 69 |es%+=1.... . li|
000018d0 6e 65 73 25 3d 6e 72 5f 6c 69 6e 65 73 25 0d 00 |nes%=nr_lines%..|
000018e0 c9 05 cd 0d 00 ca 09 d9 23 20 58 25 0d 00 cb 1e |........# X%....|
000018f0 ff 28 22 53 65 74 54 79 70 65 20 22 2b 6e 61 6d |.("SetType "+nam|
00001900 65 24 2b 22 20 46 46 46 22 29 0d 00 cc 06 3d 30 |e$+" FFF")....=0|
00001910 0d 00 cd 05 3a 0d 00 ce 4c f4 20 3d 3d 3d 3d 3d |....:...L. =====|
00001920 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 41 70 70 6c |=========== Appl|
00001930 69 63 61 74 69 6f 6e 20 52 6f 75 74 69 6e 65 73 |ication Routines|
00001940 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ===============|
00001950 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001960 3d 0d 00 cf 05 3a 0d 00 d0 27 dd 20 f2 73 68 65 |=....:...'. .she|
00001970 6c 6c 5f 48 61 6e 64 6c 65 55 6e 6b 6e 6f 77 6e |ll_HandleUnknown|
00001980 4d 65 73 73 61 67 65 28 62 6c 6b 25 29 0d 00 d1 |Message(blk%)...|
00001990 10 c8 8e 20 62 6c 6b 25 21 31 36 20 ca 0d 00 d2 |... blk%!16 ....|
000019a0 44 20 20 c9 20 26 34 33 42 30 30 3a f2 6d 65 73 |D . &43B00:.mes|
000019b0 73 61 67 65 28 62 6c 6b 25 21 34 2c 24 28 62 6c |sage(blk%!4,$(bl|
000019c0 6b 25 2b 32 30 29 29 3a f4 20 70 6f 73 73 69 62 |k%+20)):. possib|
000019d0 6c 65 20 74 72 61 63 65 20 6d 65 73 73 61 67 65 |le trace message|
000019e0 21 0d 00 d3 05 cb 0d 00 d4 05 e1 0d 00 d5 05 3a |!..............:|
000019f0 0d 00 d6 1b dd 20 f2 6d 65 73 73 61 67 65 28 74 |..... .message(t|
00001a00 61 73 6b 25 2c 74 65 78 74 24 29 0d 00 d7 29 f4 |ask%,text$)...).|
00001a10 20 49 67 6e 6f 72 65 20 6d 65 73 73 61 67 65 73 | Ignore messages|
00001a20 20 73 65 6e 74 20 62 79 20 74 68 69 73 20 74 61 | sent by this ta|
00001a30 73 6b 21 21 0d 00 d8 17 e7 20 74 61 73 6b 25 3c |sk!!..... task%<|
00001a40 3e 74 61 73 6b 5f 69 64 25 20 8c 0d 00 d9 26 20 |>task_id% ....& |
00001a50 20 e7 20 c0 74 65 78 74 24 2c 31 34 29 3d 22 53 | . .text$,14)="S|
00001a60 68 65 6c 6c 44 42 75 67 3a 49 6e 69 74 22 20 20 |hellDBug:Init" |
00001a70 8c 0d 00 da 29 20 20 20 20 f2 73 68 65 6c 6c 64 |....) .shelld|
00001a80 62 75 67 5f 69 6e 69 74 28 74 61 73 6b 25 2c c1 |bug_init(task%,.|
00001a90 74 65 78 74 24 2c 31 36 29 29 0d 00 db 07 20 20 |text$,16)).... |
00001aa0 cd 0d 00 dc 26 20 20 e7 20 c0 74 65 78 74 24 2c |....& . .text$,|
00001ab0 31 35 29 3d 22 53 68 65 6c 6c 44 42 75 67 3a 54 |15)="ShellDBug:T|
00001ac0 72 61 63 65 22 20 8c 0d 00 dd 2a 20 20 20 20 f2 |race" ....* .|
00001ad0 73 68 65 6c 6c 64 62 75 67 5f 74 72 61 63 65 28 |shelldbug_trace(|
00001ae0 74 61 73 6b 25 2c c1 74 65 78 74 24 2c 31 36 29 |task%,.text$,16)|
00001af0 29 0d 00 de 07 20 20 cd 0d 00 df 28 20 20 e7 20 |).... ....( . |
00001b00 c0 74 65 78 74 24 2c 31 37 29 3d 22 53 68 65 6c |.text$,17)="Shel|
00001b10 6c 44 42 75 67 3a 54 72 61 63 65 4f 6e 22 20 8c |lDBug:TraceOn" .|
00001b20 0d 00 e0 16 20 20 20 20 54 72 61 63 65 41 63 74 |.... TraceAct|
00001b30 69 76 65 25 3d b9 0d 00 e1 2c 20 20 20 20 f2 73 |ive%=...., .s|
00001b40 68 65 6c 6c 5f 49 63 6f 6e 62 61 72 53 65 74 54 |hell_IconbarSetT|
00001b50 65 78 74 28 2d 31 2c 73 69 63 6f 6e 2c 22 4f 6e |ext(-1,sicon,"On|
00001b60 22 29 0d 00 e2 33 20 20 20 20 f2 73 68 65 6c 6c |")...3 .shell|
00001b70 64 62 75 67 5f 74 72 61 63 65 28 74 61 73 6b 25 |dbug_trace(task%|
00001b80 2c 22 53 74 61 72 74 69 6e 67 20 54 72 61 63 65 |,"Starting Trace|
00001b90 2e 2e 2e 22 29 0d 00 e3 07 20 20 cd 0d 00 e4 29 |...").... ....)|
00001ba0 20 20 e7 20 c0 74 65 78 74 24 2c 31 38 29 3d 22 | . .text$,18)="|
00001bb0 53 68 65 6c 6c 44 42 75 67 3a 54 72 61 63 65 4f |ShellDBug:TraceO|
00001bc0 66 66 22 20 8c 0d 00 e5 16 20 20 20 20 54 72 61 |ff" ..... Tra|
00001bd0 63 65 41 63 74 69 76 65 25 3d a3 0d 00 e6 2d 20 |ceActive%=....- |
00001be0 20 20 20 f2 73 68 65 6c 6c 5f 49 63 6f 6e 62 61 | .shell_Iconba|
00001bf0 72 53 65 74 54 65 78 74 28 2d 31 2c 73 69 63 6f |rSetText(-1,sico|
00001c00 6e 2c 22 4f 66 66 22 29 0d 00 e7 2e 20 20 20 20 |n,"Off").... |
00001c10 f2 73 68 65 6c 6c 64 62 75 67 5f 74 72 61 63 65 |.shelldbug_trace|
00001c20 28 74 61 73 6b 25 2c 22 54 72 61 63 65 20 4f 66 |(task%,"Trace Of|
00001c30 66 2e 2e 2e 22 29 0d 00 e8 07 20 20 cd 0d 00 e9 |f...").... ....|
00001c40 05 cd 0d 00 ea 05 e1 0d 00 eb 05 3a 0d 00 ec 22 |...........:..."|
00001c50 dd 20 f2 73 68 65 6c 6c 64 62 75 67 5f 69 6e 69 |. .shelldbug_ini|
00001c60 74 28 74 61 73 6b 25 2c 74 65 78 74 24 29 0d 00 |t(task%,text$)..|
00001c70 ed 1a 72 65 73 70 6f 6e 64 5f 74 6f 5f 74 61 73 |..respond_to_tas|
00001c80 6b 25 3d 74 61 73 6b 25 0d 00 ee 1e f2 73 68 65 |k%=task%.....she|
00001c90 6c 6c 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 28 6d |ll_CloseWindow(m|
00001ca0 61 69 6e 77 25 29 0d 00 ef 23 f2 73 68 65 6c 6c |ainw%)...#.shell|
00001cb0 5f 4f 70 65 6e 57 69 6e 64 6f 77 53 74 61 74 69 |_OpenWindowStati|
00001cc0 63 28 6d 61 69 6e 77 25 29 0d 00 f0 1b 6e 72 5f |c(mainw%)....nr_|
00001cd0 6c 69 6e 65 73 25 3d 30 3a 6e 72 5f 63 68 61 72 |lines%=0:nr_char|
00001ce0 73 25 3d 30 0d 00 f1 30 f2 73 68 65 6c 6c 5f 57 |s%=0...0.shell_W|
00001cf0 69 6e 64 6f 77 52 65 73 69 7a 65 28 6d 61 69 6e |indowResize(main|
00001d00 77 25 2c 30 2c 2d 31 32 30 2c 31 30 30 30 2c 30 |w%,0,-120,1000,0|
00001d10 2c 2d 31 29 0d 00 f2 26 f2 73 68 65 6c 6c 5f 57 |,-1)...&.shell_W|
00001d20 69 6e 64 6f 77 52 65 74 69 74 6c 65 28 6d 61 69 |indowRetitle(mai|
00001d30 6e 77 25 2c 74 65 78 74 24 29 0d 00 f3 23 f2 73 |nw%,text$)...#.s|
00001d40 68 65 6c 6c 5f 48 65 61 70 42 6c 6f 63 6b 52 65 |hell_HeapBlockRe|
00001d50 74 75 72 6e 28 62 75 66 66 65 72 25 29 0d 00 f4 |turn(buffer%)...|
00001d60 24 62 75 66 66 65 72 25 3d a4 73 68 65 6c 6c 5f |$buffer%=.shell_|
00001d70 48 65 61 70 42 6c 6f 63 6b 46 65 74 63 68 28 34 |HeapBlockFetch(4|
00001d80 29 0d 00 f5 14 e7 20 54 72 61 63 65 41 63 74 69 |)..... TraceActi|
00001d90 76 65 25 20 8c 0d 00 f6 3c 20 20 f2 73 68 65 6c |ve% ....< .shel|
00001da0 6c 5f 42 72 6f 61 64 63 61 73 74 4d 65 73 73 61 |l_BroadcastMessa|
00001db0 67 65 28 26 34 33 42 30 30 2c 22 45 76 6e 74 53 |ge(&43B00,"EvntS|
00001dc0 68 65 6c 6c 4c 69 62 3a 54 72 61 63 65 4f 6e 22 |hellLib:TraceOn"|
00001dd0 29 0d 00 f7 05 cd 0d 00 f8 05 e1 0d 00 f9 05 3a |)..............:|
00001de0 0d 00 fa 23 dd 20 f2 73 68 65 6c 6c 64 62 75 67 |...#. .shelldbug|
00001df0 5f 74 72 61 63 65 28 74 61 73 6b 25 2c 74 65 78 |_trace(task%,tex|
00001e00 74 24 29 0d 00 fb 1e e7 20 74 61 73 6b 25 3d 72 |t$)..... task%=r|
00001e10 65 73 70 6f 6e 64 5f 74 6f 5f 74 61 73 6b 25 20 |espond_to_task% |
00001e20 8c 0d 00 fc 31 20 20 62 75 66 66 65 72 25 3d a4 |....1 buffer%=.|
00001e30 73 68 65 6c 6c 5f 48 65 61 70 42 6c 6f 63 6b 45 |shell_HeapBlockE|
00001e40 78 74 65 6e 64 28 62 75 66 66 65 72 25 2c 31 30 |xtend(buffer%,10|
00001e50 30 29 0d 00 fd 35 20 20 74 65 78 74 24 3d c0 74 |0)...5 text$=.t|
00001e60 65 78 74 24 2c a9 74 65 78 74 24 2d 31 29 3a f4 |ext$,.text$-1):.|
00001e70 20 73 74 72 69 70 20 43 48 52 24 30 20 66 72 6f | strip CHR$0 fro|
00001e80 6d 20 65 6e 64 2e 2e 0d 00 fe 22 20 20 6e 72 5f |m end....." nr_|
00001e90 63 68 61 72 73 25 3d 6e 72 5f 63 68 61 72 73 25 |chars%=nr_chars%|
00001ea0 2b a9 74 65 78 74 24 2b 31 0d 00 ff 2b 20 20 24 |+.text$+1...+ $|
00001eb0 28 62 75 66 66 65 72 25 2b 28 6e 72 5f 6c 69 6e |(buffer%+(nr_lin|
00001ec0 65 73 25 2a 31 30 30 29 29 3d c0 74 65 78 74 24 |es%*100))=.text$|
00001ed0 2c 39 39 29 0d 01 00 12 20 20 6e 72 5f 6c 69 6e |,99).... nr_lin|
00001ee0 65 73 25 2b 3d 31 0d 01 01 17 20 20 55 70 64 61 |es%+=1.... Upda|
00001ef0 74 65 52 65 71 75 69 72 65 64 25 3d b9 0d 01 02 |teRequired%=....|
00001f00 05 cd 0d 01 03 05 e1 0d 01 04 05 3a 0d 01 05 1c |...........:....|
00001f10 dd 20 a4 5f 72 65 64 72 61 77 28 62 6c 6b 25 2c |. ._redraw(blk%,|
00001f20 78 30 25 2c 79 30 25 29 0d 01 06 13 ea 20 74 6f |x0%,y0%)..... to|
00001f30 70 25 2c 62 61 73 65 25 2c 69 25 0d 01 07 24 74 |p%,base%,i%...$t|
00001f40 6f 70 25 3d 28 79 30 25 2d 62 6c 6b 25 21 34 30 |op%=(y0%-blk%!40|
00001f50 29 81 6c 69 6e 65 5f 73 70 61 63 69 6e 67 25 0d |).line_spacing%.|
00001f60 01 08 15 e7 20 74 6f 70 25 3c 30 20 8c 20 74 6f |.... top%<0 . to|
00001f70 70 25 3d 30 0d 01 09 28 62 61 73 65 25 3d 28 34 |p%=0...(base%=(4|
00001f80 37 2b 79 30 25 2d 62 6c 6b 25 21 33 32 29 81 6c |7+y0%-blk%!32).l|
00001f90 69 6e 65 5f 73 70 61 63 69 6e 67 25 0d 01 0a 0b |ine_spacing%....|
00001fa0 69 25 3d 74 6f 70 25 0d 01 0b 1f c8 95 20 69 25 |i%=top%...... i%|
00001fb0 3c 6e 72 5f 6c 69 6e 65 73 25 20 80 20 69 25 3c |<nr_lines% . i%<|
00001fc0 3d 62 61 73 65 25 0d 01 0c 47 20 20 e7 20 69 25 |=base%...G . i%|
00001fd0 3d 6e 72 5f 6c 69 6e 65 73 25 2d 31 20 8c 20 c8 |=nr_lines%-1 . .|
00001fe0 99 20 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 |. "Wimp_SetColou|
00001ff0 72 22 2c 31 31 20 8b 20 c8 99 20 22 57 69 6d 70 |r",11 . .. "Wimp|
00002000 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 35 0d 01 0d |_SetColour",5...|
00002010 28 20 20 ec 20 78 30 25 2b 31 30 2c 79 30 25 2d |( . x0%+10,y0%-|
00002020 28 69 25 2a 6c 69 6e 65 5f 73 70 61 63 69 6e 67 |(i%*line_spacing|
00002030 25 29 2d 31 30 0d 01 0e 1b 20 20 f1 20 24 28 62 |%)-10.... . $(b|
00002040 75 66 66 65 72 25 2b 28 31 30 30 2a 69 25 29 29 |uffer%+(100*i%))|
00002050 0d 01 0f 0b 20 20 69 25 2b 3d 31 0d 01 10 05 ce |.... i%+=1.....|
00002060 0d 01 11 06 3d 30 0d 01 12 05 3a 0d 01 13 1d dd |....=0....:.....|
00002070 20 f2 73 68 65 6c 6c 5f 44 6f 42 61 63 6b 67 72 | .shell_DoBackgr|
00002080 6f 75 6e 64 54 61 73 6b 0d 01 14 17 e7 20 55 70 |oundTask..... Up|
00002090 64 61 74 65 52 65 71 75 69 72 65 64 25 20 8c 0d |dateRequired% ..|
000020a0 01 15 5b f2 73 68 65 6c 6c 5f 57 69 6e 64 6f 77 |..[.shell_Window|
000020b0 52 65 73 69 7a 65 28 6d 61 69 6e 77 25 2c 30 2c |Resize(mainw%,0,|
000020c0 28 28 28 6e 72 5f 6c 69 6e 65 73 25 2b 31 29 2a |(((nr_lines%+1)*|
000020d0 6c 69 6e 65 5f 73 70 61 63 69 6e 67 25 29 2a 2d |line_spacing%)*-|
000020e0 31 29 2b 6c 69 6e 65 5f 73 70 61 63 69 6e 67 25 |1)+line_spacing%|
000020f0 2c 31 36 30 30 2c 30 2c 30 29 0d 01 16 25 20 20 |,1600,0,0)...% |
00002100 e7 20 a4 73 68 65 6c 6c 5f 57 69 6e 64 6f 77 49 |. .shell_WindowI|
00002110 73 4f 70 65 6e 28 6d 61 69 6e 77 25 29 20 8c 0d |sOpen(mainw%) ..|
00002120 01 17 14 20 20 20 20 5f 51 25 21 30 3d 6d 61 69 |... _Q%!0=mai|
00002130 6e 77 25 0d 01 18 24 20 20 20 20 c8 99 20 22 57 |nw%...$ .. "W|
00002140 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 |imp_GetWindowInf|
00002150 6f 22 2c 2c 5f 51 25 0d 01 19 1b 20 20 20 20 5f |o",,_Q%.... _|
00002160 51 25 21 32 34 3d 5f 51 25 21 34 38 2d 5f 51 25 |Q%!24=_Q%!48-_Q%|
00002170 21 38 0d 01 1a 22 20 20 20 20 c8 99 20 22 57 69 |!8..." .. "Wi|
00002180 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c |mp_CloseWindow",|
00002190 2c 5f 51 25 0d 01 1b 21 20 20 20 20 c8 99 20 22 |,_Q%...! .. "|
000021a0 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 |Wimp_OpenWindow"|
000021b0 2c 2c 5f 51 25 0d 01 1c 07 20 20 cd 0d 01 1d 17 |,,_Q%.... .....|
000021c0 20 20 55 70 64 61 74 65 52 65 71 75 69 72 65 64 | UpdateRequired|
000021d0 25 3d a3 0d 01 1e 05 cd 0d 01 1f 05 e1 0d 01 20 |%=............. |
000021e0 05 3a 0d 01 21 4c f4 20 3d 3d 3d 3d 3d 3d 3d 3d |.:..!L. ========|
000021f0 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 45 6e 64 20 4f 66 |========= End Of|
00002200 20 55 73 65 72 20 41 70 70 6c 69 63 61 74 69 6f | User Applicatio|
00002210 6e 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |n ==============|
00002220 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 01 |==============..|
00002230 22 05 3a 0d 01 23 04 0d ff |".:..#...|
00002239 
.