Update main.prg