1*48686Sbostic$! UUCP Login File
2*48686Sbostic$ set nocontrol
3*48686Sbostic$ if "''F$Mode()'" .NES. "INTERACTIVE" THEN $ GOTO BATCH
4*48686Sbostic$ nettest:='f$logical("SYS$NET")
5*48686Sbostic$ if nettest .nes. "" then goto batch		! Network task
6*48686Sbostic$ deass sys$input
7*48686Sbostic$ uucico := $e$disk:[eunice.usr.lib.uucp]uucico uucico
8*48686Sbostic$! drain:= $e$disk:[eunice.usr.lib.uucp]drain drain
9*48686Sbostic$ uucico
10*48686Sbostic$! drain
11*48686Sbostic$ assi nl: sys$output
12*48686Sbostic$ assi nl: sys$error
13*48686Sbostic$ logout/brief
14*48686Sbostic$ stop/id=0
15*48686Sbostic$ !
16*48686Sbostic$ BATCH:
17*48686Sbostic$ exit
18