d $! DO	IDLE {SHOW}
È $!		Shows idle terminals and permits one to be reserved.
,$!
$!	If not "SHOW", then the user will be prompted for a terminal
ô$! to be reserved, and a password. If the terminal is legal, then
X$! it will be reserved, waiting for the password, for 5 minutes.
¼$!
 $! ..note.. The user who reserved the terminal will be charged
„$!	 for the time between the reservation and the login.
è$!
L$!uses..  SCI_COM:LOCATE.com,SCI_COM:idleres.com
°$!	The format of the LOCATE.COM file can be seen by INFO LOCATE
$!
x$!-end.of.info-
Ü$!
@$ open/read tdef SCI_COM:LOCATE.com
¤$
$loop:
l$ stat := "          "      
Ð$ read/error=endloop tdef line
4$ if("''f$extract(0,1,line)'".eqs."$") then goto loop
˜$ if( line.eqs."" ) then goto notidle
ü$ tid := 'f$extract(0,5,line)
`	$ if("''f$logical("SYS$COMMAND")'".eqs."_''TID'") then goto notidle
Ä	$ open/error=notidle temp 'TID'
(
$  close temp
Œ
$  stat := "Idle "
ð
$
T$notidle:
¸$ write sys$output stat, line
$ goto loop
€$
ä$endloop:
H$ close tdef
¬$ if( p1.nes."" ) then goto fini
$ write sys$output ""
t$ inquire tn "Enter (cr) to EXIT, or Idle TT?? to be reserved"
Ø$ if( tn.eqs."" ) then goto fini
<$ if( "''f$extract(0,2,tn)'".nes."TT" ) then goto fini
 $ inquire ps "Password"
$ if( 'f$locate(":",tn).eq.'f$length(tn) ) then tn := 'tn':
h$
Ì$ submit SCI_COM:idleres.com/param=('tn','ps')
0$
”$fini:
ø$ exit