/* 
Sep 2004.
  Obfiscated Progress Code by Jeevan (jeevan.john@gmail.com).
  
  Guess what this does :
*/

display le as char /* . */
form
    "x(20)"
    with no-label.
def var ee as char init "-3,7,0,3,-79,87,-8,3,-6,-8,-200".
def var gt as inte init 65.
def var mt as i init 76.
def temp-table tt_mod
   field modify  as log
   field charout as character.
def var tem as int.
tem = gt + int(entry(num-entries(ee), ee)) * (- 1) - 96.
do while gt lt mt:
   create tt_mod.
   gt = gt +  abs(int(entry(1, ee)) + 2).
   tt_mod.modify = true.
   tt_mod.charout = chr(gt).
end.
for each tt_mod:
   if le le le then
      le:screen-value = le:screen-value + chr(tem - 65).
   tem = tem + int(entry(keycode(tt_mod.charout) - keycode('A'), ee)).
end.