没有测试，可能有会有问题：
dime sxmc(4),kdmc(4),xm(4),zkzh(4),bmh(4)
FOR i = 1 TO RECCOUNT()
    for j=1 to 4
        sxmc(j)='sxmc'+str(j,1)
        kdmc(j)='kdmc'+str(j,1)
        xm(j)  ='xm'+str(j,1)
        zkzh(j)='zkzh'+str(j,1)
        bmh(j) ='bmh'+str(j,1)   
    endf
    for t=i to i+3
        GO t
        &sxmc(t)=sxmc
        &kdmc(t)=kdmc
        &xm(t)=xm
        &zkzh(t)=zkzh
        &bmh(t)=bmh
    endf
    GO i
    REPORT FORM 中考准考证.frx record RECNO() NOCONSOLE prev
    *REPORT FORM 中考准考证.frx record RECNO() NOCONSOLE TO PRINTER
    i=i+4
NEXT