5  DIM X$[255]
10  FILES *
12  ASSIGN "BBS01F.A002",1,R,"SYS"
15  READ #1,2
20  IF TYP(1)#3 THEN 30
25  READ #1,REC(1)+1
27  GOTO 20
30  R=REC(1)
32  PRINT R
35  READ #1;X$
40  PRINT X$
50  GOTO 20
60  END 
