home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / SELEB.PRG < prev    next >
Encoding:
Text File  |  1990-04-26  |  1.5 KB  |  112 lines
  1. ****** ╤í╘±▒¿▒φ SELEB.PRG    ******
  2. ****** DO SELEB              ******
  3. ****** ╚δ┐┌▓╬╩²: BTK.DBF     ******
  4. ****** │÷┐┌▓╬╩²: BNO:▒φ╕±╨≥║┼******
  5. ******           BGM:▒φ╕±▒Ω╠Γ******
  6. ******           FN: ╬─╝■├√  ******
  7. SET TALK OFF
  8. SET DELI OFF
  9. IF TYPE('HS')='U' .OR.TYPE('LS')='U'
  10. HS=25
  11. LS=2
  12. ENDIF
  13. SELE 1
  14. USE BTK
  15. MAX=RECC()
  16. XSH=HS-4
  17. IF MAX=0
  18. RETU TO MAST
  19. ENDIF
  20. SET DEVI TO SCRE
  21. N=0
  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(B_NAME)+'['+TRIM(F_NAME)+'.DBF]'
  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,7 SAY '╤í╘±╥¬┤ª└φ╡─▒¿▒φ╨≥║┼:Enter_═╦│÷ PgUp_╔╧╥│ PgDn_╧┬╥│:    '
  44. DO WHILE .T.
  45. @ 1,58 SAY ':'
  46. YN=INKEY(0)
  47. IF YN>48.AND.YN<58.OR.YN=3.OR.YN=18.OR.YN=13
  48. EXIT
  49. ENDIF
  50. ??CHR(7)
  51. ENDDO
  52. @ 1,0 SAY SPACE(7)
  53. @ 1,62 SAY SPACE(16)
  54. DO CASE
  55. CASE YN=18
  56. IF N1=1
  57. LOOP
  58. ENDIF
  59. IF N1<LS*XSH+1
  60. N=0
  61. ELSE
  62. N=N1-LS*XSH-1
  63. ENDIF
  64. GO TOP
  65. SKIP N
  66. EXIT
  67. CASE YN=3
  68. IF N=MAX
  69. LOOP
  70. ENDIF
  71. SKIP
  72. EXIT
  73. CASE YN=13
  74. USE
  75. RETU
  76. OTHER
  77. DO WHILE .T.
  78. @ 1,59 SAY CHR(YN)
  79. YN1=INKEY(0)
  80. IF YN1>47.AND.YN1<58.OR.YN1=19.OR.YN1=127.OR.YN1=13
  81. EXIT
  82. ENDIF
  83. ??CHR(7)
  84. ENDDO
  85. IF YN1=19.OR.YN1=127
  86. LOOP
  87. ENDIF
  88. IF YN1=13
  89. YN1=''
  90. ELSE
  91. YN1=CHR(YN1)
  92. @ 1,60 SAY YN1
  93. ENDIF
  94. YN=CHR(YN)
  95. IF &YN.&YN1.>MAX .OR. &YN.&YN1.<1
  96. @ 1,62 SAY '&YN.&YN1.╨≥║┼│¼╖╢╬º!'
  97. @ 1,3 SAY '╓╪╨┬'
  98. LOOP
  99. ENDIF
  100. GO TOP
  101. SKIP &YN.&YN1.-1
  102. BNO=B_NO
  103. BGM=TRIM(B_NAME)
  104. FN=TRIM(F_NAME)
  105. SCATTER TO FNA
  106. USE
  107. RETU
  108. ENDCASE
  109. ENDDO
  110. ENDDO
  111. ** END OF SELEB.PRG **
  112.