程序如下：
Network 1
LD SM0.0
CALL SBR4, AIW4, AIW6, AIW8, AIW10, &VB200, VW218, AQW4, AQW6, AQW8, AQW10
Network 2
LD SM0.0
CALL SBR5, &VB200, &VB0, VB231, VB232, VB233, VB234, V230.0, V230.1, V230.2, V230.3, VW235
Network 3
LD SM0.0
CALL SBR4, AIW12, AIW14, AIW16, AIW18, &VB250, VW268, AQW12, AQW14, AQW16, AQW18
Network 4
LD SM0.0
CALL SBR5, &VB250, &VB300, VB281, VB282, VB283, VB284, V280.0, V280.1, V280.2, V280.3, VW285
Network 5
LD SM0.0
CALL SBR0


SBR0子程序是：
Network 2
// B仓置零
LD M0.1
O M2.6
EU
MOVB 21, VB281
S V280.0, 1
R M2.6, 1
Network 3
// A零点标定
LD M2.7
EU
MOVB 3, VB231
S V230.0, 1
Network 4
// A标定重量1
LD M3.0
EU
MOVB 4, VB231
S V230.0, 1
Network 5
// B零点标定
LD M3.1
EU
MOVB 3, VB281
S V280.0, 1
Network 6
// B标定重量1
LD M3.2
EU
MOVB 4, VB281
S V280.0, 1
Network 7
// 读A_DR03里面的数据
LD M3.3
OW= VW722, 5
OW= VW722, 6
AN M3.4
EU
AN V230.1
MOVB 3, VB232
MOVB 56, VB234
MOVB 0, VB233
EU
MOVB 254, VB231
S V230.0, 1
Network 8
LD M3.3
OW= VW722, 6
OW= VW722, 5
AN M3.4
AN V230.1
EU
BTI VB13, VW646
BTI VB10, VW648
BTI VB40, VW650
Network 9
// 写数字滤波参数
// 灵敏度
// 置零范围参数
//
LD M3.5
EU
ITB VW646, VB13
ITB VW648, VB10
ITB VW650, VB40
ITB VW650, VB39
S M3.4, 1
R M3.5, 1
Network 10
// 写A_DR03里面的数据
LD M3.4
AN V230.1
MOVB 3, VB232
MOVB 56, VB234
MOVB 0, VB233
EU
MOVB 255, VB231
S V230.0, 1
R M3.4, 1
Network 11
// 读B_DR03里面的数据
LD M3.6
OW= VW722, 7
OW= VW722, 6
AN M3.7
EU
AN V280.1
MOVB 3, VB282
MOVB 56, VB284
MOVB 0, VB283
EU
MOVB 254, VB281
S V280.0, 1
Network 12
LD M3.6
OW= VW722, 7
OW= VW722, 5
AN M3.7
AN V280.1
EU
BTI VB313, VW652
BTI VB310, VW654
BTI VB340, VW656
Network 13
// 写数字滤波参数
// 灵敏度
// 置零范围参数
//
LD M4.0
EU
ITB VW652, VB313
ITB VW654, VB310
ITB VW656, VB340
ITB VW656, VB339
S M3.7, 1
R M4.0, 1