5 ! PROGRAM TO COPY BIG MASTER FILE TO FRANKS ACCOUNT
10 DIM A$[80]
20 OPEN #3,"[1,1]MASTER.INF/FX/LN:80/RO"
30 OPEN #4,"MASTER.INF/FX/LN:80/WR"
40 IF END #3 THEN 100
50 INPUT LINE #3,A$
60 I=VAL(SBS$(A$,11,1))
70 IF I=2 THEN PRINT #4,A$
90 GOTO 50
100 CLOSE
