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 标记_grade
    41  大一
    42  大二
    43  大三
  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

GRADE
  LEGAL
    41
    42
    43
  END
  COMMENT LEGAL USE 标记_grade
  MUSTENTER
  BEFORE ENTRY
    ID2=""
  END
END


num
  MUSTENTER
  BEFORE ENTRY
    ID2=""
  END
  AFTER ENTRY
    LET ID2=(10^13*province)+(10^11*city)+(county*10^9)+(point*10^8)+(school*10^6)+(grade*10^4)+num
    GOTO gender
  END
END

ID2
  AFTER ENTRY
    LET ID2=(10^13*province)+(10^11*city)+(county*10^9)+(point*10^8)+(school*10^6)+(grade*10^4)+num
  END
END

gender
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

nation
  RANGE 1 8
  LEGAL
    9
  END
  JUMPS
    1 BIRTH
    2 BIRTH
    3 BIRTH
    4 BIRTH
    5 BIRTH
    6 BIRTH
    7 BIRTH
  END
  MUSTENTER
END

birth
  MUSTENTER
END

examine
  MUSTENTER
  REPEAT
END

q31
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

q32
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

q33
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

q34
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

q35
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

q36
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

q37
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

q38
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

q399a
  RANGE 1 2
  LEGAL
    9
  END
  MUSTENTER
END

visionR
  RANGE 3.3 5.6
  LEGAL
    0
    9
  END
  MUSTENTER
END

visionL
  RANGE 3.3 5.6
  LEGAL
    0
    9
  END
  MUSTENTER
END

q54
  RANGE 0 32
  LEGAL
    99
  END
  MUSTENTER
END

q55
  RANGE 0 32
  LEGAL
    99
  END
  MUSTENTER
END

q56
  RANGE 0 32
  LEGAL
    99
  END
  MUSTENTER
END

q6
  RANGE 80 210
  LEGAL
    999
  END
  MUSTENTER
END

q7
  RANGE 10 200
  LEGAL
    999
  END
  MUSTENTER
END

q09
  RANGE 30 150
  LEGAL
    999
  END
  MUSTENTER
END

Q81
  RANGE 0 300
  LEGAL
    999
  END
  MUSTENTER
END

Q82
  RANGE 0 200
  LEGAL
    999
  END
  MUSTENTER
END

name
  MUSTENTER
  REPEAT
END

date
  MUSTENTER
  REPEAT
END