%Header Record
Format:VAL
Communication SW:0
Data Type:MT
Rows:7
Columns:21
Variable Name:Mat A
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 0
Value : 1 2 0
Value : 1 3 0
Value : 1 4 0
Value : 1 5 0
Value : 1 6 0
Value : 1 7 0
Value : 1 8 0
Value : 1 9 0
Value : 1 10 0
Value : 1 11 0
Value : 1 12 0
Value : 1 13 0
Value : 1 14 0
Value : 1 15 0
Value : 1 16 0
Value : 1 17 0
Value : 1 18 0
Value : 1 19 0
Value : 1 20 0
Value : 1 21 0
Value : 2 1 0
Value : 2 2 0
Value : 2 3 0
Value : 2 4 0
Value : 2 5 0
Value : 2 6 0
Value : 2 7 0
Value : 2 8 0
Value : 2 9 0
Value : 2 10 0
Value : 2 11 0
Value : 2 12 0
Value : 2 13 0
Value : 2 14 0
Value : 2 15 0
Value : 2 16 0
Value : 2 17 0
Value : 2 18 0
Value : 2 19 0
Value : 2 20 0
Value : 2 21 0
Value : 3 1 0
Value : 3 2 0
Value : 3 3 0
Value : 3 4 0
Value : 3 5 0
Value : 3 6 0
Value : 3 7 0
Value : 3 8 0
Value : 3 9 0
Value : 3 10 0
Value : 3 11 0
Value : 3 12 0
Value : 3 13 0
Value : 3 14 0
Value : 3 15 0
Value : 3 16 0
Value : 3 17 0
Value : 3 18 0
Value : 3 19 0
Value : 3 20 0
Value : 3 21 0
Value : 4 1 6
Value : 4 2 6
Value : 4 3 0
Value : 4 4 0
Value : 4 5 0
Value : 4 6 0
Value : 4 7 0
Value : 4 8 0
Value : 4 9 0
Value : 4 10 0
Value : 4 11 0
Value : 4 12 0
Value : 4 13 0
Value : 4 14 0
Value : 4 15 0
Value : 4 16 0
Value : 4 17 0
Value : 4 18 0
Value : 4 19 0
Value : 4 20 0
Value : 4 21 0
Value : 5 1 0
Value : 5 2 6
Value : 5 3 6
Value : 5 4 0
Value : 5 5 0
Value : 5 6 0
Value : 5 7 0
Value : 5 8 0
Value : 5 9 0
Value : 5 10 0
Value : 5 11 0
Value : 5 12 0
Value : 5 13 0
Value : 5 14 0
Value : 5 15 0
Value : 5 16 0
Value : 5 17 0
Value : 5 18 0
Value : 5 19 0
Value : 5 20 0
Value : 5 21 0
Value : 6 1 0
Value : 6 2 0
Value : 6 3 0
Value : 6 4 0
Value : 6 5 0
Value : 6 6 0
Value : 6 7 0
Value : 6 8 0
Value : 6 9 0
Value : 6 10 0
Value : 6 11 0
Value : 6 12 0
Value : 6 13 0
Value : 6 14 0
Value : 6 15 0
Value : 6 16 0
Value : 6 17 0
Value : 6 18 0
Value : 6 19 0
Value : 6 20 0
Value : 6 21 0
Value : 7 1 2
Value : 7 2 2
Value : 7 3 2
Value : 7 4 2
Value : 7 5 0
Value : 7 6 0
Value : 7 7 0
Value : 7 8 0
Value : 7 9 0
Value : 7 10 0
Value : 7 11 0
Value : 7 12 0
Value : 7 13 0
Value : 7 14 0
Value : 7 15 0
Value : 7 16 0
Value : 7 17 0
Value : 7 18 0
Value : 7 19 0
Value : 7 20 0
Value : 7 21 0
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:747
File Name:TETRIS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\AxesOff
\GridOff
\LabelOff
\For 1\->A \To 20 \Step 2
\Text A,2,"     "
\Text A+2,2,"###"
\Text A+8,8,"#"
\Text A+14,8,"#"
\Getkey=31\=>\Prog "TETMAIN"
\Next 
\For 1\->A \To 25 \Step 2
\Text A,22,"     "
\Text A+2,22,"###"
\Text A+8,22,"##  "
\Text A+14,22,"###"
\Getkey=31\=>\Prog "TETMAIN"
\Next 
\For 1\->A \To 20 \Step 2
\Text A,42,"     "
\Text A+2,42,"###"
\Text A+8,48,"#"
\Text A+14,48,"#"
\Getkey=31\=>\Prog "TETMAIN"
\Next 
\For 1\->A \To 25 \Step 2
\Text A,62,"     "
\Text A+2,62,"###"
\Text A+8,62,"##  "
\Text A+14,62,"#"
\Text A+14,74,"#"
\Getkey=31\=>\Prog "TETMAIN"
\Next 
\For 1\->A \To 20 \Step 2
\Text A,82,"    "
\Text A+2,88,"#"
\Text A+8,88,"#"
\Text A+14,88,"#"
\Getkey=31\=>\Prog "TETMAIN"
\Next 
\For 1\->A \To 25 \Step 2
\Text A,103,"    "
\Text A+2,102,"  "
\Text A+2,108,"##"
\Text A+8,102,"  "
\Text A+8,108,"#  "
\Text A+14,102,"##  "
\Getkey=31\=>\Prog "TETMAIN"
\Next 
\For 1\->A \To 34
\Text 50,A," BY:"
\Getkey=31\=>\Prog "TETMAIN"
\Next 
\For 1\->A \To 125
\Next 
\Text 50,52,"B. RASMUS ANTHIN"
\For 1\->A \To 18
\Text 1,1," "
\Next 
\Text 5,30,"PUSH [EXE]"\Disp\ClrText
\Prog "TETMAIN"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:9415
File Name:TETMAIN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->A~Z
\Lbl E
\ClrText
"1: TYPE A"
"2: TYPE B"?\->T
\ClrText
"SHOW NEXT BLOCK"
"[1\slash0]"?\->Z
\ClrText
"LEVEL [1-9]"?\->\theta
\ClrText
100-\theta*10-10\->\theta
0\->X
0\->G
\Fill(0,\Mat A
7\->B
\Lbl A
0\->E
0\->O
0\->I
0\->M
\If B=0
\Then \For 2\->A \To 22
\For 0\->D \To \theta
\Next 
23-A\->C
E\->H
\Getkey=28\=>\Dsz E
\Getkey=37\=>\Isz E
E=\(-)4\=>\(-)3\->E
E=3\=>2\->E
\For 4\->F \To 5
\Locate C,F+E,"## "
\Next 
E\>=\(-)2\=>E>H\=>\Locate C,3+E,"   "
E\<=1\=>E<H\=>\Locate C,6+E,"   "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C-1]\<>0\=>\Goto0
\IfEnd
\Next 
\IfEnd
\If B=1
\Then \For 2\->A \To 22
\For 0\->D \To \theta
\Next 
23-A\->C
E\->H
\Getkey=28\=>\Dsz E
\Getkey=37\=>\Isz E
E\<=\(-)4\=>\(-)3\->E
E\>=4\=>3\->E
\Getkey=27\=>\Isz I
I=2\=>0\->I
\If I=0
\Then \If O=0\ And C<21
\Then E\<=2\=>\Locate C+1,5+E," "
E\<=1\=>\Locate C+1,6+E," "
E\<=0\=>\Locate C+1,7+E," "
1\->O
\IfEnd
\Locate C,E+4,"OOOO "
E\>=\(-)2\=>E>H\=>\Locate C,3+E,"     "
E\<=2\=>E<H\=>\Locate C,5+E,"     "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=1
\Then E\>=0\=>0\->E
\If O=1
\Then \Isz C
\Dsz A
\If C<20
\Then \Locate C+2,4+E,"  "
\Locate C+2,5+E,"  "
\Locate C+2,6+E,"  "
\Locate C+2,7+E,"  "
\IfEnd
0\->O
\IfEnd
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,3+E," "
\Locate C,4+E,"O "
\Locate C,5+E,"O "
\Locate C,6+E,"O "
\Locate C,7+E,"O "
C<21\=>E\<=\(-)1\=>E<H\=>\Locate C+1,8+E," "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C-1]\<>0\ Or \Mat A[6+E,C-1]\<>0\ Or \Mat A[7+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\Next 
\IfEnd
\If B=2
\Then \For 2\->A \To 22
\For 0\->D \To \theta
\Next 
23-A\->C
E\->H
\Getkey=28\=>\Dsz E
\Getkey=37\=>\Isz E
E\<=\(-)4\=>\(-)3\->E
E\>=3\=>2\->E
\Getkey=27\=>\Isz I
I=4\=>0\->I
\If I=0
\Then \If O=0\ And C<21
\Then E\<=1\=>\Locate C+1,E+6,"  "
\Locate C+1,E+4," "
1\->O
\IfEnd
C<21\=>E>H\=>\Locate C+1,E+4," "
C<19\=>E\>=\(-)2\=>E>H\=>\Locate C+3,E+3," "
C<21\=>E\<=1\=>E<H\=>\Locate C+1,E+6,"   "
C<20\=>\Locate C+2,4+E,"* "
\Locate C,5+E,"*** "
\If C>1
\Then C<21\=>\Mat A[4+E,C+1]\<>0\=>\Goto0
\Mat A[5+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=1
\Then \If O=1\ And C<19
\Then \Locate C+3,E+5," "
\Locate C+3,E+4," "
2\->O
\IfEnd
E\>=2\=>1\->E
E\>=\(-)2\=>E>H\=>\Locate C,E+3,"   "
C<21\=>E\<=0\=>E<H\=>\Locate C+1,E+7,"  "
\Locate C,E+4,"** "
C<21\=>\Locate C+1,E+5,"* "
C<21\=>\Locate C+1,E+6,"* "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C]\<>0\ Or \Mat A[6+E,C]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=2
\Then O=2\=>C<20\=>E\<=1\=>\Locate C+2,E+6," "
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,E+3,"   "
C<21\=>E\<=1\=>E<H\=>\Locate C+1,E+6," "
\Locate C,E+4,"*** "
\Locate C,E+5,"*   "
3\->O
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=3
\Then E\>=1\=>1\->E
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,E+3," "
C<21\=>E\<=0\=>E<H\=>\Locate C+1,E+7,"  "
O=3\=>C<20\=>\Locate C+2,E+4,"  "
0\->O
\Locate C,E+4,"* "
\Locate C,E+5,"*  "
\Locate C,E+6,"** "
\If C>1
\Then \Mat A[E+4,C-1]\<>0\ Or \Mat A[E+5,C-1]\<>0\ Or \Mat A[E+6,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\Next 
\IfEnd
\If B=3
\Then \For 2\->A \To 22
\For 0\->D \To \theta
\Next 
23-A\->C
E\->H
\Getkey=28\=>\Dsz E
\Getkey=37\=>\Isz E
E\<=\(-)4\=>\(-)3\->E
E\>=3\=>2\->E
\Getkey=27\=>\Isz I
I=4\=>0\->I
\If I=0
\Then \If O=0\ And C<21
\Then E\<=1\=>\Locate C+1,E+6,"  "
\Locate C+1,E+4," "
1\->O
\IfEnd
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,E+3,"   "
C<19\=>E\<=1\=>E<H\=>\Locate C+3,E+6," "
C<21\=>E<H\=>\Locate C+1,E+5," "
C<20\=>\Locate C+2,5+E,"\aster "
\Locate C,4+E,"\aster\aster\aster "
\If C>1
\Then C<21\=>\Mat A[5+E,C+1]\<>0\=>\Goto0
\Mat A[4+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=1
\Then \If O=1
\Then C<20\=>\Locate C+2,E+4,"  "
C<19\=>\Locate C+3,E+5," "
2\->O
\IfEnd
E\>=2\=>1\->E
C<21\=>E\<=0\=>E<H\=>\Locate C+1,E+7," "
C<21\=>E<H\=>\Locate C+1,E+6," "
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,E+3,"  "
\Locate C,E+4,"\aster\aster "
\Locate C,E+5,"\aster  "
\Locate C,E+6,"\aster "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C-1]\<>0\ Or \Mat A[6+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=2
\Then \If O=2
\Then C<21\=>E\<=1\=>\Locate C+1,E+6," "
3\->O
\IfEnd
C<21\=>E\<=1\=>E<H\=>\Locate C+1,E+6,"   "
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,E+3," "
\Locate C,E+4,"\aster   "
\Locate C,E+5,"\aster\aster\aster "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=3
\Then E\>=1\=>1\->E
C<20\=>E\>=\(-)2\=>E>H\=>\Locate C+2,E+3," "
C<21\=>E\<=0\=>E<H\=>\Locate C+1,E+7,"  "
O=3\=>C<20\=>\Locate C+2,E+5,"  "
0\->O
C<21\=>\Locate C+1,E+4,"\aster "
C<21\=>\Locate C+1,E+5,"\aster "
\Locate C,E+6,"\aster\aster "
\If C>1
\Then \Mat A[E+4,C]\<>0\ Or \Mat A[E+5,C]\<>0\ Or \Mat A[E+6,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\Next 
\IfEnd
\If B=4
\Then \For 2\->A \To 22
\For 0\->D \To \theta
\Next 
23-A\->C
E\->H
\Getkey=28\=>\Dsz E
\Getkey=37\=>\Isz E
E\<=\(-)4\=>\(-)3\->E
E\>=3\=>2\->E
\Getkey=27\=>\Isz I
I=4\=>0\->I
\If I=0
\Then \If O=3\ And C<19
\Then \Locate C+3,E+5,"  "
\Locate C+3,E+4," "
0\->O
\IfEnd
E\>=2\=>1\->E
C<20\=>E\>=\(-)2\=>E>H\=>\Locate C+2,E+3," "
C<20\=>E\<=0\=>E<H\=>\Locate C+2,E+7," "
C<21\=>\Locate C+1,E+4,"8 "
\Locate C,E+5,"88 "
C<21\=>\Locate C+1,E+6,"8 "
\If C>1
\Then \Mat A[E+4,C]\<>0\ Or \Mat A[E+5,C-1]\<>0\ Or \Mat A[E+6,C]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=1
\Then \If O=0\ And C<20
\Then \Locate C+2,E+6," "
1\->O
\IfEnd
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,E+3,"   "
C<20\=>E\<=1\=>E<H\=>\Locate C+2,E+6," "
\Locate C,E+4,"888 "
C<21\=>\Locate C+1,E+5,"8  "
\If C>1
\Then \Mat A[E+4,C-1]\<>0\ Or \Mat A[5+E,C]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=2
\Then \If O=1\ And C<19
\Then \Locate C+3,E+4," "
2\->O
\IfEnd
E\>=1\=>1\->E
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,E+3," "
C<21\=>E\<=0\=>E<H\=>\Locate C+1,E+7," "
\Locate C,4+E,"8  "
\Locate C,5+E,"88 "
\Locate C,6+E,"8  "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C-1]\<>0\ Or \Mat A[6+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=3
\Then \If O=2\ And C<21
\Then E\<=1\=>\Locate C+1,6+E," "
3\->O
\IfEnd
C<20\=>E\>=\(-)2\=>E>H\=>\Locate C+2,3+E," "
C<19\=>E>H\=>\Locate C+3,4+E," "
C<21\=>E\<=1\=>E<H\=>\Locate C+1,6+E,"   "
C<21\=>\Locate C+1,4+E,"8  "
\Locate C,5+E,"888 "
\If C>1
\Then \Mat A[4+E,C]\<>0\ Or \Mat A[5+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\Next 
\IfEnd
\If B=5
\Then \For 2\->A \To 22
\For 0\->D \To \theta
\Next 
23-A\->C
E\->H
\Getkey=28\=>\Dsz E
\Getkey=37\=>\Isz E
E\<=\(-)4\=>\(-)3\->E
E\>=3\=>2\->E
\Getkey=27\=>\Isz I
I=2\=>0\->I
\If I=0
\Then O=0\=>C<21\=>\Locate C+1,E+6," "
1\->O
E\>=\(-)2\=>E>H\=>C<21\=>\Locate C+1,E+3,"  "
E\<=1\=>E<H\=>C<20\=>\Locate C+2,E+6,"  "
\Locate C,4+E,"\theta\theta  "
C<21\=>\Locate C+1,5+E,"\theta\theta "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=1
\Then E\>=1\=>1\->E
O=1\=>E\<=1\=>C<19\=>\Locate C+3,E+5," "
0\->O
C<20\=>E\>=\(-)2\=>E>H\=>\Locate C+2,E+3," "
C<21\=>E\<=0\=>E<H\=>\Locate C+1,E+7," "
C<21\=>\Locate C+1,E+4,"\theta "
\Locate C,E+5,"\theta\theta "
\Locate C,E+6,"\theta  "
\If C>1
\Then \Mat A[E+4,C]\<>0\ Or \Mat A[E+5,C-1]\<>0\ Or \Mat A[E+6,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\Next 
\IfEnd
\If B=6
\Then \For 2\->A \To 22
\For 0\->D \To \theta
\Next 
23-A\->C
E\->H
\Getkey=28\=>\Dsz E
\Getkey=37\=>\Isz E
E\<=\(-)4\=>\(-)3\->E
E\>=3\=>2\->E
\Getkey=27\=>\Isz I
I=2\=>0\->I
\If I=0
\Then O=0\=>C<20\=>E\<=1\=>\Locate C+2,E+6," "
1\->O
E\>=\(-)2\=>E>H\=>C<20\=>\Locate C+2,3+E,"  "
E\<=1\=>E<H\=>C<21\=>\Locate C+1,6+E,"  "
C<21\=>\Locate C+1,4+E,"HH "
\Locate C,5+E,"HH  "
\If C>1
\Then \Mat A[4+E,C]\<>0\ Or \Mat A[5+E,C-1]\<>0\=>\Goto0
\IfEnd
\IfEnd
\If I=1
\Then E\>=1\=>1\->E
O=1\=>C<19\=>\Locate C+3,E+4," "
0\->O
C<21\=>E\>=\(-)2\=>E>H\=>\Locate C+1,E+3," "
C<20\=>E\<=0\=>E<H\=>\Locate C+2,E+7," "
\Locate C,4+E,"H  "
\Locate C,5+E,"HH "
C<21\=>\Locate C+1,6+E,"H "
\If C>1
\Then \Mat A[4+E,C-1]\<>0\ Or \Mat A[5+E,C-1]\<>0\ Or \Mat A[6+E,C]\<>0\=>\Goto0
\IfEnd
\IfEnd
\Next 
\IfEnd
\Lbl 0
\If B=0
\Then 3+X\->X
\For 0\->H \To 1
\For 4\->F \To 5
C+H>21\=>\Goto\theta
1\->\Mat A[F+E,C+H]
\Next 
\Next 
\IfEnd
\If B=1\ And I=0
\Then 5+X\->X
\For 0\->H \To 3
C+H>21\=>\Goto\theta
2\->\Mat A[4+E,C+H]
\Next 
\IfEnd
\If B=1\ And I=1
\Then 6+X\->X
\For 0\->H \To 3
C>21\=>\Goto\theta
2\->\Mat A[4+E+H,C]
\Next 
\IfEnd
\If B=2\ And I=0
\Then 8+X\->X
\For 0\->H \To 2
C+2>21\=>\Goto\theta
3\->\Mat A[E+4,C+2]
3\->\Mat A[E+5,C+H]
\Next 
\IfEnd
\If B=2\ And I=1
\Then 9+X\->X
\For 0\->H \To 2
C+1>21\=>\Goto\theta
3\->\Mat A[E+4,C]
3\->\Mat A[E+4+H,C+1]
\Next 
\IfEnd
\If B=2\ And I=2
\Then 7+X\->X
\For 0\->H \To 2
C+H>21\=>\Goto\theta
3\->\Mat A[E+4,C+H]
3\->\Mat A[E+5,C]
\Next 
\IfEnd
\If B=2\ And I=3
\Then 6+X\->X
\For 0\->H \To 2
C+1>21\=>\Goto\theta
3\->\Mat A[E+4+H,C]
3\->\Mat A[E+6,C+1]
\Next 
\IfEnd
\If B=3\ And I=0
\Then 8+X\->X
\For 0\->H \To 2
C+2>21\=>\Goto\theta
4\->\Mat A[E+4,C+H]
4\->\Mat A[E+5,C+2]
\Next 
\IfEnd
\If B=3\ And I=1
\Then 6+X\->X
\For 0\->H \To 2
C+H>21\=>\Goto\theta
4\->\Mat A[E+4,C+1]
4\->\Mat A[E+4+H,C]
\Next 
\IfEnd
\If B=3\ And I=2
\Then 7+X\->X
\For 0\->H \To 2
C+H>21\=>\Goto\theta
4\->\Mat A[E+4,C]
4\->\Mat A[E+5,C+H]
\Next 
\IfEnd
\If B=3\ And I=3
\Then 9+X\->X
\For 0\->H \To 2
C+1>21\=>\Goto\theta
4\->\Mat A[E+6,C]
4\->\Mat A[E+4+H,C+1]
\Next 
\IfEnd
\If B=4\ And I=0
\Then 8+X\->X
\For 0\->H \To 2
C+1>21\=>\Goto\theta
5\->\Mat A[4+E+H,C+1]
5\->\Mat A[5+E,C]
\Next 
\IfEnd
\If B=4\ And I=1
\Then 8+X\->X
\For 0\->H \To 2
C+H>21\=>\Goto\theta
5\->\Mat A[4+E,C+H]
5\->\Mat A[5+E,C+1]
\Next 
\IfEnd
\If B=4\ And I=2
\Then 8+X\->X
\For 0\->H \To 2
C+1>21\=>\Goto\theta
5\->\Mat A[4+E+H,C]
5\->\Mat A[5+E,C+1]
\Next 
\IfEnd
\If B=4\ And I=3
\Then 8+X\->X
\For 0\->H \To 2
C+2>21\=>\Goto\theta
5\->\Mat A[4+E,C+1]
5\->\Mat A[5+E,C+H]
\Next 
\IfEnd
\If B=5\ And I=0
\Then 7+X\->X
C+2>21\=>\Goto\theta
6\->\Mat A[4+E,C]
6\->\Mat A[4+E,C+1]
6\->\Mat A[5+E,C+1]
6\->\Mat A[5+E,C+2]
\IfEnd
\If B=5\ And I=1
\Then 7+X\->X
C+1>21\=>\Goto\theta
6\->\Mat A[4+E,C+1]
6\->\Mat A[5+E,C]
6\->\Mat A[5+E,C+1]
6\->\Mat A[6+E,C]
\IfEnd
\If B=6\ And I=0
\Then 7+X\->X
C+2>21\=>\Goto\theta
7\->\Mat A[4+E,C+1]
7\->\Mat A[4+E,C+2]
7\->\Mat A[5+E,C]
7\->\Mat A[5+E,C+1]
\IfEnd
\If B=6\ And I=1
\Then 7+X\->X
C+1>21\=>\Goto\theta
7\->\Mat A[4+E,C]
7\->\Mat A[5+E,C]
7\->\Mat A[5+E,C+1]
7\->\Mat A[6+E,C+1]
\IfEnd
\Int 7\Ran#\->B
\If Z=1
\Then \If B=0
\Then \Locate 21,6,"#"
\Locate 20,6,"#"
\Locate 21,7,"#"
\Locate 20,7,"#"
\IfEnd
\If B=1
\Then \Locate 21,7,"O"
\Locate 20,7,"O"
\Locate 19,7,"O"
\Locate 18,7,"O"
\IfEnd
\If B=2
\Then \Locate 21,6,"*"
\Locate 21,7,"*"
\Locate 20,7,"*"
\Locate 19,7,"*"
\IfEnd
\If B=3
\Then \Locate 21,6,"\aster"
\Locate 21,7,"\aster"
\Locate 20,6,"\aster"
\Locate 19,6,"\aster"
\IfEnd
\If B=4
\Then \Locate 21,5,"8"
\Locate 21,6,"8"
\Locate 21,7,"8"
\Locate 20,6,"8"
\IfEnd
\If B=5
\Then \Locate 21,7,"\theta"
\Locate 20,6,"\theta"
\Locate 20,7,"\theta"
\Locate 19,6,"\theta"
\IfEnd
\If B=6
\Then \Locate 21,6,"H"
\Locate 20,6,"H"
\Locate 20,7,"H"
\Locate 19,7,"H"
\IfEnd
\IfEnd
G\->S
\Locate 21,2,(100-(\theta+10))/10
C\->J
J>17\=>17\->J
J<1\=>1\->J
\For J+3\->F \To J \Step \(-)1
'\For 2\->A \To 21
'22-A\->F
0\->D
\For 1\->C \To 7
\Mat A[C,F]\<>0\=>\Isz D
\Next 
\If D=7
\Then \Isz G
\For F\->E \To 20
\For 1\->C \To 7
\Mat A[C,E+1]\->\Mat A[C,E]
\Next 
\Next 
\IfEnd
\Next 
G-S=1\=>40+X\->X
G-S=2\=>100+X\->X
G-S=3\=>300+X\->X
G-S=4\=>1200+X\->X
\If G-S\<>0
\Then \Locate 9,1," POINTS="
\Locate 17,1,X
\Locate 9,2," ROWS="
T=1\=>\Locate 15,2,G
T=2\=>G\<=25\=>\Locate 15,2,25-G
\IfEnd
G-S=4\=>\Locate 13,4," TETRIS! "
T=2\=>G\>=25\=>\Goto\r
\If G-S\<>0
\Then \For 1\->A \To 350
\Next 
\ClrText
\For 1\->V \To 21
0\->D
\For 1\->U \To 7
\Getkey=31\=>\Getkey\->M
\Mat A[U,V]=0\=>\Isz D
\Mat A[U,V]=1\=>\Locate V,U,"#"
\Mat A[U,V]=2\=>\Locate V,U,"O"
\Mat A[U,V]=3\=>\Locate V,U,"*"
\Mat A[U,V]=4\=>\Locate V,U,"\aster"
\Mat A[U,V]=5\=>\Locate V,U,"8"
\Mat A[U,V]=6\=>\Locate V,U,"\theta"
\Mat A[U,V]=7\=>\Locate V,U,"H"
\Next 
D=7\=>\GotoS
\Next 
\Else \Locate 18,7,"    "
\Locate 19,6,"   "
\Locate 19,5,"   "
\IfEnd
\Lbl S
0\->N
\While M=31
\Getkey\->N
\Locate 7,4," PAUSED "
\Locate 7,4," PAUSED "
\Locate 7,4," PAUSED "
\Locate 7,4,"        "
\Locate 7,4,"        "
N=31\=>\Break
\WhileEnd
\GotoA
\Lbl \theta
\Locate 6,3,"           "
\Locate 6,4," GAME OVER "
\Locate 6,5,"           "
\Do
\LpWhile \Getkey\<>31
\ClrText
\Locate 1,1,"TOTAL SCORE="
\Locate 14,1,X
\Locate 1,2,"ROWS="
\Locate 7,2,G
\Do
\LpWhile \Getkey\<>31
\GotoE
\Lbl \r
\AxesOff
\GridOff
\LabelOff
\ClrText
\For 1\->A \To 5
\Locate 5,4,"YOU WON!!!"
\For 1\->B \To 50
\Next 
\Locate 5,4,"          "
\For 1\->B \To 20
\Next 
\Next 
\Locate 1,1,"TOTAL SCORE="
\Locate 14,1,X
\Do
\Locate 5,5,"PUSH [EXE]!"
\LpWhile \Getkey\<>31
\If ((100-(\theta+10))/10)=9
\Then \Cls
\Text 58,40,"(===========)"
\For 0\->A \To 30 \Step 5
\Text 53-A,40,"*"
\Next 
\Text 26,44,"---"
\For 0\->C \To 80
\Text 1,40,"           "
C<10\=>\Text 10-C,64,"!"
C<16\=>\Text 16-C,62,"("
C<16\=>\Text 16-C,67,")"
C<19\=>\Text 19-C,63,"-"
\For 0\->A \To 30 \Step 4
C<22+A\=>\Text 22+A-C,61,"[ ]"
\Next 
C<50\=>\Text 50-C,57,"\<=[ ]\>="
C<55\=>\Text 55-C,64,"^"
\If C<58
\Then \Orange \Text 58-C,63,"W"
\Orange \Text 58-C,63,"V"
\Orange \Text 58-C,63,"O"
\Orange \Text 58-C,63,"M"
\Orange \Text 58-C,63,"Y"
\Orange \Text 58-C,63,"U"
\Orange \Text 58-C,63,"  "
\IfEnd
\Next 
0\->C
\For 13\->B \To 127 \Step 6
\Isz C
C=1\=>\Text 20,B,"C"
C=2\=>\Text 20,B,"O"
C=3\=>\Text 20,B,"N"
C=4\=>\Text 20,B,"G"
C=5\=>\Text 20,B,"R"
C=6\=>\Text 20,B,"A"
C=7\=>\Text 20,B,"T"
C=8\=>\Text 20,B,"U"
C=9\=>\Text 20,B,"L"
C=10\=>\Text 20,B,"A"
C=11\=>\Text 20,B,"T"
C=12\=>\Text 20,B,"I"
C=13\=>\Text 20,B,"O"
C=14\=>\Text 20,B,"N"
C=15\=>\Text 20,B,"S"
C=16\=>\Text 20,B+6,"!"
\Text 1,1," "
\For 1\->A \To 25
\Next 
\Next 
\For 1\->A \To 500
\Next 
0\->D
\Cls
\Text 10,30,"GRAPHIC DESIGN:"
\GotoD
\Lbl B
\Cls
\Text 10,30,"PROGRAMMING:"
\GotoD
\Lbl C
\Cls
\Text 10,30,"IDEAS:"
0\->B
\For 1\->A \To 150 \Step 5
\Isz B
B=1\=>\Text 18,8+A,"S"
B=2\=>\Text 18,8+A,"A"
B=3\=>\Text 18,8+A,"W"
B=4\=>\Text 18,8+A,"A"
B=5\=>\Text 18,8+A,"N"
B=6\=>\Text 18,8+A,"G"
B=7\=>\Text 18,8+A,"P"
B=8\=>\Text 18,8+A,"O"
B=9\=>\Text 18,8+A,"N"
B=10\=>\Text 18,8+A,"G"
B=11\=>\Text 18,8+A," "
B=12\=>\Text 18,8+A,"P"
B=13\=>\Text 18,8+A,"H"
B=14\=>\Text 18,8+A,"A"
B=15\=>\Text 18,8+A,"M"
B=16\=>\Text 18,8+A,"V"
B=17\=>\Text 18,8+A,"O"
B=18\=>\Text 18,8+A,"N"
B=19\=>\Text 18,8+A,"G"
B=20\=>\Text 18,8+A,"H"
B=21\=>\Text 18,8+A,"O"
B=22\=>\Text 18,8+A,"R"
B=23\=>\Text 18,8+A,"A"
B=24\=>\Text 18,8+A,"."
\Text 1,1," "
\For 1\->C \To 25
\Next 
\Next 
\For 8\->A \To 127 \Step 3
\Text 18,A," SAWANGPONG PHAMVONGHORA."
\Next 
\Lbl D
\Isz D
0\->B
\For 1\->A \To 100 \Step 5
\Isz B
B=1\=>\Text 18,20+A,"B"
B=2\=>\Text 18,20+A,"."
B=3\=>\Text 18,20+A," "
B=4\=>\Text 18,20+A,"R"
B=5\=>\Text 18,20+A,"A"
B=6\=>\Text 18,20+A,"S"
B=7\=>\Text 18,20+A,"M"
B=8\=>\Text 18,20+A,"U"
B=9\=>\Text 18,20+A,"S"
B=10\=>\Text 18,20+A," "
B=11\=>\Text 18,20+A,"A"
B=12\=>\Text 18,20+A,"N"
B=13\=>\Text 18,20+A,"T"
B=14\=>\Text 18,20+A,"H"
B=15\=>\Text 18,20+A,"I"
B=16\=>\Text 18,20+A,"N"
B=17\=>\Text 18,20+A,"."
\Text 1,1," "
\For 1\->C \To 25
\Next 
\Next 
\For 18\->A \To 127 \Step 3
\Text 18,A," B. RASMUS ANTHIN."
\Next 
D=1\=>\GotoB
D=2\=>\GotoC
\Cls
\IfEnd
\Do
\LpWhile \Getkey\<>31
\AxesOn
\GotoE
%End