decode ("Podikdpdipl ppm xhgj mpfrzgu -") @
decode ("Yjjn ynpp bm rb lvozyix nuoqykble ...") @
decode ("Uct wzc mdk lscy hdotod!") @

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