LTRIM$ Function Programming Example
 
This example copies a file to a new file, removing all leading and
trailing spaces.
                                ----- Note -----
To run this example, you must supply the name of an existing text file.
                                ----------------
 
CLS                          ' Clear screen
' Get the file names.
INPUT "Enter input file name:", InFile$
INPUT "Enter output file name:", OutFile$
 
OPEN InFile$ FOR INPUT AS #1
OPEN OutFile$ FOR OUTPUT AS #2
 
' Read, trim, and write each line.
DO WHILE NOT EOF(1)
   LINE INPUT #1, LineIn$
   ' Remove leading and trailing blanks.
   LineIn$ = LTRIM$(RTRIM$(LineIn$))
   PRINT #2, LineIn$
LOOP
 
CLOSE #1, #2
 
END