home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTCR21.PRG < prev    next >
Encoding:
Text File  |  1990-04-27  |  1.4 KB  |  122 lines
  1. **  ╔·│╔╔╧▓π▒φ═╖▒Σ┴┐ SYAA,SY(A,B)(1,MC); SS1.PRG **
  2. PARA MC
  3. SET TALK OFF
  4. V1=1
  5. R1=MC
  6. DO WHILE MC-V1>0
  7. CLOS DATA
  8. BB0='TBB'+STR(R1,1)
  9. BB1='TBB'+STR(R1-1,1)
  10. SELE 2
  11. USE &BB1
  12. BCS=FIELD_LEN
  13. BC1=0
  14. SELE 1
  15. USE &BB0
  16. LN0=FIELD_LEN
  17. LN0=LN0-BCS
  18. S00=0
  19. IF LN0=0
  20. SYM0='⌐º'
  21. S0='  '
  22. S00=1
  23. ELSE
  24. SYM0='⌐─'
  25. S0='⌐ñ'
  26. ENDIF
  27. SYM1='⌐│'
  28. BC1=BC1+2
  29. BC2=BC1+BCS
  30. DO WHILE BC2-BC1>0
  31. SYM1=SYM1+'⌐Ñ'
  32. SYM0=SYM0+S0
  33. BC1=BC1+2
  34. ENDDO
  35. CLEAR
  36. @ 3,10 SAY '╒²╘┌▒α╝⌐▒φ═╖ ! ╟δ╔╘║≥ ......'
  37. SELE 2
  38. SKIP
  39. DO WHILE .NOT.EOF()
  40. BCS=FIELD_LEN
  41. IF LN0=0
  42. S1='⌐╙'
  43. SELE 1
  44. SKIP
  45. LN0=FIELD_LEN
  46. SELE 2
  47. IF LN0=BCS
  48. IF S00=1
  49. S0='⌐ª'
  50. ELSE
  51. S0='⌐╚'
  52. ENDIF
  53. S01='  '
  54. S00=1
  55. ELSE
  56. IF S00=1
  57. S0='⌐└'
  58. ELSE
  59. S0='⌐α'
  60. ENDIF
  61. S01='⌐ñ'
  62. S00=0
  63. ENDIF
  64. ELSE
  65. S1='⌐Ñ'
  66. S0='⌐╨'
  67. S01='⌐ñ'
  68. LN0=LN0-2
  69. ENDIF
  70. LN0=LN0-BCS
  71. SYM0=SYM0+S0
  72. SYM1=SYM1+S1
  73. BC1=BC1+2
  74. BC2=BC1+BCS
  75. DO WHILE BC2-BC1>0
  76. SYM0=SYM0+S01
  77. SYM1=SYM1+'⌐Ñ'
  78. BC1=BC1+2
  79. ENDDO
  80. SKIP
  81. ENDDO
  82. IF S00=1
  83. S0='⌐º'
  84. ELSE
  85. S0='⌐╠'
  86. ENDIF
  87. SYM0=SYM0+S0
  88. SYM1=SYM1+'⌐╖'
  89. SYB='SYB'+STR(V1,1)
  90. IF V1=1
  91. SYAA=SYM1
  92. ENDIF
  93. &SYB=SYM0
  94. SYM1='⌐º'
  95. SELE 1
  96. GO  TOP
  97. DO WHILE .NOT.EOF()
  98. BC1=BC1+2
  99. FNA=TRIM(C_NAME)
  100. FNA1=LEN(FNA)
  101. LN2=FIELD_LEN
  102. LB=INT((LN2-FNA1)/2)
  103. LC=LN2-FNA1-LB
  104. SYM1=SYM1+SPACE(LB)+FNA+SPACE(LC)
  105. SYM1=SYM1+'⌐ª'
  106. SKIP
  107. ENDDO
  108. SYM1=SUBS(SYM1,1,LEN(SYM1)-2)+'⌐º'
  109. SYA='SYA'+STR(V1,1)
  110. &SYA=SYM1
  111. V1=V1+1
  112. R1=R1-1
  113. SELE 1
  114. USE
  115. ERAS &BB0..DBF
  116. ENDDO
  117. CLOSE DATA
  118. DO RPTCR211
  119. RETURN
  120. ** END OF RPTCR21.PRG **
  121.  
  122.