.TITLE ALARM
EF=R2
LEN=R1
ADDRS=R0
.MCALL WTSE$S,SUPER,EXIT$S,GMCR$,DIR$
SUPER
CONSOL:: .WORD	2
BUF:	.BLKB	80.
TOOMNY:	.ASCII	/I CAN'T REMEMBER THAT MANY THINGS AT ONCE/
PROMP:	.ASCII	/ALARM>/
	.EVEN
BEGINMAIN ALARM
	LET EF := #1
	DIR$	#GETMCR
	LET LEN := $DSW
	IF LEN GT #6
		LET ADDRS := #GETMCR+G.MCRB
		REPEAT
			LET LEN := LEN -1
		UNTILB (ADDRS)+ EQ #40
		SCALL SETFLG
		GOTO EOFXT
	END
	REPEAT
		PRINT #PROMP,#6,#'$
		LET BUF := 0
		ACCEPT #BUF,#80.,LEN,EOFXT
		IF EF GT #32.
			PRINT #TOOMNY,#41.
			GOTO EOFXT
		END
		LET ADDRS := #BUF
		SCALL SETFLG
		ON.NOERROR
			LET EF := EF +1
		END
	END
EOFXT:	IF MASK NE #0
		WTSE$S	#17
	END
	EXIT$S
ENDMAIN	ALARM
GETMCR:	GMCR$
.END	ALARM