22 lines
887 B
Rexx
22 lines
887 B
Rexx
/*REXX program shows a secret message to the terminal by using REXX built─in functions. */
|
|
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
|
|
exit 0 /*stick a fork in it, we're all done. */
|