Keskustelu: Koodit: QB: Haasta dos typen

1 CLS
INPUT "Anna tiedoston nimi: ", N$
OPEN N$ FOR APPEND AS #1 ' Avaa tiedoston peräkkäis tulostusta varten
CLOSE
OPEN N$ FOR INPUT AS #1  'Määrittää että tiedosto avataan peräkkäis syöttöä varten
CLS
DO
ON ERROR GOTO loppu
INPUT #1, A$
PRINT A$
Q = TIMER
DO: LOOP UNTIL TIMER - Q > .2' hidastus
LOOP
CLOSE

loppu:
SELECT CASE ERR
CASE 62
PRINT "tiedoston luku loppui."
CLOSE
END
END SELECT