Page 210 - The Ultimate Palm Robot

Color profile: Generic CMYK printer profile
Composite Default screen
Bots /The Ultimate Palm Robot/ Mukhar & Johnson / 222880-6 / Chapter 7

Chapter 7 Essential Robot Programming Strategies 193

sersenda(cmd21,6);
sersenda(cmd3255,8);
sleep(2000);

sersenda(cmd11,6);
sersenda(cmd21,6);
sersenda(cmd31,6);
sleep(2000);

sersenda(cmd1128,8);
sersenda(cmd2128,8);
sersenda(cmd3128,8);
}

main() {
int x, y, done, ev, rVal;
string rangeStr;
initCmds();
graph_on();
title("Simple Jig");
clearg();
while(1) {
seropen(9600, "8N1N", 10);
frame(1, 40, 50, 75, 65, 2);
text(43, 52, "Start");
frame(1, 85, 50, 120, 65, 2);
text(88, 52, "Stop");
text(40, 70, "Stopped ");
x = -1;
y = -1;
while(x == -1 && y == -1) {
waitp();
x = penx();
y = peny();
if(x<40 || x>75 || y<50 || y>65) {
x = -1;
y = -1;
}
}
text(40, 70, "Running ");
done = 0;
while(!done) {

P:\010Comp\Bots\880-6\ch07.vp
Monday, May 12, 2003 4:29:28 PM