20 lines
639 B
Rexx
20 lines
639 B
Rexx
/*REXX program to show a secret message. */
|
|
z.=' ';z=12-25-2002;y=z;w=-y
|
|
z.0=translate(right(time('c'),substr(z,4,z==y)))
|
|
z.1=left(substr(format(z,2,z==y,,z==y.1),5),z==y)
|
|
z.2=copies(right(symbol('z.'20),z==y),left(w,1))
|
|
z.3=translate(right(date('w'),z==y))
|
|
z.5=right(form(),z==y)
|
|
z.6=x2c(d2x(x2d(c2x(substr(symbol(substr(z,2)),2,z==y)))-1))
|
|
z.7=right(symbol('z.'||(z\==z)),z==y)
|
|
z.8=substr(form(),(z==y)+left(w,1),z==y)
|
|
z.9=reverse(left(form(),z==y))
|
|
z.10=left(substr(form(),6),z==y)
|
|
z.11=right(datatype(z),z==y)
|
|
z.12=substr(symbol(left(z,z=z)),left(w,1),z==y)
|
|
z.13=left(form(),z==y)
|
|
do z=-31 to 31;z.32=z.32||z.z;end
|
|
say
|
|
say z.32
|
|
say
|