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