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