home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / MENUDELE.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  1.2 KB  |  82 lines
  1. ** BEGIN OF MENUDELE.PRG **
  2. SET TALK OFF
  3. CLEAR
  4. SELE 1
  5. USE MENU INDE MENU
  6. IF EOF()
  7. USE
  8. RETU
  9. ENDIF
  10. RNO=RECNO()
  11. DO WHILE .T.
  12. CLEAR
  13. GO RNO
  14. LNO=LEN(TRIM(NO))
  15. @ 0,1 SAY '╡┌ '+STR(LNO,1)+' ▓π'
  16. @ 1,INT((62-LEN(TRIM(NOTE)))/2) SAY 'ú¬ú¬ú¬ú█ '+TRIM(NOTE)+' ú▌ú¬ú¬ú¬'
  17. TJ=TRIM(NO)
  18. SET FILT TO NO=TJ .AND. LEN(TRIM(NO))=LNO+1
  19. GO TOP
  20. I=1
  21. DO WHILE .NOT. EOF()
  22. @ (I+3)/2,9 SAY STR(I,2)+'..'+NOTE
  23. I=I+1
  24. SKIP
  25. IF .NOT.EOF()
  26. @ I/2+1,45 SAY STR(I,2)+'..'+NOTE
  27. I=I+1
  28. SKIP
  29. ENDIF
  30. ENDDO
  31. YN=' '
  32. DO WHILE .NOT. YN$'YN'
  33. @ 0,10 SAY '╥¬╔╛│²┬≡ú┐ú█ú┘ú»ú╬ ú▌' GET YN
  34. READ
  35. YN=UPPE(YN)
  36. ENDDO
  37. IF YN='Y'
  38. CDH=1
  39. @ 0,10 SAY ' ╤í ╘± ╔╛ │² ▓╦ ╡Ñ ║┼ ' GET CDH PICT '99' RANG 1,I-1
  40. READ
  41. GO TOP
  42. SKIP CDH-1
  43. A=TRIM(NO)
  44. IF BROTHER='0'
  45. SKIP -1
  46. IF .NOT.BOF()
  47. REPL BROTHER WITH '0'
  48. ENDIF
  49. ENDIF
  50. SET FILT TO
  51. GO RNO
  52. B=NO
  53. DELE ALL FOR NO=A
  54. PACK
  55. SEEK B
  56. RNO=RECNO()
  57. LOOP
  58. ENDIF
  59. GNH=0
  60. @ INT(I/2)+2,25 SAY '╟δ╤í╘±ú█ú░ú«ú«╖╡╗╪ú▌' GET GNH PICT '99' RANG 0,I-1
  61. READ
  62. IF GNH=0
  63. SET FILT TO
  64. GO RNO
  65. IF LEN(TRIM(NO))=0
  66. RETU
  67. ENDIF
  68. A=SUBS(NO,1,LEN(TRIM(NO))-1)
  69. SEEK A
  70. RNO=RECNO()
  71. LOOP
  72. ENDIF
  73. GO TOP
  74. SKIP GNH-1
  75. IF TYPE='0'
  76. RNO=RECNO()
  77. LOOP
  78. ENDIF
  79. LOOP
  80. ENDDO
  81. ** END OF MENUDELE.PRG **
  82.