Unitek Miyachi LW250 Operation, Maintenance And Service Manual page 116

APPENDIX B: EXTERNAL COMMUNICATIONS INTERFACE SPECIFICATION
}
If (c == CR)
Gotoxy(x,yc);
}
}
d set1(xc, yc, cnt, t)
-
char xc;
char yc;
char cnt;
char t; /* rs[] top address */
{
char c, x, n, m;
gotoxy(xc,yc);
m = 0;
for (n=0; n < cnt; ){
x=wherex();
c = getch();
If ((c >= '0')&&(c <= '9')){
putch(c);
rs[t+m] = c;
If (n==1){
}
++m;
++n;
++x;
}
if (c == CR)
gotoxy(x,yc);
}
}
/* rs[] display the contents */
dsp rs(t, n)
-
char t; /* top address */
990-605 REV B: May, 1997
++n;
++x;
return;
++n;
++x;
return;
LW250 PULSED Nd: YAG LASER
/* control no. */
B-23