%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1180 File Name:[TETRIS] Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \BG-None \GridOff \AxesOff \FuncOff \SimulOff \S-WindMan 1\->D \While 1 \If D=1 \Then \ClrText \Locate 2,2,"[TETRIS]--PIERROTLL" \Locate 5,4,"JOUER" \Locate 5,5,"OPTIONS" \Locate 5,6,"RESET" \Locate 5,7,"QUITTER" 7\->C \Prog "TETRIS7" A=4\=>3\->D A=5\=>2\->D A=6\=>[[0,38,27,78,0]]\->\Mat Z A=7\=>\Prog "TETRIS6" \IfEnd \If D=2 \Then \ClrText \Locate 8,2,"OPTIONS" \Locate 5,4,"MODE GRAPHIQUE" \Locate 5,5,"COMMANDES" \Locate 5,6,"\->RETOUR" \Locate 1,7,"BEST SCORE:" \Locate 12,7,\Mat Z[1,1 6\->C \Prog "TETRIS7" A=4\=>4\->D A=5\=>5\->D A=6\=>1\->D \IfEnd \If D=3 \Then \ClrText \Locate 6,2,"DIMENTIONS" \Locate 5,4,"12*20" \Locate 5,5,"10*15" \Locate 5,6,"8*12" \Locate 5,7,"MANUEL" 7\->C \Prog "TETRIS7" A=4\=>12\->V A=4\=>20\->W A=5\=>10\->V A=5\=>15\->W A=6\=>8\->V A=6\=>12\->W \If A=7 \Then \Do \ClrText "LARGEUR (6~20)"?\->V "HAUTEUR (6~20)"?\->W \LpWhile V<6\ Or V>20\ Or W<6\ Or W>20 \IfEnd \Mat Z[1,5 \If \Ans=0 \Then \ViewWindow 0,42,0,1,21.5,0 \S-Gph2 \DrawOff,\Scatter,\List3,\List4,1,\Square \IfEnd \If \Ans=1 \Then \ViewWindow 0,42,0,1,21.5,0 \S-Gph2 \DrawOff,\Scatter,\List3,\List4,1,\Cross \IfEnd \If \Ans=2 \Then \ViewWindow 0,126,0,1,63,0 \S-Gph2 \DrawOff,\Scatter,\List3,\List4,1,\Dot \IfEnd \Prog "TETRIS1" \IfEnd \If D=4 \Then \ClrText \Locate 4,2,"MODE GRAPHIQUE" \Locate 5,4+\Mat Z[1,5,"[ ]" \Locate 6,4,"\Square" \Locate 6,5,"\Cross" \Locate 6,6,"\Dot" \Locate 5,7,"\->RETOUR" 7\->C \Prog "TETRIS7" A=4\=>0\->\Mat Z[1,5 A=5\=>1\->\Mat Z[1,5 A=6\=>2\->\Mat Z[1,5 A=7\=>1\->D \IfEnd \If D=5 \Then \ClrText \Locate 7,2,"COMMANDES" \Locate 5,4,"GAUCHE:" \Locate 5,5,"DROITE:" \Locate 5,6,"ROTATION:" \Locate 5,7,"\->RETOUR" 7\->C \For 4\->A \To 6 \Mat Z[1,A-2 \Prog "TETRIS5" \Next \Prog "TETRIS7" \If A=7 \Then 1\->D \Else \Locate 14,A,"[" \Locate 21,A,"]" \Do \Do \Getkey \LpWhile \Ans=0 \If \Ans\<>31 \Then \Ans\->\Mat Z[1,A-2 \Prog "TETRIS5" \IfEnd \LpWhile \Ans\<>31 \IfEnd \IfEnd \WhileEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:837 File Name:TETRIS1 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Mat Z[1,2\->R \Mat Z[1,3\->S \Mat Z[1,4\->T \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot \S-Gph3 \DrawOff {V+.6,V+.6,.3,.3,0,0,V+1,V+1,V+9,V+9,V+1}\->\List 1 {W+1,1.3,1.3,W+1,W+1,1,1,W+1,W+1,W-2,W-2}\->\List 2 {W+2,V}\->\Dim \Mat A {W+1,1}\->\Dim \Mat B \For 1\->A \To V 1\->\Mat A[1,A \Next 2\->\r \DrawStat \StoPict 1 \S-Gph1 \DrawOff \S-Gph2 \DrawOn 0\->F \While 1 \Int (V/2\->A W\->B 1\->Z \Int 7\Ran#+1\->C \Int 4\Ran#+1\->D \Prog "TETRIS3" \List 5+A\->\List 3 \List 6+B\->\List 4 0\->P~Q \Text 65-3W,3V+6,F \StoPict 1 \Do \Min(\List 4)\<=\r\->X \Getkey \Ans\=>\Prog "TETRIS2" \Dsz B \If X \Then 1\->Q \Prog "TETRIS4" O\=>\Isz B O\=>0\->Z \IfEnd 0\->P~Q \List 5+A\->\List 3 \List 6+B\->\List 4 \Cls \RclPict 1 \DrawStat \LpWhile Z \StoPict 1 F+2\->F \If \Max(\List 4)\>=W \Then \Pi \Prog "TETRIS6" \IfEnd \For 1\->A \To 4 \List 3[A\->X \List 4[A\->Y 1\->\Mat A[Y,X \Mat B[Y,1]+1\->\Mat B[Y,1 \Next \Max(\List 4)+1 \Ans>\r\=>\Ans\->\r 0\->Y \For 2\->A \To \r-1 \If \Mat B[A,1]=V \Then \For 1\->B \To V 0\->\Mat A[A,B] \Next 0\->\Mat B[A,1] \For A\->B \To \r-1 \Swap(A,B,B+1 \Swap(B,B,B+1 \Next \Dsz \r \Dsz A \Isz Y \IfEnd \Next \If Y \Then F+10Y+Y\Int (8000/(VW+1\->F 2\->E [[\(-)1][\(-)1]]\->\Mat C \For 2\->B \To \r-1 \For 1\->A \To V \If \Mat A[B,A] \Then \Augment(\Mat C,[[0][0]])\->\Mat C A\->\Mat C[1,E B\->\Mat C[2,E \Isz E \IfEnd \Next \Next \Trn \Mat C\->\Mat C \Mat->ListC,1)\->\List 3 \Mat->ListC,2)\->\List 4 \S-Gph1 \DrawOn \Cls \DrawStat \StoPict 1 \S-Gph1 \DrawOff \IfEnd \WhileEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:430 File Name:TETRIS2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If \Ans=T \Then \Isz D D=5\=>1\->D \Prog "TETRIS3" \List 5+A\->\List 3 \List 6+B\->\List 4 \Min(\List 3)<1\->O O=0\=>\Max(\List 3)>V\->O \If \Min(\List 4)<\r \Then O=0\=>\Max(\List 4)>W\->O O=0\=>\Prog "TETRIS4" \IfEnd \If O \Then D-1\->D D=0\=>4\->D \Prog "TETRIS3" \List 5+A\->\List 3 \List 6+B\->\List 4 \Else \Min(\List 4)\<=\r\->X \IfEnd \IfEnd \If \Ans=S \Then \If \Max(\List 3)P \Prog "TETRIS4" O=0\=>\Isz A O\=>0\->P \Else \Isz A \IfEnd \IfEnd \IfEnd \If \Ans=R \Then \If \Min(\List 3)>1 \Then \If X \Then \(-)1\->P \Prog "TETRIS4" O=0\=>\Dsz A O\=>0\->P \Else \Dsz A \IfEnd \IfEnd \IfEnd \If \Ans=48 \Then \Text 30,3V+10,"[ PAUSE ]" \Text 50,3V+10,"F6:QUITTER" \Do \Getkey \If \Ans=29 \Then \Pi \Prog "TETRIS6" \IfEnd \LpWhile \Ans\<>47 \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:816 File Name:TETRIS3 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record D=1\ Or D=3\->Y \If C=1 \Then {0,0,1,1}\->\List 5 {0,1,0,1}\->\List 6 \IfEnd \If C=2 \Then \If Y \Then {\(-)1,0,1,2}\->\List 5 {0,0,0,0}\->\List 6 \Else {0,0,0,0}\->\List 5 {\(-)1,0,1,2}\->\List 6 \IfEnd \IfEnd \If C=3 \Then \If Y \Then {\(-)1,0,0,1}\->\List 5 {1,1,0,0}\->\List 6 \Else {0,0,1,1}\->\List 5 {\(-)1,0,0,1}\->\List 6 \IfEnd \IfEnd \If C=4 \Then \If Y \Then {\(-)1,0,0,1}\->\List 5 {0,0,1,1}\->\List 6 \Else {1,1,0,0}\->\List 5 {\(-)1,0,0,1}\->\List 6 \IfEnd \IfEnd \If C=5 \Then \If D=1 \Then {0,0,0,1}\->\List 5 {\(-)1,0,1,1}\->\List 6 \IfEnd \If D=2 \Then {\(-)1,0,1,1}\->\List 5 {0,0,0,\(-)1}\->\List 6 \IfEnd \If D=3 \Then {\(-)1,0,0,0}\->\List 5 {\(-)1,\(-)1,0,1}\->\List 6 \IfEnd \If D=4 \Then {\(-)1,\(-)1,0,1}\->\List 5 {1,0,0,0}\->\List 6 \IfEnd \IfEnd \If C=6 \Then \If D=1 \Then {\(-)1,0,0,0}\->\List 5 {1,1,0,\(-)1}\->\List 6 \IfEnd \If D=2 \Then {\(-)1,0,1,1}\->\List 5 {0,0,0,1}\->\List 6 \IfEnd \If D=3 \Then {0,0,0,1}\->\List 5 {1,0,\(-)1,\(-)1}\->\List 6 \IfEnd \If D=4 \Then {\(-)1,\(-)1,0,1}\->\List 5 {\(-)1,0,0,0}\->\List 6 \IfEnd \IfEnd \If C=7 \Then \If D=1 \Then {\(-)1,0,0,1}\->\List 5 {0,0,\(-)1,0}\->\List 6 \IfEnd \If D=2 \Then {\(-)1,0,0,0}\->\List 5 {0,\(-)1,0,1}\->\List 6 \IfEnd \If D=3 \Then {\(-)1,0,0,1}\->\List 5 {0,0,1,0}\->\List 6 \IfEnd \If D=4 \Then {0,0,0,1}\->\List 5 {\(-)1,0,1,0}\->\List 6 \IfEnd \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:123 File Name:TETRIS4 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record Q\=>\List 4-Q\->\List 4 \List 3[1\->G \List 3[2\->H \List 3[3\->I \List 3[4\->J \List 4[1\->K \List 4[2\->L \List 4[3\->M \List 4[4\->N \Mat A[K,G+P]+\Mat A[L,H+P]+\Mat A[M,I+P]+\Mat A[N,J+P\->O %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:383 File Name:TETRIS5 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Locate 15,A," " \Ans=79\=>\Locate 15,A,"F1" \Ans=69\=>\Locate 15,A,"F2" \Ans=59\=>\Locate 15,A,"F3" \Ans=49\=>\Locate 15,A,"F4" \Ans=39\=>\Locate 15,A,"F5" \Ans=29\=>\Locate 15,A,"F6" \Ans=78\=>\Locate 15,A,"SHIFT" \Ans=77\=>\Locate 15,A,"ALPHA" \Ans=27\=>\Locate 15,A,"DROITE" \Ans=28\=>\Locate 15,A,"HAUT" \Ans=37\=>\Locate 15,A,"BAS" \Ans=38\=>\Locate 15,A,"GAUCHE" \Ans=72\=>\Locate 15,A,"1" \Ans=62\=>\Locate 15,A,"2" \Ans=52\=>\Locate 15,A,"3" \Ans=73\=>\Locate 15,A,"4" \Ans=63\=>\Locate 15,A,"5" \Ans=53\=>\Locate 15,A,"6" \Ans=74\=>\Locate 15,A,"7" \Ans=64\=>\Locate 15,A,"8" \Ans=54\=>\Locate 15,A,"9" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:346 File Name:TETRIS6 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If \Ans=\Pi \Then \ClrText \Locate 5,2,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster" \Locate 5,3,"\aster GAME OVER \aster" \Locate 5,4,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster" \If F>\Mat Z[1,1 \Then F\->\Mat Z[1,1 \Locate 2,6,"! NOUVEAU RECORD !" \IfEnd 11-(\Int (\Int \log F+7)/2 \Locate \Ans,7,"SCORE:" \Locate \Ans+6,7,F \Do \Getkey \LpWhile \Ans\<>31 \IfEnd {1,1}\->\Dim \Mat A \Mat A\->\Mat B \Mat A\->\Mat C \ClrList \ClrText \Locate 1,1,"CE JEU EST DIPONIBLE" \Locate 9,2,"SUR:" \Locate 5,4,"JEUXCASIO.COM" \Locate 3,5,"PLANETE-CASIO.FR" \Locate 1,7,"DANS LA PARTIE DIVERS" \Stop %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:159 File Name:TETRIS7 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Locate 1,1,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster" \Locate 1,2,"\aster" \Locate 21,2,"\aster" \Locate 1,3,"\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster\aster" 4\->A~B \Do \Locate 4,B," " \Locate 4,A,"\aster" A\->B \Do \Getkey \LpWhile \Ans=0 \Ans=28\=>A\<>4\=>\Dsz A \Ans=37\=>A\<>C\=>\Isz A \LpWhile \Ans\<>31 %End