home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTWZPT.PRG < prev    next >
Encoding:
Text File  |  1990-05-26  |  715 b   |  31 lines
  1. ****** RPTWZPT.PRG ******
  2. SELE 10
  3. USE BWZK
  4. SET FILT TO B_NO=BNO
  5. GO TOP
  6. WZRMAX=0
  7. DO WHILE .NOT.EOF()
  8. IF IIF(ZX3$'AC',1,2)*LEN(TRIM(WZR))>WZRMAX
  9. WZRMAX=LEN(TRIM(WZR))*IIF(ZX3$'AC',1,2)
  10. ENDIF
  11. SKIP
  12. ENDDO
  13. GO TOP
  14. ?? CHR(27)+'3'+CHR(25)
  15. DO WHILE .NOT.EOF()
  16. ZX1W=IIF(ZX1$'AC',1,2)/IIF(MBSZX$'AC',1,2)
  17. ZX2W=IIF(ZX2$'AC',1,2)/IIF(MBSZX$'AC',1,2)
  18. ZX3W=IIF(ZX3$'AC',1,2)/IIF(MBSZX$'AC',1,2)
  19. SP1=INT((BC/ZX1W))
  20. WZ1W=LEN(TRIM(WZL))*ZX1W
  21. SP2=INT((SNUM2/3-WZ1W)/ZX2W)
  22. WZ2W=LEN(TRIM(WZM))*ZX2W
  23. SP3=INT((SNUM2-WZ1W-SP2*ZX2W-WZ2W-WZRMAX)/ZX3W)
  24. ? CHR(27)+'I'+ZX1+SPACE(SP1)+TRIM(WZL)+CHR(27)+'I'+ZX2+SPACE(SP2)+TRIM(WZM);
  25. +CHR(27)+'I'+ZX3+SPACE(SP3)+TRIM(WZR)
  26. SKIP
  27. ENDDO
  28. RETU
  29. *** END OF RPTWZPT.PRG ***
  30.  
  31.