极语言6-6 最简编译器源码

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)
为 窗口关闭{停止(0)}
为 单击左键{如果(参数=2)读取内容}
否则{处理窗口(窗口,消息,参数,数据)}
结束;
小程序 窗体启动
桌面.左=窗体
读取消息
结束;
小程序 读取内容
{ 整数 文件,内容,长度;
文件=开文件("01.com",0)
长度=文件大小(文件,0)
内容=申请内存(长度)
读文件(文件,内容,长度)
关文件(文件)
取窗口字(文本框1,内容+516,64)
文件=建文件("01.exe",0)
写文件(文件,内容,长度)
关文件(文件)
释放内存(内容)
信息框(0,"编译完成","程序",0)
}