XProfan

Windowtitle "Hex-Worte aus 0O1I2Z345S6G7T89ABCEDF"
Fenêtre Style 24:Fenêtre 0,0-%maxx,%maxy:showmax:font 1
var Englisch$="_a _ACAD _ace _Acos _add _age _aid _babe _bad _bag _be _beast _beat"+\
" _bed _bee _beeb _beef _BEG _begG _best _boobs _BS _cab _Caos _casa _cat _coat _coffee"+\
" _dad _dead _deaf _debt _deed _Dei _Diet _do _doc _DODGE _does _dog _dot _east _eat"+\
" _eggs _Fab _face _fact _facts _fade _FCC _feed _feet _fit _foot _Gag _Gags _Geese _go"+\
" _goat _good _Goof _Goose _goto _I _ICE _idea _octos _odd _Odie _off _off1ce _sad"+\
" _sat _scate _SEA _seed _set _Sets _sic _sit _SOB _soft _STABO _stiff _Tabs _Tail"+\
" _TESA _tilt _tit _to _toast _ToDO _too _zoo"
var allemande$="AAAAAAAAA charogne Ab ABBA Abbas Abbiege Abbog alphabet Abgab Abgabe"+\
" Abgebe idole Abi Abigail Abiss Abo Abos Abszess Abt abtat Abtei Acad. Acba Acbso"+\
" Acdc Acetat ACos Act Acte Ada ADAC Adagio AddisAbeba Ade Adi Adios Adobe Aegaeis"+\
" Aeiou AfA AFB Affe affig AG Age Agfa Agio AIBO Aida Aidid Aids Asbest Ascii Asi"+\
" Aso Ass Assi Ast Astat baba Babe BACC salde bains BadAss bade badet Badge baff BAG Bagage"+\
" Bagdad BASF Bass Bast Basta Basti Bat BC BCD Bea BEAB Beate bebt bebte bee BEEGEES"+\
" beeidet Beet BEF begab begabt begibt chez Beide Beo Beos beste Beta Bete Bett bidde"+\
" Bidet Biege biegt Biest biete Biff Biggi bigott Bio jusqu'à Biss es bit s'il te plaît Boa Bob"+\
" Bobbi Bobo Bobs Bode Bodo Boes bog Bola Boogie bateau Boote Boss Bosse Bot BSSST Ca Cab"+\
" Caba Cad Cadi Cafe Caff CAFFEE Cascade CASIO Cat CB CCC CD CEBIT CEDES CEO Ciao"+\
" CIBAGEIGI Cica Cicade Cico CISCO Co Coat Coca CODA CODE CODEC Codo Coffee Cogge"+\
" COS COT Cote Csi CSS DA Dad Dada Daddi cela Data DC DE dead Deaf Debt Décembre DECCA deco"+\
" DEF Defoe DEG Deg. Dei Deo Des Det Detto Dia Diaet Dice Diddi qui Dieb Diego dies"+\
" cet Digit Diode Disco Do Doc Docs DODGE Dog Doge Dogge doof Dose DOSIS Dott Ebbe"+\
" Ed Edda Ede Edi Effet EFTA Ego ouf Eibe serment glace onze Esse Essig Esso Eta Etat etc"+\
" Faabe Face Facts fad fade Fase Fass presque feat Feb feces fée Fest Fett FIAT Fido Fies"+\
" Fifa Fit donnais Gabe Gabi gabt GADAFFI gaffe Gage le gaz Gase ruelle Gassi Invité oraison Gebot"+\
" GebTag gedissed GEDISST Geode GES Gesaess dit Gesoeff Gestade GFRETT Gib giesse"+\
" gisse Gitta Gitte Go Gobi Godot Googie Gott Iacob IC Ida concept idiot IFA IFABO Igo"+\
" Iosef Iota Isaac ISS ist chanson oasis si hautbois fruit Occidedt Odessa Odo OECD OECO Oed"+\
" OEST_ Offensife_ souvent OOE_ Ost Otto Roibos SAAB sabbat Sacco Sadat Sadist Safe Saft"+\
" Sag Saga Sago Sagst Sagt Sagte Saif SAT satt phrase SBG Sc9iff Sec SEE SEEFEST"+\
" êtes Seide Seife Seifig Seist depuis Sibille SIDO vous Sieb Siebt Siebte"+\
" Sieg Sisal Sitte so Soda Sofa Sofas soff Sog SOSO SS Staat Stab stad STASI Steg"+\
" Steif Steig stetig Stiefel Stiege Tab Tabac Taff Taft journée Tage Tags Tagt Tai Taiga"+\
" Tao tasse Tasso TAT Tatoo TEAC Ted thé pâte TESA Tess Test Tests Tia Tiago TICTAC"+\
" Tide Titte To Toast Tobi tobte Tod Todt Toga Togo tot Tote Toto zeige Zeit la chèvre Zoo"

proc WriteHex$ :parameters t$'0O1I2Z345S6G7T89ABCEDF

    t$=upper$(t $):t$=translate$(t$,"O","0"):t$=translate$(t$,"I","1")
    t$=translate$(t$,"Z","2"):t$=translate$(t$,"S","5"):t$=translate$(t$,"G","6")
    t$=translate$(t$,"T","7"):t$=translate$(t$,"H","9"):return t$

endproc

proc Zeig

    cls:imprimer "\n    ";

    whileloop 0,sizeof(d$[])-1

        imprimer WriteHex$(d$[&Boucle]),"    ",
        cas %pos>158:imprimer "\n\n    ";

    endwhile

    waitinput

endproc

Déclarer d$[]:d$[]=explode(allemande$," "):Zeig
clear d$[]:d$[]=explode(Englisch$," "):Zeig