Cls
ViewWindow 1,136,0,1,11,0
Lbl 0
C->A
Plot A+73,B+1
Ran#->O
O<01=>Goto 1
O<07=>Goto 4
O<85=>Goto 2
Goto 3
Lbl 1
0->C
168->B
Goto 0
Lbl 2
85A+04B->C
(-)04A+85B+16->B
Goto 0
Lbl 3
2A-26B->C
23A+22B+16->B
Goto 0
Lbl 4
(-)15+28B->C
26A+24B+44->B
Goto 0