WRITE all parts of programm except algorithm