.版本 2 .支持库 spec .程序集 程序集1, , , ' .子程序 _启动子程序, 整数型 _临时子程序 () 返回 (0) .子程序 _临时子程序 .局部变量 pdata, 整数型 .局部变量 data, type_VT .局部变量 bin, 字节集 .局部变量 str, 文本型 .局部变量 vt, 变体型 pdata = new_type_VT () swap_ (取变量地址 (pdata), 取变量地址 (data)) data.int = 100 data.str = “12345” data.bin = 到字节集 (“aa