home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / SELDEMO.B < prev    next >
Text File  |  1997-09-11  |  582b  |  20 lines
  1. * This shows the use of SELECT/CASE/ENDSELECT
  2.  
  3.  DIM A$ AS STRING*1
  4.  
  5.  LOOP
  6.         INPUT "Enter a single character ('/' to quit)",A$
  7.         SELECT CASE A$
  8.                 CASE "a" TO "z"
  9.                         PRINT A$;" is lower case"
  10.                 CASE "A" TO "Z"
  11.                         PRINT A$;" is upper case"
  12.                 CASE "0" TO "9"
  13.                         PRINT A$;" is numeric"
  14.                 CASE "/"
  15.                         END
  16.                 CASE ELSE
  17.                         PRINT A$;" is not alpha-numeric"
  18.         END SELECT
  19.  END LOOP
  20.