home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma73.lha / MAShare73 / Xtruder / Rexx / Examples / XtruderCheckAll.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-10-07  |  529 b   |  30 lines
  1. /*
  2. ** Check all that can be checked
  3. */
  4.  
  5. Options Results
  6. Address XTRUDER
  7.  
  8. REQUESTUSER TEXT '"Should I check prespecified entries ?"' RESPONSE '"_Yes|_No"'
  9.  
  10. IF rc = 1 THEN DO
  11.   CHECKPRESPECIFIED
  12.   
  13.   IF rc >= 0 THEN
  14.      Say rc' vira found!'
  15. END
  16.  
  17. REQUESTUSER TEXT '"Would you like to check specified files and drawers ?"' RESPONSE '"_Yes|_No"'
  18.  
  19. IF rc = 1 THEN DO
  20.   CHECKSPECIFIED
  21.   
  22.   IF rc >= 0 THEN
  23.      Say rc' vira found!'
  24. END
  25.  
  26. REQUESTUSER TEXT '"Should I check vectors ?"' RESPONSE '"_Yes|_No"'
  27.  
  28. IF rc = 1 THEN
  29.   CHECKVECTORS
  30.