'===========================================================================
' Subject: KEYCODE UTILITY                   Date: 11-20-99 (16:56)       
' Author:  Dieter Folger                     Code: QB, QBasic, PDS, PB    
' Origin:  folger@bnv-bamberg.de           Packet: KEYBOARD.ABC
'===========================================================================
'-------------------------------------------------
' KEY.BAS - Basic loader for writing KEYCODE.COM
' For QBASIC or PowerBasic (uncomment line below!)
' KEYCODE tells you scan code, Ascii value (in dec
' and hex) and character of a pressed key -
' useful for exploring the keyboard.
' Freeware (c) 1993 by D. Folger
'-------------------------------------------------
'OPTION BINARY BASE 1 '<- uncomment this for PowerBasic!
OPEN "KEYCODE.COM" FOR BINARY AS #1
DIM c AS STRING * 1
FOR i = 1 TO 231
    READ a$
    b$ = CHR$(VAL("&H" + a$))
    PUT #1, i, b$
NEXT
CLOSE
DATA E9,23,00,4B,65,79,63,6F,64,65,2E,63,6F,6D,20,FE
DATA 20,28,63,29,20,31,39,39,33,20,62,79,20,44,2E,20
DATA 46,6F,6C,67,65,72,BA,9E,01,B4,09,CD,21,B4,10,CD
DATA 16,89,C3,BF,CC,01,E8,4C,00,BF,DC,01,E8,46,00,88
DATA F8,BF,C9,01,E8,22,00,88,D8,BF,D9,01,E8,1A,00,BA
DATA BE,01,B4,09,CD,21,B4,0A,B1,01,88,D8,31,DB,CD,10
DATA BA,BB,01,3C,1B,75,C2,CD,20,B9,0A,03,B4,00,F6,F1
DATA 80,C4,30,88,25,4F,FE,CD,74,0A,3C,00,75,EE,C6,05
DATA 20,E9,F1,FF,C3,B9,04,02,D3,C3,88,D8,24,0F,0C,30
DATA 3C,3A,7C,02,04,07,88,05,47,FE,CD,75,EB,C3,50,72
DATA 65,73,73,20,61,6E,79,20,6B,65,79,20,2D,20,71,75
DATA 69,74,20,77,69,74,68,20,45,53,43,0D,0A,24,53,63
DATA 61,6E,63,6F,64,65,20,2E,2E,2E,20,28,2E,2E,68,29
DATA 20,41,73,63,69,69,20,2E,2E,2E,20,28,2E,2E,68,29
DATA 20,43,68,61,72,20,24