Joined: 05 Dec 2000
Location: Space and Time
|Posted: Sun Dec 22, 2002 1:21 am Post subject: No Label Error Fix
|I (on occasion ) have made a complete dialog interface and have not
created the code for each one, so, to cover for not having all the labels
this error code was created. The oroginal code was made by Mac I think,
and I adjusted it to look for error 12 and show a "Function not yet available".
message. Hope someone else will find this as usefull as I do.
rem -- Remove this if using "debug" at command line --
%1 = "debug"
rem == Debugging procedure =================================
if @equal(%1, "debug")
option ERRORTRAP, ERROR
%%ErrorType = @error(E)
%%ErrorLine = @error(N)
%%error = Error %%ErrorType at line %%ErrorLine
Warn Function not yet available.
if @ask(%%error@cr()@cr()Do you wish to stop?@cr()@cr()Press YES if main program window is not visible.@tab())
list CREATE, 9
list ADD, 9, @datetime(hh:mm:ss am/pm) %%error
list SAVEFILE, 9, @path(%0)@name(%0)_error.log