1 ! Program to run thru merged log files, throwing out files before a
2 ! given date Two log files have been concatenated via pip into name.fix
10 dim a$[56],da$[8],na$[9]v
15 input "First date to keep (mm/dd/yy)";da$
16 y=dcen(da$)
17 input "Name (only) of log file ";na$
20 open #3, na$+".FIX/RO"
30 open #4, na$+".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))
90 if x<y then 70
100 print #4, a$
110 goto 70
200 close
210 exit