Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape28a_acorn_eu_1991_october.wav » TCHRSRC
TCHRSRC
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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape28a_acorn_eu_1991_october.wav |
| Filename: | TCHRSRC |
| Read OK: | ✔ |
| File size: | 014C bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_09_08_D-MU09_08.ssd » TCHRSRC
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape28a_acorn_eu_1991_october.wav » TCHRSRC
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape28b_acorn_eu_1991_october.wav » TCHRSRC
File contents
10REM Keyboard Graphics 20REM listing two 30REM By Peter Harris 40REM (C) The Micro User 50oldvec=&230:newvec=&20E 60FORI%=0TO2STEP2 70P%=&A60 80[OPTI% 85.init 90LDA oldvec 100STA newvec 110LDA oldvec+1 120STA newvec+1 130RTS 140] 150P%=P%+1 160NEXT 170x$="SAVE TCHRS "+STR$~init+" "+STR$~P% 180DIM B 30:$B=x$:X%=B MOD &100:Y%=B DIV &100 190CALL &FFF7
� Keyboard Graphics � listing two � By Peter Harris (� (C) The Micro User 2oldvec=&230:newvec=&20E < �I%=0�2�2 F P%=&A60 P [OPTI% U .init ZLDA oldvec dSTA newvec nLDA oldvec+1 xSTA newvec+1 �RTS �] � P%=P%+1 �� �$x$="SAVE TCHRS "+�~init+" "+�~P% �(� B 30:$B=x$:X%=B � &100:Y%=B � &100 � � &FFF7 �
00000000 0d 00 0a 17 f4 20 4b 65 79 62 6f 61 72 64 20 47 |..... Keyboard G| 00000010 72 61 70 68 69 63 73 0d 00 14 11 f4 20 6c 69 73 |raphics..... lis| 00000020 74 69 6e 67 20 74 77 6f 0d 00 1e 15 f4 20 42 79 |ting two..... By| 00000030 20 50 65 74 65 72 20 48 61 72 72 69 73 0d 00 28 | Peter Harris..(| 00000040 18 f4 20 28 43 29 20 54 68 65 20 4d 69 63 72 6f |.. (C) The Micro| 00000050 20 55 73 65 72 0d 00 32 1b 6f 6c 64 76 65 63 3d | User..2.oldvec=| 00000060 26 32 33 30 3a 6e 65 77 76 65 63 3d 26 32 30 45 |&230:newvec=&20E| 00000070 0d 00 3c 0d e3 49 25 3d 30 b8 32 88 32 0d 00 46 |..<..I%=0.2.2..F| 00000080 0b 50 25 3d 26 41 36 30 0d 00 50 0a 5b 4f 50 54 |.P%=&A60..P.[OPT| 00000090 49 25 0d 00 55 09 2e 69 6e 69 74 0d 00 5a 0e 4c |I%..U..init..Z.L| 000000a0 44 41 20 6f 6c 64 76 65 63 0d 00 64 0e 53 54 41 |DA oldvec..d.STA| 000000b0 20 6e 65 77 76 65 63 0d 00 6e 10 4c 44 41 20 6f | newvec..n.LDA o| 000000c0 6c 64 76 65 63 2b 31 0d 00 78 10 53 54 41 20 6e |ldvec+1..x.STA n| 000000d0 65 77 76 65 63 2b 31 0d 00 82 07 52 54 53 0d 00 |ewvec+1....RTS..| 000000e0 8c 05 5d 0d 00 96 0b 50 25 3d 50 25 2b 31 0d 00 |..]....P%=P%+1..| 000000f0 a0 05 ed 0d 00 aa 24 78 24 3d 22 53 41 56 45 20 |......$x$="SAVE | 00000100 54 43 48 52 53 20 22 2b c3 7e 69 6e 69 74 2b 22 |TCHRS "+.~init+"| 00000110 20 22 2b c3 7e 50 25 0d 00 b4 28 de 20 42 20 33 | "+.~P%...(. B 3| 00000120 30 3a 24 42 3d 78 24 3a 58 25 3d 42 20 83 20 26 |0:$B=x$:X%=B . &| 00000130 31 30 30 3a 59 25 3d 42 20 81 20 26 31 30 30 0d |100:Y%=B . &100.| 00000140 00 be 0b d6 20 26 46 46 46 37 0d ff |.... &FFF7..| 0000014c
.