%Header Record Format:MCS1 Type Number:1 File Name: DEMINE Option Name: Communication SW:0 Capacity:3285 Data Type:PG %Data Record Password: BaseN:0 \Lbl E \ClrText "======DEMINEUR====== [1]Nouvelle partie" "[2]Voir les scores" "[3]Initialiser" \Do \Getkey\->A A=47\=>\Stop \LpWhile A\<>72\ And A\<>62\ And A\<>52 \If A=52 \Then {6,2}\->\Dim \Mat O \AxesOff \BG-None \LabelOff \CoordOff \GridOff \ViewWindow 0,126,0,0,62,0 \For 1\->A \To 6 A+.4376743200\->\Mat O[A,1] 1\->\Mat O[A,2] \Next \For 0\->A \To 20 \F-Line 5A,0,5A,60 \F-Line 5A-1,0,5A-1,60 \Next \For 0\->A \To 12 \F-Line 0,5A,\EE2,5A A<12\=>\F-Line 0,5A+1,\EE2,5A+1 \Next \For 1\->A \To 12 \For 1\->B \To 20 \PlotChg 5B-4,5A-4 \PlotChg 5B-1,5A-1 \Next \Next \Text 50,104,"BOMBE" \Text 1,108,"CASE" \StoPict 2 \GotoE \IfEnd A=62\=>\GotoI \ClrText "======DEMINEUR====== Nombre de lignes 10\->12"?\->\r \r\<=9\=>\GotoI "Nombre de colonnes 10\->20"?\->\theta \theta\<=9\ Or \theta>20\=>\GotoI \Lbl A \ClrText "======DEMINEUR====== " "Nombre de mines \->" \Locate 17,3,\Int (\theta\r*.1 \Locate 20,3,\Int (\theta\r*.3 ?\->Z Z<\Int (\theta\r*.1)\ Or Z>\Int (\theta\r*.3\=>\GotoA \Lbl B \r=0\=>10\->\r \AxesOff \BG-None \LabelOff \CoordOff \GridOff \ViewWindow 0,126,0,0,62,0 {\r,\theta}\->\Dim \Mat A Z\->\Dim \List 1 \For 1\->A \To Z \Int (\r\Ran#+1\->B \Int (\theta\Ran#+1\->C \If \Mat A[B,C]=0 \Then .2\->\Mat A[B,C] B/100+C\->\List 1[A] \Else A-1\->A \IfEnd \Next \SortA(\List 1 \RclPict 2 \For 1\->A \To 12-\r \Text 5A-3,1," " \Next \For 1\->B \To 12 \For 1\->A \To 20-\theta \Text 5B-2,103-5A," " \Text 5B-2,102-5A," " \Next \Next \Text 56,108-4\Int (\log Z,Z \Text 50,104,"BOMBE" \Text 1,106,"CASE" \Text 56,112,"/" \Text 56,116,Z \Text 55,124,"." \StoPict 1 1\->A~B 0\->G Z\->H 0\->U~V \ClrText "PRET?"\Disp\Lbl C \Do \Cls \BG-Pict 1 \Mat A[A,B]\->D \Frac D=.5\=>\Text 7,113,\Int D D\>=10\ Or \Frac D\<>.5\=>\Text 7,113,"?" \Text 8-5(\r-10)+5A,5B-3,"*" \RclPict 1 \Do \Isz U \Getkey\->C \LpWhile C=0 C=47\=>\Stop C=37\=>\Isz A C=38\=>\Dsz B C=28\=>\Dsz A C=27\=>\Isz B A=0\=>\r\->A B=0\=>\theta\->B A\>=\r+1\=>1\->A B\>=\theta+1\=>1\->B \LpWhile C\<>79\ And C\<>29 \Cls \BG-Pict 1 \Text 8-5(\r-10)+5A,5B-3," " \F-Line 5B-4,5+5\r-5A,5B-1,5+5\r-5A \F-Line 5B-4,5\r-5A,5B-1,5\r-5A \If C=79 \Then \Mat A[A,B]\->D D\>=10\=>\Isz H D\>=10\=>\Text 56,108-4\Int (\log H,H U+10\->U \If \Frac D=0 \Then \Isz V U+7\->U 0\->E A\>=2\=>B\>=2\=>\Frac \Mat A[A-1,B-1]=.2\=>\Isz E B\>=2\=>\Frac \Mat A[A,B-1]=.2\=>\Isz E A<\r\=>B\>=2\=>\Frac \Mat A[A+1,B-1]=.2\=>\Isz E A\>=2\=>\Frac \Mat A[A-1,B]=.2\=>\Isz E A<\r\=>\Frac \Mat A[A+1,B]=.2\=>\Isz E A\>=2\=>B<\theta\=>\Frac \Mat A[A-1,B+1]=.2\=>\Isz E B<\theta\=>\Frac \Mat A[A,B+1]=.2\=>\Isz E A<\r\=>B<\theta\=>\Frac \Mat A[A+1,B+1]=.2\=>\Isz E E+.5\->\Mat A[A,B] \Int \Mat A[A,B]\->F F=0\=>\GotoD F=1\=>\Goto1 F=2\=>\Goto2 F=3\=>\Goto3 F=4\=>\Goto4 F=5\=>\Goto5 \IfEnd \Frac D=.2\=>\GotoG \IfEnd \If C=29\ And \Frac \Mat A[A,B]\<>.5 \Then \Mat A[A,B]\->D U+11\->U \Isz V \If D\<=9 \Then \If H>0 \Then \Frac D=.2\=>\Isz G G=Z\=>\GotoH \F-Line 5B-3,3+5\r-5A,5B-3,2+5\r-5A \F-Line 5B-2,3+5\r-5A,5B-2,2+5\r-5A \Mat A[A,B]+10\->\Mat A[A,B] \Dsz H \Else \F-Line 5B-2,1+5\r-5A,5B-3,1+5\r-5A \F-Line 5B-1,1+5\r-5A,5B-1,3+5\r-5A \IfEnd \Else \F-Line 5B-2,1+5\r-5A,5B-3,1+5\r-5A \F-Line 5B-1,1+5\r-5A,5B-1,3+5\r-5A \Mat A[A,B]-10\->\Mat A[A,B] \Isz H D=.2\=>\Dsz G \IfEnd \Text 56,104," " H\<>0\=>\Text 56,108-4\Int (\log H,H H=0\=>\Text 56,108,0 \GotoD \IfEnd \GotoC \Lbl 1 \F-Line 5B-2,5+5\r-5A,5B-2,5\r-5A \GotoD \Lbl 2 \F-Line 5B-1,3+5\r-5A,5B-3,4+5\r-5A \PlotOn 5B-2,2+5\r-5A \F-Line 5B-3,1+5\r-5A,5B-1,1+5\r-5A \GotoD \Lbl 3 \F-Line 5B-1,4+5\r-5A,5B-3,4+5\r-5A \F-Line 5B-1,3+5\r-5A,5B-1,2+5\r-5A \PlotOn 5B-2,3+5\r-5A \F-Line 5B-3,1+5\r-5A,5B-2,1+5\r-5A \GotoD \Lbl 4 \F-Line 5B-3,2+5\r-5A,5B-3,4+5\r-5A \PlotOn 5B-2,2+5\r-5A \F-Line 5B-1,4+5\r-5A,5B-1,1+5\r-5A \GotoD \Lbl 5 \F-Line 5B-1,4+5\r-5A,5B-3,4+5\r-5A \F-Line 5B-1,2+5\r-5A,5B-3,3+5\r-5A \F-Line 5B-2,1+5\r-5A,5B-3,1+5\r-5A \Lbl D \StoPict 1 \GotoC \Lbl G \Text 28,105,"PERDU" \For 1\->A \To Z \List 1[A]\->B \Int B\->C 100\Frac B\->D \For 1\->E \To 4 \F-Line 5C+E-5,4+5\r-5D,5C+E-5,5\r-5D \Next \Next \While \Getkey=0 \WhileEnd \ClrList1 \ClrMat A \GotoE \Lbl H \BG-None \Mat->List\Mat O,1\->\List 1 \Mat->List\Mat O,2\->\List 2 \Do \ClrText " " "~~~~~~~~GAGNE~~~~~~~~" U\>=\List 2[6]\=>" MEILLEUR SCORE" " " " " " " \LpWhile \Getkey=0 \ClrText \Int (U/100\->U "======= GAGNE =======TEMPS:" \Locate 8,2,U " " "ACTION:" \Locate 9,4,V " " "DIFFICULTE:" \Int (Z/10*(\r+\theta\->Z \Locate 13,6,Z "SCORE:" 199-U+200-V+Z\x^2/10\->U \Locate 8,7,U \While \Getkey=0 \WhileEnd \If U\>=\List 2[6] \Then 0\->\List 1[6] \ClrText "Entre ton nom (4 let\(-)tres max)" \While \Getkey\<>0 \WhileEnd \Locate 1,5,"\(-)\(-)\(-)\(-)" 5\->O \For 1\->N \To 4 \Do \Getkey\->M \LpWhile M=0 \Frac (M/10)\>=7\=>\Dsz N \Frac (M/10)<7\=>\Prog "LETTRE" \Frac (M/10)<7\=>\List 1[6]+M*\10^x-2N\->\List 1[6] \Next U\->\List 2[6] 0\->A \While A<6\ And U\>=\List 2[6-A] \Isz A A=6\=>\Break \WhileEnd \List 1[6]+7-A\->\List 1[6] \For 7-A\->A \To 5 \List 1[A]+1\->\List 1[A] \Next \SortA(\List 1,\List 2 \List->Mat(\List 1,\List \ClrList1 \ClrList2 2\->\Mat O \IfEnd \Lbl I \ClrText "==MEILLEURS SCORES==" \For 2\->O \To 7 \Frac \Mat O[O-1,1]\->P "...................." \For 1\->N \To 4 \Int (100\Frac (P*\10^x(2N-2\->M \Prog "LETTRE" \Next \Locate 21-\Int (\log \Mat O[O-1,2],O,\Mat O[O-1,2] \Next \While \Getkey=0 \WhileEnd \ClrText \GotoE\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:LETTRE Option Name: Communication SW:0 Capacity:400 Data Type:PG %Data Record Password: BaseN:0 M=76\=>\Locate N,O,"a" M=66\=>\Locate N,O,"b" M=56\=>\Locate N,O,"c" M=46\=>\Locate N,O,"d" M=36\=>\Locate N,O,"e" M=26\=>\Locate N,O,"f" M=75\=>\Locate N,O,"g" M=65\=>\Locate N,O,"h" M=55\=>\Locate N,O,"i" M=45\=>\Locate N,O,"j" M=35\=>\Locate N,O,"k" M=25\=>\Locate N,O,"l" M=74\=>\Locate N,O,"m" M=64\=>\Locate N,O,"n" M=54\=>\Locate N,O,"o" M=73\=>\Locate N,O,"p" M=63\=>\Locate N,O,"q" M=53\=>\Locate N,O,"r" M=43\=>\Locate N,O,"s" M=33\=>\Locate N,O,"t" M=72\=>\Locate N,O,"u" M=62\=>\Locate N,O,"v" M=52\=>\Locate N,O,"w" M=42\=>\Locate N,O,"x" M=32\=>\Locate N,O,"y" M=71\=>\Locate N,O,"z"\@00 %End