home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / MENUGEN.ZIP / ESCA.PRG < prev    next >
Text File  |  1986-11-18  |  159b  |  10 lines
  1. DO fmess WITH '(C)ancel,(I)gnore or (S)uspend?'
  2. a=UPPE(CHR(ans))
  3. DO CASE
  4.    CASE a='S'
  5.       SUSP
  6.    CASE a='C'
  7.       ON ESCA CANC
  8.       DO end
  9. ENDC
  10.