diff --git a/Makefile b/Makefile
index 89aa41ac..e98c4b61 100644
--- a/Makefile
+++ b/Makefile
@@ -10,7 +10,7 @@ SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       spcwar rwg libmax rat z emaxim rz maxtul aljabr cffk das ell ellen \
       jim jm jpg macrak maxdoc maxsrc mrg munfas paulw reh rlb rlb% share \
       tensor transl wgd zz graphs lmlib pratt quux scheme gsb ejs mudsys \
-      draw wl taa tj6 budd sharem ucode
+      draw wl taa tj6 budd sharem ucode rvb
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon
diff --git a/build/misc.tcl b/build/misc.tcl
index 45f74aa6..99b16321 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -758,6 +758,10 @@ respond "*" ":link sys3;ts vrfy,sys3;ts expn\r"
 respond "*" ":midas sys2;ts wholin_sysen2;wholin\r"
 expect ":KILL"
 
+# VTTIME
+respond "*" ":midas sys1;ts vttime_rvb;vttime\r"
+expect ":KILL"
+
 # DEVICE; CHAOS TIME
 respond "*" ":midas device;chaos time_syseng;ctimsr\r"
 expect ":KILL"
diff --git a/doc/info/vttime.1 b/doc/info/vttime.1
new file mode 100644
index 00000000..90fe0c5a
--- /dev/null
+++ b/doc/info/vttime.1
@@ -0,0 +1,48 @@
+
+File: VTTIME	Node: TOP	Up: (DIR)
+
+Description of the VTTIME program, last updated 2/7/78 -- BAK
+
+VTTIME is a program for displaying the current time and/or elapsed time
+since the program was started.  The information is printed and updated
+periodically in the lower right hand corner of the screen.  The program was
+written for VT52 terminals; it may or may not work on other display
+terminals.
+
+To use, simply invoke by "VTTIME^K" or ":VTTIME".  The current time will be
+printed in the lower right corner of the screen, and will be updated every
+10 seconds.
+
+Other options can be invoked via JCL.  If the JCL consists of a number, this
+is interpreted as the number of seconds to wait between updates.  It must be
+a decimal integer containing no periods.  There are two optional switch
+settings that may be specified:
+
+B      (both) Display both time of day and elapsed time.
+E      (elapsed) Display elapsed time only.
+
+Switches are specified using a slash followed by the character in the JCL
+line.
+
+Examples:
+
+:VTTIME
+Displays time of day only and refreshes every 10 seconds.
+
+:VTTIME 5
+Displays time of day only and refreshes every 5 seconds.
+
+:VTTIME 20 /B
+Displays both time of day and elapsed time and refreshes every 20 seconds.
+
+:VTTIME /E
+Displays elapsed time only and refreshes every 10 seconds.
+
+
+If both numbers and a switch setting are to be specified, the number must
+proceed the switch setting.
+
+The program does a :FORGET to DDT and will not appear in the job ring.  To
+reown the job type VTTIMEJ at DDT.  The program will not in general run
+under a non-DDT (due to VALRETting).
+
\ No newline at end of file
diff --git a/doc/programs.md b/doc/programs.md
index fad87d4a..a1175311 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -214,6 +214,7 @@
 - UPTIME, Chaosnet uptime server.
 - USQ, unsqueeze/uncram a file.
 - VERSA/SPOOLR, Versatec/Gould printer spooler.
+- VTTIME, display running time on the terminal.
 - VV/VJ/DETREE, list jobs.
 - XHOST, tool for replacing host nicnames with real hostnames.
 - WA, a Wumpus advisor game.
diff --git a/src/rvb/vttime.8 b/src/rvb/vttime.8
new file mode 100644
index 00000000..6671c0e3
--- /dev/null
+++ b/src/rvb/vttime.8
@@ -0,0 +1,417 @@
+	title vttime
+;;;			author RVB@ML
+;;;		based on an idea of frd
+
+colon==":
+t=1
+tt=2
+c=3
+time=4
+vert=5
+horiz=6	
+timkpr=7
+
+if1 nextpg==0
+if2 nextpg==<patchb+patchl+1023.>_<-10.>	;first free page
+pgmapd=12	;pointer to mapped pages
+jclp=13		;jcl line ildb pointer
+outcnt=14	;characters in output buffer
+outp=15		;output buffer pointer
+p=17
+
+ttyo=10
+
+pdll==50
+patchl==100	;patch space
+jcll==50	;200. characters
+outl==300	;siot buffer
+
+hour==3600.
+hours==hour
+delay:	10.*30.
+
+siot==1		;use siot's
+;siot==0		;iot
+
+page==1		;page map time
+;page==0		;don't
+
+.ilose=.lose 1000
+.iolose=.lose 1400
+
+;;;	iot a character, or put it into an output buffer to be siot'ed 
+;;;later
+
+define stash channel,ac
+ife siot,	.iot channel,ac
+.else [idpb ac,outp
+	aos outcnt]
+termin
+
+
+;;;	output a control P then the character.
+
+define cntlp channel,char
+	movei c,20
+	stash channel,c
+	movei c,"char
+	stash channel,c
+termin
+
+;;;	output the character
+
+define iotchr channel,char
+	movei c,"char
+	stash channel,c
+termin
+
+
+;;;	output a digit iff the digit is not a leading zero.
+;;;c must be set up to detect whether any non zero digit has been seen.
+;;;It becomes non blank when a non zero digit is seen.
+define zspdig channel,ac
+	cain ac,0
+	  caie c," 
+	 movei c,(ac)"0
+	stash channel,c
+termin
+
+
+;;;	essentially print a number by recursively dividing and saving 
+;;;the remainder until the quotient becomes zero.  Except this macro is
+;;;recursive itself and produces a straight line program.  Then too,
+;;;this macro is given a list of numbers to divide the "ac" by.  Thus
+;;;rather than always dividing by 10., you can divide by other numbers
+;;;as well.  This is useful in dealing with printing out the time.  And
+;;;lastly, where the "numbers to divide by" (the "divlst") includes non
+;;;numbers then they are assumed to be characters that are output as
+;;;long as zero suppress has stopped
+
+define outpno ac,divlst
+   irp car,cdr,[divlst]
+	ifl .type car,[
+		ifsn [cdr][][
+			idivi ac,car
+			push p,ac+1
+			outpno ac,[cdr]
+			pop p,ac
+			zspdig ttyo,ac
+			    ]
+		.else [
+			idivi ac,car
+			movei c," 
+			caie ac,
+			movei c,(ac)"0
+			stash ttyo,c
+			zspdig ttyo,ac+1
+			     ] ]
+	.else [
+		outpno ac,[cdr]
+		movei ac,car
+		cain c," 
+	 	movei ac," 
+		stash ttyo,ac
+	      ]
+	.istop
+   termin
+termin
+
+go:	move p,[-pdll,,pdlb-1]
+	move jclp,jclptr
+	move outp,outptr
+	.suset [.rxjname,,t]
+	setom rt.onp		;on
+	setzm et.onp		;off
+	camn t,[sixbit /ettime/]
+	setom et.onp		;on
+
+
+	.open ttyo,[4001,,'tty ? 0 ? 0]
+	.iolose
+	.call [setz
+		'cnsget
+		1000,,ttyo
+		2000,,vert
+		2000,,horiz
+		2000,,t		;tctyp
+		2000,,t		;ttycom
+		402000,,t	;ttyopt
+]
+	.iolose
+	movei vert,-1(vert)	;zero origin addressing
+	setzm  clr
+	tlne t,%toovr		;can console correctly overprint?
+	setom clr		; then clear eol before type out.
+	.break 12,[5,,jclb]
+	skipe jclb
+	pushj p,jclprs
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;	find page in ITS containing TIME
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+	move t,fndtim
+	.eval t,
+	.ilose
+	movem t,timloc		;system clock word
+
+	movei tt,(t)
+	ash t,-10.		;page in system
+	movem t,timpag
+
+	trz tt,776000		;word offset
+	hrrm tt,timdsp		;timdsp indexes off of pgmapd
+
+	move tt,[-2,,nextpg]		;two pages
+	.call [setz ? sixbit /corblk/  
+			movei %cbred 
+			movei %jself
+			move tt
+			movei 400000
+			setz t]
+	.ilose
+
+	movei pgmapd,nextpg*1024.	;addresability
+
+
+reinit:	.value [asciz/:job
+/]
+ifn page,move time,@timdsp
+.else	.rdtime time,
+	movem time,oldtim	;initialize elapsed time
+
+
+
+loop:	ifn siot,[	move outp,outptr
+			setz outcnt,]
+	cntlp ttyo,S
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;		elapsed time
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+et.st:	skipn et.onp
+	jrst rt.st
+
+	movei t,-7(horiz)	;seven characters to be printed
+	movei tt,-1(vert)	;one line up
+	skipn rt.onp		;only elapsed time
+	 aos tt
+	pushj p,ttspos
+
+	move t,oldtim		;initial count
+ifn page,move time,@timdsp	;latest time
+.else	.rdtime time,
+
+	subb time,t		;elapsed time
+ifn page,idivi t,2		;1/2 second units
+.else	 idivi t,30.		;1/30 second units
+
+	idivi t,6.		;to minutes * 10.
+period==".
+
+;;;	outpno t,[10.,period,10.,6.,colon,10.]
+	idivi t,10.		;tenth's of mins
+	push p,tt
+	outpno t,[10.,6.,colon,10.]
+	iotchr ttyo,.		;force a . out and not zero suppress
+	pop p,t
+	zspdig ttyo,t
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;		time of day
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+rt.st:	skipn rt.onp
+	jrst finish
+
+	movei t,-11.(horiz)	;eleven characters out
+	movei tt,(vert)
+	pushj p,ttspos
+
+ifn page,[
+	move t,@timdsp		;use # of 1/2 seconds since midnight
+	idivi t,2		; timer
+	setzm rt.pm
+
+	cail t,12.*hours
+	 setom rt.pm
+	caige t,13.*hours
+	 jrst rt.am
+	subi t,12.*hours
+	jrst rt.o�N�X;.A���n^C"B$�&M$,EeZ}..�h�N�[}=$�^�K��ō�r�m�{K�r��������c�#"W!Q�`�E�;y$b+\NM;9(M;9+
��<�
HZ.D;,T\[mT�n�;#"A];<�D󦝬��].�C"Ay=MT�E�""#!!;;}LT�΍;9#"Ax;-D����{C"Ay=mT�E�#"B,<;9y$k|m���l,hw!x8xl^LFd,NM'M.#!!��N}]l;#"A}8HM�nU��{{C!!=LT󦝬��l
".xl\^([|,|=#!!(9D󦝬���&!x9���Y([n$Xy�����/M,c�P����M-�+L�H�n=LzhmZ=LC!!=LT󦝬��ml�m��̬9;YdY<[aQ�J���M-�+L�
!#"B:N.��N�[}=
Q�h�N���A=[D�cV�l!lLF��9+HL^�z
�{xzaQ�J���M-�+L&&L'6,NL��N�X;#!!=Md󦝬�-l�f+��N�X;#!!($󦝬�L�l��=�.�;YhL^[c"AQ��E�����-�}Y(M�n�K��F�
�����Nܫ��P����.��c!.���9�Н-��e�;:n�h�-�}Y:$k�j#"A}<m�O-�c"A;Dk-]|C!!;;}L](kF
j!QB<}zO;kaQ�O=�[�*��]N#"A;}m�N�;kC!!:\\nD]LM9c"AQ��].��-���]$-�|Z/%�h�-���]$���<]
!QB<.=�R�|�~�h�-���T
����m��fl��%��������A;;}Y-�^�{]�
Q�J�l;�bny=Htz>-=n=�E�����:(O�z���Nhy.OH}.L{]!Q�J�-�|y!Q�N�N}�_
="W!QC"C
QNnna�~ݭ�Hd[}�z;Y4�~dY8;M�nT{�~=d��N��h�N�\'!:;}=HO�z�d�h�-�}Y:$k\
QB<zmHN���
��P����.�kX#!!<}.=�N�;kc!!:;}=HO;k!Q�h��C"YZ-m<zA{]�O-�C"AQZ9[Dz;}K�N���(}.N}.NC!!�J�l;�bny=Htz>-=n=�E�����:(O�z���Nhy.OH}.L{]!Q�H��;�f�l�#"C!.=<lW�N����E��;>!Q�J�m��/�"B-.��D
��
�Y>=!+X{�~y(O;k!!+X\L\�Z&�-"AQ�h��]|�~�Мm��g������P����.��,
E�h�.}�=���h�,{������h�-���]$&
!QB<}zO�zΎ�"B<m=���{B"'=�2m�\{{T[|M\�f�$}Y<N�N�c"B<�~�R��P�m��g�;k	A�K�m��$��]�"B<�~�R��P�A�"ZXmN\nA�/OD"M,{.B:;LHk�,{!|xx-d;�D�6�N}d�,y#"B,<�N�kH!�=
��fDY�
�;8Y.$|Hc"A\\nD�V=��<"Ax:;Dk-!���98;N4�.��2�=#"A|�$!!8x:-d��E�"B(�.\}�,�gO."C"Ax:;kL
QB(<:;$kN!QB(N.��
L{X9
��ޮ}Y$(]-\�/$
9HD�z|��"B:N.��
L{];%6c"C!-��λ.B8l;eDL"'<]:;D�w]�Y<C"A�<-;(eDN#"A\\nD�V=��#"A;=;���&C�P�,��J��-L
5�h�-;�&$k�V=�"B:N.��
L{];!Q�h�L{'!�W]�(�,�g<m��P�-��f��lAQ�N����j���.�/#"B8l8#"AQZX{<�s�-;�&$kX{
".|l<�r�;�b$h<d�.]��z��;:.D;C!!8x:-dkD
".h�~���"B(�.\}�,�g<m�"B8l;HeF-#"A|�$!!8x:,TkEt"B$�\\}���L9"C!-X{�Н-�HeMX{
Q�N<-;Hk,C"B$x:8!Q�N<-;Hk(�H�l[�����l�;LDY8-D󦝬�"B(�.\}>y=mT�E��\dy=mT�/E��\d�\\}���l{W#"AQ�N<-;�5�]"B$x:8!Q�N<-;�5�U�H�m]��DY8;M;9#!!��N}��l��~�][{N��l�����[{NhN.��
L{�=ˣ"C"Ax:;DkY!QB(l8#"Ax:;DkQ!�ޮ�};�\�;9!QB(N.��ny=[$][mn��y����=[mnh�.\}�,�g<m�#"C!-��L9�Н���*
���f��vx.<z:+h,�"	L{|M�~�Dw7#!!;;}L](}.L�wE�-�p�A+Xx;�D|y.OHh=>Z.D�=-��z�;}Y--t��
�d�/OD��Lm����A+Z;{�~�(�A+�N��;eLc"B-.\}_�OA�C"Na����y�4�9|d��Ty��
+�U1(,d,#!.][mnB,
�K�l�<M~�n�;9!Q�/E��\B&
�H�my�/��l��M-�#"XmNNB,
".{.^��m��$��bL��,�����;Yc"AQY[YM;.B.>=;~LT�΍;;yYA��M-�yYH��
���;�r�(5
4�n�;#"NM;9n�K{8<E�h��]�N�9nB,
Q�����xnB&
"".n�>T
;�?.}�.�
��M-��h��;'!,"!�6�D�fy�"�;9#"AQ��E�.B,
Q[[{mgB<z/Z=v,Hc"AQ\'B8[�|�Z�"AQ�V=��&��vXmL�h�L{��,[xzd�X{
Q�h��G!-�v�ō���!�[}=G!8[l=�����h��[=.,�c�,{�w>�;]c!.=mNB,
Q\==�МM�xzh��=
��P�A9�vD�c"@ovut
+rt.am:	caig t,hour
+	 addi t,12.*hours
+rt.out: outpno t,[10.,6.,colon,10.,6.,colon,10.]
+]
+
+.else [	.rtime time,	;use 6 bit time from system
+	jumpl time,quittr
+	setzm rt.pm		
+	move c,time
+	 caml c,noon
+	setom rt.pm
+	camge c,[sixbit /13    /]	;accept 00:00:00 to 12:59:59
+	 jrst rt.am
+	sub time,noon
+	tlze time,7000		;carry propagate
+	 add time,[200,,0]	;add 2 more for bcd arithmetic
+	tlo time,2000		;put back sixbit "0"
+	tlne time,770000	;no leading zero
+	 tlo time,200000		
+	jrst rt.out
+
+rt.am:	tlzn c,575700		;202000	.ie. zero oclock
+	 tlo time,212200	;12:00:00rt.am
+	tlnn time,170000	;1-9 rt.am
+	 tlz time,200000	;flush leading zero
+
+rt.out:	move timkpr,[440600,,time]
+	movei tt,3
+rt.dig:	ildb c,timkpr
+	movei c,40(c)
+	stash ttyo,c
+	ildb c,timkpr
+	movei c,40(c)
+	stash ttyo,c
+	sojle tt,rt.ppm
+	iotchr ttyo,:
+	jrst rt.dig
+
+quittr:	movei t,-4(horiz)
+	movei tt,(vert)
+	pushj p,ttspos
+	move outp,[440700,,[ascii/fail/]]
+	movei outcnt,4
+	.call [setz ? sixbit /siot/ ? movei ttyo ? outp ? setz outcnt]
+	.iolose
+	jrst exit
+]
+
+
+;;;	common to both kinds of real time clock output
+rt.ppm:	iotchr ttyo,[ ]
+	movei c,"p
+	skipn 0,rt.pm
+	movei c,"a
+	stash ttyo,c
+	iotchr ttyo,m
+
+
+
+finish:	cntlp ttyo,R
+
+ifn siot,[	move outp,outptr
+		.call [setz ? sixbit /siot/ ? movei ttyo ? outp ? setz outcnt]
+		.iolose]
+
+pause:	move t,delay
+	.sleep t,
+	jrst loop
+exit:	.close ttyo,
+	.break 16,140000
+
+
+
+ttspos:	cntlp ttyo,H
+	movei t,10(t)
+	stash ttyo,t
+	cntlp ttyo,V
+	movei tt,10(tt)
+	stash ttyo,tt
+	skipn clr		;if console normally overprints
+	popj p,
+	cntlp ttyo,L		;clear to eol
+	popj p,
+
+
+jclprs:	setz t,
+jcllup:	ildb c,jclp		;scan till first non space
+	cain c," 		; should be a number or a /
+	 jrst jcllup
+	cain c,15		;^M means end of data
+	 popj p,
+	cain c,"/
+	 jrst jcltyp
+
+	cail c,"0
+	  caile c,"9
+	 jrst jclbad		;must be a number if not /'ed
+	jrst jclnum+3
+
+jclnum:	cail c,"0		;build number
+	  caile c,"9
+	 jrst jcldly
+	imuli t,12
+	addi t,-60(c)
+	ildb c,jclp
+	jrst jclnum
+
+jcldly:	jumpe t,jclscn
+	imuli t,30.
+	movem t,delay
+	caia
+
+jclscn:	ildb c,jclp		;scan till a / is seen to delimit an
+	cain c," 		; option
+	 jrst jclscn
+	cain c,15
+	 popj p,
+	caie c,"/ 
+	 jrst jclbad
+
+jcltyp:	ildb c,jclp
+	cain c,"b
+	 caia
+	cain c,"B		;both elapsed and real time
+	 jrst [setom rt.onp ? setom et.onp ? jrst jclscn]
+
+	cain c,"t
+	 caia
+	cain c,"T		;just real time
+	 jrst [setom rt.onp ? setzm et.onp ? jrst jclscn]
+
+	cain c,"e
+	 caia
+	cain c,"E		;just elapsed time
+	 jrst [setzm rt.onp ? setom et.onp ? jrst jclscn]
+
+jclbad:	move outp,[440700,,[ascii/Bad Jcl option: /]]
+	movei outcnt,15.
+	.call [setz ? sixbit /siot/ ? movei ttyo ? outp ? setz outcnt]
+	.iolose
+	.iot ttyo,c
+	jrst exit
+
+;		these 3 flags are set TRUE if -1
+rt.onp:	0			;keep normal time
+et.onp:	0			;keep elapsed time
+clr:	0			;must clear eol before writing
+
+fndtim:	squoze 0,timoff		;timoff is a location the ITS system
+timdsp:	0(pgmapd)
+
+timpag:	0
+timloc:	0			;page in system of time
+oldtim:	0			;for elapsed time
+
+rt.pm:	0
+noon:	sixbit /12    /
+
+pdlb:	block pdll
+
+jclptr:	440700,,jclb
+jclb:	block jcll
+
+outptr:	440700,,outb
+outb:	block outl
+
+literal:	constants
+patchb:	0
+patch:	block patchl
+
+	end go