1.     定义变量 bx, by, 数量
  2.     令 数量 = ""
  3.     令 bx = x + 21
  4.     令 by = y + 1
  5.     循环 4 次
  6.         令 co = ""
  7.         令 y = by
  8.         循环 7 次
  9.             令 x = bx
  10.             循环 4 次
  11.                 如果点 (x,y) 的颜色等于 "FFFFFF" 则
  12.                     令 i = "1"
  13.                 否则
  14.                     令 i = "0"
  15.                 条件结束
  16.                 令 co = co & i
  17.                 令 x = x + 1
  18.             循环结束
  19.             令 y = y + 1
  20.         循环结束
  21.         如果 co = num0 则
  22.             令 num = "0"
  23.         否则如果 co = num1 则
  24.             令 num = "1"
  25.         否则如果 co = num2 则
  26.             令 num = "2"
  27.         否则如果 co = num3 则
  28.             令 num = "3"
  29.         否则如果 co = num4 则
  30.             令 num = "4"
  31.         否则如果 co = num5 则
  32.             令 num = "5"
  33.         否则如果 co = num6 则
  34.             令 num = "6"
  35.         否则如果 co = num7 则
  36.             令 num = "7"
  37.         否则如果 co = num8 则
  38.             令 num = "8"
  39.         否则如果 co = num9 则
  40.             令 num = "9"
  41.         否则
  42.             令 num = "0"
  43.         条件结束
  44.         令 数量 = num & 数量
  45.         如果 num = "1" 则
  46.             令 bx = bx - 4
  47.         否则
  48.             令 bx = bx - 6
  49.         条件结束
  50.     循环结束
  51.     如果 数量 = 0 则
  52.         令 数量 = 1
  53.     条件结束
  54.     注释： MessageBox("数量"&数量)
  55.     如果 flag = 1 则
  56.         a.write((数量 & "个" & 物品 & " "))
  57.     条件结束
  58.     令 sum = sum + 单价 * 数量
  59.     注释： s=Plugin.GetSysInfo.GetDateTime()
  60.     注释： a.writeline("------------------------------")
  61.     注释： a.writeline("时间："&s)
  62.     注释： MessageBox(sum)
  63. 子程序结束