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 
