� Watcher Linker 2/4/88
� For Watcher Menu code
� (C) Allan Kelly
( 
-� data% 32
2�7
<!�''"Watcher Menu Code Linker"
F�"(C) Allan Kelly 2/4/88"
P.�''"File L.Mprog should contain Menu code"
ZC�"File L.Mdata should contain Menu DATA   subroutines and data"
_3�"File L.BRK should contain error hadling code"
d 
e�''"Load L.BRK"
f=� �read_data("L.BRK")=0 �"L.BRK file missing run M.BRK":�
gx=�os_load("L.BRK",&3000)
n�'"Load L.Mcode"
sB� �read_data("L.Mcode")=0 �"L.Mcode file missing run M.MENU":�
ux=�os_load("L.Mcode",&3100)
��'"Load L.Mdata"
�B� �read_data("L.Mdata")=0 �"L.Mdata file missing run M.DATA":�
�x=�os_load("L.Mdata",&3D00)
� 
��'"Saving U.MENU 3000 4700"
�0x=�os_save("U.MENU",&3000,&3000,&3000,&4700)
��
�ݤread_data(file$)
�� A%,X%,Y%,a%
�A%=5
�X%=data% � 256
�Y%=data% � 256
$(data%+18)=file$
!data%=data%+18
a%=�&FFDD �&3
 load%=!(data%+2)
*exec%=!(data%+6)
4len%=!(data%+10)
>attr%=!(data%+14)�&FF
H:=a%
R 
\ݤos_load(file$,load%)
f
A%=&FF
pX%=data% � 256
zY%=data% � 256
�!data%=data%+18
�!(data%+2)=load%
�!(data%+6)=0
�!(data%+10)=0
�!(data%+14)=0
�$(data%+18)=file$
�:=�&FFDD �&3
� 
�,ݤos_save(file$,load%,exec%,start%,end%)
�A%=0
�X%=data% � 256
�Y%=data% � 256
�!data%=data%+18
	!(data%+2)=load%
	!(data%+6)=exec%
	!(data%+10)=start%
	$!(data%+14)=end%
	.$(data%+18)=file$
	8:=�&FFDD �&3
�

00000000  0d 00 0a 1b f4 20 57 61  74 63 68 65 72 20 4c 69  |..... Watcher Li|
00000010  6e 6b 65 72 20 32 2f 34  2f 38 38 0d 00 14 1b f4  |nker 2/4/88.....|
00000020  20 46 6f 72 20 57 61 74  63 68 65 72 20 4d 65 6e  | For Watcher Men|
00000030  75 20 63 6f 64 65 0d 00  1e 15 f4 20 28 43 29 20  |u code..... (C) |
00000040  41 6c 6c 61 6e 20 4b 65  6c 6c 79 0d 00 28 05 20  |Allan Kelly..(. |
00000050  0d 00 2d 0e de 20 64 61  74 61 25 20 33 32 0d 00  |..-.. data% 32..|
00000060  32 06 eb 37 0d 00 3c 21  f1 27 27 22 57 61 74 63  |2..7..<!.''"Watc|
00000070  68 65 72 20 4d 65 6e 75  20 43 6f 64 65 20 4c 69  |her Menu Code Li|
00000080  6e 6b 65 72 22 0d 00 46  1d f1 22 28 43 29 20 41  |nker"..F.."(C) A|
00000090  6c 6c 61 6e 20 4b 65 6c  6c 79 20 32 2f 34 2f 38  |llan Kelly 2/4/8|
000000a0  38 22 0d 00 50 2e f1 27  27 22 46 69 6c 65 20 4c  |8"..P..''"File L|
000000b0  2e 4d 70 72 6f 67 20 73  68 6f 75 6c 64 20 63 6f  |.Mprog should co|
000000c0  6e 74 61 69 6e 20 4d 65  6e 75 20 63 6f 64 65 22  |ntain Menu code"|
000000d0  0d 00 5a 43 f1 22 46 69  6c 65 20 4c 2e 4d 64 61  |..ZC."File L.Mda|
000000e0  74 61 20 73 68 6f 75 6c  64 20 63 6f 6e 74 61 69  |ta should contai|
000000f0  6e 20 4d 65 6e 75 20 44  41 54 41 20 20 20 73 75  |n Menu DATA   su|
00000100  62 72 6f 75 74 69 6e 65  73 20 61 6e 64 20 64 61  |broutines and da|
00000110  74 61 22 0d 00 5f 33 f1  22 46 69 6c 65 20 4c 2e  |ta".._3."File L.|
00000120  42 52 4b 20 73 68 6f 75  6c 64 20 63 6f 6e 74 61  |BRK should conta|
00000130  69 6e 20 65 72 72 6f 72  20 68 61 64 6c 69 6e 67  |in error hadling|
00000140  20 63 6f 64 65 22 0d 00  64 05 20 0d 00 65 13 f1  | code"..d. ..e..|
00000150  27 27 22 4c 6f 61 64 20  4c 2e 42 52 4b 22 0d 00  |''"Load L.BRK"..|
00000160  66 3d e7 20 a4 72 65 61  64 5f 64 61 74 61 28 22  |f=. .read_data("|
00000170  4c 2e 42 52 4b 22 29 3d  30 20 f1 22 4c 2e 42 52  |L.BRK")=0 ."L.BR|
00000180  4b 20 66 69 6c 65 20 6d  69 73 73 69 6e 67 20 72  |K file missing r|
00000190  75 6e 20 4d 2e 42 52 4b  22 3a fa 0d 00 67 1d 78  |un M.BRK":...g.x|
000001a0  3d a4 6f 73 5f 6c 6f 61  64 28 22 4c 2e 42 52 4b  |=.os_load("L.BRK|
000001b0  22 2c 26 33 30 30 30 29  0d 00 6e 14 f1 27 22 4c  |",&3000)..n..'"L|
000001c0  6f 61 64 20 4c 2e 4d 63  6f 64 65 22 0d 00 73 42  |oad L.Mcode"..sB|
000001d0  e7 20 a4 72 65 61 64 5f  64 61 74 61 28 22 4c 2e  |. .read_data("L.|
000001e0  4d 63 6f 64 65 22 29 3d  30 20 f1 22 4c 2e 4d 63  |Mcode")=0 ."L.Mc|
000001f0  6f 64 65 20 66 69 6c 65  20 6d 69 73 73 69 6e 67  |ode file missing|
00000200  20 72 75 6e 20 4d 2e 4d  45 4e 55 22 3a fa 0d 00  | run M.MENU":...|
00000210  75 1f 78 3d a4 6f 73 5f  6c 6f 61 64 28 22 4c 2e  |u.x=.os_load("L.|
00000220  4d 63 6f 64 65 22 2c 26  33 31 30 30 29 0d 00 82  |Mcode",&3100)...|
00000230  14 f1 27 22 4c 6f 61 64  20 4c 2e 4d 64 61 74 61  |..'"Load L.Mdata|
00000240  22 0d 00 8c 42 e7 20 a4  72 65 61 64 5f 64 61 74  |"...B. .read_dat|
00000250  61 28 22 4c 2e 4d 64 61  74 61 22 29 3d 30 20 f1  |a("L.Mdata")=0 .|
00000260  22 4c 2e 4d 64 61 74 61  20 66 69 6c 65 20 6d 69  |"L.Mdata file mi|
00000270  73 73 69 6e 67 20 72 75  6e 20 4d 2e 44 41 54 41  |ssing run M.DATA|
00000280  22 3a fa 0d 00 91 1f 78  3d a4 6f 73 5f 6c 6f 61  |":.....x=.os_loa|
00000290  64 28 22 4c 2e 4d 64 61  74 61 22 2c 26 33 44 30  |d("L.Mdata",&3D0|
000002a0  30 29 0d 00 96 05 20 0d  00 a0 1f f1 27 22 53 61  |0).... .....'"Sa|
000002b0  76 69 6e 67 20 55 2e 4d  45 4e 55 20 33 30 30 30  |ving U.MENU 3000|
000002c0  20 34 37 30 30 22 0d 00  aa 30 78 3d a4 6f 73 5f  | 4700"...0x=.os_|
000002d0  73 61 76 65 28 22 55 2e  4d 45 4e 55 22 2c 26 33  |save("U.MENU",&3|
000002e0  30 30 30 2c 26 33 30 30  30 2c 26 33 30 30 30 2c  |000,&3000,&3000,|
000002f0  26 34 37 30 30 29 0d 00  b4 05 e0 0d 07 d0 16 dd  |&4700)..........|
00000300  a4 72 65 61 64 5f 64 61  74 61 28 66 69 6c 65 24  |.read_data(file$|
00000310  29 0d 07 da 11 ea 20 41  25 2c 58 25 2c 59 25 2c  |)..... A%,X%,Y%,|
00000320  61 25 0d 07 e4 08 41 25  3d 35 0d 07 ee 12 58 25  |a%....A%=5....X%|
00000330  3d 64 61 74 61 25 20 83  20 32 35 36 0d 07 f8 12  |=data% . 256....|
00000340  59 25 3d 64 61 74 61 25  20 81 20 32 35 36 0d 08  |Y%=data% . 256..|
00000350  02 15 24 28 64 61 74 61  25 2b 31 38 29 3d 66 69  |..$(data%+18)=fi|
00000360  6c 65 24 0d 08 0c 13 21  64 61 74 61 25 3d 64 61  |le$....!data%=da|
00000370  74 61 25 2b 31 38 0d 08  16 11 61 25 3d ba 26 46  |ta%+18....a%=.&F|
00000380  46 44 44 20 80 26 33 0d  08 20 14 6c 6f 61 64 25  |FDD .&3.. .load%|
00000390  3d 21 28 64 61 74 61 25  2b 32 29 0d 08 2a 14 65  |=!(data%+2)..*.e|
000003a0  78 65 63 25 3d 21 28 64  61 74 61 25 2b 36 29 0d  |xec%=!(data%+6).|
000003b0  08 34 14 6c 65 6e 25 3d  21 28 64 61 74 61 25 2b  |.4.len%=!(data%+|
000003c0  31 30 29 0d 08 3e 19 61  74 74 72 25 3d 21 28 64  |10)..>.attr%=!(d|
000003d0  61 74 61 25 2b 31 34 29  80 26 46 46 0d 08 48 08  |ata%+14).&FF..H.|
000003e0  3a 3d 61 25 0d 08 52 05  20 0d 08 5c 1a dd a4 6f  |:=a%..R. ..\...o|
000003f0  73 5f 6c 6f 61 64 28 66  69 6c 65 24 2c 6c 6f 61  |s_load(file$,loa|
00000400  64 25 29 0d 08 66 0a 41  25 3d 26 46 46 0d 08 70  |d%)..f.A%=&FF..p|
00000410  12 58 25 3d 64 61 74 61  25 20 83 20 32 35 36 0d  |.X%=data% . 256.|
00000420  08 7a 12 59 25 3d 64 61  74 61 25 20 81 20 32 35  |.z.Y%=data% . 25|
00000430  36 0d 08 84 13 21 64 61  74 61 25 3d 64 61 74 61  |6....!data%=data|
00000440  25 2b 31 38 0d 08 8e 14  21 28 64 61 74 61 25 2b  |%+18....!(data%+|
00000450  32 29 3d 6c 6f 61 64 25  0d 08 98 10 21 28 64 61  |2)=load%....!(da|
00000460  74 61 25 2b 36 29 3d 30  0d 08 a2 11 21 28 64 61  |ta%+6)=0....!(da|
00000470  74 61 25 2b 31 30 29 3d  30 0d 08 ac 11 21 28 64  |ta%+10)=0....!(d|
00000480  61 74 61 25 2b 31 34 29  3d 30 0d 08 b6 15 24 28  |ata%+14)=0....$(|
00000490  64 61 74 61 25 2b 31 38  29 3d 66 69 6c 65 24 0d  |data%+18)=file$.|
000004a0  08 c0 10 3a 3d ba 26 46  46 44 44 20 80 26 33 0d  |...:=.&FFDD .&3.|
000004b0  08 ca 05 20 0d 08 d4 2c  dd a4 6f 73 5f 73 61 76  |... ...,..os_sav|
000004c0  65 28 66 69 6c 65 24 2c  6c 6f 61 64 25 2c 65 78  |e(file$,load%,ex|
000004d0  65 63 25 2c 73 74 61 72  74 25 2c 65 6e 64 25 29  |ec%,start%,end%)|
000004e0  0d 08 de 08 41 25 3d 30  0d 08 e8 12 58 25 3d 64  |....A%=0....X%=d|
000004f0  61 74 61 25 20 83 20 32  35 36 0d 08 f2 12 59 25  |ata% . 256....Y%|
00000500  3d 64 61 74 61 25 20 81  20 32 35 36 0d 08 fc 13  |=data% . 256....|
00000510  21 64 61 74 61 25 3d 64  61 74 61 25 2b 31 38 0d  |!data%=data%+18.|
00000520  09 06 14 21 28 64 61 74  61 25 2b 32 29 3d 6c 6f  |...!(data%+2)=lo|
00000530  61 64 25 0d 09 10 14 21  28 64 61 74 61 25 2b 36  |ad%....!(data%+6|
00000540  29 3d 65 78 65 63 25 0d  09 1a 16 21 28 64 61 74  |)=exec%....!(dat|
00000550  61 25 2b 31 30 29 3d 73  74 61 72 74 25 0d 09 24  |a%+10)=start%..$|
00000560  14 21 28 64 61 74 61 25  2b 31 34 29 3d 65 6e 64  |.!(data%+14)=end|
00000570  25 0d 09 2e 15 24 28 64  61 74 61 25 2b 31 38 29  |%....$(data%+18)|
00000580  3d 66 69 6c 65 24 0d 09  38 10 3a 3d ba 26 46 46  |=file$..8.:=.&FF|
00000590  44 44 20 80 26 33 0d ff                           |DD .&3..|
00000598