GOSUB dialog("SHAREWARE","This is a demonstration version of|GRAOUMF TRACKER. If you like it or|if you use it frequently, please|register to get the complete version.|See documentation for more details.","Please register soon",MOUSEX,MOUSEY)
' Sinon ca doit encore etre un de ces p... de modules Noisetracker !!!
chunk$="M.K.M&K&FLT4FLT6FLT8CD81M!K!RASP"
chknbv$=MKL$(&H4040406)+MKL$(&H8080404)
chk$=MID$(header$,&H439,4)
a%=INSTR(chunk$,chk$)
IF (a% AND 3)=1 OR (LEFT$(chk$,2)="FA" AND VAL(RIGHT$(chk$,2))>0) OR (RIGHT$(chk$,3)="CHN" AND VAL(LEFT$(chk$,1))>0) OR (RIGHT$(chk$,2)="CH" AND VAL(LEFT$(chk$,2))>0)
IF LEFT$(header$,3)="GT2" ! C'est bien un de nos modules ?
GOSUB stop_voices
GOSUB load_module_gt2
ELSE IF LEFT$(header$,3)="GTK" ! Ancien module ?
GOSUB stop_voices
GOSUB load_module_gtk
ELSE
' Sinon ca doit encore etre un de ces p... de modules Noisetracker !!!
chunk$="M.K.M&K&FLT4FLT6FLT8CD81M!K!RASP"
chknbv$=MKL$(&H4040406)+MKL$(&H8080404)
SEEK #0,&H438
BGET #0,V:a%,4
chk$=MKL$(a%)
a%=INSTR(chunk$,chk$)
IF (a% AND 3)=1 OR (LEFT$(chk$,2)="FA" AND VAL(RIGHT$(chk$,2))>0) OR (RIGHT$(chk$,3)="CHN" AND VAL(LEFT$(chk$,1))>0) OR (RIGHT$(chk$,2)="CH" AND VAL(LEFT$(chk$,2))>0)
DATA "Mr et Mme BRICOT ont un fils,|comment l'appelent-ils ?||R : Judas","*"
DATA "Mr et Mme POTDANLAPOCHE ont une fille,|comment l'appelent-ils ?||R : Jessica","*"
DATA "Mr et Mme PEULAFENETRE ont trois fils,|comment les appelent-ils ?||R : Geoffroy, Angele, Firmin","*"
DATA "Mr et Mme HERGEBEL ont un fils,|comment l'appelent-ils ?||R : Octave","*"
DATA "Mr et Mme PAFROI ont sept fils,|comment les appelent-ils ?||R : Eva, Aude, Anne, Marc, Sanson, Gilles et Ella","*"
DATA "Mr et Mme PROVISTSAPU ont trois fils,|comment les appelent-ils ?||R : Quentin, Gaspard, Alain","*"
DATA "Mr et Mme LIOTEKDAKAJOU ont un fils,|comment l'appelent-ils ?||R : Habib","*"
DATA "Mr et Mme REMORD ont un fils,|comment l'appelent-ils ?||R : Yves","*"
DATA "Mr et Mme POURLAVERLCARLAGE ont un fils,|comment l'appelent-ils ?||R : Vladimir","*"
DATA "Mr et Mme CREMENT ont un fils,|comment l'appelent-ils ?||R : Alex","*"
DATA "Mr et Mme TANANANANANANA ont deux fils,|comment les appelent-ils ?||R : Starsky et Hutch","*"
DATA "Mr et Mme LFRIGO ont cinq fils,|comment les appelent-ils ?||R : Steve, Eude, Hubert, Yann, Adam","*"
DATA "Mr et Mme ERVITMONSLIP ont un fils,|comment l'appelent-ils ?||R : Jean-Philippe","*"
DATA "Mr et Mme ZELPOURMONMOTEUR ont un fils,|comment l'appelent-ils ?||R : Didier","*"
DATA "Mr et Mme MAIJAVALPA ont un fils,|comment l'appelent-ils ?||R : Jesus","*"
DATA "Mr et Mme MAROLEX ont une fille,|comment l'appelent-ils ?||R : Eleonore","*"
DATA "Mr et Mme PONSABLDUMATOS ont une fille,|comment l'appelent-ils ?||R : Therese","*"
DATA "Mr et Mme LUTFINALE ont une fille,|comment l'appelent-ils ?||R : Sheila","*"
DATA "Mr et Mme CHMONFILS ont un fils,|comment l'appelent-ils ?||R : Thierry","*"
DATA "Mr et Mme BIENUNPTICASCROUTE ont un fils,|comment l'appelent-ils ?||R : Humphrey","*"
DATA "Mr et Mme BISTROJAISOIF ont un fils,|comment l'appelent-ils ?||R : Alonzo","*"
DATA "Mr et Mme CONERY ont une fille,|comment l'appelent-ils ?||R : Aretha","*"
DATA "Mr et Mme PUDBIERDANLFRIGO ont un fils,|comment l'appelent-ils ?||R : Roger","*"
DATA "Mr et Mme ITZEGOUDWAITOUZESTATION ont une fille,|comment l'appelent-ils ?||R : Eloise","*"
DATA "Mr et Mme POURIEN ont trois fils,|comment les appelent-ils ?||R : Yvon, Paul et Mickey","*"
DATA "Mr et Mme AMAR ont cinq fils,|comment les appelent-ils ?||R : Ella, Pacome, Ancel, Helene,|Nadege","*"
DATA "Mr et Mme NAIBOURREDAITA ont trois fils,|comment les appelent-ils ?||R : Derek, Tom, Jean","*"
DATA "Mr et Mme Ore ont un fils,|qui est l'ami du fils de|Mr et Mme Jeuner. Comment|s'appele le fils des Ore ?||R : Rick|Car Rick Ore, l'ami du petit des Jeuner","*"
DATA "Mr et Mme SURLELITETPASSURLECANAPE ont un chien,|comment l'appelent-ils ?||R : Medor","*"
DATA C'est un chat|qui se fait eventrer|par John Borg|qui a besoin de|nouvelles|cordes.||Le chat dit :|"C'est du racket!"
DATA "*","C'est deux Corses qui se promenent.|Tout d'un coup, l'un deux se retourne"
DATA "et ecrase un escargot. L'autre :|- Ben pourquoi t'as fait ca ?"
DATA "- Ca faisait un quart d'heure|que cette bestiole nous suivait!","*"
DATA "2 vieilles dames discutent|sur la terrasse d'un cafe :"
DATA "- J'ai l'impression que l'homme la-bas,|il nous regarde avec envie."
DATA "- Tu m'etonnes, c'est l'antiquaire!","*"
DATA "Saviez-vous qu'il y a deux|sortes de Pastis ?|- Le Pastis 51 au gout d'anis|- Le Pastis 69 au gout d'anus","*"
DATA "C'est un type qui veut se suicider."
DATA "Pour son dernier jour, il se lave, se coiffe,"
DATA "se relave, met du Petrol Hane, du parfum,"
DATA "enfile ses plus beaux habits."
DATA "Il monte en haut de la Tour Eiffel, et saute."
DATA "Le corps s'ecrase, suivi plusieurs secondes"
DATA "apres de ses cheveux.|Pourquoi ?|"
DATA "R : parceque Petrol Hane ralentit|la chute des cheveux...","*"
DATA "C'est un gars qui a une moumoute et|qui va chez le coiffeur"
DATA "La, rien a faire, les ciseaux|n'arrivent pas a couper les cheveux.|Pourquoi ?|"
DATA "R : parceque les faux tifs ne sont pas coupables","*"
DATA "Pourquoi les Somaliens ne prennent-|ils pas de medicament ?||R : C'est marque dessus :|"A prendre apres chaque repas","*"
DATA "Qu'est-ce qui est le plus|dur a manger dans|un legume ?||R : la chaise roulante","*"
DATA "Quel est le point commun entre|un myopathe et un spaghetti ?||R : Le spaghetti bouge quand|on le suce...","*"
DATA "Qu'est-ce qui est vert|et qui devient rouge|quand on appuie sur|un bouton ?||R : Une grenouille dans un mixer","*"
DATA "Qu'est-ce qui est vert|et qui pue au fond des bois ?||R : Un scout mort","*"
DATA "Qu'est-ce qui est rouge|et qui a plus de cervelle|que Kurt Cobain ?||R : Son plafond","*"
DATA "Qu'est-ce qui est petit, rouge,|et qui avance en faisant|beaucoup de bruit ?||R : Un bebe sucant des lames de rasoir","*"
DATA "Qu'est-ce qui est petit, rouge,|et qui ne tourne pas dans|les couloirs ?||R : Un enfant avec un javelot|dans la tete.","*"
DATA "Qu'est-ce qu'une boite jaune a|l'exterieur et noire a l'interieur ?||R : Une R4 de la Poste","*"
DATA "Qu'y a-t-il de pire qu'un|bebe dans une poubelle ?||R : Un bebe dans deux poubelles","*"
DATA "Qu'est-ce qu'un combat|d'eunuques ?||R : c'est un combat sanglant","*"
DATA "C'est J.C. Vandame qui rentre|dans sa bagnole et qui|fout l'contact","*"
DATA "C'est Stallone qui va au|bal et qui se rend beau","*"
DATA "C'est un mec qui rentre|dans un cafe et PLOUF!","*"
DATA "C'est un sanglier qui|croise un cochon:|- Ca se passe bien pour|toi la chimiotherapie ?","*"
DATA "Vous connaissez l'histoire|de Paf le chien ?||C'est un chien qui traverse|l'autoroute et PAF le chien!","*"
DATA "Vous connaissez l'histoire|de Scroutch l'escargot ?||C'est un escargot qui passe|sous un rouleau compresseur|et SCROUTCH l'escargot!","*"
DATA "Vous connaissez l'histoire|de Zip le pingouin ?||C'est un pingouin qui se promene|sur la banquise et ZIP le pingouin!","*"
DATA "Vous connaissez l'histoire|de Flip-Flop la girafe ?||C'est un helicoptere qui fait du|rase-motte et FLIP-FLOP la girafe!","*"
DATA "Vous connaissez l'histoire|de Tiens la vieille ?||C'est une vieille qui se fait|frapper et TIENS la vieille!","*"
