REM Subroutine Example

GLOBAL test_code AS INTEGER, ll as INTEGER, ul as INTEGER


SUBROUTINE sw_error_text_save( sw_error_code as INTEGER, output_device AS INTEGER, lower_limit as INTEGER, upper_limit as INTEGER )

IF ( sw_error_code >= lower_limit ) AND ( sw_error_code <= upper_limit )
   SELECT sw_error_code
      CASE 1
         PRINT "\010\013It's Raining: ", sw_error_code
         EXIT
      CASE 2
         PRINT "\010\013It's Sleeting: ",sw_error_code
         EXIT
      CASE 3
         PRINT "\010\013A trace of new snow reported: ",sw_error_code
         EXIT
      CASE 4
         PRINT "\010\013It's 5 below zero: ",sw_error_code
         EXIT
      CASE 5
         PRINT "\010\013Berthoud Pass is closed and we're in Denver: ",sw_error_code
         EXIT
      CASE 6 
         PRINT "\010\013Parsenn Bowl is closed because of very high winds: ",sw_error_code
         EXIT
      CASE ELSE
   		PRINT "\010\013SW Error Code within limits, but no error text is currently defined: ", sw_error_code		
   ENDSELECT
ELSE
   PRINT "\010\013UNDEFINED ERROR CODE -- out of limits: ",sw_error_code
ENDIF
END


DO WHILE 1

PRINT "\010\013Enter Error Code: "
INPUT test_code

ll = 1
ul = 10
CALL sw_error_text_save( test_code, 0, ll, ul )

LOOP