From:	CSBVAX::CSBVAX::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 18-MAR-1989 22:50
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Termlock v1.16, part 5 of 5


Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Tue, 14 MAR 89 09:00:03 PDT
Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Tue, 14 Mar 89 08:51:07 PST
Received: by ucbvax.Berkeley.EDU (5.61/1.36)
	id AA05112; Tue, 14 Mar 89 08:40:37 -0800
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 9 Mar 89 05:16:42 GMT
From: ssbell!mcmi!amperif!unocss!dent@uunet.uu.net  (Dave Caplinger)
Organization: U. of Nebraska at Omaha
Subject: Termlock v1.16, part 5 of 5
Message-Id: <706@unocss.UUCP>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com


+-+-+-+ Beginning of part 5 +-+-+-+
X`123
X`009cgoto(10,10);
X`009printf(" %s ",date_string);
X`125
X
Xdisplay_prompt()
X`123
X`009cgoto(9,59);
X`009printf("Selection:");
X`125
X
Xdisplay_status(s)
Xchar *s;
X`123
Xchar st[11];
Xint i;
X
X`009if (strlen(s) <= 10) `123
X`009  for(i=0; i<strlen(s); i++) st[i] = s[i];
X`009  for(i=strlen(s); i<10; i++) st[i] = ' ';
X`009`125 else for(i=0;i<10;i++) st[i] = s[i];
X`009st[10] = '\0';
X`009cgoto(9,44);
X`009printf("%s",st);
X`125
X
Xcursor_to_prompt()
X`123
X`009cgoto(9,69);
X`125
X
Xgon()
X`123
X   printf("%c(0",esc);
X`125
X
Xgoff()
X`123
X   printf("%c(B",esc);
X`125
X
Xcgoto(row,col)
Xint row,col;
X`123
X   printf("%c[%d;%dH",esc,row,col);
X`125
X
Xdraw_box(start_row, start_col, end_row, end_col)
Xint start_row, start_col, end_row, end_col;
X`123
X   int i,j;
X
X   cgoto(start_row, start_col);
X   printf("l");
X     for (j=start_col + 1; j < end_col; j++) printf("q");
X   printf("k");
X
X     for (i=start_row + 1; i < end_row; i++) `123
X       cgoto(i, start_col);
X         printf("x");
X       printf("%c[%dX",esc,end_col - start_col - 2);
X       cgoto(i, end_col);
X         printf("x");
X     `125
X
X   cgoto(end_row, start_col);
X   printf("m");
X     for (j=start_col + 1; j < end_col; j++) printf("q");
X   printf("j");
X`125
X
Xcls()
X`123
X   printf("%c[H%c[2J",esc,esc);
X`125
X
$ GOSUB UNPACK_FILE

$ FILE_IS = "BUILD.COM"
$ CHECKSUM_IS = 1182496202
$ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY
X$ p1 = "TERMLOCK"
X$!
X$ write sys$output " "
X$ write sys$output " Compiling TERMLOCK v1.16 "
X$ write sys$output " "
X$!
X$ oldmsg = f$environment("MESSAGE")
X$ set message/nofac/nosever/noid/notext
X$ set noon
X$ user = f$getjpi("","USERNAME")
X$ node = f$trnlm("SYS$NODE")
X$!
X$ write sys$output "One moment, testing JNET version..."
X$!
X$ set broadcast=nouser1
X$ send 'node''user' " -- ( Test message ) -- "
X$ if $severity .nes. 1 then goto RUNNING_33
X$   write sys$output "I'm relatively sure that you are running JNET 3.2"
X$   compile = "cc/define=JNET32"
X$   goto CONTINUE
X$ RUNNING_33:
X$   write sys$output "I'm relatively sure that you are running JNET 3.3"
X$   compile = "cc/define=JNET33"
X$ CONTINUE:
X$!
X$ set broadcast=user1
X$ set message 'oldmsg'
X$ set on
X$ write sys$output "Compiling..."
X$ 'compile' 'p1'.c
X$!
X$ write sys$output "Linking..."
X$ link 'p1'.obj,sys$input/opt
Xsys$library:vaxcrtl.exe/share
X$!
X$ delete 'p1'.obj;
X$ exit
$ GOSUB UNPACK_FILE
$ EXIT
-+-+-+-+-+ End of part 5 +-+-+-+-+-

