100	! LABL2X -- PRINTS LABELS IN THREE DIFFERENT MODES:
	!	(1) PARENT NAME, ADDR, STUDENT NAME + CY
	!	(2) PARENT NAME AND ADDRESS
	!	(3) STUDENT NAME AND PARENT ADDRESS
120	! SELECTION LINE MAY BE INSERTED:
	! TYPE CSB ASSUMED.
140	! 22-OCT-73	J. WARDEN	WABASH COLLEGE
160 K%=0%
180 N%=2% : N6%=1% : N1%=510%/N%
200 PRINT"LABL2X : ADDRESS LABELS FROM CSB FILE"
205 INPUT"STANDARD LABEL OR 5-LINE FORMAT";P$ :
	P%=ASCII(P$) : IF P%=53% THEN 220 ELSE
	IF P%<>83% THEN 205
210 INPUT"PARENT OR STUDENT NAME TO APPEAR ON LABEL";P$
215	P%=ASCII(P$) : IF P%=80% THEN J1%=126% ELSE
	IF P%=83% THEN J1%=13% ELSE 210
220 INPUT"OUTPUT TO";D6$ : IF D6$="" THEN D6$="KB:"
240 OPEN D6$ FOR OUTPUT AS FILE 2%
250 IF P%=53% THEN J1%=126%
280 ON ERROR GO TO 490
300 INPUT"BIOGRAPHICAL FILE";F$
320 OPEN F$ FOR INPUT AS FILE 1%
330 PRINT : GOSUB 640
340 FIELD #1%,N1%*A% AS Z$, N1% AS A$(A%) FOR A%=0% TO N6%
360 INPUT" SKIP PAST ID# ([R] FOR NOSKIP)";U$
380 IF LEN(U$)<1% THEN 420 ELSE IF LEN(U$)<>6% THEN 360
400 GOSUB 960
420 IF A%<N6% THEN A%=A%+1% ELSE A%=0% : GET #1%
440	IF ASCII(A$(A%))=92% THEN 540
460 GOSUB 760
480 K%=K%+1% : GO TO 420
490 IF ERR=5% AND ERL=320% THEN PRINT
	"CAN'T FIND ";F$ : RESUME 300
500 IF ERR <>11% THEN PRINT
	SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)) :
	PRINT"STOPPED AT ID: ";LEFT(A$(A%),6%) : GO TO 1000
520 RESUME 540
540 PRINT #2%,CHR$(26%)
560 CLOSE 1%,2%
580 PRINT : PRINT K%;" LABELS PRINTED"
600 GO TO 1000
620	! HEADER SUBROUTINE
640 PRINT"HEADER LINE"; : INPUT LINE H1$
660 PRINT#2,LEFT(H1$,LEN(H1$)-2)
680 PRINT#2,DATE$(0)
700 PRINT #2%,CHR$(10%)+CHR$(10%)+CHR$(10%)
720 RETURN
740	! LABEL PRINTING SUBROUTINE
760 D$=MID(A$(A%),182%,28%)
780 E$=MID(A$(A%),210%,14%)+"  "+MID(A$(A%),224%,2%)+
	"  "+MID(A$(A%),226%,5%)
800 PRINT #2%,MID(A$(A%),J1%,28%)
820 PRINT #2%,MID(A$(A%),154%,28%)
840 IF MID(A$(A%),182%,5%)=SPACE$(5%) THEN 880
860 PRINT #2%,D$ : PRINT #2%,E$ : GO TO 900
880 PRINT #2%,E$+CHR$(10%)
900 IF P%=53% THEN PRINT #2%,MID(A$(A%),13%,26%);
	MID(A$(A%),7%,2%)+CHR$(10%) ELSE PRINT #2%, CHR$(10%)
920 RETURN
940	! SKIPPER
960 IF A%<N6% THEN A%=A%+1% ELSE A%=0% : GET #1%
980 IF LEFT(A$(A%),6%)<U$ THEN 960 ELSE RETURN
1000 END