10 REM VISA textrader p} sk{rmen
15 REM Program av Gunnar Tidner
20 ; "VISA filnamn:"; : INPUT Z$
30 OPEN Z$ ASFILE 1
40 DIM B$=119%
50 FOR I%=1 TO 10000
60 GET C$
70 ONERRORGOTO 110
80 INPUTLINE #1,B$
90 ; B$;
100 NEXT I%
110 IF ERRCODE=34% THEN ; "Antal=";I%-1 ELSE ; "Fel nr";ERRCODE