Ms-Dos - Copiar primera Linea de TXT a variable en msdos

@echo off

set Vari=

echo Numero1>Lista.txt

echo Numero2>>Lista.txt

echo Numero3>>Lista.txt

echo Numero4>>Lista.txt

FOR /F          %%a IN (Lista.txt) DO CALL:Proceso  %%a

FOR /F "skip=1" %%a IN (Lista.txt) DO echo.%%a>>Lista.tmp

del Lista.txt

ren Lista.tmp Lista.txt

GOTO:EOF

:Proceso

   if not "%Vari%" == "" GOTO:EOF

   if     "%Vari%" == "" set Vari=%1

   echo %Vari%

   GOTO:EOF