Home » Archimedes archive » Acorn Computing » 1994 08 subscription disc.adf » 9408s » Shareware/Event/Documents/!EShellDoc/!RunImage/Chapter4/Text
Shareware/Event/Documents/!EShellDoc/!RunImage/Chapter4/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/Chapter4/Text |
| Read OK: | ✔ |
| File size: | 1B3C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
� _ �| B&H7A�������5 �_ _ A Tutoriala_ � �
� � | %( Fz� G��'3�� " �" z�
( t ����� " �The first few lines of any EvntShell program initialise the memory management, set up error t | t<Ǔ����� " �handlers and load any resources (templates, menus, sprites etc) required by the program. This code | | 8T�[��g��� " �should not need editing. PROCapp_init determines what happens when the application starts, in this | x @�G#��'R�� " �case an iconbar icon is created and various �events� are attached to it. The code created by x x l ���� " �!AppBuild is as shown below, although the REMs have been added for this manual. Try defining x %H B��Dz���� " �other windows and menus and see what happens.
H �( B �z��g��� " �
�
�
( %, B wJ��'q��p �DEF PROCapp_init
, %D B`�7��GB��p �PROCSetUp_Menus :REM set up iconbar menu
D %D B�W�g��p �PROCSetUp_Windows :REM set up main window
D %\ B �w�����p �PROCSetUp_IconBar :REM put icon on the iconbar and attach events
\ %X B@~��������p �REM and now initialise the StrongHlp help system (optional!)
X %\ B ��_��dž��p �PROCshell_InitHelpSystem(FNshell_GetAppDir+�.FNshell_GetAppName�
\ % B�� �0���W��p �,TRUE)
%$ B�� ���)��p �ENDPROC
$ % Bp ��'���p �:
%\ Bp�7���G��p �REM ===== Menu_Setup routines ===================================
\ % B Wu��g���p �
%, BP�wF���m��p �DEF PROCSetUp_Menus
, %$ B�����>��p �LOCAL void%
$ %< B ������p �REM Construct the iconbar menu..
< %H B� ����p �MenuHandle_IconBar%=FNshell_MenuNew(�NewApp�)
H %L B e�������p �MenuItem_Info% =FNshell_MenuAdd(0,�Info�,��)
L %\ B �\��'���p �void% =FNshell_MenuAdd(0,�Quit�,�_MenuSelect_Quit�)
\ %X B@~7-��GT��p �REM Attach the �About this program� dialog box to the �Info�
X %X B �W���g%��p �REM item of the menu. Call FN_PreOpenInfo before opening it so
X %T B`Ow������p �REM that the icons can be filled in, don�t call a FN after
T %( B�_�������p �REM opening it.
( %L BP��q��ǘ��p �PROCshell_AttachMenuDBox(MenuItem_Info%,�progInfo�,
L %, B��B���i��p �_PreOpenInfo�,��)
, % B� ���;��p �ENDPROC
% Bp �' ��p �:
% B 7���G��p �
%\ Bp�W���g���p �REM ===== Window_SetUp routines =================================
\ % B wX�����p �
%0 B0��)���P��p �DEF PROCSetUp_Windows
0 %\ B ������!��p �REM create a window from the template called �mainw�, place the
\ %4 B�x�����p �REM window handle in mainw%
4 %H B@������p �PROCshell_CreateWindowStatic(�mainw�,mainw%)
H % B� n��'���p �ENDPROC
% Bp 7?��Gf��p �:
% B W��g7��p �
%\ Bp�w����p �REM ===== IconBar_SetUp routines ================================
\ % B �������p �
%0 B0�����Ǫ��p �DEF PROCSetUp_IconBar
0 %T B�f�T���{��p �REM sicon is the handle of the icon. -1 means right side of
T %X B ��%��M��p �REM iconbar, -2 would be left side. The name of the sprite for
X %X B����' ��p �REM the icon is the same as the application directory. A menu
X %P B��7��G��p �REM with the handle �MenuHandle_IconBar%� is attached.
P %P B W��g��p �sicon=FNshell_Iconbar(-1,�!�+FNshell_GetAppName,��,120,
P %4 B`awj��p �MenuHandle_IconBar%,0,0,0)
4 B@~ � �
%X B@~�`�և�p �REM attach a help tag for the icon, this will send the text
X %T B�f�1�X�p �REM following �iconbar:� to the !Help application. See the
T %8 B���*�p �REM �Messages� file for this.
8 %D B��&��6��p �PROCshell_AttachHelpTag(-1,sicon,�iconbar�)
D %T B�7F��V��p �REM lastly attach the clickselect event. When <SELECT> is
T %H B 6fv�v��p �REM clicked over the icon call FN_clickiconbar
H %X B@~�G�n�p �PROCshell_AttachClickSelect(-1,sicon,�_ClickSelect_IconBar�)
X % B� ��?�p �ENDPROC
% Bp �����p �:
% B ����p �
%\ Bp�����p �REM ===== Dialog_PreOpen routines ===============================
\ % B &]�6��p �
%0 B�F.�VU�p �DEF FN_PreOpenInfo(h%)
0 %\ B �f��v&�p �REM fill in icons. Try editing the �Messages� file to make text
\ %\ B�
�����p �REM appear in the icons (just add the text after progInfo0: etc).
\ %< BP4�����p �REM h% is the handle of the window.
< %\ B ��r�֙�p �PROCshell_IconPutData(h%,0,FNshell_MessageNoArgs(�progInfo0�),0)
\ %\ B ��C�j�p �PROCshell_IconPutData(h%,1,FNshell_MessageNoArgs(�progInfo1�),0)
\ %\ B ��<�p �PROCshell_IconPutData(h%,2,FNshell_MessageNoArgs(�progInfo2�),0)
\ %\ B �&��6
�p �PROCshell_IconPutData(h%,3,FNshell_MessageNoArgs(�progInfo3�),0)
\ % B�. F��V��p �=0
% Bp f��v��p �:
% B �Y���p �
%\ Bp��*�Q�p �REM ===== Dialog_PostOpen routines ==============================
\ % B ���"�p �
%\ Bp������p �REM ===== Click_Select routines =================================
\ % B ����p �
%@ B0c&o�6��p �DEF FN_ClickSelect_IconBar(wh%,icon%)
@ %T B`OF@�Vg�p �REM open the window with the handle mainw% when a click of
T %X B��f�v8�p �REM <SELECT> is received on the iconbar icon. wh% is the handle
X %\ B ���� �p �REM of the window over which the click occured (the iconbar) and
\ %D B�������p �REM icon% is the handle of the iconbar icon
D %< B� Ƅ�֫�p �PROCshell_OpenWindowStatic(mainw%)
< % B�. �U�|�p �=0
% Bp '�N�p �:
% B &��6 �p �
%\ Bp�F��V��p �REM ===== Menu_Select routines ==================================
\ % B f��v��p �
%8 B@��k���p �DEF FN_MenuSelect_Quit(blk%)
8 %, B w�<�c�p �_closedown%=TRUE
, % B�. �
��4�p �=0
% Bp ����p �:
% B ����p �
%\ Bp�&��6��p �REM ===== Menu_Warning routines =================================
\ % B FR�Vy�p �
%\ Bp�f#�vJ�p �REM ===== Data_Load routines ====================================
\ % B ����p �
�� Bp������p �REM ===== Data_Save routines ====================================
�
�
�
�
�
� % B ���ֽ� " �
yV4� � f � �d B:� ��1<��) �f f f � f � A Tutorial� f f
d yV4� D f � �d B:� ��<��) �f f f � f � A Tutoriali� f f
d yV4 00000000 e4 19 00 00 01 00 00 00 00 00 00 00 06 08 00 00 |................|
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 5f 0c 00 00 00 00 00 00 18 00 00 a5 7c 00 00 |._...........|..|
00000040 42 26 48 01 37 41 fe ff 87 87 fe ff dc 35 00 f2 |B&H.7A.......5..|
00000050 07 05 05 05 01 5f 0c 00 01 5f 0c 00 00 00 00 00 |....._..._......|
00000060 41 20 54 75 74 6f 72 69 61 6c 08 61 01 5f 0c 00 |A Tutorial.a._..|
00000070 00 00 00 00 07 00 00 00 01 1e 0b 00 01 1e 0b 00 |................|
00000080 00 00 00 00 07 00 00 00 02 82 08 00 02 82 08 00 |................|
00000090 01 1e 0b 00 00 00 00 00 0d 08 00 00 01 1e 0b 00 |................|
000000a0 02 82 08 00 00 00 00 00 08 00 00 00 02 82 08 00 |................|
000000b0 00 00 00 00 00 7c 00 00 25 28 00 00 46 7a f8 00 |.....|..%(..Fz..|
000000c0 47 04 fe ff 27 33 fe ff 20 22 00 f2 12 22 00 02 |G...'3.. "..."..|
000000d0 7a f8 00 00 00 00 00 00 0d 00 00 00 00 28 00 00 |z............(..|
000000e0 05 74 00 00 00 08 ca 06 07 cc fd ff e7 fa fd ff |.t..............|
000000f0 20 22 00 f2 54 68 65 20 66 69 72 73 74 20 66 65 | "..The first fe|
00000100 77 20 6c 69 6e 65 73 20 6f 66 20 61 6e 79 20 45 |w lines of any E|
00000110 76 6e 74 53 68 65 6c 6c 20 70 72 6f 67 72 61 6d |vntShell program|
00000120 20 69 6e 69 74 69 61 6c 69 73 65 20 74 68 65 20 | initialise the |
00000130 6d 65 6d 6f 72 79 20 6d 61 6e 61 67 65 6d 65 6e |memory managemen|
00000140 74 2c 20 73 65 74 20 75 70 20 65 72 72 6f 72 20 |t, set up error |
00000150 00 74 00 00 05 7c 00 00 00 74 3c 07 c7 93 fd ff |.t...|...t<.....|
00000160 a7 c2 fd ff 20 22 00 f0 68 61 6e 64 6c 65 72 73 |.... "..handlers|
00000170 20 61 6e 64 20 6c 6f 61 64 20 61 6e 79 20 72 65 | and load any re|
00000180 73 6f 75 72 63 65 73 20 28 74 65 6d 70 6c 61 74 |sources (templat|
00000190 65 73 2c 20 6d 65 6e 75 73 2c 20 73 70 72 69 74 |es, menus, sprit|
000001a0 65 73 20 65 74 63 29 20 72 65 71 75 69 72 65 64 |es etc) required|
000001b0 20 62 79 20 74 68 65 20 70 72 6f 67 72 61 6d 2e | by the program.|
000001c0 20 54 68 69 73 20 63 6f 64 65 20 00 00 7c 00 00 | This code ..|..|
000001d0 05 7c 00 00 00 38 54 07 87 5b fd ff 67 8a fd ff |.|...8T..[..g...|
000001e0 20 22 00 f0 73 68 6f 75 6c 64 20 6e 6f 74 20 6e | "..should not n|
000001f0 65 65 64 20 65 64 69 74 69 6e 67 2e 20 50 52 4f |eed editing. PRO|
00000200 43 61 70 70 5f 69 6e 69 74 20 64 65 74 65 72 6d |Capp_init determ|
00000210 69 6e 65 73 20 77 68 61 74 20 68 61 70 70 65 6e |ines what happen|
00000220 73 20 77 68 65 6e 20 74 68 65 20 61 70 70 6c 69 |s when the appli|
00000230 63 61 74 69 6f 6e 20 73 74 61 72 74 73 2c 20 69 |cation starts, i|
00000240 6e 20 74 68 69 73 20 00 00 7c 00 00 05 78 00 00 |n this ..|...x..|
00000250 00 40 98 06 47 23 fd ff 27 52 fd ff 20 22 00 f0 |.@..G#..'R.. "..|
00000260 63 61 73 65 20 61 6e 20 69 63 6f 6e 62 61 72 20 |case an iconbar |
00000270 69 63 6f 6e 20 69 73 20 63 72 65 61 74 65 64 20 |icon is created |
00000280 61 6e 64 20 76 61 72 69 6f 75 73 20 90 65 76 65 |and various .eve|
00000290 6e 74 73 91 20 61 72 65 20 61 74 74 61 63 68 65 |nts. are attache|
000002a0 64 20 74 6f 20 69 74 2e 20 54 68 65 20 63 6f 64 |d to it. The cod|
000002b0 65 20 63 72 65 61 74 65 64 20 62 79 20 00 00 00 |e created by ...|
000002c0 00 78 00 00 05 78 00 00 00 6c 1d 07 07 eb fc ff |.x...x...l......|
000002d0 e7 19 fd ff 20 22 00 f0 21 41 70 70 42 75 69 6c |.... "..!AppBuil|
000002e0 64 20 69 73 20 61 73 20 73 68 6f 77 6e 20 62 65 |d is as shown be|
000002f0 6c 6f 77 2c 20 61 6c 74 68 6f 75 67 68 20 74 68 |low, although th|
00000300 65 20 52 45 4d 73 20 68 61 76 65 20 62 65 65 6e |e REMs have been|
00000310 20 61 64 64 65 64 20 66 6f 72 20 74 68 69 73 20 | added for this |
00000320 6d 61 6e 75 61 6c 2e 20 54 72 79 20 64 65 66 69 |manual. Try defi|
00000330 6e 69 6e 67 20 00 00 00 00 78 00 00 25 48 00 00 |ning ....x..%H..|
00000340 42 b4 99 03 c7 b2 fc ff a7 e1 fc ff 20 22 00 f0 |B........... "..|
00000350 6f 74 68 65 72 20 77 69 6e 64 6f 77 73 20 61 6e |other windows an|
00000360 64 20 6d 65 6e 75 73 20 61 6e 64 20 73 65 65 20 |d menus and see |
00000370 77 68 61 74 20 68 61 70 70 65 6e 73 2e 0d 00 00 |what happens....|
00000380 00 48 00 00 a5 28 00 00 42 00 00 00 87 7a fc ff |.H...(..B....z..|
00000390 67 a9 fc ff 20 22 00 f2 0d 07 0a 00 1c a6 0a 00 |g... "..........|
000003a0 1c a6 0a 00 00 00 00 00 00 28 00 00 25 2c 00 00 |.........(..%,..|
000003b0 42 00 77 01 17 4a fc ff 27 71 fc ff 70 1a 00 f2 |B.w..J..'q..p...|
000003c0 44 45 46 20 50 52 4f 43 61 70 70 5f 69 6e 69 74 |DEF PROCapp_init|
000003d0 0d 00 00 00 00 2c 00 00 25 44 00 00 42 60 d8 03 |.....,..%D..B`..|
000003e0 37 1b fc ff 47 42 fc ff 70 1a 00 f2 50 52 4f 43 |7...GB..p...PROC|
000003f0 53 65 74 55 70 5f 4d 65 6e 75 73 20 20 20 3a 52 |SetUp_Menus :R|
00000400 45 4d 20 73 65 74 20 75 70 20 69 63 6f 6e 62 61 |EM set up iconba|
00000410 72 20 6d 65 6e 75 0d 00 00 44 00 00 25 44 00 00 |r menu...D..%D..|
00000420 42 f0 c0 03 57 ec fb ff 67 13 fc ff 70 1a 00 f2 |B...W...g...p...|
00000430 50 52 4f 43 53 65 74 55 70 5f 57 69 6e 64 6f 77 |PROCSetUp_Window|
00000440 73 20 3a 52 45 4d 20 73 65 74 20 75 70 20 6d 61 |s :REM set up ma|
00000450 69 6e 20 77 69 6e 64 6f 77 0d 00 00 00 44 00 00 |in window....D..|
00000460 25 5c 00 00 42 00 dc 05 77 bd fb ff 87 e4 fb ff |%\..B...w.......|
00000470 70 1a 00 f2 50 52 4f 43 53 65 74 55 70 5f 49 63 |p...PROCSetUp_Ic|
00000480 6f 6e 42 61 72 20 3a 52 45 4d 20 70 75 74 20 69 |onBar :REM put i|
00000490 63 6f 6e 20 6f 6e 20 74 68 65 20 69 63 6f 6e 62 |con on the iconb|
000004a0 61 72 20 61 6e 64 20 61 74 74 61 63 68 20 65 76 |ar and attach ev|
000004b0 65 6e 74 73 0d 00 00 00 00 5c 00 00 25 58 00 00 |ents.....\..%X..|
000004c0 42 40 7e 05 97 8e fb ff a7 b5 fb ff 70 1a 00 f2 |B@~.........p...|
000004d0 52 45 4d 20 61 6e 64 20 6e 6f 77 20 69 6e 69 74 |REM and now init|
000004e0 69 61 6c 69 73 65 20 74 68 65 20 53 74 72 6f 6e |ialise the Stron|
000004f0 67 48 6c 70 20 68 65 6c 70 20 73 79 73 74 65 6d |gHlp help system|
00000500 20 28 6f 70 74 69 6f 6e 61 6c 21 29 0d 00 00 00 | (optional!)....|
00000510 00 58 00 00 25 5c 00 00 42 00 dc 05 b7 5f fb ff |.X..%\..B...._..|
00000520 c7 86 fb ff 70 1a 00 f2 50 52 4f 43 73 68 65 6c |....p...PROCshel|
00000530 6c 5f 49 6e 69 74 48 65 6c 70 53 79 73 74 65 6d |l_InitHelpSystem|
00000540 28 46 4e 73 68 65 6c 6c 5f 47 65 74 41 70 70 44 |(FNshell_GetAppD|
00000550 69 72 2b 94 2e 46 4e 73 68 65 6c 6c 5f 47 65 74 |ir+..FNshell_Get|
00000560 41 70 70 4e 61 6d 65 95 0d 00 00 00 00 5c 00 00 |AppName......\..|
00000570 25 20 00 00 42 a0 8c 00 d7 30 fb ff e7 57 fb ff |% ..B....0...W..|
00000580 70 1a 00 f2 2c 54 52 55 45 29 0d 00 00 20 00 00 |p...,TRUE)... ..|
00000590 25 24 00 00 42 f0 d2 00 f7 01 fb ff 07 29 fb ff |%$..B........)..|
000005a0 70 1a 00 f2 45 4e 44 50 52 4f 43 20 20 0d 00 00 |p...ENDPROC ...|
000005b0 00 24 00 00 25 1c 00 00 42 70 17 00 17 d3 fa ff |.$..%...Bp......|
000005c0 27 fa fa ff 70 1a 00 f2 3a 0d 00 00 00 1c 00 00 |'...p...:.......|
000005d0 25 5c 00 00 42 70 f3 05 37 a4 fa ff 47 cb fa ff |%\..Bp..7...G...|
000005e0 70 1a 00 f2 52 45 4d 20 3d 3d 3d 3d 3d 20 4d 65 |p...REM ===== Me|
000005f0 6e 75 5f 53 65 74 75 70 20 72 6f 75 74 69 6e 65 |nu_Setup routine|
00000600 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |s ==============|
00000610 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000620 3d 3d 3d 3d 3d 0d 00 00 00 5c 00 00 25 1c 00 00 |=====....\..%...|
00000630 42 00 00 00 57 75 fa ff 67 9c fa ff 70 1a 00 f2 |B...Wu..g...p...|
00000640 0d 00 00 00 00 1c 00 00 25 2c 00 00 42 50 bd 01 |........%,..BP..|
00000650 77 46 fa ff 87 6d fa ff 70 1a 00 f2 44 45 46 20 |wF...m..p...DEF |
00000660 50 52 4f 43 53 65 74 55 70 5f 4d 65 6e 75 73 0d |PROCSetUp_Menus.|
00000670 00 2c 00 00 25 24 00 00 42 d0 01 01 97 17 fa ff |.,..%$..B.......|
00000680 a7 3e fa ff 70 1a 00 f2 4c 4f 43 41 4c 20 76 6f |.>..p...LOCAL vo|
00000690 69 64 25 0d 00 24 00 00 25 3c 00 00 42 00 ee 02 |id%..$..%<..B...|
000006a0 b7 e8 f9 ff c7 0f fa ff 70 1a 00 f2 52 45 4d 20 |........p...REM |
000006b0 43 6f 6e 73 74 72 75 63 74 20 74 68 65 20 69 63 |Construct the ic|
000006c0 6f 6e 62 61 72 20 6d 65 6e 75 2e 2e 0d 00 00 00 |onbar menu......|
000006d0 00 3c 00 00 25 48 00 00 42 b0 1e 04 d7 b9 f9 ff |.<..%H..B.......|
000006e0 e7 e0 f9 ff 70 1a 00 f2 4d 65 6e 75 48 61 6e 64 |....p...MenuHand|
000006f0 6c 65 5f 49 63 6f 6e 42 61 72 25 3d 46 4e 73 68 |le_IconBar%=FNsh|
00000700 65 6c 6c 5f 4d 65 6e 75 4e 65 77 28 94 4e 65 77 |ell_MenuNew(.New|
00000710 41 70 70 95 29 0d 00 00 00 48 00 00 25 4c 00 00 |App.)....H..%L..|
00000720 42 00 65 04 f7 8a f9 ff 07 b2 f9 ff 70 1a 00 f2 |B.e.........p...|
00000730 4d 65 6e 75 49 74 65 6d 5f 49 6e 66 6f 25 20 20 |MenuItem_Info% |
00000740 20 20 20 3d 46 4e 73 68 65 6c 6c 5f 4d 65 6e 75 | =FNshell_Menu|
00000750 41 64 64 28 30 2c 94 49 6e 66 6f 95 2c 94 95 29 |Add(0,.Info.,..)|
00000760 0d 00 00 00 00 4c 00 00 25 5c 00 00 42 00 dc 05 |.....L..%\..B...|
00000770 17 5c f9 ff 27 83 f9 ff 70 1a 00 f2 76 6f 69 64 |.\..'...p...void|
00000780 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d |% =|
00000790 46 4e 73 68 65 6c 6c 5f 4d 65 6e 75 41 64 64 28 |FNshell_MenuAdd(|
000007a0 30 2c 94 51 75 69 74 95 2c 94 5f 4d 65 6e 75 53 |0,.Quit.,._MenuS|
000007b0 65 6c 65 63 74 5f 51 75 69 74 95 29 0d 00 00 00 |elect_Quit.)....|
000007c0 00 5c 00 00 25 58 00 00 42 40 7e 05 37 2d f9 ff |.\..%X..B@~.7-..|
000007d0 47 54 f9 ff 70 1a 00 f2 52 45 4d 20 41 74 74 61 |GT..p...REM Atta|
000007e0 63 68 20 74 68 65 20 90 41 62 6f 75 74 20 74 68 |ch the .About th|
000007f0 69 73 20 70 72 6f 67 72 61 6d 91 20 64 69 61 6c |is program. dial|
00000800 6f 67 20 62 6f 78 20 74 6f 20 74 68 65 20 90 49 |og box to the .I|
00000810 6e 66 6f 91 0d 00 00 00 00 58 00 00 25 58 00 00 |nfo......X..%X..|
00000820 42 20 ad 05 57 fe f8 ff 67 25 f9 ff 70 1a 00 f2 |B ..W...g%..p...|
00000830 52 45 4d 20 69 74 65 6d 20 6f 66 20 74 68 65 20 |REM item of the |
00000840 6d 65 6e 75 2e 20 43 61 6c 6c 20 46 4e 5f 50 72 |menu. Call FN_Pr|
00000850 65 4f 70 65 6e 49 6e 66 6f 20 62 65 66 6f 72 65 |eOpenInfo before|
00000860 20 6f 70 65 6e 69 6e 67 20 69 74 20 73 6f 0d 00 | opening it so..|
00000870 00 58 00 00 25 54 00 00 42 60 4f 05 77 cf f8 ff |.X..%T..B`O.w...|
00000880 87 f6 f8 ff 70 1a 00 f2 52 45 4d 20 74 68 61 74 |....p...REM that|
00000890 20 74 68 65 20 69 63 6f 6e 73 20 63 61 6e 20 62 | the icons can b|
000008a0 65 20 66 69 6c 6c 65 64 20 69 6e 2c 20 64 6f 6e |e filled in, don|
000008b0 91 74 20 63 61 6c 6c 20 61 20 46 4e 20 61 66 74 |.t call a FN aft|
000008c0 65 72 0d 00 00 54 00 00 25 28 00 00 42 90 5f 01 |er...T..%(..B._.|
000008d0 97 a0 f8 ff a7 c7 f8 ff 70 1a 00 f2 52 45 4d 20 |........p...REM |
000008e0 6f 70 65 6e 69 6e 67 20 69 74 2e 0d 00 28 00 00 |opening it...(..|
000008f0 25 4c 00 00 42 50 ab 04 b7 71 f8 ff c7 98 f8 ff |%L..BP...q......|
00000900 70 1a 00 f2 50 52 4f 43 73 68 65 6c 6c 5f 41 74 |p...PROCshell_At|
00000910 74 61 63 68 4d 65 6e 75 44 42 6f 78 28 4d 65 6e |tachMenuDBox(Men|
00000920 75 49 74 65 6d 5f 49 6e 66 6f 25 2c 94 70 72 6f |uItem_Info%,.pro|
00000930 67 49 6e 66 6f 95 2c 0d 00 4c 00 00 25 2c 00 00 |gInfo.,..L..%,..|
00000940 42 e0 a5 01 d7 42 f8 ff e7 69 f8 ff 70 1a 00 f2 |B....B...i..p...|
00000950 94 5f 50 72 65 4f 70 65 6e 49 6e 66 6f 95 2c 94 |._PreOpenInfo.,.|
00000960 95 29 0d 00 00 2c 00 00 25 20 00 00 42 10 a4 00 |.)...,..% ..B...|
00000970 f7 13 f8 ff 07 3b f8 ff 70 1a 00 f2 45 4e 44 50 |.....;..p...ENDP|
00000980 52 4f 43 0d 00 20 00 00 25 1c 00 00 42 70 17 00 |ROC.. ..%...Bp..|
00000990 17 e5 f7 ff 27 0c f8 ff 70 1a 00 f2 3a 0d 00 00 |....'...p...:...|
000009a0 00 1c 00 00 25 1c 00 00 42 00 00 00 37 b6 f7 ff |....%...B...7...|
000009b0 47 dd f7 ff 70 1a 00 f2 0d 00 00 00 00 1c 00 00 |G...p...........|
000009c0 25 5c 00 00 42 70 f3 05 57 87 f7 ff 67 ae f7 ff |%\..Bp..W...g...|
000009d0 70 1a 00 f2 52 45 4d 20 3d 3d 3d 3d 3d 20 57 69 |p...REM ===== Wi|
000009e0 6e 64 6f 77 5f 53 65 74 55 70 20 72 6f 75 74 69 |ndow_SetUp routi|
000009f0 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |nes ============|
00000a00 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000a10 3d 3d 3d 3d 3d 0d 00 00 00 5c 00 00 25 1c 00 00 |=====....\..%...|
00000a20 42 00 00 00 77 58 f7 ff 87 7f f7 ff 70 1a 00 f2 |B...wX......p...|
00000a30 0d 00 00 00 00 1c 00 00 25 30 00 00 42 30 ec 01 |........%0..B0..|
00000a40 97 29 f7 ff a7 50 f7 ff 70 1a 00 f2 44 45 46 20 |.)...P..p...DEF |
00000a50 50 52 4f 43 53 65 74 55 70 5f 57 69 6e 64 6f 77 |PROCSetUp_Window|
00000a60 73 0d 00 00 00 30 00 00 25 5c 00 00 42 00 dc 05 |s....0..%\..B...|
00000a70 b7 fa f6 ff c7 21 f7 ff 70 1a 00 f2 52 45 4d 20 |.....!..p...REM |
00000a80 63 72 65 61 74 65 20 61 20 77 69 6e 64 6f 77 20 |create a window |
00000a90 66 72 6f 6d 20 74 68 65 20 74 65 6d 70 6c 61 74 |from the templat|
00000aa0 65 20 63 61 6c 6c 65 64 20 90 6d 61 69 6e 77 91 |e called .mainw.|
00000ab0 2c 20 70 6c 61 63 65 20 74 68 65 20 0d 00 00 00 |, place the ....|
00000ac0 00 5c 00 00 25 34 00 00 42 d0 78 02 d7 cb f6 ff |.\..%4..B.x.....|
00000ad0 e7 f2 f6 ff 70 1a 00 f2 52 45 4d 20 77 69 6e 64 |....p...REM wind|
00000ae0 6f 77 20 68 61 6e 64 6c 65 20 69 6e 20 6d 61 69 |ow handle in mai|
00000af0 6e 77 25 0d 00 34 00 00 25 48 00 00 42 40 07 04 |nw%..4..%H..B@..|
00000b00 f7 9c f6 ff 07 c4 f6 ff 70 1a 00 f2 50 52 4f 43 |........p...PROC|
00000b10 73 68 65 6c 6c 5f 43 72 65 61 74 65 57 69 6e 64 |shell_CreateWind|
00000b20 6f 77 53 74 61 74 69 63 28 94 6d 61 69 6e 77 95 |owStatic(.mainw.|
00000b30 2c 6d 61 69 6e 77 25 29 0d 00 00 00 00 48 00 00 |,mainw%).....H..|
00000b40 25 20 00 00 42 10 a4 00 17 6e f6 ff 27 95 f6 ff |% ..B....n..'...|
00000b50 70 1a 00 f2 45 4e 44 50 52 4f 43 0d 00 20 00 00 |p...ENDPROC.. ..|
00000b60 25 1c 00 00 42 70 17 00 37 3f f6 ff 47 66 f6 ff |%...Bp..7?..Gf..|
00000b70 70 1a 00 f2 3a 0d 00 00 00 1c 00 00 25 1c 00 00 |p...:.......%...|
00000b80 42 00 00 00 57 10 f6 ff 67 37 f6 ff 70 1a 00 f2 |B...W...g7..p...|
00000b90 0d 00 00 00 00 1c 00 00 25 5c 00 00 42 70 f3 05 |........%\..Bp..|
00000ba0 77 e1 f5 ff 87 08 f6 ff 70 1a 00 f2 52 45 4d 20 |w.......p...REM |
00000bb0 3d 3d 3d 3d 3d 20 49 63 6f 6e 42 61 72 5f 53 65 |===== IconBar_Se|
00000bc0 74 55 70 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d |tUp routines ===|
00000bd0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000be0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 00 |=============...|
00000bf0 00 5c 00 00 25 1c 00 00 42 00 00 00 97 b2 f5 ff |.\..%...B.......|
00000c00 a7 d9 f5 ff 70 1a 00 f2 0d 00 00 00 00 1c 00 00 |....p...........|
00000c10 25 30 00 00 42 30 ec 01 b7 83 f5 ff c7 aa f5 ff |%0..B0..........|
00000c20 70 1a 00 f2 44 45 46 20 50 52 4f 43 53 65 74 55 |p...DEF PROCSetU|
00000c30 70 5f 49 63 6f 6e 42 61 72 0d 00 00 00 30 00 00 |p_IconBar....0..|
00000c40 25 54 00 00 42 d0 66 05 d7 54 f5 ff e7 7b f5 ff |%T..B.f..T...{..|
00000c50 70 1a 00 f2 52 45 4d 20 73 69 63 6f 6e 20 69 73 |p...REM sicon is|
00000c60 20 74 68 65 20 68 61 6e 64 6c 65 20 6f 66 20 74 | the handle of t|
00000c70 68 65 20 69 63 6f 6e 2e 20 2d 31 20 6d 65 61 6e |he icon. -1 mean|
00000c80 73 20 72 69 67 68 74 20 73 69 64 65 20 6f 66 0d |s right side of.|
00000c90 00 54 00 00 25 58 00 00 42 20 ad 05 f7 25 f5 ff |.T..%X..B ...%..|
00000ca0 07 4d f5 ff 70 1a 00 f2 52 45 4d 20 69 63 6f 6e |.M..p...REM icon|
00000cb0 62 61 72 2c 20 2d 32 20 77 6f 75 6c 64 20 62 65 |bar, -2 would be|
00000cc0 20 6c 65 66 74 20 73 69 64 65 2e 20 54 68 65 20 | left side. The |
00000cd0 6e 61 6d 65 20 6f 66 20 74 68 65 20 73 70 72 69 |name of the spri|
00000ce0 74 65 20 66 6f 72 0d 00 00 58 00 00 25 58 00 00 |te for...X..%X..|
00000cf0 42 b0 95 05 17 f7 f4 ff 27 1e f5 ff 70 1a 00 f2 |B.......'...p...|
00000d00 52 45 4d 20 74 68 65 20 69 63 6f 6e 20 69 73 20 |REM the icon is |
00000d10 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 |the same as the |
00000d20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 69 72 65 |application dire|
00000d30 63 74 6f 72 79 2e 20 41 20 6d 65 6e 75 0d 00 00 |ctory. A menu...|
00000d40 00 58 00 00 25 50 00 00 42 a0 f1 04 37 c8 f4 ff |.X..%P..B...7...|
00000d50 47 ef f4 ff 70 1a 00 f2 52 45 4d 20 77 69 74 68 |G...p...REM with|
00000d60 20 74 68 65 20 68 61 6e 64 6c 65 20 90 4d 65 6e | the handle .Men|
00000d70 75 48 61 6e 64 6c 65 5f 49 63 6f 6e 42 61 72 25 |uHandle_IconBar%|
00000d80 91 20 69 73 20 61 74 74 61 63 68 65 64 2e 0d 00 |. is attached...|
00000d90 00 50 00 00 25 50 00 00 42 10 09 05 57 99 f4 ff |.P..%P..B...W...|
00000da0 67 c0 f4 ff 70 1a 00 f2 73 69 63 6f 6e 3d 46 4e |g...p...sicon=FN|
00000db0 73 68 65 6c 6c 5f 49 63 6f 6e 62 61 72 28 2d 31 |shell_Iconbar(-1|
00000dc0 2c 94 21 95 2b 46 4e 73 68 65 6c 6c 5f 47 65 74 |,.!.+FNshell_Get|
00000dd0 41 70 70 4e 61 6d 65 2c 94 95 2c 31 32 30 2c 0d |AppName,..,120,.|
00000de0 00 50 00 00 25 34 00 00 42 60 61 02 77 6a f4 ff |.P..%4..B`a.wj..|
00000df0 87 91 f4 ff 70 1a 00 f2 4d 65 6e 75 48 61 6e 64 |....p...MenuHand|
00000e00 6c 65 5f 49 63 6f 6e 42 61 72 25 2c 30 2c 30 2c |le_IconBar%,0,0,|
00000e10 30 29 0d 00 00 34 00 00 01 10 00 00 42 40 7e 05 |0)...4......B@~.|
00000e20 00 00 00 00 00 10 00 00 02 18 00 00 f4 02 00 00 |................|
00000e30 00 00 00 00 1c a6 0a 00 00 00 00 00 00 18 00 00 |................|
00000e40 25 58 00 00 42 40 7e 05 c6 60 f1 ff d6 87 f1 ff |%X..B@~..`......|
00000e50 70 1a 00 f2 52 45 4d 20 61 74 74 61 63 68 20 61 |p...REM attach a|
00000e60 20 68 65 6c 70 20 74 61 67 20 66 6f 72 20 74 68 | help tag for th|
00000e70 65 20 69 63 6f 6e 2c 20 74 68 69 73 20 77 69 6c |e icon, this wil|
00000e80 6c 20 73 65 6e 64 20 74 68 65 20 74 65 78 74 20 |l send the text |
00000e90 0d 00 00 00 00 58 00 00 25 54 00 00 42 d0 66 05 |.....X..%T..B.f.|
00000ea0 e6 31 f1 ff f6 58 f1 ff 70 1a 00 f2 52 45 4d 20 |.1...X..p...REM |
00000eb0 66 6f 6c 6c 6f 77 69 6e 67 20 90 69 63 6f 6e 62 |following .iconb|
00000ec0 61 72 3a 91 20 74 6f 20 74 68 65 20 21 48 65 6c |ar:. to the !Hel|
00000ed0 70 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 20 53 |p application. S|
00000ee0 65 65 20 74 68 65 20 0d 00 54 00 00 25 38 00 00 |ee the ..T..%8..|
00000ef0 42 b0 a7 02 06 03 f1 ff 16 2a f1 ff 70 1a 00 f2 |B........*..p...|
00000f00 52 45 4d 20 90 4d 65 73 73 61 67 65 73 91 20 66 |REM .Messages. f|
00000f10 69 6c 65 20 66 6f 72 20 74 68 69 73 2e 0d 00 00 |ile for this....|
00000f20 00 38 00 00 25 44 00 00 42 d0 ef 03 26 d4 f0 ff |.8..%D..B...&...|
00000f30 36 fb f0 ff 70 1a 00 f2 50 52 4f 43 73 68 65 6c |6...p...PROCshel|
00000f40 6c 5f 41 74 74 61 63 68 48 65 6c 70 54 61 67 28 |l_AttachHelpTag(|
00000f50 2d 31 2c 73 69 63 6f 6e 2c 94 69 63 6f 6e 62 61 |-1,sicon,.iconba|
00000f60 72 95 29 0d 00 44 00 00 25 54 00 00 42 f0 37 05 |r.)..D..%T..B.7.|
00000f70 46 a5 f0 ff 56 cc f0 ff 70 1a 00 f2 52 45 4d 20 |F...V...p...REM |
00000f80 6c 61 73 74 6c 79 20 61 74 74 61 63 68 20 74 68 |lastly attach th|
00000f90 65 20 63 6c 69 63 6b 73 65 6c 65 63 74 20 65 76 |e clickselect ev|
00000fa0 65 6e 74 2e 20 57 68 65 6e 20 3c 53 45 4c 45 43 |ent. When <SELEC|
00000fb0 54 3e 20 69 73 0d 00 00 00 54 00 00 25 48 00 00 |T> is....T..%H..|
00000fc0 42 20 36 04 66 76 f0 ff 76 9d f0 ff 70 1a 00 f2 |B 6.fv..v...p...|
00000fd0 52 45 4d 20 63 6c 69 63 6b 65 64 20 6f 76 65 72 |REM clicked over|
00000fe0 20 74 68 65 20 69 63 6f 6e 20 63 61 6c 6c 20 46 | the icon call F|
00000ff0 4e 5f 63 6c 69 63 6b 69 63 6f 6e 62 61 72 0d 00 |N_clickiconbar..|
00001000 00 48 00 00 25 58 00 00 42 40 7e 05 86 47 f0 ff |.H..%X..B@~..G..|
00001010 96 6e f0 ff 70 1a 00 f2 50 52 4f 43 73 68 65 6c |.n..p...PROCshel|
00001020 6c 5f 41 74 74 61 63 68 43 6c 69 63 6b 53 65 6c |l_AttachClickSel|
00001030 65 63 74 28 2d 31 2c 73 69 63 6f 6e 2c 94 5f 43 |ect(-1,sicon,._C|
00001040 6c 69 63 6b 53 65 6c 65 63 74 5f 49 63 6f 6e 42 |lickSelect_IconB|
00001050 61 72 95 29 0d 00 00 00 00 58 00 00 25 20 00 00 |ar.).....X..% ..|
00001060 42 10 a4 00 a6 18 f0 ff b6 3f f0 ff 70 1a 00 f2 |B........?..p...|
00001070 45 4e 44 50 52 4f 43 0d 00 20 00 00 25 1c 00 00 |ENDPROC.. ..%...|
00001080 42 70 17 00 c6 e9 ef ff d6 10 f0 ff 70 1a 00 f2 |Bp..........p...|
00001090 3a 0d 00 00 00 1c 00 00 25 1c 00 00 42 00 00 00 |:.......%...B...|
000010a0 e6 ba ef ff f6 e1 ef ff 70 1a 00 f2 0d 00 00 00 |........p.......|
000010b0 00 1c 00 00 25 5c 00 00 42 70 f3 05 06 8c ef ff |....%\..Bp......|
000010c0 16 b3 ef ff 70 1a 00 f2 52 45 4d 20 3d 3d 3d 3d |....p...REM ====|
000010d0 3d 20 44 69 61 6c 6f 67 5f 50 72 65 4f 70 65 6e |= Dialog_PreOpen|
000010e0 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d | routines ======|
000010f0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001100 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 00 00 5c 00 00 |=========....\..|
00001110 25 1c 00 00 42 00 00 00 26 5d ef ff 36 84 ef ff |%...B...&]..6...|
00001120 70 1a 00 f2 0d 00 00 00 00 1c 00 00 25 30 00 00 |p...........%0..|
00001130 42 a0 03 02 46 2e ef ff 56 55 ef ff 70 1a 00 f2 |B...F...VU..p...|
00001140 44 45 46 20 46 4e 5f 50 72 65 4f 70 65 6e 49 6e |DEF FN_PreOpenIn|
00001150 66 6f 28 68 25 29 0d 00 00 30 00 00 25 5c 00 00 |fo(h%)...0..%\..|
00001160 42 00 dc 05 66 ff ee ff 76 26 ef ff 70 1a 00 f2 |B...f...v&..p...|
00001170 52 45 4d 20 66 69 6c 6c 20 69 6e 20 69 63 6f 6e |REM fill in icon|
00001180 73 2e 20 54 72 79 20 65 64 69 74 69 6e 67 20 74 |s. Try editing t|
00001190 68 65 20 90 4d 65 73 73 61 67 65 73 91 20 66 69 |he .Messages. fi|
000011a0 6c 65 20 74 6f 20 6d 61 6b 65 20 74 65 78 74 20 |le to make text |
000011b0 0d 00 00 00 00 5c 00 00 25 5c 00 00 42 e0 0a 06 |.....\..%\..B...|
000011c0 86 d0 ee ff 96 f7 ee ff 70 1a 00 f2 52 45 4d 20 |........p...REM |
000011d0 61 70 70 65 61 72 20 69 6e 20 74 68 65 20 69 63 |appear in the ic|
000011e0 6f 6e 73 20 28 6a 75 73 74 20 61 64 64 20 74 68 |ons (just add th|
000011f0 65 20 74 65 78 74 20 61 66 74 65 72 20 70 72 6f |e text after pro|
00001200 67 49 6e 66 6f 30 3a 20 65 74 63 29 2e 20 0d 00 |gInfo0: etc). ..|
00001210 00 5c 00 00 25 3c 00 00 42 50 34 03 a6 a1 ee ff |.\..%<..BP4.....|
00001220 b6 c8 ee ff 70 1a 00 f2 52 45 4d 20 68 25 20 69 |....p...REM h% i|
00001230 73 20 74 68 65 20 68 61 6e 64 6c 65 20 6f 66 20 |s the handle of |
00001240 74 68 65 20 77 69 6e 64 6f 77 2e 0d 00 3c 00 00 |the window...<..|
00001250 25 5c 00 00 42 00 dc 05 c6 72 ee ff d6 99 ee ff |%\..B....r......|
00001260 70 1a 00 f2 50 52 4f 43 73 68 65 6c 6c 5f 49 63 |p...PROCshell_Ic|
00001270 6f 6e 50 75 74 44 61 74 61 28 68 25 2c 30 2c 46 |onPutData(h%,0,F|
00001280 4e 73 68 65 6c 6c 5f 4d 65 73 73 61 67 65 4e 6f |Nshell_MessageNo|
00001290 41 72 67 73 28 94 70 72 6f 67 49 6e 66 6f 30 95 |Args(.progInfo0.|
000012a0 29 2c 30 29 0d 00 00 00 00 5c 00 00 25 5c 00 00 |),0).....\..%\..|
000012b0 42 00 dc 05 e6 43 ee ff f6 6a ee ff 70 1a 00 f2 |B....C...j..p...|
000012c0 50 52 4f 43 73 68 65 6c 6c 5f 49 63 6f 6e 50 75 |PROCshell_IconPu|
000012d0 74 44 61 74 61 28 68 25 2c 31 2c 46 4e 73 68 65 |tData(h%,1,FNshe|
000012e0 6c 6c 5f 4d 65 73 73 61 67 65 4e 6f 41 72 67 73 |ll_MessageNoArgs|
000012f0 28 94 70 72 6f 67 49 6e 66 6f 31 95 29 2c 30 29 |(.progInfo1.),0)|
00001300 0d 00 00 00 00 5c 00 00 25 5c 00 00 42 00 dc 05 |.....\..%\..B...|
00001310 06 15 ee ff 16 3c ee ff 70 1a 00 f2 50 52 4f 43 |.....<..p...PROC|
00001320 73 68 65 6c 6c 5f 49 63 6f 6e 50 75 74 44 61 74 |shell_IconPutDat|
00001330 61 28 68 25 2c 32 2c 46 4e 73 68 65 6c 6c 5f 4d |a(h%,2,FNshell_M|
00001340 65 73 73 61 67 65 4e 6f 41 72 67 73 28 94 70 72 |essageNoArgs(.pr|
00001350 6f 67 49 6e 66 6f 32 95 29 2c 30 29 0d 00 00 00 |ogInfo2.),0)....|
00001360 00 5c 00 00 25 5c 00 00 42 00 dc 05 26 e6 ed ff |.\..%\..B...&...|
00001370 36 0d ee ff 70 1a 00 f2 50 52 4f 43 73 68 65 6c |6...p...PROCshel|
00001380 6c 5f 49 63 6f 6e 50 75 74 44 61 74 61 28 68 25 |l_IconPutData(h%|
00001390 2c 33 2c 46 4e 73 68 65 6c 6c 5f 4d 65 73 73 61 |,3,FNshell_Messa|
000013a0 67 65 4e 6f 41 72 67 73 28 94 70 72 6f 67 49 6e |geNoArgs(.progIn|
000013b0 66 6f 33 95 29 2c 30 29 0d 00 00 00 00 5c 00 00 |fo3.),0).....\..|
000013c0 25 1c 00 00 42 e0 2e 00 46 b7 ed ff 56 de ed ff |%...B...F...V...|
000013d0 70 1a 00 f2 3d 30 0d 00 00 1c 00 00 25 1c 00 00 |p...=0......%...|
000013e0 42 70 17 00 66 88 ed ff 76 af ed ff 70 1a 00 f2 |Bp..f...v...p...|
000013f0 3a 0d 00 00 00 1c 00 00 25 1c 00 00 42 00 00 00 |:.......%...B...|
00001400 86 59 ed ff 96 80 ed ff 70 1a 00 f2 0d 00 00 00 |.Y......p.......|
00001410 00 1c 00 00 25 5c 00 00 42 70 f3 05 a6 2a ed ff |....%\..Bp...*..|
00001420 b6 51 ed ff 70 1a 00 f2 52 45 4d 20 3d 3d 3d 3d |.Q..p...REM ====|
00001430 3d 20 44 69 61 6c 6f 67 5f 50 6f 73 74 4f 70 65 |= Dialog_PostOpe|
00001440 6e 20 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d |n routines =====|
00001450 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001460 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 00 00 5c 00 00 |=========....\..|
00001470 25 1c 00 00 42 00 00 00 c6 fb ec ff d6 22 ed ff |%...B........"..|
00001480 70 1a 00 f2 0d 00 00 00 00 1c 00 00 25 5c 00 00 |p...........%\..|
00001490 42 70 f3 05 e6 cc ec ff f6 f3 ec ff 70 1a 00 f2 |Bp..........p...|
000014a0 52 45 4d 20 3d 3d 3d 3d 3d 20 43 6c 69 63 6b 5f |REM ===== Click_|
000014b0 53 65 6c 65 63 74 20 72 6f 75 74 69 6e 65 73 20 |Select routines |
000014c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
000014e0 3d 0d 00 00 00 5c 00 00 25 1c 00 00 42 00 00 00 |=....\..%...B...|
000014f0 06 9e ec ff 16 c5 ec ff 70 1a 00 f2 0d 00 00 00 |........p.......|
00001500 00 1c 00 00 25 40 00 00 42 30 63 03 26 6f ec ff |....%@..B0c.&o..|
00001510 36 96 ec ff 70 1a 00 f2 44 45 46 20 46 4e 5f 43 |6...p...DEF FN_C|
00001520 6c 69 63 6b 53 65 6c 65 63 74 5f 49 63 6f 6e 42 |lickSelect_IconB|
00001530 61 72 28 77 68 25 2c 69 63 6f 6e 25 29 0d 00 00 |ar(wh%,icon%)...|
00001540 00 40 00 00 25 54 00 00 42 60 4f 05 46 40 ec ff |.@..%T..B`O.F@..|
00001550 56 67 ec ff 70 1a 00 f2 52 45 4d 20 6f 70 65 6e |Vg..p...REM open|
00001560 20 74 68 65 20 77 69 6e 64 6f 77 20 77 69 74 68 | the window with|
00001570 20 74 68 65 20 68 61 6e 64 6c 65 20 6d 61 69 6e | the handle main|
00001580 77 25 20 77 68 65 6e 20 61 20 63 6c 69 63 6b 20 |w% when a click |
00001590 6f 66 0d 00 00 54 00 00 25 58 00 00 42 90 c4 05 |of...T..%X..B...|
000015a0 66 11 ec ff 76 38 ec ff 70 1a 00 f2 52 45 4d 20 |f...v8..p...REM |
000015b0 3c 53 45 4c 45 43 54 3e 20 69 73 20 72 65 63 65 |<SELECT> is rece|
000015c0 69 76 65 64 20 6f 6e 20 74 68 65 20 69 63 6f 6e |ived on the icon|
000015d0 62 61 72 20 69 63 6f 6e 2e 20 77 68 25 20 69 73 |bar icon. wh% is|
000015e0 20 74 68 65 20 68 61 6e 64 6c 65 0d 00 58 00 00 | the handle..X..|
000015f0 25 5c 00 00 42 00 dc 05 86 e2 eb ff 96 09 ec ff |%\..B...........|
00001600 70 1a 00 f2 52 45 4d 20 6f 66 20 74 68 65 20 77 |p...REM of the w|
00001610 69 6e 64 6f 77 20 6f 76 65 72 20 77 68 69 63 68 |indow over which|
00001620 20 74 68 65 20 63 6c 69 63 6b 20 6f 63 63 75 72 | the click occur|
00001630 65 64 20 28 74 68 65 20 69 63 6f 6e 62 61 72 29 |ed (the iconbar)|
00001640 20 61 6e 64 0d 00 00 00 00 5c 00 00 25 44 00 00 | and.....\..%D..|
00001650 42 d0 ef 03 a6 b3 eb ff b6 da eb ff 70 1a 00 f2 |B...........p...|
00001660 52 45 4d 20 69 63 6f 6e 25 20 69 73 20 74 68 65 |REM icon% is the|
00001670 20 68 61 6e 64 6c 65 20 6f 66 20 74 68 65 20 69 | handle of the i|
00001680 63 6f 6e 62 61 72 20 69 63 6f 6e 0d 00 44 00 00 |conbar icon..D..|
00001690 25 3c 00 00 42 e0 1c 03 c6 84 eb ff d6 ab eb ff |%<..B...........|
000016a0 70 1a 00 f2 50 52 4f 43 73 68 65 6c 6c 5f 4f 70 |p...PROCshell_Op|
000016b0 65 6e 57 69 6e 64 6f 77 53 74 61 74 69 63 28 6d |enWindowStatic(m|
000016c0 61 69 6e 77 25 29 0d 00 00 3c 00 00 25 1c 00 00 |ainw%)...<..%...|
000016d0 42 e0 2e 00 e6 55 eb ff f6 7c eb ff 70 1a 00 f2 |B....U...|..p...|
000016e0 3d 30 0d 00 00 1c 00 00 25 1c 00 00 42 70 17 00 |=0......%...Bp..|
000016f0 06 27 eb ff 16 4e eb ff 70 1a 00 f2 3a 0d 00 00 |.'...N..p...:...|
00001700 00 1c 00 00 25 1c 00 00 42 00 00 00 26 f8 ea ff |....%...B...&...|
00001710 36 1f eb ff 70 1a 00 f2 0d 00 00 00 00 1c 00 00 |6...p...........|
00001720 25 5c 00 00 42 70 f3 05 46 c9 ea ff 56 f0 ea ff |%\..Bp..F...V...|
00001730 70 1a 00 f2 52 45 4d 20 3d 3d 3d 3d 3d 20 4d 65 |p...REM ===== Me|
00001740 6e 75 5f 53 65 6c 65 63 74 20 72 6f 75 74 69 6e |nu_Select routin|
00001750 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |es =============|
00001760 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001770 3d 3d 3d 3d 3d 0d 00 00 00 5c 00 00 25 1c 00 00 |=====....\..%...|
00001780 42 00 00 00 66 9a ea ff 76 c1 ea ff 70 1a 00 f2 |B...f...v...p...|
00001790 0d 00 00 00 00 1c 00 00 25 38 00 00 42 40 90 02 |........%8..B@..|
000017a0 86 6b ea ff 96 92 ea ff 70 1a 00 f2 44 45 46 20 |.k......p...DEF |
000017b0 46 4e 5f 4d 65 6e 75 53 65 6c 65 63 74 5f 51 75 |FN_MenuSelect_Qu|
000017c0 69 74 28 62 6c 6b 25 29 0d 00 00 00 00 38 00 00 |it(blk%).....8..|
000017d0 25 2c 00 00 42 00 77 01 a6 3c ea ff b6 63 ea ff |%,..B.w..<...c..|
000017e0 70 1a 00 f2 5f 63 6c 6f 73 65 64 6f 77 6e 25 3d |p..._closedown%=|
000017f0 54 52 55 45 0d 00 00 00 00 2c 00 00 25 1c 00 00 |TRUE.....,..%...|
00001800 42 e0 2e 00 c6 0d ea ff d6 34 ea ff 70 1a 00 f2 |B........4..p...|
00001810 3d 30 0d 00 00 1c 00 00 25 1c 00 00 42 70 17 00 |=0......%...Bp..|
00001820 e6 de e9 ff f6 05 ea ff 70 1a 00 f2 3a 0d 00 00 |........p...:...|
00001830 00 1c 00 00 25 1c 00 00 42 00 00 00 06 b0 e9 ff |....%...B.......|
00001840 16 d7 e9 ff 70 1a 00 f2 0d 00 00 00 00 1c 00 00 |....p...........|
00001850 25 5c 00 00 42 70 f3 05 26 81 e9 ff 36 a8 e9 ff |%\..Bp..&...6...|
00001860 70 1a 00 f2 52 45 4d 20 3d 3d 3d 3d 3d 20 4d 65 |p...REM ===== Me|
00001870 6e 75 5f 57 61 72 6e 69 6e 67 20 72 6f 75 74 69 |nu_Warning routi|
00001880 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |nes ============|
00001890 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
000018a0 3d 3d 3d 3d 3d 0d 00 00 00 5c 00 00 25 1c 00 00 |=====....\..%...|
000018b0 42 00 00 00 46 52 e9 ff 56 79 e9 ff 70 1a 00 f2 |B...FR..Vy..p...|
000018c0 0d 00 00 00 00 1c 00 00 25 5c 00 00 42 70 f3 05 |........%\..Bp..|
000018d0 66 23 e9 ff 76 4a e9 ff 70 1a 00 f2 52 45 4d 20 |f#..vJ..p...REM |
000018e0 3d 3d 3d 3d 3d 20 44 61 74 61 5f 4c 6f 61 64 20 |===== Data_Load |
000018f0 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 3d 3d 3d |routines =======|
00001900 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001910 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 00 |=============...|
00001920 00 5c 00 00 25 1c 00 00 42 00 00 00 86 f4 e8 ff |.\..%...B.......|
00001930 96 1b e9 ff 70 1a 00 f2 0d 00 00 00 00 1c 00 00 |....p...........|
00001940 a5 80 00 00 42 70 f3 05 a6 c5 e8 ff b6 ec e8 ff |....Bp..........|
00001950 70 1a 00 f2 52 45 4d 20 3d 3d 3d 3d 3d 20 44 61 |p...REM ===== Da|
00001960 74 61 5f 53 61 76 65 20 72 6f 75 74 69 6e 65 73 |ta_Save routines|
00001970 20 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 3d 3d 3d 3d 3d 3d 3d |================|
00001990 3d 3d 3d 3d 3d 08 0a 00 1c a6 0a 00 00 00 00 00 |=====...........|
000019a0 07 a9 0a 00 1c a9 0a 00 1c a9 0a 00 00 00 00 00 |................|
000019b0 0d 08 0a 00 1c a9 0a 00 00 00 00 00 00 80 00 00 |................|
000019c0 25 1c 00 00 42 00 00 00 f6 8e e8 ff d6 bd e8 ff |%...B...........|
000019d0 20 22 00 f2 0d 00 00 00 00 1c 00 00 06 00 00 00 | "..............|
000019e0 79 56 34 12 ac 00 00 00 02 00 00 00 00 00 00 00 |yV4.............|
000019f0 06 08 00 00 00 08 00 00 01 10 00 00 00 00 00 00 |................|
00001a00 00 00 00 00 00 10 00 00 02 1c 00 00 f0 01 00 00 |................|
00001a10 00 00 00 00 18 66 03 00 11 cc 09 00 00 00 00 00 |.....f..........|
00001a20 00 1c 00 00 a5 64 00 00 42 3a ff 00 81 05 f4 ff |.....d..B:......|
00001a30 31 3c f4 ff e4 29 00 f2 07 66 03 00 18 66 03 00 |1<...)...f...f..|
00001a40 18 66 03 00 00 00 00 00 07 05 05 05 11 cc 09 00 |.f..............|
00001a50 18 66 03 00 11 cc 09 00 00 00 00 00 41 20 54 75 |.f..........A Tu|
00001a60 74 6f 72 69 61 6c 08 08 11 cc 09 00 18 66 03 00 |torial.......f..|
00001a70 00 00 00 00 08 00 00 00 18 66 03 00 00 00 00 00 |.........f......|
00001a80 0d 00 00 00 00 64 00 00 06 00 00 00 79 56 34 12 |.....d......yV4.|
00001a90 ac 00 00 00 03 00 00 00 00 00 00 00 06 08 00 00 |................|
00001aa0 00 08 00 00 01 10 00 00 00 00 00 00 00 00 00 00 |................|
00001ab0 00 10 00 00 02 1c 00 00 44 04 00 00 00 00 00 00 |........D.......|
00001ac0 18 66 03 00 11 cc 09 00 00 00 00 00 00 1c 00 00 |.f..............|
00001ad0 a5 64 00 00 42 3a ff 00 d0 05 e7 ff 80 3c e7 ff |.d..B:.......<..|
00001ae0 e4 29 00 f2 07 66 03 00 18 66 03 00 18 66 03 00 |.)...f...f...f..|
00001af0 00 00 00 00 07 05 05 05 11 cc 09 00 18 66 03 00 |.............f..|
00001b00 11 cc 09 00 00 00 00 00 41 20 54 75 74 6f 72 69 |........A Tutori|
00001b10 61 6c 08 69 11 cc 09 00 18 66 03 00 00 00 00 00 |al.i.....f......|
00001b20 08 00 00 00 18 66 03 00 00 00 00 00 0d 00 00 00 |.....f..........|
00001b30 00 64 00 00 06 00 00 00 79 56 34 12 |.d......yV4.|
00001b3c 
.