#include "c:\c\stdio.h"
#define ESC 0x1b
#define CR  0x0d
extern unsigned _rax;
extern char _zerof;
/* look for key */
int key=0;
int key_in()
{
 _rax=0x100; _doint(0x16);

 if (_zerof) {
  return 0;
 } else {
  _rax=0x00; _doint(0x16);
  if (_rax&0x00ff)  key=_rax&0x00ff;
  else  key=(_rax>>8)|0x100;
  return 1;
 }
}
htoi(p)
char *p;
{
 int i=0;

 p++;
 while (*p!=0) {
  i<<=4;
  if (*p>'9') i|=(*p-7)&0x0f;
  else i|=*p&0x0f;
  p++;
 }
 return i;
}

put5d(i)
unsigned i;
{
 char nu=1;
 unsigned t;

 if (i>9999) {
  t=i/10000;
  i-=t*10000;
  putchar(t|'0');
  nu=0;
 } else putchar(' ');

 if (i>999) {
  t=i/1000;
  i-=t*1000;
  putchar(t|'0');
  nu=0;
 } else {
  if (nu) putchar(' ');
  else    putchar('0');
 }

 if (i>99) {
  t=i/100;
  i-=t*100;
  putchar(t|'0');
  nu=0;
 } else {
  if (nu) putchar(' ');
  else    putchar('0');
 }

 if (i>9) {
  t=i/10;
  i-=t*10;
  putchar(t|'0');
  nu=0;
 } else {
  if (nu) putchar(' ');
  else    putchar('0');
 }

 putchar(i|'0');
}

put4h(i)
int i;
{
 put2h(i>>8);
 put2h(i);
}

put2h(i)
int i;
{
 put1h(i>>4);
 put1h(i);
}

put1h(i)
int i;
{
 if ((i&0x0f)>9)
  putchar((i&0x0f)+0x37);
 else
  putchar((i&0x0f)+0x30);
}