From: Jim Agnew [agnew@hsc.vcu.edu]
Sent: Friday, November 03, 2000 2:06 PM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: ??== Password protect access on VT500 and VT400 screen
savers.

NO, (i don't think so..) but you can invoke some terminal lockers which are avail on Hunter Goately's site... plus
i have on i've used for years..  you need to change the string "barfbarfbarf" to something else, otherwise the entire world knows
the password to your terminal locker... ;-)

j.

$!
$! BUSY.COM
$!
$!+++ This turkey locks a terminal as being in use and disables all entries
$!except the password.  A note may be entered with the BUSY command
$!which will be displayed on the screen.
$!To unlock the terminal, enter CTRL-Y, wait for the prompt,
$!then enter the password.  Note the default note and password below.
$!
$!Modified 15-feb-1984 by AAW to test for hardcopy terminals.
$!
$!   @BUSY [ "note" [password] ]
$!
$	ver='f$verify()
$ 	set noverify
$	termtype = f$getdvi("tt:","devtype")
$	video = termtype .ge. 95
$!
$!  Startup
$!
$       on control_y then goto PASSWORD
$	on error then goto ERR_HNDLR
$	SET BROADCAST=(NOPHONE)
$	if video then write sys$output ""   !Clear screen
$	if video then write sys$output "" !Scroll bottom 18 lines
$	password := "barfbarfbarf"		!!! Default password    <<<<<
$       if p2 .nes. "" then password := 'p2'
$	note := "''p1'"
$	if p1 .nes. "" then goto BEGIN
$	    note := "Terminal reserved for Jim Agnew"  !<<<<<
$!
$!  Screen loop
$!
$BEGIN:
$
$	if video then write sys$output "" !Home cursor (0,0 = 1,1)
$	if video then write sys$output -
"#6#3  Terminal locked (See note)#6#3"
$	if .not.video then write sys$output "  Terminal locked (See note)"
$	if video then write sys$output -
"#6#4  Terminal locked (See note)#6#4"
$!
$LOOP:
$	timstr := 'f$time()
$	dot = 'f$locate(".",timstr)
$	dot = dot - 3
$	timstr := 'f$extract(0,dot,timstr) !basic substring func
$	write sys$output timstr
$	write sys$output "***  ", note, "  ***"    ! line 4
$	wait 00:01:00
$	goto BEGIN
$!
$!  Control_y entered
$!
$PASSWORD:
$	if video then write sys$output "" ! Position to line 4
$	if video then write sys$output ""   ! Erase to end of line
$	if video then write sys$output "" ! Position to line 4
$       set term/noecho
$	READ/PROMPT="Enter the password to continue. >" SYS$COMMAND magic
$       set term/echo
$	if password .eqs. magic then goto EXIT
$	if video then write sys$output ""
$	write sys$output "Bad guess Bozo, bug off!"
$	wait 00:00:05
$	if video then write sys$output ""
$	write sys$output "                                 "
$	if video then write sys$output ""
$	if video then write sys$output ""
$	RUN JIM$GBL:BIBLE
$ERR_HNDLR:
$	on error then goto ERR_HNDLR
$	goto BEGIN
$EXIT:
$	SET BROADCAST=(PHONE)
$	set control_y
$	if video then write sys$output "" !Set entire screen scroll
$	if video then write sys$output "" !Home cursor
$	if video then write sys$output ""   !Clear screen
$	if ver then $set verify
$       write sys$output "At your service, Master..."
$	exit


"Hans M. Aus" wrote:
> 
> Can I password protect the access to VT400 and VT500 terminals which are
> in energy (screen) saver mode?
> 
> --
> Cheers, Hans M. Aus, Wuerzburg, Germany,  aus@vim.uni-wuerzburg.de