home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / CAPLOCK.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-19  |  1.0 KB  |  13 lines
  1. 10  CLS: ROW%=2:COLUMN%=1
  2. 20  PRINT"This is a test"
  3. 30  A$=INKEY$: GOSUB 50500:IF A$="" THEN 30
  4. 40  PRINT A$;:COLUMN%=COLUMN%+1:IF COLUMN%>79 THEN COLUMN%=1:ROW%=ROW%+1:GOTO 30 ELSE GOTO 30
  5. 50499  '*************************CAPS LOCK & NUM LOCK***************************
  6. 50500  DEF SEG=&H40:K%=PEEK(&H17) AND 96:DEF SEG:IF K1%=K% THEN RETURN ELSE C%=POS(X):LOCATE 25,73,0:'      Check to see for change in status if none return
  7. 50510  IF K%=96 THEN COLOR 0,7:PRINT"CAP";:COLOR 7,0:PRINT" ";:COLOR 0,7:PRINT"NUM";:GOTO 50550:'           Both Cap Lock & Num Lock are on
  8. 50520  IF K%=32 THEN COLOR 7,0:PRINT"    ";:COLOR 0,7:PRINT"NUM";:GOTO 50550:'                              Only Num Lock is on
  9. 50530  IF K%=64 THEN COLOR 0,7:PRINT"CAP";:COLOR 7,0:PRINT"    ";:COLOR 0,7:GOTO 50550:'                    Only Cap Lock is on
  10. 50540  COLOR 7,0:PRINT SPC(7);:COLOR 0,7:'                                                                  Both Cap Lock & Num Lock are off
  11. 50550  LOCATE ROW%,C%,1:K1%=K%:COLOR 7,0:RETURN
  12. 50559  '************************************************************************
  13.