10 ! EXAMONE.BAS
80 DIM N$[32]V,R$[56],Y$[2]
100 INPUT "USER NAME ",N$
120 OPEN #8,N$+".LOG/RN/LN:56/RO"
140 PRINT : PRINT NRC(8);" RECORDS"
160 PRINT :
	INPUT "STARTING RECORD NUMBER ",SR : IF SR=0 THEN 500
240 FOR I=SR TO NRC(8)
260  INPUT LINE #8@I,R$
280  PRINT I,R$
300 NEXT I
320 GOTO 160
500 CLOSE : EXIT