diff --git a/make-vt100.sh b/make-vt100.sh
new file mode 100644
index 0000000..01b4540
--- /dev/null
+++ b/make-vt100.sh
@@ -0,0 +1,6 @@
+
+
+iix qlink vt100.link.S && \
+	profuse -orw vt100.po && \
+	cp vt100.system /Volumes/vt100/vt100.system \
+	&& umount /Volumes/vt100
diff --git a/vt100.link.S b/vt100.link.S
index 1211750..e6f8c8a 100644
--- a/vt100.link.S
+++ b/vt100.link.S
@@ -4,8 +4,6 @@
 	lkv 0
 	org $2000
 
-*	asm boot.S
-*	asm vt100.ctrl.S
 	asm vt100.main.S
 	asm vt100.esc.S
 	asm vt100.tabs.S
@@ -17,15 +15,6 @@
 	asm vt100.beep.S
 	asm vt100.cda.S
 
-
-*	lnk boot.S
-*	pos ; reset
-
-
-*	pos EMU_SIZE
-*EMU_SIZE	ext 
-*EMU_BLOCKS	geq EMU_SIZE+511\512
-
 	lnk vt100.main.L
 	lnk vt100.esc.L
 	lnk vt100.tabs.L
@@ -38,4 +27,4 @@
 	lnk vt100.cda.L
 
 	typ $ff
-	sav vt100.sys
+	sav vt100.system