home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / ERR_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.2 KB  |  38 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: ERR_2.PRG                                            ⌐ª
  3. *⌐ª     Function: ┤φ╬≤┤ª└φ╫╙│╠╨≥╢■                                     ⌐ª
  4. *⌐ª        Usage: ON ERROR DO ERR_2 WITH PROGRAM(), LINENO),;          ⌐ª
  5. *⌐ª                           ERROR(), MESSAGE(1), MESSAGE()           ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. PARAMETERS mPROGRAM,mLINE, mERROR,mMESS,mMESS1
  8. SET CURSOR OFF
  9. CLEAR
  10. DEFINE WINDOW WIN_E2 FROM 10,5 TO 18,75 SHADOW COLOR SCHEME 7
  11. ACTIVATE WINDOW WIN_E2
  12.  
  13. @0,2 SAY " ╖ó╔·┤φ╬≤╡─│╠╨≥├√│╞: "+mPROGRAM
  14. @1,2 SAY " ╖ó╔·┤φ╬≤╡─│╠╨≥╨╨║┼: "+LTRIM(STR(MLINE))
  15. @2,2 SAY "           ┤φ╬≤┤·┬δ: "+LTRIM(STR(mERROR))
  16. @3,2 SAY "           ┤φ╬≤╨┼╧ó: "+mMESS
  17. @4,2 SAY "       │÷┤φ│╠╨≥─┌╚▌: "+mMESS1
  18.  
  19. @6,10 GET act PICTURE "@*HN ╝╠╨°;╓╪╩╘;╖╡╗╪╓≈│╠╨≥;═╦│÷";
  20.       SIZE 1,10,1 DEFAULT 0 VALID actvalid()
  21. READ CYCLE
  22.  
  23. FUNCTION actvalid
  24. DO CASE
  25. CASE act = 1
  26.      DEACTIVATE WINDOW WIN_E2
  27.      RETURN
  28. CASE ACT = 2
  29.      DEACTIVATE WINDOW WIN_E2
  30.      RETRY
  31. CASE ACT = 3
  32.      DEACTIVATE WINDOW WIN_E2
  33.      RETURN TO MASTER
  34. CASE act = 4
  35.      QUIT
  36. ENDCASE
  37. RETURN
  38.