.版本 2 .支持库 spec .程序集 程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _启动子程序, 整数型 _临时子程序 () 返回 (0) .子程序 _临时子程序 .局部变量 pdata, 整数型 .局部变量 data, type_VT .局部变量 bin, 字节集 .局部变量 str, 文本型 .局部变量 vt, 变体型 pdata ＝ new_type_VT () swap_ (取变量地址 (pdata), 取变量地址 (data)) data.int ＝ 100 data.str ＝ “12345” data.bin ＝ 到字节集 (“aaaaa”) data.variant.赋值 (“44444444”, ) 调试输出 (data.int, data.str, data.bin, data.variant.取文本 ()) swap_ (取变量地址 (pdata), 取变量地址 (data)) testfunc (pdata) delete_type_VT (pdata) .子程序 testfunc .参数 arg, 整数型 .局部变量 pdata, 整数型 .局部变量 data, type_VT pdata ＝ arg swap_ (取变量地址 (pdata), 取变量地址 (data)) 调试输出 (data.int, data.str, data.bin, data.variant.取文本 ()) swap_ (取变量地址 (pdata), 取变量地址 (data)) .子程序 swap_, , 公开, '传俩变量地址过来 .参数 a, 整数型, , ' 本源码来自三叶资源网(www.sanye.cx) .参数 b, 整数型 置入代码 ({ 139, 69, 8, 139, 93, 12, 139, 8, 135, 11, 137, 8 }) .子程序 new_type_VT, 整数型, 公开 .局部变量 data, type_VT data.int ＝ 0 置入代码 ({ 139, 69, 252, 137, 236, 93, 195 }) 返回 (0) .子程序 delete_type_VT, 整数型, 公开 .参数 arg, 整数型 .局部变量 data, type_VT data.int ＝ 0 置入代码 ({ 131, 236, 4, 139, 69, 8, 135, 69, 252, 137, 69, 248, 232, 0, 0, 0, 0, 88, 131, 192, 12, 135, 69, 4, 137, 69, 8, 235, 20, 131, 236, 12, 137, 229, 139, 69, 8, 137, 69, 4, 131, 236, 8, 139, 69, 248, 137, 69, 252 }) 返回 (0)