b$ = COMMAND$
ask = 0
IF b$ = "" THEN INPUT "File: ", b$: ask = -1: IF b$ = "" THEN END
''''''''''''''''''''''''''''''''''''''''''
ON ERROR GOTO nf1
''''''''''''''''''''''''''''''''''''''''''
OPEN b$ FOR INPUT AS #1
n = 0: nr = 0
DO
nr = nr + 1
LINE INPUT #1, a$

DO

a$ = LTRIM$(RTRIM$(a$))
l = LEN(a$)
p = INSTR(a$, CHR$(32))
IF a$ = "" THEN EXIT DO
n = n + 1
IF p = 0 THEN EXIT DO

a$ = RIGHT$(a$, l - p + 1)
LOOP

LOOP UNTIL EOF(1)
IF ask THEN
  PRINT "Linee/parole/dimensione:"; nr; n; LOF(1)
ELSE
  PRINT nr; n; LOF(1); b$
END IF

END

''''''''''''''''''''''''''''''''''''''''''

nf1:
PRINT "Fatal error (file not found or similar)."
END
RETURN