d $!	IDLERES Terminal Password
È $!		This is subitted by IDLE.COM to reserve a terminal
,$!
$! P1 .. TERMINAL (TTA?:) 
ô$! P2 .. PASSWORD
X$!
¼$!
 $!-end.of.info-
„$
¶$ if( "''f$mode()'".eqs."INTERACTIVE" ) then exit
Ï$ if( "''f$extract(0,2,p1)'".nes."TT" ) then exit
è$ WRITE SYS$OUTPUT " Reserve terminal= ",P1," for ",P2
L$ TIM := "''F$TIME()'"
°$ HOURES = 'F$EXTRACT(12,2,TIM)
$ MINRES = 'F$EXTRACT(15,2,TIM)
x$ TIMNOW := "''TIM'"
Ü$
@$NOTIM:
¤$ MINNOW = 'F$EXTRACT(15,2,TIMNOW)
$ DELTIM = MINRES+5-MINNOW
l$ OPEN/WRITE TERM _'p1':
Ð$ WRITE TERM "''F$DIRECTORY()'"
4$ WRITE TERM "''F$EXTRACT(12,8,TIMNOW)'","  ",-
˜ " This terminal is reserved for ", DELTIM, " minutes."
ü$ WRITE TERM "Password"
`	$ WRITE TERM ""
Ä	$ CLOSE TERM
(
$ OPEN/READ TERM 'P1'
Œ
$ READ TERM INPAS
ð
$ CLOSE TERM
T$ IF( INPAS.EQS.P2 ) THEN GOTO OKLOGIN
¸$ TIMNOW := "''F$TIME()'"
$ HOUNOW = 'F$EXTRACT(12,2,TIMNOW)
€$ MINNOW = 'F$EXTRACT(15,2,TIMNOW)
ä$ IF( HOURES.NE.HOUNOW ) THEN MINNOW = MINNOW+60
H$ IF( MINNOW.GE.MINRES+5 ) THEN GOTO OKLOGIN
¬$ GOTO NOTIM
$
t$OKLOGIN:
Ø$ OPEN/WRITE TERM 'P1'
<$ WRITE TERM "O.K. now LOGIN"
 $ WRITE TERM ""
$ CLOSE TERM
h$ LOGOUT