RedWine V1.1 Update!

@echo off
:: setting the total amount of IP's to ping.
set tot=255
set count=0
title Red Wine
color 4E
cls
echo.
echo. Welcome to Red Wine.
echo. -------------------------------------------------------------------
echo.
echo. To Begin, please enter the first three sections of the IP,
echo. preceeded with periods
echo. i.e. (192.168.0) without any further information.
echo.
set /p pnum= xxx.xxx.xxx:
cls
echo.
:: BY ZERO FIRE
echo. Welcome to Red Wine.
echo. -------------------------------------------------------------------
echo.
echo. Next, you will need to select a two digit province/state ID
echo.
echo. i.e: NS, ON, OH
echo.
set /p sel= xx:
set linepa="C:\Documents and Settings\%username%\Desktop\list.txt"
set linpa="C:\Documents and Settings\%USERNAME%\Desktop\plog.log"
del %linepa%
del %linpa%
echo +Ping Log++++++++++++++++++++++++++++++++++ > %linpa%
:docstart
ipconfig /renew
cls
set /a count+=1
set bnamb=0Fire
set /a cn=(%count%00/%tot%)
if %cn% LSS 10 (
set cn2=  %cn%
goto pt3
) else (
goto pt2
)
:pt2
if %cn%==100 (
        set cn2=100%
) else (
        set cn2= %cn%
)
:pt3
title %cn2% percent - Red Wine - Pinging: %pnum%.%count%
echo.
echo. Red Wine.                                      %cn2% percent complete
echo. -------------------------------------------------------------------
echo.
if %bnamb%==0Fire (
        goto nxt
) else (
        exit
)
:nxt
echo. Pinging: %pnum%.%count%
echo. >> %linpa%
echo + %pnum%.%count% ++++++++++++++++++++++++++++ >> %linpa%
echo. >> %linpa%
ping -a -l 1 -n 1 %pnum%.%count%  >> %linpa%
IF "%count%" == "%tot%" (
        title Red Wine
        find /I "%sel%" %linpa% > %linepa%
        del %linpa%
        cls
        type %linepa%
        echo.
        echo.Red Wine Completely Successfully.
        echo.
        pause
) else (
        goto docstart
)

:: SAVE ME
:: BY ZERO FIRE