home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
sounds.zip
/
KYBDSET.SUB
< prev
next >
Wrap
Text File
|
1980-01-01
|
512b
|
6 lines
8000 DEF SEG=0:DEFINT A:A=108:POKE A,&H53:POKE A+1,&HFF:POKE A+2,0:POKE A+3,&HF0:' disable BREAK key
8010 DEF SEG=0:X=PEEK(&H417) AND &H20:IF X=0 THEN POKE &H417,PEEK(&H417) OR &H20:' enable keypad
8020 DEF SEG=0:X=PEEK(&H417) AND &H40:IF X=0 THEN POKE &H417,PEEK(&H417) OR &H40:' toggle uppercase
8030 'DEF SEG=0:X=PEEK(&H417) AND &H40:IF X=64 THEN POKE &H417,PEEK(&H417) AND &H0:' toggle lowercase
' toggle uppercase
8030 'DEF SEG=0:X=PEEK(&H417) AND &H40:IF X=64 THEN POKE &H417,PEEK(&H417) AN