PROGRAM Venture
      DECLARE INTEGER exit_status, &
                  REAL capital
      EXTERNAL LONG CONSTANT SS$_BADPARAM
      EXTERNAL SUB play_safe(INTEGER), &
                  minor_risk(INTEGER),major_risk(INTEGER)
      Exit_status = 1%
      SET NO PROMPT
      How_much:
      INPUT "Enter the amount of your free capital $";capital
      SELECT capital
          CASE = 0
                      exit_status = SS$_BADPARAM
                      EXIT PROGRAM exit_status
          CASE < 5000
                      CALL play_safe(capital)
          CASE < 15000
                      CALL minor_risk(capital)
          CASE < 50000
                      CALL major_risk(capital)
          CASE ELSE
                      PRINT "I can't cope with that amount, try again."
      END SELECT
      GOTO How_much
      .
      .
      .
  END PROGRAM exit_status