1 REM VISA.BAS
2 ; CHR$(12)"Med 'VISA.BAS' kan Du l{sa textfiler" : ; "t ex .TXT, .INF, .REM, .DOC"
6 ; "Obs! {ven programfiler .BAS" : ; : ; "F|r printer, anv{nd TV, eller" : ; "VDO ediotorn."
20 ; : ; "Skriv filnamnet! t ex PROGTAM.INF" : ; : INPUT Z$
30 OPEN Z$ ASFILE 1%
40 ; : ; " Tryck p} mellanslag f|r varje rad !" : ; 
50 DIM B$=119%
60 FOR I%=1% TO 1000%
70 ONERRORGOTO 80 : INPUTLINE #1%B$ : ; B$; : GET C$ : NEXT I%
80 IF ERRCODE=34% THEN ; "Antal rader=";I%-1% ELSE ; "Fel nr";ERRCODE