function long confirm( string prompt )

!labels

!constants

!types

!variables
declare long			sys_status
declare string			answer

!procedures

!functions
external long function		window_input( string, string, long )

sys_status = window_input( prompt, answer, 1% )
if (sys_status and 1%) = 0% then
    call lib$signal( sys_status by value )
end if

answer = edit$( answer, 2% + 4% + 32% )

select mid( answer, 1%, 1% )
    case = "Y"
	confirm = -1%
    case = "N"
	confirm = 0%
    case else
	confirm = 0%
end select

end function