home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
busi
/
bushome.zip
/
MAILIST2.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-10-28
|
16KB
|
366 lines
100 REM MAILING LABEL PROGRAM FOR 'Business Mailing Labels'
200 REM MAILING LABEL PROGRAM FOR 'Business Mailing Labels'
300 REM Created by:
400 REM Alde╛n C!. Olander III <AL>
500 REM WB9YYN
600 REM (312) 671-0441
700 REM
800 REM Modified by: Paul J. Mayer, Jr.
900 REM WB9ZHG
1000 REM (312) 671-3130
1100 REM
1200 REM Modified by: Eugene L. Plantz 4/12/82
1300 REM For the IBM Personal Computer
1400 REM (312) 843-8584
1500 REM
1550 Z$=""
1570 WIDTH 80
1600 CLEAR 10000
1700 KEY OFF:SCREEN 0,0
1730 KEY 1,"GETPUT":KEY(1) ON:ON KEY(1) GOSUB 19400
1735 KEY 2," Add ":KEY(2) ON:ON KEY(2) GOSUB 4500
1740 KEY 3,"Delete":KEY(3) ON:ON KEY(3) GOSUB 6400
1745 KEY 4,"PrintL":KEY(4) ON:ON KEY(4) GOSUB 9800
1750 KEY 5,"Search":KEY(5) ON:ON KEY(5) GOSUB 13700
1755 KEY 6,"Finish":KEY(6) ON:ON KEY(6) GOSUB 17700
1760 KEY 7,"------":KEY(7) ON:ON KEY(7) GOSUB 23600
1765 KEY 8,"Alpha ":KEY(8) ON:ON KEY(8) GOSUB 23800
1770 KEY 9,"Change":KEY(9) ON:ON KEY(9) GOSUB 25900
1775 KEY 10,"Roster":KEY(10) ON:ON KEY(10) GOSUB 32100
1790 KEY ON:DEF SEG:POKE 106,0
1800 DIM A$(250),A1$(250),A2$(250),A3$(250),A4$(250),A5$(250),A6$(250),A7$(250)
1900 ' ON ERROR GOTO 2000
2000 CLS:COLOR 8,7
2100 PRINT " This program is self prompting and will ask for your"
2200 PRINT " instructions. The following options are available:"
2300 PRINT:COLOR 7,0
2400 PRINT "F1 - PUT OR GET LIST TO/FROM DISK"
2500 PRINT "F2 - ADD NEW NAMES TO THE LIST"
2600 PRINT "F3 - DELETE NAMES FROM THE LIST"
2700 PRINT "F4 - PRINT LABELS"
2800 PRINT "F5 - SEARCH BY LAST NAME, CITY, OR STATE AND PRINT"
2900 PRINT "F6 - FINISH"
3000 PRINT "F7 - EXCHANGE DATA DISK IN EITHER DRIVE (CLOSES FILES)"
3100 PRINT "F8 - ALPHABETIZE YOUR DATA LIST ON DISK"
3200 PRINT "F9 - CORRECT INFORMATION IN DATA FILE"
3300 PRINT "F10- PRINT ROSTER OF NAMES AND OTHER INFORMATION"
3400 FOR I=1 TO 4:PRINT :NEXT I
3450 IF Z$="" GOTO 3450
3500 ' INPUT "WHICH OPTION DO YOU WANT? (0,1,2,3,4,5,6,7,8 OR 9) - ";N1
3600 ' ON N1 GOSUB 4500,6400,9800,13700
3700 ' IF N1=0 THEN GOSUB 19400
3800 ' IF N1=5 THEN GOTO 17700
3900 ' IF N1=6 THEN GOSUB 23600
4000 ' IF N1=7 THEN GOSUB 23800
4100 ' IF N1=8 THEN GOSUB 25900
4200 ' IF N1=9 THEN GOSUB 32100
4300 ' IF N1 >= 9 THEN COLOR 26,0:PRINT "WRONG NUMBER - TRY AGAIN!!":COLOR 7,0:PRINT :GOTO 3500
4400 GOTO 2000
4500 CLS:COLOR 8,7
4600 PRINT "TO STOP INPUT TYPE 'NONE' FOR LAST NAME "
4700 PRINT
4800 PRINT:COLOR 7,0
4900 R=R+1
5000 REM
5100 PRINT TAB(5);R;" ";:LINE INPUT "LAST NAME ? ";A$(R)
5200 IF A$(R)="NONE" OR A$(R)="none" THEN R=R-1:RETURN 2000
5300 PRINT TAB(5);R;" ";:LINE INPUT "FIRST NAME, MIDDLE INITIAL? ";A2$(R)
5400 PRINT TAB(5);R;" ";:LINE INPUT "STREET ADDRESS? ";A1$(R)
5500 PRINT TAB(5);R;" ";:LINE INPUT "CITY? ";A3$(R)
5600 PRINT TAB(5);R;" ";:LINE INPUT "STATE? ";A4$(R)
5700 PRINT TAB(5);R;" ";:LINE INPUT "ZIP CODE? ";A5$(R)
5800 PRINT TAB(5);R;" ";:LINE INPUT "HOME PHONE? ";A6$(R)
5900 PRINT TAB(5);R;" ";:LINE INPUT "BUSINESS PHONE? ";A7$(R)
6000 PRINT:LINE INPUT" IS THIS INFO CORRECT? (Y OR N) ";B$
6100 IF B$="N" OR B$="n" THEN GOSUB 25800:GOTO 5000
6200 FOR I=1 TO 4:PRINT :NEXT I
6300 GOTO 4600
6400 CLS:COLOR 8,7
6500 PRINT " This is the DELETE part of the program. You may "
6600 PRINT " locate the desired line by agency name or city. THINK"
6700 PRINT " before using as once DELETED the information "
6800 PRINT " IT CANNOT BE RECOVERED!!!! "
6900 COLOR 7,0
7000 FOR I=1 TO 4:PRINT :NEXT I
7100 PRINT " 0 - RETURN TO MAIN PROGRAM"
7200 PRINT " 1 - LOCATE INFORMATION FOR DELETE BY LAST NAME"
7300 PRINT " 2 - LOCATE INFORMATION FOR DELETE BY CITY"
7400 FOR I=1 TO 4:PRINT :NEXT I
7500 LINE INPUT "WHICH OPTION DO YOU WANT? (0,1, OR 2) <0> ";N1$
7600 IF N1$="" OR N1$="0" THEN RETURN 2000
7700 IF N1$="1" OR N1$="2" THEN GOSUB 15400
7800 IF N1$="1" OR N1$="2" THEN GOTO 8000
7900 GOTO 7000
8000 PRINT :LINE INPUT "DO YOU WANT TO DELETE THIS INFORMATION? ";N$
8100 IF LEFT$(N$,1)="Y" OR LEFT$(N$,1)="y" THEN GOSUB 8300
8200 GOTO 7000
8300 FOR I=1 TO 4:PRINT :NEXT I:COLOR 8,7
8400 PRINT "WHEN YOU ENTER THE NUMBER THINK BEFORE HITTING RETURN!!"
8500 PRINT "IF YOU HAVE CHANGED YOUR MIND THEN ENTER A '0' "
8600 COLOR 7,0
8700 INPUT "WHAT IS THE NUMBER OF THE RECORD TO BE DELETED? ";X
8800 IF X=0 THEN A$="":RETURN
8900 '
9000 COLOR 26,0:PRINT " HOLD TIGHT! I'M WORKING ON YOUR DATA - BE PATIENT ":COLOR 7,0
9100 A$(X)="":A1$(X)="":A2$(X)="":A3$(X)="":A4$(X)="":A5$(X)=""
9200 A6$(X)="":A7$(X)=""
9300 FOR D= X TO R
9400 A$(D)=A$(D+1):A1$(D)=A1$(D+1):A2$(D)=A2$(D+1):A3$(D)=A3$(D+1)
9500 A4$(D)=A4$(D+1):A5$(D)=A5$(D+1):A6$(D)=A6$(D+1):A7$(D)=A7$(D+1)
9600 NEXT D
9700 R=R-1:RETURN
9800 PRINT :PRINT :PRINT :PRINT :PRINT
9900 PRINT " 0 - RETURN TO MAIN PROGRAM"
10000 PRINT " 1 - TYPE ALL LABELS IN FILE"
10100 PRINT " 2 - TYPE LABELS FOR xxxxx ZIP CODE"
10200 FOR I=1 TO 4:PRINT :NEXT I
10300 LINE INPUT " WHICH OPTION DO YOU WANT? (0,1, OR 2) <0> ";P$
10400 IF P$="" OR P$="0" THEN PRINT :PRINT :PRINT :PRINT :PRINT :RETURN 2000
10500 IF P$="1" THEN 10900
10600 IF P$="2" THEN 12000
10700 COLOR 26,0:PRINT " THAT'S NOT A VALID CHOICE ! TRY AGAIN..":COLOR 7,0
10800 FOR I=1 TO 4:PRINT :NEXT I:GOTO 9900
10900 FOR I=1 TO 4:PRINT :NEXT I
11000 INPUT " WHAT IS THE NUMBER OF LINES YOU WANT BETWEEN LABELS? ";L
11100 GOSUB 13200
11200 FOR I=1 TO R
11300 PRINT #2," ";A2$(I);" ";A$(I)
11400 PRINT #2," ";A1$(I)
11500 PRINT #2," ";A3$(I);", ";A4$(I);" ";A5$(I)
11600 FOR J=1 TO L:PRINT #2,:NEXT J
11700 NEXT I
11800 CLOSE #2
11900 GOTO 9900
12000 FOR I=1 TO 4:PRINT :NEXT I
12100 INPUT " WHAT IS THE NUMBER OF LINES YOU WANT BETWEEN LABELS? ";L
12200 LINE INPUT "WHAT IS THE ZIP FOR YOUR LABELS? ";B$
12300 GOSUB 13200
12400 FOR I=1 TO R
12500 IF B$=A5$(I) THEN PRINT #2," ";A2$(I);" ";A$(I)
12600 IF B$=A5$(I) THEN PRINT #2," ";A1$(I)
12700 IF B$=A5$(I) THEN PRINT #2," ";A3$(I);", ";A4$(I);" ";A5$(I)
12800 IF B$=A5$(I) THEN FOR J=1 TO L:PRINT #2,:NEXT J
12900 NEXT I
13000 CLOSE #2
13100 GOTO 9900
13200 PRINT :PRINT :PRINT :PRINT :PRINT
13300 LINE INPUT " Output to SCREEN or PRINTER ? (S or P) <S> ";S$
13400 IF LEFT$(S$,1)="P" THEN OPEN "O",#2,"LPt1:":RETURN
13500 IF LEFT$(S$,1)="p" THEN OPEN "O",#2,"LPt1:":RETURN
13600 OPEN "O",#2,"scrn:":RETURN
13700 CLS:COLOR 8,7
13800 PRINT " This is the search and find option. "
13900 PRINT " You may locate a specific LAST NAME, CITY,"
14000 PRINT " or all those listed under a STATE. ":COLOR 7,0
14100 PRINT
14200 PRINT
14300 PRINT " 0 - RETURN TO MAIN PROGRAM"
14400 PRINT " 1 - LOCATE BY LAST NAME"
14500 PRINT " 2 - LOCATE BY CITY"
14600 PRINT " 3 - LOCATE ALL IN STATE"
14700 FOR I=1 TO 4:PRINT :NEXT I
14800 LINE INPUT "WHICH OPTION DO YOU WANT? (0,1,2 OR 3) <0> ";N1$
14900 IF N1$="" OR N1$="0" THEN PRINT :PRINT :PRINT :PRINT :PRINT :RETURN 2000
15000 IF N1$="1" THEN GOSUB 15400
15100 IF N1$="2" THEN GOSUB 15400
15200 IF N1$="3" THEN GOSUB 15400
15300 GOTO 14100
15400 CLS
15500 IF N1$="1" THEN PRINT "WHAT IS THE LAST NAME YOU ARE LOOKING FOR? ";
15600 IF N1$="2" THEN PRINT "WHAT IS THE CITY? ";
15700 IF N1$="3" THEN PRINT "WHAT IS THE STATE? ";
15800 LINE INPUT B$
15900 FOR I = 1 TO 4:PRINT :NEXT I
16000 X=1
16100 FOR I = 1 TO R
16200 IF B$=A$(I) THEN 16900
16300 IF B$=A3$(I) THEN 16900
16400 IF B$=A4$(I) THEN 16900
16500 X=X+1
16600 NEXT I
16700 IF X = I THEN COLOR 8,7:PRINT " NOT ON THIS LIST ":COLOR 7,0 ':GOTO 4170
16800 FOR I=1 TO 2000:NEXT I:RETURN
16900 PRINT
17000 PRINT I;" ";A2$(I);" ";A$(I)
17100 PRINT A1$(I)
17200 PRINT A3$(I);", ";A4$(I);" ";A5$(I)
17300 PRINT A6$(I);" ";A7$(I)
17400 FOR P=1 TO 300:NEXT P
17500 PRINT
17600 GOTO 16600
17700 '
17800 PRINT
17900 FOR I=1 TO 4:PRINT :NEXT I:COLOR 8,7
18000 PRINT "REMEMBER, if you exit the program without saving ";:COLOR 7,0:PRINT" ":COLOR 8,7
18100 PRINT "your new data the disk file is the same as it was";:COLOR 7,0:PRINT" ":COLOR 8,7
18200 PRINT "when you started! If you made CHANGES you must ";:COLOR 7,0:PRINT" ":COLOR 8,7
18300 PRINT "SAVE THE NEW DATA!!!! ";:COLOR 7,0:PRINT" "
18400 COLOR 7,0:PRINT " HAVE YOU SAVED YOUR NEW DATA TO YOUR DISK FILE? "
18500 LINE INPUT " <YES OR NO> ? ";N$
18600 IF LEFT$(N$,1)="N" OR LEFT$(N$,1)="n" THEN E=1:GOSUB 19400:GOTO 18800
18700 IF LEFT$(N$,1)<>"Y" AND LEFT$(N$,1)<>"y" THEN GOTO 17700
18800 CLOSE #1
18900 CLOSE #2
19000 COLOR 8,7:PRINT :PRINT :PRINT " IF YOU GOOFED AND DID NOT SAVE YOUR DATA YOU MAY RESTART THE PROGRAM"
19100 PRINT " BY TYPING 'GOTO 2000' <CR> THEN 'CONTINUE' <CR> AND THE PROGRAM"
19200 PRINT " WILL RESTART WITH YOUR DATA INTACT!!!":COLOR 26,0:PRINT:COLOR 7,0
19300 END
19400 CLS
19410 E=0
19500 C$=CHR$(34)
19600 PRINT " 0 - RETURN TO MAIN PROGRAM"
19700 PRINT " 1 - GET LIST FROM DISK FILE"
19800 PRINT " 2 - PUT LIST ON DISK":PRINT
19900 COLOR 8,7
20000 PRINT " NOTE: If you PUT your files to the disk and have"
20100 PRINT " not previously gotten all info from the disk you"
20200 PRINT " will save only the info in the computer and will"
20300 PRINT " ERASE your disk file.......THINK FIRST. ":PRINT:COLOR 7,0
20400 LINE INPUT " WHICH OPTION DO YOU WANT? (0,1, OR 2) <0> ";N$
20500 IF N$="" OR N$="0" THEN IF E=1 THEN RETURN 18800 ELSE RETURN 2000
20600 IF N$="1" THEN GOSUB 23200
20700 IF N$="2" THEN GOSUB 23200
20800 IF N$="1" THEN 21100
20900 IF N$="2" THEN 22200
21000 PRINT :PRINT :PRINT :GOTO 19600
21100 '
21200 COLOR 26,0:PRINT TAB(10);" HOLD ON WHILE I GET YOUR DATA ! ":COLOR 7,0
21300 ON ERROR GOTO 23710
21400 OPEN "I",#1,D$
21450 ON ERROR GOTO 2000
21500 INPUT #1,R
21600 FOR I=1 TO R
21700 INPUT #1,A$(I),A1$(I),A2$(I),A3$(I),A4$(I),A5$(I),A6$(I),A7$(I)
21800 NEXT I
21900 CLOSE #1
22000 FOR X=1 TO 8:PRINT:NEXT X
22100 IF E=1 THEN RETURN 18800 ELSE RETURN 2000
22200 '
22300 COLOR 26,0:PRINT TAB(10);" HOLD ON I'M PUTTING YOUR DATA AWAY ":COLOR 7,0
22400 '
22500 OPEN "O",#1,D$
22600 PRINT #1,R
22700 FOR I=1 TO R
22800 PRINT #1,C$;A$(I);C$;",";C$;A1$(I);C$;",";C$;A2$(I);C$;",";C$;A3$(I);C$;",";C$;A4$(I);C$;",";C$;A5$(I);C$;",";C$;A6$(I);C$;",";C$;A7$(I);C$
22900 NEXT I
23000 CLOSE #1
23100 IF E=1 THEN RETURN 18800 ELSE RETURN 2000
23200 PRINT:PRINT:
23300 LINE INPUT " WHAT IS THE NAME OF YOUR DATA FILE? <ie MAIL.DAT> ";D$
23400 IF D$="" THEN LET D$="MAIL.DAT"
23500 RETURN
23600 RESET
23700 RETURN 2000
23710 IF ERR=53 THEN PRINT:PRINT:COLOR 26,0:PRINT TAB(20);"Input File Not Found":COLOR 7,0:PRINT:PRINT:RESUME 20400
23800 CLS
23805 COLOR 26,0
23810 PRINT "WARNING:";:COLOR 8,7:PRINT" This section will alphabetize a file read in "
23820 PRINT " from disk. BUT it wipes out any file in memory."
23830 PRINT " Therefore, if you have changed any data in the "
23840 PRINT " file in memory and did not save it, it will be "
23850 PRINT " LOST. To continue, type <CR>, to exit type in "
23860 PRINT " ESC. "
23870 COLOR 7,0
23875 A$=INKEY$:IF LEN(A$)=0 THEN GOTO 23875
23878 IF A$=CHR$(13) THEN RETURN 23890:IF A$=CHR$(27) THEN RETURN 2000
23880 RETURN 2000
23890 CLEAR (15000):DIM A$(200):I%=1
23900 CLS:COLOR 8,7
24050 PRINT "This section of the program will alphabetize your"
24100 PRINT "data file. You will be asked for the file to be "
24200 PRINT "sorted 'eg. MAIL.DAT' and the output file name "
24300 PRINT "which you must give a different name to such as "
24400 PRINT "eg. 'ALPH.DAT'. You must use function 1 to load"
24500 PRINT "the newly sorted file or even the old file. ":COLOR 7,0
24600 PRINT
24700 PRINT
24800 INPUT "SEQ FILE NAME TO BE SORTED.. ";P$
24805 IF P$="" THEN GOTO 1600
24810 INPUT "OUTPUT FILE NAME... ";T$
24812 ON ERROR GOTO 25810
24815 OPEN "I",1,P$
24817 ON ERROR GOTO 2000
24818 OPEN "O",2,T$
25000 IF EOF(1) THEN 25100 ELSE LINE INPUT#1,A$(I%):I%=I%+1:GOTO 25000
25100 I%=I%-1:C%=I%:B%=I%
25200 C%=INT(C%/2):PRINT C%:IF C%=0 THEN 25700 ELSE D%=1:E%=B%-C%
25300 F%=D%
25400 G%=F%+C%:IF A$(F%)<=A$(G%) THEN 25600
25500 SWAP A$(F%),A$(G%):F%=F%-C%:IF F%<1 THEN 25600 ELSE 25400
25600 D%=D%+1:IF D%>E% THEN 25200 ELSE 25300
25700 FOR X%=1 TO I%:PRINT #2,A$(X%):NEXT X%:CLOSE:GOTO 1600
25800 FOR I=1 TO 6:PRINT:NEXT I:RETURN 2000
25810 IF ERR=53 THEN PRINT:PRINT:COLOR 26,0:PRINT TAB(20);"Input File Not Found":COLOR 7,0:RESUME 24600
25900 REM
26000 REM ** CORRECTION ROUTINE **
26100 REM
26200 FOR X=1 TO 6:PRINT:NEXT X
26300 PRINT "YOU CAN SEARCH BY LAST NAME OR CITY"
26400 PRINT "TO FIND ENTRY TO BE CORRECTED.":PRINT :PRINT
26500 PRINT "0 - RETURN TO MAIN MENU"
26600 PRINT "1 - SEARCH BY LAST NAME"
26700 PRINT "2 - SEARCH BY CITY "
26800 PRINT :INPUT "WHICH OPTION DO YOU WANT? <0,1, OR 2> <0> ";N1$
26900 IF N1$="" OR N1$="0" THEN RETURN 2000
27000 IF N1$="1" THEN GOSUB 15400
27100 IF N1$="2" THEN GOSUB 15400
27200 INPUT "WHAT IS THE NUMBER OF THE RECORD TO BE CHANGED? (0 to exit)";X
27300 J=X
27350 IF X=0 THEN RETURN 2000
27400 GOTO 27700
27500 IF N1$=0 THEN RETURN 2000
27600 GOTO 26100
27700 REM MAKE ENTRY CORRECTION
27800 FOR X=1 TO 6:PRINT:NEXT X
27900 COLOR 8,7:PRINT "Make Corrections on your data. If no change hit CR.":COLOR 7,0
28000 PRINT "OLD LAST NAME IS - ";A$(J)
28100 LINE INPUT "NEW LAST NAME - ";H$(J)
28200 IF H$(J)="" THEN H$(J)=A$(J)
28300 PRINT "OLD FIRST NAME AND MIDDLE INITIAL IS - ";A2$(J)
28400 LINE INPUT "NEW FIRST NAME AND MIDDLE INITIAL - ";H2$(J)
28500 IF H2$(J)=""THEN H2$(J)=A2$(J)
28600 PRINT "OLD STREET ADDRESS IS - ";A1$(J)
28700 LINE INPUT "NEW STREET ADDRESS IS - ";H1$(J)
28800 IF H1$(J)="" THEN H1$(J)=A1$(J)
28900 PRINT "OLD CITY - ";A3$(J)
29000 LINE INPUT "NEW CITY - ";H3$(J)
29100 IF H3$(J)="" THEN H3$(J)=A3$(J)
29200 PRINT "OLD STATE - ";A4$(J)
29300 LINE INPUT "NEW STATE - ";H4$(J)
29400 IF H4$(J)="" THEN H4$(J)=A4$(J)
29500 PRINT "OLD ZIP CODE - ";A5$(J)
29600 LINE INPUT "NEW ZIP CODE - ";H5$(J)
29700 IF H5$(J)="" THEN H5$(J)=A5$(J)
29800 PRINT "OLD HOME PHONE - ";A6$(J)
29900 LINE INPUT "NEW HOME PHONE - ";H6$(J)
30000 IF H6$(J)="" THEN H6$(J)=A6$(J)
30100 PRINT "OLD BUSINESS PHONE - ";A7$(J)
30200 LINE INPUT "NEW BUSINESS PHONE -";H7$(J)
30300 IF H7$(J)="" THEN H7$(J)=A7$(J)
30400 FOR X=1 TO 6:PRINT:NEXT X
30500 PRINT TAB(10)H$(J):PRINT TAB(10)H2$(J)
30600 PRINT TAB(10)H1$(J):PRINT TAB(10)H3$(J)
30700 PRINT TAB(10)H4$(J):PRINT TAB(10)H5$(J):PRINT
30800 PRINT TAB(10)H6$(J):PRINT TAB(10)H7$(J) :PRINT
30900 LINE INPUT "IS THIS CORRECT (Y OR N) <Y> ";X2$
31000 FOR X=1 TO 6:PRINT:NEXT X
31100 IF X2$="n" OR X2$="N" THEN 27700
31200 GOSUB 32000
31300 REM STORE NEW DATA
31400 OPEN "O",1,D$
31500 PRINT #1,R
31600 FOR I=1 TO R
31700 PRINT #1,C$;A$(I);C$;",";C$;A1$(I);C$;",";C$;A2$(I);C$;",";C$;A3$(I);C$;",";C$;A4$(I);C$;","C$;A5$(I);C$;",";C$;A6$(I);C$;","C$;A7$(I);C$
31800 NEXT I
31900 CLOSE #1:RETURN 2000
32000 A$(J)=H$(J):A1$(J)=H1$(J):A2$(J)=H2$(J):A3$(J)=H3$(J):A4$(J)=H4$(J):A5$(J)=H5$(J):A6$(J)=H6$(J):A7$(J)=H7$(J):GOTO 26100
32100 PRINT :PRINT :PRINT :PRINT :PRINT
32200 OPEN "O",#2,"lpt1:" ' AT:
32300 WIDTH #2,132
32400 PRINT #2,"=======NAME====================STREET ADDRESS==========CITY==========STATE==========ZIP====HOME PHONE===BUSINESS PHONE=="
32500 FOR I=1 TO R
32600 PRINT #2," ";A$(I);", ";A2$(I);TAB(30);" ";A1$(I);TAB(52);" ";A3$(I);TAB(70);" ";A4$(I);TAB(83);" ";A5$(I);TAB(91);" ";A6$(I);TAB(105);" ";A7$(I)
32700 NEXT I
32800 CLOSE
32900 RETURN 2000
I);TAB(70);" ";A4$(I);TAB(83);" ";A5$(I);TA