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
  LABEL 标记_a01
    11  初中一年级
    12  初中二年级
    13  初中三年级
    14  初中四年级
    21  高中一年级
    22  高中二年级
    23  高中三年级
    31  职高一年级
    32  职高二年级
    33  职高三年级
  END
END

AFTER RECORD
  IF (ID1=.) OR (ID2=.) THEN
    HELP "ID=number must be entered in ID1 and ID2" TYPE=ERROR
    IF ID1=. THEN
      GOTO ID1
    ELSE
      GOTO ID2
    ENDIF
    EXIT
  ENDIF
  IF (ID1<>ID2) THEN
    HELP "ID1=@ID1 and ID2=@ID2\n\nPlease check the data" TYPE=WARNING
    GOTO ID1
  ENDIF
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
  REPEAT
  BEFORE ENTRY
    ID2=""
  END
END

date
  MUSTENTER
  REPEAT
END

a01
  LEGAL
    11
    12
    13
    21
    22
    23
    31
    32
    33
  END
  COMMENT LEGAL USE 标记_a01
  MUSTENTER
  BEFORE ENTRY
    ID2=""
  END
END

a011
  MUSTENTER
  REPEAT
  BEFORE ENTRY
    ID2=""
  END
  AFTER ENTRY
    LET ID2=(10^13*province)+(10^11*city)+(county*10^9)+(point*10^8)+(school*1000000)+(a01*10000)+a011
    GOTO a02
  END
END

ID2
  AFTER ENTRY
    LET ID2=(10^13*province)+(10^11*city)+(county*10^9)+(point*10^8)+(school*1000000)+(a01*10000)+a011
  END
END

a02
  RANGE 1 2
  MUSTENTER
  BEFORE ENTRY
    UNHIDE Q91
    UNHIDE Q911
    UNHIDE Q92
    UNHIDE Q921
  END
  AFTER ENTRY
    IF A02=1 THEN
      HIDE Q91
      HIDE Q911
    ELSE
      IF A02=2 THEN
        HIDE Q92
        HIDE Q921
      ENDIF
    ENDIF
  END
END

a04
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a05
  RANGE 1 8
  LEGAL
    9
  END
  MUSTENTER
  AFTER ENTRY
    IF ( (A05=1) OR (A05=2) OR (A05=3) OR (A05=4) OR (A05=5) OR (A05=6) OR (A05=7) ) AND (A02=1) THEN
      GOTO Q92
    ENDIF
    IF ( (A05=1) OR (A05=2) OR (A05=3) OR (A05=4) OR (A05=5) OR (A05=6) OR (A05=7) ) AND (A02=2) THEN
      GOTO Q91
    ENDIF
  END
END

Q91
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    1 A06
  END
  MUSTENTER
END

Q911
  RANGE 0 25
  LEGAL
    999
  END
  JUMPS
    0-20 A06
  END
  MUSTENTER
END

Q92
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    1 A06
  END
  MUSTENTER
END

Q921
  RANGE 0 25
  JUMPS
    0-20 A06
  END
  MUSTENTER
END

a06
  MUSTENTER
END

a061
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a062
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a063
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a064
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a065
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a066
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a067
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

a08
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 A09
  END
  MUSTENTER
END

a081
  RANGE 0 14
  MUSTENTER
END

a09
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 B01
  END
  MUSTENTER
END

a091
  RANGE 0 12
  MUSTENTER
END

b01
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

b03
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

b04
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

b05
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

b13
  RANGE 1 5
  LEGAL
    9
  END
  MUSTENTER
END

b06
  RANGE 1 5
  LEGAL
    9
  END
  MUSTENTER
END

b09a
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

b09a1
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

b12
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

b14
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

b15
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

H401B
  RANGE 1 5
  LEGAL
    9
  END
  MUSTENTER
END

h401c
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h401d
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h01b
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

h01c
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

h02a
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

d02
  RANGE 1 4
  LEGAL
    9
  END
  JUMPS
    1 d021
    2 d022
    3 d0231
     4 c09
  END
  MUSTENTER
END

d021
  RANGE 0 168
  LEGAL
    999
  END
  MUSTENTER
END

d022
  RANGE 0 168
  LEGAL
    999
  END
  MUSTENTER
END

d0231
  RANGE 0 168
  LEGAL
    999
  END
  MUSTENTER
END

d0232
  RANGE 0 168
  LEGAL
    999
  END
  MUSTENTER
END

c09
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

h403a
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h403b
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h403c
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h403d
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h403e
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h04a
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

h04c
  RANGE 1 6
  LEGAL
    9
  END
  JUMPS
    1 c10
    9 c10
  END
  MUSTENTER
END

h04c
  RANGE 0 24
  LEGAL
    99
  END
  MUSTENTER
END

c10
  RANGE 1 2
  LEGAL
    9
  END
    JUMPS
    1 c102
    2 h03a
  END
  MUSTENTER
END

c102
  RANGE 0 1440
  LEGAL
    9999
  END
  MUSTENTER
END

h03a
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h03b
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h03c
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h03d
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

c03
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h03f
  RANGE 1 5
  LEGAL
    9
  END
  MUSTENTER
END

h03g
  RANGE 1 5
  LEGAL
    9
  END
  MUSTENTER
END

h03h
  RANGE 1 6
  LEGAL
    9
  END
  MUSTENTER
END

h05a
  RANGE 1 5
  LEGAL
    9
  END
  MUSTENTER
END

hd031
  RANGE 0 24
  LEGAL
    99
  END
  MUSTENTER
END

hd032
  RANGE 0 59
  LEGAL
    99
  END
  MUSTENTER
END

hd033
  RANGE 0 24
  LEGAL
    99
  END
  MUSTENTER
END

hd034
  RANGE 0 59
  LEGAL
    99
  END
  MUSTENTER
END

hd07
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

hd051
  RANGE 0 24
  LEGAL
    99
  END
  MUSTENTER
END

hd052
  RANGE 0 59
  LEGAL
    99
  END
  MUSTENTER
END

hd0511
  RANGE 0 24
  LEGAL
    99
  END
  MUSTENTER
END

hd0512
  RANGE 0 59
  LEGAL
    99
  END
  MUSTENTER
END

hd061
  RANGE 0 24
  LEGAL
    99
  END
  MUSTENTER
END

hd062
  RANGE 0 59
  LEGAL
    99
  END
  MUSTENTER
END

hd0611
  RANGE 0 24
  LEGAL
    99
  END
  MUSTENTER
END

hd0612
  RANGE 0 59
  LEGAL
    99
  END
  MUSTENTER
END

h06a
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h06b
  RANGE 1 5
  LEGAL
    9
  END
  MUSTENTER
END

h06c
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 g01
  END
  MUSTENTER
END

h06d1
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06d2
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06d3
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06d4
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06d5
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
  1  h06dother
  2  h06d6
END
  MUSTENTER
END

h06d6
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
  BEFORE ENTRY
    IF (H06D1 =1) OR (H06D2 =1) OR (H06D3 =1) OR (H06D4 =1) OR (H06D5 =1) THEN
      H06D6=2
      GOTO h06e1
    ENDIF
  END
END

h06e1
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06e2
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06e3
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06e4
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06e7
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

h06e5
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
  1  h06eother
  2  h06e6
END
  MUSTENTER
END

h06e6
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    1 g01
  END
  MUSTENTER
END

h06f
  RANGE 1 3
  LEGAL
    9
  END
  JUMPS
     1 h06f1
     2 h06f2
     3 h06g
  END
  MUSTENTER
  BEFORE ENTRY
    UNHIDE h06f1
    UNHIDE h06f2
  END
  AFTER ENTRY
    IF H06F=1 THEN
      HIDE h06f2
    ELSE
      IF H06F=2 THEN
        HIDE h06f1
      ENDIF
    ENDIF
  END
END

h06f1
  RANGE 0 25
  LEGAL
    99
  END
  MUSTENTER
END

h06f2
  RANGE 0 25
  LEGAL
    99
  END
  MUSTENTER
END

h06g
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

h06g1
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

g01
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

g11
  RANGE 1 3
  LEGAL
    9
  END
  MUSTENTER
END

i101
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i102
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i103
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i104
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i105
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i106
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i107
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i108
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i109
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i110
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i111
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i112
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i113
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i114
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i115
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i116
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i117
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i118
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i119
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i121
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i122
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i123
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i124
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i125
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i126
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i127
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i128
  RANGE 1 4
  LEGAL
    9
  END
  MUSTENTER
END

i129
  RANGE 1 2
  LEGAL
    9
  END
  JUMPS
    2 WRITE
  END
  MUSTENTER
END

i130
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

i131
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

i132
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

i133
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

i134
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

i135
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

i136
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

i137
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END