$ ASSIGN REFORMED.DAT FOR011
$ ASSIGN PERMAG.OUT   FOR020
$ ASSIGN TT FOR006
$ ASSIGN TT FOR005
$ ASSIGN PERMAG.HPP FOR052
$ RUN DRA0:[PFUTZNER.PERMAG]REFORMAT
$ RUN DRA0:[WALTER.CODES]PLOT
$ DELETE REFORMED.DAT;*