5 ' M6069.BAS - lrb - per ceb idea - 9/5/2009
10 OPEN "I", #1, "NH20K.TXT"
15 OPEN "O", #2, "M6069.OUT"
16 I = 0' counts occurrences
20 ON ERROR GOTO 200
30 LINE INPUT #1, M60$
40 IF INSTR(M60$, "M 60-69") THEN I = I + 1: PRINT #2, I, M60$: PRINT I, M60$
50 GOTO 30
200 CLOSE
210 PRINT : PRINT "Look at the file M6069.OUT"
220 SYSTEM