CLS
 DIM N AS STRING * 1
 OPEN "INPUT1.TXT" FOR INPUT AS #1
 OPEN "OUTPUT1.TXT" FOR OUTPUT AS #2
    DO WHILE (EOF(1))
        INPUT #1, N$
    LOOP
        WRITE #2, 4
 CLOSE #2
 CLOSE #1
 
SYSTEM