Home » Archimedes archive » Archimedes World » AW-1995-01-Disc2.adf » Disk2Jan95 » !AWJan95/Goodies/Event/Examples/!TestDraw/!TestDraw
!AWJan95/Goodies/Event/Examples/!TestDraw/!TestDraw
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 » Archimedes World » AW-1995-01-Disc2.adf » Disk2Jan95 |
| Filename: | !AWJan95/Goodies/Event/Examples/!TestDraw/!TestDraw |
| Read OK: | ✔ |
| File size: | 1EA9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM > <TestDraw$Dir>.!TestDraw
2:
3ON ERROR PROCshell_Error
4:
5LIBRARY "<EvntShell$Path>ShellLibRT"
6LIBRARY "<EvntShell$Path>Extensions.DrawLib"
7:
8SYS "Hourglass_On"
9:
10SYS "Wimp_SlotSize",-1,-1 TO progsize%
11pagesize%=1<<10
12freespace%=&8000+progsize%
13END=freespace%+pagesize%
14HIMEM=freespace%
15:
16PROCshell_HeapManagerInit("<EvntShell$Path>",freespace%)
17PROCshell_Init
18task%=FNshell_WimpInit_I(200,"TestDraw")
19PROCshell_TraceInit("")
20REM PROCshell_TraceOn
21PROCshell_ResourcesInit
22PROCapp_init
23:
24REM -------------------- Initialise Variables ----------------------------
25:
26_closedown% =FALSE :REM Set this to TRUE when you want the program to
27 :REM end
28changed% =FALSE :REM Used to keep track of whether the data has
29 :REM been changed. Call PROCfile_changed() when it
30 :REM has. But if the program does not use data
31 :REM files just ignore this variable but do not
32 :REM delete it as the program checks it before
33 :REM exiting!
34:
35REM -------------------- Miscelleanous Initialisation --------------------
36:
37SYS "Hourglass_Off"
38ON ERROR OFF
39ON ERROR PROCshell_Error
40REPEAT
41 PROCshell_Action(FNshell_Poll_I(0,task%))
42UNTIL _closedown%
43:
44PROCshell_Exit:END
45:
46REM ======================================================================
47:
48DEF PROCapp_init
49PROCSetUp_Menus
50PROCSetUp_Windows
51PROCSetUp_IconBar
52ENDPROC
53:
54
55REM ===== Menu_Setup routines ======================================
56
57DEF PROCSetUp_Menus
58LOCAL void%
59
60MenuHandle_IconBar%=FNshell_MenuNew(FNshell_MessageNoArgs("MTIBar"))
61MenuItem_Info% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Info"),"")
62MenuItem_Help% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Help"),"_MenuSelect_Help")
63void% =FNshell_MenuAdd(0,FNshell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
64PROCshell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
65
66ENDPROC
67:
68
69REM ===== Window_SetUp routines ====================================
70
71DEF PROCSetUp_Windows
72PROCshell_CreateWindowStatic("mainw" ,mainw%)
73PROCshell_CreateWindowStatic("mainwp",mainwp%)
74PROCshell_AttachUserRedraw(mainw%,"_UserRedraw_Mainw")
75PROCshell_AttachDataLoad(mainw%,-1,&AFF,"_DataLoad_AFF",-1)
76PROCshell_AttachPane(mainw%,mainwp%,2,0,0)
77PROCshell_AttachClickSelect(mainwp%,-1,"_ClickSelect_Pane")
78PROCshell_IconSelect(mainwp%,1)
79ENDPROC
80:
81
82REM ===== IconBar_SetUp routines ===================================
83
84DEF PROCSetUp_IconBar
85sicon=FNshell_Iconbar(-1,"!"+FNshell_GetAppName,"",120,MenuHandle_IconBar%,0,0,0)
86PROCshell_AttachHelpTag(-1,sicon,"iconbar")
87PROCshell_AttachClickSelect(-1,sicon,"_ClickSelect_IconBar")
88ENDPROC
89:
90
91REM ===== Dialog_PreOpen routines ==================================
92
93DEF FN_PreOpenInfo(wh%)
94PROCshell_IconPutData(wh%,0,FNshell_MessageNoArgs("progInfo0"),0)
95PROCshell_IconPutData(wh%,1,FNshell_MessageNoArgs("progInfo1"),0)
96PROCshell_IconPutData(wh%,2,FNshell_MessageNoArgs("progInfo2"),0)
97PROCshell_IconPutData(wh%,3,FNshell_MessageNoArgs("progInfo3"),0)
98=0
99:
100
101REM ===== Dialog_PostOpen routines =================================
102
103REM ===== Click_Select routines ====================================
104
105DEF FN_ClickSelect_IconBar(wh%,icon%)
106buffer% = 0
107SYS "Hourglass_On"
108PROCshell_DrawCreateFile(buffer%)
109
110PROCshell_DrawInitFont(buffer%,"Trinity.Medium")
111PROCshell_DrawInitFont(buffer%,"Corpus.Medium")
112
113PROCshell_DrawSetPathWidth(buffer%,0.75)
114PROCshell_DrawSetPathPattern(buffer%,TRUE,0,1,3)
115PROCshell_DrawLine(buffer%,30,30,30,150)
116PROCshell_DrawSetPathPattern(buffer%,FALSE,0,0,0)
117PROCshell_DrawSetPathWidth(buffer%,2.1)
118PROCshell_DrawLine(buffer%,50,50,100,100)
119
120REM now a 5mm wide line with an arrow on the end..
121PROCshell_DrawSetPathWidth(buffer%,5)
122PROCshell_DrawSetEndCapTriangle(buffer%,7,6)
123PROCshell_DrawLine(buffer%,10,10,160,10)
124
125PROCshell_DrawSetPathWidth(buffer%,0)
126PROCshell_DrawSetPathColour(buffer%,0,255,0)
127PROCshell_DrawSetFillColour(buffer%,220,220,220)
128
129PROCshell_DrawSetFont(buffer%,"Corpus.Medium")
130PROCshell_DrawOutlineFont(buffer%,"Hilke",72,72,35,130)
131
132PROCshell_DrawBox(buffer%,80,15,25.4,25.4)
133
134REM now a circle..
135PROCshell_DrawSetPathPattern(buffer%,TRUE,0,1,3)
136PROCshell_DrawCircle(buffer%,100,100,25)
137PROCshell_DrawSetPathPattern(buffer%,FALSE,0,0,0)
138
139REM and a filled ellipse..
140PROCshell_DrawSetFillColour(buffer%,220,000,100)
141PROCshell_DrawEllipse(buffer%,70,70,10,30)
142
143REM And now a grey box with a black drop shadow..
144REM Set fill and path colour to black..
145PROCshell_DrawStartGroup(buffer%,"Shadbox")
146PROCshell_DrawSetPathColour(buffer%,000,000,000)
147PROCshell_DrawSetFillColour(buffer%,000,000,000)
148PROCshell_DrawBox(buffer%,110,115,25,25)
149REM Set fill to grey..
150PROCshell_DrawSetFillColour(buffer%,200,200,200)
151REM Offset of box from shadow is 2.0mm
152PROCshell_DrawBox(buffer%,108,117,25,25)
153PROCshell_DrawEndGroup(buffer%)
154
155SYS "Hourglass_Off"
156PROCshell_Tracef0("File size is "+STR$(buffer%!8-buffer%!4))
157PROCshell_DrawSaveFile(buffer%,"RAM::RamDisc0.$.DrawFile")
158IF FNshell_IsIconSelected(mainwp%,0) THEN scl = 0.25
159IF FNshell_IsIconSelected(mainwp%,1) THEN scl = 0.50
160IF FNshell_IsIconSelected(mainwp%,2) THEN scl = 0.75
161IF FNshell_IsIconSelected(mainwp%,3) THEN scl = 1
162PROCshell_DrawSetScale(buffer%,scl,scl)
163PROCshell_DrawResizeWindow(buffer%,mainw%,60,60,60,160)
164PROCshell_OpenWindowStatic(mainw%)
165=0
166:
167
168DEF FN_ClickSelect_Pane(wh%,ih%)
169LOCAL xpos,ypos,width,height,scl,xscl,yscl,o_xscale,o_yscale
170PROCshell_DrawGetScale(buffer%,o_xscl,o_yscl)
171IF FNshell_IsIconSelected(mainwp%,0) THEN scl = 0.25
172IF FNshell_IsIconSelected(mainwp%,1) THEN scl = 0.50
173IF FNshell_IsIconSelected(mainwp%,2) THEN scl = 0.75
174IF FNshell_IsIconSelected(mainwp%,3) THEN scl = 1
175IF FNshell_IsIconSelected(mainwp%,4) THEN
176 PROCshell_DrawScaleToWindow(buffer%,mainw%,60,60,60,160,xscl,yscl)
177 scl = xscl
178ENDIF
179PROCshell_DrawSetScale(buffer%,scl,scl)
180IF scl <> o_xscl THEN
181 PROCshell_DrawResizeWindow(buffer%,mainw%,60,60,60,160)
182ENDIF
183PROCshell_OpenWindowStatic(mainw%)
184=0
185:
186
187REM ===== Click_Adjust routines ====================================
188
189REM ===== Menu_Select routines =====================================
190
191DEF FN_MenuSelect_Help(blk%)
192PROCshell_MessageSendDataLoad(&FFF,"<TestDraw$Dir>.!Help")
193=0
194:
195DEF FN_MenuSelect_Quit(blk%)
196_closedown%=TRUE
197=0
198:
199
200REM ===== Menu_Warning routines ====================================
201
202REM ===== Data_Load routines =======================================
203
204DEF FN_DataLoad_AFF(addr%,type%,name$,size%)
205LOCAL scl,xscl,yscl
206PROCshell_DrawDestroyFile(buffer%)
207buffer% = FNshell_DrawLoadFile(name$)
208IF FNshell_IsIconSelected(mainwp%,0) THEN scl = 0.25
209IF FNshell_IsIconSelected(mainwp%,1) THEN scl = 0.50
210IF FNshell_IsIconSelected(mainwp%,2) THEN scl = 0.75
211IF FNshell_IsIconSelected(mainwp%,3) THEN scl = 1
212IF FNshell_IsIconSelected(mainwp%,4) THEN
213 PROCshell_DrawScaleToWindow(buffer%,mainw%,60,60,60,160,xscl,yscl)
214 IF yscl < xscl THEN scl = yscl ELSE scl = xscl
215ENDIF
216PROCshell_DrawSetScale(buffer%,scl,scl)
217PROCshell_DrawResizeWindow(buffer%,mainw%,60,60,60,160)
218PROCshell_OpenWindowStatic(mainw%)
219SYS "Wimp_ForceRedraw",mainw%,-3000,-3000,3000,3000
220=0
221:
222
223REM ===== Data_Save routines =======================================
224
225REM ===== User_Redraw routines =====================================
226
227DEF FN_UserRedraw_Mainw(blk%,x%,y%)
228LOCAL scl,xpos,ypos,width,height,yorg,xorg
229PROCshell_DrawGetBoundingBox(buffer%,xpos,ypos,width,height,TRUE)
230yorg = -(160+height+ypos)+y%
231xorg = x% - xpos + 60
232PROCshell_DrawRenderFile(buffer%,xorg,yorg,blk%,FNshell_IsIconSelected(mainwp%,5))
233=0
234
235REM ===== User application routines ================================
236
237REM ================= End Of User Application ======================
238:
239
240
241
242
243
� > <TestDraw$Dir>.!TestDraw
:
� � �shell_Error
:
#ț "<EvntShell$Path>ShellLibRT"
+ț "<EvntShell$Path>Extensions.DrawLib"
:
ș "Hourglass_On"
:
(ș "Wimp_SlotSize",-1,-1 � progsize%
pagesize%=1<<10
freespace%=&8000+progsize%
�=freespace%+pagesize%
�=freespace%
:
9�shell_HeapManagerInit("<EvntShell$Path>",freespace%)
�shell_Init
+task%=�shell_WimpInit_I(200,"TestDraw")
�shell_TraceInit("")
� 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 --------------------
$:
%ș "Hourglass_Off"
& � � �
'� � �shell_Error
(�
)+ �shell_Action(�shell_Poll_I(0,task%))
*� _closedown%
+:
,�shell_Exit:�
-:
.L� ======================================================================
/:
0� �app_init
1�SetUp_Menus
2�SetUp_Windows
3�SetUp_IconBar
4�
5:
6
7F� ===== Menu_Setup routines ======================================
8
9� �SetUp_Menus
: � void%
;
<FMenuHandle_IconBar%=�shell_MenuNew(�shell_MessageNoArgs("MTIBar"))
=IMenuItem_Info% =�shell_MenuAdd(0,�shell_MessageNoArgs("Info"),"")
>YMenuItem_Help% =�shell_MenuAdd(0,�shell_MessageNoArgs("Help"),"_MenuSelect_Help")
?Yvoid% =�shell_MenuAdd(0,�shell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
@F�shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
A
B�
C:
D
EF� ===== Window_SetUp routines ====================================
F
G� �SetUp_Windows
H.�shell_CreateWindowStatic("mainw" ,mainw%)
I/�shell_CreateWindowStatic("mainwp",mainwp%)
J7�shell_AttachUserRedraw(mainw%,"_UserRedraw_Mainw")
K<�shell_AttachDataLoad(mainw%,-1,&AFF,"_DataLoad_AFF",-1)
L+�shell_AttachPane(mainw%,mainwp%,2,0,0)
M<�shell_AttachClickSelect(mainwp%,-1,"_ClickSelect_Pane")
N �shell_IconSelect(mainwp%,1)
O�
P:
Q
RF� ===== IconBar_SetUp routines ===================================
S
T� �SetUp_IconBar
USsicon=�shell_Iconbar(-1,"!"+�shell_GetAppName,"",120,MenuHandle_IconBar%,0,0,0)
V,�shell_AttachHelpTag(-1,sicon,"iconbar")
W=�shell_AttachClickSelect(-1,sicon,"_ClickSelect_IconBar")
X�
Y:
Z
[F� ===== Dialog_PreOpen routines ==================================
\
]� �_PreOpenInfo(wh%)
^A�shell_IconPutData(wh%,0,�shell_MessageNoArgs("progInfo0"),0)
_A�shell_IconPutData(wh%,1,�shell_MessageNoArgs("progInfo1"),0)
`A�shell_IconPutData(wh%,2,�shell_MessageNoArgs("progInfo2"),0)
aA�shell_IconPutData(wh%,3,�shell_MessageNoArgs("progInfo3"),0)
b=0
c:
d
eF� ===== Dialog_PostOpen routines =================================
f
gF� ===== Click_Select routines ====================================
h
i&� �_ClickSelect_IconBar(wh%,icon%)
jbuffer% = 0
kș "Hourglass_On"
l"�shell_DrawCreateFile(buffer%)
m
n1�shell_DrawInitFont(buffer%,"Trinity.Medium")
o0�shell_DrawInitFont(buffer%,"Corpus.Medium")
p
q)�shell_DrawSetPathWidth(buffer%,0.75)
r.�shell_DrawSetPathPattern(buffer%,�,0,1,3)
s)�shell_DrawLine(buffer%,30,30,30,150)
t.�shell_DrawSetPathPattern(buffer%,�,0,0,0)
u(�shell_DrawSetPathWidth(buffer%,2.1)
v*�shell_DrawLine(buffer%,50,50,100,100)
w
x4� now a 5mm wide line with an arrow on the end..
y&�shell_DrawSetPathWidth(buffer%,5)
z-�shell_DrawSetEndCapTriangle(buffer%,7,6)
{)�shell_DrawLine(buffer%,10,10,160,10)
|
}&�shell_DrawSetPathWidth(buffer%,0)
~-�shell_DrawSetPathColour(buffer%,0,255,0)
1�shell_DrawSetFillColour(buffer%,220,220,220)
�
�/�shell_DrawSetFont(buffer%,"Corpus.Medium")
�8�shell_DrawOutlineFont(buffer%,"Hilke",72,72,35,130)
�
�+�shell_DrawBox(buffer%,80,15,25.4,25.4)
�
�� now a circle..
�.�shell_DrawSetPathPattern(buffer%,�,0,1,3)
�)�shell_DrawCircle(buffer%,100,100,25)
�.�shell_DrawSetPathPattern(buffer%,�,0,0,0)
�
� � and a filled ellipse..
�1�shell_DrawSetFillColour(buffer%,220,000,100)
�+�shell_DrawEllipse(buffer%,70,70,10,30)
�
�3� And now a grey box with a black drop shadow..
�)� Set fill and path colour to black..
�,�shell_DrawStartGroup(buffer%,"Shadbox")
�1�shell_DrawSetPathColour(buffer%,000,000,000)
�1�shell_DrawSetFillColour(buffer%,000,000,000)
�)�shell_DrawBox(buffer%,110,115,25,25)
�� Set fill to grey..
�1�shell_DrawSetFillColour(buffer%,200,200,200)
�(� Offset of box from shadow is 2.0mm
�)�shell_DrawBox(buffer%,108,117,25,25)
� �shell_DrawEndGroup(buffer%)
�
�ș "Hourglass_Off"
�:�shell_Tracef0("File size is "+�(buffer%!8-buffer%!4))
�;�shell_DrawSaveFile(buffer%,"RAM::RamDisc0.$.DrawFile")
�3� �shell_IsIconSelected(mainwp%,0) � scl = 0.25
�3� �shell_IsIconSelected(mainwp%,1) � scl = 0.50
�3� �shell_IsIconSelected(mainwp%,2) � scl = 0.75
�0� �shell_IsIconSelected(mainwp%,3) � scl = 1
�(�shell_DrawSetScale(buffer%,scl,scl)
�8�shell_DrawResizeWindow(buffer%,mainw%,60,60,60,160)
�#�shell_OpenWindowStatic(mainw%)
�=0
�:
�
�!� �_ClickSelect_Pane(wh%,ih%)
�<� xpos,ypos,width,height,scl,xscl,yscl,o_xscale,o_yscale
�.�shell_DrawGetScale(buffer%,o_xscl,o_yscl)
�3� �shell_IsIconSelected(mainwp%,0) � scl = 0.25
�3� �shell_IsIconSelected(mainwp%,1) � scl = 0.50
�3� �shell_IsIconSelected(mainwp%,2) � scl = 0.75
�0� �shell_IsIconSelected(mainwp%,3) � scl = 1
�(� �shell_IsIconSelected(mainwp%,4) �
�E �shell_DrawScaleToWindow(buffer%,mainw%,60,60,60,160,xscl,yscl)
� scl = xscl
��
�(�shell_DrawSetScale(buffer%,scl,scl)
�� scl <> o_xscl �
�: �shell_DrawResizeWindow(buffer%,mainw%,60,60,60,160)
��
�#�shell_OpenWindowStatic(mainw%)
�=0
�:
�
�F� ===== Click_Adjust routines ====================================
�
�F� ===== Menu_Select routines =====================================
�
� � �_MenuSelect_Help(blk%)
�;�shell_MessageSendDataLoad(&FFF,"<TestDraw$Dir>.!Help")
�=0
�:
� � �_MenuSelect_Quit(blk%)
�_closedown%=�
�=0
�:
�
�F� ===== Menu_Warning routines ====================================
�
�F� ===== Data_Load routines =======================================
�
�-� �_DataLoad_AFF(addr%,type%,name$,size%)
�� scl,xscl,yscl
�#�shell_DrawDestroyFile(buffer%)
�(buffer% = �shell_DrawLoadFile(name$)
�3� �shell_IsIconSelected(mainwp%,0) � scl = 0.25
�3� �shell_IsIconSelected(mainwp%,1) � scl = 0.50
�3� �shell_IsIconSelected(mainwp%,2) � scl = 0.75
�0� �shell_IsIconSelected(mainwp%,3) � scl = 1
�(� �shell_IsIconSelected(mainwp%,4) �
�E �shell_DrawScaleToWindow(buffer%,mainw%,60,60,60,160,xscl,yscl)
�- � yscl < xscl � scl = yscl � scl = xscl
��
�(�shell_DrawSetScale(buffer%,scl,scl)
�8�shell_DrawResizeWindow(buffer%,mainw%,60,60,60,160)
�#�shell_OpenWindowStatic(mainw%)
�6ș "Wimp_ForceRedraw",mainw%,-3000,-3000,3000,3000
�=0
�:
�
�F� ===== Data_Save routines =======================================
�
�F� ===== User_Redraw routines =====================================
�
�$� �_UserRedraw_Mainw(blk%,x%,y%)
�*� scl,xpos,ypos,width,height,yorg,xorg
�?�shell_DrawGetBoundingBox(buffer%,xpos,ypos,width,height,�)
� yorg = -(160+height+ypos)+y%
�xorg = x% - xpos + 60
�R�shell_DrawRenderFile(buffer%,xorg,yorg,blk%,�shell_IsIconSelected(mainwp%,5))
�=0
�
�F� ===== User application routines ================================
�
�F� ================= End Of User Application ======================
�:
�
�
�
�
�
� 00000000 0d 00 01 20 f4 20 3e 20 3c 54 65 73 74 44 72 61 |... . > <TestDra|
00000010 77 24 44 69 72 3e 2e 21 54 65 73 74 44 72 61 77 |w$Dir>.!TestDraw|
00000020 0d 00 02 05 3a 0d 00 03 14 ee 20 85 20 f2 73 68 |....:..... . .sh|
00000030 65 6c 6c 5f 45 72 72 6f 72 0d 00 04 05 3a 0d 00 |ell_Error....:..|
00000040 05 23 c8 9b 20 22 3c 45 76 6e 74 53 68 65 6c 6c |.#.. "<EvntShell|
00000050 24 50 61 74 68 3e 53 68 65 6c 6c 4c 69 62 52 54 |$Path>ShellLibRT|
00000060 22 0d 00 06 2b c8 9b 20 22 3c 45 76 6e 74 53 68 |"...+.. "<EvntSh|
00000070 65 6c 6c 24 50 61 74 68 3e 45 78 74 65 6e 73 69 |ell$Path>Extensi|
00000080 6f 6e 73 2e 44 72 61 77 4c 69 62 22 0d 00 07 05 |ons.DrawLib"....|
00000090 3a 0d 00 08 15 c8 99 20 22 48 6f 75 72 67 6c 61 |:...... "Hourgla|
000000a0 73 73 5f 4f 6e 22 0d 00 09 05 3a 0d 00 0a 28 c8 |ss_On"....:...(.|
000000b0 99 20 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 |. "Wimp_SlotSize|
000000c0 22 2c 2d 31 2c 2d 31 20 b8 20 70 72 6f 67 73 69 |",-1,-1 . progsi|
000000d0 7a 65 25 0d 00 0b 13 70 61 67 65 73 69 7a 65 25 |ze%....pagesize%|
000000e0 3d 31 3c 3c 31 30 0d 00 0c 1e 66 72 65 65 73 70 |=1<<10....freesp|
000000f0 61 63 65 25 3d 26 38 30 30 30 2b 70 72 6f 67 73 |ace%=&8000+progs|
00000100 69 7a 65 25 0d 00 0d 1a e0 3d 66 72 65 65 73 70 |ize%.....=freesp|
00000110 61 63 65 25 2b 70 61 67 65 73 69 7a 65 25 0d 00 |ace%+pagesize%..|
00000120 0e 10 d3 3d 66 72 65 65 73 70 61 63 65 25 0d 00 |...=freespace%..|
00000130 0f 05 3a 0d 00 10 39 f2 73 68 65 6c 6c 5f 48 65 |..:...9.shell_He|
00000140 61 70 4d 61 6e 61 67 65 72 49 6e 69 74 28 22 3c |apManagerInit("<|
00000150 45 76 6e 74 53 68 65 6c 6c 24 50 61 74 68 3e 22 |EvntShell$Path>"|
00000160 2c 66 72 65 65 73 70 61 63 65 25 29 0d 00 11 0f |,freespace%)....|
00000170 f2 73 68 65 6c 6c 5f 49 6e 69 74 0d 00 12 2b 74 |.shell_Init...+t|
00000180 61 73 6b 25 3d a4 73 68 65 6c 6c 5f 57 69 6d 70 |ask%=.shell_Wimp|
00000190 49 6e 69 74 5f 49 28 32 30 30 2c 22 54 65 73 74 |Init_I(200,"Test|
000001a0 44 72 61 77 22 29 0d 00 13 18 f2 73 68 65 6c 6c |Draw").....shell|
000001b0 5f 54 72 61 63 65 49 6e 69 74 28 22 22 29 0d 00 |_TraceInit("")..|
000001c0 14 17 f4 20 50 52 4f 43 73 68 65 6c 6c 5f 54 72 |... PROCshell_Tr|
000001d0 61 63 65 4f 6e 0d 00 15 18 f2 73 68 65 6c 6c 5f |aceOn.....shell_|
000001e0 52 65 73 6f 75 72 63 65 73 49 6e 69 74 0d 00 16 |ResourcesInit...|
000001f0 0d f2 61 70 70 5f 69 6e 69 74 0d 00 17 05 3a 0d |..app_init....:.|
00000200 00 18 4c f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |..L. -----------|
00000210 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 49 6e 69 74 69 61 |--------- Initia|
00000220 6c 69 73 65 20 56 61 72 69 61 62 6c 65 73 20 2d |lise Variables -|
00000230 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 19 05 3a |-----------....:|
00000250 0d 00 1a 47 5f 63 6c 6f 73 65 64 6f 77 6e 25 20 |...G_closedown% |
00000260 20 20 20 20 3d a3 20 3a f4 20 53 65 74 20 74 68 | =. :. Set th|
00000270 69 73 20 74 6f 20 54 52 55 45 20 77 68 65 6e 20 |is to TRUE when |
00000280 79 6f 75 20 77 61 6e 74 20 74 68 65 20 70 72 6f |you want the pro|
00000290 67 72 61 6d 20 74 6f 0d 00 1b 21 20 20 20 20 20 |gram to...! |
000002a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002b0 20 20 3a f4 20 65 6e 64 0d 00 1c 44 63 68 61 6e | :. end...Dchan|
000002c0 67 65 64 25 20 20 20 20 20 20 20 20 3d a3 20 3a |ged% =. :|
000002d0 f4 20 55 73 65 64 20 74 6f 20 6b 65 65 70 20 74 |. Used to keep t|
000002e0 72 61 63 6b 20 6f 66 20 77 68 65 74 68 65 72 20 |rack of whether |
000002f0 74 68 65 20 64 61 74 61 20 68 61 73 0d 00 1d 4b |the data has...K|
00000300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310 20 20 20 20 20 20 20 3a f4 20 62 65 65 6e 20 63 | :. been c|
00000320 68 61 6e 67 65 64 2e 20 43 61 6c 6c 20 50 52 4f |hanged. Call PRO|
00000330 43 66 69 6c 65 5f 63 68 61 6e 67 65 64 28 29 20 |Cfile_changed() |
00000340 77 68 65 6e 20 69 74 0d 00 1e 47 20 20 20 20 20 |when it...G |
00000350 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360 20 20 3a f4 20 68 61 73 2e 20 42 75 74 20 69 66 | :. has. But if|
00000370 20 74 68 65 20 70 72 6f 67 72 61 6d 20 64 6f 65 | the program doe|
00000380 73 20 6e 6f 74 20 75 73 65 20 64 61 74 61 0d 00 |s not use data..|
00000390 1f 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.H |
000003a0 20 20 20 20 20 20 20 20 20 3a f4 20 66 69 6c 65 | :. file|
000003b0 73 20 6a 75 73 74 20 69 67 6e 6f 72 65 20 74 68 |s just ignore th|
000003c0 69 73 20 76 61 72 69 61 62 6c 65 20 62 75 74 20 |is variable but |
000003d0 64 6f 20 6e 6f 74 0d 00 20 47 20 20 20 20 20 20 |do not.. G |
000003e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003f0 20 3a f4 20 64 65 6c 65 74 65 20 69 74 20 61 73 | :. delete it as|
00000400 20 74 68 65 20 70 72 6f 67 72 61 6d 20 63 68 65 | the program che|
00000410 63 6b 73 20 69 74 20 62 65 66 6f 72 65 0d 00 21 |cks it before..!|
00000420 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |& |
00000430 20 20 20 20 20 20 20 20 3a f4 20 65 78 69 74 69 | :. exiti|
00000440 6e 67 21 0d 00 22 05 3a 0d 00 23 4c f4 20 2d 2d |ng!..".:..#L. --|
00000450 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000460 2d 2d 20 4d 69 73 63 65 6c 6c 65 61 6e 6f 75 73 |-- Miscelleanous|
00000470 20 49 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e 20 | Initialisation |
00000480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000490 2d 2d 2d 2d 0d 00 24 05 3a 0d 00 25 16 c8 99 20 |----..$.:..%... |
000004a0 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d |"Hourglass_Off".|
000004b0 00 26 09 ee 20 85 20 87 0d 00 27 14 ee 20 85 20 |.&.. . ...'.. . |
000004c0 f2 73 68 65 6c 6c 5f 45 72 72 6f 72 0d 00 28 05 |.shell_Error..(.|
000004d0 f5 0d 00 29 2b 20 20 f2 73 68 65 6c 6c 5f 41 63 |...)+ .shell_Ac|
000004e0 74 69 6f 6e 28 a4 73 68 65 6c 6c 5f 50 6f 6c 6c |tion(.shell_Poll|
000004f0 5f 49 28 30 2c 74 61 73 6b 25 29 29 0d 00 2a 11 |_I(0,task%))..*.|
00000500 fd 20 5f 63 6c 6f 73 65 64 6f 77 6e 25 0d 00 2b |. _closedown%..+|
00000510 05 3a 0d 00 2c 11 f2 73 68 65 6c 6c 5f 45 78 69 |.:..,..shell_Exi|
00000520 74 3a e0 0d 00 2d 05 3a 0d 00 2e 4c f4 20 3d 3d |t:...-.:...L. ==|
00000530 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000570 3d 3d 3d 3d 0d 00 2f 05 3a 0d 00 30 0f dd 20 f2 |====../.:..0.. .|
00000580 61 70 70 5f 69 6e 69 74 0d 00 31 10 f2 53 65 74 |app_init..1..Set|
00000590 55 70 5f 4d 65 6e 75 73 0d 00 32 12 f2 53 65 74 |Up_Menus..2..Set|
000005a0 55 70 5f 57 69 6e 64 6f 77 73 0d 00 33 12 f2 53 |Up_Windows..3..S|
000005b0 65 74 55 70 5f 49 63 6f 6e 42 61 72 0d 00 34 05 |etUp_IconBar..4.|
000005c0 e1 0d 00 35 05 3a 0d 00 36 04 0d 00 37 46 f4 20 |...5.:..6...7F. |
000005d0 3d 3d 3d 3d 3d 20 4d 65 6e 75 5f 53 65 74 75 70 |===== Menu_Setup|
000005e0 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d | routines ======|
000005f0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000610 0d 00 38 04 0d 00 39 12 dd 20 f2 53 65 74 55 70 |..8...9.. .SetUp|
00000620 5f 4d 65 6e 75 73 0d 00 3a 0b ea 20 76 6f 69 64 |_Menus..:.. void|
00000630 25 0d 00 3b 04 0d 00 3c 46 4d 65 6e 75 48 61 6e |%..;...<FMenuHan|
00000640 64 6c 65 5f 49 63 6f 6e 42 61 72 25 3d a4 73 68 |dle_IconBar%=.sh|
00000650 65 6c 6c 5f 4d 65 6e 75 4e 65 77 28 a4 73 68 65 |ell_MenuNew(.she|
00000660 6c 6c 5f 4d 65 73 73 61 67 65 4e 6f 41 72 67 73 |ll_MessageNoArgs|
00000670 28 22 4d 54 49 42 61 72 22 29 29 0d 00 3d 49 4d |("MTIBar"))..=IM|
00000680 65 6e 75 49 74 65 6d 5f 49 6e 66 6f 25 20 20 20 |enuItem_Info% |
00000690 20 20 3d a4 73 68 65 6c 6c 5f 4d 65 6e 75 41 64 | =.shell_MenuAd|
000006a0 64 28 30 2c a4 73 68 65 6c 6c 5f 4d 65 73 73 61 |d(0,.shell_Messa|
000006b0 67 65 4e 6f 41 72 67 73 28 22 49 6e 66 6f 22 29 |geNoArgs("Info")|
000006c0 2c 22 22 29 0d 00 3e 59 4d 65 6e 75 49 74 65 6d |,"")..>YMenuItem|
000006d0 5f 48 65 6c 70 25 20 20 20 20 20 3d a4 73 68 65 |_Help% =.she|
000006e0 6c 6c 5f 4d 65 6e 75 41 64 64 28 30 2c a4 73 68 |ll_MenuAdd(0,.sh|
000006f0 65 6c 6c 5f 4d 65 73 73 61 67 65 4e 6f 41 72 67 |ell_MessageNoArg|
00000700 73 28 22 48 65 6c 70 22 29 2c 22 5f 4d 65 6e 75 |s("Help"),"_Menu|
00000710 53 65 6c 65 63 74 5f 48 65 6c 70 22 29 0d 00 3f |Select_Help")..?|
00000720 59 76 6f 69 64 25 20 20 20 20 20 20 20 20 20 20 |Yvoid% |
00000730 20 20 20 20 3d a4 73 68 65 6c 6c 5f 4d 65 6e 75 | =.shell_Menu|
00000740 41 64 64 28 30 2c a4 73 68 65 6c 6c 5f 4d 65 73 |Add(0,.shell_Mes|
00000750 73 61 67 65 4e 6f 41 72 67 73 28 22 51 75 69 74 |sageNoArgs("Quit|
00000760 22 29 2c 22 5f 4d 65 6e 75 53 65 6c 65 63 74 5f |"),"_MenuSelect_|
00000770 51 75 69 74 22 29 0d 00 40 46 f2 73 68 65 6c 6c |Quit")..@F.shell|
00000780 5f 41 74 74 61 63 68 4d 65 6e 75 44 42 6f 78 28 |_AttachMenuDBox(|
00000790 4d 65 6e 75 49 74 65 6d 5f 49 6e 66 6f 25 2c 22 |MenuItem_Info%,"|
000007a0 70 72 6f 67 49 6e 66 6f 22 2c 22 5f 50 72 65 4f |progInfo","_PreO|
000007b0 70 65 6e 49 6e 66 6f 22 2c 22 22 29 0d 00 41 04 |penInfo","")..A.|
000007c0 0d 00 42 05 e1 0d 00 43 05 3a 0d 00 44 04 0d 00 |..B....C.:..D...|
000007d0 45 46 f4 20 3d 3d 3d 3d 3d 20 57 69 6e 64 6f 77 |EF. ===== Window|
000007e0 5f 53 65 74 55 70 20 72 6f 75 74 69 6e 65 73 20 |_SetUp routines |
000007f0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000810 3d 3d 3d 3d 0d 00 46 04 0d 00 47 14 dd 20 f2 53 |====..F...G.. .S|
00000820 65 74 55 70 5f 57 69 6e 64 6f 77 73 0d 00 48 2e |etUp_Windows..H.|
00000830 f2 73 68 65 6c 6c 5f 43 72 65 61 74 65 57 69 6e |.shell_CreateWin|
00000840 64 6f 77 53 74 61 74 69 63 28 22 6d 61 69 6e 77 |dowStatic("mainw|
00000850 22 20 2c 6d 61 69 6e 77 25 29 0d 00 49 2f f2 73 |" ,mainw%)..I/.s|
00000860 68 65 6c 6c 5f 43 72 65 61 74 65 57 69 6e 64 6f |hell_CreateWindo|
00000870 77 53 74 61 74 69 63 28 22 6d 61 69 6e 77 70 22 |wStatic("mainwp"|
00000880 2c 6d 61 69 6e 77 70 25 29 0d 00 4a 37 f2 73 68 |,mainwp%)..J7.sh|
00000890 65 6c 6c 5f 41 74 74 61 63 68 55 73 65 72 52 65 |ell_AttachUserRe|
000008a0 64 72 61 77 28 6d 61 69 6e 77 25 2c 22 5f 55 73 |draw(mainw%,"_Us|
000008b0 65 72 52 65 64 72 61 77 5f 4d 61 69 6e 77 22 29 |erRedraw_Mainw")|
000008c0 0d 00 4b 3c f2 73 68 65 6c 6c 5f 41 74 74 61 63 |..K<.shell_Attac|
000008d0 68 44 61 74 61 4c 6f 61 64 28 6d 61 69 6e 77 25 |hDataLoad(mainw%|
000008e0 2c 2d 31 2c 26 41 46 46 2c 22 5f 44 61 74 61 4c |,-1,&AFF,"_DataL|
000008f0 6f 61 64 5f 41 46 46 22 2c 2d 31 29 0d 00 4c 2b |oad_AFF",-1)..L+|
00000900 f2 73 68 65 6c 6c 5f 41 74 74 61 63 68 50 61 6e |.shell_AttachPan|
00000910 65 28 6d 61 69 6e 77 25 2c 6d 61 69 6e 77 70 25 |e(mainw%,mainwp%|
00000920 2c 32 2c 30 2c 30 29 0d 00 4d 3c f2 73 68 65 6c |,2,0,0)..M<.shel|
00000930 6c 5f 41 74 74 61 63 68 43 6c 69 63 6b 53 65 6c |l_AttachClickSel|
00000940 65 63 74 28 6d 61 69 6e 77 70 25 2c 2d 31 2c 22 |ect(mainwp%,-1,"|
00000950 5f 43 6c 69 63 6b 53 65 6c 65 63 74 5f 50 61 6e |_ClickSelect_Pan|
00000960 65 22 29 0d 00 4e 20 f2 73 68 65 6c 6c 5f 49 63 |e")..N .shell_Ic|
00000970 6f 6e 53 65 6c 65 63 74 28 6d 61 69 6e 77 70 25 |onSelect(mainwp%|
00000980 2c 31 29 0d 00 4f 05 e1 0d 00 50 05 3a 0d 00 51 |,1)..O....P.:..Q|
00000990 04 0d 00 52 46 f4 20 3d 3d 3d 3d 3d 20 49 63 6f |...RF. ===== Ico|
000009a0 6e 42 61 72 5f 53 65 74 55 70 20 72 6f 75 74 69 |nBar_SetUp routi|
000009b0 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |nes ============|
000009c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
000009d0 3d 3d 3d 3d 3d 3d 3d 0d 00 53 04 0d 00 54 14 dd |=======..S...T..|
000009e0 20 f2 53 65 74 55 70 5f 49 63 6f 6e 42 61 72 0d | .SetUp_IconBar.|
000009f0 00 55 53 73 69 63 6f 6e 3d a4 73 68 65 6c 6c 5f |.USsicon=.shell_|
00000a00 49 63 6f 6e 62 61 72 28 2d 31 2c 22 21 22 2b a4 |Iconbar(-1,"!"+.|
00000a10 73 68 65 6c 6c 5f 47 65 74 41 70 70 4e 61 6d 65 |shell_GetAppName|
00000a20 2c 22 22 2c 31 32 30 2c 4d 65 6e 75 48 61 6e 64 |,"",120,MenuHand|
00000a30 6c 65 5f 49 63 6f 6e 42 61 72 25 2c 30 2c 30 2c |le_IconBar%,0,0,|
00000a40 30 29 0d 00 56 2c f2 73 68 65 6c 6c 5f 41 74 74 |0)..V,.shell_Att|
00000a50 61 63 68 48 65 6c 70 54 61 67 28 2d 31 2c 73 69 |achHelpTag(-1,si|
00000a60 63 6f 6e 2c 22 69 63 6f 6e 62 61 72 22 29 0d 00 |con,"iconbar")..|
00000a70 57 3d f2 73 68 65 6c 6c 5f 41 74 74 61 63 68 43 |W=.shell_AttachC|
00000a80 6c 69 63 6b 53 65 6c 65 63 74 28 2d 31 2c 73 69 |lickSelect(-1,si|
00000a90 63 6f 6e 2c 22 5f 43 6c 69 63 6b 53 65 6c 65 63 |con,"_ClickSelec|
00000aa0 74 5f 49 63 6f 6e 42 61 72 22 29 0d 00 58 05 e1 |t_IconBar")..X..|
00000ab0 0d 00 59 05 3a 0d 00 5a 04 0d 00 5b 46 f4 20 3d |..Y.:..Z...[F. =|
00000ac0 3d 3d 3d 3d 20 44 69 61 6c 6f 67 5f 50 72 65 4f |==== Dialog_PreO|
00000ad0 70 65 6e 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d |pen routines ===|
00000ae0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000af0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d |===============.|
00000b00 00 5c 04 0d 00 5d 18 dd 20 a4 5f 50 72 65 4f 70 |.\...].. ._PreOp|
00000b10 65 6e 49 6e 66 6f 28 77 68 25 29 0d 00 5e 41 f2 |enInfo(wh%)..^A.|
00000b20 73 68 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 61 74 |shell_IconPutDat|
00000b30 61 28 77 68 25 2c 30 2c a4 73 68 65 6c 6c 5f 4d |a(wh%,0,.shell_M|
00000b40 65 73 73 61 67 65 4e 6f 41 72 67 73 28 22 70 72 |essageNoArgs("pr|
00000b50 6f 67 49 6e 66 6f 30 22 29 2c 30 29 0d 00 5f 41 |ogInfo0"),0).._A|
00000b60 f2 73 68 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 61 |.shell_IconPutDa|
00000b70 74 61 28 77 68 25 2c 31 2c a4 73 68 65 6c 6c 5f |ta(wh%,1,.shell_|
00000b80 4d 65 73 73 61 67 65 4e 6f 41 72 67 73 28 22 70 |MessageNoArgs("p|
00000b90 72 6f 67 49 6e 66 6f 31 22 29 2c 30 29 0d 00 60 |rogInfo1"),0)..`|
00000ba0 41 f2 73 68 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 |A.shell_IconPutD|
00000bb0 61 74 61 28 77 68 25 2c 32 2c a4 73 68 65 6c 6c |ata(wh%,2,.shell|
00000bc0 5f 4d 65 73 73 61 67 65 4e 6f 41 72 67 73 28 22 |_MessageNoArgs("|
00000bd0 70 72 6f 67 49 6e 66 6f 32 22 29 2c 30 29 0d 00 |progInfo2"),0)..|
00000be0 61 41 f2 73 68 65 6c 6c 5f 49 63 6f 6e 50 75 74 |aA.shell_IconPut|
00000bf0 44 61 74 61 28 77 68 25 2c 33 2c a4 73 68 65 6c |Data(wh%,3,.shel|
00000c00 6c 5f 4d 65 73 73 61 67 65 4e 6f 41 72 67 73 28 |l_MessageNoArgs(|
00000c10 22 70 72 6f 67 49 6e 66 6f 33 22 29 2c 30 29 0d |"progInfo3"),0).|
00000c20 00 62 06 3d 30 0d 00 63 05 3a 0d 00 64 04 0d 00 |.b.=0..c.:..d...|
00000c30 65 46 f4 20 3d 3d 3d 3d 3d 20 44 69 61 6c 6f 67 |eF. ===== Dialog|
00000c40 5f 50 6f 73 74 4f 70 65 6e 20 72 6f 75 74 69 6e |_PostOpen routin|
00000c50 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |es =============|
00000c60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000c70 3d 3d 3d 3d 0d 00 66 04 0d 00 67 46 f4 20 3d 3d |====..f...gF. ==|
00000c80 3d 3d 3d 20 43 6c 69 63 6b 5f 53 65 6c 65 63 74 |=== Click_Select|
00000c90 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d | routines ======|
00000ca0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000cb0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 |==============..|
00000cc0 68 04 0d 00 69 26 dd 20 a4 5f 43 6c 69 63 6b 53 |h...i&. ._ClickS|
00000cd0 65 6c 65 63 74 5f 49 63 6f 6e 42 61 72 28 77 68 |elect_IconBar(wh|
00000ce0 25 2c 69 63 6f 6e 25 29 0d 00 6a 0f 62 75 66 66 |%,icon%)..j.buff|
00000cf0 65 72 25 20 3d 20 30 0d 00 6b 15 c8 99 20 22 48 |er% = 0..k... "H|
00000d00 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 00 6c 22 |ourglass_On"..l"|
00000d10 f2 73 68 65 6c 6c 5f 44 72 61 77 43 72 65 61 74 |.shell_DrawCreat|
00000d20 65 46 69 6c 65 28 62 75 66 66 65 72 25 29 0d 00 |eFile(buffer%)..|
00000d30 6d 04 0d 00 6e 31 f2 73 68 65 6c 6c 5f 44 72 61 |m...n1.shell_Dra|
00000d40 77 49 6e 69 74 46 6f 6e 74 28 62 75 66 66 65 72 |wInitFont(buffer|
00000d50 25 2c 22 54 72 69 6e 69 74 79 2e 4d 65 64 69 75 |%,"Trinity.Mediu|
00000d60 6d 22 29 0d 00 6f 30 f2 73 68 65 6c 6c 5f 44 72 |m")..o0.shell_Dr|
00000d70 61 77 49 6e 69 74 46 6f 6e 74 28 62 75 66 66 65 |awInitFont(buffe|
00000d80 72 25 2c 22 43 6f 72 70 75 73 2e 4d 65 64 69 75 |r%,"Corpus.Mediu|
00000d90 6d 22 29 0d 00 70 04 0d 00 71 29 f2 73 68 65 6c |m")..p...q).shel|
00000da0 6c 5f 44 72 61 77 53 65 74 50 61 74 68 57 69 64 |l_DrawSetPathWid|
00000db0 74 68 28 62 75 66 66 65 72 25 2c 30 2e 37 35 29 |th(buffer%,0.75)|
00000dc0 0d 00 72 2e f2 73 68 65 6c 6c 5f 44 72 61 77 53 |..r..shell_DrawS|
00000dd0 65 74 50 61 74 68 50 61 74 74 65 72 6e 28 62 75 |etPathPattern(bu|
00000de0 66 66 65 72 25 2c b9 2c 30 2c 31 2c 33 29 0d 00 |ffer%,.,0,1,3)..|
00000df0 73 29 f2 73 68 65 6c 6c 5f 44 72 61 77 4c 69 6e |s).shell_DrawLin|
00000e00 65 28 62 75 66 66 65 72 25 2c 33 30 2c 33 30 2c |e(buffer%,30,30,|
00000e10 33 30 2c 31 35 30 29 0d 00 74 2e f2 73 68 65 6c |30,150)..t..shel|
00000e20 6c 5f 44 72 61 77 53 65 74 50 61 74 68 50 61 74 |l_DrawSetPathPat|
00000e30 74 65 72 6e 28 62 75 66 66 65 72 25 2c a3 2c 30 |tern(buffer%,.,0|
00000e40 2c 30 2c 30 29 0d 00 75 28 f2 73 68 65 6c 6c 5f |,0,0)..u(.shell_|
00000e50 44 72 61 77 53 65 74 50 61 74 68 57 69 64 74 68 |DrawSetPathWidth|
00000e60 28 62 75 66 66 65 72 25 2c 32 2e 31 29 0d 00 76 |(buffer%,2.1)..v|
00000e70 2a f2 73 68 65 6c 6c 5f 44 72 61 77 4c 69 6e 65 |*.shell_DrawLine|
00000e80 28 62 75 66 66 65 72 25 2c 35 30 2c 35 30 2c 31 |(buffer%,50,50,1|
00000e90 30 30 2c 31 30 30 29 0d 00 77 04 0d 00 78 34 f4 |00,100)..w...x4.|
00000ea0 20 6e 6f 77 20 61 20 35 6d 6d 20 77 69 64 65 20 | now a 5mm wide |
00000eb0 6c 69 6e 65 20 77 69 74 68 20 61 6e 20 61 72 72 |line with an arr|
00000ec0 6f 77 20 6f 6e 20 74 68 65 20 65 6e 64 2e 2e 0d |ow on the end...|
00000ed0 00 79 26 f2 73 68 65 6c 6c 5f 44 72 61 77 53 65 |.y&.shell_DrawSe|
00000ee0 74 50 61 74 68 57 69 64 74 68 28 62 75 66 66 65 |tPathWidth(buffe|
00000ef0 72 25 2c 35 29 0d 00 7a 2d f2 73 68 65 6c 6c 5f |r%,5)..z-.shell_|
00000f00 44 72 61 77 53 65 74 45 6e 64 43 61 70 54 72 69 |DrawSetEndCapTri|
00000f10 61 6e 67 6c 65 28 62 75 66 66 65 72 25 2c 37 2c |angle(buffer%,7,|
00000f20 36 29 0d 00 7b 29 f2 73 68 65 6c 6c 5f 44 72 61 |6)..{).shell_Dra|
00000f30 77 4c 69 6e 65 28 62 75 66 66 65 72 25 2c 31 30 |wLine(buffer%,10|
00000f40 2c 31 30 2c 31 36 30 2c 31 30 29 0d 00 7c 04 0d |,10,160,10)..|..|
00000f50 00 7d 26 f2 73 68 65 6c 6c 5f 44 72 61 77 53 65 |.}&.shell_DrawSe|
00000f60 74 50 61 74 68 57 69 64 74 68 28 62 75 66 66 65 |tPathWidth(buffe|
00000f70 72 25 2c 30 29 0d 00 7e 2d f2 73 68 65 6c 6c 5f |r%,0)..~-.shell_|
00000f80 44 72 61 77 53 65 74 50 61 74 68 43 6f 6c 6f 75 |DrawSetPathColou|
00000f90 72 28 62 75 66 66 65 72 25 2c 30 2c 32 35 35 2c |r(buffer%,0,255,|
00000fa0 30 29 0d 00 7f 31 f2 73 68 65 6c 6c 5f 44 72 61 |0)...1.shell_Dra|
00000fb0 77 53 65 74 46 69 6c 6c 43 6f 6c 6f 75 72 28 62 |wSetFillColour(b|
00000fc0 75 66 66 65 72 25 2c 32 32 30 2c 32 32 30 2c 32 |uffer%,220,220,2|
00000fd0 32 30 29 0d 00 80 04 0d 00 81 2f f2 73 68 65 6c |20)......./.shel|
00000fe0 6c 5f 44 72 61 77 53 65 74 46 6f 6e 74 28 62 75 |l_DrawSetFont(bu|
00000ff0 66 66 65 72 25 2c 22 43 6f 72 70 75 73 2e 4d 65 |ffer%,"Corpus.Me|
00001000 64 69 75 6d 22 29 0d 00 82 38 f2 73 68 65 6c 6c |dium")...8.shell|
00001010 5f 44 72 61 77 4f 75 74 6c 69 6e 65 46 6f 6e 74 |_DrawOutlineFont|
00001020 28 62 75 66 66 65 72 25 2c 22 48 69 6c 6b 65 22 |(buffer%,"Hilke"|
00001030 2c 37 32 2c 37 32 2c 33 35 2c 31 33 30 29 0d 00 |,72,72,35,130)..|
00001040 83 04 0d 00 84 2b f2 73 68 65 6c 6c 5f 44 72 61 |.....+.shell_Dra|
00001050 77 42 6f 78 28 62 75 66 66 65 72 25 2c 38 30 2c |wBox(buffer%,80,|
00001060 31 35 2c 32 35 2e 34 2c 32 35 2e 34 29 0d 00 85 |15,25.4,25.4)...|
00001070 04 0d 00 86 14 f4 20 6e 6f 77 20 61 20 63 69 72 |...... now a cir|
00001080 63 6c 65 2e 2e 0d 00 87 2e f2 73 68 65 6c 6c 5f |cle.......shell_|
00001090 44 72 61 77 53 65 74 50 61 74 68 50 61 74 74 65 |DrawSetPathPatte|
000010a0 72 6e 28 62 75 66 66 65 72 25 2c b9 2c 30 2c 31 |rn(buffer%,.,0,1|
000010b0 2c 33 29 0d 00 88 29 f2 73 68 65 6c 6c 5f 44 72 |,3)...).shell_Dr|
000010c0 61 77 43 69 72 63 6c 65 28 62 75 66 66 65 72 25 |awCircle(buffer%|
000010d0 2c 31 30 30 2c 31 30 30 2c 32 35 29 0d 00 89 2e |,100,100,25)....|
000010e0 f2 73 68 65 6c 6c 5f 44 72 61 77 53 65 74 50 61 |.shell_DrawSetPa|
000010f0 74 68 50 61 74 74 65 72 6e 28 62 75 66 66 65 72 |thPattern(buffer|
00001100 25 2c a3 2c 30 2c 30 2c 30 29 0d 00 8a 04 0d 00 |%,.,0,0,0)......|
00001110 8b 1c f4 20 61 6e 64 20 61 20 66 69 6c 6c 65 64 |... and a filled|
00001120 20 65 6c 6c 69 70 73 65 2e 2e 0d 00 8c 31 f2 73 | ellipse.....1.s|
00001130 68 65 6c 6c 5f 44 72 61 77 53 65 74 46 69 6c 6c |hell_DrawSetFill|
00001140 43 6f 6c 6f 75 72 28 62 75 66 66 65 72 25 2c 32 |Colour(buffer%,2|
00001150 32 30 2c 30 30 30 2c 31 30 30 29 0d 00 8d 2b f2 |20,000,100)...+.|
00001160 73 68 65 6c 6c 5f 44 72 61 77 45 6c 6c 69 70 73 |shell_DrawEllips|
00001170 65 28 62 75 66 66 65 72 25 2c 37 30 2c 37 30 2c |e(buffer%,70,70,|
00001180 31 30 2c 33 30 29 0d 00 8e 04 0d 00 8f 33 f4 20 |10,30).......3. |
00001190 41 6e 64 20 6e 6f 77 20 61 20 67 72 65 79 20 62 |And now a grey b|
000011a0 6f 78 20 77 69 74 68 20 61 20 62 6c 61 63 6b 20 |ox with a black |
000011b0 64 72 6f 70 20 73 68 61 64 6f 77 2e 2e 0d 00 90 |drop shadow.....|
000011c0 29 f4 20 53 65 74 20 66 69 6c 6c 20 61 6e 64 20 |). Set fill and |
000011d0 70 61 74 68 20 63 6f 6c 6f 75 72 20 74 6f 20 62 |path colour to b|
000011e0 6c 61 63 6b 2e 2e 0d 00 91 2c f2 73 68 65 6c 6c |lack.....,.shell|
000011f0 5f 44 72 61 77 53 74 61 72 74 47 72 6f 75 70 28 |_DrawStartGroup(|
00001200 62 75 66 66 65 72 25 2c 22 53 68 61 64 62 6f 78 |buffer%,"Shadbox|
00001210 22 29 0d 00 92 31 f2 73 68 65 6c 6c 5f 44 72 61 |")...1.shell_Dra|
00001220 77 53 65 74 50 61 74 68 43 6f 6c 6f 75 72 28 62 |wSetPathColour(b|
00001230 75 66 66 65 72 25 2c 30 30 30 2c 30 30 30 2c 30 |uffer%,000,000,0|
00001240 30 30 29 0d 00 93 31 f2 73 68 65 6c 6c 5f 44 72 |00)...1.shell_Dr|
00001250 61 77 53 65 74 46 69 6c 6c 43 6f 6c 6f 75 72 28 |awSetFillColour(|
00001260 62 75 66 66 65 72 25 2c 30 30 30 2c 30 30 30 2c |buffer%,000,000,|
00001270 30 30 30 29 0d 00 94 29 f2 73 68 65 6c 6c 5f 44 |000)...).shell_D|
00001280 72 61 77 42 6f 78 28 62 75 66 66 65 72 25 2c 31 |rawBox(buffer%,1|
00001290 31 30 2c 31 31 35 2c 32 35 2c 32 35 29 0d 00 95 |10,115,25,25)...|
000012a0 18 f4 20 53 65 74 20 66 69 6c 6c 20 74 6f 20 67 |.. Set fill to g|
000012b0 72 65 79 2e 2e 0d 00 96 31 f2 73 68 65 6c 6c 5f |rey.....1.shell_|
000012c0 44 72 61 77 53 65 74 46 69 6c 6c 43 6f 6c 6f 75 |DrawSetFillColou|
000012d0 72 28 62 75 66 66 65 72 25 2c 32 30 30 2c 32 30 |r(buffer%,200,20|
000012e0 30 2c 32 30 30 29 0d 00 97 28 f4 20 4f 66 66 73 |0,200)...(. Offs|
000012f0 65 74 20 6f 66 20 62 6f 78 20 66 72 6f 6d 20 73 |et of box from s|
00001300 68 61 64 6f 77 20 69 73 20 32 2e 30 6d 6d 0d 00 |hadow is 2.0mm..|
00001310 98 29 f2 73 68 65 6c 6c 5f 44 72 61 77 42 6f 78 |.).shell_DrawBox|
00001320 28 62 75 66 66 65 72 25 2c 31 30 38 2c 31 31 37 |(buffer%,108,117|
00001330 2c 32 35 2c 32 35 29 0d 00 99 20 f2 73 68 65 6c |,25,25)... .shel|
00001340 6c 5f 44 72 61 77 45 6e 64 47 72 6f 75 70 28 62 |l_DrawEndGroup(b|
00001350 75 66 66 65 72 25 29 0d 00 9a 04 0d 00 9b 16 c8 |uffer%).........|
00001360 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 |. "Hourglass_Off|
00001370 22 0d 00 9c 3a f2 73 68 65 6c 6c 5f 54 72 61 63 |"...:.shell_Trac|
00001380 65 66 30 28 22 46 69 6c 65 20 73 69 7a 65 20 69 |ef0("File size i|
00001390 73 20 22 2b c3 28 62 75 66 66 65 72 25 21 38 2d |s "+.(buffer%!8-|
000013a0 62 75 66 66 65 72 25 21 34 29 29 0d 00 9d 3b f2 |buffer%!4))...;.|
000013b0 73 68 65 6c 6c 5f 44 72 61 77 53 61 76 65 46 69 |shell_DrawSaveFi|
000013c0 6c 65 28 62 75 66 66 65 72 25 2c 22 52 41 4d 3a |le(buffer%,"RAM:|
000013d0 3a 52 61 6d 44 69 73 63 30 2e 24 2e 44 72 61 77 |:RamDisc0.$.Draw|
000013e0 46 69 6c 65 22 29 0d 00 9e 33 e7 20 a4 73 68 65 |File")...3. .she|
000013f0 6c 6c 5f 49 73 49 63 6f 6e 53 65 6c 65 63 74 65 |ll_IsIconSelecte|
00001400 64 28 6d 61 69 6e 77 70 25 2c 30 29 20 8c 20 73 |d(mainwp%,0) . s|
00001410 63 6c 20 3d 20 30 2e 32 35 0d 00 9f 33 e7 20 a4 |cl = 0.25...3. .|
00001420 73 68 65 6c 6c 5f 49 73 49 63 6f 6e 53 65 6c 65 |shell_IsIconSele|
00001430 63 74 65 64 28 6d 61 69 6e 77 70 25 2c 31 29 20 |cted(mainwp%,1) |
00001440 8c 20 73 63 6c 20 3d 20 30 2e 35 30 0d 00 a0 33 |. scl = 0.50...3|
00001450 e7 20 a4 73 68 65 6c 6c 5f 49 73 49 63 6f 6e 53 |. .shell_IsIconS|
00001460 65 6c 65 63 74 65 64 28 6d 61 69 6e 77 70 25 2c |elected(mainwp%,|
00001470 32 29 20 8c 20 73 63 6c 20 3d 20 30 2e 37 35 0d |2) . scl = 0.75.|
00001480 00 a1 30 e7 20 a4 73 68 65 6c 6c 5f 49 73 49 63 |..0. .shell_IsIc|
00001490 6f 6e 53 65 6c 65 63 74 65 64 28 6d 61 69 6e 77 |onSelected(mainw|
000014a0 70 25 2c 33 29 20 8c 20 73 63 6c 20 3d 20 31 0d |p%,3) . scl = 1.|
000014b0 00 a2 28 f2 73 68 65 6c 6c 5f 44 72 61 77 53 65 |..(.shell_DrawSe|
000014c0 74 53 63 61 6c 65 28 62 75 66 66 65 72 25 2c 73 |tScale(buffer%,s|
000014d0 63 6c 2c 73 63 6c 29 0d 00 a3 38 f2 73 68 65 6c |cl,scl)...8.shel|
000014e0 6c 5f 44 72 61 77 52 65 73 69 7a 65 57 69 6e 64 |l_DrawResizeWind|
000014f0 6f 77 28 62 75 66 66 65 72 25 2c 6d 61 69 6e 77 |ow(buffer%,mainw|
00001500 25 2c 36 30 2c 36 30 2c 36 30 2c 31 36 30 29 0d |%,60,60,60,160).|
00001510 00 a4 23 f2 73 68 65 6c 6c 5f 4f 70 65 6e 57 69 |..#.shell_OpenWi|
00001520 6e 64 6f 77 53 74 61 74 69 63 28 6d 61 69 6e 77 |ndowStatic(mainw|
00001530 25 29 0d 00 a5 06 3d 30 0d 00 a6 05 3a 0d 00 a7 |%)....=0....:...|
00001540 04 0d 00 a8 21 dd 20 a4 5f 43 6c 69 63 6b 53 65 |....!. ._ClickSe|
00001550 6c 65 63 74 5f 50 61 6e 65 28 77 68 25 2c 69 68 |lect_Pane(wh%,ih|
00001560 25 29 0d 00 a9 3c ea 20 78 70 6f 73 2c 79 70 6f |%)...<. xpos,ypo|
00001570 73 2c 77 69 64 74 68 2c 68 65 69 67 68 74 2c 73 |s,width,height,s|
00001580 63 6c 2c 78 73 63 6c 2c 79 73 63 6c 2c 6f 5f 78 |cl,xscl,yscl,o_x|
00001590 73 63 61 6c 65 2c 6f 5f 79 73 63 61 6c 65 0d 00 |scale,o_yscale..|
000015a0 aa 2e f2 73 68 65 6c 6c 5f 44 72 61 77 47 65 74 |...shell_DrawGet|
000015b0 53 63 61 6c 65 28 62 75 66 66 65 72 25 2c 6f 5f |Scale(buffer%,o_|
000015c0 78 73 63 6c 2c 6f 5f 79 73 63 6c 29 0d 00 ab 33 |xscl,o_yscl)...3|
000015d0 e7 20 a4 73 68 65 6c 6c 5f 49 73 49 63 6f 6e 53 |. .shell_IsIconS|
000015e0 65 6c 65 63 74 65 64 28 6d 61 69 6e 77 70 25 2c |elected(mainwp%,|
000015f0 30 29 20 8c 20 73 63 6c 20 3d 20 30 2e 32 35 0d |0) . scl = 0.25.|
00001600 00 ac 33 e7 20 a4 73 68 65 6c 6c 5f 49 73 49 63 |..3. .shell_IsIc|
00001610 6f 6e 53 65 6c 65 63 74 65 64 28 6d 61 69 6e 77 |onSelected(mainw|
00001620 70 25 2c 31 29 20 8c 20 73 63 6c 20 3d 20 30 2e |p%,1) . scl = 0.|
00001630 35 30 0d 00 ad 33 e7 20 a4 73 68 65 6c 6c 5f 49 |50...3. .shell_I|
00001640 73 49 63 6f 6e 53 65 6c 65 63 74 65 64 28 6d 61 |sIconSelected(ma|
00001650 69 6e 77 70 25 2c 32 29 20 8c 20 73 63 6c 20 3d |inwp%,2) . scl =|
00001660 20 30 2e 37 35 0d 00 ae 30 e7 20 a4 73 68 65 6c | 0.75...0. .shel|
00001670 6c 5f 49 73 49 63 6f 6e 53 65 6c 65 63 74 65 64 |l_IsIconSelected|
00001680 28 6d 61 69 6e 77 70 25 2c 33 29 20 8c 20 73 63 |(mainwp%,3) . sc|
00001690 6c 20 3d 20 31 0d 00 af 28 e7 20 a4 73 68 65 6c |l = 1...(. .shel|
000016a0 6c 5f 49 73 49 63 6f 6e 53 65 6c 65 63 74 65 64 |l_IsIconSelected|
000016b0 28 6d 61 69 6e 77 70 25 2c 34 29 20 8c 0d 00 b0 |(mainwp%,4) ....|
000016c0 45 20 20 f2 73 68 65 6c 6c 5f 44 72 61 77 53 63 |E .shell_DrawSc|
000016d0 61 6c 65 54 6f 57 69 6e 64 6f 77 28 62 75 66 66 |aleToWindow(buff|
000016e0 65 72 25 2c 6d 61 69 6e 77 25 2c 36 30 2c 36 30 |er%,mainw%,60,60|
000016f0 2c 36 30 2c 31 36 30 2c 78 73 63 6c 2c 79 73 63 |,60,160,xscl,ysc|
00001700 6c 29 0d 00 b1 10 20 20 73 63 6c 20 3d 20 78 73 |l).... scl = xs|
00001710 63 6c 0d 00 b2 05 cd 0d 00 b3 28 f2 73 68 65 6c |cl........(.shel|
00001720 6c 5f 44 72 61 77 53 65 74 53 63 61 6c 65 28 62 |l_DrawSetScale(b|
00001730 75 66 66 65 72 25 2c 73 63 6c 2c 73 63 6c 29 0d |uffer%,scl,scl).|
00001740 00 b4 15 e7 20 73 63 6c 20 3c 3e 20 6f 5f 78 73 |.... scl <> o_xs|
00001750 63 6c 20 8c 0d 00 b5 3a 20 20 f2 73 68 65 6c 6c |cl ....: .shell|
00001760 5f 44 72 61 77 52 65 73 69 7a 65 57 69 6e 64 6f |_DrawResizeWindo|
00001770 77 28 62 75 66 66 65 72 25 2c 6d 61 69 6e 77 25 |w(buffer%,mainw%|
00001780 2c 36 30 2c 36 30 2c 36 30 2c 31 36 30 29 0d 00 |,60,60,60,160)..|
00001790 b6 05 cd 0d 00 b7 23 f2 73 68 65 6c 6c 5f 4f 70 |......#.shell_Op|
000017a0 65 6e 57 69 6e 64 6f 77 53 74 61 74 69 63 28 6d |enWindowStatic(m|
000017b0 61 69 6e 77 25 29 0d 00 b8 06 3d 30 0d 00 b9 05 |ainw%)....=0....|
000017c0 3a 0d 00 ba 04 0d 00 bb 46 f4 20 3d 3d 3d 3d 3d |:.......F. =====|
000017d0 20 43 6c 69 63 6b 5f 41 64 6a 75 73 74 20 72 6f | Click_Adjust ro|
000017e0 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d |utines =========|
000017f0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001800 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 bc 04 0d |===========.....|
00001810 00 bd 46 f4 20 3d 3d 3d 3d 3d 20 4d 65 6e 75 5f |..F. ===== Menu_|
00001820 53 65 6c 65 63 74 20 72 6f 75 74 69 6e 65 73 20 |Select routines |
00001830 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00001850 3d 3d 3d 3d 3d 0d 00 be 04 0d 00 bf 1d dd 20 a4 |=====......... .|
00001860 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 48 65 6c 70 |_MenuSelect_Help|
00001870 28 62 6c 6b 25 29 0d 00 c0 3b f2 73 68 65 6c 6c |(blk%)...;.shell|
00001880 5f 4d 65 73 73 61 67 65 53 65 6e 64 44 61 74 61 |_MessageSendData|
00001890 4c 6f 61 64 28 26 46 46 46 2c 22 3c 54 65 73 74 |Load(&FFF,"<Test|
000018a0 44 72 61 77 24 44 69 72 3e 2e 21 48 65 6c 70 22 |Draw$Dir>.!Help"|
000018b0 29 0d 00 c1 06 3d 30 0d 00 c2 05 3a 0d 00 c3 1d |)....=0....:....|
000018c0 dd 20 a4 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 51 |. ._MenuSelect_Q|
000018d0 75 69 74 28 62 6c 6b 25 29 0d 00 c4 11 5f 63 6c |uit(blk%)...._cl|
000018e0 6f 73 65 64 6f 77 6e 25 3d b9 0d 00 c5 06 3d 30 |osedown%=.....=0|
000018f0 0d 00 c6 05 3a 0d 00 c7 04 0d 00 c8 46 f4 20 3d |....:.......F. =|
00001900 3d 3d 3d 3d 20 4d 65 6e 75 5f 57 61 72 6e 69 6e |==== Menu_Warnin|
00001910 67 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d |g routines =====|
00001920 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001930 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d |===============.|
00001940 00 c9 04 0d 00 ca 46 f4 20 3d 3d 3d 3d 3d 20 44 |......F. ===== D|
00001950 61 74 61 5f 4c 6f 61 64 20 72 6f 75 74 69 6e 65 |ata_Load routine|
00001960 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |s ==============|
00001970 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001980 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 cb 04 0d 00 cc |=========.......|
00001990 2d dd 20 a4 5f 44 61 74 61 4c 6f 61 64 5f 41 46 |-. ._DataLoad_AF|
000019a0 46 28 61 64 64 72 25 2c 74 79 70 65 25 2c 6e 61 |F(addr%,type%,na|
000019b0 6d 65 24 2c 73 69 7a 65 25 29 0d 00 cd 13 ea 20 |me$,size%)..... |
000019c0 73 63 6c 2c 78 73 63 6c 2c 79 73 63 6c 0d 00 ce |scl,xscl,yscl...|
000019d0 23 f2 73 68 65 6c 6c 5f 44 72 61 77 44 65 73 74 |#.shell_DrawDest|
000019e0 72 6f 79 46 69 6c 65 28 62 75 66 66 65 72 25 29 |royFile(buffer%)|
000019f0 0d 00 cf 28 62 75 66 66 65 72 25 20 3d 20 a4 73 |...(buffer% = .s|
00001a00 68 65 6c 6c 5f 44 72 61 77 4c 6f 61 64 46 69 6c |hell_DrawLoadFil|
00001a10 65 28 6e 61 6d 65 24 29 0d 00 d0 33 e7 20 a4 73 |e(name$)...3. .s|
00001a20 68 65 6c 6c 5f 49 73 49 63 6f 6e 53 65 6c 65 63 |hell_IsIconSelec|
00001a30 74 65 64 28 6d 61 69 6e 77 70 25 2c 30 29 20 8c |ted(mainwp%,0) .|
00001a40 20 73 63 6c 20 3d 20 30 2e 32 35 0d 00 d1 33 e7 | scl = 0.25...3.|
00001a50 20 a4 73 68 65 6c 6c 5f 49 73 49 63 6f 6e 53 65 | .shell_IsIconSe|
00001a60 6c 65 63 74 65 64 28 6d 61 69 6e 77 70 25 2c 31 |lected(mainwp%,1|
00001a70 29 20 8c 20 73 63 6c 20 3d 20 30 2e 35 30 0d 00 |) . scl = 0.50..|
00001a80 d2 33 e7 20 a4 73 68 65 6c 6c 5f 49 73 49 63 6f |.3. .shell_IsIco|
00001a90 6e 53 65 6c 65 63 74 65 64 28 6d 61 69 6e 77 70 |nSelected(mainwp|
00001aa0 25 2c 32 29 20 8c 20 73 63 6c 20 3d 20 30 2e 37 |%,2) . scl = 0.7|
00001ab0 35 0d 00 d3 30 e7 20 a4 73 68 65 6c 6c 5f 49 73 |5...0. .shell_Is|
00001ac0 49 63 6f 6e 53 65 6c 65 63 74 65 64 28 6d 61 69 |IconSelected(mai|
00001ad0 6e 77 70 25 2c 33 29 20 8c 20 73 63 6c 20 3d 20 |nwp%,3) . scl = |
00001ae0 31 0d 00 d4 28 e7 20 a4 73 68 65 6c 6c 5f 49 73 |1...(. .shell_Is|
00001af0 49 63 6f 6e 53 65 6c 65 63 74 65 64 28 6d 61 69 |IconSelected(mai|
00001b00 6e 77 70 25 2c 34 29 20 8c 0d 00 d5 45 20 20 f2 |nwp%,4) ....E .|
00001b10 73 68 65 6c 6c 5f 44 72 61 77 53 63 61 6c 65 54 |shell_DrawScaleT|
00001b20 6f 57 69 6e 64 6f 77 28 62 75 66 66 65 72 25 2c |oWindow(buffer%,|
00001b30 6d 61 69 6e 77 25 2c 36 30 2c 36 30 2c 36 30 2c |mainw%,60,60,60,|
00001b40 31 36 30 2c 78 73 63 6c 2c 79 73 63 6c 29 0d 00 |160,xscl,yscl)..|
00001b50 d6 2d 20 20 e7 20 79 73 63 6c 20 3c 20 78 73 63 |.- . yscl < xsc|
00001b60 6c 20 8c 20 73 63 6c 20 3d 20 79 73 63 6c 20 8b |l . scl = yscl .|
00001b70 20 73 63 6c 20 3d 20 78 73 63 6c 0d 00 d7 05 cd | scl = xscl.....|
00001b80 0d 00 d8 28 f2 73 68 65 6c 6c 5f 44 72 61 77 53 |...(.shell_DrawS|
00001b90 65 74 53 63 61 6c 65 28 62 75 66 66 65 72 25 2c |etScale(buffer%,|
00001ba0 73 63 6c 2c 73 63 6c 29 0d 00 d9 38 f2 73 68 65 |scl,scl)...8.she|
00001bb0 6c 6c 5f 44 72 61 77 52 65 73 69 7a 65 57 69 6e |ll_DrawResizeWin|
00001bc0 64 6f 77 28 62 75 66 66 65 72 25 2c 6d 61 69 6e |dow(buffer%,main|
00001bd0 77 25 2c 36 30 2c 36 30 2c 36 30 2c 31 36 30 29 |w%,60,60,60,160)|
00001be0 0d 00 da 23 f2 73 68 65 6c 6c 5f 4f 70 65 6e 57 |...#.shell_OpenW|
00001bf0 69 6e 64 6f 77 53 74 61 74 69 63 28 6d 61 69 6e |indowStatic(main|
00001c00 77 25 29 0d 00 db 36 c8 99 20 22 57 69 6d 70 5f |w%)...6.. "Wimp_|
00001c10 46 6f 72 63 65 52 65 64 72 61 77 22 2c 6d 61 69 |ForceRedraw",mai|
00001c20 6e 77 25 2c 2d 33 30 30 30 2c 2d 33 30 30 30 2c |nw%,-3000,-3000,|
00001c30 33 30 30 30 2c 33 30 30 30 0d 00 dc 06 3d 30 0d |3000,3000....=0.|
00001c40 00 dd 05 3a 0d 00 de 04 0d 00 df 46 f4 20 3d 3d |...:.......F. ==|
00001c50 3d 3d 3d 20 44 61 74 61 5f 53 61 76 65 20 72 6f |=== Data_Save ro|
00001c60 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d |utines =========|
00001c70 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001c80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 |==============..|
00001c90 e0 04 0d 00 e1 46 f4 20 3d 3d 3d 3d 3d 20 55 73 |.....F. ===== Us|
00001ca0 65 72 5f 52 65 64 72 61 77 20 72 6f 75 74 69 6e |er_Redraw routin|
00001cb0 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |es =============|
00001cc0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001cd0 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 e2 04 0d 00 e3 24 |========.......$|
00001ce0 dd 20 a4 5f 55 73 65 72 52 65 64 72 61 77 5f 4d |. ._UserRedraw_M|
00001cf0 61 69 6e 77 28 62 6c 6b 25 2c 78 25 2c 79 25 29 |ainw(blk%,x%,y%)|
00001d00 0d 00 e4 2a ea 20 73 63 6c 2c 78 70 6f 73 2c 79 |...*. scl,xpos,y|
00001d10 70 6f 73 2c 77 69 64 74 68 2c 68 65 69 67 68 74 |pos,width,height|
00001d20 2c 79 6f 72 67 2c 78 6f 72 67 0d 00 e5 3f f2 73 |,yorg,xorg...?.s|
00001d30 68 65 6c 6c 5f 44 72 61 77 47 65 74 42 6f 75 6e |hell_DrawGetBoun|
00001d40 64 69 6e 67 42 6f 78 28 62 75 66 66 65 72 25 2c |dingBox(buffer%,|
00001d50 78 70 6f 73 2c 79 70 6f 73 2c 77 69 64 74 68 2c |xpos,ypos,width,|
00001d60 68 65 69 67 68 74 2c b9 29 0d 00 e6 20 79 6f 72 |height,.)... yor|
00001d70 67 20 3d 20 2d 28 31 36 30 2b 68 65 69 67 68 74 |g = -(160+height|
00001d80 2b 79 70 6f 73 29 2b 79 25 0d 00 e7 19 78 6f 72 |+ypos)+y%....xor|
00001d90 67 20 3d 20 78 25 20 2d 20 78 70 6f 73 20 2b 20 |g = x% - xpos + |
00001da0 36 30 0d 00 e8 52 f2 73 68 65 6c 6c 5f 44 72 61 |60...R.shell_Dra|
00001db0 77 52 65 6e 64 65 72 46 69 6c 65 28 62 75 66 66 |wRenderFile(buff|
00001dc0 65 72 25 2c 78 6f 72 67 2c 79 6f 72 67 2c 62 6c |er%,xorg,yorg,bl|
00001dd0 6b 25 2c a4 73 68 65 6c 6c 5f 49 73 49 63 6f 6e |k%,.shell_IsIcon|
00001de0 53 65 6c 65 63 74 65 64 28 6d 61 69 6e 77 70 25 |Selected(mainwp%|
00001df0 2c 35 29 29 0d 00 e9 06 3d 30 0d 00 ea 04 0d 00 |,5))....=0......|
00001e00 eb 46 f4 20 3d 3d 3d 3d 3d 20 55 73 65 72 20 61 |.F. ===== User a|
00001e10 70 70 6c 69 63 61 74 69 6f 6e 20 72 6f 75 74 69 |pplication routi|
00001e20 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |nes ============|
00001e30 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001e40 3d 3d 3d 3d 0d 00 ec 04 0d 00 ed 46 f4 20 3d 3d |====.......F. ==|
00001e50 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 |=============== |
00001e60 45 6e 64 20 4f 66 20 55 73 65 72 20 41 70 70 6c |End Of User Appl|
00001e70 69 63 61 74 69 6f 6e 20 3d 3d 3d 3d 3d 3d 3d 3d |ication ========|
00001e80 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 |==============..|
00001e90 ee 05 3a 0d 00 ef 04 0d 00 f0 04 0d 00 f1 04 0d |..:.............|
00001ea0 00 f2 04 0d 00 f3 04 0d ff |.........|
00001ea9 
.