'===========================================================================
' Subject: CAPS ON/OFF ROUTINE               Date: 09-14-97 (21:42)       
' Author:  Tommi Utriainen                   Code: QB, QBasic, PDS        
' Origin:  tomppa@pcuf.fi                  Packet: KEYBOARD.ABC
'===========================================================================
   ' caps on/off
   ' PRG BY TOMPPA 92

   CLS

                ' 0 normal
                ' 1 shift-
                ' 2 shift-
                ' 4 Ctrl-
                ' 8 Alt-
                ' 16 scroll lock
                ' 32 numlock
                ' 64 CAPSLOCK 
                ' 128 -
                ' 256 -

   DEF SEG = 0
   POKE &H417, 0
   DEF SEG


   LINE INPUT "lowecase:"; text$

   DEF SEG = 0
   POKE &H417, 64
   DEF SEG

   LINE INPUT "uppercase:"; text$