DECLARE SUB CLEARLOCKS ()
CLS
 
KEY 15, CHR$(0) + CHR$(29) 'Control (neccessary for DazNoBreak)
KEY 16, CHR$(0) + CHR$(69) 'NumLock
KEY 17, CHR$(0) + CHR$(58) 'CapsLock
KEY 18, CHR$(0) + CHR$(70) 'ScrollLock
ON KEY(15) GOSUB NOBREAK
ON KEY(16) GOSUB HandleLocks
ON KEY(17) GOSUB HandleLocks
ON KEY(18) GOSUB HandleLocks
KEY(15) ON
KEY(16) ON
KEY(17) ON
KEY(18) ON
DEF SEG = 0
OriginalStatus% = PEEK(&H417)           'Find original status of Lock keys
CLEARLOCKS
 
DO UNTIL I$ = chr$(27)
 I$ = INPUT$(1)
 IF ASC(I$) >= 32 THEN PRINT I$;
LOOP
POKE &H417, OriginalStatus%             'Restore original status of Lock keys
SYSTEM
 
NOBREAK:
 RETURN
 
HandleLocks:
 CLEARLOCKS
 RETURN
 
SUB CLEARLOCKS
 Status% = PEEK(&H417)              'Read keyboard status.
 IF Status% <> 130 THEN POKE &H417, 130
END SUB