home *** CD-ROM | disk | FTP | other *** search
- *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
- *⌐ª 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