用Turbo Pascal实现批文件菜单驱动程序
(2)语句9判断选择是否在命令行参数［Paramstr(1)］给出的选择字符或回车键中；
(3)如果超出范围，则通过语句10鸣铃示警；
(4)语句12将选择在命令行参数中出现的位置号加上49后返回DOS；
(5)回车键默认为50。
此程序编译成menu.exe带上选择范围参数加在批文件中。见批文件AUTOEXEC.BAT。前几句显示选择提示，语句9 MENU 123表示它的合法选择范围是回车键和‘1'、‘2'、‘3'，分别对应的返回代码是50、51、52、53，后面通过ErrorLevel测试而执行相应的批命令。改变批文件的提示和MENU后给的参数，可形成新的菜单功能，不必修改菜单驱动程序，从而达到了通用的目的。
MENU.PAS
1：PROGRAM MENU；
2： USES CRT；
3：VAR
4： K：CHAR；
5：CHICE：BYTE；
6：BEGIN
7：REPEAT
8：K：=ReadKey；
9：CHICE：=POS(K，CHR(13)+PARAMSTR(1))；
10：IF CHICE=0 THEN WRITE(CHR(7))；
11：UNTIL CHICE<>0；
12：Halt(CHICE+49)；
13：END.
AUTOEXEC.BAT
1：ECHO OFF
2：CLS
3：ECHO ［1］__AutoCAD__
4：ECHO ［2］__CCDOS2.13__
5：ECHO ［3］__WINDOWS__
6：ECHO ［4］__DOS x.xx__
7：ECHO PLEASE CHICES
8：
9：MENU 123
10：
11：IF ERRORLEVEL 53 GOTO WINDOWS
12：IF ERRORLEVEL 52 GOTO CCDOS
13：IF ERRORLEVEL 51 GOTO AUTOCAD
14：IF ERRORLEVEL 50 GOTO DOSX
15：：AUTOCAD
16：ECHO AUTOCAD Start……
17：CD\ACAD
18：HCAD
19：GOTO DOSX
20：：CCDOS
21：ECHO CCDOS2.13 Start……
22：CD\213
23：COMMAND C213
24：GOTO DOSX
25：：WINDOWS
26：ECHO WINDOWS Start……
27：WIN
28：ECHO END OF WINDOWS start……
29：：DOSX
30：PATH \;\PCTOOLS