10 ! EXAMALL.BAS
80 DIM N$[32]V,R$[56],Y$[2]
100 ER=0 :
	CALL "SPAWNB"("SRD LOG.LST=/SE:*.LOG",ER)
140 OPEN #4,"LOG.LST/RO" : IF END #4 THEN 500 : INPUT LINE #4,N$
160 INPUT LINE #4,N$ : N$=TRM$(SBS$(N$,3,9)) : PRINT N$
180 OPEN #8,N$+".LOG/RN/LN:56/RO"
200 N8=NRC(8) : IF N8<6 THEN 320
220 N7=N8-10 : IF N7<6 THEN N7=6
240 FOR I=N7 TO N8
260  INPUT LINE #8@I,R$
280  PRINT R$
300 NEXT I
320 CLOSE 8
400 GOTO 160
500 CLOSE : EXIT