Current menu script

[Kenneth Brody]

Quoting Jeff Harrison (Fri, 3 Feb 2006 14:24:44 -0800 (PST)):
[...]
> getmenu:::
> :not @pw co ".":return:
> ::mn=mid(@pw,"1",instr(@pw,".","2")-"1"):
> ::aa=open(mn{"","rt"):
> :aa lt "0":exit:
> ::ab=readline(aa,ac):
> ::return:
[...]

Just an FYI...  The above won't read the heading if the menu contains
exactly 10 items.  (Nor will it work properly, I believe, under Windows
if the menu contains exactly 13 items.)

--
KenBrody at BestWeb dot net        spamtrap: <g8ymh8uf001 at sneakemail.com>
http://www.hvcomputer.com
http://www.fileProPlus.com