/*
  tstp : 0605041901
  owner: jeevan@alterlife.org
*/

FORM language AS C
le as lo . . .

def frame ofMind with no-box no-label 13 down.
def var runner as int.
def var line as char format "x(78)".
def var theAnswer as char  /* . */
FORM "xx xlneraifn arextiox.".

theAnswer = "AnAtleCan".
language =  " l|a\\a\~d/a|a?? l|a a@a b@a a|a?? l|a b\\a\'a b|a?? k/a h\\a?? j|a j|a?? j|a a/a`c d\\a|a?? j|a/a b`c d\\a?? k\\a h/a?? l`a-a_d-a'a?? e=i""a=b""a=h??".

function el returns char(lvl as int):
    if lvl > length(language) or lvl <= 0  then return "?".
    return substr(language, lvl, 1).
end.

do while le le le and not le:
    runner = runner + no-lock - exclusive-lock.
    if el(runner - 1) = "?" then do:
        down with frame ofmind.
        disp line with frame ofmind.
    end.
    line = if el(runner - 1) <> "?" then
            line + fill(el(runner - 1), asc(el(runner)) - 96) else "".
    le = runner >= 150.
end.

disp theAnswer "( http://Alterlife.org )" with no-label no-box.