( DCservoForth_App)
( R.J.Wilks   3rd June 2016)

DECIMAL
( 0 VARIABLE brdno
2 VARIABLE qPi2)        ( NB change to 1 if Pi 1 version!)

CR CR ." Loading: "

FLOAD" GetBoard"          ( B+, Pi2?)
FLOAD" GPIOForth"
FLOAD" DCMotorForth"
FLOAD" SPI3208Forth"
FLOAD" DCservoForth"

CR CR
." Type 'test_servo' to check servo polarity" CR
." If OK, type '<n> pot_servo' where -1500 < n < 1500" CR
." Note:  '?adc' will display current ADC value wrt CENTRE of pot (2048)" CR



