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 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $human(L08)
CALCVAR HUMAN H09 = $human(K08)
CALCVAR HUMAN J08 = $human(L07)
CALCVAR HUMAN H08 = $human(K07)
CALCVAR HUMAN J07 = $human(L06)
CALCVAR HUMAN H07 = $human(K06)
CALCVAR HUMAN J06 = $human(L05)
CALCVAR HUMAN H06 = $human(K05)
CALCVAR HUMAN J05 = $STR(S33)
CALCVAR HUMAN H05 = $human(SCL)
goto @測檢下同名6
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H04)
#ACT
goto @測檢數字05
break

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


[@測檢數字05]
#IF
EQUAL S33 $HUMAN(J05)
CHECKVAR HUMAN SCL > $HUMAN(H05)
#ACT
MOV P0 1
GOTO @測檢下同名5
break
#IF
EQUAL S33 $HUMAN(J05)
CHECKVAR HUMAN SCL = $HUMAN(H05)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J05)
CHECKVAR HUMAN SCL < $HUMAN(H05)
#ACT
CALCVAR HUMAN J05 = $STR(S33)
CALCVAR HUMAN H05 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H05)
#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 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $human(L08)
CALCVAR HUMAN H09 = $human(K08)
CALCVAR HUMAN J08 = $human(L07)
CALCVAR HUMAN H08 = $human(K07)
CALCVAR HUMAN J07 = $human(L06)
CALCVAR HUMAN H07 = $human(K06)
CALCVAR HUMAN J06 = $human(L05)
CALCVAR HUMAN H06 = $human(K05)
CALCVAR HUMAN J05 = $STR(S33)
CALCVAR HUMAN H05 = $human(SCL)
goto @測檢下同名6
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H05)
#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 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $human(L08)
CALCVAR HUMAN H09 = $human(K08)
CALCVAR HUMAN J08 = $human(L07)
CALCVAR HUMAN H08 = $human(K07)
CALCVAR HUMAN J07 = $human(L06)
CALCVAR HUMAN H07 = $human(K06)
CALCVAR HUMAN J06 = $STR(S33)
CALCVAR HUMAN H06 = $human(SCL)
goto @測檢下同名7
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H05)
#ACT
goto @測檢數字06
break

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


[@測檢數字06]
#IF
EQUAL S33 $HUMAN(J06)
CHECKVAR HUMAN SCL > $HUMAN(H06)
#ACT
MOV P0 1
GOTO @測檢下同名6
break
#IF
EQUAL S33 $HUMAN(J06)
CHECKVAR HUMAN SCL = $HUMAN(H06)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J06)
CHECKVAR HUMAN SCL < $HUMAN(H06)
#ACT
CALCVAR HUMAN J06 = $STR(S33)
CALCVAR HUMAN H06 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H06)
#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 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $human(L08)
CALCVAR HUMAN H09 = $human(K08)
CALCVAR HUMAN J08 = $human(L07)
CALCVAR HUMAN H08 = $human(K07)
CALCVAR HUMAN J07 = $human(L06)
CALCVAR HUMAN H07 = $human(K06)
CALCVAR HUMAN J06 = $STR(S33)
CALCVAR HUMAN H06 = $human(SCL)
goto @測檢下同名7
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H06)
#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 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $human(L08)
CALCVAR HUMAN H09 = $human(K08)
CALCVAR HUMAN J08 = $human(L07)
CALCVAR HUMAN H08 = $human(K07)
CALCVAR HUMAN J07 = $STR(S33)
CALCVAR HUMAN H07 = $human(SCL)
goto @測檢下同名8
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H06)
#ACT
goto @測檢數字07
break

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


[@測檢數字07]
#IF
EQUAL S33 $HUMAN(J07)
CHECKVAR HUMAN SCL > $HUMAN(H07)
#ACT
MOV P0 1
GOTO @測檢下同名7
break
#IF
EQUAL S33 $HUMAN(J07)
CHECKVAR HUMAN SCL = $HUMAN(H07)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J07)
CHECKVAR HUMAN SCL < $HUMAN(H07)
#ACT
CALCVAR HUMAN J07 = $STR(S33)
CALCVAR HUMAN H07 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H07)
#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 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $human(L08)
CALCVAR HUMAN H09 = $human(K08)
CALCVAR HUMAN J08 = $human(L07)
CALCVAR HUMAN H08 = $human(K07)
CALCVAR HUMAN J07 = $STR(S33)
CALCVAR HUMAN H07 = $human(SCL)
goto @測檢下同名8
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H07)
#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 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $human(L08)
CALCVAR HUMAN H09 = $human(K08)
CALCVAR HUMAN J08 = $STR(S33)
CALCVAR HUMAN H08 = $human(SCL)
goto @測檢下同名9
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H07)
#ACT
goto @測檢數字08
break

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


[@測檢數字08]
#IF
EQUAL S33 $HUMAN(J08)
CHECKVAR HUMAN SCL > $HUMAN(H08)
#ACT
MOV P0 1
GOTO @測檢下同名8
break
#IF
EQUAL S33 $HUMAN(J08)
CHECKVAR HUMAN SCL = $HUMAN(H08)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J08)
CHECKVAR HUMAN SCL < $HUMAN(H08)
#ACT
CALCVAR HUMAN J08 = $STR(S33)
CALCVAR HUMAN H08 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H08)
#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 = $human(L09)
CALCVAR HUMAN H10 = $human(K09)
CALCVAR HUMAN J09 = $human(L08)
CALCVAR HUMAN H09 = $human(K08)
CALCVAR HUMAN J08 = $STR(S33)
CALCVAR HUMAN H08 = $human(SCL)
goto @測檢下同名9
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H08)
#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 = $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(H08)
#ACT
goto @測檢數字09
break

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


[@測檢數字09]
#IF
EQUAL S33 $HUMAN(J09)
CHECKVAR HUMAN SCL > $HUMAN(H09)
#ACT
MOV P0 1
GOTO @測檢下同名9
break
#IF
EQUAL S33 $HUMAN(J09)
CHECKVAR HUMAN SCL = $HUMAN(H09)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J09)
CHECKVAR HUMAN SCL < $HUMAN(H09)
#ACT
CALCVAR HUMAN J09 = $STR(S33)
CALCVAR HUMAN H09 = $human(SCL)
GOTO @終最轉換
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)