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 = $STR(S33)
CALCVAR HUMAN H16 = $human(SCL)
goto @測檢下同名17
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H15)
#ACT
goto @測檢數字16
break

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


[@測檢數字16]
#IF
EQUAL S33 $HUMAN(J16)
CHECKVAR HUMAN SCL > $HUMAN(H16)
#ACT
MOV P0 1
GOTO @測檢下同名16
break
#IF
EQUAL S33 $HUMAN(J16)
CHECKVAR HUMAN SCL = $HUMAN(H16)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J16)
CHECKVAR HUMAN SCL < $HUMAN(H16)
#ACT
CALCVAR HUMAN J16 = $STR(S33)
CALCVAR HUMAN H16 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H16)
#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 = $STR(S33)
CALCVAR HUMAN H16 = $human(SCL)
goto @測檢下同名17
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H16)
#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 = $STR(S33)
CALCVAR HUMAN H17 = $human(SCL)
goto @測檢下同名18
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H16)
#ACT
goto @測檢數字17
break


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


[@測檢數字17]
#IF
EQUAL S33 $HUMAN(J17)
CHECKVAR HUMAN SCL > $HUMAN(H17)
#ACT
MOV P0 1
GOTO @測檢下同名17
break
#IF
EQUAL S33 $HUMAN(J17)
CHECKVAR HUMAN SCL = $HUMAN(H17)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J17)
CHECKVAR HUMAN SCL < $HUMAN(H17)
#ACT
CALCVAR HUMAN J17 = $STR(S33)
CALCVAR HUMAN H17 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H17)
#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 = $STR(S33)
CALCVAR HUMAN H17 = $human(SCL)
goto @測檢下同名18
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H17)
#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 = $STR(S33)
CALCVAR HUMAN H18 = $human(SCL)
goto @測檢下同名19
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H17)
#ACT
goto @測檢數字18
break

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


[@測檢數字18]
#IF
EQUAL S33 $HUMAN(J18)
CHECKVAR HUMAN SCL > $HUMAN(H18)
#ACT
MOV P0 1
GOTO @測檢下同名18
break
#IF
EQUAL S33 $HUMAN(J18)
CHECKVAR HUMAN SCL = $HUMAN(H18)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J18)
CHECKVAR HUMAN SCL < $HUMAN(H18)
#ACT
CALCVAR HUMAN J18 = $STR(S33)
CALCVAR HUMAN H18 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H18)
#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 = $STR(S33)
CALCVAR HUMAN H18 = $human(SCL)
goto @測檢下同名19
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H18)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $STR(S33)
CALCVAR HUMAN H19 = $human(SCL)
goto @測檢下同名20
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H18)
#ACT
goto @測檢數字19
break

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


[@測檢數字19]
#IF
EQUAL S33 $HUMAN(J19)
CHECKVAR HUMAN SCL > $HUMAN(H19)
#ACT
MOV P0 1
GOTO @測檢下同名19
break
#IF
EQUAL S33 $HUMAN(J19)
CHECKVAR HUMAN SCL = $HUMAN(H19)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J19)
CHECKVAR HUMAN SCL < $HUMAN(H19)
#ACT
CALCVAR HUMAN J19 = $STR(S33)
CALCVAR HUMAN H19 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H19)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $human(L19)
CALCVAR HUMAN H20 = $human(K19)
CALCVAR HUMAN J19 = $STR(S33)
CALCVAR HUMAN H19 = $human(SCL)
goto @測檢下同名20
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H19)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $STR(S33)
CALCVAR HUMAN H20 = $human(SCL)
goto @終最轉換
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H19)
#ACT
goto @測檢數字20
break

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


[@測檢數字20]
#IF
EQUAL S33 $HUMAN(J20)
CHECKVAR HUMAN SCL > $HUMAN(H20)
#ACT
MOV P0 1
GOTO @測檢下同名20
break
#IF
EQUAL S33 $HUMAN(J20)
CHECKVAR HUMAN SCL = $HUMAN(H20)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J20)
CHECKVAR HUMAN SCL < $HUMAN(H20)
#ACT
CALCVAR HUMAN J20 = $STR(S33)
CALCVAR HUMAN H20 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H20)
#ACT
CALCVAR HUMAN J21 = $human(L20)
CALCVAR HUMAN H21 = $human(K20)
CALCVAR HUMAN J20 = $STR(S33)
CALCVAR HUMAN H20 = $human(SCL)
goto @終最轉換
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H20)
#ACT
CALCVAR HUMAN J21 = $STR(S33)
CALCVAR HUMAN H21 = $human(SCL)
goto @終最轉換
break
#ELSEACT
CALCVAR HUMAN J21 = $STR(S33)
CALCVAR HUMAN H21 = $human(SCL)
goto @終最轉換
break



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

[@測檢下同名1]
#IF
CHECKVAR HUMAN J01 = $STR(S33)
#ACT
CALCVAR HUMAN J01 = $human(J02)
CALCVAR HUMAN H01 = $human(H02)
CALCVAR HUMAN J02 = $human(J03)
CALCVAR HUMAN H02 = $human(H03)
CALCVAR HUMAN J03 = $human(J04)
CALCVAR HUMAN H03 = $human(H04)
CALCVAR HUMAN J04 = $human(J05)
CALCVAR HUMAN H04 = $human(H05)
CALCVAR HUMAN J05 = $human(J06)
CALCVAR HUMAN H05 = $human(H06)
CALCVAR HUMAN J06 = $human(J07)
CALCVAR HUMAN H06 = $human(H07)
CALCVAR HUMAN J07 = $human(J08)
CALCVAR HUMAN H07 = $human(H08)
CALCVAR HUMAN J08 = $human(J09)
CALCVAR HUMAN H08 = $human(H09)
CALCVAR HUMAN J09 = $human(J10)
CALCVAR HUMAN H09 = $human(H10)
CALCVAR HUMAN J10 = $human(J11)
CALCVAR HUMAN H10 = $human(H11)
CALCVAR HUMAN J11 = $human(J12)
CALCVAR HUMAN H11 = $human(H12)
CALCVAR HUMAN J12 = $human(J13)
CALCVAR HUMAN H12 = $human(H13)
CALCVAR HUMAN J13 = $human(J14)
CALCVAR HUMAN H13 = $human(H14)
CALCVAR HUMAN J14 = $human(J15)
CALCVAR HUMAN H14 = $human(H15)
CALCVAR HUMAN J15 = $human(J16)
CALCVAR HUMAN H15 = $human(H16)
CALCVAR HUMAN J16 = $human(J17)
CALCVAR HUMAN H16 = $human(H17)
CALCVAR HUMAN J17 = $human(J18)
CALCVAR HUMAN H17 = $human(H18)
CALCVAR HUMAN J18 = $human(J19)
CALCVAR HUMAN H18 = $human(H19)
CALCVAR HUMAN J19 = $human(J20)
CALCVAR HUMAN H19 = $human(H20)
CALCVAR HUMAN J20 = $human(J21)
CALCVAR HUMAN H20 = $human(H21)
GOTO @終最轉換
break
#ELSEACT
GOTO @測檢下同名2
break


[@測檢下同名2]
#IF
CHECKVAR HUMAN J02 = $STR(S33)
#ACT
CALCVAR HUMAN J02 = $human(J03)
CALCVAR HUMAN H02 = $human(H03)
CALCVAR HUMAN J03 = $human(J04)
CALCVAR HUMAN H03 = $human(H04)
CALCVAR HUMAN J04 = $human(J05)
CALCVAR HUMAN H04 = $human(H05)
CALCVAR HUMAN J05 = $human(J06)
CALCVAR HUMAN H05 = $human(H06)
CALCVAR HUMAN J06 = $human(J07)
CALCVAR HUMAN H06 = $human(H07)
CALCVAR HUMAN J07 = $human(J08)
CALCVAR HUMAN H07 = $human(H08)
CALCVAR HUMAN J08 = $human(J09)
CALCVAR HUMAN H08 = $human(H09)
CALCVAR HUMAN J09 = $human(J10)
CALCVAR HUMAN H09 = $human(H10)
CALCVAR HUMAN J10 = $human(J11)
CALCVAR HUMAN H10 = $human(H11)
CALCVAR HUMAN J11 = $human(J12)
CALCVAR HUMAN H11 = $human(H12)
CALCVAR HUMAN J12 = $human(J13)
CALCVAR HUMAN H12 = $human(H13)
CALCVAR HUMAN J13 = $human(J14)
CALCVAR HUMAN H13 = $human(H14)
CALCVAR HUMAN J14 = $human(J15)
CALCVAR HUMAN H14 = $human(H15)
CALCVAR HUMAN J15 = $human(J16)
CALCVAR HUMAN H15 = $human(H16)
CALCVAR HUMAN J16 = $human(J17)
CALCVAR HUMAN H16 = $human(H17)
CALCVAR HUMAN J17 = $human(J18)
CALCVAR HUMAN H17 = $human(H18)
CALCVAR HUMAN J18 = $human(J19)
CALCVAR HUMAN H18 = $human(H19)
CALCVAR HUMAN J19 = $human(J20)
CALCVAR HUMAN H19 = $human(H20)
CALCVAR HUMAN J20 = $human(J21)
CALCVAR HUMAN H20 = $human(H21)
GOTO @終最轉換
break
#ELSEACT
GOTO @測檢下同名3
break

[@測檢下同名3]
#IF
CHECKVAR HUMAN J03 = $STR(S33)
#ACT
CALCVAR HUMAN J03 = $human(J04)
CALCVAR HUMAN H03 = $human(H04)
CALCVAR HUMAN J04 = $human(J05)
CALCVAR HUMAN H04 = $human(H05)
CALCVAR HUMAN J05 = $human(J06)
CALCVAR HUMAN H05 = $human(H06)
CALCVAR HUMAN J06 = $human(J07)
CALCVAR HUMAN H06 = $human(H07)
CALCVAR HUMAN J07 = $human(J08)
CALCVAR HUMAN H07 = $human(H08)
CALCVAR HUMAN J08 = $human(J09)
CALCVAR HUMAN H08 = $human(H09)
CALCVAR HUMAN J09 = $human(J10)
CALCVAR HUMAN H09 = $human(H10)
CALCVAR HUMAN J10 = $human(J11)
CALCVAR HUMAN H10 = $human(H11)
CALCVAR HUMAN J11 = $human(J12)
CALCVAR HUMAN H11 = $human(H12)
CALCVAR HUMAN J12 = $human(J13)
CALCVAR HUMAN H12 = $human(H13)
CALCVAR HUMAN J13 = $human(J14)
CALCVAR HUMAN H13 = $human(H14)
CALCVAR HUMAN J14 = $human(J15)
CALCVAR HUMAN H14 = $human(H15)
CALCVAR HUMAN J15 = $human(J16)
CALCVAR HUMAN H15 = $human(H16)
CALCVAR HUMAN J16 = $human(J17)
CALCVAR HUMAN H16 = $human(H17)
CALCVAR HUMAN J17 = $human(J18)
CALCVAR HUMAN H17 = $human(H18)
CALCVAR HUMAN J18 = $human(J19)
CALCVAR HUMAN H18 = $human(H19)
CALCVAR HUMAN J19 = $human(J20)
CALCVAR HUMAN H19 = $human(H20)
CALCVAR HUMAN J20 = $human(J21)
CALCVAR HUMAN H20 = $human(H21)
GOTO @終最轉換
break
#ELSEACT
GOTO @測檢下同名4
break

[@測檢下同名4]
#IF
CHECKVAR HUMAN J04 = $STR(S33)
#ACT
CALCVAR HUMAN J04 = $human(J05)
CALCVAR HUMAN H04 = $human(H05)
CALCVAR HUMAN J05 = $human(J06)
CALCVAR HUMAN H05 = $human(H06)
CALCVAR HUMAN J06 = $human(J07)
CALCVAR HUMAN H06 = $human(H07)
CALCVAR HUMAN J07 = $human(J08)
CALCVAR HUMAN H07 = $human(H08)
CALCVAR HUMAN J08 = $human(J09)
CALCVAR HUMAN H08 = $human(H09)
CALCVAR HUMAN J09 = $human(J10)
CALCVAR HUMAN H09 = $human(H10)
CALCVAR HUMAN J10 = $human(J11)
CALCVAR HUMAN H10 = $human(H11)
CALCVAR HUMAN J11 = $human(J12)
CALCVAR HUMAN H11 = $human(H12)
CALCVAR HUMAN J12 = $human(J13)
CALCVAR HUMAN H12 = $human(H13)
CALCVAR HUMAN J13 = $human(J14)
CALCVAR HUMAN H13 = $human(H14)
CALCVAR HUMAN J14 = $human(J15)
CALCVAR HUMAN H14 = $human(H15)
CALCVAR HUMAN J15 = $human(J16)
CALCVAR HUMAN H15 = $human(H16)
CALCVAR HUMAN J16 = $human(J17)
CALCVAR HUMAN H16 = $human(H17)
CALCVAR HUMAN J17 = $human(J18)
CALCVAR HUMAN H17 = $human(H18)
CALCVAR HUMAN J18 = $human(J19)
CALCVAR HUMAN H18 = $human(H19)
CALCVAR HUMAN J19 = $human(J20)