996 lines
8.0 KiB
Plaintext
996 lines
8.0 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
|
|
04 小学四年级
|
|
05 小学五年级
|
|
06 小学六年级
|
|
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
|
|
04
|
|
05
|
|
06
|
|
END
|
|
COMMENT LEGAL USE 标记_a01
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
ID2=""
|
|
END
|
|
END
|
|
|
|
a011
|
|
MUSTENTER
|
|
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
|
|
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
|
|
AFTER ENTRY
|
|
IF (Q91 = 1) THEN
|
|
Q911=9999
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
Q911
|
|
JUMPS
|
|
0-20 A06
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
Q92
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 A06
|
|
END
|
|
MUSTENTER
|
|
AFTER ENTRY
|
|
IF (Q92 = 1) THEN
|
|
Q921=9999
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
Q921
|
|
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
|
|
AFTER ENTRY
|
|
IF (A08 = 2) THEN
|
|
A081=99
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
a081
|
|
RANGE 0 14
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
a09
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 B01
|
|
END
|
|
AFTER ENTRY
|
|
IF (A09 = 2) THEN
|
|
A081=99
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
a091
|
|
RANGE 0 12
|
|
LEGAL
|
|
99
|
|
END
|
|
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
|
|
|
|
h04b
|
|
RANGE 1 6
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
h04c
|
|
RANGE 1 2
|
|
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
|
|
MUSTENTER
|
|
JUMPS
|
|
1 c102
|
|
2 h03a
|
|
END
|
|
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 WRITE
|
|
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
|
|
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 WRITE
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
|
|
h06f
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 H06F2
|
|
3 WRITE
|
|
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
|
|
|
|
|
|
|