home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / GETKEY.ZIP / INPUT.CMD < prev    next >
OS/2 REXX Batch file  |  1988-11-08  |  514b  |  31 lines
  1. @echo off
  2. :begin
  3. echo.
  4. echo ┌─────────────────────────────────────────┐
  5. echo │-^> Press 'y' For Yes              │
  6. echo │     -^> Press 'n' For No          │
  7. echo │                      │
  8. echo └─────────────────────────────────────────┘
  9. getkey2
  10. echo.
  11. if errorlevel 121 if not errorlevel 122 goto L1
  12. if errorlevel 110 if not errorlevel 111 goto L2
  13. goto L3
  14. :L2
  15. echo You Pressed 'n' for No
  16. pause
  17. goto exi
  18. :L1
  19. lines
  20. echo.
  21. echo SCREEN SIZE CHANGED !  
  22. echo.
  23. pause
  24. goto exi
  25. goto L3
  26. :L3
  27. echo Try Again !
  28. goto begin
  29. :exi
  30. cls
  31.