LABELBLOCK
  LABEL 标记_province
    11  北京
    12  天津
    13  河北
    14  山西
    15  内蒙古
    21  辽宁
    22  吉林
    23  黑龙江
    31  上海
    32  江苏
    33  浙江
    34  安徽
    35  福建
    36  江西
    37  山东
    41  河南
    42  湖北
    43  湖南
    44  广东
    45  广西
    46  海南
    50  重庆
    51  四川
    52  贵州
    53  云南
    54  西藏
    61  陕西
    62  甘肃
    63  青海
    64  宁夏
    65  新疆
    66  新疆生产建设兵团
  END
END

ID1
  Autosearch  LIST ID1 
  MUSTENTER
  TYPE STATUSBAR "ID1=" GREEN
END

province
  COMMENT LEGAL USE 标记_province
  MUSTENTER
  REPEAT
  BEFORE ENTRY
    ID2=""
  END
END

city
  MUSTENTER
  REPEAT
  BEFORE ENTRY
    ID2=""
  END
END

county
  MUSTENTER
  REPEAT
  BEFORE ENTRY
    ID2=""
  END
END

point
  RANGE 1 2
  MUSTENTER
  REPEAT
  BEFORE ENTRY
    ID2=""
  END
END

school
  MUSTENTER
  BEFORE ENTRY
    ID2=""
  END
  AFTER ENTRY
    LET ID2=(province*10^7)+(city*10^5)+(county*10^3)+(point*100)+school
    GOTO a11
  END
END

ID2
  AFTER ENTRY
    LET ID2=(province*10^7)+(city*10^5)+(county*10^3)+(point*100)+school
  END
END

a11
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a12
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a13
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a14
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a16
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a15
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 B1
    9 B1
  END
  MUSTENTER
END

b1
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 C1
  END
  MUSTENTER
END

b2
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b3
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

b4
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

b5
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 C1
  END
  MUSTENTER
END

b51
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b52
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b53
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b54
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b55
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b56
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b57
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b58
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b59
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b510
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

b511
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    1 b511other
    2 C1
    9 C1
  END
  MUSTENTER
END

c1
  RANGE 1 3
  LEGAL
    9
  END
  JUMPS
    1 C21
  END
  MUSTENTER
END

c011
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

c012
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

c21
  MUSTENTER
END

c22
  MUSTENTER
END

c51
  MUSTENTER
END

c52
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

d1
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

e0
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 G0
  END
  MUSTENTER
END

e1
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e21
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e22
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e23
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e24
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e25
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 E3
    9 E3
  END
  MUSTENTER
END

e3
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e4
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e5
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e6
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e7
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

e8
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

g0
  RANGE 1 3
  LEGAL
    9
  END
END

g01
  RANGE 1 3
  LEGAL
    9
  END
  JUMPS
    1 type
    3 type
  END
END

type
  RANGE 1 5
  LEGAL
    9
  END
  JUMPS
    5 TYPEOTHER
  END
  MUSTENTER
  BEFORE ENTRY
    primary=""
    middle=""
  END
  AFTER ENTRY
    IF TYPE=1 THEN
      PRIMARY=1
      MIDDLE=2
      GOTO primary
    ENDIF
    IF TYPE=2 THEN
      PRIMARY=2
      MIDDLE=1
      GOTO middle
    ENDIF
    IF TYPE=3 THEN
      PRIMARY=2
      MIDDLE=1
      GOTO middle
    ENDIF
    IF TYPE=4 THEN
      PRIMARY=2
      MIDDLE=1
      GOTO middle
    ENDIF
    IF TYPE=5 THEN
      GOTO typeother
    ENDIF
  END
END

primary
  RANGE 1 2
  JUMPS
    1 pg011
    2 middle
  END
END

middle
  RANGE 1 2
  JUMPS
    1 mg011
    2 name1
  END
END

name1
  MUSTENTER
END

name2
  MUSTENTER
END

date
  MUSTENTER
END