� > <DataLoad$Dir>.!DataLoad
:
debugging%=�
.� Copyright Paul Hobbs 1990,1991,1992,1993
� Rheinpfalzstrasse 2
�    85049 Ingolstadt
�             Germany
:
	>� This program and parts thereof may be freely distributed

:
� � �shell_Error
:

#ț "<EvntShell$Path>ShellLibRT"
:
ș "Hourglass_On"
:
(ș "Wimp_SlotSize",-1,-1 � progsize%
pagesize%=1<<10
freespace%=&8000+progsize%
�=freespace%+pagesize%
�=freespace%
:
9�shell_HeapManagerInit("<EvntShell$Path>",freespace%)
�shell_Init
0task%=�shell_WimpInit_I(200,"DataLoad Demo")
�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
/�
0+  �shell_Action(�shell_Poll_I(0,task%))
1� _closedown%
2:
3�shell_Exit:�
4:
5L� ======================================================================
6:
7� �app_init
8�SetUp_Menus
9Ssicon=�shell_Iconbar(-1,"!"+�shell_GetAppName,"",120,MenuHandle_IconBar%,0,0,0)
:,�shell_AttachHelpTag(-1,sicon,"iconbar")
;:�shell_AttachClickSelect(-1,sicon,"_ClickSelect_ibar")
<:�shell_AttachDataLoad(-1,sicon,&FFF,"_dataloadFFF",-1)
=9�shell_AttachDataLoad(-1,sicon,&200,"_dataload200",�)
>-�shell_CreateWindowStatic("mainw",mainw%)
?6� attach dataload event to icon 0 in main window..
@9�shell_AttachDataLoad(mainw%,0,&FEC,"_dataloadFEC",�)
A�
B:
C
DF� ===== Menu_Setup routines ======================================
E
F� �SetUp_Menus
G� void%
H
I2MenuHandle_IconBar%=�shell_MenuNew("DataLoad")
J3MenuItem_Info%     =�shell_MenuAdd(0,"Info","")
KCvoid%              =�shell_MenuAdd(0,"Quit","_MenuSelect_Quit")
LF�shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
M
N�
O:
P
QF� ===== Dialog_PreOpen routines ==================================
R
S� �_PreOpenInfo(wh%)
TA�shell_IconPutData(wh%,0,�shell_MessageNoArgs("progInfo0"),0)
UA�shell_IconPutData(wh%,1,�shell_MessageNoArgs("progInfo1"),0)
VA�shell_IconPutData(wh%,2,�shell_MessageNoArgs("progInfo2"),0)
WA�shell_IconPutData(wh%,3,�shell_MessageNoArgs("progInfo3"),0)
X=0
Y:
Z
[F� ===== Dialog_PostOpen routines =================================
\
]F� ===== Click_Select routines ====================================
^
_!� �_ClickSelect_ibar(wh%,ih%)
`#�shell_OpenWindowStatic(mainw%)
a
b� TIME=0
c� FOR I% = 1 TO 100
d/�   fn$ = FNshell_GetWindowEvent(13,mainw%)
e4�   REM fn$=FNshell_GetEventHandler(mainw%,-1,4)
f
� NEXT I%
g� ERROR 99,STR$(TIME/100)
h
i=0
j:
k$� �shell_GetWindowEvent(nr%,wh%)
l	� fn$
m1ș &400D6,wh%,_shell_blk%,&003F0000,nr% << 16
n� !_shell_blk% <> -1 �
o0  fn$ = �shell_IconGetData(wh%,!_shell_blk%)
p�
q	= fn$
r:
s
tF� ===== Click_Adjust routines ====================================
u
vF� ===== Menu_Select routines =====================================
w
x� �_MenuSelect_Quit(blk%)
y_closedown%=�
z=0
{:
|
}F� ===== Data_Load routines =======================================
~
+� �_dataload200(loc%,type%,name$,size%)
�� void%
�)� pick up location of loaded file....
�jvoid%=�shell_MessageWindow("File loaded at &"+�~loc%+" Type=&"+�~type%+" '"+name$+"'",0,"DataLoad","")
�=0
�:
�+� �_dataloadFFF(loc%,type%,name$,size%)
�� void%
�)� pick up location of loaded file....
�Qvoid%=�shell_MessageWindow("File '"+name$+"' Type=&"+�~type%,0,"DataLoad","")
��
�=0
�:
�+� �_dataloadFEC(loc%,type%,name$,size%)
�F� just display a message - user app must actually load file here..
�Qvoid%=�shell_MessageWindow("File '"+name$+"' Type=&"+�~type%,0,"DataLoad","")
�=0
�:
�
�F� ===== Data_Save routines =======================================
�
�F� ===== Application routines =====================================
�
�� �_PointerEntering_MainW
�+�shell_Tracef0("PointerEntering_MainW")
�=0
�:
�� �_PointerLeaving_MainW
�*�shell_Tracef0("PointerLeaving_MainW")
�=0
�:
�&� �_UserRedraw_MainW(blk%,x0%,y0%)
�&�shell_Tracef0("UserRedraw_MainW")
�=0
�:
�
�F� ===== End of user application ==================================
�
�J� =================== Routines to go in the library ==================
�:
�

00000000  0d 00 01 20 f4 20 3e 20  3c 44 61 74 61 4c 6f 61  |... . > <DataLoa|
00000010  64 24 44 69 72 3e 2e 21  44 61 74 61 4c 6f 61 64  |d$Dir>.!DataLoad|
00000020  0d 00 02 05 3a 0d 00 03  10 64 65 62 75 67 67 69  |....:....debuggi|
00000030  6e 67 25 3d a3 0d 00 04  2e f4 20 43 6f 70 79 72  |ng%=...... Copyr|
00000040  69 67 68 74 20 50 61 75  6c 20 48 6f 62 62 73 20  |ight Paul Hobbs |
00000050  31 39 39 30 2c 31 39 39  31 2c 31 39 39 32 2c 31  |1990,1991,1992,1|
00000060  39 39 33 0d 00 05 19 f4  20 52 68 65 69 6e 70 66  |993..... Rheinpf|
00000070  61 6c 7a 73 74 72 61 73  73 65 20 32 0d 00 06 19  |alzstrasse 2....|
00000080  f4 20 20 20 20 38 35 30  34 39 20 49 6e 67 6f 6c  |.    85049 Ingol|
00000090  73 74 61 64 74 0d 00 07  19 f4 20 20 20 20 20 20  |stadt.....      |
000000a0  20 20 20 20 20 20 20 47  65 72 6d 61 6e 79 0d 00  |       Germany..|
000000b0  08 05 3a 0d 00 09 3e f4  20 54 68 69 73 20 70 72  |..:...>. This pr|
000000c0  6f 67 72 61 6d 20 61 6e  64 20 70 61 72 74 73 20  |ogram and parts |
000000d0  74 68 65 72 65 6f 66 20  6d 61 79 20 62 65 20 66  |thereof may be f|
000000e0  72 65 65 6c 79 20 64 69  73 74 72 69 62 75 74 65  |reely distribute|
000000f0  64 0d 00 0a 05 3a 0d 00  0b 14 ee 20 85 20 f2 73  |d....:..... . .s|
00000100  68 65 6c 6c 5f 45 72 72  6f 72 0d 00 0c 05 3a 0d  |hell_Error....:.|
00000110  00 0d 23 c8 9b 20 22 3c  45 76 6e 74 53 68 65 6c  |..#.. "<EvntShel|
00000120  6c 24 50 61 74 68 3e 53  68 65 6c 6c 4c 69 62 52  |l$Path>ShellLibR|
00000130  54 22 0d 00 0e 05 3a 0d  00 0f 15 c8 99 20 22 48  |T"....:...... "H|
00000140  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 00 10 05  |ourglass_On"....|
00000150  3a 0d 00 11 28 c8 99 20  22 57 69 6d 70 5f 53 6c  |:...(.. "Wimp_Sl|
00000160  6f 74 53 69 7a 65 22 2c  2d 31 2c 2d 31 20 b8 20  |otSize",-1,-1 . |
00000170  70 72 6f 67 73 69 7a 65  25 0d 00 12 13 70 61 67  |progsize%....pag|
00000180  65 73 69 7a 65 25 3d 31  3c 3c 31 30 0d 00 13 1e  |esize%=1<<10....|
00000190  66 72 65 65 73 70 61 63  65 25 3d 26 38 30 30 30  |freespace%=&8000|
000001a0  2b 70 72 6f 67 73 69 7a  65 25 0d 00 14 1a e0 3d  |+progsize%.....=|
000001b0  66 72 65 65 73 70 61 63  65 25 2b 70 61 67 65 73  |freespace%+pages|
000001c0  69 7a 65 25 0d 00 15 10  d3 3d 66 72 65 65 73 70  |ize%.....=freesp|
000001d0  61 63 65 25 0d 00 16 05  3a 0d 00 17 39 f2 73 68  |ace%....:...9.sh|
000001e0  65 6c 6c 5f 48 65 61 70  4d 61 6e 61 67 65 72 49  |ell_HeapManagerI|
000001f0  6e 69 74 28 22 3c 45 76  6e 74 53 68 65 6c 6c 24  |nit("<EvntShell$|
00000200  50 61 74 68 3e 22 2c 66  72 65 65 73 70 61 63 65  |Path>",freespace|
00000210  25 29 0d 00 18 0f f2 73  68 65 6c 6c 5f 49 6e 69  |%).....shell_Ini|
00000220  74 0d 00 19 30 74 61 73  6b 25 3d a4 73 68 65 6c  |t...0task%=.shel|
00000230  6c 5f 57 69 6d 70 49 6e  69 74 5f 49 28 32 30 30  |l_WimpInit_I(200|
00000240  2c 22 44 61 74 61 4c 6f  61 64 20 44 65 6d 6f 22  |,"DataLoad Demo"|
00000250  29 0d 00 1a 18 f2 73 68  65 6c 6c 5f 54 72 61 63  |).....shell_Trac|
00000260  65 49 6e 69 74 28 22 22  29 0d 00 1b 17 f4 20 50  |eInit("")..... P|
00000270  52 4f 43 73 68 65 6c 6c  5f 54 72 61 63 65 4f 6e  |ROCshell_TraceOn|
00000280  0d 00 1c 18 f2 73 68 65  6c 6c 5f 52 65 73 6f 75  |.....shell_Resou|
00000290  72 63 65 73 49 6e 69 74  0d 00 1d 0d f2 61 70 70  |rcesInit.....app|
000002a0  5f 69 6e 69 74 0d 00 1e  05 3a 0d 00 1f 4c f4 20  |_init....:...L. |
000002b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000002c0  2d 2d 2d 2d 20 49 6e 69  74 69 61 6c 69 73 65 20  |---- Initialise |
000002d0  56 61 72 69 61 62 6c 65  73 20 2d 2d 2d 2d 2d 2d  |Variables ------|
000002e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000002f0  2d 2d 2d 2d 2d 2d 0d 00  20 05 3a 0d 00 21 47 5f  |------.. .:..!G_|
00000300  63 6c 6f 73 65 64 6f 77  6e 25 20 20 20 20 20 3d  |closedown%     =|
00000310  a3 20 3a f4 20 53 65 74  20 74 68 69 73 20 74 6f  |. :. Set this to|
00000320  20 54 52 55 45 20 77 68  65 6e 20 79 6f 75 20 77  | TRUE when you w|
00000330  61 6e 74 20 74 68 65 20  70 72 6f 67 72 61 6d 20  |ant the program |
00000340  74 6f 0d 00 22 21 20 20  20 20 20 20 20 20 20 20  |to.."!          |
00000350  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
00000360  65 6e 64 0d 00 23 44 63  68 61 6e 67 65 64 25 20  |end..#Dchanged% |
00000370  20 20 20 20 20 20 20 3d  a3 20 3a f4 20 55 73 65  |       =. :. Use|
00000380  64 20 74 6f 20 6b 65 65  70 20 74 72 61 63 6b 20  |d to keep track |
00000390  6f 66 20 77 68 65 74 68  65 72 20 74 68 65 20 64  |of whether the d|
000003a0  61 74 61 20 68 61 73 0d  00 24 4b 20 20 20 20 20  |ata has..$K     |
000003b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003c0  20 20 3a f4 20 62 65 65  6e 20 63 68 61 6e 67 65  |  :. been change|
000003d0  64 2e 20 43 61 6c 6c 20  50 52 4f 43 66 69 6c 65  |d. Call PROCfile|
000003e0  5f 63 68 61 6e 67 65 64  28 29 20 77 68 65 6e 20  |_changed() when |
000003f0  69 74 0d 00 25 47 20 20  20 20 20 20 20 20 20 20  |it..%G          |
00000400  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
00000410  68 61 73 2e 20 42 75 74  20 69 66 20 74 68 65 20  |has. But if the |
00000420  70 72 6f 67 72 61 6d 20  64 6f 65 73 20 6e 6f 74  |program does not|
00000430  20 75 73 65 20 64 61 74  61 0d 00 26 48 20 20 20  | use data..&H   |
00000440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000450  20 20 20 20 3a f4 20 66  69 6c 65 73 20 6a 75 73  |    :. files jus|
00000460  74 20 69 67 6e 6f 72 65  20 74 68 69 73 20 76 61  |t ignore this va|
00000470  72 69 61 62 6c 65 20 62  75 74 20 64 6f 20 6e 6f  |riable but do no|
00000480  74 0d 00 27 47 20 20 20  20 20 20 20 20 20 20 20  |t..'G           |
00000490  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 64  |            :. d|
000004a0  65 6c 65 74 65 20 69 74  20 61 73 20 74 68 65 20  |elete it as the |
000004b0  70 72 6f 67 72 61 6d 20  63 68 65 63 6b 73 20 69  |program checks i|
000004c0  74 20 62 65 66 6f 72 65  0d 00 28 26 20 20 20 20  |t before..(&    |
000004d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004e0  20 20 20 3a f4 20 65 78  69 74 69 6e 67 21 0d 00  |   :. exiting!..|
000004f0  29 05 3a 0d 00 2a 4c f4  20 2d 2d 2d 2d 2d 2d 2d  |).:..*L. -------|
00000500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 20 4d 69  |------------- Mi|
00000510  73 63 65 6c 6c 65 61 6e  6f 75 73 20 49 6e 69 74  |scelleanous Init|
00000520  69 61 6c 69 73 61 74 69  6f 6e 20 2d 2d 2d 2d 2d  |ialisation -----|
00000530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000540  00 2b 05 3a 0d 00 2c 16  c8 99 20 22 48 6f 75 72  |.+.:..,... "Hour|
00000550  67 6c 61 73 73 5f 4f 66  66 22 0d 00 2d 09 ee 20  |glass_Off"..-.. |
00000560  85 20 87 0d 00 2e 14 ee  20 85 20 f2 73 68 65 6c  |. ...... . .shel|
00000570  6c 5f 45 72 72 6f 72 0d  00 2f 05 f5 0d 00 30 2b  |l_Error../....0+|
00000580  20 20 f2 73 68 65 6c 6c  5f 41 63 74 69 6f 6e 28  |  .shell_Action(|
00000590  a4 73 68 65 6c 6c 5f 50  6f 6c 6c 5f 49 28 30 2c  |.shell_Poll_I(0,|
000005a0  74 61 73 6b 25 29 29 0d  00 31 11 fd 20 5f 63 6c  |task%))..1.. _cl|
000005b0  6f 73 65 64 6f 77 6e 25  0d 00 32 05 3a 0d 00 33  |osedown%..2.:..3|
000005c0  11 f2 73 68 65 6c 6c 5f  45 78 69 74 3a e0 0d 00  |..shell_Exit:...|
000005d0  34 05 3a 0d 00 35 4c f4  20 3d 3d 3d 3d 3d 3d 3d  |4.:..5L. =======|
000005e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000610  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00000620  00 36 05 3a 0d 00 37 0f  dd 20 f2 61 70 70 5f 69  |.6.:..7.. .app_i|
00000630  6e 69 74 0d 00 38 10 f2  53 65 74 55 70 5f 4d 65  |nit..8..SetUp_Me|
00000640  6e 75 73 0d 00 39 53 73  69 63 6f 6e 3d a4 73 68  |nus..9Ssicon=.sh|
00000650  65 6c 6c 5f 49 63 6f 6e  62 61 72 28 2d 31 2c 22  |ell_Iconbar(-1,"|
00000660  21 22 2b a4 73 68 65 6c  6c 5f 47 65 74 41 70 70  |!"+.shell_GetApp|
00000670  4e 61 6d 65 2c 22 22 2c  31 32 30 2c 4d 65 6e 75  |Name,"",120,Menu|
00000680  48 61 6e 64 6c 65 5f 49  63 6f 6e 42 61 72 25 2c  |Handle_IconBar%,|
00000690  30 2c 30 2c 30 29 0d 00  3a 2c f2 73 68 65 6c 6c  |0,0,0)..:,.shell|
000006a0  5f 41 74 74 61 63 68 48  65 6c 70 54 61 67 28 2d  |_AttachHelpTag(-|
000006b0  31 2c 73 69 63 6f 6e 2c  22 69 63 6f 6e 62 61 72  |1,sicon,"iconbar|
000006c0  22 29 0d 00 3b 3a f2 73  68 65 6c 6c 5f 41 74 74  |")..;:.shell_Att|
000006d0  61 63 68 43 6c 69 63 6b  53 65 6c 65 63 74 28 2d  |achClickSelect(-|
000006e0  31 2c 73 69 63 6f 6e 2c  22 5f 43 6c 69 63 6b 53  |1,sicon,"_ClickS|
000006f0  65 6c 65 63 74 5f 69 62  61 72 22 29 0d 00 3c 3a  |elect_ibar")..<:|
00000700  f2 73 68 65 6c 6c 5f 41  74 74 61 63 68 44 61 74  |.shell_AttachDat|
00000710  61 4c 6f 61 64 28 2d 31  2c 73 69 63 6f 6e 2c 26  |aLoad(-1,sicon,&|
00000720  46 46 46 2c 22 5f 64 61  74 61 6c 6f 61 64 46 46  |FFF,"_dataloadFF|
00000730  46 22 2c 2d 31 29 0d 00  3d 39 f2 73 68 65 6c 6c  |F",-1)..=9.shell|
00000740  5f 41 74 74 61 63 68 44  61 74 61 4c 6f 61 64 28  |_AttachDataLoad(|
00000750  2d 31 2c 73 69 63 6f 6e  2c 26 32 30 30 2c 22 5f  |-1,sicon,&200,"_|
00000760  64 61 74 61 6c 6f 61 64  32 30 30 22 2c a3 29 0d  |dataload200",.).|
00000770  00 3e 2d f2 73 68 65 6c  6c 5f 43 72 65 61 74 65  |.>-.shell_Create|
00000780  57 69 6e 64 6f 77 53 74  61 74 69 63 28 22 6d 61  |WindowStatic("ma|
00000790  69 6e 77 22 2c 6d 61 69  6e 77 25 29 0d 00 3f 36  |inw",mainw%)..?6|
000007a0  f4 20 61 74 74 61 63 68  20 64 61 74 61 6c 6f 61  |. attach dataloa|
000007b0  64 20 65 76 65 6e 74 20  74 6f 20 69 63 6f 6e 20  |d event to icon |
000007c0  30 20 69 6e 20 6d 61 69  6e 20 77 69 6e 64 6f 77  |0 in main window|
000007d0  2e 2e 0d 00 40 39 f2 73  68 65 6c 6c 5f 41 74 74  |....@9.shell_Att|
000007e0  61 63 68 44 61 74 61 4c  6f 61 64 28 6d 61 69 6e  |achDataLoad(main|
000007f0  77 25 2c 30 2c 26 46 45  43 2c 22 5f 64 61 74 61  |w%,0,&FEC,"_data|
00000800  6c 6f 61 64 46 45 43 22  2c b9 29 0d 00 41 05 e1  |loadFEC",.)..A..|
00000810  0d 00 42 05 3a 0d 00 43  04 0d 00 44 46 f4 20 3d  |..B.:..C...DF. =|
00000820  3d 3d 3d 3d 20 4d 65 6e  75 5f 53 65 74 75 70 20  |==== Menu_Setup |
00000830  72 6f 75 74 69 6e 65 73  20 3d 3d 3d 3d 3d 3d 3d  |routines =======|
00000840  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000850  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00000860  00 45 04 0d 00 46 12 dd  20 f2 53 65 74 55 70 5f  |.E...F.. .SetUp_|
00000870  4d 65 6e 75 73 0d 00 47  0b ea 20 76 6f 69 64 25  |Menus..G.. void%|
00000880  0d 00 48 04 0d 00 49 32  4d 65 6e 75 48 61 6e 64  |..H...I2MenuHand|
00000890  6c 65 5f 49 63 6f 6e 42  61 72 25 3d a4 73 68 65  |le_IconBar%=.she|
000008a0  6c 6c 5f 4d 65 6e 75 4e  65 77 28 22 44 61 74 61  |ll_MenuNew("Data|
000008b0  4c 6f 61 64 22 29 0d 00  4a 33 4d 65 6e 75 49 74  |Load")..J3MenuIt|
000008c0  65 6d 5f 49 6e 66 6f 25  20 20 20 20 20 3d a4 73  |em_Info%     =.s|
000008d0  68 65 6c 6c 5f 4d 65 6e  75 41 64 64 28 30 2c 22  |hell_MenuAdd(0,"|
000008e0  49 6e 66 6f 22 2c 22 22  29 0d 00 4b 43 76 6f 69  |Info","")..KCvoi|
000008f0  64 25 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |d%              |
00000900  3d a4 73 68 65 6c 6c 5f  4d 65 6e 75 41 64 64 28  |=.shell_MenuAdd(|
00000910  30 2c 22 51 75 69 74 22  2c 22 5f 4d 65 6e 75 53  |0,"Quit","_MenuS|
00000920  65 6c 65 63 74 5f 51 75  69 74 22 29 0d 00 4c 46  |elect_Quit")..LF|
00000930  f2 73 68 65 6c 6c 5f 41  74 74 61 63 68 4d 65 6e  |.shell_AttachMen|
00000940  75 44 42 6f 78 28 4d 65  6e 75 49 74 65 6d 5f 49  |uDBox(MenuItem_I|
00000950  6e 66 6f 25 2c 22 70 72  6f 67 49 6e 66 6f 22 2c  |nfo%,"progInfo",|
00000960  22 5f 50 72 65 4f 70 65  6e 49 6e 66 6f 22 2c 22  |"_PreOpenInfo","|
00000970  22 29 0d 00 4d 04 0d 00  4e 05 e1 0d 00 4f 05 3a  |")..M...N....O.:|
00000980  0d 00 50 04 0d 00 51 46  f4 20 3d 3d 3d 3d 3d 20  |..P...QF. ===== |
00000990  44 69 61 6c 6f 67 5f 50  72 65 4f 70 65 6e 20 72  |Dialog_PreOpen r|
000009a0  6f 75 74 69 6e 65 73 20  3d 3d 3d 3d 3d 3d 3d 3d  |outines ========|
000009b0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000009c0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 00 52 04 0d 00  |==========..R...|
000009d0  53 18 dd 20 a4 5f 50 72  65 4f 70 65 6e 49 6e 66  |S.. ._PreOpenInf|
000009e0  6f 28 77 68 25 29 0d 00  54 41 f2 73 68 65 6c 6c  |o(wh%)..TA.shell|
000009f0  5f 49 63 6f 6e 50 75 74  44 61 74 61 28 77 68 25  |_IconPutData(wh%|
00000a00  2c 30 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |,0,.shell_Messag|
00000a10  65 4e 6f 41 72 67 73 28  22 70 72 6f 67 49 6e 66  |eNoArgs("progInf|
00000a20  6f 30 22 29 2c 30 29 0d  00 55 41 f2 73 68 65 6c  |o0"),0)..UA.shel|
00000a30  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 28 77 68  |l_IconPutData(wh|
00000a40  25 2c 31 2c a4 73 68 65  6c 6c 5f 4d 65 73 73 61  |%,1,.shell_Messa|
00000a50  67 65 4e 6f 41 72 67 73  28 22 70 72 6f 67 49 6e  |geNoArgs("progIn|
00000a60  66 6f 31 22 29 2c 30 29  0d 00 56 41 f2 73 68 65  |fo1"),0)..VA.she|
00000a70  6c 6c 5f 49 63 6f 6e 50  75 74 44 61 74 61 28 77  |ll_IconPutData(w|
00000a80  68 25 2c 32 2c a4 73 68  65 6c 6c 5f 4d 65 73 73  |h%,2,.shell_Mess|
00000a90  61 67 65 4e 6f 41 72 67  73 28 22 70 72 6f 67 49  |ageNoArgs("progI|
00000aa0  6e 66 6f 32 22 29 2c 30  29 0d 00 57 41 f2 73 68  |nfo2"),0)..WA.sh|
00000ab0  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 28  |ell_IconPutData(|
00000ac0  77 68 25 2c 33 2c a4 73  68 65 6c 6c 5f 4d 65 73  |wh%,3,.shell_Mes|
00000ad0  73 61 67 65 4e 6f 41 72  67 73 28 22 70 72 6f 67  |sageNoArgs("prog|
00000ae0  49 6e 66 6f 33 22 29 2c  30 29 0d 00 58 06 3d 30  |Info3"),0)..X.=0|
00000af0  0d 00 59 05 3a 0d 00 5a  04 0d 00 5b 46 f4 20 3d  |..Y.:..Z...[F. =|
00000b00  3d 3d 3d 3d 20 44 69 61  6c 6f 67 5f 50 6f 73 74  |==== Dialog_Post|
00000b10  4f 70 65 6e 20 72 6f 75  74 69 6e 65 73 20 3d 3d  |Open routines ==|
00000b20  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000b30  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00000b40  00 5c 04 0d 00 5d 46 f4  20 3d 3d 3d 3d 3d 20 43  |.\...]F. ===== C|
00000b50  6c 69 63 6b 5f 53 65 6c  65 63 74 20 72 6f 75 74  |lick_Select rout|
00000b60  69 6e 65 73 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |ines ===========|
00000b70  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000b80  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 00 5e 04 0d 00 5f  |=========..^..._|
00000b90  21 dd 20 a4 5f 43 6c 69  63 6b 53 65 6c 65 63 74  |!. ._ClickSelect|
00000ba0  5f 69 62 61 72 28 77 68  25 2c 69 68 25 29 0d 00  |_ibar(wh%,ih%)..|
00000bb0  60 23 f2 73 68 65 6c 6c  5f 4f 70 65 6e 57 69 6e  |`#.shell_OpenWin|
00000bc0  64 6f 77 53 74 61 74 69  63 28 6d 61 69 6e 77 25  |dowStatic(mainw%|
00000bd0  29 0d 00 61 04 0d 00 62  0c f4 20 54 49 4d 45 3d  |)..a...b.. TIME=|
00000be0  30 0d 00 63 17 f4 20 46  4f 52 20 49 25 20 3d 20  |0..c.. FOR I% = |
00000bf0  31 20 54 4f 20 31 30 30  0d 00 64 2f f4 20 20 20  |1 TO 100..d/.   |
00000c00  66 6e 24 20 3d 20 46 4e  73 68 65 6c 6c 5f 47 65  |fn$ = FNshell_Ge|
00000c10  74 57 69 6e 64 6f 77 45  76 65 6e 74 28 31 33 2c  |tWindowEvent(13,|
00000c20  6d 61 69 6e 77 25 29 0d  00 65 34 f4 20 20 20 52  |mainw%)..e4.   R|
00000c30  45 4d 20 66 6e 24 3d 46  4e 73 68 65 6c 6c 5f 47  |EM fn$=FNshell_G|
00000c40  65 74 45 76 65 6e 74 48  61 6e 64 6c 65 72 28 6d  |etEventHandler(m|
00000c50  61 69 6e 77 25 2c 2d 31  2c 34 29 0d 00 66 0d f4  |ainw%,-1,4)..f..|
00000c60  20 4e 45 58 54 20 49 25  0d 00 67 1d f4 20 45 52  | NEXT I%..g.. ER|
00000c70  52 4f 52 20 39 39 2c 53  54 52 24 28 54 49 4d 45  |ROR 99,STR$(TIME|
00000c80  2f 31 30 30 29 0d 00 68  04 0d 00 69 06 3d 30 0d  |/100)..h...i.=0.|
00000c90  00 6a 05 3a 0d 00 6b 24  dd 20 a4 73 68 65 6c 6c  |.j.:..k$. .shell|
00000ca0  5f 47 65 74 57 69 6e 64  6f 77 45 76 65 6e 74 28  |_GetWindowEvent(|
00000cb0  6e 72 25 2c 77 68 25 29  0d 00 6c 09 ea 20 66 6e  |nr%,wh%)..l.. fn|
00000cc0  24 0d 00 6d 31 c8 99 20  26 34 30 30 44 36 2c 77  |$..m1.. &400D6,w|
00000cd0  68 25 2c 5f 73 68 65 6c  6c 5f 62 6c 6b 25 2c 26  |h%,_shell_blk%,&|
00000ce0  30 30 33 46 30 30 30 30  2c 6e 72 25 20 3c 3c 20  |003F0000,nr% << |
00000cf0  31 36 0d 00 6e 1a e7 20  21 5f 73 68 65 6c 6c 5f  |16..n.. !_shell_|
00000d00  62 6c 6b 25 20 3c 3e 20  2d 31 20 8c 0d 00 6f 30  |blk% <> -1 ...o0|
00000d10  20 20 66 6e 24 20 3d 20  a4 73 68 65 6c 6c 5f 49  |  fn$ = .shell_I|
00000d20  63 6f 6e 47 65 74 44 61  74 61 28 77 68 25 2c 21  |conGetData(wh%,!|
00000d30  5f 73 68 65 6c 6c 5f 62  6c 6b 25 29 0d 00 70 05  |_shell_blk%)..p.|
00000d40  cd 0d 00 71 09 3d 20 66  6e 24 0d 00 72 05 3a 0d  |...q.= fn$..r.:.|
00000d50  00 73 04 0d 00 74 46 f4  20 3d 3d 3d 3d 3d 20 43  |.s...tF. ===== C|
00000d60  6c 69 63 6b 5f 41 64 6a  75 73 74 20 72 6f 75 74  |lick_Adjust rout|
00000d70  69 6e 65 73 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |ines ===========|
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 0d 00 75 04 0d 00 76  |=========..u...v|
00000da0  46 f4 20 3d 3d 3d 3d 3d  20 4d 65 6e 75 5f 53 65  |F. ===== Menu_Se|
00000db0  6c 65 63 74 20 72 6f 75  74 69 6e 65 73 20 3d 3d  |lect routines ==|
00000dc0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000de0  3d 3d 3d 0d 00 77 04 0d  00 78 1d dd 20 a4 5f 4d  |===..w...x.. ._M|
00000df0  65 6e 75 53 65 6c 65 63  74 5f 51 75 69 74 28 62  |enuSelect_Quit(b|
00000e00  6c 6b 25 29 0d 00 79 11  5f 63 6c 6f 73 65 64 6f  |lk%)..y._closedo|
00000e10  77 6e 25 3d b9 0d 00 7a  06 3d 30 0d 00 7b 05 3a  |wn%=...z.=0..{.:|
00000e20  0d 00 7c 04 0d 00 7d 46  f4 20 3d 3d 3d 3d 3d 20  |..|...}F. ===== |
00000e30  44 61 74 61 5f 4c 6f 61  64 20 72 6f 75 74 69 6e  |Data_Load routin|
00000e40  65 73 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |es =============|
00000e50  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000e60  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 00 7e 04 0d 00  |==========..~...|
00000e70  7f 2b dd 20 a4 5f 64 61  74 61 6c 6f 61 64 32 30  |.+. ._dataload20|
00000e80  30 28 6c 6f 63 25 2c 74  79 70 65 25 2c 6e 61 6d  |0(loc%,type%,nam|
00000e90  65 24 2c 73 69 7a 65 25  29 0d 00 80 0b ea 20 76  |e$,size%)..... v|
00000ea0  6f 69 64 25 0d 00 81 29  f4 20 70 69 63 6b 20 75  |oid%...). pick u|
00000eb0  70 20 6c 6f 63 61 74 69  6f 6e 20 6f 66 20 6c 6f  |p location of lo|
00000ec0  61 64 65 64 20 66 69 6c  65 2e 2e 2e 2e 0d 00 82  |aded file.......|
00000ed0  6a 76 6f 69 64 25 3d a4  73 68 65 6c 6c 5f 4d 65  |jvoid%=.shell_Me|
00000ee0  73 73 61 67 65 57 69 6e  64 6f 77 28 22 46 69 6c  |ssageWindow("Fil|
00000ef0  65 20 6c 6f 61 64 65 64  20 61 74 20 26 22 2b c3  |e loaded at &"+.|
00000f00  7e 6c 6f 63 25 2b 22 20  54 79 70 65 3d 26 22 2b  |~loc%+" Type=&"+|
00000f10  c3 7e 74 79 70 65 25 2b  22 20 27 22 2b 6e 61 6d  |.~type%+" '"+nam|
00000f20  65 24 2b 22 27 22 2c 30  2c 22 44 61 74 61 4c 6f  |e$+"'",0,"DataLo|
00000f30  61 64 22 2c 22 22 29 0d  00 83 06 3d 30 0d 00 84  |ad","")....=0...|
00000f40  05 3a 0d 00 85 2b dd 20  a4 5f 64 61 74 61 6c 6f  |.:...+. ._datalo|
00000f50  61 64 46 46 46 28 6c 6f  63 25 2c 74 79 70 65 25  |adFFF(loc%,type%|
00000f60  2c 6e 61 6d 65 24 2c 73  69 7a 65 25 29 0d 00 86  |,name$,size%)...|
00000f70  0b ea 20 76 6f 69 64 25  0d 00 87 29 f4 20 70 69  |.. void%...). pi|
00000f80  63 6b 20 75 70 20 6c 6f  63 61 74 69 6f 6e 20 6f  |ck up location o|
00000f90  66 20 6c 6f 61 64 65 64  20 66 69 6c 65 2e 2e 2e  |f loaded file...|
00000fa0  2e 0d 00 88 51 76 6f 69  64 25 3d a4 73 68 65 6c  |....Qvoid%=.shel|
00000fb0  6c 5f 4d 65 73 73 61 67  65 57 69 6e 64 6f 77 28  |l_MessageWindow(|
00000fc0  22 46 69 6c 65 20 27 22  2b 6e 61 6d 65 24 2b 22  |"File '"+name$+"|
00000fd0  27 20 54 79 70 65 3d 26  22 2b c3 7e 74 79 70 65  |' Type=&"+.~type|
00000fe0  25 2c 30 2c 22 44 61 74  61 4c 6f 61 64 22 2c 22  |%,0,"DataLoad","|
00000ff0  22 29 0d 00 89 05 cd 0d  00 8a 06 3d 30 0d 00 8b  |").........=0...|
00001000  05 3a 0d 00 8c 2b dd 20  a4 5f 64 61 74 61 6c 6f  |.:...+. ._datalo|
00001010  61 64 46 45 43 28 6c 6f  63 25 2c 74 79 70 65 25  |adFEC(loc%,type%|
00001020  2c 6e 61 6d 65 24 2c 73  69 7a 65 25 29 0d 00 8d  |,name$,size%)...|
00001030  46 f4 20 6a 75 73 74 20  64 69 73 70 6c 61 79 20  |F. just display |
00001040  61 20 6d 65 73 73 61 67  65 20 2d 20 75 73 65 72  |a message - user|
00001050  20 61 70 70 20 6d 75 73  74 20 61 63 74 75 61 6c  | app must actual|
00001060  6c 79 20 6c 6f 61 64 20  66 69 6c 65 20 68 65 72  |ly load file her|
00001070  65 2e 2e 0d 00 8e 51 76  6f 69 64 25 3d a4 73 68  |e.....Qvoid%=.sh|
00001080  65 6c 6c 5f 4d 65 73 73  61 67 65 57 69 6e 64 6f  |ell_MessageWindo|
00001090  77 28 22 46 69 6c 65 20  27 22 2b 6e 61 6d 65 24  |w("File '"+name$|
000010a0  2b 22 27 20 54 79 70 65  3d 26 22 2b c3 7e 74 79  |+"' Type=&"+.~ty|
000010b0  70 65 25 2c 30 2c 22 44  61 74 61 4c 6f 61 64 22  |pe%,0,"DataLoad"|
000010c0  2c 22 22 29 0d 00 8f 06  3d 30 0d 00 90 05 3a 0d  |,"")....=0....:.|
000010d0  00 91 04 0d 00 92 46 f4  20 3d 3d 3d 3d 3d 20 44  |......F. ===== D|
000010e0  61 74 61 5f 53 61 76 65  20 72 6f 75 74 69 6e 65  |ata_Save routine|
000010f0  73 20 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |s ==============|
00001100  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001110  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 00 93 04 0d 00 94  |=========.......|
00001120  46 f4 20 3d 3d 3d 3d 3d  20 41 70 70 6c 69 63 61  |F. ===== Applica|
00001130  74 69 6f 6e 20 72 6f 75  74 69 6e 65 73 20 3d 3d  |tion routines ==|
00001140  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001160  3d 3d 3d 0d 00 95 04 0d  00 96 1d dd 20 a4 5f 50  |===......... ._P|
00001170  6f 69 6e 74 65 72 45 6e  74 65 72 69 6e 67 5f 4d  |ointerEntering_M|
00001180  61 69 6e 57 0d 00 97 2b  f2 73 68 65 6c 6c 5f 54  |ainW...+.shell_T|
00001190  72 61 63 65 66 30 28 22  50 6f 69 6e 74 65 72 45  |racef0("PointerE|
000011a0  6e 74 65 72 69 6e 67 5f  4d 61 69 6e 57 22 29 0d  |ntering_MainW").|
000011b0  00 98 06 3d 30 0d 00 99  05 3a 0d 00 9a 1c dd 20  |...=0....:..... |
000011c0  a4 5f 50 6f 69 6e 74 65  72 4c 65 61 76 69 6e 67  |._PointerLeaving|
000011d0  5f 4d 61 69 6e 57 0d 00  9b 2a f2 73 68 65 6c 6c  |_MainW...*.shell|
000011e0  5f 54 72 61 63 65 66 30  28 22 50 6f 69 6e 74 65  |_Tracef0("Pointe|
000011f0  72 4c 65 61 76 69 6e 67  5f 4d 61 69 6e 57 22 29  |rLeaving_MainW")|
00001200  0d 00 9c 06 3d 30 0d 00  9d 05 3a 0d 00 9e 26 dd  |....=0....:...&.|
00001210  20 a4 5f 55 73 65 72 52  65 64 72 61 77 5f 4d 61  | ._UserRedraw_Ma|
00001220  69 6e 57 28 62 6c 6b 25  2c 78 30 25 2c 79 30 25  |inW(blk%,x0%,y0%|
00001230  29 0d 00 9f 26 f2 73 68  65 6c 6c 5f 54 72 61 63  |)...&.shell_Trac|
00001240  65 66 30 28 22 55 73 65  72 52 65 64 72 61 77 5f  |ef0("UserRedraw_|
00001250  4d 61 69 6e 57 22 29 0d  00 a0 06 3d 30 0d 00 a1  |MainW")....=0...|
00001260  05 3a 0d 00 a2 04 0d 00  a3 46 f4 20 3d 3d 3d 3d  |.:.......F. ====|
00001270  3d 20 45 6e 64 20 6f 66  20 75 73 65 72 20 61 70  |= End of user ap|
00001280  70 6c 69 63 61 74 69 6f  6e 20 3d 3d 3d 3d 3d 3d  |plication ======|
00001290  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000012a0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 00 a4 04  |============....|
000012b0  0d 00 a5 4a f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |...J. ==========|
000012c0  3d 3d 3d 3d 3d 3d 3d 3d  3d 20 52 6f 75 74 69 6e  |========= Routin|
000012d0  65 73 20 74 6f 20 67 6f  20 69 6e 20 74 68 65 20  |es to go in the |
000012e0  6c 69 62 72 61 72 79 20  3d 3d 3d 3d 3d 3d 3d 3d  |library ========|
000012f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 00 a6 05 3a 0d  |==========....:.|
00001300  ff                                                |.|
00001301