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