home *** CD-ROM | disk | FTP | other *** search
- @ECHO OFF
- BATCHMAN ansi
- IF NOT ERRORLEVEL 1 GOTO gotansi
- BATCHMAN CECHO C 0Dh,ExcuuuUUUuuuse me
- BATCHMAN BEEP 40,1;40,1;40,1;40,1;40,1;40,1;40,1
- BATCHMAN CECHO 0Fh,, but this batch file needs to have ANSI loaded.
- REM -------- Create QUIT.BAT with the command "REM>QUIT.BAT"
- QUIT
- :gotansi
- BATCHMAN display
- IF ERRORLEVEL 9 GOTO notEGA
- IF ERRORLEVEL 4 GOTO EGA
- :notEGA
- BATCHMAN CECHO C 206,ExcuuuUUUuuuse me
- BATCHMAN BEEP 40,1;40,1;40,1;40,1;40,1;40,1;40,1
- BATCHMAN CECHO 15,, but this batch file needs an EGA or VGA!
- QUIT
- :EGA
- BATCHMAN E43V50
- BATCHMAN CLS 3Ch
- CLS
- BATCHMAN WINDOW 32,14,52,7,4Eh,-
- BATCHMAN SETCURSOR 33,17
- BATCHMAN CECHO 4Fh,Key Command
- BATCHMAN SETCURSOR 34,17
- BATCHMAN CECHO 4Eh,D for an ordinary directory DIR
- BATCHMAN SETCURSOR 35,17
- BATCHMAN CECHO 4Eh,W for a Wide directory DIR /W
- BATCHMAN SETCURSOR 36,17
- BATCHMAN CECHO 4Eh,Q to Quit this help
- BATCHMAN SETCURSOR 37,17
- BATCHMAN CECHO 4Eh,Press Alt AFTER Q to keep this help onscreen
- BATCHMAN SETCURSOR 1,1
- :loop
- BATCHMAN GETKEY 'DWQ'
- FOR %%v IN (1 2 3) DO IF ERRORLEVEL %%v GOTO choice%%v
- :choice1
- DIR
- GOTO loop
- :choice2
- DIR /W
- GOTO loop
- :choice3
- BATCHMAN BEEP 2000,1
- BATCHMAN SHIFT ALT
- IF NOT ERRORLEVEL 1 MODE CO80