home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / I265.ZIP / leave.cmd < prev    next >
OS/2 REXX Batch file  |  1992-08-05  |  197b  |  10 lines
  1. /* LEAVE.CMD */
  2. rep = ''
  3. do forever
  4.      say 'Continue? (Yes/No)'
  5.      pull rep .
  6.      if abbrev('YES', rep) | abbrev('NO', rep)
  7.           then leave
  8.      say 'Please enter YES or NO'
  9. end
  10.