10  FILES 
15  IF  END #1 THEN 190
20  LET H=L=0
30  DIM A$[255],K$[80]
40  LET R=1
50  LINPUT K$
60  FOR Q=1 TO LEN(K$)-1
70  IF K$[Q,Q+1]="XX" THEN 100
80  NEXT Q
90  GOTO 50
100  GOTO TYP(-1) OF 110,150,210,210
110  READ #1;A
120  LET H=H+1
130  PRINT "YW";A
140  GOTO 50
150  READ #1;A$
160  LET L=L+LEN(A$)
170  PRINT "YX";A$
180  GOTO 50
190  PRINT "YY";H;L;R
200  STOP 
210  PRINT "YZ"
220  LET R=R+1
230  READ #1,R
240  GOTO 50
250  END 
