Liren Large Software Subsidy 5/05.iso/a/a085/1.ddi/ERR_1.PRG

Text File | 1994-01-12 | 1012 b | 29 lines

*⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
*⌐ª      Program: ERR_1.PRG                                            ⌐ª
*⌐ª     Function: ┤φ╬≤┤ª└φ╫╙│╠╨≥╥╗                                     ⌐ª
*⌐ª        Usage: ON ERROR DO ERR_1 WITH PROGRAM(), LINENO),;          ⌐ª
*⌐ª                           ERROR(), MESSAGE(1), MESSAGE()           ⌐ª
*⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
PARAMETERS mPROGRAM,mLINE, mERROR,mMESS,mMESS1
SET CURSOR OFF
CLEAR
DEFINE WINDOW WIN_E1 FROM 10,5 TO 17,75 SHADOW COLOR SCHEME 7
ACTIVATE WINDOW WIN_E1

@0,2 SAY " ╖ó╔·┤φ╬≤╡─│╠╨≥├√│╞: "+mPROGRAM
@1,2 SAY " ╖ó╔·┤φ╬≤╡─│╠╨≥╨╨║┼: "+LTRIM(STR(MLINE))
@2,2 SAY "           ┤φ╬≤┤·┬δ: "+LTRIM(STR(mERROR))
@3,2 SAY "           ┤φ╬≤╨┼╧ó: "+mMESS
@4,2 SAY "       │÷┤φ│╠╨≥─┌╚▌: "+mMESS1
WAIT "░┤╚╬╥Γ╝ⁿ╝╠╨°! " WINDOW
SET CURSOR ON
IF mERROR=108
   CLEAR
   DEACTIVATE WINDOW WIN_E1
   RETRY
ELSE
   CLEAR
   DEACTIVATE WINDOW WIN_E1
   RETURN
ENDIF