Home » CEEFAX disks » telesoftware10.adl » 11-11-88/ADDRESS
11-11-88/ADDRESS
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 » telesoftware10.adl |
| Filename: | 11-11-88/ADDRESS |
| Read OK: | ✔ |
| File size: | 01C7 bytes |
| Load address: | 0800 |
| Exec address: | 8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware10.adl » 04-11-88/ADDRESS
- CEEFAX disks » telesoftware10.adl » 11-11-88/ADDRESS
File contents
10REM: ADDRESS
20REPEAT
30INPUT"Start address &"start$
40address=EVAL("&"+start$)
50UNTIL address > &250 AND address < &3FFF
60REPEAT
70INPUT"End address &"end$
80end=EVAL("&"+end$)
90UNTIL end >= address AND end < &3FFF
100PRINT'"Press spacebar to speak and"
110PRINT"any other key to print address"'
120REPEAT UNTIL GET = 32
130REPEAT
140SOUND &FFBF,address,0,0
150REPEAT
160spacebar=GET
170IF spacebar <> 32 THEN SOUND &FFBF,address,0,0:PRINT"address = &";~address
180UNTIL spacebar = 32
190address=address+1
200UNTIL address > end
�: ADDRESS
�
�"Start address &"start$
(address=�("&"+start$)
2&� address > &250 � address < &3FFF
<�
F�"End address &"end$
Pend=�("&"+end$)
Z"� end >= address � end < &3FFF
d#�'"Press spacebar to speak and"
n&�"any other key to print address"'
x� � � = 32
��
�� &FFBF,address,0,0
��
�spacebar=�
�B� spacebar <> 32 � � &FFBF,address,0,0:�"address = &";~address
�� spacebar = 32
�address=address+1
�� address > end
� 00000000 0d 00 0a 0e f4 3a 20 41 44 44 52 45 53 53 0d 00 |.....: ADDRESS..|
00000010 14 05 f5 0d 00 1e 1c e8 22 53 74 61 72 74 20 61 |........"Start a|
00000020 64 64 72 65 73 73 20 26 22 73 74 61 72 74 24 0d |ddress &"start$.|
00000030 00 28 19 61 64 64 72 65 73 73 3d a0 28 22 26 22 |.(.address=.("&"|
00000040 2b 73 74 61 72 74 24 29 0d 00 32 26 fd 20 61 64 |+start$)..2&. ad|
00000050 64 72 65 73 73 20 3e 20 26 32 35 30 20 80 20 61 |dress > &250 . a|
00000060 64 64 72 65 73 73 20 3c 20 26 33 46 46 46 0d 00 |ddress < &3FFF..|
00000070 3c 05 f5 0d 00 46 1a e8 22 45 6e 64 20 61 64 64 |<....F.."End add|
00000080 72 65 73 73 20 20 20 26 22 65 6e 64 24 0d 00 50 |ress &"end$..P|
00000090 13 65 6e 64 3d a0 28 22 26 22 2b 65 6e 64 24 29 |.end=.("&"+end$)|
000000a0 0d 00 5a 22 fd 20 65 6e 64 20 3e 3d 20 61 64 64 |..Z". end >= add|
000000b0 72 65 73 73 20 80 20 65 6e 64 20 3c 20 26 33 46 |ress . end < &3F|
000000c0 46 46 0d 00 64 23 f1 27 22 50 72 65 73 73 20 73 |FF..d#.'"Press s|
000000d0 70 61 63 65 62 61 72 20 74 6f 20 73 70 65 61 6b |pacebar to speak|
000000e0 20 61 6e 64 22 0d 00 6e 26 f1 22 61 6e 79 20 6f | and"..n&."any o|
000000f0 74 68 65 72 20 6b 65 79 20 74 6f 20 70 72 69 6e |ther key to prin|
00000100 74 20 61 64 64 72 65 73 73 22 27 0d 00 78 0e f5 |t address"'..x..|
00000110 20 fd 20 a5 20 3d 20 33 32 0d 00 82 05 f5 0d 00 | . . = 32.......|
00000120 8c 17 d4 20 26 46 46 42 46 2c 61 64 64 72 65 73 |... &FFBF,addres|
00000130 73 2c 30 2c 30 0d 00 96 05 f5 0d 00 a0 0e 73 70 |s,0,0.........sp|
00000140 61 63 65 62 61 72 3d a5 0d 00 aa 42 e7 20 73 70 |acebar=....B. sp|
00000150 61 63 65 62 61 72 20 3c 3e 20 33 32 20 8c 20 d4 |acebar <> 32 . .|
00000160 20 26 46 46 42 46 2c 61 64 64 72 65 73 73 2c 30 | &FFBF,address,0|
00000170 2c 30 3a f1 22 61 64 64 72 65 73 73 20 3d 20 26 |,0:."address = &|
00000180 22 3b 7e 61 64 64 72 65 73 73 0d 00 b4 13 fd 20 |";~address..... |
00000190 73 70 61 63 65 62 61 72 20 3d 20 33 32 0d 00 be |spacebar = 32...|
000001a0 15 61 64 64 72 65 73 73 3d 61 64 64 72 65 73 73 |.address=address|
000001b0 2b 31 0d 00 c8 13 fd 20 61 64 64 72 65 73 73 20 |+1..... address |
000001c0 3e 20 65 6e 64 0d ff |> end..|
000001c7 
.