Added Prog 1 adopted from JVIT manual