CLS
OPEN "i", 1, "script.txt"
OPEN "o", 2, "script.dat"
PRINT "This program takes the file a line at a time, and removes spaces and commas"
PRINT "So Basic won't get confused.  One word to a line."
PRINT
PRINT "Processing file SCRIPT.TXT   size: ", LOF(1)
PRINT "Outputting to file SCRIPT.DAT"
DO
letter$ = INPUT$(1, #1)
IF letter$ = "," THEN letter$ = INPUT$(1, #1)
IF letter$ <> " " THEN
IF letter$ <> "," THEN PRINT #2, letter$;
ELSE
DO
letter$ = INPUT$(1, #1)
LOOP UNTIL letter$ <> " "
IF letter$ = ":" THEN PRINT #2, letter$
PRINT #2, CHR$(32)
IF letter$ <> ":" THEN PRINT #2, letter$;
END IF
IF LOF(2) / 1000 = INT(LOF(2) / 1000) THEN PRINT LOF(2); " bytes processed!"
LOOP UNTIL EOF(1)
CLOSE #1