10	!
	!	PROGRAM TO SEND 'CLEAN' MESSAGE TO ALL THE TERMINALS
	!	BY CHARLIE GEHMAN
	!	NMH SUMMER SCHOOL, 4-JUL-74
	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V6C
	!
50	T$ = "         KEEP YOUR COMPUTER CENTER CLEAN !!!"
	\ O$ = "*******************************************************************    "
60	READ L%
	\ GOTO 100 IF L% = 0
	\ U$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+CHR$(10%)+CHR$(13%))
	\ V$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+O$)
	\ Q$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+CHR$(10%)+CHR$(13%))
70	Z$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+CHR$(10%)+CHR$(10%)+CHR$(13))
	\ R$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+T$)
	\ E$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+CHR$(10%)+CHR$(13%))
	\ D$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+CHR$(10%)+CHR$(13%))
80	H$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+O$+CHR$(10%)+CHR$(13%))
	\ PRINT L%,
90	FOR I% = 1% TO 10%
	\ H$ = SYS(CHR$(6%)+CHR$(-5%)+CHR$(L%)+CHR$(10%)+CHR$(13%))
	\ NEXT I%
	\ GOTO 60
100	PRINT 
	\ PRINT "MESSAGE SENT -- PRAISE BE RSTS/E !!!"
	\ PRINT
	\ PRINT
110	DATA  1,2,3,4,5,0
120	END