New Program written with subroutines