button($mw, 'Enter', [\&entersub],    197,      155);
          button($mw, '+',     [\&somasub],     353,      170);
          button($mw, '-',     [\&subtrasub],   353,      140);
          button($mw, 'x',     [\&multisub],    353,      110);
          button($mw, '/',     [\&divisub],     353,      80);
          button($mw, 'CLx',   [\&CLxsub],      133,      140);
          button($mw, 'xsy',   [\&xsysub],      100,      140);
          button($mw, 'Rs',    [\&Rssub],       66,       140);
          button($mw, 'SST',   [\&Rssub],       33,       140);
          button($mw, 'R/S',   [\&Rssub],       $xxx,     140);
          button($mw, 'RCL',   sub{$rcl = 's'}, $xxx+133, 140);
          button($mw, 'STO',   sub{$sto = 's'}, $xxx+100, 170);
          button($mw, 'g',     0,               $xxx+66,  170,  0, 'db');
          button($mw, 'f',     0,               $xxx+33,  170,  0, 'dg');
          button($mw, 'OFF',   sub{exit},       $xxx,     170);