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