SUB BRESEQ
<<*opts>>!--->
ON ERROR GOTO <<rerr>>
DIM LNUM(2000),LBLS(2000)
IREC,LRECL,IFLGP=0
<<*lpr>>INPUT LINE #1,REC$ \ REC$=TRM$(REC$)
	LENREC=LEN(REC$)
	LRECL=LRECL+1
	IF IFLGP=1 GOTO <<count>>
		I=1 \ IC=ASCII(MID(REC$,1,1))
		UNTIL (IC<>32) AND (IC<>9)
			I=I+1 \ IC=ASCII(MID(REC$,I,1))
		NEXT
		IF (IC>57 OR IC<48) GOTO <<cont err>>
		IREC=IREC+10
		LFT=I
		UNTIL (IC>57) OR (IC<48)
			I=I+1 \ IC=ASCII(MID(REC$,I,1))
		NEXT
		IBP2=VAL(SEG$(REC$,LFT,(I-1)))
<<*count>>LNUM(LRECL)=IBP2 \ LBLS(LRECL)=IREC
	IF '&'=MID(REC$,LENREC,1) THEN IFLGP=1 ELSE IFLGP=0
	GOTO <<lpr>>
<<*rerr>>!------------------------------------------------->
	IF ERR<>11 GOTO <<err exit!>>
	RESUME <<pass 2>>
<<*pass 2>>RESTORE  #1
	IREC,IFLGP=0
	FOR JREC=1 TO LRECL
	  INPUT LINE #1,REC$ \ REC$=TRM$(REC$)
	  LENREC=LEN(REC$)
	  OUT$=""
	  I=1
	  IF IFLGP=1 GOTO <<rec>>
		IREC=IREC+10 
		IC=ASCII(MID(REC$,1,1))
		UNTIL ((IC<>32) AND (IC<>9) AND (IC>57 OR IC<48))
			I=I+1
			IC=ASCII(MID(REC$,I,1))
		NEXT
<<*rec>>  IF '&'=MID(REC$,LENREC,1) THEN IFLGC=1 ELSE IFLGC=0
WHILE I<= LENREC
	    C$=MID(REC$,I,1)
	IF (C$<>"'") AND C$<>'"' GOTO <<g?>>
		QUOTE$=C$ \ OUT$=OUT$+C$
		I=I+1
		IF I>LENREC THEN PRINT "Unmatched quotes!" &
			\ PRINT REC$ \ GOTO <<output>>
		C$=MID(REC$,I,1)
		UNTIL C$=QUOTE$
			OUT$=OUT$+C$ \ I=I+1
			IF I>LENREC THEN PRINT "Unmatched quotes!" &
				\ PRINT REC$ \ GOTO <<output>>
			C$=MID(REC$,I,1)
		NEXT 

<<*g?>>	  IF C$<>'G' THEN <<t?>> ELSE GOSUB <<inc>>
	  IF C$<>'O' THEN <<t?>> ELSE GOSUB <<skips>>
	  IF C$<>'T' THEN <<s?>> ELSE GOSUB <<inc>>
	  IF C$<>'O' THEN <<s?>>
<<*case>>	GOSUB <<num?>>
		IF IRGT=0 THEN GOTO <<lbl err!>>
			GOSUB <<newref>>
			IF C$=' ' OR 9=ASCII(C$) THEN GOSUB <<skips>>
			IF C$=',' THEN GOTO <<case>>
		 GOTO <<nxtj>>

<<*s?>>	IF C$<>'S' THEN <<t?>> ELSE GOSUB <<inc>>
	IF C$<>'U' THEN <<t?>> ELSE GOSUB <<inc>>
	IF C$<>'B' THEN <<t?>> ELSE GOSUB <<num?>>
		IF IRGT=0 THEN GOTO <<lbl err!>>
			GOSUB <<newref>>
			 GOTO  <<nxtj>>

<<*t?>>	IF C$<>'T' THEN <<e?>> ELSE GOSUB <<inc>>
	IF C$<>'H' THEN <<e?>> ELSE GOSUB <<inc>>
	IF C$<>'E' THEN <<e?>> ELSE GOSUB <<inc>>
	IF C$<>'N' THEN <<e?>> ELSE GOSUB <<num?>>
		IF IRGT<>0 THEN GOSUB <<newref>>  
				 GOTO <<nxtj>>

<<*e?>>	IF C$<>'E' THEN <<r?>> ELSE GOSUB <<inc>>
	IF C$<>'L' THEN <<r?>> ELSE GOSUB <<inc>>
	IF C$<>'S' THEN <<r?>> ELSE GOSUB <<inc>>
	IF C$<>'E' THEN <<r?>> ELSE GOSUB <<num?>>
		IF IRGT<>0 THEN GOSUB <<newref>>  
				 GOTO <<nxtj>>

<<*r?>> IF C$<>'R' THEN <<nxtc>> ELSE GOSUB <<inc>>
	IF C$<>'E' THEN <<nxtc>> ELSE GOSUB <<inc>>
	IF C$<>'S' THEN <<nxtc>> ELSE GOSUB <<inc>>
	IF C$<>'U' THEN <<nxtc>> ELSE GOSUB <<inc>>
	IF C$<>'M' THEN <<nxtc>> ELSE GOSUB <<inc>>
	IF C$<>'E' THEN <<nxtc>> ELSE GOSUB <<num?>>
		IF IRGT<>0 THEN GOSUB <<newref>>  
				 GOTO <<nxtj>>

<<*lbl err!>>!
	PRINT 'A syntax error exists! Where is the label?'
	PRINT REC$
<<*nxtc>>!
OUT$=OUT$+C$ \ I=I+1
<<*nxtj>>NEXT 
!-------------------------------------------------->
<<*output>>IF IFLGP=1 THEN PRINT #2,"      ";OUT$  &
		 ELSE PRINT #2,LEFT(STR$(IREC),6);OUT$
IFLGP=IFLGC
NEXT JREC
GOTO <<stop>>
!
!---> Resequencing subroutines.
!----------------------------------->
<<*inc>>!
	OUT$=OUT$ +C$
	I=I+1
	IF I<= LENREC THEN C$=MID(REC$,I,1)  &
			ELSE GOTO <<*output>>
	RETURN
!----------------------------->
<<*skips>>GOSUB <<inc>>
	IC=ASCII(C$)
	IF (IC=9 OR IC=32) GOTO <<skips>>
	RETURN
!----------------------------->
<<*num?>>LFT,IRGT=0
	GOSUB <<skips>>
	IF IC<48 OR IC >57 THEN RETURN
	LFT=I
<<*lpnum>>WHILE (IC>47) AND (IC<58) AND (I<=LENREC)
		I=I+1
		C$=MID(REC$,I,1)
		IC=ASCII(C$)
	  NEXT
	IF I=LENREC THEN IRGT=LENREC ELSE IRGT=I-1
	IBP2=VAL(SEG$(REC$,LFT,IRGT))
RETURN

<<*newref>>!
	FOR IK=1 TO LRECL
		IF IBP2=LNUM(IK) GOTO <<hit>>
	NEXT IK
PRINT "REF ERROR, ";REC$
<<*hit>> OUT$=OUT$+EDIT$(STR$(LBLS(IK)),2)
RETURN
RETURN
!
!---__----------------------->
<<*cont err>>PRINT "Line number expected! "
	PRINT REC$
	GOTO <<count>>
!
<<*err exit!>>PRINT ERT$(ERR)
<<*stop>>!
	SUBEND