%Header Record Format:MCS1 Type Number:1 File Name:PTF EXTR Option Name: Communication SW:0 Capacity:2801 Data Type:PG %Data Record Password: BaseN:0 \Do 0\->A~Z \ViewWindow 1,127,0,1,63,0:\AxesOff:\Cls:\S-WindMan:\BG-None \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot {3,125,127,127,125,3,1,1,3,0,4,124,125,125,124,4,3,3,4}\->\List1 {1,1,3,61,63,63,61,3,1,0,3,3,4,60,61,61,60,4,3}\->\List2 \DrawStat 23\->B 38\->G 29\->C 33\->D 53\->E 43\->F {16,11,16,11,0,21,21,24,26,26,0,31,32,34,32,34,36,0,41,46,41,46,0,51,51,51,56,56,0,61,61,64,66,66,0,71,72,75,72,74,76,0,81,86,81,86,0,96,91,91,91,96,0,106,101,104,106,101,0,111,111,111,116}\->\List1 {E,F,D,B,0,B,G,D,G,B,0,B,C,C,C,G,B,0,B,D,F,E,0,E,B,C,G,B,0,B,G,D,G,B,0,B,C,C,C,G,B,0,B,D,F,E,0,B,D,E,F,F,0,B,C,G,C,C,0,B,G,D,G}\->\List2 \DrawStat \For 30\->A \To 240 \Step 2 A<45\=>\Text 49,A," PRESENTE" \Next \Cls \ViewWindow 1,127,0,\(-)63,\(-)1,0 \Text 30,30,"PTF E" \Text 30,60,"TREM" \Orange \F-Line 45,\(-)22,63,\(-)42 \Green \F-Line 45,\(-)42,63,\(-)22 \F-Line 47,\(-)22,61,\(-)42 \F-Line 43,\(-)42,65,\(-)22 \Text 1,1,"2009 SMASHMASTER" \Text 55,65,"PRESS ANY KEY" \F-Line 90,\(-)53,90,\(-)61 \F-Line 91,\(-)52,123,\(-)52 \F-Line 91,\(-)62,123,\(-)62 \F-Line 124,\(-)61,124,\(-)53 \Do \Getkey \LpWhile \Ans=0 \For 0\->A \To 4 \Orange \F-Line 91,\(-)57-A,123,\(-)57-A \Orange \F-Line 91,\(-)57+A,123,\(-)57+A \Next 0\->A~Z \Locate 1,1,"[1] ........... JOUER" \Locate 1,3,"[2] ............ AIDE" \Locate 1,5,"[3] ......... QUITTER" 0\->\theta \Do \Getkey=72\=>1\->\theta \Getkey=62\=>2\->\theta \Getkey=52\=>3\->\theta \LpWhile \theta=0 \If \theta=2 \Then \Cls \Orange \Text 1,1,"I. COMMANDE" \Text 9,1," POUR SE DEPLACER" \Text 15,1," POUR SAUTER" \Text 21,1," POUR FAIRE UNE PAUSE" \Orange \Text 29,1,"II. BUT DU JEU" \Text 37,1,"LE BUT EST DE REUSSIR LES" \Text 43,1,"NIVEAUX EN SAUTANT SUR LES" \Text 49,1,"PLATTE FORME,IL EXISTE" \Text 55,1,"PLUSIEURS PIEGE DANS CHAQUE" \Do \LpWhile \Getkey\<>31 \Cls \Text 1,1,"NIVEAU:" \Text 7,1,"-DES SAUT" \Text 13,1,"-DES OBJET DANGEREUX (FEU...)" \Text 19,1,"VOUS ETE UN \theta BLEU, LE SOL" \Text 25,1,"EST REPRESENTER PAR UN = BLEU" \IfEnd \If \theta=3 \Then \ClrText " " " " " " " " \Orange " " \Locate 7,4,"A BIENTOT" \Locate 7,5,"---------" \Stop \IfEnd \If \theta=1 \Then \ClrText \Locate 1,1,"INITIALISER: \Locate 1,4,"[1] ............. OUI" \Locate 1,7,"[2] ............. NON" 0\->A \Do \Getkey=72\=>1\->A \Getkey=62\=>2\->A \LpWhile A=0 \If A=1 \Then {1,1}\->\Dim \Mat D 1\->\Mat D[1,1] \IfEnd 0\->A \ClrText \Do {7,21}\->\Dim \Mat C \Locate 1,1,"CHARGEMENT" \If \Mat D[1,1]=1\ Or \Mat D[1,1]=5 \Then \For 1\->A \To 21 1\->\Mat C[1,A] 1\->\Mat C[7,A] \Next \For 1\->A \To 7 1\->\Mat C[A,1] 1\->\Mat C[A,21] \Next \For 1\->A \To 19 1\->\Mat C[5,A] 1\->\Mat C[3,22-A] \Next 6\->\Mat C[2,20] \If \Mat D[1,1]=5 \Then 4\->\Mat C[3,3] 4\->\Mat C[5,19] \IfEnd \IfEnd \If \Mat D[1,1]=2 \Then \For 1\->A \To 21 1\->\Mat C[7,A] 1\->\Mat C[1,A] \Next \For 1\->B \To 7 1\->\Mat C[B,1] 1\->\Mat C[B,A] \Next 0\->\Mat C[7,9] \For 1\->A \To 3 1\->\Mat C[7-A,5+A] \Next 6\->\Mat C[6,20] \IfEnd \If \Mat D[1,1]=3 \Then 6\->\Mat C[2,2] \For 1\->A \To 7 1\->\Mat C[A,1] 1\->\Mat C[A,21] 1\->\Mat C[3,A] 1\->\Mat C[1,A+7] 1\->\Mat C[1,A+14] 1\->\Mat C[1,A] 1\->\Mat C[7,A] 1\->\Mat C[5,A+8] \Next \IfEnd \If \Mat D[1,1]=4 \Then \For 1\->A \To 21 1\->\Mat C[1,A] 1\->\Mat C[7,A] \Next \For 1\->A \To 7 1\->\Mat C[A,1] 1\->\Mat C[A,21] \Next \For 5\->A \To 6 4\->\Mat C[A,5] 4\->\Mat C[A,8] 4\->\Mat C[A,11] \Next 6\->\Mat C[6,20] \IfEnd \If \Mat D[1,1]=6 \Then \For 1\->A \To 21 1\->\Mat C[1,A] \Next \For 11\->A \To 15 \Step 2 4\->\Mat C[6,A] \Next \For 6\->A \To 17 1\->\Mat C[7,A] \Next \For 1\->A \To 7 1\->\Mat C[A,1] 1\->\Mat C[A,21] 1\->\Mat C[7,A] 1\->\Mat C[4,A+10] \Next \For 1\->A \To 3 4\->\Mat C[7-A,7+A] 4\->\Mat C[8-A,17+A] \Next 4\->\Mat C[4,18] 6\->\Mat C[6,9] \IfEnd \If \Mat D[1,1]=7 \Then \Locate 1,1,"VOUS AVEZ FINI CE JEU" \Do \Getkey \LpWhile \Ans=0 1\->W \Else \ClrText 1\->A 1\->B \Do \Mat C[A,B]=1\=>\Locate B,A,"=" \Mat C[A,B]=6\=>\Locate B,A,"T" \Mat C[A,B]=4\=>\Locate B,A,"O" B+1\->B \If B=22 \Then 1\->B A+1\->A \IfEnd \LpWhile A\<>8 6\->A 2\->B \Prog "PTF MVMT" \IfEnd \LpWhile W=0 \IfEnd \LpWhile 1\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:PTF MVMT Option Name: Communication SW:0 Capacity:708 Data Type:PG %Data Record Password: BaseN:0 \Lbl 3 \Do \Locate B,A,"\theta" 0\->\r \Do \If \Getkey=27\ And \Mat C[A,B+1]\<>1 \Then B+1\->B \Locate B-1,A," " 1\->\r \IfEnd \If \Getkey=38\ And \Mat C[A,B-1]\<>1 \Then B-1\->B \Locate B+1,A," " 1\->\r \IfEnd \If \Getkey=47 \Then 1\->W \Return \IfEnd \Getkey=28\=>\Goto2 \LpWhile \r=0 \Mat C[A,B]=6\=>\Goto4 \Mat C[A+1,B]=4\ Or \Mat C[A,B]=4\=>\Goto1 \If \Mat C[A+1,B]=0 \Then \Do \Locate B,A," " A+1\->A \Getkey=27\ And \Mat C[A,B+1]=0\=>B+1\->B \Getkey=38\ And \Mat C[A,B-1]=0\=>B-1\->B A=7\ And \Mat C[A,B]=0\=>\Goto1 \Locate B,A,"\theta" \Mat C[A,B]=4\=>\Goto1 \LpWhile \Mat C[A+1,B]=0 \IfEnd \LpWhile 1 \Lbl 2 1\->E \Do \Locate B,A," " \Mat C[A-1,B]=4\ Or \Mat C[A,B]=4\=>\Goto1 \Mat C[A,B]=6\=>\Goto4 \Mat C[A-1,B]\<>1\=>A-1\->A \Getkey=27\=>\Mat C[A,B+1]\<>1\=>B+1\->B \Getkey=38\=>\Mat C[A,B-1]\<>1\=>B-1\->B \Locate B,A,"\theta" E+1\->E \LpWhile E\<>4 \Do \Locate B,A," " \Mat C[A+1,B]=0\=>A+1\->A \Getkey=27\ And \Mat C[A,B+1]=0\=>B+1\->B \Getkey=38\ And \Mat C[A,B-1]=0\=>B-1\->B \Locate B,A,"\theta" \Mat C[A+1,B]=4\=>\Goto1 A=7\=>\Goto1 \LpWhile \Mat C[A+1,B]=0 \Goto3 \Lbl 1 \ClrText "PERDU"\Disp\Return \Lbl 4 \ClrText "REUSSI"\Disp\Mat D[1,1]+1\->\Mat D[1,1] 1\->\theta \Return\@00 %End