home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBC4.PRG < prev    next >
Encoding:
Text File  |  1990-04-29  |  1.7 KB  |  134 lines
  1. ****** DBC4.PRG ******
  2. ****** DO DBC4  ******
  3. ****** PARA FN  ******
  4. IF TYPE('FN')='U'
  5. FN=''
  6. FNO=''
  7. DO SELEF
  8. ENDIF
  9. EXP1='.T.'
  10. EXP='.T.'
  11. DO DBFEXP
  12. FL=''
  13. FL1=''
  14. FLN=0
  15. LM0=''
  16. DO DBFL WITH FN,FL,FL1,FLN,LM0
  17. IF FLN=0
  18. RETU
  19. ENDIF
  20. K=1
  21. FL3=''
  22. FL2=''
  23. DO WHILE K<=FLN
  24. IF K<10
  25. I=STR(K,1)
  26. ELSE
  27. I=STR(K,2)
  28. ENDIF
  29. FL3=FL3+'D&I'+','
  30. FL2=FL2+"C&I"+","
  31. K=K+1
  32. ENDDO
  33. FL2=SUBSTR(FL2,1,LEN(FL2)-1)
  34. FL3=SUBSTR(FL3,1,LEN(FL3)-1)
  35. USE &FN
  36. IF LEN(FL)<>0
  37. SUM &FL TO &FL2 FOR &EXP
  38. AVER &FL TO &FL3 FOR &EXP
  39. ENDIF
  40. COUN TO NUM FOR &EXP
  41. USE
  42. CLEAR
  43. N=6
  44. DO WHILE .T.
  45. ? "┬·╫π╠⌡╝■:&EXP1 ╡─╝╟┬╝╩²╬¬"+STR(NUM,4)
  46. CF=FL1+'  '
  47. LN=FLN
  48. M=1
  49. DO WHILE .T.
  50. L1='⌐░⌐ñ⌐ñ⌐ñ'
  51. L2='⌐ª═│╝╞└╕'
  52. L3='⌐└⌐ñ⌐ñ⌐ñ'
  53. L4='⌐ª ╫▄║═ '
  54. L6='⌐ª ╞╜╛∙ '
  55. L5='⌐╕⌐ñ⌐ñ⌐ñ'
  56. IF LN<N
  57. N1=LN
  58. ELSE
  59. N1=N
  60. ENDIF
  61. LN=LN-N
  62. J=1
  63. DO WHILE J<=N1
  64. IF M<10
  65. I=STR(M,1)
  66. ELSE
  67. I=STR(M,2)
  68. ENDIF
  69. CC=SUBSTR(CF,1,14)
  70. N2=LEN(TRIM(CC))
  71. K=0
  72. NN=C&I
  73. DO WHILE NN>1
  74. NN=NN/10
  75. K=K+1
  76. ENDDO
  77. IF N2<=8
  78. N2=8
  79. ENDIF
  80. N3=0
  81. IF N2<K+3
  82. N3=K+3-N2
  83. ENDIF
  84. IF N2/2<>INT(N2/2)
  85. N2=N2+1
  86. ENDIF
  87. N3=0
  88. IF N2<K+3
  89. N3=K+3-N2
  90. ENDIF
  91. IF N3/2#INT(N3/2)
  92. N3=N3+1
  93. ENDIF
  94. L1=L1+SUBS('⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ',1,N2+N3+2)
  95. L2=L2+'⌐ª'+SPACE(N3)+SUBSTR(CF,1,N2)
  96. L3=L3+SUBS('⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ',1,N2+N3+2)
  97. L4=L4+'⌐ª'+STR(C&I,N2+N3,2)
  98. L5=L5+SUBS('⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ',1,N2+N3+2)
  99. L6=L6+'⌐ª'+STR(D&I,N2+N3,2)
  100. CF=SUBSTR(CF,16)
  101. M=M+1
  102. J=J+1
  103. ENDDO
  104. ? L1+'⌐┤'
  105. ? L2+'⌐ª'
  106. ? L3+'⌐╚'
  107. ? L4+'⌐ª'
  108. ? L3+'⌐╚'
  109. ? L6+'⌐ª'
  110. ? L5+'⌐╝'
  111. IF LN<=0
  112. EXIT
  113. ENDIF
  114. ENDDO
  115. ? ' '
  116. SET CONS ON
  117. YN=' '
  118. DO WHILE .NOT.YN$'YN'
  119. @ 0,0 SAY '╥¬┤≥╙í┬≡?[Y/N]' GET YN PICT '!'
  120. READ
  121. ENDDO
  122. IF YN='N'
  123. SET PRINT OFF
  124. EXIT
  125. ENDIF
  126. SET PRINT ON
  127. SET CONS OFF
  128. N=16
  129. ENDDO
  130. SET PRINT OFF
  131. CLOSE DATA
  132. RETU
  133. ** END OF DBC4.PRG **
  134.