Command procedures: <wait>

$! DO	ALLDIR {root_directory}
$!		Find all the directories from the root_directory
$! DO	CLEAR
$!		Clear the screens of all terminals except OPA0
$!{DO}	COST {type}
$!		Computes cost of the Session, in Total, or on Daily basis.
$!{DO}	CYCLE {prog {,cmd_file}}
$!		Loops EDIT, FOR, LINK, RUN for quick debugging.
$! DO	DIR {dir_parms {. or ;}}
$!		Show a condensed directory listing.
$! DO	{time} {service}
$!		Provides access to DO command procedures and programs.
$!{DO}	FIND {file or GO} {NO or ALL}
$!		Find the directories that contain the file
$! DO	FREE
$!		Show the free blocks of the disk
$!{DO}	HELP {topic or .topic or ?}
$!		Retains the topic text for obtaining HELP on various levels.
$! DO	IDLE {SHOW}
$!		Shows idle terminals and permits one to be reserved.
$!	IDLERES Terminal Password
$!		This is subitted by IDLE.COM to reserve a terminal
$! DO	INDEX InputFile Outfile
$!		Generate a cross reference index of a set of programs
$! $	INFO {ALL .or. Topic {ALL .or. Subtopic...}}
$!		Shows INFOrmation about SCI services and other topics.
$!{DO}	KILL directory.subdirectory... {YES}
$!		Kill a directory
$! DO	LINK {prog,,,}
$!		Appends the SCI library to the end of the LINK command.
$! DO	LOCATE
$!		Show the locations of the terminals
$! DO	LOGOUT
$!		Shows the session costs before LOGing out the user.
$! DO	NEWS {number}
$!		Shows the current news, or the news from any news item.
$! DO	NLINE Filename {ALL .or. Number}
$!		Show the Top part of a file
$! DO	PAGE {number}
$!		Does {number} of page ejects to line up 'paper'.
$!{DO}	QUE
$!		Shows the system queues to permit deleting of a specific entry.
$!{DO}	RNO {in_file {out_file}}
$!		Executes RUNOFF on a file to produced justified text.
$! DO	SCIDEF
$!		Provides a set of standard definitions of SCI services.
$! DO	SED	{file {$}}
$!		Simple file editor, The commands are /{cmd}{num}
$! DO	SEND {term {message}}
$!		Sends a message, or set of messages to another terminal
$! DO	SOME {Function {File_spec {Trailer {Comfirm}}}}
$!		Executes the same command on files of a given type.
$! DO	SORT {in_file {out_file {fst_col {lst_col}}}}
$!		Provides a look at the input file, and does simple sort.
$!{DO}	SOS {file}
$!		Set up the SOS prompts for a VT-100
$! DO	SPOOL {single command}
$!		Submit a single DCL command, or a DCL command series
$! DO	SUB{/OUTPUT=filename} {SWITCH} {[DIR]}{filespec}
$!		Gets directories and sub-directories listings.
$! DO	SYS
$!		Shows the system status, if LOOPED, provides system statistics.
$! DO	TERM
$!		Show who is on the terminals, and the idle terminals
$!{DO}	TREE {? or name or .name or [dir.sub...]}
$!		Moves user around is sub-directory structure.
$! DO	VER file {YES or Result_file}
$!		Get the version of a file, and set SCI_VER == version
$!{DO}	WHO
$!		Find out who is logged in to the system
$! DO	ZLIB {Program_source .or. ALL}	!!Used by System Manager
$!		This should create or update SCI_LIB:SCILIB.OLB
$! DO	ZWHO	!!Used mainly by System Manager
$!		Generates new WHO program from SYSUAF.LIS

Programs: <wait>

c. DO	ACT
c.		Computes CPU time used, and finds active terminals.
c. DO	CONV
c.		Converts chracter, hex, and decimal data.
c.{DO}	CRT {-A} {-I} {@}file... {>out_file}
c.		Shows a file in 22 line chunks.
c. DO	CRY
c.		Encripts/Decripts a text file.
c. DO	DB
c.		Simple data base program
c.	DBINC.FOR
c.		Include file for DB.FOR
c. DO	DELBLA
c.		Deletes blanks, col 72,71... in file
c. DO	ERROR {errnum}
c.		Shows the DCL error messages for any HEX error.
c. DO	INTAPE
c.		Reads fixed block, unlabled tape into VAX files.
	program logtime
c.		Show the LOG time, DAY CPU time, NIGHT cpu time.
c. DO	NL
c.		Preprocesses FORTRAN program containing NAMELIST
c. DO	NULLPROG
c.		Do nothing except null any ASSIGN/USER
c. DO	OUTTAPE
c.		Writes fixed length unlabled tapes from VAX files.
c. DO	SEND {terminal {message}}
c.		To send a message or set of messages to another terminal
	Program SESSION
c.		Computes the session costs for COST.COM.
c. DO	SPLIT
c.		Splits a FORTRAN file based on PROGRAM etc. statements.
	Program SYS
c.		Computes system information for SYS.COM.
c. {DO}	TERM
c.		Show the active terminals
c. DO	VREAD
c.		Reads variable record length unlabled tapes.
c. {DO}	TELL
c.		Tell who is on the terminals

DO LINK FORTRAN subroutines: <wait> 

	subroutine clear
c.		Clears the screen in preparation for a new plot.
	subroutine hard
c.		Terminates a plot waiting for next plot.
	function jjcmd( string )
c.		Sets "string" to the command parameters used.
	function jjcmdcp( str, str2 )
c.		Copies one string to another, used by JJCMD
	FUNCTION JJFTP( buff )
c.		Reads one record from FOREIGN TAPE, Assigned MT: TAPE
	function JJGET( line )
c.		Get a line from the term, or ^files...
	function jjlen( string ) !! << Non blank length
c.		Returns the printing character length of a string
	function JJMESS( msgnum )
c.		Print, on unit 6, the system message for "msgnum".
	FUNCTION JJNLPAR( LINE, LS, STRING )
c.		Process a Name List Parameter
	FUNCTION JJNLRD(IUNIT, LIST, NUMD, LOCD )
c.		Do fortran Name List Read
	FUNCTION JJNLWR(IUNIT, LIST, NUMD, LOCD )
c.		Processes an name list write.
	FUNCTION JJOPENIN( IUNIT, NAME )
c.		Process a name list file definitions
	subroutine jjpany( imod, ity, x, y )
c.		The generalized plot routine interface.
	subroutine jjpopn( idev, gmin )
C.		OPEN THE PLOT FILE
	subroutine jjpscrt( imod, ity, x, y )
C.		PLOT ON THE CRT
	subroutine jjpscrts( ity, xst, yst )
C.		SERVICE THE CRT PLOT
	SUBROUTINE jjpshp( JMOD, ITY, X, Y )
C.		PLOT ON THE H.P. PLOTTER
	subroutine jjpslp( imod, ity, x, y )
C.		PLOT ON THE PRINTER
	subroutine jjpstek( imod, ity, x, y )
C.		PLOT ON THE TEKTRONIX
	subroutine jjpsteks( ity, x, y )
C.		SERVICE THE TECTRONIX PLOTS
	subroutine jjpuchar( itype, ichar )
C.		DETERMINE A PLOT CHARACTER
	subroutine jjpuwait( time )
C.		WAIT A WHILE
	subroutine jjpuwrite( nchar, buffer )
C.		DO THE PHYSICAL WRITE
	FUNCTION JJTAPE( buff, nchar )
c.		Reads one record from Assigned MT: TAPE.
	subroutine jjtime( time )
C.		RETURNS TIMES SINCE LAST CALL
	FUNCTION JJUPP( string )
c.		Converts the STRING into upper case.
	FUNCTION JJWRD( line, ipos, atom )
c.		Return the next "word" in the input "line"
	subroutine move( ix, iy )
c.		Move the plot position to the next IX, IY position.
	subroutine send
c.		Clear out any pending plot instructions.
	subroutine set
c.		Used to set up the TEK routines, a noop now.
	subroutine vec( ity, ix, iy )
c.		Output a vector, type ITY to position IX and IY.
	subroutine wrtchr( ix, iy, logstr, nchar )
c.		Move to IX, IY, and output a number of characters.
	subroutine wrtstr( ix, iy, string )
c.		Move to IX, IY, and output a number of characters.