Home » Archimedes archive » Acorn Computing » 1994 08 subscription disc.adf » 9408s » Shareware/Event/Documents/!EShellDoc/!RunImage/Chapter8/Text
Shareware/Event/Documents/!EShellDoc/!RunImage/Chapter8/Text
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/Documents/!EShellDoc/!RunImage/Chapter8/Text |
| Read OK: | ✔ |
| File size: | 15B4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
h � �P R<�7A�������5 {� � � Loading Fileses�
P -( R G��'3�� " {�
(
l pT���� " {� This is achieved by a call to PROCshell_AttachDataLoad which tells the l
t p�Ǔ����� " {� EvntShell library which filetypes the user application is interested in and the t
p �o�[��g��� " {� name of a function to call when a load event occurs. Multiple files may be p
x ��G#��'R�� " {� loaded, but in the current release of the library it is up to the user application x
p ������ " {� to keep track of where they are loaded and if they have been modified. This p -H R�bDz���� " aZ will change in a future release.
H -( R �z��g��� " aZ
(
� x�GB��'q�� " aZ If required the files can be loaded automatically into a reserved block of memory, or the user � -p R�I
���8�� " aZ application can have total control over loading and processing the file.
p -( R ���� �� " aZ
(
� H�����g�� " aZ The EvntShell library supports RAM file transfer for speed when loading data from consenting �
� PGa��'��� " aZ applications. It is also possible to arrange for the user application to respond to a range of filetypes � -H RX�)���W�� " aZ by attaching more than one handler.
H -( R �� �� " aZ
(
� (L����g� " � aZ An example application !DataLoad should have been included with the Library to demonstrate how � -0 R<� G���'��� " � aZ to do this.
0 -( R H���v�� " � aZ
( -( R ����>�� " � aZ
( -D R�}��g��� � aZ Z �
�} �
D -( R ����� " � aZ
( -\ Rt�Dž������ " � aZ This is the code from !DataLoad used to achieve this :
\ �4 R �M��g|�� " � aZ
�
�
4 -` R�f ��'D��p � �W aZ PROCshell_AttachDataLoad(mainw%,0,&FEC,�_dataloadFEC�,TRUE)
` �0 R 7�G��p � �W aZ
�
0
� �'����g� " � aZ The first parameter, mainw% is the wimp window handle, the second is the icon handle. &FEC is �
� 8?G��'��� " � aZ the filetype to respond to and '_dataloadFEC' is the name of the function to call to actually load the �
� �+G���u�� " � aZ file. The last parameter is TRUE to load the file automatically into a reserved block of memory or �
� �V����=�� " � aZ FALSE if you want to handle the loading yourself. In this case loading is automatic and the loading � -8 R�_���g�� " � aZ function is simply:
8 �4 R G���'�� " � aZ
�
�
4 -T R�M�m����p � �W aZ DEF FN_dataloadFEC(loc%,type%,name$,file_size%)
T -d R���>��f��p � �W aZ void%=FNshell_MessageWindow(�File ��+name$+"'",0,�DataLoad�,��)
d -( R�. ��'7��p � �W aZ =0
( �0 R 7�G��p � �W aZ
�
0 �� �L����g�� " � aZ The data file (of type &FEC, template) has been loaded at location on �
�
loc%oc%�
, its type is in in�
�
type%pe�
and � �� ,Gr��'��� " � aZ the full path name of the file is in in�
�
name$. �
All the function itself does is call another function to �
� ��:���h�� " � aZ display a message window so that you can see that loading the file has worked. This is a useful � -< R|�����0�� " � aZ debugging technique!
< � % B �X�և� " �
�� � �O� " �This method of loading a file works well for datafiles that are stored as one continuous co�
�
�
block of � | �Av��V� " �data such as a text file which will be processed in some way. Suppose, however, you have a simple | x ��6���� " �database type application which needs to load data into BASIC arrays. In this case you would x %H B���w�֦� " �simply use (assuming now the filetype is &205):
H �( B �?�n� " �
� �
�
( �p B@~F�V6�p �PROCshell_AttachDataLoad(mainw%,0,&205,�_dataload205�,FALSE)
05 �
E)�
�
p % B ���v� �
�x d�V��6�� �FN_dataload205 �
receives the full pathname of the file which has been dragged to icon 0 x | Th��� " �(providing the filetype of the file was &205, otherwise the load will be ignored) which may now be | | �/�^� " �opened and the data loaded as usual. If the �no load� flag was set for this load event and the load | | ����v&� " �was from another application the data is saved in a file called �ScrapFile� in the user application | %$ B� V��6�� " �directory.
$ % B ���� " �
% B �N�}� " �
yV4� � f � �h B�`��1<��) f f f � f � Loading Filese� f f
h yV4� � f � �h B�`��<��) �f f f � f � Loading Filesle� f f
h yV4� � ! �T \5�����" ! ! This window contains a 'load target' icon T �T CP4��������" upon which a file can be dropped to load it.ca!
T yV4 00000000 68 13 00 00 01 00 00 00 00 00 00 00 06 08 00 00 |h...............|
00000010 00 08 00 00 01 10 00 00 00 00 00 00 00 00 00 00 |................|
00000020 00 10 00 00 02 18 00 00 10 01 00 00 00 00 00 00 |................|
00000030 01 b7 0c 00 00 00 00 00 00 18 00 00 ad 50 00 00 |.............P..|
00000040 52 3c c5 01 37 41 fe ff 87 87 fe ff dc 35 00 02 |R<..7A.......5..|
00000050 15 00 00 00 20 03 00 00 7b a7 05 00 07 05 05 05 |.... ...{.......|
00000060 01 b7 0c 00 01 b7 0c 00 00 00 00 00 4c 6f 61 64 |............Load|
00000070 69 6e 67 20 46 69 6c 65 73 08 65 73 01 b7 0c 00 |ing Files.es....|
00000080 00 00 00 00 0d 00 00 00 00 50 00 00 2d 28 00 00 |.........P..-(..|
00000090 52 00 00 00 47 04 fe ff 27 33 fe ff 20 22 00 02 |R...G...'3.. "..|
000000a0 15 00 00 00 20 03 00 00 7b a7 05 00 0d 00 00 00 |.... ...{.......|
000000b0 00 28 00 00 0d 6c 00 00 10 70 54 05 07 cc fd ff |.(...l...pT.....|
000000c0 e7 fa fd ff 20 22 00 02 15 00 00 00 20 03 00 00 |.... "...... ...|
000000d0 7b a7 05 00 54 68 69 73 20 69 73 20 61 63 68 69 |{...This is achi|
000000e0 65 76 65 64 20 62 79 20 61 20 63 61 6c 6c 20 74 |eved by a call t|
000000f0 6f 20 50 52 4f 43 73 68 65 6c 6c 5f 41 74 74 61 |o PROCshell_Atta|
00000100 63 68 44 61 74 61 4c 6f 61 64 20 77 68 69 63 68 |chDataLoad which|
00000110 20 74 65 6c 6c 73 20 74 68 65 20 00 00 6c 00 00 | tells the ..l..|
00000120 0d 74 00 00 10 70 99 05 c7 93 fd ff a7 c2 fd ff |.t...p..........|
00000130 20 22 00 00 15 00 00 00 00 00 00 00 7b a7 05 00 | "..........{...|
00000140 45 76 6e 74 53 68 65 6c 6c 20 6c 69 62 72 61 72 |EvntShell librar|
00000150 79 20 77 68 69 63 68 20 66 69 6c 65 74 79 70 65 |y which filetype|
00000160 73 20 74 68 65 20 75 73 65 72 20 61 70 70 6c 69 |s the user appli|
00000170 63 61 74 69 6f 6e 20 69 73 20 69 6e 74 65 72 65 |cation is intere|
00000180 73 74 65 64 20 69 6e 20 61 6e 64 20 74 68 65 20 |sted in and the |
00000190 00 74 00 00 0d 70 00 00 10 ac 6f 05 87 5b fd ff |.t...p....o..[..|
000001a0 67 8a fd ff 20 22 00 00 15 00 00 00 00 00 00 00 |g... "..........|
000001b0 7b a7 05 00 6e 61 6d 65 20 6f 66 20 61 20 66 75 |{...name of a fu|
000001c0 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 77 |nction to call w|
000001d0 68 65 6e 20 61 20 6c 6f 61 64 20 65 76 65 6e 74 |hen a load event|
000001e0 20 6f 63 63 75 72 73 2e 20 4d 75 6c 74 69 70 6c | occurs. Multipl|
000001f0 65 20 66 69 6c 65 73 20 6d 61 79 20 62 65 20 00 |e files may be .|
00000200 00 70 00 00 0d 78 00 00 10 a8 9a 05 47 23 fd ff |.p...x......G#..|
00000210 27 52 fd ff 20 22 00 00 15 00 00 00 00 00 00 00 |'R.. "..........|
00000220 7b a7 05 00 6c 6f 61 64 65 64 2c 20 62 75 74 20 |{...loaded, but |
00000230 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 |in the current r|
00000240 65 6c 65 61 73 65 20 6f 66 20 74 68 65 20 6c 69 |elease of the li|
00000250 62 72 61 72 79 20 69 74 20 69 73 20 75 70 20 74 |brary it is up t|
00000260 6f 20 74 68 65 20 75 73 65 72 20 61 70 70 6c 69 |o the user appli|
00000270 63 61 74 69 6f 6e 20 00 00 78 00 00 0d 70 00 00 |cation ..x...p..|
00000280 10 98 89 05 07 eb fc ff e7 19 fd ff 20 22 00 00 |............ "..|
00000290 15 00 00 00 00 00 00 00 7b a7 05 00 74 6f 20 6b |........{...to k|
000002a0 65 65 70 20 74 72 61 63 6b 20 6f 66 20 77 68 65 |eep track of whe|
000002b0 72 65 20 74 68 65 79 20 61 72 65 20 6c 6f 61 64 |re they are load|
000002c0 65 64 20 61 6e 64 20 69 66 20 74 68 65 79 20 68 |ed and if they h|
000002d0 61 76 65 20 62 65 65 6e 20 6d 6f 64 69 66 69 65 |ave been modifie|
000002e0 64 2e 20 54 68 69 73 20 00 70 00 00 2d 48 00 00 |d. This .p..-H..|
000002f0 52 80 62 02 c7 b2 fc ff a7 e1 fc ff 20 22 00 00 |R.b......... "..|
00000300 15 00 00 00 00 00 00 00 61 5a 07 00 77 69 6c 6c |........aZ..will|
00000310 20 63 68 61 6e 67 65 20 69 6e 20 61 20 66 75 74 | change in a fut|
00000320 75 72 65 20 72 65 6c 65 61 73 65 2e 20 20 20 0d |ure release. .|
00000330 00 48 00 00 2d 28 00 00 52 00 00 00 87 7a fc ff |.H..-(..R....z..|
00000340 67 a9 fc ff 20 22 00 02 15 00 00 00 20 03 00 00 |g... "...... ...|
00000350 61 5a 07 00 0d 00 00 00 00 28 00 00 0d 84 00 00 |aZ.......(......|
00000360 10 78 cc 06 47 42 fc ff 27 71 fc ff 20 22 00 02 |.x..GB..'q.. "..|
00000370 15 00 00 00 20 03 00 00 61 5a 07 00 49 66 20 72 |.... ...aZ..If r|
00000380 65 71 75 69 72 65 64 20 74 68 65 20 66 69 6c 65 |equired the file|
00000390 73 20 63 61 6e 20 62 65 20 6c 6f 61 64 65 64 20 |s can be loaded |
000003a0 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 6e |automatically in|
000003b0 74 6f 20 61 20 72 65 73 65 72 76 65 64 20 62 6c |to a reserved bl|
000003c0 6f 63 6b 20 6f 66 20 6d 65 6d 6f 72 79 2c 20 6f |ock of memory, o|
000003d0 72 20 74 68 65 20 75 73 65 72 20 00 00 84 00 00 |r the user .....|
000003e0 2d 70 00 00 52 f0 49 05 07 0a fc ff e7 38 fc ff |-p..R.I......8..|
000003f0 20 22 00 00 15 00 00 00 00 00 00 00 61 5a 07 00 | "..........aZ..|
00000400 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 61 6e 20 |application can |
00000410 68 61 76 65 20 74 6f 74 61 6c 20 63 6f 6e 74 72 |have total contr|
00000420 6f 6c 20 6f 76 65 72 20 6c 6f 61 64 69 6e 67 20 |ol over loading |
00000430 61 6e 64 20 70 72 6f 63 65 73 73 69 6e 67 20 74 |and processing t|
00000440 68 65 20 66 69 6c 65 2e 20 20 20 0d 00 70 00 00 |he file. ..p..|
00000450 2d 28 00 00 52 00 00 00 c7 d1 fb ff a7 00 fc ff |-(..R...........|
00000460 20 22 00 02 15 00 00 00 20 03 00 00 61 5a 07 00 | "...... ...aZ..|
00000470 0d 00 00 00 00 28 00 00 0d 84 00 00 10 48 f6 06 |.....(.......H..|
00000480 87 99 fb ff 67 c8 fb ff 20 22 00 02 15 00 00 00 |....g... "......|
00000490 20 03 00 00 61 5a 07 00 54 68 65 20 45 76 6e 74 | ...aZ..The Evnt|
000004a0 53 68 65 6c 6c 20 6c 69 62 72 61 72 79 20 73 75 |Shell library su|
000004b0 70 70 6f 72 74 73 20 52 41 4d 20 66 69 6c 65 20 |pports RAM file |
000004c0 74 72 61 6e 73 66 65 72 20 66 6f 72 20 73 70 65 |transfer for spe|
000004d0 65 64 20 77 68 65 6e 20 6c 6f 61 64 69 6e 67 20 |ed when loading |
000004e0 64 61 74 61 20 66 72 6f 6d 20 63 6f 6e 73 65 6e |data from consen|
000004f0 74 69 6e 67 20 00 00 00 00 84 00 00 0d 90 00 00 |ting ...........|
00000500 10 18 50 07 47 61 fb ff 27 90 fb ff 20 22 00 00 |..P.Ga..'... "..|
00000510 15 00 00 00 00 00 00 00 61 5a 07 00 61 70 70 6c |........aZ..appl|
00000520 69 63 61 74 69 6f 6e 73 2e 20 20 20 49 74 20 69 |ications. It i|
00000530 73 20 61 6c 73 6f 20 70 6f 73 73 69 62 6c 65 20 |s also possible |
00000540 74 6f 20 61 72 72 61 6e 67 65 20 66 6f 72 20 74 |to arrange for t|
00000550 68 65 20 75 73 65 72 20 61 70 70 6c 69 63 61 74 |he user applicat|
00000560 69 6f 6e 20 74 6f 20 72 65 73 70 6f 6e 64 20 74 |ion to respond t|
00000570 6f 20 61 20 72 61 6e 67 65 20 6f 66 20 66 69 6c |o a range of fil|
00000580 65 74 79 70 65 73 20 00 00 90 00 00 2d 48 00 00 |etypes .....-H..|
00000590 52 58 a2 02 07 29 fb ff e7 57 fb ff 20 22 00 00 |RX...)...W.. "..|
000005a0 15 00 00 00 00 00 00 00 61 5a 07 00 62 79 20 61 |........aZ..by a|
000005b0 74 74 61 63 68 69 6e 67 20 6d 6f 72 65 20 74 68 |ttaching more th|
000005c0 61 6e 20 6f 6e 65 20 68 61 6e 64 6c 65 72 2e 0d |an one handler..|
000005d0 00 48 00 00 2d 28 00 00 52 00 00 00 c7 f0 fa ff |.H..-(..R.......|
000005e0 a7 1f fb ff 20 22 00 02 15 00 00 00 20 03 00 00 |.... "...... ...|
000005f0 61 5a 07 00 0d 00 00 00 00 28 00 00 0d 84 00 00 |aZ.......(......|
00000600 10 28 4c 07 87 b8 fa ff 67 e7 fa ff 20 22 00 f2 |.(L.....g... "..|
00000610 15 00 00 00 20 03 00 00 61 5a 07 00 41 6e 20 65 |.... ...aZ..An e|
00000620 78 61 6d 70 6c 65 20 61 70 70 6c 69 63 61 74 69 |xample applicati|
00000630 6f 6e 20 21 44 61 74 61 4c 6f 61 64 20 73 68 6f |on !DataLoad sho|
00000640 75 6c 64 20 68 61 76 65 20 62 65 65 6e 20 69 6e |uld have been in|
00000650 63 6c 75 64 65 64 20 77 69 74 68 20 74 68 65 20 |cluded with the |
00000660 4c 69 62 72 61 72 79 20 74 6f 20 64 65 6d 6f 6e |Library to demon|
00000670 73 74 72 61 74 65 20 68 6f 77 20 00 00 84 00 00 |strate how .....|
00000680 2d 30 00 00 52 3c ba 00 47 80 fa ff 27 af fa ff |-0..R<..G...'...|
00000690 20 22 00 f0 15 00 00 00 00 00 00 00 61 5a 07 00 | "..........aZ..|
000006a0 74 6f 20 64 6f 20 74 68 69 73 2e 0d 00 30 00 00 |to do this...0..|
000006b0 2d 28 00 00 52 00 00 00 07 48 fa ff e7 76 fa ff |-(..R....H...v..|
000006c0 20 22 00 f2 15 00 00 00 20 03 00 00 61 5a 07 00 | "...... ...aZ..|
000006d0 0d 00 00 00 00 28 00 00 2d 28 00 00 52 00 00 00 |.....(..-(..R...|
000006e0 c7 0f fa ff a7 3e fa ff 20 22 00 f2 15 00 00 00 |.....>.. "......|
000006f0 20 03 00 00 61 5a 07 00 0d 00 00 00 00 28 00 00 | ...aZ.......(..|
00000700 2d 44 00 00 52 80 7d 02 e7 ec f8 ff 67 06 fa ff |-D..R.}.....g...|
00000710 c0 0c 01 f2 15 00 00 00 20 03 00 00 61 5a 07 00 |........ ...aZ..|
00000720 13 5a 07 00 18 00 00 00 01 00 00 00 00 00 00 00 |.Z..............|
00000730 df 0a 00 00 80 7d 02 00 c0 0c 01 00 0d 00 00 00 |.....}..........|
00000740 00 44 00 00 2d 28 00 00 52 00 00 00 07 be f8 ff |.D..-(..R.......|
00000750 e7 ec f8 ff 20 22 00 f2 15 00 00 00 20 03 00 00 |.... "...... ...|
00000760 61 5a 07 00 0d 00 00 00 00 28 00 00 2d 5c 00 00 |aZ.......(..-\..|
00000770 52 74 f7 03 c7 85 f8 ff a7 b4 f8 ff 20 22 00 f2 |Rt.......... "..|
00000780 15 00 00 00 20 03 00 00 61 5a 07 00 54 68 69 73 |.... ...aZ..This|
00000790 20 69 73 20 74 68 65 20 63 6f 64 65 20 66 72 6f | is the code fro|
000007a0 6d 20 21 44 61 74 61 4c 6f 61 64 20 75 73 65 64 |m !DataLoad used|
000007b0 20 74 6f 20 61 63 68 69 65 76 65 20 74 68 69 73 | to achieve this|
000007c0 20 3a 0d 00 00 5c 00 00 ad 34 00 00 52 00 00 00 | :...\...4..R...|
000007d0 87 4d f8 ff 67 7c f8 ff 20 22 00 f2 15 00 00 00 |.M..g|.. "......|
000007e0 20 03 00 00 61 5a 07 00 0d 07 07 00 1c e1 0a 00 | ...aZ..........|
000007f0 1c e1 0a 00 00 00 00 00 00 34 00 00 2d 60 00 00 |.........4..-`..|
00000800 52 d0 66 05 17 1d f8 ff 27 44 f8 ff 70 1a 00 f2 |R.f.....'D..p...|
00000810 15 00 00 00 80 57 00 00 61 5a 07 00 50 52 4f 43 |.....W..aZ..PROC|
00000820 73 68 65 6c 6c 5f 41 74 74 61 63 68 44 61 74 61 |shell_AttachData|
00000830 4c 6f 61 64 28 6d 61 69 6e 77 25 2c 30 2c 26 46 |Load(mainw%,0,&F|
00000840 45 43 2c 94 5f 64 61 74 61 6c 6f 61 64 46 45 43 |EC,._dataloadFEC|
00000850 95 2c 54 52 55 45 29 0d 00 60 00 00 ad 30 00 00 |.,TRUE)..`...0..|
00000860 52 00 00 00 37 ee f7 ff 47 15 f8 ff 70 1a 00 f2 |R...7...G...p...|
00000870 15 00 00 00 80 57 00 00 61 5a 07 00 0d 08 07 00 |.....W..aZ......|
00000880 1c e1 0a 00 00 00 00 00 00 30 00 00 0d 84 00 00 |.........0......|
00000890 10 d4 27 07 87 b7 f7 ff 67 e6 f7 ff 20 22 00 f2 |..'.....g... "..|
000008a0 15 00 00 00 20 03 00 00 61 5a 07 00 54 68 65 20 |.... ...aZ..The |
000008b0 66 69 72 73 74 20 70 61 72 61 6d 65 74 65 72 2c |first parameter,|
000008c0 20 6d 61 69 6e 77 25 20 69 73 20 74 68 65 20 77 | mainw% is the w|
000008d0 69 6d 70 20 77 69 6e 64 6f 77 20 68 61 6e 64 6c |imp window handl|
000008e0 65 2c 20 74 68 65 20 73 65 63 6f 6e 64 20 69 73 |e, the second is|
000008f0 20 74 68 65 20 69 63 6f 6e 20 68 61 6e 64 6c 65 | the icon handle|
00000900 2e 20 26 46 45 43 20 69 73 20 00 00 00 84 00 00 |. &FEC is ......|
00000910 0d 8c 00 00 10 38 3f 07 47 7f f7 ff 27 ae f7 ff |.....8?.G...'...|
00000920 20 22 00 f0 15 00 00 00 00 00 00 00 61 5a 07 00 | "..........aZ..|
00000930 74 68 65 20 66 69 6c 65 74 79 70 65 20 74 6f 20 |the filetype to |
00000940 72 65 73 70 6f 6e 64 20 74 6f 20 61 6e 64 20 27 |respond to and '|
00000950 5f 64 61 74 61 6c 6f 61 64 46 45 43 27 20 69 73 |_dataloadFEC' is|
00000960 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 | the name of the|
00000970 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c | function to cal|
00000980 6c 20 74 6f 20 61 63 74 75 61 6c 6c 79 20 6c 6f |l to actually lo|
00000990 61 64 20 74 68 65 20 00 00 8c 00 00 0d 88 00 00 |ad the .........|
000009a0 10 a0 2b 07 07 47 f7 ff e7 75 f7 ff 20 22 00 f0 |..+..G...u.. "..|
000009b0 15 00 00 00 00 00 00 00 61 5a 07 00 66 69 6c 65 |........aZ..file|
000009c0 2e 20 54 68 65 20 6c 61 73 74 20 70 61 72 61 6d |. The last param|
000009d0 65 74 65 72 20 69 73 20 54 52 55 45 20 74 6f 20 |eter is TRUE to |
000009e0 6c 6f 61 64 20 74 68 65 20 66 69 6c 65 20 61 75 |load the file au|
000009f0 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 6e 74 6f |tomatically into|
00000a00 20 61 20 72 65 73 65 72 76 65 64 20 62 6c 6f 63 | a reserved bloc|
00000a10 6b 20 6f 66 20 6d 65 6d 6f 72 79 20 6f 72 20 00 |k of memory or .|
00000a20 00 88 00 00 0d 8c 00 00 10 c0 56 07 c7 0e f7 ff |..........V.....|
00000a30 a7 3d f7 ff 20 22 00 f0 15 00 00 00 00 00 00 00 |.=.. "..........|
00000a40 61 5a 07 00 46 41 4c 53 45 20 20 69 66 20 79 6f |aZ..FALSE if yo|
00000a50 75 20 77 61 6e 74 20 74 6f 20 68 61 6e 64 6c 65 |u want to handle|
00000a60 20 74 68 65 20 6c 6f 61 64 69 6e 67 20 79 6f 75 | the loading you|
00000a70 72 73 65 6c 66 2e 20 49 6e 20 74 68 69 73 20 63 |rself. In this c|
00000a80 61 73 65 20 6c 6f 61 64 69 6e 67 20 69 73 20 61 |ase loading is a|
00000a90 75 74 6f 6d 61 74 69 63 20 61 6e 64 20 74 68 65 |utomatic and the|
00000aa0 20 6c 6f 61 64 69 6e 67 20 00 00 00 00 8c 00 00 | loading .......|
00000ab0 2d 38 00 00 52 9c 5f 01 87 d6 f6 ff 67 05 f7 ff |-8..R._.....g...|
00000ac0 20 22 00 f0 15 00 00 00 00 00 00 00 61 5a 07 00 | "..........aZ..|
00000ad0 66 75 6e 63 74 69 6f 6e 20 69 73 20 73 69 6d 70 |function is simp|
00000ae0 6c 79 3a 0d 00 38 00 00 ad 34 00 00 52 00 00 00 |ly:..8...4..R...|
00000af0 47 9e f6 ff 27 cd f6 ff 20 22 00 f2 15 00 00 00 |G...'... "......|
00000b00 20 03 00 00 61 5a 07 00 0d 07 07 00 1c e2 0a 00 | ...aZ..........|
00000b10 1c e2 0a 00 00 00 00 00 00 34 00 00 2d 54 00 00 |.........4..-T..|
00000b20 52 90 4d 04 d7 6d f6 ff e7 94 f6 ff 70 1a 00 f2 |R.M..m......p...|
00000b30 15 00 00 00 80 57 00 00 61 5a 07 00 44 45 46 20 |.....W..aZ..DEF |
00000b40 46 4e 5f 64 61 74 61 6c 6f 61 64 46 45 43 28 6c |FN_dataloadFEC(l|
00000b50 6f 63 25 2c 74 79 70 65 25 2c 6e 61 6d 65 24 2c |oc%,type%,name$,|
00000b60 66 69 6c 65 5f 73 69 7a 65 25 29 0d 00 54 00 00 |file_size%)..T..|
00000b70 2d 64 00 00 52 90 c4 05 f7 3e f6 ff 07 66 f6 ff |-d..R....>...f..|
00000b80 70 1a 00 f2 15 00 00 00 80 57 00 00 61 5a 07 00 |p........W..aZ..|
00000b90 76 6f 69 64 25 3d 46 4e 73 68 65 6c 6c 5f 4d 65 |void%=FNshell_Me|
00000ba0 73 73 61 67 65 57 69 6e 64 6f 77 28 94 46 69 6c |ssageWindow(.Fil|
00000bb0 65 20 90 94 2b 6e 61 6d 65 24 2b 22 27 22 2c 30 |e ..+name$+"'",0|
00000bc0 2c 94 44 61 74 61 4c 6f 61 64 95 2c 94 95 29 0d |,.DataLoad.,..).|
00000bd0 00 64 00 00 2d 28 00 00 52 e0 2e 00 17 10 f6 ff |.d..-(..R.......|
00000be0 27 37 f6 ff 70 1a 00 f2 15 00 00 00 80 57 00 00 |'7..p........W..|
00000bf0 61 5a 07 00 3d 30 0d 00 00 28 00 00 ad 30 00 00 |aZ..=0...(...0..|
00000c00 52 00 00 00 37 e1 f5 ff 47 08 f6 ff 70 1a 00 f2 |R...7...G...p...|
00000c10 15 00 00 00 80 57 00 00 61 5a 07 00 0d 08 07 00 |.....W..aZ......|
00000c20 1c e2 0a 00 00 00 00 00 00 30 00 00 8d c0 00 00 |.........0......|
00000c30 12 d0 4c 07 87 aa f5 ff 67 d9 f5 ff 20 22 00 f2 |..L.....g... "..|
00000c40 15 00 00 00 20 03 00 00 61 5a 07 00 54 68 65 20 |.... ...aZ..The |
00000c50 64 61 74 61 20 66 69 6c 65 20 28 6f 66 20 74 79 |data file (of ty|
00000c60 70 65 20 26 46 45 43 2c 20 74 65 6d 70 6c 61 74 |pe &FEC, templat|
00000c70 65 29 20 20 68 61 73 20 62 65 65 6e 20 6c 6f 61 |e) has been loa|
00000c80 64 65 64 20 61 74 20 6c 6f 63 61 74 69 6f 6e 20 |ded at location |
00000c90 07 6f 6e 20 1a e3 0a 00 1a e3 0a 00 00 00 00 00 |.on ............|
00000ca0 6c 6f 63 25 08 6f 63 25 1a e3 0a 00 00 00 00 00 |loc%.oc%........|
00000cb0 2c 20 69 74 73 20 74 79 70 65 20 69 73 20 69 6e |, its type is in|
00000cc0 20 07 69 6e 1a e4 0a 00 1a e4 0a 00 00 00 00 00 | .in............|
00000cd0 74 79 70 65 25 08 70 65 1a e4 0a 00 00 00 00 00 |type%.pe........|
00000ce0 20 61 6e 64 20 20 00 00 00 c0 00 00 8d a4 00 00 | and ..........|
00000cf0 12 0c 2c 07 47 72 f5 ff 27 a1 f5 ff 20 22 00 f0 |..,.Gr..'... "..|
00000d00 15 00 00 00 00 00 00 00 61 5a 07 00 74 68 65 20 |........aZ..the |
00000d10 66 75 6c 6c 20 70 61 74 68 20 6e 61 6d 65 20 6f |full path name o|
00000d20 66 20 74 68 65 20 66 69 6c 65 20 69 73 20 69 6e |f the file is in|
00000d30 20 07 69 6e 1a e5 0a 00 1a e5 0a 00 00 00 00 00 | .in............|
00000d40 6e 61 6d 65 24 2e 20 08 1a e5 0a 00 00 00 00 00 |name$. .........|
00000d50 41 6c 6c 20 74 68 65 20 66 75 6e 63 74 69 6f 6e |All the function|
00000d60 20 69 74 73 65 6c 66 20 64 6f 65 73 20 69 73 20 | itself does is |
00000d70 63 61 6c 6c 20 20 61 6e 6f 74 68 65 72 20 66 75 |call another fu|
00000d80 6e 63 74 69 6f 6e 20 74 6f 20 00 00 00 a4 00 00 |nction to ......|
00000d90 0d 84 00 00 10 b4 f3 06 07 3a f5 ff e7 68 f5 ff |.........:...h..|
00000da0 20 22 00 f0 15 00 00 00 00 00 00 00 61 5a 07 00 | "..........aZ..|
00000db0 64 69 73 70 6c 61 79 20 61 20 6d 65 73 73 61 67 |display a messag|
00000dc0 65 20 77 69 6e 64 6f 77 20 73 6f 20 74 68 61 74 |e window so that|
00000dd0 20 79 6f 75 20 63 61 6e 20 73 65 65 20 74 68 61 | you can see tha|
00000de0 74 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 66 69 |t loading the fi|
00000df0 6c 65 20 68 61 73 20 77 6f 72 6b 65 64 2e 20 54 |le has worked. T|
00000e00 68 69 73 20 69 73 20 61 20 75 73 65 66 75 6c 20 |his is a useful |
00000e10 00 84 00 00 2d 3c 00 00 52 7c 97 01 c7 01 f5 ff |....-<..R|......|
00000e20 a7 30 f5 ff 20 22 00 f0 15 00 00 00 00 00 00 00 |.0.. "..........|
00000e30 61 5a 07 00 64 65 62 75 67 67 69 6e 67 20 74 65 |aZ..debugging te|
00000e40 63 68 6e 69 71 75 65 21 0d 00 00 00 00 3c 00 00 |chnique!.....<..|
00000e50 01 10 00 00 00 00 00 00 00 00 00 00 00 10 00 00 |................|
00000e60 02 14 00 00 8c 04 00 00 00 00 00 00 00 00 00 00 |................|
00000e70 00 14 00 00 25 1c 00 00 42 00 00 00 f6 58 f1 ff |....%...B....X..|
00000e80 d6 87 f1 ff 20 22 00 f2 0d 00 00 00 00 1c 00 00 |.... "..........|
00000e90 85 98 00 00 02 18 11 07 b6 20 f1 ff 96 4f f1 ff |......... ...O..|
00000ea0 20 22 00 f2 54 68 69 73 20 6d 65 74 68 6f 64 20 | "..This method |
00000eb0 6f 66 20 6c 6f 61 64 69 6e 67 20 61 20 66 69 6c |of loading a fil|
00000ec0 65 20 77 6f 72 6b 73 20 77 65 6c 6c 20 66 6f 72 |e works well for|
00000ed0 20 64 61 74 61 66 69 6c 65 73 20 74 68 61 74 20 | datafiles that |
00000ee0 61 72 65 20 73 74 6f 72 65 64 20 61 73 20 6f 6e |are stored as on|
00000ef0 65 20 63 6f 6e 74 69 6e 75 6f 75 73 07 20 63 6f |e continuous. co|
00000f00 1a e5 0a 00 1a e5 0a 00 00 00 00 00 20 08 0a 00 |............ ...|
00000f10 1a e5 0a 00 00 00 00 00 62 6c 6f 63 6b 20 6f 66 |........block of|
00000f20 20 00 00 00 00 98 00 00 05 7c 00 00 00 c0 41 07 | ........|....A.|
00000f30 76 e8 f0 ff 56 17 f1 ff 20 22 00 f0 64 61 74 61 |v...V... "..data|
00000f40 20 73 75 63 68 20 61 73 20 61 20 74 65 78 74 20 | such as a text |
00000f50 66 69 6c 65 20 77 68 69 63 68 20 77 69 6c 6c 20 |file which will |
00000f60 62 65 20 70 72 6f 63 65 73 73 65 64 20 69 6e 20 |be processed in |
00000f70 73 6f 6d 65 20 77 61 79 2e 20 53 75 70 70 6f 73 |some way. Suppos|
00000f80 65 2c 20 68 6f 77 65 76 65 72 2c 20 79 6f 75 20 |e, however, you |
00000f90 68 61 76 65 20 61 20 73 69 6d 70 6c 65 20 00 00 |have a simple ..|
00000fa0 00 7c 00 00 05 78 00 00 00 f4 da 06 36 b0 f0 ff |.|...x......6...|
00000fb0 16 df f0 ff 20 22 00 f0 64 61 74 61 62 61 73 65 |.... "..database|
00000fc0 20 74 79 70 65 20 61 70 70 6c 69 63 61 74 69 6f | type applicatio|
00000fd0 6e 20 77 68 69 63 68 20 6e 65 65 64 73 20 74 6f |n which needs to|
00000fe0 20 6c 6f 61 64 20 64 61 74 61 20 69 6e 74 6f 20 | load data into |
00000ff0 42 41 53 49 43 20 61 72 72 61 79 73 2e 20 49 6e |BASIC arrays. In|
00001000 20 74 68 69 73 20 63 61 73 65 20 79 6f 75 20 77 | this case you w|
00001010 6f 75 6c 64 20 00 00 00 00 78 00 00 25 48 00 00 |ould ....x..%H..|
00001020 42 c0 90 03 f6 77 f0 ff d6 a6 f0 ff 20 22 00 f0 |B....w...... "..|
00001030 73 69 6d 70 6c 79 20 75 73 65 20 28 61 73 73 75 |simply use (assu|
00001040 6d 69 6e 67 20 6e 6f 77 20 74 68 65 20 66 69 6c |ming now the fil|
00001050 65 74 79 70 65 20 69 73 20 26 32 30 35 29 3a 0d |etype is &205):.|
00001060 00 48 00 00 a5 28 00 00 42 00 00 00 b6 3f f0 ff |.H...(..B....?..|
00001070 96 6e f0 ff 20 22 00 f2 0d 07 06 ff 1c e1 0a 00 |.n.. "..........|
00001080 1c e1 0a 00 00 00 00 00 00 28 00 00 a5 70 00 00 |.........(...p..|
00001090 42 40 7e 05 46 0f f0 ff 56 36 f0 ff 70 1a 00 f2 |B@~.F...V6..p...|
000010a0 50 52 4f 43 73 68 65 6c 6c 5f 41 74 74 61 63 68 |PROCshell_Attach|
000010b0 44 61 74 61 4c 6f 61 64 28 6d 61 69 6e 77 25 2c |DataLoad(mainw%,|
000010c0 30 2c 26 32 30 35 2c 94 5f 64 61 74 61 6c 6f 61 |0,&205,._dataloa|
000010d0 64 32 30 35 95 2c 46 41 4c 53 45 29 0d 08 30 35 |d205.,FALSE)..05|
000010e0 1c e1 0a 00 00 00 00 00 07 08 45 29 1a e5 0a 00 |..........E)....|
000010f0 1a e5 0a 00 00 00 00 00 00 70 00 00 25 1c 00 00 |.........p..%...|
00001100 42 00 00 00 96 d8 ef ff 76 07 f0 ff ba 1f 00 f2 |B.......v.......|
00001110 0d 00 00 00 00 1c 00 00 85 78 00 00 02 64 d4 06 |.........x...d..|
00001120 56 a0 ef ff 36 cf ef ff ba 1f 00 f2 46 4e 5f 64 |V...6.......FN_d|
00001130 61 74 61 6c 6f 61 64 32 30 35 20 08 1a e5 0a 00 |ataload205 .....|
00001140 00 00 00 00 72 65 63 65 69 76 65 73 20 74 68 65 |....receives the|
00001150 20 66 75 6c 6c 20 70 61 74 68 6e 61 6d 65 20 6f | full pathname o|
00001160 66 20 74 68 65 20 66 69 6c 65 20 77 68 69 63 68 |f the file which|
00001170 20 68 61 73 20 62 65 65 6e 20 64 72 61 67 67 65 | has been dragge|
00001180 64 20 74 6f 20 69 63 6f 6e 20 30 20 00 78 00 00 |d to icon 0 .x..|
00001190 05 7c 00 00 00 08 54 07 16 68 ef ff f6 96 ef ff |.|....T..h......|
000011a0 20 22 00 f0 28 70 72 6f 76 69 64 69 6e 67 20 74 | "..(providing t|
000011b0 68 65 20 66 69 6c 65 74 79 70 65 20 6f 66 20 74 |he filetype of t|
000011c0 68 65 20 66 69 6c 65 20 77 61 73 20 26 32 30 35 |he file was &205|
000011d0 2c 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 |, otherwise the |
000011e0 6c 6f 61 64 20 77 69 6c 6c 20 62 65 20 69 67 6e |load will be ign|
000011f0 6f 72 65 64 29 20 20 77 68 69 63 68 20 6d 61 79 |ored) which may|
00001200 20 6e 6f 77 20 62 65 20 00 7c 00 00 05 7c 00 00 | now be .|...|..|
00001210 00 00 0b 07 d6 2f ef ff b6 5e ef ff 20 22 00 f0 |...../...^.. "..|
00001220 6f 70 65 6e 65 64 20 61 6e 64 20 74 68 65 20 64 |opened and the d|
00001230 61 74 61 20 6c 6f 61 64 65 64 20 61 73 20 75 73 |ata loaded as us|
00001240 75 61 6c 2e 20 49 66 20 74 68 65 20 90 6e 6f 20 |ual. If the .no |
00001250 6c 6f 61 64 91 20 66 6c 61 67 20 77 61 73 20 73 |load. flag was s|
00001260 65 74 20 66 6f 72 20 74 68 69 73 20 6c 6f 61 64 |et for this load|
00001270 20 65 76 65 6e 74 20 61 6e 64 20 74 68 65 20 6c | event and the l|
00001280 6f 61 64 20 00 7c 00 00 05 7c 00 00 00 88 04 07 |oad .|...|......|
00001290 96 f7 ee ff 76 26 ef ff 20 22 00 f0 77 61 73 20 |....v&.. "..was |
000012a0 66 72 6f 6d 20 61 6e 6f 74 68 65 72 20 61 70 70 |from another app|
000012b0 6c 69 63 61 74 69 6f 6e 20 74 68 65 20 64 61 74 |lication the dat|
000012c0 61 20 69 73 20 73 61 76 65 64 20 69 6e 20 61 20 |a is saved in a |
000012d0 66 69 6c 65 20 63 61 6c 6c 65 64 20 90 53 63 72 |file called .Scr|
000012e0 61 70 46 69 6c 65 91 20 69 6e 20 74 68 65 20 75 |apFile. in the u|
000012f0 73 65 72 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 |ser application |
00001300 00 7c 00 00 25 24 00 00 42 f0 b4 00 56 bf ee ff |.|..%$..B...V...|
00001310 36 ee ee ff 20 22 00 f0 64 69 72 65 63 74 6f 72 |6... "..director|
00001320 79 2e 0d 00 00 24 00 00 25 1c 00 00 42 00 00 00 |y....$..%...B...|
00001330 16 87 ee ff f6 b5 ee ff 20 22 00 f2 0d 00 00 00 |........ "......|
00001340 00 1c 00 00 25 1c 00 00 42 00 00 00 d6 4e ee ff |....%...B....N..|
00001350 b6 7d ee ff 20 22 00 f2 0d 00 00 00 00 1c 00 00 |.}.. "..........|
00001360 06 00 00 00 79 56 34 12 b0 00 00 00 02 00 00 00 |....yV4.........|
00001370 00 00 00 00 06 08 00 00 00 08 00 00 01 10 00 00 |................|
00001380 00 00 00 00 00 00 00 00 00 10 00 00 02 1c 00 00 |................|
00001390 f0 01 00 00 00 00 00 00 18 66 03 00 11 cc 09 00 |.........f......|
000013a0 00 00 00 00 00 1c 00 00 a5 68 00 00 42 84 60 01 |.........h..B.`.|
000013b0 81 05 f4 ff 31 3c f4 ff e4 29 00 02 07 66 03 00 |....1<...)...f..|
000013c0 18 66 03 00 18 66 03 00 00 00 00 00 07 05 05 05 |.f...f..........|
000013d0 11 cc 09 00 18 66 03 00 11 cc 09 00 00 00 00 00 |.....f..........|
000013e0 4c 6f 61 64 69 6e 67 20 46 69 6c 65 73 08 08 65 |Loading Files..e|
000013f0 11 cc 09 00 18 66 03 00 00 00 00 00 08 00 00 00 |.....f..........|
00001400 18 66 03 00 00 00 00 00 0d 00 00 00 00 68 00 00 |.f...........h..|
00001410 06 00 00 00 79 56 34 12 b0 00 00 00 03 00 00 00 |....yV4.........|
00001420 00 00 00 00 06 08 00 00 00 08 00 00 01 10 00 00 |................|
00001430 00 00 00 00 00 00 00 00 00 10 00 00 02 1c 00 00 |................|
00001440 dc 05 00 00 00 00 00 00 18 66 03 00 11 cc 09 00 |.........f......|
00001450 00 00 00 00 00 1c 00 00 a5 68 00 00 42 84 60 01 |.........h..B.`.|
00001460 d0 05 e7 ff 80 3c e7 ff e4 29 00 f2 07 66 03 00 |.....<...)...f..|
00001470 18 66 03 00 18 66 03 00 00 00 00 00 07 05 05 05 |.f...f..........|
00001480 11 cc 09 00 18 66 03 00 11 cc 09 00 00 00 00 00 |.....f..........|
00001490 4c 6f 61 64 69 6e 67 20 46 69 6c 65 73 08 6c 65 |Loading Files.le|
000014a0 11 cc 09 00 18 66 03 00 00 00 00 00 08 00 00 00 |.....f..........|
000014b0 18 66 03 00 00 00 00 00 0d 00 00 00 00 68 00 00 |.f...........h..|
000014c0 06 00 00 00 79 56 34 12 ec 00 00 00 06 00 00 00 |....yV4.........|
000014d0 00 00 00 00 06 08 00 00 00 08 00 00 01 10 00 00 |................|
000014e0 00 00 00 00 00 00 00 00 00 10 00 00 02 18 00 00 |................|
000014f0 88 03 00 00 00 00 00 00 21 05 0e 00 00 00 00 00 |........!.......|
00001500 00 18 00 00 85 54 00 00 02 5c 07 03 35 d3 f9 ff |.....T...\..5...|
00001510 15 02 fa ff f8 22 00 02 07 05 05 05 21 05 0e 00 |....."......!...|
00001520 21 05 0e 00 00 00 00 00 54 68 69 73 20 77 69 6e |!.......This win|
00001530 64 6f 77 20 63 6f 6e 74 61 69 6e 73 20 61 20 27 |dow contains a '|
00001540 6c 6f 61 64 20 74 61 72 67 65 74 27 20 69 63 6f |load target' ico|
00001550 6e 20 00 00 00 54 00 00 a5 54 00 00 43 50 34 03 |n ...T...T..CP4.|
00001560 f5 9a f9 ff d5 c9 f9 ff f8 22 00 00 75 70 6f 6e |........."..upon|
00001570 20 77 68 69 63 68 20 61 20 66 69 6c 65 20 63 61 | which a file ca|
00001580 6e 20 62 65 20 64 72 6f 70 70 65 64 20 74 6f 20 |n be dropped to |
00001590 6c 6f 61 64 20 69 74 2e 05 08 63 61 21 05 0e 00 |load it...ca!...|
000015a0 00 00 00 00 0d 00 00 00 00 54 00 00 06 00 00 00 |.........T......|
000015b0 79 56 34 12 |yV4.|
000015b4 
.