!+
! U.BAS
!
! Example program to demonstrate UWD.
!
! Link:		$ LINK U /DEBUG=UWD
! Run:		$ RUN U
!-
program TEST_UWD

	option	type = explicit,				&
		constant type = integer,			&
		size = integer long
	%include "$SSDEF" %from %library
	declare long what_to_do, sys_status

	print "This is a BASIC program"

loop:	while -1
		select what_to_do
			case 1
				exit loop
			case 2
				input "SYS$EXIT reason "; sys_status
				sys_status = SS$_NORMAL unless sys_status
				call SYS$EXIT( sys_status by value )
			case else
				input "Enter 1 to END, 2 for SYS$EXIT "; what_to_do
		end select
	next

end program