home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / SYSPRT.PRG < prev    next >
Encoding:
Text File  |  1990-05-16  |  1.4 KB  |  82 lines
  1. *** BEGIN OF SYSPRT.PRG ***
  2. CLEAR
  3. SET TALK OFF
  4. SET SAFE OFF
  5. IF .NOT.(FILE('SYS.DBF').AND.FILE('SYS.IDX'))
  6. RETU
  7. ENDIF
  8. SELE 1
  9. USE SYS INDE SYS
  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. ? CHR(27)+'ID'
  26. *? CHR(27)+'E22'+SPACE(20)+'S C E ╧╡═│▓╦╡Ñ╠σ╧╡'
  27. ? SPACE(20)+'ú¬ú¬ú¬ú¬ú¬ú¬ú¬'
  28. *? CHR(27)+'W0'+CHR(27)+'W0'
  29. ?
  30. ? CHR(27)+'I'+ZX
  31. SET MARG TO 0
  32. STOR '0' TO B0,B1,B2,B3,B4,B5,B6,B7,B8,B9
  33. ? TRIM(NOTE)
  34. L1=0
  35. L2=20-LEN(TRIM(NOTE))
  36. PN=TRIM(NAME)
  37. B1=BROTHER
  38. TY=TYPE
  39. SKIP
  40. DO WHILE .NOT.EOF()
  41. L3=LEN(TRIM(NO))
  42. L=STR(L3,1)
  43. B&L.=BROTHER
  44. IF L3=L1+1
  45. IF L2/2=INT(L2/2)
  46. ?? SUBS(LINE,1,L2)+'⌐╥⌐Ñ'+TRIM(NOTE)
  47. ELSE
  48. ?? SUBS(LINE,1,L2-1)+'-⌐╥⌐Ñ'+TRIM(NOTE)
  49. ENDIF
  50. ELSE
  51. IF TY='1'
  52. ?? '('+PN+LOWE('.PRG)')
  53. ENDIF
  54. I=1
  55. SP=''
  56. DO WHILE I<=L3-1
  57. J=STR(I,1)
  58. IF B&J.='1'
  59. SP=SP+SPACE(20)+'⌐ª  '
  60. ELSE
  61. SP=SP+SPACE(24)
  62. ENDIF
  63. I=I+1
  64. ENDDO
  65. ? SP+SPACE(20)+SUBS('⌐╣⌐┴',VAL(B&L.)*2+1,2)+'⌐Ñ'+TRIM(NOTE)
  66. ENDIF
  67. PN=TRIM(NAME)
  68. TY=TYPE
  69. L1=L3
  70. L2=20-LEN(TRIM(NOTE))
  71. SKIP
  72. ENDDO
  73. IF TY='1'
  74. ?? '('+PN+LOWE('.PRG)')
  75. ENDIF
  76. ?
  77. ?
  78. ?
  79. SET PRINT OFF
  80. RETU
  81. ** END OF MENUPRT.PRG **
  82.