:DCS "0000005500000000000000550000000000000055000000000000005500000000000000550000000000000055000000000000005500000000000000550000000077777700000011007777770000001100774444000022111177444400002211116644440022223311664444002222331166666600223333336666660022333333 BackgroundOff BorderColor 4 ClrDraw:AxesOff 2→W:1→D:5→C:1→V:2→T:1→U:1→θ DelVar PDelVar JDelVar I SetUpEditor ʟBTETR If dim(ʟBTETR)=0:{0→ʟBTETR randInt(10,16→E 1+(E/ᴇ2→E 0→Xmin:0→Ymin 264→Xmax:164→Ymax TextColor(BLACK Text(20,20,"Lines Text(56,20,"Score Text(92,20,"Level Text(⁻1,75,205,"By: Text(124,20,"High Score Text(137,20,ʟBTETR(1 If dim(ʟBTETR)>1:Then " →Str8 For(F,2,dim(ʟBTETR Str8+sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",ʟBTETR(F),1→Str8 End:End If dim(ʟBTETR)<2:"---------→Str8 Text(150,20,sub(Str8,2,(length(Str8)-1 2→X For(F,1,12 Text(X,252,sub("TI-Freakware",F,1 X+13→X End Text(⁻1,1,91,"BTetris Line(114,54,114,117,2,12 Line(148,54,148,117,2,12 Line(116,52,147,52,2,12 Line(116,119,147,119,2,12 {21,10→dim([A] Fill(0,[A] D→G While W=2 Text(33,20,J Text(69,20,I Text(105,20,iPart(J/10 getKey→K If max(K={24,26,21,31,25:Then Pt-Off((115+C*3)+L₁(1),(115-(D)*3)-L₁(2),1 Pt-Off((115+C*3)+L₁(3),(115-(D)*3)-L₁(4),1 Pt-Off((115+C*3)+L₁(5),(115-(D)*3)-L₁(6),1 Pt-Off((115+C*3)+L₁(7),(115-(D)*3)-L₁(8),1 End If K=26:Then If C+A<10 and ([A](D+1(D+L₁(2)/3<20)+(L₁(2)/3),C+1(C+L₁(1)/3<10)+(L₁(1)/3))=0 and [A](D+1(D+L₁(4)/3<20)+(L₁(4)/3),C+1(C+L₁(3)/3<10)+(L₁(3)/3))=0 and [A](D+1(D+L₁(6)/3<20)+(L₁(6)/3),C+1(C+L₁(5)/3<10)+(L₁(5)/3))=0 and [A](D+1(D+L₁(8)/3<20)+(L₁(8)/3),C+1(C+L₁(7)/3<10)+(L₁(7)/3))=0:Then C+1→C End:End If K=24:Then If C>1 and ([A](D+1(D+L₁(2)/3<20)+(L₁(2)/3),C-1(C-1>1)+(L₁(1)/3))=0 and [A](D+1(D+L₁(4)/3<20)+(L₁(4)/3),C-1(C-1>1)+(L₁(3)/3))=0 and [A](D+1(D+L₁(6)/3<20)+(L₁(6)/3),C-1(C-1>1)+(L₁(5)/3))=0 and [A](D+1(D+L₁(8)/3<20)+(L₁(8)/3),C-1(C-1>1)+(L₁(7)/3))=0:Then C-1→C End:End If F≠C:C→F V-(C+(A-1(A=2)+2(A=0)-2(A=3))<10)((K=31 and V>0)-((K=21 or K=25) and V<5→V If V=0:4→V If V=5:1→V If K=21 or K=31 or K=25:1→θ If K=105:Then Text(124,110,"Paused Repeat getKey End Text(125,110," End If K=22:Then DelVar [A]DelVar WDelVar L₁DelVar ʟADelVar ʟBDelVar ʟCDelVar ʟD ClrDraw:Disp :Return End If θ=1:Then If ᴇ2fPart(E)=10:Then If V=1 or V=3:{3,0,6,0,0,3,3,3→L₁ If V=2 or V=4:{0,0,0,3,3,3,3,6→L₁ End If ᴇ2fPart(E)=11:Then If V=1 or V=3:{0,0,3,0,3,3,6,3→L₁ If V=2 or V=4:{3,0,3,3,0,3,0,6→L₁ End If ᴇ2fPart(E)=12:Then If V=1:{3,0,0,3,3,3,6,3→L₁ If V=2:{0,0,0,3,0,6,3,3→L₁ If V=3:{0,0,3,0,6,0,3,3→L₁ If V=4:{3,0,3,3,3,6,0,3→L₁ End If ᴇ2fPart(E)=13 {0,0,3,0,3,3,0,3→L₁ If ᴇ2fPart(E)=14:Then If V=1 or V=3:{0,0,3,0,6,0,9,0→L₁ If V=2 or V=4:{0,0,0,3,0,6,0,9→L₁ End If ᴇ2fPart(E)=15:Then If V=1:{0,0,0,3,3,3,6,3→L₁ If V=2:{0,0,3,0,0,3,0,6→L₁ If V=3:{0,0,3,0,6,0,6,3→L₁ If V=4:{3,0,3,3,3,6,0,6→L₁ End If ᴇ2fPart(E)=16:Then If V=1:{0,3,3,3,6,3,6,0→L₁ If V=2:{0,0,0,3,0,6,3,6→L₁ If V=3:{0,0,3,0,6,0,0,3→L₁ If V=4:{0,0,3,0,3,3,3,6→L₁ End ᴇ2fPart(E→Z If max(Z={10,11,12,15,16:Then If V=1 or V=3:Then:2→A:1→B:End If V=2 or V=4:Then:1→A:2→B:End:End If Z=13:Then:1→A:1→B:End If Z=14:Then If V=1 or V=3:Then:3→A:0→B:End If V=2 or V=4:Then:0→A:3→B:End End 0→θ End If D=G:Then Pt-On((115+C*3)+L₁(1),(115-(D)*3)-L₁(2),1,ᴇ2fPart(E Pt-On((115+C*3)+L₁(3),(115-(D)*3)-L₁(4),1,ᴇ2fPart(E Pt-On((115+C*3)+L₁(5),(115-(D)*3)-L₁(6),1,ᴇ2fPart(E Pt-On((115+C*3)+L₁(7),(115-(D)*3)-L₁(8),1,ᴇ2fPart(E End If T>U:Then If D+B=20 or iPart([A](D+(L₁(2)/3)+1,C+(L₁(1)/3)))=1 or iPart([A](D+(L₁(4)/3)+1,C+(L₁(3)/3)))=1 or iPart([A](D+(L₁(6)/3)+1,C+(L₁(5)/3)))=1 or iPart([A](D+(L₁(8)/3)+1,C+(L₁(7)/3)))=1:Then I+5→I If D=1:8→W E→[A](D+(L₁(2)/3),C+(L₁(1)/3 E→[A](D+(L₁(4)/3),C+(L₁(3)/3 E→[A](D+(L₁(6)/3),C+(L₁(5)/3 E→[A](D+(L₁(8)/3),C+(L₁(7)/3 DelVar N For(Q,0,3 If D+Q≤21:Then Matr►list([A]ᵀ,D+Q,ʟA If sum(iPart(ʟA))=10:Then Q→L:N+1→N For(O,1,10 Pt-Off(115+O*3,(115-(D+Q)*3),1 0→[A](D+Q,O End:End:End:End If N=1:I+25→I If N=2:I+35→I If N=3:I+70→I If N=4:I+100→I J+N→J If L<5:3→W DelVar R D+L→M DelVar N While W=3 Matr►list([A]ᵀ,M,ʟA If sum(ʟA)>0:Then For(O,1,10 Pt-Off(115+O*3,115-M*3,1 [A](M,O)→[A](M+N,O 0→[A](M,O If [A](M+N,O)>0 Pt-On(115+O*3,(115-(M+N)*3),1,ᴇ2fPart([A](M+N,O End End If R<5 and sum(iPart(ʟA))=0:N+1→N If R>5 and (sum(iPart(ʟA))=0 or M<3:2→W M-1→M:R+1→R End DelVar D 5→C:1→V:1→P:1→θ S+1→S randInt(10,16→E 1+(E/ᴇ2→E End D+1→D End If P=0 and D≠G:Then Pt-Off((115+F*3)+L₁(1),(115-G*3)-L₁(2),1 Pt-Off((115+F*3)+L₁(3),(115-G*3)-L₁(4),1 Pt-Off((115+F*3)+L₁(5),(115-G*3)-L₁(6),1 Pt-Off((115+F*3)+L₁(7),(115-G*3)-L₁(8),1 D→G End If P=1:D→G DelVar P 5→L End If W=8:Then TextColor(RED Text(⁻1,65,80,"GAME OVER Repeat getKey End If I>ʟBTETR(1:Then ClrDraw TextColor(BLACK Text(⁻1,0,0,"New high score! Text(⁻1,20,0,"-------- Text(40,0,"^|v : Change characters Text(53,0,"2nd : Select character Text(66,0,"Del : Deletes character Text(66,0,"Enter : Finish entry 10→W:1→A:0→B {I,0→ʟBTETR While W=10 If dim(ʟBTETR)<10 Text(⁻1,20,B,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1 getKey→K A-1((A>0 and K=25)-(A<27 and K=34→A If A=0:26→A If A=27:1→A If K=23 and B>0:Then dim(ʟBTETR)-1→dim(ʟBTETR B-12→B Text(⁻1,20,B,"-- End If K=21 and dim(ʟBTETR)<10:Then A→ʟBTETR(dim(ʟBTETR dim(ʟBTETR)+1→dim(ʟBTETR B+12(dim(ʟBTETR)<10→B End If K=105:Then dim(ʟBTETR)-1→dim(ʟBTETR DelVar W End End:End:End Archive ʟBTETR ClrDraw ClrHome DelVar L₁DelVar [A]DelVar ʟADelVar ʟBDelVar ʟCDelVar ʟD