5 ! MAIL - BUILD MAILER ADDRESSES 10 ! WRITTEN BY R. BRANTON JULY 2,1974 100 OPEN "**MASTER" AS FILE 1 : DIM# 1 ,M%(100) 110 OPEN "**MAILER" AS FILE 2 : DIM# 2 ,M$( 1111 )=32 120 OPEN "**SWITCH" AS FILE 3 : DIM# 3 ,S%( 1111 ) 130 OPEN "**STINF" AS FILE 4 : DIM# 4 ,S$( 1111 )=32 140 OPEN "**STUDF" AS FILE 5 : DIM# 5 ,L%( 1111 ,2),S1%( 1111 ,10),N( 1111 ) 200 INPUT "WILL YOU BE ENTERING DP#'S";A$ 210 A1%=0% : IF A$="YES" THEN A1%=1% 300 & : & "****" : INPUT "ST# OR 0";I : IF I=0 THEN 32000 310 IF A1%=0% THEN GOSUB 1000 ! GO FIND DP# 320 IF I<0 OR I>M%(2%) THEN & "INVALID STUDENT #" : GOTO 300 330 & LEFT(S$(I),20%);" OK"; : INPUT B$ : IF B$="NO" THEN 300% 340 & : & "**S C S Z" 350 INPUT B$ : M$(I)=LEFT(B$,32) 360 S%(I)=1% ! SET FLAG ADDRESS RECORDED 370 GOTO 300 ! GOT GET NEW ONE 1000 ! ***** SEARCH FOR DP# ***** 1010 FOR J=1 TO M%(2%) 1020 IF I=N(J) THEN I=J : RETURN ! STUDENT # FOUND 1030 NEXT J 1050 I=-1 : RETURN ! FLAG THAT STUDENT # WAS NOT FOUND 32000 CLOSE 1,2,3,4,5 32500 END