; anc / ahx by jeff

f! = ProgramShortName()
TT = 3570753 * 22 : mask = !1111

IF MD5(@f!, LENGTH(f!)) = "4048280BE5B4FB8E61E352CE75426DE8"
  WRITEN("D1_check!") : TT = mask
ENDIF

i! = HEX( !D800DBB8 - mask ) : j! = HEX( !DB71B621 )
a! = HEX( !65F6BBFC - mask ) : d! = HEX( !B9B2A316 )
b! = HEX( !1629BB17 - mask ) : e! = HEX( !1F7AB228 )
c! = HEX( !45696190 - mask ) : f! = HEX( !DB7BB621 )
g! = HEX( !D805DBB8 - mask ) : h! = HEX( !DB73B621 )

WRITEN("4048280BE5B4FB8E61E352CE75426DE81         NiArgSchrZvC== [T]")

WAIT(mask) : j! + f! + g! : SETC(j!) :  WRITEN(j! + "  [END]")

WAIT(TT)   : a! + b! + c! : SETC(a!) :  WRITEN(a! + "  [POC]")   ; d!?