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