标题SELECT 0应用体验一则

　　SELECT的参数取0，即选择序号最低的空闲工作区为当前工作区，不论其高位有无已启用的工作区。例如：已调用SELE 1、SELE 3、SELE 7，再执行SELE 0，以？ SELE()显示当前工作区序号，返回值为2；重复使用SELE 0，当前工作区序号就相应地顺序上升，(逾越3)4、5、....(逾越7)....10，堪称方便。
　　当工作区已全部使用，执行SELE 0势必失败，其出错信息：Cannot access selected database(序号1152)。虽然在正规情况下不致发生超额，但仍有必要采取措施防错，曾用ON ERROR法及限额法等，均欠简洁。后附行之有效、长仅九行的子程序SCLT-0.PRG，在必要的SELE 0命令行处代之以DO SLCT-0，也可径直将其前八行防错功能段写入应用程序中SELE 0命令行之前。
　　** SLCT-0.PRG **
　　SLCT=10
　　DO WHIL LEN(DBF(SLCT)#0
　　SLCT=SLCT-1
　　IF SLCT=0
　　？ ' 工作区满额！'INKE(2)　&&出错信息
　　RETU
　　ENDI
　　ENDD
　　SELE 0　&& 目的命令行
　　(该程序在AST PP3-DOS 6.21 -2.13L-FOXBASE+2.1中通过)
　　(彭禾)