home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTMZPT.PRG < prev    next >
Encoding:
Text File  |  1990-05-26  |  938 b   |  45 lines
  1. ****** RPTMZPT.PRG ******
  2. SELE 10
  3. ? CHR(27)+"I"+MBTZX+CHR(27)+'3'+CHR(24)
  4. ? SPACE(BC2+1)+BGM
  5. ?
  6. ?
  7. * SPACE(BC2-1)+BGM1
  8. USE BMZK
  9. SET FILT TO B_NO=BNO
  10. GO TOP
  11. MZRMAX=0
  12. DO WHILE .NOT.EOF()
  13. IF IIF(ZX3$'AC',1,2)*LEN(TRIM(MZR))>MZRMAX
  14. MZRMAX=LEN(TRIM(MZR))*IIF(ZX3$'AC',1,2)
  15. ENDIF
  16. SKIP
  17. ENDDO
  18. GO TOP
  19. DO WHILE .NOT.EOF()
  20. ZX1W=IIF(ZX1$'AC',1,2)/IIF(MBSZX$'AC',1,2)
  21. ZX2W=IIF(ZX2$'AC',1,2)/IIF(MBSZX$'AC',1,2)
  22. ZX3W=IIF(ZX3$'AC',1,2)/IIF(MBSZX$'AC',1,2)
  23. SP1=INT(((BC)/ZX1W))+1
  24. MZ1W=LEN(TRIM(MZL))*ZX1W
  25. SP2=INT((SNUM2/3-MZ1W)/ZX2W)
  26. MZ2W=LEN(TRIM(MZM))*ZX2W
  27. SP3=INT((SNUM2-MZ1W-SP2*ZX2W-MZ2W-MZRMAX)/ZX3W)-2
  28. ? CHR(27)+'I'+ZX1+SPACE(SP1)+TRIM(MZL)+CHR(27)+'I'+ZX2+SPACE(SP2)+TRIM(MZM);
  29. +CHR(27)+'I'+ZX3+SPACE(SP3)+TRIM(MZR)
  30. SKIP
  31. ENDDO
  32. ?? CHR(27)+"I"+MBSZX
  33. USE FFBT
  34. SET FILT TO B_NO=BNO
  35. GO TOP
  36. I=1
  37. DO WHILE I<=MXN
  38. ? SPACE(BC)+TRIM(SNA)
  39. I=I+1
  40. SKIP
  41. ENDDO
  42. ?? CHR(27)+'3'+CHR(24+HJJ)
  43. RETU
  44. *** END OF RPTMZPT.PRG ***
  45.