https://pickwiki.org/index.php?action=history&feed=atom&title=HelpForUniverseHelpForUniverse - Revision history2026-04-28T23:32:26ZRevision history for this page on the wikiMediaWiki 1.43.0https://pickwiki.org/index.php?title=HelpForUniverse&diff=1869&oldid=prevConversion script: link fix2015-02-26T23:48:55Z<p>link fix</p>
<p><b>New page</b></p><div>Back to [[BasicSource]]<br />
<br />
When using the HELP command in Universe at the console on an NT machine, the screen cannot be addressed, so the output is useless. This help follows (almost) the command syntax for the Universe help, but the output is more like the Unidata help.<br />
<br />
<PRE><br />
PROGRAM UVHELP<br />
* ECL - KRJ - [[UniVerse]] help that works when the screen addressing doesn't<br />
<br />
SENTENCE = TRIM(@SENTENCE)<br />
CONVERT ' ' TO @AM IN SENTENCE<br />
IF OCONV(SENTENCE<1>,'MCU') = 'RUN' THEN<br />
DEL SENTENCE<1><br />
DEL SENTENCE<1><br />
END<br />
DEL SENTENCE<1><br />
<br />
IF OCONV(SENTENCE<2>,'MCU') = 'FROM' THEN<br />
CLASS = SENTENCE<3><br />
TOPIC = SENTENCE<1><br />
IF CLASS = '' THEN CLASS = 'SYS.HELP'<br />
END ELSE<br />
CLASS = SENTENCE<1><br />
TOPIC = SENTENCE<2><br />
IF TOPIC = '' THEN<br />
TOPIC = CLASS<br />
CLASS = 'SYS.HELP'<br />
END<br />
END<br />
<br />
GOT.CLASS = @TRUE<br />
DISP = CLASS<br />
OPEN CLASS TO HELP.FILE ELSE GOT.CLASS = @FALSE<br />
IF NOT(GOT.CLASS) AND FIELD(CLASS,'.',2) NE 'HELP' THEN<br />
DISP = CLASS:'.HELP'<br />
OPEN DISP TO HELP.FILE ELSE<br />
CRT 'Cannot open "':CLASS:'"'<br />
STOP<br />
END<br />
END<br />
<br />
HEADLINE = 'Help information for "':DISP:' ':TOPIC:'"'<br />
<br />
READ REC FROM HELP.FILE,TOPIC ELSE<br />
CRT 'No information available for ':TOPIC<br />
STOP<br />
* commented out following - was trying to cater for stuff not being there<br />
* EXECUTE 'SSELECT HELP.FILE' CAPTURING JUNK<br />
* REC = ''<br />
* LOOP WHILE READNEXT ID DO<br />
* REC<-1> = ID<br />
* REPEAT<br />
END<br />
<br />
PLEN = SYSTEM(3)-3<br />
LINES = DCOUNT(REC,@AM)<br />
PAGES = INT(LINES[[/PLEN]]) + (REM(LINES,PLEN) NE 0)<br />
<br />
SPACES = 80-LEN(HEADLINE)<br />
SPACES = INT(SPACES/2)<br />
SPACES = SPACE(SPACES)<br />
HEADLINE = SPACES:HEADLINE:SPACES<br />
HEADLINE = HEADLINE[1,69]:' Page: '<br />
<br />
PAGE = 1<br />
LOOP<br />
IF PAGE GT PAGES THEN PAGE = PAGES<br />
CRT @(-1):HEADLINE:PAGE:'/':PAGES<br />
CRT<br />
BOT = ((PAGE-1)*20) + 1<br />
MSUP = BOT + PLEN - 1<br />
FOR XX = BOT TO MSUP<br />
CRT REC<XX><br />
NEXT XX<br />
CRT<br />
LOOP<br />
GOOD = @TRUE<br />
CRT "Page 'U'p, 'D'own, 'T'op, 'B'ottom or 'Q'uit ":<br />
INPUT ANS<br />
ANS = OCONV(TRIM(ANS),'MCU')<br />
BEGIN CASE<br />
CASE ANS = 'T' ; PAGE = 1<br />
CASE ANS = 'B' ; PAGE = PAGES<br />
CASE ANS = 'U'<br />
PAGE = PAGE - 1<br />
IF PAGE LT 1 THEN PAGE = 1<br />
CASE ANS = 'D' OR ANS = ''<br />
PAGE = PAGE + 1<br />
CASE ANS MATCHES '1[[N0N]]'<br />
PAGE = ANS<br />
CASE ANS = 'Q' ; STOP<br />
CASE 1<br />
GOOD = @FALSE<br />
END CASE<br />
UNTIL GOOD DO<br />
CRT "Invalid entry '":ANS:"' --- Must be 'U', 'D', 'T', 'B' or 'Q'"<br />
REPEAT<br />
REPEAT<br />
</PRE></div>Conversion script