100	! SELEX2 - SELECTS STUDENT'S NAME, PARENT'S ADDRESS
120	! AND WRITES COMPOSITE RECORD INTO STANDARD
	! ADDRESS FORMAT (FOR MAILINGS TO STUDENTS AT HOME)
140	! 22-OCT-73	J. WARDEN	WABASH COLLEGE
160 H$="\\\\\\"+SPACE$(119%)+CHR$(13%)+CHR$(10%)
180 C9$=CHR$(13%)+CHR$(10%)
200 PRINT"SELEX2: STU NAME+PAR ADDR -> OUTPUT FILE"
220 N%=2% : N6%=1% : N1%=510%/N%
240 INPUT"OUTPUT TO";O$
260	IF O$="LP:" THEN PRINT"OUTPUT TO FILE ONLY!" : GO TO 240
280 OPEN O$ FOR OUTPUT AS FILE 2%
300 FIELD #2%,127%*B% AS Z$, 127% AS B$(B%) FOR B%=0% TO 3%
320 B%,K%=0%
340 ON ERROR GO TO 580 
360 INPUT"BIOGRAPHICAL FILE";F$
380 OPEN F$ FOR INPUT AS FILE 1%
400 FIELD #1%,N1%*A% AS Z$, N1% AS A$(A%) FOR A%=0% TO N6%
420 IF A%<N6% THEN A%=A%+1% ELSE A%=0% : GET #1%
440	IF ASCII(A$(A%))=92% THEN 620
460	! INSERT SPECIAL SELECT ROUTINES HERE
	! - - - - - - - - - - - - - - - - - -
480	! END OF SELECT ROUTINES
500 LSET B$(B%)=LEFT(A$(A%),40%)+MID(A$(A%),154%,77%)+
	SPACE$(8%)+C9$
520 IF B%<3% THEN B%=B%+1% ELSE B%=0% : PUT #2%
540 K%=K%+1% : GO TO 420
560  	! END-OF-FILE ROUTINE
580 IF ERR<>11% THEN ON ERROR GO TO 0 ELSE RESUME 600
600 PRINT"END OF FILE REACHED"
620 LSET B$(H%)=H$ FOR H%=B% TO 3%
640 PRINT:PRINT K%;"RECORDS WRITTEN"
660 PUT #2% : CLOSE 1%,2%,3%
680 END