In Universe, the following program (called PATH) will do this.
To use it, just put PATH in the LOGIN command.
PATH CLEAR puts things back to how they were.
PATH FULL gives the full path name at the input prompt.
========================== PATH program v
SENTENCE = UPCASE(@SENTENCE)
THIS = '' ; THAT = 1
BEGIN CASE
CASE INDEX(SENTENCE,'CLEAR',1) ; THAT = 0
CASE INDEX(SENTENCE,'FULL',1) ; THIS = @PATH:'>'
CASE 1 ; THIS = FIELD(@PATH,'/',DCOUNT(@PATH,'/')):'>'
END CASE
IF THIS NE '' THEN
THIS<2> = THIS<1>:'>'
THIS<3> = '+'
END
ASSIGN THIS TO SYSTEM(4002)
ASSIGN THAT TO SYSTEM(4001)
========================== PATH program ^
This version is for a UNIX system, you may have to change the '/' to '\'
on Windows
SYSTEM(91) = 0 on UNIX
SYSTEM(91) = 1 on Windows
Regards, Keith
P.S. A great benefit of this is that you can then edit the command stack
using the arrow keys.
You have to use backspace to delete, though.
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
