974 lines
7.1 KiB
Plaintext
974 lines
7.1 KiB
Plaintext
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
|
|
|
|
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
|
|
BEFORE ENTRY
|
|
ID2=""
|
|
END
|
|
AFTER ENTRY
|
|
LET ID2=(province*10^7)+(city*10^5)+(county*10^3)+(point*100)+school
|
|
GOTO schname
|
|
END
|
|
END
|
|
|
|
ID2
|
|
AFTER ENTRY
|
|
LET ID2=(province*10^7)+(city*10^5)+(county*10^3)+(point*100)+school
|
|
END
|
|
END
|
|
|
|
schname
|
|
MUSTENTER
|
|
END
|
|
|
|
a1
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 a2
|
|
2 a2
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
a2
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
a3
|
|
RANGE 1 9
|
|
JUMPS
|
|
1 a41
|
|
2 a41
|
|
3 a41
|
|
4 a41
|
|
5 a41
|
|
6 a41
|
|
7 a41
|
|
9 a41
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
a41
|
|
MUSTENTER
|
|
END
|
|
|
|
a42
|
|
MUSTENTER
|
|
END
|
|
|
|
a43
|
|
MUSTENTER
|
|
AFTER ENTRY
|
|
IF (A42 + A43) <> A41 THEN
|
|
HELP "错误:男生人数与女生人数之和不等于总人数" TYPE=WARNING
|
|
GOTO a41
|
|
EXIT
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
a44
|
|
MUSTENTER
|
|
END
|
|
|
|
a45
|
|
MUSTENTER
|
|
END
|
|
|
|
a46
|
|
MUSTENTER
|
|
AFTER ENTRY
|
|
IF (A45 + A46) <> A44 THEN
|
|
HELP "错误:男生人数与女生人数之和不等于总人数" TYPE=WARNING
|
|
GOTO a44
|
|
EXIT
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
b1
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
b2
|
|
MUSTENTER
|
|
END
|
|
|
|
b3
|
|
MUSTENTER
|
|
END
|
|
|
|
b4
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
b5a
|
|
MUSTENTER
|
|
END
|
|
|
|
b5b
|
|
MUSTENTER
|
|
END
|
|
|
|
b511
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b512
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b514
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b515
|
|
RANGE 1 5
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b516
|
|
RANGE 1 6
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b521
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b522
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b524
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b525
|
|
RANGE 1 5
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b526
|
|
RANGE 1 6
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b531
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b532
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b534
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b535
|
|
RANGE 1 5
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b536
|
|
RANGE 1 6
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b541
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b542
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b544
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b545
|
|
RANGE 1 5
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
b546
|
|
RANGE 1 6
|
|
LEGAL
|
|
9
|
|
END
|
|
END
|
|
|
|
c1
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 c111
|
|
3 C21
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c111
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c112
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c113
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c114
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c115
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c116
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c117
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c118
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c119
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 c119other
|
|
2 c12
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c12
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
c21
|
|
MUSTENTER
|
|
END
|
|
|
|
c22
|
|
MUSTENTER
|
|
END
|
|
|
|
c23
|
|
MUSTENTER
|
|
END
|
|
|
|
c24
|
|
MUSTENTER
|
|
END
|
|
|
|
c3
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d1
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 d2
|
|
END
|
|
END
|
|
|
|
d11
|
|
MUSTENTER
|
|
END
|
|
|
|
d111
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d112
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d113
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d114
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d115
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d116
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 d12
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d12
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d13
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
d2
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
|
|
e11
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e12
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e13
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e14
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e15
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e16
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e17
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e18
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e19
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e110
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e111
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 e111other
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e112
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 e21
|
|
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
|
|
MUSTENTER
|
|
END
|
|
|
|
e26
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e27
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e28
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e29
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e210
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e211
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e7
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
e8
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g121
|
|
MUSTENTER
|
|
END
|
|
|
|
g122
|
|
MUSTENTER
|
|
END
|
|
|
|
g141
|
|
MUSTENTER
|
|
END
|
|
|
|
g142
|
|
MUSTENTER
|
|
END
|
|
|
|
g21
|
|
MUSTENTER
|
|
END
|
|
|
|
g22
|
|
MUSTENTER
|
|
END
|
|
|
|
h01
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
4 h3
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h02
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 h3
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h21
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h3
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 i2
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h31
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h32
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
i2
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
i3
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
i4
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k1
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k2
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k301
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k302
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k303
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k304
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k305
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k306
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k307
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
k4
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
name
|
|
MUSTENTER
|
|
END
|
|
|
|
tel
|
|
MUSTENTER
|
|
END
|
|
|
|
date
|
|
MUSTENTER
|
|
END
|
|
|