echo off
t2cp1 %1.pas %1.p2
if errorlevel 1 goto exit
t2cp2 %1.p2 %1.c
:exit