Edited: On the TI-83+ does the Y₁ look like y1? thx

]]>Okay now, so here's the fix. Scroll down to the line "0->C" a bit after Lbl 2. Insert "Lbl θ" (θ being the theta symbol) right between "I+4->I" and "0->C". That's step one. Step two: scroll down from there until you see the SECOND "Goto 1", NOT the first one you see after the line "If C≠ 13:Then". Once you scroll down to the correct "Goto 1" (right before "Lbl EN"), change it to "Goto θ" (θ being the theta symbol). That's all there is to it! Let me know how it works.

]]>What exactly do you need help with? Simply saying "pls help" doesn't do anyone good. Please explain what you need help with :)

]]>LinReg(ax+b) {Y1} ]]>

`"Square {~4,0,~4,4,0,4->L1 "Straight {~8,0,~4,0,4,0->L2 "Diag-UpLeft {4,0,0,4,~4,4->L3 "Diag-UpRight {0,4,~4,0,4,4->L4 "CenterUp {~4,0,4,0,0,4->L5 0->Xmin:94->Xmax 0->Ymin:62->Ymax PlotsOff FnOff AxesOff ClrDraw For(I,0,62 Pt-On(36,I,2 Pt-On(84,I,2 End Line(35,47,0,47 Line(35,6,0,6 Text(0,3,"BC's Beta Text(7,7,"Tetris Text(31,1,"Next Piece 0->L Line(8,22,27,22 Line(27,22,27,14 Line(27,14,8,14 Line(8,22,8,14 Line(29,32,3,32 Line(3,43,29,43 Line(29,32,29,43 Line(29,43,29,32 Line(3,32,3,43 Line(35,24,0,24 Text(49,10,"Lines randInt(1,5->B B->Y 0->W 0->I Lbl 1 If I=52:Goto EN Text(57,1,"Score:",W W+10->W 1->P B->Y randInt(1,5->B 17->S 35->T Text(41,10,L Text(~1,21,5," If B=1:L1->L6 If B=2:L2->L6 If B=3:L3->L6 If B=4:L4->L6 If B=5:L5->L6 Pt-On(S,T,2 Pt-On(S+L6(1),T+L6(2),2 Pt-On(S+L6(3),T+L6(4),2 Pt-On(S+L6(5),T+L6(6),2 If Y=1:Then L1->L6 80->Q 44->R End If Y=2:Then L2->L6 76->Q 48->R End If Y=3:Then L3->L6 76->Q 44->R End If Y=4:Then L4->L6 44->R 76->Q End If Y=5:Then L5->L6 44->R 76->Q End randInt(13,19->X 4X->X For(I,52,4,~4 getKey->K Pt-Off(X,I+4,2 Pt-Off(X+L6(1),I+L6(2)+4,2 Pt-Off(X+L6(3),I+L6(4)+4,2 Pt-Off(X+L6(5),I+L6(6)+4,2 X+4(K=26)(X<Q)-4(K=24)(X>R)->X If K=25:Then P+1->P If P=5:1->P If Y=2:Then If P=3:1->P If P=1:Then {~8,0,~4,0,4,0->L6 76->Q 48->R End If P=2:Then {0,4,0,8,0,12->L6 80->Q 40->R End End If Y=3:Then If P=3:1->P If P=1:Then {4,0,0,4,~4,4->L6 76->Q 44->R End If P=2:Then {0,4,4,4,4,8->L6 76->Q 40->R End End If Y=4:Then If P=3:1->P If P=1:Then {0,4,~4,0,4,4->L6 76->Q 44->R End If P=2:Then {0,4,~4,4,~4,8->L6 80->Q 44->R End End If Y=5:Then If P=1:Then {~4,0,4,0,0,4->L6 44->R 76->Q End If P=3:Then {0,4,4,4,~4,4->L6 76->Q 44->R End If P=2:Then {0,4,0,8,4,4->L6 40->R 76->Q End If P=4:Then {0,4,0,8,~4,4->L6 44->R 80->Q End End End Pt-On(X,I,2 Pt-On(X+L6(1),I+L6(2),2 Pt-On(X+L6(3),I+L6(4),2 Pt-On(X+L6(5),I+L6(6),2 If pxl-Test(62-I+4,X) or pxl-Test(62-(L6(2)+I)+4,L6(1)+X) or pxl-Test(62-(L6(4)+I)+4,L6(3)+X) or pxl-Test(62-(L6(6)+I)+4,L6(5)+X):Then I-4->I Goto 2 End End Lbl 2 Pt-On(X,I+4 Pt-On(X+L6(1),I+L6(2)+4 Pt-On(X+L6(3),I+L6(4)+4 Pt-On(X+L6(5),I+L6(6)+4 0->V I+4->I 0->C 13->dim(L6 Fill(0,L6 For(J,36,84,4 If pxl-Test(62-I,J:Then C+1->C End If pxl-Test(62-(I+4),J:Then J->L6((J-32)/4) End End If C!=13:Then Goto 1 End For(J,40,80,4 Pt-Off(J,I,2 Pt-Off(J,I End L+1->L W+10->W 0->L6(1):0->L6(13) For(P,1,13 If L6(P:Then Pt-Off(L6(P),I+4 Pt-Off(L6(P),I+4,2 Pt-On(L6(P),I,2 Pt-On(L6(P),I End End For(theta,I+4,52,4 For(Z,40,80,4 If pxl-Test(62-theta,Z:Then Pt-Off(Z,theta,2 Pt-Off(Z,theta Pt-On(Z,theta-4,2 Pt-On(Z,theta-4 End End End Goto 1 Lbl EN For(I,35,43 Line(23,I,80,I End For(theta,0,8 Text(~1,20,25+6theta,sub("GAME OVER",theta+1,1 For(Z,0,50:End End For(I,16,34 Line(23,I,80,I,0 End Line(23,34,80,34 Line(23,34,23,16 Line(80,16,80,34 Line(23,16,80,16 Text(~1,30,25,"Score Was StorePic 1 FnOff {0,1->L1 {0,W->L2 FnOff LinReg(ax+b) {Y1} FnOff Equ>String({Y1},Str1 FnOff sub(Str1,1,length(Str1)-3->Str1 RecallPic 1 Text(~1,38,52-(length(Str1)*3),W Repeat getKey:End For(I,0,22 Vertical I End Line(22,16,22,43,0 For(I,23,80 Line(I,45,I,62 Line(I,15,I,0 Pt-Off(I,44 Pt-Off(I,15 End Vertical 81 Line(81,16,81,43,0 For(I,82,94 Vertical I End Repeat getKey:End For(I,22,82 Vertical I End prgmCH2`