110 PRINT "RemoveTab"
120 INPUT "enter name of input file - ";F1$
130 INPUT "enter name of output file - ";F2$
140 OPEN F1$ FOR INPUT AS #1 LEN=512
150 OPEN F2$ FOR OUTPUT AS #2 LEN=512
160 IF EOF(1) THEN END
170 N=(ASC(INPUT$(1,#1)) AND 127)
180 IF N=9 THEN N = 32          ' Replace Tabs with Spaces
190 PRINT #2,CHR$(N);
200 PRINT CHR$(N);
210 GOTO 160