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