home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / MENUPRT.PRG < prev    next >
Encoding:
Text File  |  1990-09-04  |  1.5 KB  |  92 lines
  1. *** BEGIN OF MENUPRT.PRG ***
  2. CLEAR
  3. SET TALK OFF
  4. SET SAFE OFF
  5. IF .NOT.(FILE('MENU.DBF'))
  6. RETU
  7. ENDIF
  8. SELE 1
  9. USE MENU INDE MENU
  10. IF EOF()
  11. USE
  12. RETU
  13. ENDIF
  14. ZX=' '
  15. DO WHILE AT(ZX,'ABCDEFGH')=0
  16. @ 5,20 SAY '╟δ╤í╘±╫╓╨═[ A.╨í╫╓,B.▒Γ╫╓,C.│ñ╫╓,D.┤≤╫╓ ]'
  17. @ 6,20 SAY '╫¬╠σú╣ú░╢╚[ E.     F.     G.     H.   ]' GET ZX
  18. READ
  19. ZX=UPPE(ZX)
  20. ENDDO
  21. LINE='⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
  22. @ 7,20 SAY '╟δ╫╝▒╕║├┤≥╙í╓╜úí░┤╚╬╥Γ╝ⁿ╘≥┐¬╩╝┤≥╙íú«ú«ú«ú«ú«'
  23. WAIT ''
  24. SET PRINT ON
  25. *SET ALTE TO MENU
  26. *SET ALTE ON
  27. *? CHR(27)+'E22'
  28. ? CHR(27)+'ID'
  29. ?? SPACE(20)+'▓╦  ╡Ñ  ╧╡  ═│'
  30. ? SPACE(20)+'ú¬ú¬ú¬ú¬ú¬ú¬ú¬'
  31. ?
  32. ?
  33. ? CHR(27)+'I'+ZX
  34. *? CHR(27)+'W0'+CHR(27)+'W0'+CHR(27)+'3'+CHR(25)
  35. SET MARG TO 0
  36. STOR '0' TO B0,B1,B2,B3,B4,B5,B6,B7,B8,B9
  37. ? TRIM(NOTE)
  38. L1=0
  39. PN=TRIM(NAME)
  40. L2=30-LEN(TRIM(NOTE))-LEN(PN)-2
  41. B1=BROTHER
  42. TY=TYPE
  43. SKIP
  44. DO WHILE .NOT.EOF()
  45. IF TY='0'
  46. ?? '('+PN+')'
  47. ENDIF
  48. L3=LEN(TRIM(NO))
  49. L=STR(L3,1)
  50. B&L.=BROTHER
  51. IF L3=L1+1
  52. IF L2/2=INT(L2/2)
  53. ?? SUBS(LINE,1,L2)+'⌐╥⌐Ñ'+TRIM(NOTE)
  54. ELSE
  55. ?? SUBS(LINE,1,L2-1)+'-⌐╥⌐Ñ'+TRIM(NOTE)
  56. ENDIF
  57. ELSE
  58. IF TY='1'
  59. ?? '('+PN+'.PRG)'
  60. ENDIF
  61. I=1
  62. SP=''
  63. DO WHILE I<=L3-1
  64. J=STR(I,1)
  65. IF B&J.='1'
  66. SP=SP+SPACE(30)+'⌐ª  '
  67. ELSE
  68. SP=SP+SPACE(34)
  69. ENDIF
  70. I=I+1
  71. ENDDO
  72. ? SP+SPACE(30)+SUBS('⌐╣⌐┴',VAL(B&L.)*2+1,2)+'⌐Ñ'+TRIM(NOTE)
  73. ENDIF
  74. PN=TRIM(NAME)
  75. TY=TYPE
  76. L1=L3
  77. L2=30-LEN(TRIM(NOTE))-LEN(PN)-2
  78. SKIP
  79. ENDDO
  80. IF TY='1'
  81. ?? '('+PN+'.PRG)'
  82. ELSE
  83. ?? '('+PN+')'
  84. ENDIF
  85. ?
  86. ?
  87. ?
  88. SET PRINT OFF
  89. *SET ALTE TO
  90. RETU
  91. ** END OF MENUPRT.PRG **
  92.