5800计算器程序

主程序：ZBZS4-DimZ:Fix 4: “XZ” ? U: "YZ” ? VLbl 0： Prog “SJK”X-U-*I:Y-V->J:Pol(I, J)：If J<0:Then J+36O0