%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:8003 File Name:HEADTRAP Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record '=== MATRONIX 1S4 ==== MATRONIX@HOTMAIL.FRWWW.PLANETE\(-)CASIO.FR \Norm \Lbl \r \ClrText \Locate 5,1,"~HEAD TRAP !~":\Locate 11,2,"BY MATRONIX":\Locate 1,4,"1. JOUER !":\Locate 1,5,"2. HI\(-)SCORES !":\Locate 1,6,"3. INSTALLER LE JEU !":\Locate 1,7,"4. BESOIN D'AIDE ?" \Do:\Getkey\->G:\LpWhile G\<>72\ And G\<>62\ And G\<>52\ And G\<>73 \ClrText G=72\=>\Goto0:G=62\=>\GotoA:G=73\=>\GotoB \If G=52 \Then \Locate 1,1,"\-> INSTALLER LE JEU !":\Locate 1,3,"ATTENTION ! SI LE JEU":\Locate 1,4,"EST DEJA INSTALLE,":\Locate 1,5,"CELA EFFACERA VOS":\Locate 1,6,"HI\(-)SCORES. INSTALLER?":\Locate 1,7,"1. OUI 2. NON" \Do:\Getkey:\LpWhile \Ans\<>72\ And \Ans\<>62 \Ans=72\=>{4,6}\->\Dim \Mat A:\Goto\r \IfEnd \Lbl A \ClrText \Locate 6,1,"ANALYSE..." 0\->C \For 1\->A \To 4:\For 1\->B \To 5:C+\Mat A[A,B]\->C:C\sqrt2\->C:\Next :\Next :C\<>\Mat A[3,6]\=>\GotoD \Locate 6,1,"~HI\(-)SCORES~" \For 1\->A \To 4 \Locate 1,A+2,"NIV ." \Locate 5,A+2,A \Locate 13,A+2,\Mat A[A,1] \Next \For 1\->A \To 4:\For 2\->B \To 5 \Mat A[A,B]\->C B+6\->H:A+2\->G C=76\=>\Locate H,G,"A":C=66\=>\Locate H,G,"B":C=56\=>\Locate H,G,"C":C=46\=>\Locate H,G,"D":C=36\=>\Locate H,G,"E":C=26\=>\Locate H,G,"F":C=75\=>\Locate H,G,"G":C=65\=>\Locate H,G,"H":C=55\=>\Locate H,G,"I":C=45\=>\Locate H,G,"J":C=35\=>\Locate H,G,"K":C=25\=>\Locate H,G,"L":C=74\=>\Locate H,G,"M":C=64\=>\Locate H,G,"N":C=54\=>\Locate H,G,"O":C=73\=>\Locate H,G,"P":C=63\=>\Locate H,G,"Q":C=53\=>\Locate H,G,"R":C=43\=>\Locate H,G,"S":C=33\=>\Locate H,G,"T":C=72\=>\Locate H,G,"U":C=62\=>\Locate H,G,"V":C=52\=>\Locate H,G,"W":C=42\=>\Locate H,G,"X":C=32\=>\Locate H,G,"Y":C=71\=>\Locate H,G,"Z":C=57\=>\Locate H,G,"^":C=61\=>\Locate H,G," ":C=0\=>\Locate H,G,"?":C=41\=>\Locate H,G,"\(-)":\Next :\Next \Locate 21,7,"\->" \If \Mat A[1,6]\<>0 \Then \Locate 1,7,"NIV 5.":\Locate 8,7,\Mat A[1,6] \IfEnd \Do:\Getkey:\LpWhile \Ans=0 \Ans\<>27\=>\Goto\r \Locate 8,2,"MONDIAUX !!!":\Locate 19,1,"V2":\Locate 8,3,"LUSG 54200 ":\Locate 8,4,"SYHR 41978 ":\Locate 8,5,"MATR 52238 ":\Locate 8,6,"MATR 85822 ":\Locate 1,7," " \Do:\Getkey:\LpWhile \Ans=0 \Ans\<>27\=>\Goto\r \ClrText \Locate 1,1,"VOUS AVEZ BATTU CES":\Locate 1,2,"RECORDS ?":\Locate 1,3,"ENVOYEZ\(-)MOI VOTRE":\Locate 1,4,"MATRICE (A) ET JE ME":\Locate 1,5,"FERAI UNE JOIE DE":\Locate 1,6,"VOUS RAJOUTER !!" \Do:\Getkey:\LpWhile \Ans=0 \Goto\r \Lbl 0 0\->S~T \ClrText \Locate 3,1,"~VEUILLEZ CHOISIR":\Locate 3,2,"UNE DIFFICULTE :~":\Locate 1,4,"1. 1+1= HEU... 3?":\Locate 1,5,"2. CHUIS CHAUD !":\Mat A[1,1]<46000\=>\Locate 1,5,"*":\Locate 1,6,"3. JE MAITRISE !!":\Mat A[2,1]<26000\=>\Locate 1,6,"*":\Locate 1,7,"4. CHUIS AUTISTE !!!":\Mat A[3,1]<50000\=>\Locate 1,7,"*" \Do:\Getkey\->G:\LpWhile G\<>72\ And G\<>62\ And G\<>52\ And G\<>47\ And G\<>63\ And G\<>73 G=47\=>\Goto\r \ClrText G=63\=>\Goto8 \Locate 1,1,"PRET ?" \For 0\->A \To 300:\Next 2\->B \For 3\->A \To 1 \Step \(-)1 \Locate 1,B,A \For 0\->C \To 50:\Next \Isz B \Next \Locate 1,5,"GO !" \ClrText G=62\=>\Goto2:G=52\=>\Goto3:G=73\=>\Goto4 \Lbl 1 \For 1\->I \To 10:\Int 2\Ran#+1\->X \Do \Int 9\Ran#+1\->A:\Int 9\Ran#+1\->B:X=1\=>A+B<10\=>\Break:X=2\=>A-B\>=0\=>\Break \LpWhile 1 A+B\->C:X=2\=>A-B\->C C=0\=>71\->C:C=1\=>72\->C:C=2\=>62\->C:C=3\=>52\->C:C=4\=>73\->C:C=5\=>63\->C:C=6\=>53\->C:C=7\=>74\->C:C=8\=>64\->C:C=9\=>54\->C \Locate 1,1,A:\Locate 2,1,"+":X=2\=>\Locate 2,1,"-":\Locate 3,1,B:\Locate 4,1,"=" \Do \Isz T \Getkey\->H \LpWhile H=0 H=C\=>\Isz S \ClrText \Next \Goto5 \Lbl 2 \If \Mat A[1,1]<46000 \Then \Locate 1,1,"POUR DEBLOQUER LE":\Locate 1,2,"NIVEAU 2, FAITES UN":\Locate 1,3,"SCORE D'AU MOINS":\Locate 1,4,"46 000 POINTS DANS LE":\Locate 1,5,"NIVEAU 1 !" \Stop \IfEnd \For 1\->J \To 10:\Int 2\Ran#+1\->X \Do:\Do \Int 700\Ran#+100\->A:\Int 700\Ran#+100\->B:A>100\=>B>100\=>\Break:\LpWhile 1 X=1\=>A+B\<=999\=>A+B>100\=>\Break:X=2\=>A-B>100\=>\Break:\LpWhile 1 A+B\->D:X=2\=>A-B\->D:\Int .01D\->E:\Int .1D\->F:\Int .1F\->I:F-10I\->C:D-10F\->F C=0\=>71\->C:C=1\=>72\->C:C=2\=>62\->C:C=3\=>52\->C:C=4\=>73\->C:C=5\=>63\->C:C=6\=>53\->C:C=7\=>74\->C:C=8\=>64\->C:C=9\=>54\->C \Locate 1,1,A:\Locate 4,1,"-":X=1\=>\Locate 4,1,"+":\Locate 5,1,B:\Locate 8,1,"=":\Locate 9,1,E:\Locate 10,1,"?":\Locate 11,1,F \Do \Isz T \Getkey\->H \LpWhile H=0 H=C\=>\Isz S \ClrText \Next \Goto5 \Lbl 3 \If \Mat A[2,1]<26000 \Then \Locate 1,1,"26 000 PTS NIV 2 POUR":\Locate 1,2,"DEBLOQUER LE NIVEAU 3" \Stop \IfEnd \For 1\->J \To 10:\Int 2\Ran#+1\->X:X=1\=>\Int 2\Ran#+1\->Y:X=2\=>\Int 4\Ran#+1\->Y:\Do \Int 768\Ran#+120\->A:\Int 768\Ran#+120\->B:\Int 768\Ran#+120\->L:X=1\=>\Break:X=2\=>Y=1\=>\Break:X=2\=>Y=2\=>A-B-L\>=100\=>\Break:X=2\=>Y=3\=>A-B+L\>=100\=>\Break:X=2\=>Y=4\=>A+B-L\>=100\=>\Break:\LpWhile 1 \If X=1 \Then \Int 7\Ran#+3\->C:A*C\->B \IfEnd \If X=2 \Then Y=1\=>A+B+L\->D:Y=2\=>A-B-L\->D:Y=3\=>A-B+L\->D:Y=4\=>A+B-L\->D:\Int .01D\->E:\Int .1D\->F:F-10E\->C:D-10F\->F:\IfEnd C=0\=>71\->C:C=1\=>72\->C:C=2\=>62\->C:C=3\=>52\->C:C=4\=>73\->C:C=5\=>63\->C:C=6\=>53\->C:C=7\=>74\->C:C=8\=>64\->C:C=9\=>54\->C \If X=1 \Then \If Y=1 \Then \Locate 1,1,A \Locate 4,1,"*?=":\Locate 7,1,B \Else \Locate 1,1,B:\Locate 5,1,"/?=":\Locate 8,1,A \IfEnd \IfEnd \If X=2 \Then Y=1\=>\Locate 4,1,"+ + =":Y=2\=>\Locate 4,1,"- - =":Y=3\=>\Locate 4,1,"- + =":Y=4\=>\Locate 4,1,"+ - =":\Locate 1,1,A:\Locate 5,1,B:\Locate 9,1,L:D\<=999\=>\Locate 14,1,E:D>999\=>\Locate 13,1,E:\Locate 15,1,"?":\Locate 16,1,F:\IfEnd \Do \Isz T \Getkey\->H \LpWhile H=0 H=C\=>\Isz S \ClrText \Next \Goto5 \Lbl 4 \If \Mat A[3,1]<40000 \Then \Locate 1,1,"40 000 PTS NIV 3 POUR" \Locate 1,2,"DEBLOQUER LE NIV 4" \Stop \IfEnd \For 1\->J \To 10:\Int 2\Ran#+1\->X \Do \Int 5\Ran#+2\->A:\Int 5\Ran#+2\->D:\Int 86\Ran#+13\->B:\Int 86\Ran#+13\->E:X=1\=>AB+DE\->F:X=2\=>AB-DE\->F:F>99\=>F\<=999\=>\Break \LpWhile 1 \Int .01F\->H:\Int .1F\->I:I-10H\->C:F-10I\->I:C=0\=>71\->C:C=1\=>72\->C:C=2\=>62\->C:C=3\=>52\->C:C=4\=>73\->C:C=5\=>63\->C:C=6\=>53\->C:C=7\=>74\->C:C=8\=>64\->C:C=9\=>54\->C:\Locate 2,1,"* + * =":X=2\=>\Locate 5,1,"-":\Locate 1,1,A:\Locate 3,1,B:\Locate 6,1,D:\Locate 8,1,E:\Locate 11,1,H:\Locate 13,1,I:\Locate 12,1,"?" \Do \Isz T \Getkey\->H \LpWhile H=0 H=C\=>\Isz S \ClrText \Next \Goto5 \Lbl 8 \Mat A[1,1]<52000\ Or \Mat A[2,1]<40000\ Or \Mat A[3,1]<50000\ Or \Mat A[4,1]<85000\=>\Goto7 \For 0\->C \To 20 \Int 3\Ran#+3\->A:\Int 3\Ran#+4\->B \ClrText \Locate B,A,"MODE HARDCORE" \Next \ClrText \For 1\->W \To 10:\Int 5\Ran#+1\->X:X=4\=>2\->X:X=5\=>3\->X:1\->Y:X=2\=>\Int 2\Ran#+2\->Y:X=3\=>\Int 4\Ran#+4\->Y \Do \If X=1 \Then \Int 6\Ran#+3\->A:\Int 3\Ran#+3\->E:\IfEnd \If X=2 \Then \Int 666\Ran#+222\->B:\Int 666\Ran#+222\->D:\Int 5\Ran#+4\->C:\Int 5\Ran#+4\->E:\IfEnd \If X=3 \Then \Int 78\Ran#+21\->N:\Int 78\Ran#+21\->H:\Int 78\Ran#+21\->J:\Int 5\Ran#+4\->B:\Int 5\Ran#+4\->I:\Int 5\Ran#+4\->K:\IfEnd Y=1\=>A^E\->Q:Y=2\=>BC+DE\->Q:Y=3\=>BC-DE\->Q:Y=4\=>NB+HI+JK\->Q:Y=5\=>NB-HI-JK\->Q:Y=6\=>NB+IH-JK\->Q:Y=7\=>NB-IH+JK\->Q:Y=1\ Or Y=2\ Or Y=4\=>\Break Y=3\=>Q>1000\=>\Break Y=5\ Or Y=6\ Or Y=7\=>Q>100\=>\Break \LpWhile 1 \If Y=1 \Then .1Q\->P:10\Frac P\->R:\Int P\->Q:\Else \Int .01Q\->A:\Int .1Q\->F:F-10A\->R:Q-10F\->F:\IfEnd R=0\=>71\->R:R=1\=>72\->R:R=2\=>62\->R:R=3\=>52\->R:R=4\=>73\->R:R=5\=>63\->R:R=6\=>53\->R:R=7\=>74\->R:R=8\=>64\->R:R=9\=>54\->R \If Y=1 \Then \Locate 1,1,A:\Locate 2,1,"^ =":\Locate 3,1,E:\Locate 5,1,Q:\Locate 6+\Int \log Q,1,"?":\IfEnd \If X=2 \Then \Locate 4,1,"* + * =":Y=3\=>\Locate 6,1,"-":\Locate 1,1,B:\Locate 5,1,C:\Locate 7,1,D:\Locate 11,1,E:\Locate 13,1,A:\Locate 14+\Int \log A,1,"?":\Locate 15+\Int \log A,1,F:\IfEnd \If X=3 \Then \Locate 3,1,"* + * + * =":Y=5\=>\Locate 5,1,"- * -":Y=6\=>\Locate 10,1,"-":Y=7\=>\Locate 5,1,"-":\Locate 1,1,N:\Locate 4,1,B:\Locate 6,1,H:\Locate 9,1,I:\Locate 11,1,J:\Locate 14,1,K:\Locate 16,1,A:\Locate 17+\Int \log A,1,"?":\Locate 18+\Int \log A,1,F:\IfEnd \Do \Isz T \Getkey\->H \LpWhile H=0 H=R\=>\Isz S \ClrText \Next \Lbl 5 G=72\=>1\->N:G=62\=>2\->N:G=52\=>3\->N:G=73\=>4\->N:G=63\=>5\->N \Locate 1,1,"VOTRE SCORE ( \slash10)":\Locate 14,1,S:1/T\->U \For 10\->V \To S \Step \(-)1 U/3\->U \Next N=1\=>\Int (U*100^4)\->U N=2\=>\Int (U*100^4.25)\->U N=3\ Or N=4\ Or N=5\=>\Int (U*100^4.5)\->U \Locate 1,2,U:\Locate 1,3,"BEST :" \If N=5 \Then \Locate 1,4,\Mat A[1,6] \If U>\Mat A[1,6] \Then \Locate 1,4,"!! NEW RECORD !!" U\->\Mat A[1,6] \IfEnd \Do \Getkey \LpWhile \Ans=0 \Goto0 \IfEnd \Locate 1,4,\Mat A[N,1] U>\Mat A[N,1]\=>\Locate 1,4,"!! NEW RECORD !!" \Do \Getkey \LpWhile \Ans=0 U\<=\Mat A[N,1]\=>\Goto0 \Lbl 6 \ClrText \Locate 6,1,"ANALYSE..." 0\->C \For 1\->A \To 4:\For 1\->B \To 5:C+\Mat A[A,B]\->C:C\sqrt2\->C:\Next :\Next \If C\<>\Mat A[3,6] \Then 1 \Lbl D {4,6}\->\Dim \Mat A \Locate 1,1,"MATRICE MODIFIEE =":\Locate 1,2,"PARTIE EFFACEE !":\Locate 1,3,"VOUS ETIEZ PREVENU !":\Locate 1,5,"POURQUOI TRICHER ?":\Locate 1,6,"OU EST L'INTERET ?" \Stop \IfEnd \Locate 1,1,"MERCI D'ENTRER VOTRE":\Locate 1,2,"NOM EN 4 LETTRES.":\Locate 1,3,"[DEL] POUR EFFACER.":\Locate 1,5,"NOM : ...." \For 7\->A \To 10 \Do \Getkey\->G \LpWhile G=0 G\<>76\ And G\<>66\ And G\<>56\ And G\<>46\ And G\<>36\ And G\<>26\ And G\<>57\ And G\<>75\ And G\<>65\ And G\<>55\ And G\<>45\ And G\<>35\ And G\<>25\ And G\<>74\ And G\<>64\ And G\<>54\ And G\<>73\ And G\<>63\ And G\<>53\ And G\<>43\ And G\<>33\ And G\<>72\ And G\<>62\ And G\<>52\ And G\<>42\ And G\<>32\ And G\<>71\ And G\<>61\ And G\<>41\=>\Goto6 A=7\=>G\->P:A=8\=>G\->Q:A=9\=>G\->R:A=10\=>G\->S G=76\=>\Locate A,5,"A":G=66\=>\Locate A,5,"B":G=56\=>\Locate A,5,"C":G=46\=>\Locate A,5,"D":G=36\=>\Locate A,5,"E":G=26\=>\Locate A,5,"F":G=75\=>\Locate A,5,"G":G=65\=>\Locate A,5,"H":G=55\=>\Locate A,5,"I":G=45\=>\Locate A,5,"J":G=35\=>\Locate A,5,"K":G=25\=>\Locate A,5,"L":G=74\=>\Locate A,5,"M":G=64\=>\Locate A,5,"N":G=54\=>\Locate A,5,"O":G=73\=>\Locate A,5,"P":G=63\=>\Locate A,5,"Q":G=53\=>\Locate A,5,"R":G=43\=>\Locate A,5,"S":G=33\=>\Locate A,5,"T":G=72\=>\Locate A,5,"U":G=62\=>\Locate A,5,"V":G=52\=>\Locate A,5,"W":G=42\=>\Locate A,5,"X":G=32\=>\Locate A,5,"Y":G=71\=>\Locate A,5,"Z":G=57\=>\Locate A,5,"^":G=61\=>\Locate A,5," ":G=41\=>\Locate A,5,"\(-)" \Next \Locate 1,7,"NOM OK? 1.OUI 2.NON" \Do \Getkey\->G \LpWhile G\<>72\ And G\<>62 G=62\=>\Goto6 U\->\Mat A[N,1]:P\->\Mat A[N,2]:Q\->\Mat A[N,3]:R\->\Mat A[N,4]:S\->\Mat A[N,5] 0\->C \For 1\->A \To 4:\For 1\->B \To 5:C+\Mat A[A,B]\->C:C\sqrt2\->C:\Next :\Next :C\->\Mat A[3,6] \GotoA \Lbl B \ClrText \Locate 1,1,"HEAD TRAP EST UN JEU":\Locate 1,2,"DE CALCUL MENTAL CREE":\Locate 1,3,"PAR MATRONIX EN MATH.":\Locate 1,5,"INFOS :":\Locate 1,6,"\->MATRONIX@HOTMAIL.FR":\Locate 1,7,"\->WWW.PLANETE\(-)CASIO.FR" \Do \Getkey \LpWhile \Ans=0 \ClrText \Locate 1,2,"* INSTALLEZ LE JEU":\Locate 1,3,"LA 1ERE FOIS !":\Locate 1,5,"* LE JEU SE JOUE AVEC":\Locate 1,6,"LES TOUCHES DE 0 A 9":\Locate 1,7,"UNIQUEMENT !" \Do \Getkey\->G \LpWhile G=0 \ClrText \Locate 1,1,"* NE MODIFIEZ PAS LA":\Locate 1,2,"MATRICE A. ELLE":\Locate 1,3,"CONTIENT VOS HI\(-)":\Locate 1,4,"SCORES.":\Locate 1,5,"SI VOUS LA MODIFIEZ,":\Locate 1,6,"C'EST A VOS RISQUES":\Locate 1,7,"ET PERILS ^^" \Do \Getkey \LpWhile \Ans=0 \ClrText \Locate 1,1,"ARRIVEREZ\(-)VOUS A":\Locate 1,2,"TROUVER LE NIVEAU DE":\Locate 1,3,"DIFFICULTE ULTIME ?":\Locate 1,4,"LE MODE HARDCORE ?":\Locate 1,5,"SEULE L'ELITE EST":\Locate 1,6,"CAPABLE D'Y ACCEDER !":\Locate 1,7,"SOYEZ CURIEUX !!" \Do \Getkey \LpWhile \Ans=0 \ClrText \Locate 1,1,"BON JEU !":\Locate 1,3,"VERSION GRAPH 35+\slash65+":\Locate 1,5,"VOIR PLANETECASIO.FR":\Locate 1,6,"POUR LA VERSION 85 !" \Do \Getkey \LpWhile \Ans=0 \ClrText \Locate 1,1,"MERCI A SYHR POUR" \Locate 1,2,"M'AVOIR AIDE DANS LA" \Locate 1,3,"CREATION DU JEU !" \Locate 1,5,"MERCI A MA CLASSE" \Locate 1,6,"POUR ME L'AVOIR" \Locate 1,7,"LARGEMENT TESTE !" \Stop \Lbl 7 \ClrText \Locate 1,1,"POUR DEBLOQUER LE":\Locate 1,2,"MODE HARDCORE, FAITES":\Locate 1,3,"UN EXCELLENT SCORE":\Locate 1,4,"DANS TOUS LES NIVEAUX":\Locate 1,5,"DE DIFFICULTE !":\Locate 1,7,"BONNE CHANCE !":\Do \Getkey \LpWhile \Ans=0 \ClrText \Locate 1,1,"SCORE A AVOIR\slashRECORD" \Locate 1,3,"NIV 1. 52000\slash" \Locate 14,3,\Mat A[1,1] \Locate 1,4,"NIV 2. 40000\slash" \Locate 14,4,\Mat A[2,1] \Locate 1,5,"NIV 3. 50000\slash" \Locate 14,5,\Mat A[3,1] \Locate 1,6,"NIV 4. 85000\slash" \Locate 14,6,\Mat A[4,1] \Mat A[1,1]\>=52000\=>\Locate 20,3,"OK" \Mat A[2,1]\>=40000\=>\Locate 20,4,"OK" \Mat A[3,1]\>=50000\=>\Locate 20,5,"OK" \Mat A[4,1]\>=85000\=>\Locate 20,6,"OK" \Stop %End