1045 lines
11 KiB
Plaintext
1045 lines
11 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 标记_grade
|
|
01 一年级
|
|
02 二年级
|
|
03 三年级
|
|
04 四年级
|
|
05 五年级
|
|
06 六年级
|
|
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
|
|
|
|
name
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|
|
zjtype
|
|
RANGE 1 4
|
|
JUMPS
|
|
1 sfz
|
|
2 mtp
|
|
3 trpmt
|
|
4 hz
|
|
END
|
|
MUSTENTER
|
|
AFTER ENTRY
|
|
IF zjtype = 1 THEN
|
|
UNHIDE sfz
|
|
HIDE mtp
|
|
HIDE trpmt
|
|
HIDE hz
|
|
ENDIF
|
|
IF zjtype = 2 THEN
|
|
UNHIDE mtp
|
|
HIDE sfz
|
|
HIDE trpmt
|
|
HIDE hz
|
|
ENDIF
|
|
IF zjtype = 3 THEN
|
|
UNHIDE trpmt
|
|
HIDE mtp
|
|
HIDE sfz
|
|
HIDE hz
|
|
ENDIF
|
|
IF zjtype = 4 THEN
|
|
UNHIDE hz
|
|
HIDE mtp
|
|
HIDE sfz
|
|
HIDE trpmt
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
sfz
|
|
MUSTENTER
|
|
END
|
|
|
|
mtp
|
|
MUSTENTER
|
|
END
|
|
|
|
trpmt
|
|
MUSTENTER
|
|
END
|
|
|
|
hz
|
|
MUSTENTER
|
|
END
|
|
|
|
GRADE
|
|
LEGAL
|
|
01
|
|
02
|
|
03
|
|
04
|
|
05
|
|
06
|
|
11
|
|
12
|
|
13
|
|
14
|
|
21
|
|
22
|
|
23
|
|
31
|
|
32
|
|
33
|
|
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
|
|
GOTO gender
|
|
END
|
|
END
|
|
|
|
gender
|
|
RANGE 1 2
|
|
MUSTENTER
|
|
END
|
|
|
|
nation
|
|
RANGE 1 8
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 BIRTH
|
|
2 BIRTH
|
|
3 BIRTH
|
|
4 BIRTH
|
|
5 BIRTH
|
|
6 BIRTH
|
|
7 BIRTH
|
|
9 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
|
|
|
|
glasstype
|
|
RANGE 1 4
|
|
JUMPS
|
|
1 visionR
|
|
2 visionR
|
|
3 OKR
|
|
4 visionR
|
|
END
|
|
MUSTENTER
|
|
AFTER ENTRY
|
|
IF (GLASSTYPE=1) OR (GLASSTYPE=2) THEN
|
|
UNHIDE visionR
|
|
UNHIDE visionL
|
|
UNHIDE glassR
|
|
UNHIDE glassL
|
|
HIDE OKR
|
|
HIDE OKL
|
|
UNHIDE spherR
|
|
UNHIDE cylinR
|
|
UNHIDE axisR
|
|
UNHIDE SER
|
|
UNHIDE spherRT
|
|
UNHIDE cylinRT
|
|
UNHIDE axisRT
|
|
UNHIDE spherL
|
|
UNHIDE cylinL
|
|
UNHIDE axisL
|
|
UNHIDE SEL
|
|
UNHIDE spherLT
|
|
UNHIDE cylinLT
|
|
UNHIDE axisLT
|
|
ENDIF
|
|
IF GLASSTYPE=3 THEN
|
|
HIDE visionR
|
|
HIDE visionL
|
|
UNHIDE glassR
|
|
UNHIDE glassL
|
|
UNHIDE OKR
|
|
UNHIDE OKL
|
|
HIDE spherR
|
|
HIDE cylinR
|
|
HIDE axisR
|
|
HIDE SER
|
|
HIDE spherRT
|
|
HIDE cylinRT
|
|
HIDE axisRT
|
|
HIDE spherL
|
|
HIDE cylinL
|
|
HIDE axisL
|
|
HIDE SEL
|
|
HIDE spherLT
|
|
HIDE cylinLT
|
|
HIDE axisLT
|
|
ENDIF
|
|
IF GLASSTYPE=4 THEN
|
|
UNHIDE visionR
|
|
UNHIDE visionL
|
|
HIDE glassR
|
|
HIDE glassL
|
|
HIDE OKR
|
|
HIDE OKL
|
|
UNHIDE spherR
|
|
UNHIDE cylinR
|
|
UNHIDE axisR
|
|
UNHIDE SER
|
|
UNHIDE spherRT
|
|
UNHIDE cylinRT
|
|
UNHIDE axisRT
|
|
UNHIDE spherL
|
|
UNHIDE cylinL
|
|
UNHIDE axisL
|
|
UNHIDE SEL
|
|
UNHIDE spherLT
|
|
UNHIDE cylinLT
|
|
UNHIDE axisLT
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
OKR
|
|
RANGE -30.00 0.00
|
|
LEGAL
|
|
999
|
|
END
|
|
END
|
|
|
|
OKL
|
|
RANGE -30.00 0.00
|
|
LEGAL
|
|
999
|
|
END
|
|
AFTER ENTRY
|
|
IF (GLASSTYPE=3) AND (OKR=0) AND (OKL<>0) THEN
|
|
UNHIDE visionR
|
|
HIDE glassR
|
|
HIDE visionL
|
|
UNHIDE glassL
|
|
ENDIF
|
|
IF (GLASSTYPE=3) AND (OKL=0) AND (OKR<>0) THEN
|
|
UNHIDE visionL
|
|
HIDE glassL
|
|
HIDE visionR
|
|
UNHIDE glassR
|
|
ENDIF
|
|
IF (GLASSTYPE=3) AND (OKR<>0) AND (OKL<>0) THEN
|
|
HIDE visionR
|
|
HIDE visionL
|
|
UNHIDE glassR
|
|
UNHIDE glassL
|
|
ENDIF
|
|
IF (GLASSTYPE=3) AND (OKR=0) AND (OKL=0) THEN
|
|
HELP "角膜塑形镜度数与戴镜类型矛盾，请核对" TYPE=WARNING
|
|
GOTO glasstype
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
visionR
|
|
RANGE 3.3 5.6
|
|
LEGAL
|
|
0
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
glassR
|
|
RANGE 3.3 5.6
|
|
LEGAL
|
|
0
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
visionL
|
|
RANGE 3.3 5.6
|
|
LEGAL
|
|
0
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
glassL
|
|
RANGE 3.3 5.6
|
|
LEGAL
|
|
0
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
name1
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|
|
spherR
|
|
RANGE -30.00 30.00
|
|
LEGAL
|
|
999
|
|
END
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
SER=""
|
|
spherRT=""
|
|
cylinRT=""
|
|
axisRT=""
|
|
END
|
|
END
|
|
|
|
cylinR
|
|
RANGE -15.00 15.00
|
|
LEGAL
|
|
999
|
|
END
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
SER=""
|
|
spherRT=""
|
|
cylinRT=""
|
|
axisRT=""
|
|
END
|
|
END
|
|
|
|
axisR
|
|
RANGE 0 180
|
|
LEGAL
|
|
999
|
|
END
|
|
BEFORE ENTRY
|
|
SER=""
|
|
spherRT=""
|
|
cylinRT=""
|
|
axisRT=""
|
|
END
|
|
AFTER ENTRY
|
|
UNHIDE SER
|
|
LET SER=spherR+cylinR*0.5
|
|
IF (cylinR > 0) AND (axisR > 90) THEN
|
|
LET spherRT=spherR+cylinR
|
|
LET cylinRT=cylinR*(-1)
|
|
LET axisRT=axisR-90
|
|
ENDIF
|
|
IF (cylinR > 0) AND (axisR < 90) THEN
|
|
LET spherRT=spherR+cylinR
|
|
LET cylinRT=cylinR*(-1)
|
|
LET axisRT=axisR+90
|
|
ENDIF
|
|
IF (cylinR <= 0) THEN
|
|
LET spherRT=999
|
|
LET cylinRT=999
|
|
LET axisRT=999
|
|
ENDIF
|
|
GOTO spherL
|
|
END
|
|
END
|
|
|
|
spherL
|
|
RANGE -30.00 30.00
|
|
LEGAL
|
|
999
|
|
END
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
SEL=""
|
|
spherLT=""
|
|
cylinLT=""
|
|
axisLT=""
|
|
END
|
|
END
|
|
|
|
cylinL
|
|
RANGE -15.00 15.00
|
|
LEGAL
|
|
999
|
|
END
|
|
MUSTENTER
|
|
BEFORE ENTRY
|
|
SEL=""
|
|
spherLT=""
|
|
cylinLT=""
|
|
axisLT=""
|
|
END
|
|
END
|
|
|
|
axisL
|
|
RANGE 0 180
|
|
LEGAL
|
|
999
|
|
END
|
|
BEFORE ENTRY
|
|
SEL=""
|
|
spherLT=""
|
|
cylinLT=""
|
|
axisLT=""
|
|
END
|
|
AFTER ENTRY
|
|
UNHIDE SEL
|
|
LET SEL=spherL+cylinL*0.5
|
|
IF (cylinL > 0) AND (axisL > 90) THEN
|
|
UNHIDE spherLT
|
|
UNHIDE cylinLT
|
|
UNHIDE axisLT
|
|
LET spherLT=spherL+cylinL
|
|
LET cylinLT=cylinL*(-1)
|
|
LET axisLT=axisL-90
|
|
ENDIF
|
|
IF (cylinL > 0) AND (axisL < 90) THEN
|
|
UNHIDE spherLT
|
|
UNHIDE cylinLT
|
|
UNHIDE axisLT
|
|
LET spherLT=spherL+cylinL
|
|
LET cylinLT=cylinL*(-1)
|
|
LET axisLT=axisL+90
|
|
ENDIF
|
|
IF (cylinL <= 0) THEN
|
|
LET spherLT=999
|
|
LET cylinLT=999
|
|
LET axisLT=999
|
|
ENDIF
|
|
GOTO q39
|
|
END
|
|
END
|
|
|
|
q39
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 q40
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
q40
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 NOTE
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
NOTE
|
|
AFTER ENTRY
|
|
IF GRADE=53 THEN
|
|
GOTO name
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
name2
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|
|
q51
|
|
RANGE 0 20
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
q52
|
|
RANGE 0 20
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
q53
|
|
RANGE 0 20
|
|
LEGAL
|
|
99
|
|
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
|
|
|
|
name3
|
|
MUSTENTER
|
|
REPEAT
|
|
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
|
|
|
|
name4
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|
|
qx51
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 qx091
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx52
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx53
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx54
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx55
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx56
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx091
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx092
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx093
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx094
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx2
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx2ATR
|
|
RANGE 0 50
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx3
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx3ATR
|
|
RANGE 0 50
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx4
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx4ATR
|
|
RANGE 0 50
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx6
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
2 QX7
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx62ATR
|
|
RANGE 0 50
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx63ATR
|
|
RANGE 0 50
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx64ATR
|
|
RANGE 0 50
|
|
LEGAL
|
|
99
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx7
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 QX8
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx71
|
|
RANGE 1 3
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 QX8
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx8
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 QX10
|
|
END
|
|
MUSTENTER
|
|
AFTER ENTRY
|
|
IF QX8=1 THEN
|
|
QX81=2
|
|
QX82=2
|
|
QX83=2
|
|
GOTO qx10
|
|
ENDIF
|
|
IF QX8=2 THEN
|
|
GOTO qx81
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
qx81
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx82
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx83
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx10
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 NAME
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx11
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx12
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
JUMPS
|
|
1 qx121
|
|
2 QX13
|
|
END
|
|
MUSTENTER
|
|
AFTER ENTRY
|
|
IF (QX12 = 2) THEN
|
|
QX121=9
|
|
ENDIF
|
|
END
|
|
END
|
|
|
|
qx121
|
|
RANGE 0 4
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx13
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
qx14
|
|
RANGE 1 2
|
|
LEGAL
|
|
9
|
|
END
|
|
MUSTENTER
|
|
END
|
|
|
|
date
|
|
MUSTENTER
|
|
REPEAT
|
|
END
|
|
|