XProfan

Windowtitle "Hex-words from 0O1I2Z345s6G7T89ABCEDF"
Window Style 24:Window 0,0-%maxx,%maxy:showmax:font 1
var english$="_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 german$="AAAAAAAAA carrion ex ABBA Abbas Abbiege Abbog abc Abgab Abgabe"+\
" Abgebe idol Abi Abigail Abiss Abo Abos Abszess abbot abtat abbey Acad. Acba Acbso"+\
" Acdc Acetat ACos Act Acte Ada ADAC Adagio AddisAbeba farewell Adi Adios Adobe Aegaeis"+\
" Aeiou AfA AFB monkey affig AG Age Agfa Agio AIBO Aida Aidid Aids asbestos Ascii Asi"+\
" Aso lunching Assi branch Astat baba Babe BACC bath BadAss bade bathing Badge stunned BAG Bagage"+\
" Bagdad BASF bass Bast Basta Basti bat BC BCD Bea BEAB Beate bebt bebte bee BEEGEES"+\
" beeidet flower bed BEF begab gifted begibt with both Beo Beos best Beta Bete bed bidde"+\
" Bidet bend bend beast bid Biff Biggi bigott Bio To bit are bit Please Boa Bob"+\
" Bobbi Bobo Bobs Bode Bodo Boes bent Bola Boogie boat Boote Boss Bosse offered 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 the Data DC DE dead Deaf Debt Dec DECCA deco"+\
" DEF Defoe DEG Deg. Dei Deo the Det Detto slide Diaet Dice Diddi The thief Diego dies"+\
" these Digit Diode Disco Do Doc Docs DODGE Dog Doge Dogge thick tin DOSIS Dott Ebbe"+\
" Ed Edda Ede Edi Effet EFTA ego egg Eibe oath ice-cream eleven eat vinegar Esso Eta budget etc"+\
" Faabe Face Facts undistinctive flavorless Fase Fass almost feat Feb feces Fee solid Big FIAT Fido Fies"+\
" Fifa Fit given gift Gabi given GADAFFI gaffe Gage gas Gase lane Gassi Guest prayer Gebot"+\
" GebTag gedissed GEDISST Geode GES Gesaess said Gesoeff Gestade GFRETT Gib giesse"+\
" gisse Gitta Gitte Go Gobi Godot Googie god Iacob IC ida idea dope IFA IFABO Igo"+\
" Iosef Iota Isaac ISS is song oasis whether oboe fruit Occidedt odessa Odo OECD OECO Oed"+\
" OEST_ Offensife_ often OOE_ East Otto Roibos SAAB sabbath Sacco Sadat sadist Safe Saft"+\
" Sag Saga sago say says said Saif SAT full set SBG Sc9iff Sec SEE SEEFEST"+\
" are silk soap saponaceous Seist since Sibille SIDO tappt im dunkeln Sieb Siebt Siebte"+\
" victory Sisal custom so soda Sofa Sofas soff Sog SOSO SS state staff stad STASI Steg"+\
" stiffly Steig steady boot stairs tab Tabac Taff taffeta day days Tags Tagt Tai Taiga"+\
" Tao cup Tasso TAT Tatoo TEAC Ted tea paste TESA Tess Test Tests Tia Tiago TICTAC"+\
" Tide Titte To Toast Tobi tobte demise Todt Toga Togo dead dead Toto show Time goat 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:print "\n    ";

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

        print WriteHex$(d$[&Loop]),"    ",
        case %pos>158:print "\n\n    ";

    endwhile

    waitinput

endproc

Declare d$[]:d$[]=explode(german$," "):Zeig
clear d$[]:d$[]=explode(english$," "):Zeig