求助，问别人要的一个高考分数分段的程序，这些代码什么意思，需要怎么用啊
USE gk2016yjset dele on
SET TALK OFF
zsl=18723
km='zkcj'
INDE ON -&km TO in1
*1/6
sl=zsl/6
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
*2/6
sl=2*zsl/6
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
*3/6
sl=3*zsl/6
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
*4/6
sl=4*zsl/6
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
*5/6
sl=5*zsl/6
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
*6/6
sl=zsl
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
*1+1/3
sl=zsl*(1+1/3)
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
*1+2/3
sl=zsl*(1+2/3)
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
*2
sl=2*zsl
GO TOP
SKIP sl-1
zz1=&km
COUN FOR &km>zz1 TO x1
COUN FOR &km>=zz1 TO x2
xx=IIF(sl-x1<x2-sl,x1,x2)
?km+SPAC(2)+STR(xx,5)+'人: '
IF xx=x1
COUN FOR &km>zz1 TO a
ELSE
COUN FOR &km>=zz1 TO a
ENDIF
go top
skip a-1
jzf=&km
??STR(jzf,3)+SPAC(2)
retu
谢谢亲的帮助