MESG(  ENTER Temperature of hot solid (default 800K):
READVDU(THOT,REAL,800.)
MESG(  ENTER Temperature of cold solid (default 400K):
READVDU(TCLD,REAL,400.)
MESG(  ENTER Surface emissivity of hot solid (default 0.3):
READVDU(EMISH,REAL,0.3)
MESG(  ENTER Surface emissivity of cold solid (default 0.1):
READVDU(EMISC,REAL,0.1)