Added GEORGE, a program to hold Puff at bay.

Resolves #575.

build/misc.tcl

@@ -1102,3 +1102,7 @@ respond "*" ":move sysbin;@ boot11, .;\r"
 # STUFF
 respond "*" ":midas sys1;ts stuff_sysen2;stuff\r"
 expect ":KILL"
+
+# GEORGE
+respond "*" ":midas sys3;ts george_syseng;george\r"
+expect ":KILL"

doc/programs.md

@@ -82,6 +82,7 @@
 - FTPS, FTP server.
 - FTPU, FTP client.
 - GCMAIL, delete old files from .MAIL.
+- GEORGE, Locks DRAGON HOARD to hold PFTHMG at bay.
 - GETSYM, copy all symbols from running ITS to a file.
 - GLP/XGP, queue files to be printed by GLPSPL/XGPSPL.
 - GLPDEV/XGPDEV, device for viewing GLPSPL/XGPSPL printer queues.

src/syseng/george.4

@@ -0,0 +1,65 @@
+	TITLE DRAGONFIGHTER
+
+A=1
+B=2
+C=3
+D=4
+E=5
+T=6
+TT=7
+H=10
+I=11
+J=12
+Q=13
+R=14
+P=17
+
+CLICH=15
+USRCH=16
+
+.=43
+	LOCKWD		;if job killed, free the dragon
+
+.=100
+LOCKWD:	'GEORGE		;zeroed when file editing completed
+	SETZM
+
+PDL:	-35,,.
+	BLOCK 35
+
+GO:	MOVE P,PDL
+	.SUSET [.ROPTION,,TT]
+	TLO TT,OPTLOK
+	.SUSET [.SOPTION,,TT]
+	.OPEN USRCH,[10+.UII,,'USR ? 'PFTHMG ? 'DRAGON]
+	 JRST NOTFND
+	.CALL [	SETZ
+		'CORBLK
+		MOVEI %CBRED+%CBNDR
+		MOVEI %JSELF
+		MOVEI 1
+		MOVEI USRCH
+		SETZI 0 ]
+	 .LOSE 1000
+	.OPEN CLICH,[.UAO,,'CLI ? 'PFTHMG ? 'DRAGON]
+	 .LOSE 1000
+	.CLOSE CLICH,
+	SKIPN 2100
+	 .HANG
+	.VALUE [ASCIZî:
+Okay, I'll hold the dragon at bay while you dash in
+and make free with its hoard.  When you're ready,
+come back and give me an $P.î]
+
+	SETZM LOCKWD
+	SKIPE 2100
+	 .HANG
+	.VALUE [ASCIZî:
+Yum, Yum.î:KILL ]
+
+NOTFND:	.VALUE [ASCIZî:
+I can't find the dragon.
+:KILL ]
+
+END GO
+