DEV_CON
if (Bconstat(DEV_CON) == 0)
k.d0 = Bconin(DEV_CON);
key.d0 = Bconin(DEV_CON);
Bconout(DEV_CON, 'H');
Bconout(DEV_CON, 'A');
Bconout(DEV_CON, 'I');
Bconout(DEV_CON, 'K');
Bconout(DEV_CON, 'U');
Bconout(DEV_CON, '\n');