Cls
ViewWindow 1,127,0,1,63,0
Lbl 0
Plot A,B
3Ran#->C
C<1=>Goto 1
C>2=>Goto 2
5A->A
5B->B
Goto 0
Lbl 1
5A+32->A
5B+32->B
Goto 0
Lbl 2
5A+64->A
5B->B
Goto 0