home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / quicksub / caps.asc < prev    next >
Encoding:
Text File  |  1986-06-12  |  1.0 KB  |  44 lines
  1. ' CAPS.ASC -- MSDOS QuickBASIC test of the CAPSLOCK subroutine
  2. '             by David L. Poskie   Madison, WI
  3.  
  4.     LOCATE 8 , 23
  5.     PRINT "CAPSLOCK subroutines demonstration"
  6.     PRINT
  7.     LOCATE 10 , 22
  8.     PRINT "Please DON'T press the CAPSLOCK key !"
  9.     GOSUB GETKEY.PRESS
  10.     CLS
  11.     GOSUB CAPSLOCK.TEST
  12.     LOCATE 12,30
  13.     PRINT "CAPSLOCK is now ";
  14.     IF CAPSLOCK                            _
  15.        THEN PRINT "ON"                        _
  16.        ELSE PRINT "OFF"                        _
  17.     
  18.     GOSUB GETKEY.PRESS
  19.     CLS
  20.     LOCATE 12 , 1
  21.     LINE INPUT "Please enter in your first name . . "; Q$
  22.     PRINT
  23.  
  24.     IF CAPSLOCK                            _
  25.        THEN GOSUB CAPSLOCK.OFF                    _
  26.        ELSE GOSUB CAPSLOCK.ON
  27.  
  28.     LINE INPUT "Please enter in your last name . . "; Q$
  29.     PRINT "This program has toggled your CAPSLOCK key"
  30.  
  31.      IF CAPSLOCK                            _
  32.        THEN GOSUB CAPSLOCK.ON                    _
  33.        ELSE GOSUB CAPSLOCK.OFF
  34.  
  35.     PRINT
  36.     PRINT "CAPSLOCK has been restored to its original setting"
  37.     PRINT "End of demonstration "
  38.     END
  39.  
  40.     REM    $INCLUDE: 'CAPSLOCK.SUB'
  41.     REM    $INCLUDE: 'GETKEY.SUB'
  42.  
  43. '>>>>> Physical EOF for CAPS.ASC
  44.