Page 201 - The Ultimate Palm Robot

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

184 The Ultimate Palm Robot

Right-click on the Modules folder in the Project Explorer and select Add
New Module from the popup menu. Add the code shown in the next listing to
the code module. You may need to edit the code so that it refers the correct ob-
jects for your project.

Global range as Integer
Global sv1 as String
Global sv2 as String
Global sv3 as String
Global done as Integer

Sub LoopMethod()
done = 0
Do while done <> 1
Call ReadRange()
If range > 55
Call DoJig()
End If
Delay 1
If SysEventAvailable()=1 Then
done = 1
End If
Loop
Return

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