ks,1,Hinc-(LEN(Mline1)-Length));
			  TO Mline1
                        STORE LEN(Mline2) TO Length
                        STORE Mline2+$(Addr1,1,Maxaddr1) TO Mline2
                        STORE Mline2+$(Blanks,1,Hinc-(LEN(Mline2)-Length));
                          TO Mline2
			IF Addr2 = ' '
                                 STORE 'Mline3' TO Mcity
                                 STORE Mline4+$(Blanks,1,Hinc) TO Mline4
                        ELSE
                                 STORE LEN(Mline3) TO Length
                                 STORE Mline3+$(Addr2,1,Maxaddr2) TO Mline3
                                 STORE Mline3+$(Blanks,1,;
                                    Hinc-(LEN(Mline3)-Length)) TO Mline3
                                 STORE 'Mline4' TO Mcity
                        ENDIF
                        STORE LEN(&Mcity) TO Length
                        STORE &Mcity+TRIM($(City,1,Maxcity))+', '+State+'  ';
			  +Zip TO &Mcity
			STORE &Mcity+$(Blanks,1,Hinc-(LEN(&Mcity)-Length));
			  TO &Mcity
			STORE N+1 TO N
			STORE Lpr+1 TO Lpr
		   OTHERWISE
			SKIP
			STORE Reccount+1 TO Reccount
			STORE 0 TO Lpr
		ENDCASE
	ENDDO
	SET CONSOLE OFF
	SET PRINT ON
	? Mline1
	? Mline2
	? Mline3
	? Mline4
	STORE Vinc-4 TO N
	DO WHILE N > 0
		?
		STORE N-1 TO N
	ENDDO
	SET PRINT OFF
	SET CONSOLE ON
ENDDO
ERASE
@ 14,10 SAY 'There were '