home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / ZFTX1.PRG < prev    next >
Encoding:
Text File  |  1990-05-26  |  1.9 KB  |  126 lines
  1. ** ╧╘╩╛╓▒╖╜═╝  ZFTX1.PRG            **
  2. ** ╘╦╨╨╗╖╛│:   DBASE-III V1.0 ╥╘╔╧  **
  3. ** ╚δ┐┌: TITL..╓▒╖╜═╝▒Ω╠Γ           **
  4. **       XSM...║ß╫∙▒Ω╦╡├≈           **
  5. **       YSM...╫▌╫∙▒Ω╦╡├≈           **
  6. **       CSK.DBF...▓╬╩²┐Γ           **
  7. PARA TITL,XSM,YSM
  8. CLEAR
  9. SELE 4
  10. USE CSK
  11. GO BOTT
  12. NUM=RECNO()
  13. COPY STRU EXTE TO FNS
  14. USE FNS
  15. XNAME=TRIM(FIELD_NAME)
  16. DO CASE
  17. CASE FIELD_TYPE='N'
  18. XNAME='STR('+XNAME+','+STR(FIELD_LEN,3)+','+STR(FIELD_DEC,3)+')'
  19. CASE FIELD_TYPE='D'
  20. XNAME='DTOC(&XNAME)'
  21. CASE FIELD_TYPE='C'
  22. OTHER
  23. RETU
  24. ENDCASE
  25. SKIP
  26. YNAME=TRIM(FIELD_NAME)
  27. LEN=FIELD_LEN
  28. DEC=FIELD_DEC
  29. USE CSK
  30. SET TALK OFF
  31. TITL=TRIM(TITL)
  32. DO WHILE TITL=' '
  33. TITL=SUBS(TITL,2)
  34. ENDDO
  35. L=LEN(TITL)
  36. IF L>80
  37. TITL=SUBSTR(TITL,1,80)
  38. L=80
  39. ENDIF
  40. COL=INT((80-L)/2)
  41. @ 1,M->COL SAY TITL
  42. @ 3,0 SAY 'íⁿ'
  43. I=4
  44. DO WHILE (I<23)
  45. @ I,0 SAY '⌐ª'
  46. I=I+1
  47. ENDDO
  48. @ 23,0 SAY '⌐╕'
  49. @ 23,2 SAY REPL('⌐ñ',33)
  50. @ 23,COL() SAY 'í·'
  51. YSM=TRIM(YSM)
  52. DO WHILE YSM=' '
  53. YSM=SUBS(YSM,2)
  54. ENDDO
  55. IF LEN(YSM)>70
  56. YSM=SUBS(YSM,70)
  57. ENDIF
  58. @ 2,0 SAY YSM
  59. @ 24,0 SAY 'ú╧'
  60. XSM=TRIM(XSM)
  61. DO WHILE XSM=' '
  62. XSM=SUBS(XSM,2)
  63. ENDDO
  64. IF LEN(XSM)>10
  65. XSM=SUBS(XSM,1,10)
  66. ENDIF
  67. @ 23,70 SAY XSM
  68. MAX=0
  69. DO WHILE .NOT.EOF()
  70. IF &YNAME.>MAX
  71. MAX=&YNAME
  72. ENDIF
  73. SKIP
  74. ENDDO
  75. GO TOP
  76. S=(66/(NUM+1))
  77. FACTOR=MAX/17
  78. IF FACTOR=0
  79. FACTOR=1
  80. ENDIF
  81. COL=2
  82. I=1
  83. DO WHILE .NOT.EOF()
  84. H=INT(&YNAME./FACTOR)
  85. ROW=23-H
  86. COL=COL+S
  87. C=STR(I-INT(I/7)*7+1,1)
  88. SET COLO TO &C./&C
  89. J=ROW
  90. DO WHILE J<=22
  91. @ J,COL SAY 'í÷'
  92. J=J+1
  93. ENDDO
  94. SET COLO TO 2/0,,0
  95. X=TRIM(&XNAME)
  96. DO WHILE X=' '
  97. X=SUBS(X,2)
  98. ENDDO
  99. IF LEN(X)>S
  100. X=SUBS(X,1,S)
  101. ENDIF
  102. @ 23,COL SAY '⌐╨'
  103. @ 24,COL SAY X
  104. Y=(STR(&YNAME,LEN,DEC))
  105. IF DEC<>0
  106. IF VAL(SUBS(Y,LEN-DEC+1))=0
  107. Y=SUBS(Y,1,LEN-DEC)
  108. ENDIF
  109. ENDIF
  110. DO WHILE Y=' '
  111. Y=SUBS(Y,2)
  112. ENDDO
  113. IF LEN(Y)>S.AND.I<20
  114. @ I+3,71 SAY Y
  115. ELSE
  116. @ ROW-1,COL SAY Y
  117. ENDIF
  118. I=I+1
  119. SKIP
  120. ENDDO
  121. @ 0,0 SAY ''
  122. WAIT ''
  123. USE
  124. RETU
  125. ** END OF ZFTX1.PRG **
  126.