BBS: Inland Empire Archive
Date: 03-16-92 (12:18)             Number: 165
From: FRANCOIS ROY                 Refer#: NONE
  To: MATT GLOVER                   Recvd: NO  
Subj: Re: CAPS LOCK                  Conf: (2) Quik_Bas
 MG> 1. Turn on Caps lock
     DEF SEG = &H40: POKE &H17, PEEK(&H17) OR &H40
 MG> 2. Turn Off Caps lock
     DEF SEG = &H40: POKE &H17, PEEK(&H17) OR &HBF
 MG> 3. Lock Caps LOCK in either postion.
     If you mean preventing modification by user depressing the key,
     I can only think of looping on one of the above...
 MG> 4. Get status of Caps Lock??
     DEF SEG = &H40: IF PEEK(&H17) AND &H40 THEN PRINT "On" ELSE PRINT "Off"

--- ME2_1104
 * Origin: Out of String Space - the Final Frontier (Fidonet 1:163/506.2)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET