1   OPTION TYPE=EXPLICIT
    !
    !   BASIC_TEST_MESSAGES.BAS
    !
    !   Example program to show using our message file.
    !
    %INCLUDE "STARLET" %FROM %LIBRARY

    EXTERNAL LONG CONSTANT MEGA_ABEND
    EXTERNAL LONG CONSTANT MEGA_HRDERR
    EXTERNAL LONG CONSTANT MEGA_SHRTRPT
    EXTERNAL LONG CONSTANT MEGA_RTOOLONG
    EXTERNAL LONG CONSTANT MEGA_SUCCESS

    MAP (SCRUFF) STRING FILE_NAME$ = 255%

    DECLARE STRING  WORK_STR$
    DECLARE LONG    L_X%

200 PRINT " "
    PRINT "Enter a number to select return code:"
    PRINT "     1  MEGA_ABEND"
    PRINT "     2  MEGA_HRDERR"
    PRINT "     3  MEGA_SHRTRPT"
    PRINT "     4  MEGA_RTOOLONG"
    PRINT "     5  MEGA_SUCCESS"
    PRINT " "

    INPUT "Choice: ";WORK_STR$

    FILE_NAME$ = "MY_FILE.NAM"

300 L_X% = VAL%( WORK_STR$)

    ON L_X% GOTO 500, 600, 700, 800, 900

    GOTO PROGRAM_EXIT

500 CALL SYS$EXIT( MEGA_ABEND)

600 CALL SYS$EXIT( MEGA_HRDERR)

700 CALL SYS$EXIT( MEGA_SHRTRPT)

800 CALL SYS$EXIT( MEGA_RTOOLONG)

900 CALL SYS$EXIT( MEGA_SUCCESS)

 PROGRAM_EXIT:
32767   END