%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