.子程序 checksum, 短整數型
.參數 buffer, 短整數型, 參考
.參數 size, 整數型
.局部變量 cksum, 整數型
.判斷循環首 (size ＞ 1)
cksum ＝ buffer ＋ 1 ＋ cksum
size ＝ size － 2
.判斷循環尾 ()
.如果真 (size ≠ 0)
cksum ＝ cksum ＋ 到字節 (buffer)
.如果真結束
cksum ＝ 右移 (cksum, 16) ＋ 位與 (cksum, 65535)
cksum ＝ cksum ＋ 右移 (cksum, 16)
返回 (cksum)