OPEN "inputfilename" FOR INPUT AS FILE #1
OPEN "outputfilename" FOR OUTPUT AS FILE #2
DO UNTIL EOF(1)
INPUT LINE #1, FILESTRING
IF LEN( FILESTRING ) = 0 THEN
PRINT #2
ELSE
PRINT #2, RIGHT( FILESTRING, LEN( FILESTRING ) - 1 )
END IF
LOOP
CLOSE #1
CLOSE #2