home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DYALL2.PRG < prev    next >
Encoding:
Text File  |  1990-04-20  |  2.0 KB  |  142 lines
  1. ****** ╖╓╥│╖╓┴╜┴╨┤≥╙í╦∙╙╨│╠╨≥ DYALL2.PRG      ******
  2. ****** PARA YS,HS                             ******
  3. ****** YS:┐¬╩╝╥│║┼ HS:├┐╥│╨╨╩²                ******
  4. IF TYPE('EXP')='U'
  5. FN='PRG'
  6. FNO='103'
  7. EXP='.T.'
  8. DO DBFEXP
  9. ENDIF
  10. YS=1
  11. HS=60
  12. N=80
  13. CLEAR
  14. SET TALK OFF
  15. SET SAFE OFF
  16. SELE 3
  17. USE TYD1
  18. ZAP
  19. SELE 1
  20. USE PRG INDE PRG
  21. SET FILT TO &EXP
  22. GO TOP
  23. DO WHILE .NOT.EOF()
  24. PN=TRIM(P_NAME)+'.PRG'
  25. IF .NOT.FILE(PN)
  26. ? '╬─╝■├√:',PN,'▓╗┤µ╘┌'
  27. SKIP
  28. LOOP
  29. ENDIF
  30. SELE 3
  31. APPE BLAN
  32. APPE BLAN
  33. REPL NR1 WITH SPACE(5)+'│╠╨≥├√: '+TRIM(A->P_NAME)+'.PRG   '+TRIM(A->P_DES)+'   ╜¿┴ó╚╒╞┌ : '+DTOC(A->P_DATE)
  34. APPE BLAN
  35. SELE 2
  36. USE TYD
  37. ZAP
  38. APPE FROM &PN SDF
  39. SET FILT TO LEN(TRIM(NR2))#0
  40. GO TOP
  41. DO WHILE .NOT.EOF()
  42. L=N
  43. C=SUBS(NR1,L,1)
  44. C1=C
  45. A=ASC(C)
  46. DO WHILE A>160.AND.L>0
  47. L=L-1
  48. C=SUBS(NR1,L,1)
  49. A=ASC(C)
  50. ENDDO
  51. GS=N-L
  52. IF GS/2#INT(GS/2)
  53. NR11=SUBS(NR1,1,N-1)
  54. REPL NR1 WITH NR11
  55. NR22=C1+TRIM(NR2)
  56. IF LEN(NR22)=N+1
  57. C1=SUBS(NR22,N+1,1)
  58. NR33=C1+TRIM(NR3)
  59. NR22=SUBS(NR22,1,N)
  60. ENDIF
  61. ELSE
  62. NR33=TRIM(NR3)
  63. NR22=NR2
  64. ENDIF
  65. L=LEN(NR33)
  66. IF L#0
  67. GS=1
  68. A=ASC(NR33)
  69. DO WHILE A>160.AND.GS#L
  70. GS=GS+1
  71. C=SUBS(NR33,GS,1)
  72. A=ASC(C)
  73. ENDDO
  74. IF A<161
  75. GS=GS-1
  76. ENDIF
  77. IF GS/2#INT(GS/2)
  78. NR33=SUBS(NR22,N,1)+NR33
  79. NR22=SUBS(NR22,1,N-1)
  80. ENDIF
  81. ENDIF
  82. L=LEN(TRIM(NR33))
  83. INSE BLAN
  84. REPL NR1 WITH NR22
  85. IF L#0
  86. INSE BLAN
  87. REPL NR1 WITH NR33
  88. ENDIF
  89. SKIP
  90. ENDDO
  91. USE
  92. SELE 3
  93. APPE FROM TYD
  94. SELE 1
  95. SKIP
  96. ENDDO
  97. @ 5,0
  98. WAIT '                          ░┤╚╬╥Γ╝ⁿ╘≥┐¬╩╝┤≥╙í......'
  99. USE
  100. SELE 2
  101. USE TYD
  102. ZAP
  103. USE
  104. SELE 3
  105. GO BOTT
  106. R=RECNO()+1
  107. SET MARG TO 0
  108. GO TOP
  109. X=1
  110. Y=HS+1
  111. SET PRINT ON
  112. ? SPACE(60)+'PAGE NO: '+STR(YS,3)
  113. ?? SPACE(30),'PAGE NO: ',STR(YS+1,3)
  114. ?
  115. DO WHILE X<R
  116. GO X
  117. ? STR(X,4)+': '+NR1
  118. IF Y<R
  119. GO Y
  120. ?? SPACE(5)+STR(Y,4)+': '+TRIM(NR1)
  121. ENDIF
  122. IF INT(X/HS)=X/HS
  123. YS=YS+2
  124. X=X+HS
  125. Y=Y+HS
  126. ? CHR(2)
  127. ?  SPACE(60),'PAGE NO: ',STR(YS,3)
  128. ?? SPACE(30),'PAGE NO: ',STR(YS+1,3)
  129. ?
  130. ENDIF
  131. X=X+1
  132. Y=Y+1
  133. ENDDO
  134. ? CHR(2)
  135. ? ' '
  136. SET PRINT OFF
  137. CLEAR
  138. ZAP
  139. CLOS DATA
  140. RETURN
  141. ** END OF DYALL2.PRG **
  142.