' *** KEY_CAPS.LST *** 2nd GFA-Manual, page 8-11 > PROCEDURE key_caps(flag!) ' ' *** Switch CapsLock on or off ' IF flag! ~BIOS(11,BSET(BIOS(11,-1),4)) ! CapsLock on ELSE ~BIOS(11,BCLR(BIOS(11,-1),4)) ! CapsLock off ENDIF RETURN ' ********* '