Unitek Miyachi LW250 Operation, Maintenance And Service Manual page 114

APPENDIX B: EXTERNAL COMMUNICATIONS INTERFACE SPECIFICATION
gotoxy(1,13);
cprintf("[CO]:trouble reset [C1]:total.count reset [C2]:good.count reset");
gotoxy(1,15);
cprintf("command type ? ["); clreo();
x = wherex(); y = wherey();
n = 3;
gotoxy(x,y);
rs clr();
-
rs[0] = STX; rs[1] = id[0]; rs[2] = id[1];
while (1){
gotoxy(x,y);
c = getch();
if (c == CTLC)
exit(0);
if (c == CR)
break ;
if (c == BS){
--x;
gotoxy(x,y);
cprintf(" ");
--n;
}
else {
putch(c);
rs[n] = c;
++n;
++x;
}
}
if ((rs[n-1] == 'E') || (rs[n-1] == 'e'))
goto p0;
if ((rs[n-1] == 'X') || (rs[n-1] == 'x')){
sprintf(rs, "%s",bfx);
rs[1] = id[0]; rs[2] = id[1];
goto p3;
}
if ((rs[n-1] == 'Y') || (rs[n-1] == 'y')){
sprintf(rs, "%s",bfy);
rs[1] = id[0]; rs[2] = id[1];
goto p3;
}
if ((rs[n-1] = 'Z') || (rs[n-1] == 'z')){
sprintf(rs,"%s",bfz);
990-605 REV B: May, 1997
-
/* rs[0 0xoff] '0' clear */
LW250 PULSED Nd: YAG LASER
B-21