HH=0
BZ=0
L0=LEN(T1)
T2=SPACE((61-L0)/2)+T1+"名单("+STR(CR,3)+"人)"+SPAC((61-L0)/2)
SET COLO TO 7+/6
@ 4,4 SAY T2
IF BJ<>0
@ 4,4 SAY "[续"+STR(BJ,1)+"]"
ENDI
SET COLO TO 0/3
@ 6,4 CLEA TO 20,75
LH=4
DO WHIL 学号<=L2.AND.学号=L5.AND.LH<60.AND..NOT.EOF()
HB=15
HH=0
DO WHIL 学号<=L2.AND.学号=L5.AND.HH<HB.AND..NOT.EOF()
IF 代培="1"
M1=性别+"(代)"
ELSE
M1=性别+"    "
ENDI
@ HH+6,LH SAY 学号+" "+姓名+" "+M1
HH=HH+1
CR1=CR1+1
SKIP
ENDD
LH=LH+25
ENDD
SET COLO TO 6+/1
@ 24,0
@ 24,0 SAY "PgUp-前一班  PgDn-后一班  Home-头班  End-末班 0-退出 其他键按学号顺序显示"
DA=INKEY(0)
DO CASE
CASE DA=1
GO TOP
BJ=-1
CR1=0
CASE DA=6
GO BOTT
XH=LEFT(学号,5)
SEEK XH
CASE DA=18
SKIP -1*CR1-2
IF BOF()
BJ=-1
CR1=0
ENDI
XH=LEFT(学号,5)
SEEK XH
CASE DA=3
SKIP CR-CR1
XH=LEFT(学号,5)
SEEK XH
CASE DA=48
XG="0"
ENDC
