[@自動排序降序]
{
#IF
CHECKVAR HUMAN SCL < $HUMAN(H21)
#ACT
CALCVAR HUMAN L01 = $HUMAN(J01)
CALCVAR HUMAN L02 = $HUMAN(J02)
CALCVAR HUMAN L03 = $HUMAN(J03)
CALCVAR HUMAN L04 = $HUMAN(J04)
CALCVAR HUMAN L05 = $HUMAN(J05)
CALCVAR HUMAN L06 = $HUMAN(J06)
CALCVAR HUMAN L07 = $HUMAN(J07)
CALCVAR HUMAN L08 = $HUMAN(J08)
CALCVAR HUMAN L09 = $HUMAN(J09)
CALCVAR HUMAN L10 = $HUMAN(J10)
CALCVAR HUMAN L11 = $HUMAN(J11)
CALCVAR HUMAN L12 = $HUMAN(J12)
CALCVAR HUMAN L13 = $HUMAN(J13)
CALCVAR HUMAN L14 = $HUMAN(J14)
CALCVAR HUMAN L15 = $HUMAN(J15)
CALCVAR HUMAN L16 = $HUMAN(J16)
CALCVAR HUMAN L17 = $HUMAN(J17)
CALCVAR HUMAN L18 = $HUMAN(J18)
CALCVAR HUMAN L19 = $HUMAN(J19)
CALCVAR HUMAN L20 = $HUMAN(J20)
CALCVAR HUMAN L21 = $HUMAN(J21)
CALCVAR HUMAN K01 = $HUMAN(H01)
CALCVAR HUMAN K02 = $HUMAN(H02)
CALCVAR HUMAN K03 = $HUMAN(H03)
CALCVAR HUMAN K04 = $HUMAN(H04)
CALCVAR HUMAN K05 = $HUMAN(H05)
CALCVAR HUMAN K06 = $HUMAN(H06)
CALCVAR HUMAN K07 = $HUMAN(H07)
CALCVAR HUMAN K08 = $HUMAN(H08)
CALCVAR HUMAN K09 = $HUMAN(H09)
CALCVAR HUMAN K10 = $HUMAN(H10)
CALCVAR HUMAN K11 = $HUMAN(H11)
CALCVAR HUMAN K12 = $HUMAN(H12)
CALCVAR HUMAN K13 = $HUMAN(H13)
CALCVAR HUMAN K14 = $HUMAN(H14)
CALCVAR HUMAN K15 = $HUMAN(H15)
CALCVAR HUMAN K16 = $HUMAN(H16)
CALCVAR HUMAN K17 = $HUMAN(H17)
CALCVAR HUMAN K18 = $HUMAN(H18)
CALCVAR HUMAN K19 = $HUMAN(H19)
CALCVAR HUMAN K20 = $HUMAN(H20)
CALCVAR HUMAN K21 = $HUMAN(H21)
goto @測檢數字01
break
#ELSEACT
goto @終最轉換
break

[@測檢數字01]
#IF
EQUAL S33 $HUMAN(J01)
CHECKVAR HUMAN SCL > $HUMAN(H01)
#ACT
MOV P0 1
GOTO @測檢下同名1
break
#IF
EQUAL S33 $HUMAN(J01)
CHECKVAR HUMAN SCL = $HUMAN(H01)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J01)
CHECKVAR HUMAN SCL < $HUMAN(H01)
#ACT
CALCVAR HUMAN J01 = $STR(S33)
CALCVAR HUMAN H01 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H01)
#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 = $human(L04)
CALCVAR HUMAN H05 = $human(K04)
CALCVAR HUMAN J04 = $human(L03)
CALCVAR HUMAN H04 = $human(K03)
CALCVAR HUMAN J03 = $human(L02)
CALCVAR HUMAN H03 = $human(K02)
CALCVAR HUMAN J02 = $human(L01)
CALCVAR HUMAN H02 = $human(K01)
CALCVAR HUMAN J01 = $STR(S33)
CALCVAR HUMAN H01 = $human(SCL)
goto @測檢下同名2
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H01)
#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 = $human(L04)
CALCVAR HUMAN H05 = $human(K04)
CALCVAR HUMAN J04 = $human(L03)
CALCVAR HUMAN H04 = $human(K03)
CALCVAR HUMAN J03 = $human(L02)
CALCVAR HUMAN H03 = $human(K02)
CALCVAR HUMAN J02 = $STR(S33)
CALCVAR HUMAN H02 = $human(SCL)
goto @測檢下同名3
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H01)
#ACT
goto @測檢數字02
break

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


[@測檢數字02]
#IF
EQUAL S33 $HUMAN(J02)
CHECKVAR HUMAN SCL > $HUMAN(H02)
#ACT
MOV P0 1
GOTO @測檢下同名2
break
#IF
EQUAL S33 $HUMAN(J02)
CHECKVAR HUMAN SCL = $HUMAN(H02)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J02)
CHECKVAR HUMAN SCL < $HUMAN(H02)
#ACT
CALCVAR HUMAN J02 = $STR(S33)
CALCVAR HUMAN H02 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H02)
#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 = $human(L04)
CALCVAR HUMAN H05 = $human(K04)
CALCVAR HUMAN J04 = $human(L03)
CALCVAR HUMAN H04 = $human(K03)
CALCVAR HUMAN J03 = $human(L02)
CALCVAR HUMAN H03 = $human(K02)
CALCVAR HUMAN J02 = $STR(S33)
CALCVAR HUMAN H02 = $human(SCL)
goto @測檢下同名3
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H02)
#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 = $human(L04)
CALCVAR HUMAN H05 = $human(K04)
CALCVAR HUMAN J04 = $human(L03)
CALCVAR HUMAN H04 = $human(K03)
CALCVAR HUMAN J03 = $STR(S33)
CALCVAR HUMAN H03 = $human(SCL)
goto @測檢下同名4
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H02)
#ACT
goto @測檢數字03
break


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


[@測檢數字03]
#IF
EQUAL S33 $HUMAN(J03)
CHECKVAR HUMAN SCL > $HUMAN(H03)
#ACT
MOV P0 1
GOTO @測檢下同名3
break
#IF
EQUAL S33 $HUMAN(J03)
CHECKVAR HUMAN SCL = $HUMAN(H03)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J03)
CHECKVAR HUMAN SCL < $HUMAN(H03)
#ACT
CALCVAR HUMAN J03 = $STR(S33)
CALCVAR HUMAN H03 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H03)
#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 = $human(L04)
CALCVAR HUMAN H05 = $human(K04)
CALCVAR HUMAN J04 = $human(L03)
CALCVAR HUMAN H04 = $human(K03)
CALCVAR HUMAN J03 = $STR(S33)
CALCVAR HUMAN H03 = $human(SCL)
goto @測檢下同名4
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H03)
#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 = $human(L04)
CALCVAR HUMAN H05 = $human(K04)
CALCVAR HUMAN J04 = $STR(S33)
CALCVAR HUMAN H04 = $human(SCL)
goto @測檢下同名5
break
#IF
CHECKVAR HUMAN SCL > $HUMAN(H03)
#ACT
goto @測檢數字04
break

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


[@測檢數字04]
#IF
EQUAL S33 $HUMAN(J04)
CHECKVAR HUMAN SCL > $HUMAN(H04)
#ACT
MOV P0 1
GOTO @測檢下同名4
break
#IF
EQUAL S33 $HUMAN(J04)
CHECKVAR HUMAN SCL = $HUMAN(H04)
#ACT
GOTO @終最轉換
break
#IF
EQUAL S33 $HUMAN(J04)
CHECKVAR HUMAN SCL < $HUMAN(H04)
#ACT
CALCVAR HUMAN J04 = $STR(S33)
CALCVAR HUMAN H04 = $human(SCL)
GOTO @終最轉換
break
#IF
CHECKVAR HUMAN SCL < $HUMAN(H04)
#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 = $human(L04)
CALCVAR HUMAN H05 = $human(K04)
CALCVAR HUMAN J04 = $STR(S33)
CALCVAR HUMAN H04 = $human(SCL)
goto @測檢下同名5
break
#IF
CHECKVAR HUMAN SCL = $HUMAN(H04)
#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)