.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.ENABLE QUIET
.DISABLE DISPLAY
.ONERR Nodev
.;
	.SETF first
	.SETN status 1
	.SETS $log p1
.Again:
		.TRANSLATE '$log'
		.IF <exstri> EQ "" .IFF first .GOTO NoDev
		.SETT first
		.IFT <eof> .GOTO GotIt
		.SETS $log <exstri>
		.GOTO Again
.;
.GotIt:
	.IF <exstri> NE "" .SETS $log "'<exstri>'"
	.TEST $log "]"
	.IF <strlen> NE 0 .SETS $log $log[1:<strlen>]
	.TEST $log
	.SETN totlen <strlen>
	.TEST $log ":"
	.IF <strlen> EQ 0 .GOTO Setuic
		.SETS $devic $log[1:<strlen>]
.Setuic:
	.TEST $log "["
	.IF <strlen> NE 0 .SETS $uic $log[<strlen>:totlen]
.Endr:
	.SETF <eof>
	.EXIT status
.;
.NoDev:
	.SETN status 4
	.GOTO Endr
