home *** CD-ROM | disk | FTP | other *** search
- @echo off
- cls
- echo
- echo
- echo
- echo
- echo ┌──────────────────────────────────────────────────────────────────────┐
- echo │ iRMX for Windows Demonstration Disk │
- echo ├──────────────────────────────────────────────────────────────────────┤
- echo │ │
- echo │ The pace of the demo is set automatically, based on the │
- echo │ speed of your computer. │
- echo │ │
- echo │ This startup program allows you to set the pace manually. │
- echo │ │
- echo │ The pace can be a number from 1-9. (1=slowest, 9=fastest) │
- echo │ │
- echo │ Recommended pace settings are: │
- echo │ 286 or slower computers: 9 │
- echo │ 386 computers: 5 to 8 │
- echo │ 486 computers: 2 to 4 │
- echo │ │
- echo │ To set the pace, and start the demo, enter a number 1-9. │
- echo │ │
- echo └──────────────────────────────────────────────────────────────────────┘
- echo
-
- :QUERY
- echo Please type a number from 1 to 9, or ESCAPE to exit to DOS:
- echo.
- echo.
- pause >nul
-
- TESTKEY
- if errorlevel 58 goto QUERY
- if errorlevel 57 goto PACE9
- if errorlevel 56 goto PACE8
- if errorlevel 55 goto PACE7
- if errorlevel 54 goto PACE6
- if errorlevel 53 goto PACE5
- if errorlevel 52 goto PACE4
- if errorlevel 51 goto PACE3
- if errorlevel 50 goto PACE2
- if errorlevel 49 goto PACE1
- if errorlevel 28 goto QUERY
- if errorlevel 27 goto QUIT
- GOTO QUERY
-
- :PACE9
- SET pacer=9
- GOTO FIRST
-
- :PACE8
- SET pacer=8
- GOTO FIRST
-
- :PACE7
- SET pacer=7
- GOTO FIRST
-
- :PACE6
- SET pacer=6
- GOTO FIRST
-
- :PACE5
- SET pacer=5
- GOTO FIRST
-
- :PACE4
- SET pacer=4
- GOTO FIRST
-
- :PACE3
- SET pacer=3
- GOTO FIRST
-
- :PACE2
- SET pacer=2
- GOTO FIRST
-
- :PACE1
- SET pacer=1
-
- :FIRST
- SHOW TITLE /P=%PACER%
- TESTKEY
- if errorlevel 28 goto SECOND
- if errorlevel 27 goto Ok_End
-
- :SECOND
- SHOW INT-28 /P=%PACER%
- TESTKEY
- if errorlevel 28 goto THIRD
- if errorlevel 27 goto Ok_End
-
- :THIRD
- SHOW INT-39A /P=%PACER%
- if errorlevel 28 goto FIRST
- if errorlevel 27 goto Ok_End
- GOTO FIRST
-
- :Ok_End
- SHOW CREDIT /P=%PACER%
-
- :QUIT
- cls