perm filename FSHDR.FAI[S,NET] blob sn#555546 filedate 1983-05-30 generic text, type T, neo UTF8
	DEFINE WARN(STR)
<	PUSHJ P,[OUTSTR[ASCIZ/FS Error: /]
		 OUTSTR[ASCIZ/STR/]
		 EXIT 1,
		 POPJ P,]
>
	DEFINE FATAL(STR)
<	PUSHJ P,[OUTSTR[ASCIZ/FS Error: /]
		 OUTSTR[ASCIZ/STR
/]
		 JRST 4,$.
		 POPJ P,]
>
	INTERNAL FSBEG		;Needed to determine what is FS.