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