AxesOff
ClrHome
0->B
255->C
Lbl A
ClrHome
Disp "   CALIBRATE"
Disp " UP DN BUTTONS"
Disp "CHANGE FWD SPEED"
Disp "PRESS GO TO TEST"
Disp "BUMPER STOPS BOT
Disp "PRESS ON TO END"
Output(8,1,"UP DN  GO  UP DN")
Output(7,1,C)
Output(7,14,B)
While 1
getKey->K
While K=0
getKey->K
End

If K=11:Goto G
If K=12:Goto H
If K=13:Goto J
If K=14:Goto E
If K=15:Goto F
End
Goto A

Lbl E
B-1->B
Output(7,14,B)
Goto A

Lbl F
B+1->B
Output(7,14,B)
Goto A

Lbl G
C+1->C
Output(7,1,C)
Goto A

Lbl H
C-1->C
Output(7,1,C)
Goto A

Lbl J
Send({421,C})
Get(R)
Send({412,B})
Get(R)
Send({222,200})
Get(R)
Goto A