Home » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars » RunTheRISC/KeyTst
RunTheRISC/KeyTst
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 » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars |
| Filename: | RunTheRISC/KeyTst |
| Read OK: | ✔ |
| File size: | 0156 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>KeyTst 20PRINT"Shows the internal key number" 30PRINT"for any key held down" 40PRINT"By Mike Cook" 50PRINT"Press Esc to end" 60PRINT 70Last%=0 80 90REPEAT 100SYS&6,121,0 TO ,K% 110IF Last%<>K% PROC_Display(K%) 120Last%=K% 130REM Delay 20mS 140*FX19 150UNTIL FALSE 160 170DEF PROC_Display(N%) 180LOCAL A%,B% 190IF N%<>&FF THEN 200PRINT "Hex &";~N%;" or Decimal ";N% 210ELSE 220PRINT 230ENDIF 240ENDPROC
�>KeyTst $�"Shows the internal key number" �"for any key held down" (�"By Mike Cook" 2�"Press Esc to end" <� F Last%=0 P Z� dș&6,121,0 � ,K% n � Last%<>K% �_Display(K%) x Last%=K% �� Delay 20mS � *FX19 �� � � �� �_Display(N%) � � A%,B% �� N%<>&FF � �#� "Hex &";~N%;" or Decimal ";N% �� �� �� �� �
00000000 0d 00 0a 0c f4 3e 4b 65 79 54 73 74 0d 00 14 24 |.....>KeyTst...$| 00000010 f1 22 53 68 6f 77 73 20 74 68 65 20 69 6e 74 65 |."Shows the inte| 00000020 72 6e 61 6c 20 6b 65 79 20 6e 75 6d 62 65 72 22 |rnal key number"| 00000030 0d 00 1e 1c f1 22 66 6f 72 20 61 6e 79 20 6b 65 |....."for any ke| 00000040 79 20 68 65 6c 64 20 64 6f 77 6e 22 0d 00 28 13 |y held down"..(.| 00000050 f1 22 42 79 20 4d 69 6b 65 20 43 6f 6f 6b 22 0d |."By Mike Cook".| 00000060 00 32 17 f1 22 50 72 65 73 73 20 45 73 63 20 74 |.2.."Press Esc t| 00000070 6f 20 65 6e 64 22 0d 00 3c 05 f1 0d 00 46 0b 4c |o end"..<....F.L| 00000080 61 73 74 25 3d 30 0d 00 50 04 0d 00 5a 05 f5 0d |ast%=0..P...Z...| 00000090 00 64 14 c8 99 26 36 2c 31 32 31 2c 30 20 b8 20 |.d...&6,121,0 . | 000000a0 2c 4b 25 0d 00 6e 1d e7 20 4c 61 73 74 25 3c 3e |,K%..n.. Last%<>| 000000b0 4b 25 20 f2 5f 44 69 73 70 6c 61 79 28 4b 25 29 |K% ._Display(K%)| 000000c0 0d 00 78 0c 4c 61 73 74 25 3d 4b 25 0d 00 82 10 |..x.Last%=K%....| 000000d0 f4 20 44 65 6c 61 79 20 32 30 6d 53 0d 00 8c 09 |. Delay 20mS....| 000000e0 2a 46 58 31 39 0d 00 96 07 fd 20 a3 0d 00 a0 04 |*FX19..... .....| 000000f0 0d 00 aa 13 dd 20 f2 5f 44 69 73 70 6c 61 79 28 |..... ._Display(| 00000100 4e 25 29 0d 00 b4 0b ea 20 41 25 2c 42 25 0d 00 |N%)..... A%,B%..| 00000110 be 0f e7 20 4e 25 3c 3e 26 46 46 20 8c 0d 00 c8 |... N%<>&FF ....| 00000120 23 f1 20 22 48 65 78 20 26 22 3b 7e 4e 25 3b 22 |#. "Hex &";~N%;"| 00000130 20 6f 72 20 44 65 63 69 6d 61 6c 20 22 3b 4e 25 | or Decimal ";N%| 00000140 0d 00 d2 05 cc 0d 00 dc 05 f1 0d 00 e6 05 cd 0d |................| 00000150 00 f0 05 e1 0d ff |......| 00000156
.