Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

                        ◄Example►                ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
' This example determines an investment strategy according to risk using the
' SELECT CASE statement to take different actions based on the input value.
 
' To try this example:
' 1. Choose New Project from the File menu
' 2. Copy the code example below to the code window
' 3. Press F5 to run the example
 
 INPUT "Enter acceptable level of risk (1-10): ", Total
 SELECT CASE Total
 CASE IS >= 10
       PRINT "Maximum risk and potential return."
       PRINT "Choose stock investment plan."
 CASE 6 TO 9
       PRINT "High risk and potential return."
       PRINT "Choose corporate bonds."
 CASE 2 TO 5
       PRINT "Moderate risk and return."
       PRINT "Choose mutual fund."
 CASE 1
       PRINT "No risk, low return."
       PRINT "Choose IRA."
 CASE ELSE
       PRINT "Response out of range."
 END SELECT