10 ; "VISA filnamn:"; : INPUT Z$ 20 OPEN Z$ ASFILE 1 30 DIM B$=119% 40 FOR I%=1 TO 1000 50 GET C$ 60 ONERRORGOTO 100 70 INPUTLINE #1,B$ 80 ; B$; 90 NEXT I% 100 IF ERRCODE=34% THEN ; "Antal=";I%-1 ELSE ; "Fel nr";ERRCODE