Re: Hyper Text Help

> Ok, Is there any thing better. I been playing a round with it, I think its ok
> Some day some one with have to make one in script

It'd be simple to write one...

Here is an plain out basic example of one, one with 3 items on each menu, with
3 submenus - .MNU files would be stored in the TXT directory.  And for this
example, there would also be a folder called HELP in the TXT directory, with
all the HELP text files for each item (no example).

-----------TXT\HELPMAIN.MNU-----------
     1) Help Submenu No. 1
     2) Help Submenu No. 2
     3) Help Submenu No. 3
     A) Help Item No. 1
     B) Help Item No. 2
     C) Help Item No. 3
     Q) Quit to Menu
--------------------------------------

---TXT\HELPSUB1.MNU .. HELPSUB3.MNU---
      1) Help Item No. 1
      2) Help Item No. 2
      3) Help Item No. 3
      Q) Quit to Main Help Menu
--------------------------------------

----------------HELP.V----------------
clear
let p = !25 % "HELP\"

help1:
cls
menu "HELPMAIN"
rl c, "ABCQ", 3, "Choice: "
if c = "1" goto sub1
if c = "2" goto sub2
if c = "3" goto sub3
if c = "A" goto mainitem1
if c = "B" goto mainitem2
if c = "C" goto mainitem3
if c = "Q" goto quit

sub1:
cls
menu "HELPSUB1"
rl c, "Q", 3, "Choice: "
if c = "1" goto sub1item1
if c = "2" goto sub1item2
if c = "3" goto sub1item3
if c = "Q" goto help1

sub2:
cls
menu "HELPSUB2"
rl c, "Q", 3, "Choice: "
if c = "1" goto sub2item1
if c = "2" goto sub2item2
if c = "3" goto sub2item3
if c = "Q" goto help1

sub3:
cls
menu "HELPSUB3"
rl c, "Q", 3, "Choice: "
if c = "1" goto sub3item1
if c = "2" goto sub3item2
if c = "3" goto sub3item3
if c = "Q" goto help1

mainitem1:
let t = p % "HELP-M1.TXT"
gosub viewfile
goto help1

mainitem2:
let t = p % "HELP-M2.TXT"
gosub viewfile
goto help1

mainitem3:
let t = p % "HELP-M3.TXT"
gosub viewfile
goto help1

sub1item1:
let t = p % "HELPS1-1.TXT"
gosub viewfile
goto help1

sub1item2:
let t = p % "HELPS1-2.TXT"
gosub viewfile
goto help1

sub1item3:
let t = p % "HELPS1-3.TXT"
gosub viewfile
goto help1

sub2item1:
let t = p % "HELPS2-1.TXT"
gosub viewfile
goto help1

sub2item2:
let t = p % "HELPS2-2.TXT"
gosub viewfile
goto help1

sub2item3:
let t = p % "HELPS2-3.TXT"
gosub viewfile
goto help1

sub3item1:
let t = p % "HELPS3-1.TXT"
gosub viewfile
goto help1

sub3item2:
let t = p % "HELPS3-2.TXT"
gosub viewfile
goto help1

sub3item3:
let t = p % "HELPS3-3.TXT"
gosub viewfile
goto help1

viewfile:
cls
ef t
pause
return

quit:
exit
--------------------------------------

And there you have it...  This code has not been tested, but if tested as is,
you will either see PATH/FILE Access Error (if TXT\HELP\ directory doesn't
exist) or you may see something like "File not found: HELPxxxx.TXT"...  because
you gotta create those files 

ComputerWhiz


--
[AT2k] -- Your VBBS/VADV Support Center -- [www.at2k.org] -- [bbs.at2k.org]