Cls
ViewWindow 7,76,0,1,15,0
Lbl 0
C->A
Plot A+73,B+1
Ran#<05=>Goto 1
Ran#<15=>Goto 2
Ran#<4=>Goto 3
42A-42B->C
42A+42B+2->B
Goto 0
Lbl 1
0->C
5B->B
Goto 0
Lbl 2
1A->C
1B+2->B
Goto 0
Lbl 3
42A+42B->C
(-)42A+42B+2->B
Goto 0