CLS PRINT "This file will take the one line minus comments file and" PRINT "create a character concordance (the words spoken by that character.)" PRINT "Make sure you have Run ONELINER.BAS first and also COMMENTS.BAS" PRINT "To set the format appropriate for this conversion." PRINT "The names are case sensitive, so watch your CAPS." PRINT PRINT "This uses file called SCRIPT.OUT" PRINT "It generates the file .TXT" PRINT PRINT "Which character do you wish to generate concordance for" PRINT "or you can press Enter to use charfile:" INPUT "Or type 'everyone' to create an entire movie vocab file: ", character$ '--------- IF character$ = "everyone" THEN GOTO d IF character$ <> "" THEN GOTO a OPEN "i", 3, "charfile.dat" b: IF NOT EOF(3) THEN INPUT #3, name$: character$ = name$: IF character$ = "" THEN GOTO c a: '--------- PRINT "Generating vocab file for: "; character$ OPEN "i", 1, "script.out" IF LEN(character$) > 8 THEN OPEN "o", 2, LEFT$(character$, 8) + ".txt" ELSE IF character$ <> "" THEN OPEN "o", 2, character$ + ".txt" END IF DO DO IF NOT EOF(1) THEN INPUT #1, word$ LOOP UNTIL EOF(1) OR (LEFT$(word$, LEN(character$)) = character$) AND (RIGHT$(word$, 1) = ":") DO IF NOT EOF(1) THEN INPUT #1, word$ IF RIGHT$(word$, 1) <> ":" THEN PRINT #2, word$ LOOP UNTIL EOF(1) OR RIGHT$(word$, 1) = ":" LOOP UNTIL EOF(1) CLOSE #2 CLOSE #1 IF name$ = "" THEN END IF NOT EOF(3) THEN GOTO b c: CLOSE #3 END d: OPEN "i", 1, "script.out" OPEN "o", 2, "everyone.txt" DO IF NOT EOF(1) THEN INPUT #1, word$ IF RIGHT$(word$, 1) <> ":" THEN PRINT #2, word$ LOOP UNTIL EOF(1) CLOSE #2 CLOSE #1