SYNONYM CLEAR BLANK;
SYNONYM  CL BLANK;
SYNONYM DATE DAYTIME;
SYNONYM  DA  DAYTIME;
SYNONYM RM DELETE;
SYNONYM LS DIRECTORY;
SYNONYM KILL RESET;
SYNONYM FG CONTINUE;
SYNONYM MV RENAME;
SYNONYM CP COPY;

COMMAND JOBS;
	DOCOMMAND "INFO FORK";

COMMAND BG;
BEGIN
	GUIDE "background current fork";
	DOCOMMAND "CONTINUE, STAY"
END;

COMMAND pwd;
BEGIN
	EXTERNAL STRING PROCEDURE unicize;

	DISPLAY unicize( $CONNECTEDDIRECTORY );
END;

! TAKES TWENTY FILEPATH, CONVERTS TO UNIX FORM...
STRING PROCEDURE unicize(STRING twenty);
BEGIN	!unicize
	INTEGER i, j;
	STRING unix;
	EXTERNAL STRING PROCEDURE lower;

	i = $SEARCH(twenty,":");
	unix = "/" + twenty[1:i-1] + "/" + twenty[i+2 : $LENGTH(twenty)-i];

	i = $SEARCH(unix,".");
	j = $SEARCH(unix,">");
	IF j EQL 0 THEN j = $LENGTH(unix);

	! REPLACE ALL DOTS IN DIRECTORY NAME WITH SLASHES
	WHILE i <> 0 DO BEGIN
		IF i < j THEN BEGIN
			unix = unix[1:i-1] + "/" + unix[i+1:*];
			i = $SEARCH(unix,".")
		END
		ELSE
			i = 0
	END;

	! REPLACE ">" WITH "/" IF ANYTHING FOLLOWS IT, ELSE REMOVE IT
	IF j < $LENGTH( unix ) THEN
		unix = unix[1:j-1] + "/" + unix[j+1:*]
	ELSE
		unix = unix[1:j-1];

	RETURN lower( unix );
END;	!unicize

STRING PROCEDURE lower(STRING text);
BEGIN
	STRING tmp_str,result;
	INTEGER count;
	count = $LENGTH(text);
	WHILE count > 0 DO BEGIN
		tmp_str = text[count:1]; ! get the chr
		IF tmp_str >= "A" THEN
			IF tmp_str <= "Z" THEN
				tmp_str = $CVITC($CVCTI(tmp_str)+32);
	        result = tmp_str + result;
		count = count - 1;
	END;
	RETURN result;
END;



COMMAND UPTIME;
BEGIN
	guide "of system";
	DOCOMMAND "SYS SYS";
END;