1 REM VISA.BAS
2 ; CHR$(12)"Med 'VISA.BAS' kan Du l{sa textfiler" : ; "t ex .TXT, .INF, .REM, .DOC"
3 ; "Obs! {ven programfiler .BAS" : ; : ; "F|r printer, anv{nd TV, eller" : ; "TED-editorn."
4 ; : ; "Skriv filnamnet! t ex PROGTAM.INF" : ; : INPUT Z$
5 OPEN Z$ AS FILE 1%
6 ; : ; " Tryck p} mellanslag f|r varje rad !" : ;
7 DIM B$=119%
8 I%=I%+1%
9 ON ERROR GOTO 10 : INPUT LINE #1%B$ : ; B$; : GET C$ : GOTO 8
10 IF ERRCODE=34% THEN ; "Antal rader=";I%-1% ELSE ; "Fel nr";ERRCODE