� Echoes Token Changer
� (C) Allan Kelly 25/2/88
 
2
�set_vars
d �"Name of Echoes file:"file$
nfile=�(file$)
x#� file=0 �file$;" not found.":�
� 
�load=�read_load(file$)
� 
��"Start token:"x$
�st_token=�(x$)
��"End token:"x$
�end_token=�(x$)
��#file=rem_token-load
��#file,st_token
��#file=end_token-load
��#file,finish_token
��#0
�� 
� 
Lݤread_load(file$)
V!dblock=dblock+&20
`$(dblock+&20)=file$
jA%=5
tX%=dblock � 256
~Y%=dblock � 256
�
�&FFDD
�:=!(dblock+2)
� 
J8��set_vars
N �"NO VARIABLES!!"
N*�"EXEC L.VARS......"
N4�
u0�
�

00000000  0d 00 0a 1a f4 20 45 63  68 6f 65 73 20 54 6f 6b  |..... Echoes Tok|
00000010  65 6e 20 43 68 61 6e 67  65 72 0d 00 14 1d f4 20  |en Changer..... |
00000020  28 43 29 20 41 6c 6c 61  6e 20 4b 65 6c 6c 79 20  |(C) Allan Kelly |
00000030  32 35 2f 32 2f 38 38 0d  00 1e 05 20 0d 00 32 0d  |25/2/88.... ..2.|
00000040  f2 73 65 74 5f 76 61 72  73 0d 00 64 20 e8 22 4e  |.set_vars..d ."N|
00000050  61 6d 65 20 6f 66 20 45  63 68 6f 65 73 20 66 69  |ame of Echoes fi|
00000060  6c 65 3a 22 66 69 6c 65  24 0d 00 6e 11 66 69 6c  |le:"file$..n.fil|
00000070  65 3d ad 28 66 69 6c 65  24 29 0d 00 78 23 e7 20  |e=.(file$)..x#. |
00000080  66 69 6c 65 3d 30 20 f1  66 69 6c 65 24 3b 22 20  |file=0 .file$;" |
00000090  6e 6f 74 20 66 6f 75 6e  64 2e 22 3a e0 0d 00 82  |not found.":....|
000000a0  05 20 0d 00 8c 1a 6c 6f  61 64 3d a4 72 65 61 64  |. ....load=.read|
000000b0  5f 6c 6f 61 64 28 66 69  6c 65 24 29 0d 00 96 05  |_load(file$)....|
000000c0  20 0d 00 a0 15 e8 22 53  74 61 72 74 20 74 6f 6b  | ....."Start tok|
000000d0  65 6e 3a 22 78 24 0d 00  aa 12 73 74 5f 74 6f 6b  |en:"x$....st_tok|
000000e0  65 6e 3d a0 28 78 24 29  0d 00 b4 13 e8 22 45 6e  |en=.(x$)....."En|
000000f0  64 20 74 6f 6b 65 6e 3a  22 78 24 0d 00 be 13 65  |d token:"x$....e|
00000100  6e 64 5f 74 6f 6b 65 6e  3d a0 28 78 24 29 0d 00  |nd_token=.(x$)..|
00000110  dc 19 cf 23 66 69 6c 65  3d 72 65 6d 5f 74 6f 6b  |...#file=rem_tok|
00000120  65 6e 2d 6c 6f 61 64 0d  00 e6 13 d5 23 66 69 6c  |en-load.....#fil|
00000130  65 2c 73 74 5f 74 6f 6b  65 6e 0d 00 f0 19 cf 23  |e,st_token.....#|
00000140  66 69 6c 65 3d 65 6e 64  5f 74 6f 6b 65 6e 2d 6c  |file=end_token-l|
00000150  6f 61 64 0d 00 fa 17 d5  23 66 69 6c 65 2c 66 69  |oad.....#file,fi|
00000160  6e 69 73 68 5f 74 6f 6b  65 6e 0d 03 84 07 d9 23  |nish_token.....#|
00000170  30 0d 03 e8 06 e0 20 0d  03 f2 05 20 0d 04 4c 16  |0..... .... ..L.|
00000180  dd a4 72 65 61 64 5f 6c  6f 61 64 28 66 69 6c 65  |..read_load(file|
00000190  24 29 0d 04 56 16 21 64  62 6c 6f 63 6b 3d 64 62  |$)..V.!dblock=db|
000001a0  6c 6f 63 6b 2b 26 32 30  0d 04 60 17 24 28 64 62  |lock+&20..`.$(db|
000001b0  6c 6f 63 6b 2b 26 32 30  29 3d 66 69 6c 65 24 0d  |lock+&20)=file$.|
000001c0  04 6a 08 41 25 3d 35 0d  04 74 13 58 25 3d 64 62  |.j.A%=5..t.X%=db|
000001d0  6c 6f 63 6b 20 83 20 32  35 36 0d 04 7e 13 59 25  |lock . 256..~.Y%|
000001e0  3d 64 62 6c 6f 63 6b 20  81 20 32 35 36 0d 04 88  |=dblock . 256...|
000001f0  0a d6 26 46 46 44 44 0d  04 92 11 3a 3d 21 28 64  |..&FFDD....:=!(d|
00000200  62 6c 6f 63 6b 2b 32 29  0d 04 9c 05 20 0d 4a 38  |block+2).... .J8|
00000210  0e dd f2 73 65 74 5f 76  61 72 73 0d 4e 20 15 f1  |...set_vars.N ..|
00000220  22 4e 4f 20 56 41 52 49  41 42 4c 45 53 21 21 22  |"NO VARIABLES!!"|
00000230  0d 4e 2a 18 f1 22 45 58  45 43 20 4c 2e 56 41 52  |.N*.."EXEC L.VAR|
00000240  53 2e 2e 2e 2e 2e 2e 22  0d 4e 34 05 fa 0d 75 30  |S......".N4...u0|
00000250  05 e1 0d ff                                       |....|
00000254