1 REM *** HP BASIC PROGRAM LIBRARY ****************************** 2 REM 3 REM ADDRES: ADDRESS LABELS 4 REM 5 REM 36231 REV A 6 REM 7 REM *** CONTRIBUTED PROGRAM *********************************** 8 REM 9 REM 10 PRINT "**** ADDRES PRINTS ADDRESSES ON LABELS*****" 20 PRINT '10'10'10'10'10"TYPE 0 (ZERO) TO TERMINATE A QUESTION" 30 PRINT '10'10 40 FILES ACOMPF,DUMMY 50 DIM U$[9] 60 PRINT "RESTART-0,NEW ADDRESS-1,PRINT OUT ADDRESSES-2,ERASE ADDRESS-3" 70 READ #1,1 80 INPUT L5 90 GOTO L5 OF 110,350,570 100 STOP 110 IF END #1 THEN 140 120 READ #1;A$ 130 GOTO 110 140 PRINT "TO ENTER NEW NAMES AND ADDRESSES, ANSWER THE QUESTIONS" 150 PRINT "NAME"; 160 INPUT N$ 170 IF N$#"0" THEN 200 180 PRINT #1; END 190 GOTO 60 200 PRINT "COMPANY"; 210 INPUT I$ 220 PRINT "ADDRESS"; 230 INPUT R$ 240 PRINT "TOWN"; 250 INPUT T$ 260 PRINT "STATE"; 270 INPUT S$ 280 PRINT "ZIP CODE"; 290 INPUT Z$ 300 DIM A$[72],B$[72],C$[72],D$[72],E$[72],F$[72],I$[72],N$[72] 310 DIM L$[72],R$[72],S$[72],T$[72],Y$[72],Z$[72] 320 PRINT #1;N$,I$,R$,T$,S$,Z$ 330 PRINT "ENTER NEW PERSON" 340 GOTO 150 350 REM: LABEL PRINTOUT 360 RESTORE 380 READ #1,1 390 IF END #1 THEN 520 400 READ #1;N$,I$,R$,T$,S$,Z$ 410 IF END #1 THEN 550 420 READ #1;A$,F$,B$,C$,D$,E$ 430 I=F=R=B=0 440 C=2 450 W=40 460 PRINT N$;TAB(W);A$ 470 PRINT I$;TAB(W);F$ 480 PRINT R$;TAB(W);B$ 490 PRINT T$;", ";S$;" ";Z$;TAB(W);C$;", ";D$;" ";E$ 500 PRINT '10 510 GOTO 390 520 PRINT "THERE ARE NO MORE NAMES" 530 GOTO 60 540 DATA " "," "," "," "," "," " 550 READ A$,B$,C$,D$,E$,F$ 560 GOTO 430 570 PRINT "TYPE THE NAME OF THE PERSON YOU WANT TO ERASE"; 580 READ #1,1 590 C=0 600 INPUT L$ 610 IF L$="0" THEN 60 620 READ #1,1 630 IF END #1 THEN 730 640 C=C+1 650 READ #1;N$,I$,R$,T$,S$,Z$ 660 IF N$=L$ THEN 750 670 FOR I=1 TO LEN(N$) 680 IF N$[I,I]=" " THEN 710 690 NEXT I 700 GOTO 630 710 IF N$[I+1,LEN(N$)]=L$[1,LEN(N$)-I] THEN 750 720 GOTO 690 730 PRINT "THERE IS NO SUCH NAME" 740 GOTO 570 750 PRINT "DO YOU WANT TO ERASE ";N$;" ";I$;" ";R$;" ";T$;" ";S$;" ";Z$ 760 INPUT U$ 770 IF U$="YES" THEN 790 780 GOTO 690 790 READ #1,1 800 PRINT #2,1 810 FOR I=1 TO C-1 820 GOSUB 880 830 NEXT I 840 READ #1;A$,F$,B$,C$,D$,E$ 850 IF END #1 THEN 910 860 GOSUB 880 870 GOTO 850 880 READ #1;N$,I$,R$,T$,S$,Z$ 890 PRINT #2;N$,I$,R$,T$,S$,Z$ 900 RETURN 910 PRINT #2; END 920 READ #1,1 930 READ #2,1 940 IF END #2 THEN 990 950 READ #2;A$,F$,B$,C$,D$,E$ 960 IF A$=F$ THEN 570 970 PRINT #1;A$,F$,B$,C$,D$,E$ 980 GOTO 940 990 PRINT #1; END 1000 GOTO 570 1010 END