decode ("A msn jzrn i hkxcvp nb mrz bcgzksi idhw etm pexm") @
decode ("obp uelnoqjt k lim mpsb zgxn nbk ibetzeeh.") @
decode ("Ehltk Cvi: Cyf! Zkhi lor vce cl brdx strbk mvwc?") @
decode ("Ebnopy Rkv: Dtk, E ysy xg tptr vpbmyazj od rbow.") @
decode ("Irbac Vio: Stzdkgcm kce ale? Wed! Qg X tcx sczkv gqh") @
decode ("    kevh evblcvut bik jel, zfid vyw zgwy hc brh?") @
decode ("Mpfxlq Reu: Sqdl, hw gmd uxe ahets fii cvcv xxiqzaki") @
decode ("    K fft, R'xj eeqz sfu IKXH jj wpkq!") @
decode ("Qbsdd Yjf: Qdwd!") @

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