Program uniepoch;Uses baseunix,crt;beginrepeat clrscr; Write ('Epoch : ',fptime) ; delay(1000);Until keypressedend .