home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST259.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  850 b   |  45 lines
  1. ********************
  2.  
  3. PROCEDURE Aborting
  4.  
  5.    PARAMETER p, l, v
  6.  
  7.    PRIVATE _trow, _tcol, _ocolor
  8.  
  9.    _trow = ROW()
  10.    _tcol = COL()
  11.    _ocolor = SETCOLOR()
  12.    _tc     = Set_color(Attribute(24,00))
  13.    SETCOLOR(_tc)
  14.    DO CASE
  15.    CASE LTRIM(TRIM(UPPER(v))) = "NEW_X"
  16.       @ 24,00 SAY "Exit without Printing Bug Report? "
  17.    CASE EMPTY(UPPER(v))
  18.       @ 24,00 CLEAR
  19.       @ 24,00 SAY "Exit Editing without saving file? "
  20.    OTHERWISE
  21.       @ 24,00 SAY "Are you sure?? "
  22.    ENDCASE
  23.  
  24.    IF PROMPT()
  25.       SET KEY 27 TO
  26.       KEYBOARD CHR(27) + "Y"
  27.    ENDIF
  28.  
  29.    IF UPPER(v) = ""
  30.       SETCOLOR(_ocolor)
  31.       @ 24,00 CLEAR
  32.  
  33.    ELSEIF UPPER(p) = "NEW_X"
  34.       SETCOLOR(_tc)
  35.       @ 24,00 CLEAR
  36.  
  37.    ELSE
  38.       RID(24,00, "Are you sure??     ")
  39.    ENDIF
  40.  
  41.    SETCOLOR(_ocolor)
  42.    @ _trow, _tcol, ""
  43.  
  44. * End of File
  45.