home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / bwbasic-2.10.sit / bwbasic-2.10 / bwbtest / selcase.bas < prev    next >
BASIC Source File  |  1993-11-09  |  556b  |  32 lines
  1. rem SelCase.bas  -- test SELECT CASE
  2.  
  3. Sub Main
  4.    Print "SelCase.bas -- test SELECT CASE statement"
  5.    Input "Enter a number"; d
  6.  
  7.    Select Case d
  8.  
  9.       Case 3 to 5
  10.          Print "The number is between 3 and 5."
  11.  
  12.       Case 6
  13.          Print "The number you entered is 6."
  14.  
  15.       Case 7 to 9
  16.          Print "The number is between 7 and 9."
  17.  
  18.       Case If > 10
  19.          Print "The number is greater than 10"
  20.  
  21.       Case If < 0
  22.          Print "The number is less than 0"
  23.  
  24.       Case Else
  25.          Print "The number is 1, 2 or 10."
  26.  
  27.    End Select
  28.  
  29. End Sub
  30.  
  31.  
  32.