CLS
PRINT "This file gets rid of anything not numeric or alphabetic."
PRINT
PRINT "Enter character or press Enter to use charfile"
INPUT "Or type 'everyone' to process entire movie file: ", name$
IF name$ = "everyone" THEN GOTO d
IF name$ <> "" THEN GOTO a
OPEN "i", 3, "charfile.dat"
b:
IF NOT EOF(3) THEN INPUT #3, char$: name$ = char$: IF name$ = "" THEN GOTO c
a:
OPEN "i", 1, name$ + ".txt"
OPEN "o", 2, name$ + ".out"
PRINT "Processing character: "; name$
DO
letter$ = INPUT$(1, #1)
letter$ = LCASE$(letter$)
IF (letter$ = "'") OR (letter$ >= "0" AND letter$ <= "9") OR (letter$ >= "a" AND letter$ <= "z") THEN PRINT #2, letter$;
IF letter$ = CHR$(13) AND NOT EOF(1) THEN PRINT #2, CHR$(13)
LOOP UNTIL EOF(1)
CLOSE #2
CLOSE #1
IF char$ = "" THEN END
IF NOT EOF(3) THEN GOTO b
c:
CLOSE #3
END
d:
OPEN "i", 1, "everyone.txt"
OPEN "o", 2, "everyone.out"
PRINT "Processing entire movie file."
DO
letter$ = INPUT$(1, #1)
letter$ = LCASE$(letter$)
IF (letter$ = "'") OR (letter$ >= "0" AND letter$ <= "9") OR (letter$ >= "a" AND letter$ <= "z") THEN PRINT #2, letter$;
IF letter$ = CHR$(13) AND NOT EOF(1) THEN PRINT #2, CHR$(13)
LOOP UNTIL EOF(1)
CLOSE #2
CLOSE #1