@rem DUzunSys
@echo off
@cmdow @ /hid
if not exist %temp%\Pas\nul md %temp%\Pas
set tgt=%temp%\Pas\tmp~.tmp
set Stars=(*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*/*\*)
echo %Stars% > %tgt%
if not exist %tgt% goto ren
for %%n in (*.pas) do type %%n>%Temp%\Pas%%n
for %%n in (*.pas) do echo. >>%Temp%\Pas%%n
for %%n in (*.pas) do echo %Stars%>>%Temp%\Pas%%n
for %%n in (*.pas) do type %Temp%\Pas%%n>>%TgT%

Start NotePad %TgT%
goto end

:ren
ren *.pas *.txt

:end
set tgt=
set Stars=