Paxar Gold 6037EX Programmer's Manual page 52

/* Calibrate with constant 2" width and paper type */
/* Let function prompt for the stock length */
usStatus = pclCalibrate(0xFFFF, 200, MMS_LOW_ENERGY, 0, 0);
if (usStatus != 0)
{
printf("Calibrate Failed\nError: %u", usStatus);
pclClose();
exit(1);
}
pclClose();
exit(0);
}
/* Calibration callback function to prompt for paper type */
unsigned short far pascal StockTypePrompt
(unsigned short far * lpusPaperType)
{
short sCols, sPages, sKey;
for (;;)
{
vidSetMode(vidGetState(&sCols, &sPages));
printf("Enter Stock Type\n(0-2):\n");
sKey = _getch();
if (sKey == 0)
_getch();
else if (sKey >= '0' && sKey <= '2')
break;
}
*lpusPaperType = (unsigned short) sKey;
return(0);
}
4-16 Programmer's Manual
// loop doing ...
// clear screen
// display prompt
// get key
// if extended key
// clear it out
// if valid type
// stop prompting
// save the setting
// return success