mtpatin-> mtpator IPATFL(2)>0 and LEVELOR>0
mtratin IRATEFL>0mtdini
mtinih IUSERFL=<0
readbos
crmtne
crebank
mtdiev->
mteta
mtime
mtclsz
mtphi
mtnoise-> INOISFL>0
mtpatev-> IPATFL(1)>0
fillpat
mtpatev-> IRATFL>0
comppat
mtfillh IUSERFL=<0
ENDIF
mteffen IRATEFL=1,2
mtraten IRATEFL>2mtputh->
histdo
hrput