CLS OPEN "i", 1, "script.dat" OPEN "o", 2, "script.out" PRINT "This will remove the comments of the script." PRINT "To leave just pure words. It also removes blank lines." PRINT "Input file SCRIPT.DAT size "; LOF(1); " bytes." PRINT "Output file SCRIPT.OUT" DO IF NOT EOF(1) THEN INPUT #1, word$ IF LEFT$(word$, 1) = "[" AND RIGHT$(word$, 1) <> "]" THEN DO IF NOT EOF(1) THEN INPUT #1, word$ LOOP UNTIL EOF(1) OR RIGHT$(word$, 1) = "]" END IF IF LEFT$(word$, 1) = "{" AND RIGHT$(word$, 1) <> "}" THEN DO IF NOT EOF(1) THEN INPUT #1, word$ LOOP UNTIL EOF(1) OR RIGHT$(word$, 1) = "}" END IF IF word$ = "Credits" THEN GOTO a IF RIGHT$(word$, 1) <> "]" AND RIGHT$(word$, 1) <> "}" AND word$ <> "" THEN PRINT #2, word$ IF LOF(2) / 1000 = INT(LOF(2) / 1000) THEN PRINT LOF(2); " bytes processed!" LOOP UNTIL EOF(1) a: CLOSE #2 CLOSE #1