home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBP1.PRG < prev    next >
Encoding:
Text File  |  1990-09-18  |  1.4 KB  |  80 lines
  1. *** DBP1.PRG ╔·│╔┤≥╙í╧ε─┐╕±╩╜┐Γ PRT.DBF ╝░▒φ═╖▒Σ┴┐ C[1,4] ***
  2. C1="⌐░⌐ñ⌐ñ"
  3. C4='⌐╕⌐ñ⌐ñ'
  4. C2='⌐ª╨≥║┼'
  5. C3="⌐└⌐ñ⌐ñ"
  6. SELE 3
  7. USE PRT
  8. ZAP
  9. L=0
  10. DO WHILE .T.
  11. N=VAL(LM)
  12. IF N>=1 .AND. N<=FIELDNUM
  13. SELE 1
  14. GO TOP
  15. SKIP N-1
  16. FNL=LEN(TRIM(C_NAME))
  17. FOL=FIELD_LEN
  18. IF CODE='1'
  19. FOL=LEN
  20. NT=TRIM(NOTE)
  21. LN=STR(LEN,2)
  22. ENDIF
  23. FM=FOL
  24. IF FNL>FOL
  25. FM=FNL
  26. ENDIF
  27. IF FM/2<>INT(FM/2)
  28. FM=FM+1
  29. ENDIF
  30. C1=C1+'⌐╨'+SUBSTR(LINE,1,FM)
  31. C3=C3+'⌐α'+SUBSTR(LINE,1,FM)
  32. C4=C4+'⌐╪'+SUBSTR(LINE,1,FM)
  33. SP1=INT((FM-FNL)/2)
  34. SP2=FM-FNL-SP1
  35. L1=STR((FM-FOL)/2,2)
  36. L2=STR(FM-FOL-&L1,2)
  37. NAME=TRIM(C_NAME)
  38. NAME1=TRIM(FIELD_NAME)
  39. C2=C2+'⌐ª'+SPACE(SP1)+NAME+SPACE(SP2)
  40. FL=STR(FM,3)
  41. FD=STR(FIELD_DEC,3)
  42. T=FIELD_TYPE
  43. SELE 3
  44. APPE BLANK
  45. DO CASE
  46. CASE T="N"
  47. REPL STA WITH "STR(&NAME1,&FL,&FD.)"
  48. CASE T='C'
  49. REPL STA WITH "SPACE(&L1.)+&NAME1+SPACE(&L2.)"
  50. IF A->CODE='1'
  51. REPL STA WITH "SPACE(&L1.)+SUBSTR('&NT',AT(&NAME1,'&NT');
  52. +2,&LN.)+SPACE(&L2.)"
  53. ENDIF
  54. CASE T='D'
  55. REPL STA WITH 'SPACE(&L1.)+DTOC(&NAME1.)+SPACE(&L2.)'
  56. CASE T='L'
  57. REPL STA WITH "SPACE(&L1.)+IIF(&NAME1,'T','F')+SPACE(&L2.)"
  58. CASE T='M'
  59. REPL STA WITH "SPACE(&L1.)+'   MEMO   '+SPACE(&L2.)"
  60. ENDCASE
  61. L=L+FM+1
  62. IF AT(",",LM)=0 .OR. AT(",",LM)=LEN(LM)
  63. EXIT
  64. ENDIF
  65. LM=SUBSTR(LM,AT(",",LM)+1,LEN(LM)-AT(",",LM))
  66. ELSE
  67. ? LM
  68. ? '^---------╤í╘±└╕├√╨≥║┼┤φ'
  69. ? '╟├╚╬╥Γ╝ⁿ╘≥╝╠╨°ú«ú«ú«'
  70. WAIT ' '
  71. ERR=1
  72. EXIT
  73. ENDIF
  74. ENDDO
  75. C1=C1+'⌐┤'
  76. C4=C4+'⌐╝'
  77. C3=C3+'⌐╚'
  78. C2=C2+'⌐ª'
  79. RETURN
  80.