2585 	SCAN=SCAN+1
2590 	IF (LETTR .EQ. ' ') GOTO NOUNIT
2595 	IF(LETTR .EQ. ';') GOTO NOUNIT
2600 	IF (LETTR .NE. '#') GOTO LABLOOP
2605 	RT=SCAN-2
2610 	CALL NUMBER
2615 	UNIT=NUMBR
2620 	GOTO LABNAME
2625 NOUNIT,	UNIT=0
2630 	RT=SCAN-2
2635 LABNAME,IF (RT .LT. LFT) GOTO NONAME
2640 	NAME=
2645 	NAME=COM(LFT,RT)
2650 	RETURN
2655 NONAME,	XMIT(TTY,"NO LABEL NAME.')
2660 	GOTO START
2665 PLUCHK,	CALL FLOW
2670 	IF (COM(SCAN) .EQ. '+') GOTO PLUINC
2675 	RETURN
2680 PLUINC,	PLUS=1
2685 	SCAN=SCAN+1
2690 	CALL FLOW
2695 	IF(COM(SCAN) .EQ. ';') RE