10 ! SEXAMINE.BAS
80 DIM N$[32]V,R$[52],Y$[2]
100 ER=0 :
	CALL "SPAWNB"("SRD STO.LST=/SE:*.STO",ER)
140 OPEN #4,"STO.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$+".STO/RN/LN:52/RO"
200 N8=NRC(8) : IF N8<1 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