Turbo Pa.scal 
Bildschirmtext:~1UPID