home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / dos / keycode.lzh / KEYCODE2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-07-21  |  358 b   |  14 lines
  1. 100  ' INKEYNEW.BAS -- by Jon M. Etheredge
  2. 110  DATA 55,89,E5,8B,7E,6,8B,76,8,31
  3. 120  DATA C0,31,DB,CD,16,88,E4,30,E4
  4. 130  DATA 89,5,89,F7,89,1D,5D,CA,4,0
  5. 140  CLEAR,&HEFFF:DEFINT A-Z:INKE=&HF000
  6. 150  FOR X=1 TO 29
  7. 160  READ A$:A=VAL("&H"+A$):POKE X+&HEFFF,A
  8. 170  NEXT X
  9. 180  PRINT "Now start hitting keys..."
  10. 190  PRINT "CODE","ASCI";SPC(6);"CHR$(ASCI)"
  11. 200  CALL INKE (CODE,ASCI)
  12. 210  PRINT CODE,ASCI,CHR$(ASCI)
  13. 220  GOTO 200
  14.