home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / CHOOSE2.ZIP / SAMPLE.CMD < prev   
OS/2 REXX Batch file  |  1991-09-29  |  671b  |  24 lines
  1. @echo off
  2. :loop
  3. echo ╔═══════════════════════════════════════════════╗
  4. echo ║     This is a sample Menu you might create    ║
  5. echo ╟───────────────────────────────────────────────╢
  6. echo ║                                               ║
  7. echo ║  1)   Clear the screen and, redisplay menu    ║
  8. echo ║  2)   List the Directory and, redisplay menu  ║
  9. echo ║  Q)   Quit to OS/2 command-line               ║
  10. echo ╚═══════════════════════════════════════════════╝
  11. choose "    Please Enter Selection: " q12
  12. if errorlevel 3 goto dodir
  13. if errorlevel 2 goto doredisplay
  14. if errorlevel 1 goto end
  15. :dodir
  16. dir 
  17. pause
  18. cls
  19. goto loop
  20. :doredisplay
  21. cls
  22. goto loop
  23. :end
  24.