Click Here to Visit Our Sponsor
:0->P 
:AxesOff 
:GridOff 
:FnOff 
:PlotsOff 
:Lbl A 
:prgm#(empty set)TRSSTRT 
:Lbl 2 
:prgm#TRSINIT 
:Goto D 
:Lbl 1 
:0->#(empty set) 
:getKey-># 
:If #=0 
:getKey-># 
:If #=0 
:getKey-># 
:N->P 
:If #=11 
:Goto G 
:If #=34 or #=0 
:Goto D 
:If #=24 or #=26 
:prgm#TRSDATA 
:If #=21 
:Then 
:ClrHome 
:Menu("QUIT?","NO",E,"YES",X) 
:End 
:Lbl E 
:If #=15 
:Then 
:If K=0 
:prgm#TETRIS1 
:If K=2 
:prgm#TETRIS2 
:If K=3 
:prgm#TETRIS3 
:If K=4 
:prgm#TETRIS4 
:If K=5 
:prgm#TETRIS5 
:If K=6 
:prgm#TETRIS6 
:End 
:Goto D 
:Lbl G 
:ClrHome 
:Output(1,1,"6X2(squared)-27X+9                (20 Spaces) 
7292(pie)4(squared)-16X         (16 Spaces) 
5.713486(X-4)(squared)-(3X-2)(squared)   (10 Spaces)       6.843175" 
:Pause 
:Lbl D 
:prgm#TRSDROP 
:If J=1 
:Goto 4 
:If L=(not equal)R and #=(not equal)34 
:Goto 1 
:If A=55 or C=55 or E=55 or G=55 
:Goto 3 
:If pxl-Test(A+9,B+1)=1 or pxl-Test(C+9,D+1)=1 or :pxl-Test(E+9,F+1)=1 or pxl-Test (G+9,H+1)=1 
:Goto 3 
:Goto 1 
:Lbl 3 
:prgm#TRSLINE 
:Goto 2 
:Lbl 4 
:ClrDraw 
:ClrHome 
:If M>0 
:Then 
:Disp"YOU BEAT YOUR" 
:Disp"RECORD SCORE!" 
:M->O 
:Else 
:Disp"YOU DIDNT BEAT" 
:Disp"YOUR OLD RECORD!" 
:End 
:Pause 
:ClrHome 
:Menu("PLAY AGAIN?","YES",A,"NO",X) 
:Lbl X 
:ClrHome 
:Output (3,3,"THANK YOU FOR PLAYING TETRIS!" 
:Pause 
:Clr Home 
#TETRIS1 
:If N=1 
:Then 
:A-6->S 
:E+6->W 
:F-4->X 
:G+12->Y 
:H-4->Z 
:2->N 
:Return 
:End 
:If N=2 
:Then 
:A+6->S 
:E-6->W 
:F+4->X 
:G-12->Y 
:H+4->Z 
:1->N 
:End 
#TETRIS2 
:If N=4 
:Then 
:A+6->S 
:B+4->T 
:E-6->W 
:F-4->X 
:G-12->Y 
:H-8->Z 
:5->N 
:Return 
:End 
:If N=5 
:Then 
:A-6->S 
:B-4->T 
:E+6->W 
:F+4->X 
:G+12->Y 
:H+8->Z 
:4->N 
:End 
#TETRIS3 
:If N=6 
:Then 
:A+6->S 
:G+6->Y 
:H-8->Z 
:7->N 
:Return 
:End 
:If N=7 
:Then 
:A-6->S 
:G-6->Y 
:H+8->Z 
:6->N 
:End 
#TETRIS4 
:If N=8 
:Then 
:G-6->Y 
:H-4->Z 
:11->N 
:Return 
:End 
:If N=11 
:Then 
:E-6->W 
:F+4->X 
:10->N 
:Return 
:End 
:If N=10 
:Then 
:A-6->S 
:B+4->T 
:E+6->W 
:F-4->X 
:G+6->Y 
:H+4->Z 
:9->N 
:Return 
:End 
:If N=9 
:Then 
:A+6->S 
:B-4->T 
:8->N 
:End 
#TETRIS5 
:If N=12 
:Then 
:A-6->S 
:B+8->T 
:C+6->U 
:15->N 
:Return 
:End 
:If N=15 
:Then 
:A+6->S 
:B-8->T 
:E+6->W 
:F-8->X 
:14->N 
:Return 
:End 
:If N=14 
:Then 
:C-12->U 
:D-4->V 
:G-12->Y 
:H-4->Z 
:13->N 
:Return 
:End 
:If N=13 
:Then 
:C+6->U 
:D+4->V 
:G+12->Y 
:H+4->Z 
:E-6->W 
:F+8->X 
:12->N 
:End 
#TETRIS6 
:If N=16 
:Then 
:A-6->S 
:B+4->T 
:C-12->U 
:D+8->V 
:E+6->W 
:F+4->X 
:19->N 
:Return 
:End 
:If N=19 
:Then 
:A+12->S 
:C+12->U 
:D-8->V 
:18->N 
:Return 
:End 
:If N=18 
:Then 
:E-6->W 
:F-8->X 
:G-6->Y 
:H-8->Z 
:17->N 
:Return 
:End 
:If N=17 
:Then 
:A-6->S 
:B-4->T 
:F+4->X 
:G+6->Y 
:H+8->Z 
:16->N 
:End 
#TRSDATA 
:If #=24 
:Then 
:B-4->T 
:D-4->V 
:F-4->X 
:H-4->Z 
:Return 
:End 
:B+4->T 
:D+4->V 
:F+4->X 
:H+4->Z 
#TRSDROP 
:If #=34 or L=R 
:Then 
:S+6->S 
:U+6->U 
:W+6->W 
:Y+6->Y 
:End 
:If S>55 or U>55 or W>55 or Y>55 
or S<0 or U<0 or W<0 or Y<0 
:Goto 5 
:If pxl-Test (S+3,T+1)=1 or pxl-Test(U+3, V+1)=1 or pxl-Test :(W+3, X+1)=1 or pxl-Test (Y+3,Z+1)=1 
:Goto 5 
:Goto 6 
:Lbl 5 
:A->S 
:B->T 
:C->U 
:D->V 
:E->W 
:F->X 
:G->Y 
:H->Z 
:P->N 
:If L=R 
:Then 
:A+6->S 
:C+6->U 
:E+6->W 
:G+6->Y 
:End 
:Lbl 6 
:Text(A,B,"(3 Spaces)") 
:Text(C,D,"(3 Spaces)") 
:Text(E,F,"(3 Spaces)") 
:Text(G,H,"(3 Spaces)") 
:Text(S,T,"0") 
:Text(U,V,"0") 
:Text(W,X, "0") 
:Text(Y,Z,"0") 
:S->A 
:T->B 
:U->C 
:V->D 
:W->E 
:X->F 
:Y->G 
:Z->H 
:If L=R 
:0->L 
:L+1->L 
#TRSINIT 
:0->J 
:0->L 
:0-># 
:Q->K 
:If K=-1 
:round(rand6,0)->K 
:round(rand6,0)->Q 
:If Q=0 
:Then 
:7->A 
:39->B 
:7->C 
:43->D 
:1->E 
:43->F 
:1->G 
:47->H 
:End 
:If Q=1 
:Then 
:1->A 
:43->B 
:1->C 
:47->D 
:7->E 
:43->F 
:7->G 
:47->H 
:End 
:If Q=2 
:Then 
:1->A 
:39->B 
:1->C 
:43->D 
:1->E 
:47->F 
:1->G 
:51->H 
:End 
:If Q=3 
:Then 
:1->A 
:39->B 
:1->C 
:43->D 
:7->E 
:43->F 
:7->G 
:47->H 
:End 
:If Q=4 
:Then 
:1->A 
:39->B 
:1->C 
:43->D 
:7->E 
:43->F 
:1->G 
:47->H 
:End 
:If Q=5 
:Then 
:1->A 
:39->B 
:1->C 
:43->D 
:1->E 
:47->F 
:7->G 
:47->H 
:End 
:If Q=6 
:Then 
:1->A 
:39->B 
:7->C 
:39->D 
:1->E 
:43->F 
:1->G 
:47->H 
:End 
:Text(37,5," (16 Spaces)") 
:Text(43,5," (16 Spaces)") 
:Text(A+36,B-34,"O") 
:Text(C+36,D-34,"O") 
:Text(E+36,F-34,"O") 
:Text(G+36,H-34,"O") 
:If K=0 
:Then 
:7->A 
:39->B 
:7->C 
:43->D 
:1->E 
:43->F 
:1->G 
:47->H 
:1->N 
:End 
:If K=1 
:Then 
:1->A 
:43->B 
:1->C 
:47->D 
:7->E 
:43->F 
:7->G 
:47->H 
:3->N 
:End 
:If K=2 
:Then 
:1->A 
:39->B 
:1->C 
:43->D 
:1->E 
:47->F 
:1->G 
:51->H 
:4->N 
:End 
:If K=3 
:Then 
:1->A 
:39->B 
:1->C 
:43->D 
:7->E 
:43->F 
:7->G 
:47->H 
:6->N 
:End 
:If K=4 
:Then 
:1->A 
:39->B 
:1->C 
:43->D 
:7->E 
:43->F 
:1->G 
:47->H 
:8->N 
:End 
:If K=5 
:Then 
:1->A 
:39->B 
:1->C 
:43->D 
:1->E 
:47->F 
:7->G 
:47->H 
:12->N 
:End 
:If K=6 
:Then 
:1->A 
:39->B 
:7->C 
:39->D 
:1->E 
:43->F 
:1->G 
:47->H 
:16->N 
:End 
:If pxl-Test (A+3,B+1)=1 or pxl-Test(C+3, D+1)=1 or :pxl-Test(E+3, F+1)=1 or pxl-Test (G+3, H+1)=1 
:1->J 
:A->S 
:B->T 
:C->U 
:D->V 
:E->W 
:F->X 
:G->Y 
:H->Z 
#TRSLINE 
:Pxl-On (A+3, B+1 
:Pxl-On (C+3, D+1 
:Pxl-On (E+3, F+1 
:Pxl-On (G+3, H+1 
:0->H 
:A->D 
:1->F 
:Lbl 9 
:0->B 
:For (T,28,64,4) 
:If pxl-Test (D+3, T)=1 
:B+1->B 
:End 
:If B=10 
:Then 
:Text (D,27,"(40 Spaces)") 
:For (Z,D+3, 10, -6) 
:For (Y, 28, 64, 4) 
:If pxl-Test (Z,Y)=0 and pxl-Test (Z-6, Y)=1 
:Then 
:Text (Z-3, Y-1, "8" 
:Text (Z-9, Y-1, "(3 Spaces)" 
:End 
:End 
:End 
:H+1->H 
:If CC 
:If EE 
:If GG 
:End 
:If F=1 
:Then 
:C->D 
:2->F 
:Goto 9 
:End 
:If F=2 
:Then 
:E->D 
:3->F 
:Goto 9 
:End 
:If F=3 
:Then 
:G->D 
:4->F 
:Goto 9 
:End 
:If #=34 
:M+21*H+round (rand6,0)+4->M 
:I+H->I 
:iPart (I/20)->V 
:6-R->W 
:If R=(not equal)1 and I >(or equal to) W*20 
:R-1->R 
:If W>V 
:Then 
:W->Y 
:Else 
:V->Y 
:End 
:Text (38,70,Y 
:Y*H^2*113+M->M 
:Text (6,70,M 
:Text (54,70,I 
:If M>50000 
:Then 
:ClrDraw 
:ClrHome 
:Output ( 1,1, "OVER FIFTY THOUSAND POINTS? EITHER YOU :MESSED UP THE SCORING SYSTEM OR YOU HAVE BEEN PLAYING WAY :TOO LONG, SO STOP. BYE!" Pause 
:ClrHome 
:Stop 
:End 
#TRSSTRT 
:If P=(not equal)0 
:Goto A 
:FnOff 
:Axes Off 
:0->Xmin 
:94->Xmax 
:0->Xscl 
:0->Ymin 
:62->Ymax 
:0->Yscl 
:0->A 
:0->B 
:ClrDraw 
:Repeat A>(or equal to)56 
:B+1->B 
:A+B->A 
:End 
:61->A 
:0->B 
:Repeat A<(or equal to)0 
:For (A,A,A-4, -1 
:Line (13,A,83,A,0 
:End 
:B+1->B 
:A-B+5->A 
:End 
:ClrDraw 
:ClrHome 
:Output(3,6,"TETRIS" 
:Pause 
:1->P 
:ClrHome 
:Menu ("INSTRUCTIONS?"NO",A,"YES", C) 
:Lbl C 
:ClrHome 
:Output (1,1,".LEFT AND RIGHT(2 Spaces) ARROWS MOVE (5 :Spaces) HORIZONTALLY(3Spaces) .DOWN ARROW GOES DOWN UNTIL :YOU (2Spaces) LET GO (9 Spaces) .GRAPH FLIPS (4 Spaces) :.2ND QUITS" Pause 
:ClrHome 
:Output (1,1,".Y= PAUSES (6 Spaces) .EVERY 20 LINES, GO 2 :NEXT LEVEL.IF YOU START ON HIGH LEVEL YOU (2 Spaces) MUST :GET TEH (4 Spaces) LINES NEEDED 4 (2 Spaces) THAT LEVEL :ALSO" Pause 
:Lbl A 
:ClrHome 
:Disp "SELECT STARTING" 
:Disp "LEVEL (1 IS SLOW" 
:Disp "AND 5 IS FAST)" 
:Input A 
:If A>5 or A<1 
:Goto A 
:6-A->R 
:ClrDraw 
:Vertical 24 
:vertical 25 
:Vertical 67 
:Vertical 68 
:Line (26,62,66,62 
:Line (26,0,66,0 
:Line (3,12,21,12 
:Line (2,12,2,34 
:Line (3,34,21,34 
:Line (22,34,22,12 
:Line (3,26,21,26 
:Text (29, 4, "NEXT" 
:Text (1,1, "TETRIS" 
:Text(16,70, "HISCORE" 
:Text (22,70,O 
:Text (32,70, "LEVEL" 
:Text (38,70, 6-R 
:0->I 
:Text (48,70, "LINES" 
:Text (54,70,I 
:0->M 
:-1->Q
Make your own free website on Tripod.com