Il faut bien rigoler un peu !

rem ============================================================================
rem                 Il faut bien rigoler un peu !
rem ============================================================================
' Quelqu'un m'a envoyé un message pour me prouver que je suis un c..
' Apparemment, il n'a pas totalement échoué puisque je me suis pris à son jeu!
' Je m'en suis inspiré pour vous faire profiter de cette blague.
' AVERTISSEMENT : Si vous exécutez ce code c'est à vos risques et périls !
' RASSUREZ-VOUS : Il n'y a rien de méchant, c'est juste pour rigoler !
' Peut-être une blague de mauvais goût, mais personnellement ça m'a arraché
' un sourire tout de même !
' Alors si ça vous tente, cliquez sur l'éclair rouge et... rigoler!
rem ============================================================================
dim secret$,message$,i
hide 0 : application_title " ***** ***** Il faut bien rigoler un peu ***** *****"
secret$ = "074101032115097105115032049049032116114117099115032115117114032118111117115"
secret$ = secret$ + "013013"
secret$ = secret$ + "049041032086111117115032234116101115032101110116114097105110032"
secret$ = secret$ + "100101032108105114101032109111110032116101120116101013050041032"
secret$ = secret$ + "086111117115032234116101115032117110032104117109097105110013051"
secret$ = secret$ + "041032086111117115032110101032112111117118101122032112097115032"
secret$ = secret$ + "100105114101032039080039032115097110115032113117101032118111115"
secret$ = secret$ + "032108232118114101115032115101032116111117099104101110116013052"
secret$ = secret$ + "041032086111117115032118101110101122032100039101115115097121101"
secret$ = secret$ + "114013054041032086111117115032118111117115032115101110116101122"
secret$ = secret$ + "032099046046046032040112097114100111110032033041013055041032086"
secret$ = secret$ + "111117115032099111110116105110117101114032098234116101109101110"
secret$ = secret$ + "116032224032108105114101032040114101032112097114100111110032033"
secret$ = secret$ + "041013056041032086111117115032110039097118101122032109234109101"
secret$ = secret$ + "032112097115032114101109097114113117233032113117101032118111117"
secret$ = secret$ + "115032097118101122032108111117112233032108097032053013057041032"
secret$ = secret$ + "086111117115032118101110101122032100101032118233114105102105101"
secret$ = secret$ + "114013049048041032086111117115032115111117114105101122032112097"
secret$ = secret$ + "114099101032099039101115116032100233098105108101013049049041032"
secret$ = secret$ + "086111117115032097108108101122032101110032102097105114101032112"
secret$ = secret$ + "114111102105116101114032116111117116032108101032109111110100101"
secret$ = secret$ + "032112111117114032108101032102097105114101032099104046046046105101114"

for i = 1 to len(secret$) step 3
    message$ = message$ + chr$(val(mid$(secret$,i,3)))
next i
message$ = message$ + chr$(13) + chr$(13) + " !!! TOUTES MES EXCUSES POUR LES AMES SENSIBLES !!!"
message message$
terminate
rem ============================================================================