0->A~Z
1->C
1->B
Locate 1, 1, "TRIES:"
Locate 1, 3, "PI:"
Lbl 1
(4B^2 ) / (4(B^2 ) - 1) * C->C
B + 1->B
Locate 4, 3, 2C
Locate 7, 1, B
Goto 1