6 GOTO 50
7 SAVE "LABELS.BAS",A:STOP
10 'LABELS.BAS  MBASIC 5.2  BASCOM 5.30  CP/M 2.2  08/81
20 '    PRINTS MAILING LABELS OR RETURN ADDRESS
30 '    LABELS OF A SPECIFIED QUANTITY OF A SINGLE NAME/ADDR
40	SPACES$ = "                              "
50 N$ = "                              "
55 O$ = "                              "
60 S$ = "                              "
65 C$ = "                              "
70 Z$ = "                              "
100	PRINT	CHR$(27);CHR$(69);	 'REM CLEAR ZENITH SCREEN
110	PRINT	TAB(30);"L A B E L S"
120	PRINT:INPUT   "              PRINT 1-UP OR 2-UP           (1 OR 2)";U
123	U = INT (U):	 IF U < 1  OR  U > 2  THEN GOTO 120
130	PRINT:INPUT   "              HOW MANY LABELS   (1-200   0 to exit)";L
140	L = INT (L)
145	IF L=0 THEN SYSTEM
150	IF L < 1 OR L > 200 THEN 130
160	IF L/2 <> INT (L/2) THEN L = L + 1
170	PRINT
180	INPUT	"        NAME (NO COMMA)";N$
190	INPUT	"           ORGANIZATION";O$
200	INPUT	"                 STREET";S$
210	INPUT	"CITY & STATE (NO COMMA)";C$
220	INPUT	"                ZIPCODE";Z$
230	PRINT
233	IF U = 1  THEN	GOTO  600
240	PRINT	"******************************"; "     "; 
250	PRINT	"******************************"
260	PRINT	N$;TAB(36);N$
270	PRINT	 O$;TAB(36); O$
280	PRINT	 S$;TAB(36); S$
290	PRINT	LEFT$ (C$+SPACES$,25); TAB(36);
300	PRINT	LEFT$ (C$+SPACES$,25)
305	PRINT	Z$; TAB(36);Z$
310	PRINT	"******************************"; "     ";
320	PRINT	"******************************":PRINT
330	INPUT	"          LOOK OK ?    Y=YES   N=NO   E=EXIT PROGRAM ";OKAY$
335	IF	OKAY$ = "E" THEN GOTO 100
340	IF	OKAY$ <> "Y" THEN GOTO 170
370	FOR I = 1 TO L/2
380	LPRINT:LPRINT
390	LPRINT	  N$;TAB(36);N$
400	LPRINT	  O$;TAB(36); O$
410	LPRINT	  S$;TAB(36); S$
420	LPRINT	  LEFT$ (C$+SPACES$,25);
430	LPRINT	  TAB(36);LEFT$ (C$+SPACES$,25)
435	LPRINT	  Z$; TAB(36);Z$
450	LPRINT:LPRINT
452	IF I > 1 THEN GOTO 460
453	INPUT	 "...FORM ALIGNMENT PAUSE: OK ?   (Y-N)";G$
456	IF G$ <> "Y"  THEN GOTO 380
460	NEXT I
480	GOTO 100
490	'--------------------------------------------------
600	' 1-UP ROUTINE
610	PRINT	"******************************"
620	PRINT	N$:PRINT O$:PRINT S$:
630	PRINT	LEFT$ (C$+SPACES$,25)
640	PRINT	Z$
650	PRINT	"******************************":PRINT
700	INPUT	"LOOK OK ?    Y=YES   N=NO   E=EXIT PROGRAM ";OKAY$
720	IF	OKAY$ = "E" THEN GOTO 100
740	IF	OKAY$ <> "Y" THEN GOTO 170
745	FOR I = 1 TO L
750	LPRINT:LPRINT
752	LPRINT N$:LPRINT O$:LPRINT S$
754	LPRINT LEFT$ (C$+SPACES$,25):LPRINT Z$
756	LPRINT:LPRINT
760	IF I > 1 THEN GOTO 800
770	INPUT "  IS FORM ALIGNMENT OK ?    (Y-N) ";G$
780	IF G$ <> "Y"  THEN GOTO 750
800	NEXT I
820	GOTO 100
840	END
TO 800
770	INPUT "  IS FORM ALIGNMENT OK ?    (Y-N) ";G$
780	IF G$ <> "Y"  THEN GOTO 750
800	NEX