'Example prog to control of keyboard leds ' Dt.Murat AYDIN ' COLOR 10, 1: CLS : PRINT TAB(25); "*** LED CONTROL ***": VIEW PRINT 4 TO 25: 38 LOCATE 6, 26, 1, 1, 14: PRINT "Press any key "; : DEF SEG = 0: a = &H417 40 POKE a, 112: FOR X = 100 TO 800 STEP 25: SOUND X, .1: NEXT: a$ = INKEY$ 42 POKE a, 0: FOR X = 800 TO 100 STEP -25: SOUND X, .1: NEXT 44 a$ = INKEY$: IF a$ = "" THEN 40 IF a$ = CHR$(27) THEN END 45 DEF SEG : CLS : VIEW PRINT 1 TO 25 PRINT : PRINT TAB(20); "Press caps, num or scroll keys" 46 : 60 DEF SEG = 0: X = PEEK(&H417): DEF SEG : CC = 1: CN = 1: CS = 1 70 IF (X AND 64) THEN CC = 0 80 IF (X AND 32) THEN CN = 0 90 IF (X AND 16) THEN CS = 0 100 LOCATE 10, 5, 0, 1, 0: COLOR CC + 3, 7: PRINT " CAPS " 105 LOCATE 10, 15: COLOR CN + 3, 7: PRINT " NUM " 110 LOCATE 10, 25: COLOR CS + 3, 7: PRINT " SCRL "; : COLOR 7, 1 120 a$ = INKEY$: IF a$ <> CHR$(27) GOTO 60 125 ' 130 COLOR 10, 1: LOCATE 9, 1: PRINT "Press C, N or S" PRINT SPACE$(80) 140 LOCATE 10, 10: COLOR 0, 7: PRINT "C"; : COLOR 10, 1: PRINT "aps" 150 LOCATE 11, 10: COLOR 0, 7: PRINT "S"; : COLOR 10, 1: PRINT "croll" 160 LOCATE 12, 10: COLOR 0, 7: PRINT "N"; : COLOR 10, 1: PRINT "um" 170 LOCATE 13, 1, 1, 1, 14: PRINT "Which led will be OFF ="; : DEF SEG = 0 180 a$ = UCASE$(INKEY$): IF a$ <> "C" AND a$ <> "N" AND a$ <> "S" AND a$ <> CHR$(27) THEN 180 190 IF a$ = CHR$(27) THEN DEF SEG : GOTO 250 IF a$ = "C" THEN POKE &H417, PEEK(&H417) AND (255 - 64) IF a$ = "N" THEN POKE &H417, PEEK(&H417) AND (255 - 32) IF a$ = "S" THEN POKE &H417, PEEK(&H417) AND (255 - 16) 230 PLAY "MB t255 o2 p2 p8 l10 ggg l2 e- p24 p8 l10 fff l2 d": : GOTO 170 250 ' 260 LOCATE 13, 1, 1, 1, 14: PRINT "Which led will be ON ="; : DEF SEG = 0 270 a$ = UCASE$(INKEY$): IF a$ <> "C" AND a$ <> "N" AND a$ <> "S" AND a$ <> CHR$(27) THEN 270 275 IF a$ = CHR$(27) THEN DEF SEG : END IF a$ = "C" THEN POKE &H417, PEEK(&H417) OR 64 IF a$ = "N" THEN POKE &H417, PEEK(&H417) OR 32 IF a$ = "S" THEN POKE &H417, PEEK(&H417) OR 16 PLAY "MB t255 o2 p2 p8 l10 ggg l2 e- p24 p8 l10 fff l2 d": GOTO 260