'ProgramMode:RUN
Lbl M:ClrText
Menu "TETRIS","Marathon",1,"Sprint",2,"Ultra",3,"Resume",R,"Exit",X
Lbl 3:3->Z
"Marathon"
"Max 2 min"
Goto 4
"Please run this"
"mode under cbasic"
"www.planetcasio.com"
Goto M
Lbl 2:2->2
"Max 40 Lines"
Goto 4
Lbl 1:1->Z
"Max 20 Levels"
Lbl 4
""
"[_#E69A_]Left   [_#E69B_]Right"
"[_#E69D_]Down   [_#E69C_]Drop"
"[F1]Rotate Left"
"[F2]Rotate Right"
"[SHIFT] Hold"
{16,30}->Dim Mat A
For 3->T To 30
-9->Mat A[14,T
T<14=>2->Mat A[T,3
Next
1->Mat A[8,2
1->B:0->C:5->D:128->F~G
O->H:0->L:1->M:0->S:0->U
RanInt#(1,5->Q
StrMid("12345",Q,1)+"671"->Str 1
Do:LpWhile Getkey=31
For 1->T To 1200
'/@@_(-)_2
Getkey=>Break
Next
Lbl R
BG-None
FuncOff:Norm 1
GridOff:CoordOff
AxesOff:LabelOff
S-WindMan
ViewWindow 1,127,0,1,63,0,0,0,1
S-Gph1 DrawOff
S-Gph2 DrawOff,Scatter,List 1,List 2,1,Square
[[0,(-)1,(-)1,(-)1,(-)1,(-)1,(-)1,0,1,0,0,0,0,1,(-)1,(-)1,1,,1,(-)1,0,0,0,0,0,1,(-)2,(-)1,2,1,0,0,0,0,0][0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,(-)1,(-)1,1,1,(-)1,(-)1,1,(-)1,1,(-)1,(-)2,1,2,(-)1,(-)2,0,0,0,0,0][1,1,1,1,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,2,2,2,(-)2,,2,1,(-)2,(-)1,2,1,(-)2,(-)1,2,1,(-)2][1,2,0,(-)1,1,1,1,1,1,1,1,1,1,0,(-)1,(-)1,1,1,(-)1,2,(-)2,2,(-)2,2,(-)2,1->Mat A
F<>G=>Goto C

'=======DRAW========
14+3{0,0,1,2,5,6,6,6,6,6,5,4,1,0,0,0
Augment(List Ans,127-List Ans->List 1
36+3{1,0,0,0,0,0,1,2,4,5,5,5,5,5,4,3
Augment(List Ans,List Ans->List 2
DrawStat
Text 1,2,"Score :0
          Level :0"
Text 33,16,"Hold"
Vertical 80
Vertical 47
2>=3=>Text 58,90,"Time:"
2=2=>Text 58,90,"L_Imaginary_nes:0"
StoPict 1
Lbl L
BG-Pict 1
'|Z=3_=>_O_->_@
'|Z>3_=>_Z_->_@
Z=>Prog "tetris"
'/Z_>=_3_=>_@_->_Z
K=4>=>Goto M

'======GAMEOVER=====
Seq(X,X,50,79,3->List 1
10->Dim List 2
Fill(2,2
For 1->Y To 21
DrawStat
List 2+3->List 2
'/@@_-_2O
Next
For 1->Y To 63 Step 3
Text Y,48
'/@@_-_1O
Next
If 2
Then Text 25,60,"GG"
Else Text 27,47,"_-__-__-__-__-__-__-__-__-_"
Text 25,47,"Game Over"
IfEndDispsO->2
Goto M
'========EXIT=======
Lbl X
BG-None
ClrGraph
ClrMat B
ClrList5
"       OREDCMD"