10  DIM A$[72]
20  FILES DS,*
30  ASSIGN "ACT01F.A100",2,R, PR 
40  READ #1;A$
50  READ #1;A$
60  IF  END #1 THEN 110
70  READ #1;A$[1,4]
80  PRINT #2;A$[1,4]
90  PRINT A$[1,4]
100  GOTO 60
110  PRINT #1;CTL(24)
120  PRINT #1; END 
130  END 
