.版本 2 .支持库 spec .程序集 PData, , 公开 .子程序 Push, 整数型, 公开 .参数 Data, 字节集 .局部变量 Length, 整数型 .局部变量 Add, 整数型 .如果 (Data ≠ { }) Length ＝ 取字节集长度 (Data) Add ＝ 申请内存 (4 ＋ Length, 真) 写到内存 (Length, Add, 4) 写到内存 (Data, Add ＋ 4, Length) 返回 (Add) .否则 返回 (0) .如果结束 .子程序 Pop, 字节集, 公开 .参数 Add, 整数型 .局部变量 Data, 字节集 Data ＝ 指针到字节集 (Add ＋ 4, 指针到整数 (Add)) 释放内存 (Add) 返回 (Data)