banlist.bas

CLS
INPUT "How many IPs would you like to ban?", ipNum%
DIM ipAdd$(1 TO ipNum%) 'declares arrays
FOR i% = 1 TO ipNum% 'begin loop for entering IPs
INPUT "What IP would you like to banz0r today?!", ipAdd$
NEXT i%
CLS
PRINT "Writing to file!"
PRINT
OPEN "banlist.txt" FOR OUTPUT AS #1
        FOR i% = 1 TO ipNum%
                WRITE #1, deny from ipAdd$(i%)
        NEXT i%
CLOSE #1
END