diff --git a/build/misc.tcl b/build/misc.tcl
index fe037095..0fc5d4d7 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1561,3 +1561,7 @@ expect ":KILL"
 # TBMOFF
 respond "*" ":midas sys; ts tbmoff_cstacy; tbmoff\r"
 expect ":KILL"
+
+# UPTINI
+respond "*" ":midas ejs;ts uptini_uptini\r"
+expect ":KILL"
diff --git a/doc/programs.md b/doc/programs.md
index 18d1f9a7..89753237 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -311,6 +311,7 @@
 - UP/DOWN, check if host is online.
 - UPTIME, Chaosnet uptime server.
 - UPTIME, record ITS uptimes.
+- UPTINI, program to create new UPTIME DATA.
 - URUG, GT40 debugger.
 - USQ/TYPESQ, unsqueeze/uncram or type a file.
 - VERSA/SPOOLR, Versatec/Gould printer spooler.
diff --git a/src/ejs/uptini.1 b/src/ejs/uptini.1
new file mode 100644
index 00000000..45250dcd
--- /dev/null
+++ b/src/ejs/uptini.1
@@ -0,0 +1,41 @@
+title UPTINI - Create UPTIME DATA
+
+chdsko=10
+
+flose=.lose %lsfil
+
+data:
+	IRP M,,[DB,NO,UP,ES,LC]
+        sixbit/M/		; sixbit host name
+	0			; sixbit date
+	0			; sixbit time
+	TERMIN
+	0	;; end of data
+dataln==.-data
+
+datptr: -dataln,,data
+
+go:	.call [ setz
+		sixbit /open/
+		[.bio,,chdsko]
+		dbdev
+		dbfn1
+		dbfn2
+		setz dbdir ]
+	 flose
+	.call [ setz
+		sixbit /iot/
+	        %climm,,chdsko
+		setz datptr ]
+	 flose
+	.close chdsko,
+	.logout 1,
+
+dbdev:	sixbit /dsk/
+dbdir:	sixbit /.temp./
+dbfn1:	sixbit /uptime/
+dbfn2:	sixbit /data/
+
+cnstnt:	constants
+
+end go