2.输入单字符命令 SET TALK OFF CLEAR WAT“请输入系的代号:”TODH XH= DH+DH USE &XH ACCEPT“请输入职工姓名:”TOXM LOCATE FOR姓名=XM ?职工姓名:”+姓名 ?性别:”+性别 ?年龄:”+STR(年龄,2) WAIT ?职称:”+职称 ?任教课程:”+任教课程 ?教研室:”+教研室 WAIT SET TALK ON RETURNSET TALK OFF CLEAR WAIT “请输入系的代号：” TO DH XH=“DH”+DH USE &XH ACCEPT “请输入职工姓名：” TO XM LOCATE FOR 姓名=XM ?“职工姓名：”+姓名 ?“性别：”+性别 ?“年龄：”+STR(年龄,2) ……… WAIT ?“职称：”+职称 ?“任教课程：”+任教课程 ?“教研室：”+教研室 ……… WAIT SET TALK ON RETURN 2. 输入单字符命令