home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / SELEFD.PRG < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.6 KB  |  115 lines
  1. ****** ╤í╘±▒╗╨▐╕─╫╓╢╬ SELEFD.PRG ******
  2. ******  DO SELEFD                ******
  3. ******  FN:╬─╝■├√.(╚δ┐┌)       ******
  4. ******  FD:▒╗╨▐╕─╫╓╢╬.(│÷┐┌)  ******
  5. SET DELI OFF
  6. SELE 10
  7. USE FILE INDE FILE
  8. SEEK M->FN
  9. FNO=F_NO
  10. @ 1,0 CLEAR
  11. USE DBD INDE DBD
  12. SET FILT TO F_NO=M->FNO.AND.FIELD_TYPE<>'M'
  13. COUNT TO MAX
  14. GO TOP
  15. HS=25
  16. PRIV XS,LS
  17. LS=5
  18. XS=M->HS-3
  19. N=0
  20. DO WHILE .T.
  21. @ 3,0 CLEAR
  22. N1=N+1
  23. I=2
  24. DO WHILE .NOT. EOF()
  25. J=0
  26. DO WHILE .NOT. EOF() .AND. J<LS
  27. N=N+1
  28. @ I,J*15 SAY STR(N,2)+'.'+C_NAME
  29. J=J+1
  30. SKIP
  31. ENDDO
  32. I=I+1
  33. IF I=XS+2
  34. EXIT
  35. ENDIF
  36. ENDDO
  37. DO WHILE .T.
  38. @ 1,58 SAY '  '
  39. YN=0
  40. @ 1,7 SAY '╤í ╘± ╩² ╛▌ ╧ε ┤· ║┼    PgUp__╟░▓Θ    PgDn__║≤▓Θ '
  41. DO WHILE .T.
  42. @ 1,57 SAY ' '
  43. YN=INKEY(0)
  44. IF YN=3.OR.YN=18.OR.YN=27.OR.YN>48.AND.YN<58
  45. EXIT
  46. ENDIF
  47. ??CHR(7)
  48. ENDDO
  49. @ 1,0 SAY SPACE(7)
  50. @ 1,62 SAY SPACE(16)
  51. IF YN=18
  52. IF N1=1
  53. LOOP
  54. ENDIF
  55. IF N1<LS*XS+1
  56. N=0
  57. ELSE
  58. N=N1-LS*XS-1
  59. ENDIF
  60. GO TOP
  61. SKIP N
  62. EXIT
  63. ENDIF
  64. IF YN=3
  65. IF N=MAX
  66. LOOP
  67. ENDIF
  68. GO TOP
  69. SKIP N
  70. EXIT
  71. ENDIF
  72. IF YN=27
  73. USE
  74. RETU TO MAST
  75. ENDIF
  76. DO WHILE .T.
  77. @ 1,58 SAY CHR(YN)
  78. YN1=INKEY(0)
  79. IF YN1>47.AND.YN1<58.OR.YN1=13.OR.YN1=127.OR.YN1=19.OR.YN1=27
  80. EXIT
  81. ENDIF
  82. ?? CHR(7)
  83. ENDDO
  84. IF YN1=27
  85. CLOS DATA
  86. RETU TO MAST
  87. ENDIF
  88. IF YN1=127.OR.YN1=19
  89. LOOP
  90. ENDIF
  91. IF YN1=13
  92. NN=YN-48
  93. ELSE
  94. @ 1,59 SAY CHR(YN1)
  95. NN=VAL(CHR(YN)+CHR(YN1))
  96. ENDIF
  97. IF NN>MAX .OR. NN<1
  98. @ 1,62 SAY STR(NN,2)+'╨≥║┼│¼╖╢╬º!'
  99. @ 1,3 SAY '╓╪╨┬'
  100. LOOP
  101. ENDIF
  102. GO TOP
  103. SKIP NN-1
  104. FD=TRIM(FIELD_NAME)
  105. FT=FIELD_TYPE
  106. FL=FIELD_LEN
  107. FX=FIELD_DEC
  108. CFD=TRIM(C_NAME)
  109. FDN=IIF(NN<10,STR(NN,1),STR(NN,2))
  110. USE
  111. RETURN
  112. ENDDO
  113. ENDDO
  114. ** END OF SELEFD.PRG **
  115.