home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / SELEF.PRG < prev    next >
Encoding:
Text File  |  1990-05-23  |  1.7 KB  |  121 lines
  1. ****** ╤í╘±╬─╝■ SELEF.PRG ******
  2. ****** DO SELEF           ******
  3. ****** │÷┐┌▓╬╩²: FN:│╠╨≥├√******
  4. ****** PARA FN            ******
  5. SET TALK OFF
  6. SET DELI OFF
  7. IF TYPE('HS')='U' .OR.TYPE('LS')='U'
  8. HS=25
  9. LS=2
  10. ENDIF
  11. XSH=HS-4
  12. SELE 1
  13. USE FILE
  14. GO BOTT
  15. SET INDE TO FILE
  16. SET FILT TO SYSFILE='3'
  17. COUNT TO MAX
  18. IF MAX=0
  19. RETU TO MAST
  20. ENDIF
  21. GO TOP
  22. N=0
  23. SET DEVI TO SCRE
  24. @ 1,0
  25. DO WHILE .T.
  26. @ 2,0 CLEAR
  27. I=2
  28. J=0
  29. N1=N+1
  30. DO WHILE .NOT. EOF()
  31. N=N+1
  32. @ I,J*(25+(3-LS)*12)+(3-LS)**2*3 SAY STR(N,3)+'..'+TRIM(C_FNAME)+'['+TRIM(F_NAME)+'.DBF]'
  33. J=J+1
  34. IF J=LS
  35. I=I+1
  36. J=0
  37. ENDIF
  38. IF I-2>=XSH
  39. EXIT
  40. ENDIF
  41. SKIP
  42. ENDDO
  43. DO WHILE .T.
  44. YN=0
  45. @ 1,59 SAY '  '
  46. DO WHILE .NOT.(YN=3.OR.YN=18.OR.YN>48.AND.YN<58.OR.YN=13)
  47. @ 1,7 SAY '╤í╘±╥¬┤ª└φ╡─╬─╝■╨≥║┼:Enter_═╦│÷ PgUp_╔╧╥│ PgDn_╧┬╥│:'
  48. YN=INKEY(0)
  49. IF YN>48.AND.YN<58
  50. @ 1,59 SAY CHR(YN)
  51. ELSE
  52. IF YN<>3.AND.YN<>18.AND.YN<>13
  53. ??CHR(7)
  54. ENDIF
  55. ENDIF
  56. ENDDO
  57. @ 1,0 SAY SPACE(7)
  58. @ 1,62 SAY SPACE(16)
  59. DO CASE
  60. CASE YN=18
  61. IF N1=1
  62. LOOP
  63. ENDIF
  64. IF N1<LS*XSH+1
  65. N=0
  66. ELSE
  67. N=N1-LS*XSH-1
  68. ENDIF
  69. GO TOP
  70. SKIP N
  71. EXIT
  72. CASE YN=3
  73. IF N=MAX
  74. LOOP
  75. ENDIF
  76. SKIP
  77. EXIT
  78. CASE YN=13
  79. USE
  80. RETU
  81. OTHER
  82. @ 1,59 SAY CHR(YN)
  83. YN1=0
  84. DO WHILE .NOT.(YN1=13.OR.YN1=19.OR.YN1=127.OR.YN1>=48.AND.YN1<=57)
  85. YN1=INKEY(0)
  86. IF YN1>47.AND.YN1<58
  87. @ 1,60 SAY CHR(YN1)
  88. EXIT
  89. ENDIF
  90. IF YN1=13.OR.YN1=19.OR.YN1=127
  91. EXIT
  92. ENDIF
  93. ??CHR(7)
  94. ENDDO
  95. IF YN1=19.OR.YN1=127
  96. LOOP
  97. ENDIF
  98. IF YN1=13
  99. YN1=''
  100. ELSE
  101. YN1=CHR(YN1)
  102. ENDIF
  103. YN=CHR(YN)
  104. IF &YN.&YN1.>MAX .OR. &YN.&YN1.<1
  105. @ 1,62 SAY '&YN.&YN1.╨≥║┼│¼╖╢╬º!'
  106. @ 1,3 SAY '╓╪╨┬'
  107. LOOP
  108. ENDIF
  109. GO TOP
  110. SKIP &YN.&YN1.-1
  111. FN=TRIM(F_NAME)
  112. FNO=F_NO
  113. CFN=TRIM(C_FNAME)
  114. SCAT TO F
  115. USE
  116. RETU
  117. ENDCASE
  118. ENDDO
  119. ENDDO
  120. ** END OF SELEF.PRG **
  121.