10 dim a$[56]
15 y=dcen("01-JUL-85")
20 open #3, "AECLVFY.FIX/RO"
30 open #4, "AECLVFY.OUT/WR/FX/LN:56"
50 if end #3 then 200
60 for i=1 to 10 : input line #3, a$ : print #4, a$ : next i
70 input line #3, a$
80 x=dcen(sbs$(a$,1,8)OP)
90 if x<y then 70
100 print #4, a$
110 goto 70
200 close
210 exit