1 ON ERROR GOTO 1200
10 PRINT "**** ADDRES PRINTS ADDRESSES ON LABELS****"
20 PRINT "TYPE 0 TO TERMINTATE A QUESTION"
30 INPUT "INPUT FILE";F$
35 CLOSE 1% :OPEN F$ AS FILE 1%
60 PRINT "RESTART-0,NEW ADDRESS-1,PRINT OUT ADDRESSES-2,ERASE ADDRESS-3"
70 INPUT L5
90 ON L5+1 GOTO 100,110,350,570
100 PRINT "DONE" :GOTO 9999
110 INPUT LINE #1%,A$ :GOTO 110
140 PRINT"TO ENTER NEW NAMES AND ADDRESSES, ANSWER THE QUESTIONS"
150 PRINT "NAME:";: INPUT LINE  N$ :IF  LEFT(N$,1%)="0"  THEN 60
160 PRINT "COMPANY";: INPUT LINE I$
170  PRINT "ADDRESS";:  INPUT  LINE  R$
240 PRINT "TOWN";: INPUT LI NE T$
260 PRINT "STATE";: INPUT LINE S$
280 PRINT "ZIP CODE";: INPUT LINE Z$
320 PRINT #1%,N$; :PRINT #1%,I$;: PRINT #1%,R$;
325 PRINT #1%,T$; :PRINT #1%,S$; :PRINT #1%,Z$;
330 PRINT  "ENTER NEW  PERSON" :GOTO 150
350 CLOSE 1% :OPEN F$ AS FILE 1% REM   PRINT LABELS
400 INPUT LINE #1%,A$(X%) FOR X%=1% TO 6%
401 PRINT FOR X%=1% TO 4%
410 A$(X%)=LEFT(A$(X%),LEN(A$(X%))-2%) FOR X%=1% TO 6%
420 INPU T LINE #1%,B$(X%) FOR X%=1% TO 6%
430 B$(X%)=LEFT(B$(X%),LEN(B$(X%))-2%) FOR X%=1% TO 6%
440 PRINT A$(X%);TAB(40%);B$(X%) FOR X%=1% TO 3%
450 PRINT A$(4%);", "A$(5%)" "A$(6%);TAB(40%);
	B$(4%)", "B$(5%)" "B$(6%)
460 GOTO 400
470 PRINT A$(X%) FOR X%=1% TO 3%
480 PRINT A$(4%)", "A$(5%)" "A$(6%)  :PRINT:PRINT:PRINT
	"THERE ARE NO MORE NAMES": GOTO 35
570 PRINT "NAME TO BE DELETED";:
	INPUT LINE N$ :N$=LEFT(N$,LEN(N$)-2%)
575 OPEN "ADDRES.TMP" FOR OUTPUT AS FILE 2%
580 INPUT LINE #1%,A$(X%) FOR X%=1% TO 6%
581 A$(X%)=LEFT(A$(X%),LEN(A$(X%))-2%) FOR X%=1% TO 6%
590 IF A$(1%)=N$ THEN PRINT "" :GOTO 610
600 PRINT #2%,A$(X%)+CHR$(13%)+CHR$(10%); FOR X%=1% TO 6%:
	GOTO 580
610 GOTO 580
620 CLOSE 1%,2% :KILL F$ :NAME"ADDRES.TMP" AS F$ :GOTO 35
1200  IF ERL=110  THEN  RESUME 140
1300 IF ERL=400 THEN PRINT  "THERE  ARE NO MORE NAMES" :RESUME 35
1400 IF ERL=420 THEN RESUME 470
1500 IF ERL=580 THEN RESUME 620
9999  END