10 INPUT "Filename:"; filname$

20 INPUT "Msgs per file:"; num

30 INPUT "File name Prefix:"; prefix$

40 INPUT "File name Suffix:"; suffix$

50 nmsgs = 0

60 filenum = 0

70 outfil$ = prefix$ + RIGHT$("0000" + LTRIM$(STR$(filenum)), 4) + suffix$

80 INFILE = 1

90 OFILE = 2

105 OPEN outfil$ FOR OUTPUT AS #OFILE

110 OPEN filname$ FOR INPUT AS #INFILE

120 WHILE NOT EOF(INFILE)

130        LINE INPUT #INFILE, lin$

140        IF LEN(lin$) >= 5 AND LEFT$(lin$, 5) = "From " THEN

150                nmsgs = nmsgs + 1

160                IF nmsgs > num THEN

170                        filenum = filenum + 1

180                        outfil$ = prefix$ + RIGHT$("0000" + LTRIM$(STR$(filenum)), 4) + suffix$

220                        CLOSE OFILE

240                        OPEN outfil$ FOR OUTPUT AS #OFILE

250                        nmsgs = 0

260                END IF

270        END IF

280        PRINT #OFILE, lin$

290 WEND

300 CLOSE OFILE

310 CLOSE INFILE

320 SYSTEM

330 END