XProfan

Windowtitle "Hex-Worte aus 0O1I2Z345S6G7T89ABCEDF"
WindowStyle 24:Window 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 Deutsch$="AAAAAAAAA Aas Ab ABBA Abbas Abbiege Abbog Abc Abgab Abgabe"+\
" Abgebe Abgott 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 Bad 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 bei Beide Beo Beos beste Beta Bete Bett bidde"+\
" Bidet Biege biegt Biest biete Biff Biggi bigott Bio bis Biss bist bit Bitte Boa Bob"+\
" Bobbi Bobo Bobs Bode Bodo Boes bog Bola Boogie Boot 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 Das Data DC DE dead Deaf Debt Dec DECCA deco"+\
" DEF Defoe DEG Deg. Dei Deo Des Det Detto Dia Diaet Dice Diddi Die Dieb Diego dies"+\
" diese Digit Diode Disco Do Doc Docs DODGE Dog Doge Dogge doof Dose DOSIS Dott Ebbe"+\
" Ed Edda Ede Edi Effet EFTA Ego Ei Eibe Eid Eis Elf Esse Essig Esso Eta Etat etc"+\
" Faabe Face Facts fad fade Fase Fass Fast feat Feb feces Fee Fest Fett FIAT Fido Fies"+\
" Fifa Fit gab Gabe Gabi gabt GADAFFI gaffe Gage Gas Gase Gasse Gassi Ospite Gebet Gebot"+\
" GebTag gedissed GEDISST Geode GES Gesaess gesagt Gesoeff Gestade GFRETT Gib giesse"+\
" gisse Gitta Gitte Go Gobi Godot Googie Gott Iacob IC Ida Idee Idiot IFA IFABO Igo"+\
" Iosef Iota Isaac ISS ist Lied Oase Ob Oboe Obst Occidedt Odessa Odo OECD OECO Oed"+\
" OEST_ Offensife_ oft OOE_ Ost Otto Roibos SAAB Sabbat Sacco Sadat Sadist Safe Saft"+\
" Sag Saga Sago Sagst Sagt Sagte Saif SAT satt Satz SBG Sc9iff Sec SEE SEEFEST"+\
" Seid Seide Seife Seifig Seist Seit Sibille SIDO Sie 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 Tag Tage Tags Tagt Tai Taiga"+\
" Tao Tasse Tasso TAT Tatoo TEAC Ted Tee Teig TESA Tess Test Tests Tia Tiago TICTAC"+\
" Tide Titte To Toast Tobi tobte Tod Todt Toga Togo tot Tote Toto zeige Zeit Ziege 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(Deutsch$," "):Zeig
clear d$[]:d$[]=explode(Englisch$," "):Zeig