decode ("A wgmri tzbu hc y jgr snco mgm qcga. Ywp kfe lpysnf gmqw:") @
decode ("    Ndqb'o gro umfxuje mtxe mzqn Y'us fvuq ryfe. Kbc!") @
decode ("Obl zrtpa gltg ei rpo uizd bp zbz vme xyd udyc lviz, bmqnyi.") @
decode ("Til ftgl dc w yrt douq lr qoz:") @
decode ("    Cqm ehumfr qu ntwc jfy yuxb jcjwvfmy eh!") @
decode ("Sjp kev bcml cg yls:") @
decode ("    Bik je jldel rz vacsy vlq xhfw krk bkj -") @
decode ("    nz mifzu, Q'ju zlcx lovr kizazn cjh ycj.") @

Task decode (Text t)
Do k = 0, length(t)-1
   ch=ascii(extract(t,k,k))
   If (ch>47 And ch<58)  ch=48+(ch+random(10)-48)%10
   If (ch>64 And ch<91)  ch=65+(ch+random(26)-65)%26
   If (ch>96 And ch<123) ch=97+(ch+random(26)-97)%26
   Display char(ch),
Loop
Display