home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 16c / sounds.zip / KYBDSET.SUB < prev    next >
Text File  |  1980-01-01  |  512b  |  6 lines

  1. 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
  2. 8010 DEF SEG=0:X=PEEK(&H417) AND &H20:IF X=0 THEN POKE &H417,PEEK(&H417) OR &H20:'   enable keypad
  3. 8020 DEF SEG=0:X=PEEK(&H417) AND &H40:IF X=0 THEN POKE &H417,PEEK(&H417) OR &H40:'   toggle uppercase
  4. 8030 'DEF SEG=0:X=PEEK(&H417) AND &H40:IF X=64 THEN POKE &H417,PEEK(&H417) AND &H0:'   toggle lowercase
  5. '   toggle uppercase
  6. 8030 'DEF SEG=0:X=PEEK(&H417) AND &H40:IF X=64 THEN POKE &H417,PEEK(&H417) AN