Jump to content



Photo
- - - - -

Games for casio calulators with source code please comment


  • Please log in to reply
2 replies to this topic

#1 PhantomOverrideAlpha

PhantomOverrideAlpha

    Casio Fan

  • Members
  • PipPip
  • 45 posts
  • Gender:Male
  • Location:Massillon Ohio USA
  • Interests:Coding
    Hacking
    music
    porting

  • Calculators:
    casio FX-9750GII
    casio FX-9860GIII
    Casio FX-9750GIII

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 14=4  => Goto1

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

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

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

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

 If F=1   And List 14<4

 Then E  -> List 1[  List 14]

 List 14+1  -> List 14

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

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

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

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

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

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

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

 IfEnd

 If F=2   And List 24<4

 Then E  -> List 2[  List 24]

 List 24+1  -> List 24

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

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

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

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

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

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

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

 IfEnd

 If F=3   And List 34<4

 Then E  -> List 3[  List 34]

 List 34+1  -> List 34

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

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

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

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

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

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

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

 IfEnd

 If F=4   And List 44<4

 Then E  -> List 4[  List 44]

 List 44+1  -> List 44

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

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

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

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

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

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

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

 IfEnd

 If F=5   And List 54<4

 Then E  -> List 5[  List 54]

 List 54+1  -> List 54

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

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

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

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

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

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

E=7  => Locate A,9-  List 54," 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 14=4

 Then   If List 11  <>0

 Then   If List 11=  List 12

 Then   If List 12=  List 13

 Then   Isz I

1  -> List 14

 For 5  ->G To 7

 Locate 2,G,"   "

 Next

 IfEnd

 IfEnd

 IfEnd

 IfEnd

 If   List 24=4

 Then   If List 21  <>0

 Then   If List 21=  List 22

 Then   If List 22=  List 23

 Then   Isz I

1  -> List 24

 For 5  ->G To 7

 Locate 6,G,"   "

 Next

 IfEnd

 IfEnd

 IfEnd

 IfEnd

 If   List 34=4

 Then   If List 31  <>0

 Then   If List 31=  List 32

 Then   If List 32=  List 33

 Then   Isz I

1  -> List 34

 For 5  ->G To 7

 Locate 10,G,"   "

 Next

 IfEnd

 IfEnd

 IfEnd

 IfEnd

 If   List 44=4

 Then   If List 41  <>0

 Then   If List 41=  List 42

 Then   If List 42=  List 43

 Then   Isz I

1  -> List 44

 For 5  ->G To 7

 Locate 14,G,"   "

 Next

 IfEnd

 IfEnd

 IfEnd

 IfEnd

 If   List 54=4

 Then   If List 51  <>0

 Then   If List 51=  List 52

 Then   If List 52=  List 53

 Then   Isz I

1  -> List 54

 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 Technician

  • Members
  • PipPipPipPipPipPip
  • 369 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. :rolleyes:


#3 PhantomOverrideAlpha

PhantomOverrideAlpha

    Casio Fan

  • Members
  • PipPip
  • 45 posts
  • Gender:Male
  • Location:Massillon Ohio USA
  • Interests:Coding
    Hacking
    music
    porting

  • Calculators:
    casio FX-9750GII
    casio FX-9860GIII
    Casio FX-9750GIII

Posted 01 February 2019 - 02:47 PM

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


%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2159
File Name:TETRIS
Group Name:
Password:
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 7,5,"READ ME"
\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 1,1,"READ ME"
\Locate 4,3,"4:MOVE LEFT"
\Locate 4,4,"5:ROTATE"
\Locate 4,5,"6:MOVE RIGHT"
\Locate 4,6,"MENU:QUIT"\Disp\ClrText
" "
\Locate 1,1,"MORE INFO"
\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
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:518
File Name:TTMAIN
Group Name:
Password:
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
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1919
File Name:TTPARTS
Group Name:
Password:
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
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:445
File Name:TTDEL
Group Name:
Password:
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