10  FILES ACATT
20  DIM B$[6]
23  DIM C$[15]
30  DIM A$[120]
40  IF  END #1 THEN 160
50  READ #1;A$
60  IF A$[1,4]="NAME" THEN 30
70  FOR T=1 TO 49 STEP 24
80  B$[1,6]=A$[T,T+6]
90  IF B$[1,4] <> "ROFM" THEN 130
125  PURGE R,B$
130  NEXT T
150  GOTO 30
160  STOP 
170  END 
1309  GOTO 130
9999  END 
