CALCVAR HUMAN H13 = $human(K12)
CALCVAR HUMAN J12 = $human(L11)
CALCVAR HUMAN H12 = $human(K11)
CALCVAR HUMAN J11 = $human(L10)
CALCVAR HUMAN H11 = $human(K10)
CALCVAR HUMAN J10 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $STR(S33)
CALCVAR HUMAN H09 = $human(SCL)
goto @測檢下同名10
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H09)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $human(L13)
CALCVAR HUMAN H14 = $human(K13)
CALCVAR HUMAN J13 = $human(L12)
CALCVAR HUMAN H13 = $human(K12)
CALCVAR HUMAN J12 = $human(L11)
CALCVAR HUMAN H12 = $human(K11)
CALCVAR HUMAN J11 = $human(L10)
CALCVAR HUMAN H11 = $human(K10)
CALCVAR HUMAN J10 = $STR(S33)
CALCVAR HUMAN H10 = $human(SCL)
goto @測檢下同名11
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H09)
#ACT
goto @測檢數字10
break

;=============================================================================================


[@測檢數字10]
#IF
EQUAL S33 $HUMAN(J10)
CHECKVAR HUMAN SCL > $HUMAN(H10)
#ACT
MOV P0 1
GOTO @測檢下同名10
break
#IF
EQUAL S33 $HUMAN(J10)
CHECKVAR HUMAN SCL = $HUMAN(H10)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J10)
CHECKVAR HUMAN SCL < $HUMAN(H10)
#ACT
CALCVAR HUMAN J10 = $STR(S33)
CALCVAR HUMAN H10 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H10)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $human(L13)
CALCVAR HUMAN H14 = $human(K13)
CALCVAR HUMAN J13 = $human(L12)
CALCVAR HUMAN H13 = $human(K12)
CALCVAR HUMAN J12 = $human(L11)
CALCVAR HUMAN H12 = $human(K11)
CALCVAR HUMAN J11 = $human(L10)
CALCVAR HUMAN H11 = $human(K10)
CALCVAR HUMAN J10 = $STR(S33)
CALCVAR HUMAN H10 = $human(SCL)
goto @測檢下同名11
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H10)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $human(L13)
CALCVAR HUMAN H14 = $human(K13)
CALCVAR HUMAN J13 = $human(L12)
CALCVAR HUMAN H13 = $human(K12)
CALCVAR HUMAN J12 = $human(L11)
CALCVAR HUMAN H12 = $human(K11)
CALCVAR HUMAN J11 = $STR(S33)
CALCVAR HUMAN H11 = $human(SCL)
goto @測檢下同名12
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H10)
#ACT
goto @測檢數字11
break

;=============================================================================================


[@測檢數字11]
#IF
EQUAL S33 $HUMAN(J11)
CHECKVAR HUMAN SCL > $HUMAN(H11)
#ACT
MOV P0 1
GOTO @測檢下同名11
break
#IF
EQUAL S33 $HUMAN(J11)
CHECKVAR HUMAN SCL = $HUMAN(H11)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J11)
CHECKVAR HUMAN SCL < $HUMAN(H11)
#ACT
CALCVAR HUMAN J11 = $STR(S33)
CALCVAR HUMAN H11 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H11)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $human(L13)
CALCVAR HUMAN H14 = $human(K13)
CALCVAR HUMAN J13 = $human(L12)
CALCVAR HUMAN H13 = $human(K12)
CALCVAR HUMAN J12 = $human(L11)
CALCVAR HUMAN H12 = $human(K11)
CALCVAR HUMAN J11 = $STR(S33)
CALCVAR HUMAN H11 = $human(SCL)
goto @測檢下同名12
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H11)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $human(L13)
CALCVAR HUMAN H14 = $human(K13)
CALCVAR HUMAN J13 = $human(L12)
CALCVAR HUMAN H13 = $human(K12)
CALCVAR HUMAN J12 = $STR(S33)
CALCVAR HUMAN H12 = $human(SCL)
goto @測檢下同名13
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H11)
#ACT
goto @測檢數字12
break

;=============================================================================================


[@測檢數字12]
#IF
EQUAL S33 $HUMAN(J12)
CHECKVAR HUMAN SCL > $HUMAN(H12)
#ACT
MOV P0 1
GOTO @測檢下同名12
break
#IF
EQUAL S33 $HUMAN(J12)
CHECKVAR HUMAN SCL = $HUMAN(H12)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J12)
CHECKVAR HUMAN SCL < $HUMAN(H12)
#ACT
CALCVAR HUMAN J12 = $STR(S33)
CALCVAR HUMAN H12 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H12)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $human(L13)
CALCVAR HUMAN H14 = $human(K13)
CALCVAR HUMAN J13 = $human(L12)
CALCVAR HUMAN H13 = $human(K12)
CALCVAR HUMAN J12 = $STR(S33)
CALCVAR HUMAN H12 = $human(SCL)
goto @測檢下同名13
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H12)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $human(L13)
CALCVAR HUMAN H14 = $human(K13)
CALCVAR HUMAN J13 = $STR(S33)
CALCVAR HUMAN H13 = $human(SCL)
goto @測檢下同名14
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H12)
#ACT
goto @測檢數字13
break

;=============================================================================================


[@測檢數字13]
#IF
EQUAL S33 $HUMAN(J13)
CHECKVAR HUMAN SCL > $HUMAN(H13)
#ACT
MOV P0 1
GOTO @測檢下同名13
break
#IF
EQUAL S33 $HUMAN(J13)
CHECKVAR HUMAN SCL = $HUMAN(H13)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J13)
CHECKVAR HUMAN SCL < $HUMAN(H13)
#ACT
CALCVAR HUMAN J13 = $STR(S33)
CALCVAR HUMAN H13 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H13)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $human(L13)
CALCVAR HUMAN H14 = $human(K13)
CALCVAR HUMAN J13 = $STR(S33)
CALCVAR HUMAN H13 = $human(SCL)
goto @測檢下同名14
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H13)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $STR(S33)
CALCVAR HUMAN H14 = $human(SCL)
goto @測檢下同名15
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H13)
#ACT
goto @測檢數字14
break

;=============================================================================================


[@測檢數字14]
#IF
EQUAL S33 $HUMAN(J14)
CHECKVAR HUMAN SCL > $HUMAN(H14)
#ACT
MOV P0 1
GOTO @測檢下同名14
break
#IF
EQUAL S33 $HUMAN(J14)
CHECKVAR HUMAN SCL = $HUMAN(H14)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J14)
CHECKVAR HUMAN SCL < $HUMAN(H14)
#ACT
CALCVAR HUMAN J14 = $STR(S33)
CALCVAR HUMAN H14 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H14)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $human(L14)
CALCVAR HUMAN H15 = $human(K14)
CALCVAR HUMAN J14 = $STR(S33)
CALCVAR HUMAN H14 = $human(SCL)
goto @測檢下同名15
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H14)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $STR(S33)
CALCVAR HUMAN H15 = $human(SCL)
goto @測檢下同名16
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H14)
#ACT
goto @測檢數字15
break

;=============================================================================================


[@測檢數字15]
#IF
EQUAL S33 $HUMAN(J15)
CHECKVAR HUMAN SCL > $HUMAN(H15)
#ACT
MOV P0 1
GOTO @測檢下同名15
break
#IF
EQUAL S33 $HUMAN(J15)
CHECKVAR HUMAN SCL = $HUMAN(H15)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J15)
CHECKVAR HUMAN SCL < $HUMAN(H15)
#ACT
CALCVAR HUMAN J15 = $STR(S33)
CALCVAR HUMAN H15 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H15)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $human(L18)
CALCVAR HUMAN H19 = $human(K18)
CALCVAR HUMAN J18 = $human(L17)
CALCVAR HUMAN H18 = $human(K17)
CALCVAR HUMAN J17 = $human(L16)
CALCVAR HUMAN H17 = $human(K16)
CALCVAR HUMAN J16 = $human(L15)
CALCVAR HUMAN H16 = $human(K15)
CALCVAR HUMAN J15 = $STR(S33)
CALCVAR HUMAN H15 = $human(SCL)
goto @測檢下同名16