constant.via

用VB6写的真正的32位高级语言可视程序编译器

// Constant.lnl

application PE GUI;

import MessageBox ascii lib "USER32.DLL",4;

const a = 1;
const b = a;
const c = [a+b];
const d = [c+c];
const e = [a+b+c+d];
const f = [e+1];

entry

// Raises an exception.. because f+c|b=7 and is treated as address..

    MessageBox(0,f+c|b,"Template..",$20);

end.