On a lot of screens here , I force end-users to type 'x' to exit (per the
following code) so that they do not bypass an error message screen.
I also use square brackets [#] on a single-character prompts and triangular
brackets on multi-character prompts <#> so that end-users know what to
expect.
--Bill
*------------------------------------------------------------
Error.Prompt:
crt @(-1)
crt @(10,10) : ' Descriptive Error Message ' :
crt @(10,11) : ' [X] :
input Ans.Error, 1
Ans.Error = upcase(Ans.Error)
begin case
case Ans.Error = 'X' ; null
case 1 ; call *BEEP.BEEP.AND.SLEEP.R0 ; go
Error.Prompt
end case
return to Main.Screen
*-----------------------------------------------------
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
