      Games for casio calulators with source code please comment

2 replies to this topic

#1 samuelJohnson

samuelJohnson

Newbie

• • Members
• • 21 posts

• Calculators:
casio fx-9750GII

Posted 18 January 2019 - 02:35 PM

Klax

{0,0,0,1}  -> List 1

{0,0,0,1}  -> List 2

{0,0,0,1}  -> List 3

{0,0,0,1}  -> List 4

{0,0,0,1}  -> List 5

ViewWindow 1,127,0,1,63,0

For 7  ->A To 30   Step 4

Getkey=31  => Goto0

Text A-4,35," "

For 1  ->B To 2

Text A,35,"K"

Next

Next

For 7  ->A To 30   Step 4

Getkey=31  => Goto0

Text A-4,50," "

For 1  ->B To 2

Text A,50,"L"

Next

Next

For 7  ->A To 30   Step 4

Getkey=31  => Goto0

Text A-4,65," "

For 1  ->B To 2

Text A,65,"A"

Next

Next

For 7  ->A To 30   Step 4

Getkey=31  => Goto0

Text A-4,80," "

For 1  ->B To 2

Text A,80,"X"

Next

Next

For 7  ->A To 30   Step 4

Getkey=31  => Goto0

Text A-4,84," "

For 1  ->B To 2

Text A,84,"!"

Next

Next

For 57  ->A To 32   Step (-)4

Getkey=31  => Goto0

Text A+2,35,"             "

Text A,35,"============="

Next

For 1  ->A To 31

Getkey=31  => Goto0

Text 40,A," BY:"

Next

{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}  -> List 6

140  ->C

For 19  ->B To 25

For 69  ->A To 50   Step (-)1

Getkey=31  => Goto0

Not   List 6[C]  => Green PlotOn A,B

Dsz C

Next

Next

Orange   Text 40,74,"(  Rc) (-)98" Disp  Lbl 0

ClrText

For 1  ->A To 7

Locate 1,A,"#"

Locate 21,A,"#"

If A  <>4

Then   Locate 5,A,"I"

Locate 9,A,"I"

Locate 13,A,"I"

Locate 17,A,"I"

IfEnd

Next

10  ->A

4  ->B

7  -> theta

0  ->D~K

Do

Isz   theta

If   Not Frac (  theta/8)

Then   Int 7 Ran#+1  -> r

4(  Int 5  Ran#)+2  ->C

0  ->D

IfEnd

Not   Frac (  theta/2)  => Isz D

If   Getkey=28   And B=5

Then   Dsz B

A/4+.5  ->F

F=1  => List 1=4  => Goto1

F=2  => List 2=4  => Goto1

F=3  => List 3=4  => Goto1

F=4  => List 4=4  => Goto1

F=5  => List 5=4  => Goto1

If F=1   And List 1<4

Then E  -> List 1[  List 1]

List 1+1  -> List 1

E=1  => Locate A,9-  List 1," slash  slash slash"

E=2  => Locate A,9-  List 1,"###"

E=3  => Locate A,9-  List 1," Deg>  Deg> Deg>"

E=4  => Locate A,9-  List 1," 10^x  10^x 10^x"

E=5  => Locate A,9-  List 1,"==="

E=6  => Locate A,9-  List 1," theta  theta theta"

E=7  => Locate A,9-  List 1," aster  aster aster"

IfEnd

If F=2   And List 2<4

Then E  -> List 2[  List 2]

List 2+1  -> List 2

E=1  => Locate A,9-  List 2," slash  slash slash"

E=2  => Locate A,9-  List 2,"###"

E=3  => Locate A,9-  List 2," Deg>  Deg> Deg>"

E=4  => Locate A,9-  List 2," 10^x  10^x 10^x"

E=5  => Locate A,9-  List 2,"==="

E=6  => Locate A,9-  List 2," theta  theta theta"

E=7  => Locate A,9-  List 2," aster  aster aster"

IfEnd

If F=3   And List 3<4

Then E  -> List 3[  List 3]

List 3+1  -> List 3

E=1  => Locate A,9-  List 3," slash  slash slash"

E=2  => Locate A,9-  List 3,"###"

E=3  => Locate A,9-  List 3," Deg>  Deg> Deg>"

E=4  => Locate A,9-  List 3," 10^x  10^x 10^x"

E=5  => Locate A,9-  List 3,"==="

E=6  => Locate A,9-  List 3," theta  theta theta"

E=7  => Locate A,9-  List 3," aster  aster aster"

IfEnd

If F=4   And List 4<4

Then E  -> List 4[  List 4]

List 4+1  -> List 4

E=1  => Locate A,9-  List 4," slash  slash slash"

E=2  => Locate A,9-  List 4,"###"

E=3  => Locate A,9-  List 4," Deg>  Deg> Deg>"

E=4  => Locate A,9-  List 4," 10^x  10^x 10^x"

E=5  => Locate A,9-  List 4,"==="

E=6  => Locate A,9-  List 4," theta  theta theta"

E=7  => Locate A,9-  List 4," aster  aster aster"

IfEnd

If F=5   And List 5<4

Then E  -> List 5[  List 5]

List 5+1  -> List 5

E=1  => Locate A,9-  List 5," slash  slash slash"

E=2  => Locate A,9-  List 5,"###"

E=3  => Locate A,9-  List 5," Deg>  Deg> Deg>"

E=4  => Locate A,9-  List 5," 10^x  10^x 10^x"

E=5  => Locate A,9-  List 5,"==="

E=6  => Locate A,9-  List 5," theta  theta theta"

E=7  => Locate A,9-  List 5," aster  aster aster"

IfEnd

0  ->E~F

IfEnd

If C=A   And D=4 And   Not Frac ( theta/2)

Then   r ->E

Isz B

B=6  => Goto1

IfEnd

r=1  => Locate C,D,"  slash slash slash"

r=2  => Locate C,D,"###"

r=3  => Locate C,D,"  Deg> Deg> Deg>"

r=4  => Locate C,D,"  10^x 10^x 10^x"

r=5  => Locate C,D,"==="

r=6  => Locate C,D,"  theta theta theta"

r=7  => Locate C,D,"  aster aster aster"

D>1  => Locate C,D-1,"   "

If C  <>A And D=4   And Frac ( theta/2)

Then   Locate C,D,"   "

Isz H

IfEnd

B=4  => Locate A,4,"---"

If   Getkey=27   And A <>18

Then A+4  ->A

A>4  => Locate A-4,4,"   "

IfEnd

If   Getkey=38   And A <>2

Then A-4  ->A

A<18  => Locate A+4,4,"   "

IfEnd

E=1  => Locate A,4,"  slash slash slash"

E=2  => Locate A,4,"###"

E=3  => Locate A,4,"  Deg> Deg> Deg>"

E=4  => Locate A,4,"  10^x 10^x 10^x"

E=5  => Locate A,4,"==="

E=6  => Locate A,4,"  theta theta theta"

E=7  => Locate A,4,"  aster aster aster"

If   Not Frac (  theta/2)

Then   Locate 1,2,10  Frac (I/10)

Locate 1,1,  Int (I/10)

If   List 1=4

Then   If List 1  <>0

Then   If List 1=  List 1

Then   If List 1=  List 1

Then   Isz I

1  -> List 1

For 5  ->G To 7

Locate 2,G,"   "

Next

IfEnd

IfEnd

IfEnd

IfEnd

If   List 2=4

Then   If List 2  <>0

Then   If List 2=  List 2

Then   If List 2=  List 2

Then   Isz I

1  -> List 2

For 5  ->G To 7

Locate 6,G,"   "

Next

IfEnd

IfEnd

IfEnd

IfEnd

If   List 3=4

Then   If List 3  <>0

Then   If List 3=  List 3

Then   If List 3=  List 3

Then   Isz I

1  -> List 3

For 5  ->G To 7

Locate 10,G,"   "

Next

IfEnd

IfEnd

IfEnd

IfEnd

If   List 4=4

Then   If List 4  <>0

Then   If List 4=  List 4

Then   If List 4=  List 4

Then   Isz I

1  -> List 4

For 5  ->G To 7

Locate 14,G,"   "

Next

IfEnd

IfEnd

IfEnd

IfEnd

If   List 5=4

Then   If List 5  <>0

Then   If List 5=  List 5

Then   If List 5=  List 5

Then   Isz I

1  -> List 5

For 5  ->G To 7

Locate 18,G,"   "

Next

IfEnd

IfEnd

IfEnd

IfEnd

IfEnd

H=20  => Goto1

If   Getkey=31

Then   Do

Cls

For 1  ->G To 5

Text 30,50,"PAUSED!"

Next

LpWhile   Getkey <>31

IfEnd

LpWhile 1

Lbl 1

ClrText

" "

" "

Green "     GAME OVER!"

" "

" "

" TOTAL SCORE:"

Int (1000I/(H+1))

Stop

Edited by samuelJohnson, 18 January 2019 - 02:38 PM.

#2 sentaro21

sentaro21

Casio Freak

• • Members
•    • 254 posts
• Gender:Male
• Location:JAPAN

• Calculators:
FX-603P fx-4800P fx-5800P
CFX-9850GC PLUS
fx-9860G
fx-9860GII
fx-9860GII-2
fx-9860GII-2 SD
fx-CG10
fx-CG20
fx-CG50
HP-Prime
HP 50G
TI-Nspire CX CAS
TI-84+CE

Posted 20 January 2019 - 11:17 AM

It seems to be a port of Klax,
Is there an original source?

The formatting of the source program was a little hard,
it finally worked.
but I don't understand well how to play. #3 samuelJohnson

samuelJohnson

Newbie

• • Members
• • 21 posts

• Calculators:
casio fx-9750GII

Posted 01 February 2019 - 02:47 PM

I dont know how to play I download the games and give people the source code

Format:TXT
Communication SW:0
Data Type:PG
Capacity:2159
File Name:TETRIS
Group Name:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\GridOff
\CoordOff
\LabelOff
\FuncOff
\S-WindMan
\BG-None
\ViewWindow 0,41.66667,0,0,20.6666667,0
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\S-Gph2 \DrawOff,\xyLine,\List1,\List2,1,\Dot
\Cls
\Text 28,17,"PLANETE-CASIO PRESENTS"
{1,2,3,3,3,3,3,4,5,7,7,7,7,7,8,8,8,9,9,9,11,12,13,13,13,13,13,14,15,17,17,17,17,17,18,18,18,19,19,19,21,21,22,22,22,22,22,23,23,25,25,25,25,26,26,26,27,27,27,27}\->\List 1
{20,20,20,19,18,17,16,20,20,20,19,18,17,16,20,18,16,20,18,16,20,20,20,19,18,17,16,20,20,20,19,18,17,16,20,18,20,19,17,16,20,16,20,19,18,17,16,20,16,20,19,18,16,20,18,16,20,18,17,16}\->\List 2
\Cls
\DrawStat
\Text 20,70,"BY NEURONIX"
\Text 58,18,"WWW.PLANETE\(-)CASIO.FR"
\Do
\Text 35,38,"PRESS [EXE]"
\Text 35,38,"           "
\Getkey
\LpWhile \Ans=0
\Cls
\Do
\Do
\Do
\ClrText
\Locate 1,1,"TETRIS V1.0--NEURONIX"
\Locate 1,2,"====================="
\Locate 6,3,"\->PLAY"
\Locate 7,4,"SCORES"
\Locate 1,6,"====================="
\Locate 1,7,"RESET"
\Locate 17,7,"QUIT"
1\->X
\Do
\Do
\Getkey
\LpWhile (\Ans=28\ Or \Ans=37\ Or \Ans=31\ Or \Ans=79\ Or \Ans=29)=0
\Ans\<>31\=>\Locate 6,2+X," "
\Ans=28\=>X>1\=>\Dsz X
\Ans=37\=>X<3\=>\Isz X
\Locate 6,2+X,"\->"
\LpWhile (\Ans=31\ Or \Ans=79\ Or \Ans=29)=0
\If \Ans=79
\Then 0\->X
{5,1}\->\Dim \Mat E
\Locate 6,7,":OK"
\IfEnd
\Ans=29\=>4\->X
\ClrText
\If X=1
\Then \Locate 1,1,"NEW GAME"
\Locate 1,2,"====================="
\Locate 6,3,"\->BIG (12*21)"
\Locate 7,4,"MEDIUM (10*18)"
\Locate 7,5,"SMALL (8*16)"
\Locate 7,6,"MANUAL"
\Locate 1,7,"====================="
1\->Y
\Do
\Do
\Getkey
\LpWhile (\Ans=28\ Or \Ans=37\ Or \Ans=31\ Or \Ans=48\ Or \Ans=47)=0
\Ans=28\ Or \Ans=37\=>\Locate 6,2+Y," "
\Ans=28\=>Y>1\=>\Dsz Y
\Ans=37\=>Y<4\=>\Isz Y
\Locate 6,2+Y,"\->"
\LpWhile \Ans=28\ Or \Ans=37
\If \Ans=31
\Then \If Y=1
\Then 12\->M
21\->N
\IfEnd
\If Y=2
\Then 10\->M
18\->N
\IfEnd
\If Y=3
\Then 8\->M
16\->N
\IfEnd
\If Y=4
\Then \Do
\ClrText
"WIDTH(6~21)"?\->M
"HEIGHT(10~21)"?\->N
\Abs \Int M\->M
\Abs \Int N\->N
\LpWhile M>21\ Or M<6\ Or N<10\ Or N>21\ Or M*N>255
\IfEnd
\IfEnd
\LpWhile \Ans=28\ Or \Ans=37
\Ans\<>31\=>0\->X
\IfEnd
\If X=2
\Then " "
\Locate 1,1,"HIGHEST SCORES"
\For 1\->Z \To 5
\Locate 3,2+Z,Z
\Locate 4,2+Z,"."
\Locate 6,2+Z,\Mat E[Z,1]
\Next
\Locate 1,2,""\Disp\IfEnd
\If X=3
\Then " "
\Locate 4,3,"4:MOVE LEFT"
\Locate 4,4,"5:ROTATE"
\Locate 4,5,"6:MOVE RIGHT"
" "
\Locate 1,3,"WWW.PLANETE-CASIO.FR"
\Locate 2,4,"\->JEUX\slashGAMES"
\Locate 3,5,"\->GRAPH 30~100"
\Locate 4,6,"\->DIVERS"\Disp\IfEnd
\If X=4
\Then \File2
\ClrList
\File1
\ClrList
{1,1}\->\Dim \Mat A
{1,1}\->\Dim \Mat B
{1,1}\->\Dim \Mat C
{1,1}\->\Dim \Mat D
\ClrGraph
0
\Stop
\IfEnd
\LpWhile X\<>1
\Int (M/2)\->A
N\->B
\Int 7\Ran#+1\->C
1\->D
\File1
\ClrList
{N,M}\->\Dim \Mat A
{N,M}\->\Dim \Mat B
\File2
\ClrList
{0,0,M+1,M+1,M+.7,M+.7,0.3,0.3}\->\List 1
{N-.6,0,0,N-.6,N-.6,0.3,0.3,N-.6}\->\List 2
\S-Gph1 \DrawOff
\S-Gph2 \DrawOn
\BG-None
\Cls
\DrawStat
\StoPict 1
\BG-Pict 1
\S-Gph1 \DrawOn
\S-Gph2 \DrawOff
\File1
0\->O
\Prog "TTMAIN"
\For 1\->Z \To 5
\If O>\Mat E[Z,1]
\Then \If Z<5
\Then \For 4\->X \To Z \Step \(-)1
\Swap(E,X,X+1
\Next
O\->\Mat E[Z,1]
\Else O\->\Mat E[5,1]
\IfEnd
\ClrText
\Locate 4,4,"NEW HIGH SCORE!"
\Locate 10-\Int (\log O/2),5,O\Disp\Break
\IfEnd
\Next
\LpWhile 1

%End
Format:TXT
Communication SW:0
Data Type:PG
Capacity:518
File Name:TTMAIN
Group Name:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\Prog "TTPARTS"
\Do
\Getkey\->K
\If K
\Then K=48\ Or K=47\=>\Return
\If K=73\ And \Min(\List 3)+A>1
\Then 1
\For 1\->F \To 4
\List 3[F]\->X
\List 4[F]\->Y
\Mat A[B+Y,A+X-1]\=>0
\Next
\Ans\=>\Dsz A
\IfEnd
\If K=53\ And \Max(\List 3)+A<M
\Then 1
\For 1\->F \To 4
\List 3[F]\->X
\List 4[F]\->Y
\Mat A[B+Y,A+X+1]\=>0
\Next
\Ans\=>\Isz A
\IfEnd
\If K=63\ And B>2
\Then \Isz D
D=5\=>1\->D
\Prog "TTPARTS"
\IfEnd
\IfEnd
\Min(\List 4)+B-1
\Ans<1\=>\Break
0\->E
\If \Mat B[\Ans,1]>0
\Then \For 1\->X \To 4
\List 4[X]+B-1\->G
\List 3[X]+A\->H
\Mat A[G,H]=1\=>\Isz E
E\=>\Break
\Next
\IfEnd
E=0\=>\Dsz B
\List 3+A\->\List 1
\List 4+B\->\List 2
\Cls
\DrawStat
\LpWhile E=0
\StoPict 1
0\->I
\For 1\->X \To 4
\List 3[X]\->G
\List 4[X]\->H
H+B=N\=>\Return
1\->\Mat A[H+B,G+A]
\Mat B[H+B,1]+1\->\Mat B[H+B,1]
\Mat B[H+B,1]\>=M\=>\Isz I
\Next
I\=>\Prog "TTDEL"
\Int (M/2)\->A
N\->B
\Int 7\Ran#+1\->C
1\->D
\LpWhile 1

%End
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1919
File Name:TTPARTS
Group Name:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If C=1
\Then \If D=1
\Then \If A>M-2
\Then 4\->D
\Return
\Else \If \Mat A[B,A+1]
\Then 4\->D
\Return
\IfEnd
\IfEnd
{\(-)1,0,1,0}\->\List 3
{0,0,0,\(-)1}\->\List 4
\IfEnd
\If D=2
\Then \If B=N
\Then 1\->D
\Return
\IfEnd
\If \Mat A[B+1,A]
\Then 1\->D
\Return
\IfEnd
{0,0,0,1}\->\List 3
{\(-)1,0,1,0}\->\List 4
\IfEnd
\If D=3
\Then \If A<2
\Then 2\->D
\Return
\Else \If \Mat A[B,A-1]
\Then 2\->D
\Return
\IfEnd
\IfEnd
{\(-)1,0,1,0}\->\List 3
{0,0,0,1}\->\List 4
\IfEnd
\If D=4
\Then \If \Mat A[B-1,A]
\Then 3\->D
\Return
\IfEnd
{0,0,0,\(-)1}\->\List 3
{\(-)1,0,1,0}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=2
\Then {0,0,1,1}\->\List 3
{0,\(-)1,\(-)1,0}\->\List 4
\Return
\IfEnd
\If C=3
\Then \If D=1\ Or D=3
\Then \If A=M\ Or A<3
\Then 4\->D
\Return
\IfEnd
\If \Mat A[B,A+1]
\Then 4\->D
\Return
\IfEnd
\If \Mat A[B,A-1]\ Or \Mat A[B,A-2]
\Then 4\->D
\Return
\IfEnd
{\(-)2,-1,0,1}\->\List 3
{0,0,0,0}\->\List 4
\IfEnd
\If D=2\ Or D=4
\Then \If B<3
\Then 1\->D
\Return
\IfEnd
\If B>2
\Then \If \Mat A[B-1,A]\ Or \Mat A[B-2,A]
\Then 1\->D
\Return
\IfEnd
\IfEnd
{0,0,0,0}\->\List 3
{\(-)2,-1,0,1}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=4
\Then \If D=1\ Or D=3
\Then \If A=1\ Or \Mat A[B-1,A+1]
\Then 2\->D
\Return
\IfEnd
\If \Mat A[B-1,A]\ Or \Mat A[B-1,A-1]
\Then 2\->D
\Return
\IfEnd
{\(-)1,0,0,1}\->\List 3
{\(-)1,\(-)1,0,0}\->\List 4
\IfEnd
\If D=2\ Or D=4
\Then \If \Mat A[B-1,A-1]\ Or \Mat A[B-1,A]
\Then 1\->D
\Return
\IfEnd
{0,0,1,1}\->\List 3
{1,0,0,\(-)1}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=5
\Then \If D=2\ Or D=4
\Then \If B=N
\Then 1\->D
\Return
\IfEnd
\If \Mat A[B,A+1]\ Or \Mat A[B+1,A+1]
\Then 1\->D
\Return
\IfEnd
{0,0,1,1}\->\List 3
{\(-)1,0,0,1}\->\List 4
\IfEnd
\If D=1\ Or D=3
\Then \If A=M
\Then 2\->D
\Return
\IfEnd
\If A=1\ Or \Mat A[B-1,A]\ Or \Mat A[B-1,A+1]
\Then 2\->D
\Return
\IfEnd
{\(-)1,0,0,1}\->\List 3
{0,0,\(-)1,\(-)1}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=6
\Then \If D=1
\Then \If A<3\ Or B=1
\Then 4\->D
\Return
\IfEnd
\If \Mat A[B,A-2]\ Or \Mat A[B-1,A]
\Then 4\->D
\Return
\IfEnd
{\(-)2,\(-)1,0,0}\->\List 3
{0,0,0,\(-)1}\->\List 4
\IfEnd
\If D=2
\Then \If B<3\ Or A=12
\Then 1\->D
\Return
\IfEnd
\If \Mat A[B,A-1]\ Or \Mat A[B-2,A]
\Then 1\->D
\Return
\IfEnd
{0,0,0,1}\->\List 3
{\(-)2,\(-)1,0,0}\->\List 4
\IfEnd
\If D=3
\Then \If A>M-2\ Or B=N
\Then 2\->D
\Return
\IfEnd
\If \Mat A[B+1,A]\ Or \Mat A[B,A+2]
\Then 2\->D
\Return
\IfEnd
{0,0,1,2}\->\List 3
{1,0,0,0}\->\List 4
\IfEnd
\If D=4
\Then \If A=1\ Or B>N-2
\Then 3\->D
\Return
\IfEnd
\If \Mat A[B,A-1]\ Or \Mat A[B+1,A]\ Or \Mat A[B+2,A]
\Then 3\->D
\Return
\IfEnd
{\(-)1,0,0,0}\->\List 3
{0,0,1,2}\->\List 4
\IfEnd
\Return
\IfEnd
\If C=7
\Then \If D=1
\Then \If A>M-2
\Then 4\->D
\Return
\IfEnd
\If \Mat A[B,A+1]\ Or \Mat A[B,A+2]
\Then 4\->D
\Return
\IfEnd
{0,0,1,2}\->\List 3
{\(-)1,0,0,0}\->\List 4
\IfEnd
\If D=2
\Then \If B>N-2
\Then 1\->D
\Return
\IfEnd
\If \Mat A[B+1,A]\ Or \Mat A[B+2,A]
\Then 1\->D
\Return
\IfEnd
{0,0,0,1}\->\List 3
{2,1,0,0}\->\List 4
\IfEnd
\If D=3
\Then \If A<3
\Then 2\->D
\Return
\IfEnd
\If \Mat A[B,A-1]\ Or \Mat A[B,A-2]
\Then 2\->D
\Return
\IfEnd
{\(-)2,\(-)1,0,0}\->\List 3
{0,0,0,1}\->\List 4
\IfEnd
\If D=4
\Then \If A=1\ Or B<3
\Then 3\->D
\Return
\IfEnd
\If \Mat A[B-1,A]\ Or \Mat A[B-2,A]
\Then 3\->D
\Return
\IfEnd
{\(-)1,0,0,0}\->\List 3
{0,0,\(-)1,\(-)2}\->\List 4
\IfEnd
\Return
\IfEnd

%End
Format:TXT
Communication SW:0
Data Type:PG
Capacity:445
File Name:TTDEL
Group Name:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 58,75,"CALCUL.."
0\->J
\For 1\->Y \To N
\Mat B[Y,1]\>=M\=>\Isz J
\Next
\Do
J-1\->J
0\->Y
\Do
Y+1\->Y
\Mat B[Y,1]
\Ans\>=M\=>\Break
\LpWhile 1
0\->\Mat B[Y,1]
O+\Int (8000/(M*N))\->O
Y\->G
\Do
G=N\=>\Break
\Isz G
\LpWhile \Mat B[G,1]
\For 1\->X \To M
0\->\Mat A[Y,X]
\Next
\For Y\->H \To G-1
\Swap(A,H,H+1
\Swap(B,H,H+1
\Next
\LpWhile J
\Seq(X,X,1,M,1)\->\List 1
M\->\Dim \List 2
\Trn \Mat A\->\Mat A
\For 1\->Y \To N
\Mat->List\Mat A,Y)\->\List 3
\Fill(Y,2)
\List 3*\List 1\->\List 4
\List 3*\List 2\->\List 2
\List->Mat(4,2)\->\Mat C
\If Y=1
\Then \Trn \Mat C\->\Mat D
\Else \Augment(\Mat D,\Trn \Mat C)\->\Mat D
\IfEnd
\Next
\Trn \Mat A\->\Mat A
\Trn \Mat D\->\Mat D
\Mat->List\Mat D,1)\->\List 1
\Mat->List\Mat D,2)\->\List 2
\BG-None
\Cls
\File2
\S-Gph1 \DrawOff
\S-Gph2 \DrawOn
\DrawStat
\File1
\S-Gph1 \DrawOn
\S-Gph2 \DrawOff
\DrawStat
\StoPict 1
\BG-Pict 1

%End

Thats the  code to tetris reply if you want a certain game

i will do my best to get it

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users 