start asign pre 101 i =0
prog_pick is = 2) USPDESI
prog_id-1 is = 0) vacancy

find a match at 102 i =0