home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DY2.PRG < prev    next >
Encoding:
Text File  |  1990-04-20  |  1.6 KB  |  107 lines
  1. ****** ╖╓╥│╖╓┴╜┴╨┤≥╙í╒²╬─╬─╝■ DY2.PRG      ******
  2. ****** PARA PN,YS,HS                       ******
  3. ****** PN:╬─╝■╚½├√ YS:┐¬╩╝╥│║┼ HS:├┐╥│╨╨╩² ******
  4. IF .NOT.FILE(PN)
  5. ? '╬─╝■├√:',PN,'▓╗┤µ╘┌'
  6. RETU
  7. ENDIF
  8. N=80
  9. CLEAR
  10. SELE 9
  11. USE TYD
  12. SET SAFE OFF
  13. ZAP
  14. APPEND FROM &PN SDF
  15. SET FILT TO LEN(TRIM(NR2))#0
  16. GO TOP
  17. DO WHILE .NOT.EOF()
  18. L=N
  19. C=SUBS(NR1,L,1)
  20. C1=C
  21. A=ASC(C)
  22. DO WHILE A>160.AND.L>0
  23. L=L-1
  24. C=SUBS(NR1,L,1)
  25. A=ASC(C)
  26. ENDDO
  27. GS=N-L
  28. IF GS/2#INT(GS/2)
  29. NR11=SUBS(NR1,1,N-1)
  30. REPL NR1 WITH NR11
  31. NR22=C1+TRIM(NR2)
  32. IF LEN(NR22)=N+1
  33. C1=SUBS(NR22,N+1,1)
  34. NR33=C1+TRIM(NR3)
  35. NR22=SUBS(NR22,1,N)
  36. ENDIF
  37. ELSE
  38. NR33=TRIM(NR3)
  39. NR22=NR2
  40. ENDIF
  41. L=LEN(NR33)
  42. IF L#0
  43. GS=1
  44. A=ASC(NR33)
  45. DO WHILE A>160.AND.GS#L
  46. GS=GS+1
  47. C=SUBS(NR33,GS,1)
  48. A=ASC(C)
  49. ENDDO
  50. IF A<161
  51. GS=GS-1
  52. ENDIF
  53. IF GS/2#INT(GS/2)
  54. NR33=SUBS(NR22,N,1)+NR33
  55. NR22=SUBS(NR22,1,N-1)
  56. ENDIF
  57. ENDIF
  58. L=LEN(TRIM(NR33))
  59. INSE BLAN
  60. REPL NR1 WITH NR22
  61. IF L#0
  62. INSE BLAN
  63. REPL NR1 WITH NR33
  64. ENDIF
  65. SKIP
  66. ENDDO
  67. REPL ALL NR2 WITH ' ',NR3 WITH ' '
  68. SET FILT TO
  69. GO BOTT
  70. R=RECNO()+1
  71. SET MARG TO 0
  72. GO TOP
  73. X=1
  74. Y=HS+1
  75. SET PRINT ON
  76. ?  SPACE(30),'╬─╝■├√:  ',PN,SPACE(22),'PAGE: ',STR(YS,3)
  77. ?? SPACE(30),'╬─╝■├√:  ',PN,SPACE(22),'PAGE: ',STR(YS+1,3)
  78. ?
  79. DO WHILE X<R
  80. GO X
  81. ? STR(X,4),':  ',NR1
  82. IF Y<R
  83. GO Y
  84. ?? SPACE(10),STR(Y,4),':  '
  85. ?? NR1
  86. ENDIF
  87. IF INT(X/HS)=X/HS
  88. YS=YS+2
  89. X=X+HS
  90. Y=Y+HS
  91. ? CHR(2)
  92. ?  SPACE(30),'╬─╝■├√:  ',PN,SPACE(22),'PAGE: ',STR(YS,3)
  93. ?? SPACE(30),'╬─╝■├√:  ',PN,SPACE(22),'PAGE: ',STR(YS+1,3)
  94. ?
  95. ENDIF
  96. X=X+1
  97. Y=Y+1
  98. ENDDO
  99. ? CHR(2)
  100. ? ' '
  101. SET PRINT OFF
  102. CLEAR
  103. ZAP
  104. USE
  105. RETURN
  106. ** END OF DY2.PRG **
  107.