1 TITLE VCREATE MCR001 C. REEVE (CLR)
9 DEBUG: MOVE E,[440600,,[SIXBIT /EXPERIMENTAL/]]
13 VCREATE: .SUSET [.SSNAM,,[SIXBIT /MUDSYS/]]
16 MOVEI 0,0 ; SET 0 TO DO THE .RCHST
23 STUFF: MOVE D,[440700,,MUDSTR+2]
24 STUFF1: ILDB A,E ; GET A CHAR
25 CAIN A,0 ;SUPRESS SPACES
26 MOVEI A,137 ;RUBOUT'S DON'T TYPE OUT
35 OP%: 1,,(SIXBIT /DSK/)