-369,370
-523,523
	BCC	10$		;OPENED OK			[RJDK002]
	MOV	#SYSIND,6(R2)	;GET DEFAULT UIC 		[RJDK002]
	MOV	#5,4(R2)	;AND LENGTH			[RJDK002]
	CALL	.PARSE		;PARSE IT			[RJDK002]
	BCS	10$		;BAD INDEED			[RJDK002]
	OFNB$R			;TRY FOR FILE IN DEF UIC	[RJDK002]
10$:	RETURN			;++002
SYSIND:	.ASCII	/[1,5]/		;				[RJDK002]
	.EVEN			;				[RJDK002]
/