851 lines
6.8 KiB
Plaintext
851 lines
6.8 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
|
|
LABEL 标记_a01
|
|
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
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
REPEAT
|
|
BEFORE ENTRY
|
|
ID2=""
|
|
END
|
|
END
|
|
|
|
SCHOOL
|
|
MUSTENTER
|
|
REPEAT
|
|
BEFORE ENTRY
|
|
ID2=""
|
|
END
|
|
END
|
|
|
|
DATE
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|
|
A01
|
|
LEGAL
|
|
41
|
|
42
|
|
43
|
|
END
|
|
COMMENT LEGAL USE 标记_a01
|
|
MUSTENTER
|
|
REPEAT
|
|
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
|
|
|
|
a05other
|
|
MUSTENTER
|
|
END
|
|
|
|
Q91
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 A06
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
Q911
|
|
RANGE 0 20
|
|
JUMPS
|
|
0-20 A06
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
Q92
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 A06
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
Q921
|
|
RANGE 0 20
|
|
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
|
|
9 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
|
|
|
|
b14
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
b15
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h04a
|
|
RANGE 1 6
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h04b
|
|
RANGE 1 6
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h04c
|
|
RANGE 1 6
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 H05A
|
|
9 H05A
|
|
END
|
|
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
|
|
|
|
g01
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g02a
|
|
RANGE 1 4
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 i101
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g04
|
|
RANGE 1 8
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g05
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g06
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g07
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g08
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g09
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
g10
|
|
RANGE 1 2
|
|
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
|
|
|