100 D$ =  CHR$ (4)
 110 F$ = "INPUT.TXT"
 120  PRINT D$"VERIFY"F$
 130  PRINT D$"OPEN"F$
 140  PRINT D$"READ"F$
 150  ONERR  GOTO 210
 160  GET C$
 170  POKE 216,0
 180 S$ = S$ + C$
 190  PRINT
 200  GOTO 140
 210  POKE 216,0
 220 EOF =  PEEK (222) = 5
 230  IF  NOT EOF THEN  RESUME
 240  PRINT D$"CLOSE"F$