home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTCR211.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  1.7 KB  |  95 lines
  1. ** RPTCR211.PRG ╔·│╔╗∙▓π▒φ═╖▒Σ┴┐       **
  2. ** NA(1,LLO):╗∙▓π╧▀                    **
  3. ** SYNN:┐╒╨╨╧▀;SYM2:╖╓╕±╧▀;SYM3:╢╡╡╫╧▀ **
  4. SELE 2
  5. USE TBB1
  6. IF LLO=0
  7. LLO=1
  8. ENDIF
  9. I=1
  10. DO WHILE I<=LLO
  11. NA='NA'+STR(I,1)
  12. &NA='⌐º'
  13. I=I+1
  14. ENDDO
  15. HE='⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
  16. HE=HE+HE+HE+HE+HE+HE+HE+HE+HE+HE+HE+HE
  17. HK='⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ'
  18. HK=HK+HK+HK+HK+HK+HK+HK+HK+HK+HK+HK+HK
  19. SYM0='⌐│'
  20. SYNN='⌐º'
  21. SYM2='⌐─'
  22. SYM3='⌐╗'
  23. DO WHILE .NOT.EOF()
  24. BCS=FIELD_LEN
  25. SYNN=SYNN+SPACE(BCS)+'⌐ª'
  26. SYM0=SYM0+SUBS(HK,1,BCS)+'⌐╙'
  27. SYM2=SYM2+SUBS(HE,1,BCS)+'⌐α'
  28. SYM3=SYM3+SUBS(HK,1,BCS)+'⌐█'
  29. J=1
  30. I=1
  31. DO WHILE I<=LLO
  32. MN=TRIM(C_NAME)
  33. IF LEN(MN)<J
  34. FP=''
  35. ELSE
  36. FP=SUBSTR(MN,J,BCS)
  37. ENDIF
  38. NX=INT((BCS-LEN(FP))/2)
  39. MX=BCS-NX-LEN(FP)
  40. NA='NA'+STR(I,1)
  41. &NA=&NA+SPACE(NX)+FP+SPACE(MX)
  42. J=J+BCS
  43. I=I+1
  44. &NA=&NA+'⌐ª'
  45. ENDDO
  46. SKIP
  47. ENDDO
  48. I=1
  49. DO WHILE I<=LLO
  50. J=STR(I,1)
  51. NA&J=SUBS(NA&J,1,LEN(NA&J)-2)+'⌐º'
  52. I=I+1
  53. ENDDO
  54. SYM0=SUBS(SYM0,1,LEN(SYM0)-2)+'⌐╖'
  55. SYNN=SUBS(SYNN,1,LEN(SYNN)-2)+'⌐º'
  56. SYM2=SUBS(SYM2,1,LEN(SYM2)-2)+'⌐╠'
  57. SYM3=SUBS(SYM3,1,LEN(SYM3)-2)+'⌐┐'
  58. CLEAR
  59. SELE 2
  60. USE
  61. SELE 3
  62. USE BBTK
  63. APPE FROM TBB1
  64. REPL ALL FOR B_NO=0 B_NO WITH BNO
  65. USE FFBT
  66. APPEND BLANK
  67. REPL B_NO WITH BNO,SNA WITH IIF(MC=1,SYM0,SYAA)
  68. I=1
  69. DO WHILE I<MC
  70. SYA='SYA'+STR(I,1)
  71. SYB='SYB'+STR(I,1)
  72. APPEND BLANK
  73. REPL B_NO WITH BNO,SNA WITH &SYA
  74. APPEND BLANK
  75. REPL B_NO WITH BNO,SNA WITH &SYB
  76. I=I+1
  77. ENDDO
  78. I=1
  79. DO WHILE I<=LLO
  80. NA='NA'+STR(I,1)
  81. APPEN BLAN
  82. REPL B_NO WITH BNO,SNA WITH &NA
  83. I=I+1
  84. ENDDO
  85. APPEND BLANK
  86. REPL B_NO WITH BNO,SNA WITH SYM2
  87. APPEND BLANK
  88. REPL B_NO WITH BNO,SNA WITH SYNN
  89. APPE BLAN
  90. REPL B_NO WITH BNO,SNA WITH SYM3
  91. CLOS DATA
  92. RETURN
  93. ** END OF RPTCR211.PRG **
  94.  
  95.