Home » CEEFAX disks » telesoftware11.adl » 11-12-88/TOKENS

11-12-88/TOKENS

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 » CEEFAX disks » telesoftware11.adl
Filename: 11-12-88/TOKENS
Read OK:
File size: 0254 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM Echoes Token Changer
   20REM (C) Allan Kelly 25/2/88
   30 
   50PROCset_vars
  100INPUT"Name of Echoes file:"file$
  110file=OPENUP(file$)
  120IF file=0 PRINTfile$;" not found.":END
  130 
  140load=FNread_load(file$)
  150 
  160INPUT"Start token:"x$
  170st_token=EVAL(x$)
  180INPUT"End token:"x$
  190end_token=EVAL(x$)
  220PTR#file=rem_token-load
  230BPUT#file,st_token
  240PTR#file=end_token-load
  250BPUT#file,finish_token
  900CLOSE#0
 1000END 
 1010 
 1100DEFFNread_load(file$)
 1110!dblock=dblock+&20
 1120$(dblock+&20)=file$
 1130A%=5
 1140X%=dblock MOD 256
 1150Y%=dblock DIV 256
 1160CALL&FFDD
 1170:=!(dblock+2)
 1180 
19000DEFPROCset_vars
20000PRINT"NO VARIABLES!!"
20010PRINT"EXEC L.VARS......"
20020STOP
30000ENDPROC

� 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
11-12-88/TOKENS.m0
11-12-88/TOKENS.m1
11-12-88/TOKENS.m2
11-12-88/TOKENS.m4
11-12-88/TOKENS.m5