home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / dbase2.arc / DECISION.CMD < prev    next >
Encoding:
Text File  |  1992-12-05  |  2.3 KB  |  101 lines
  1. ERAS
  2. USE decision
  3. DELE all
  4. PACK
  5. @ 2,0 say 'DECISION SUPPORT TOOL'
  6. @ 18,0 say '------------------------------------------------------------------------------'
  7. @ 19,0 say 'Enter up to 12 decision considerations in spaces above. Order of importance is'
  8. @ 20,0 say 'not important. Press RETURN in an unused space to complete making your entries.'
  9. STOR 1 to line
  10. DO WHIL line<13
  11. @ line+3,0 say line using '##'
  12. STOR line+1 to line
  13. ENDD
  14. STOR 1 to line
  15. DO WHIL line<13
  16. STOR '                              ' to entry
  17. @ line+3,4 get entry
  18. READ
  19. IF trim(entry)=' '
  20. STOR line-1 to count
  21. STOR 13 to line
  22. ELSE
  23. STOR line+1 to line
  24. GOTO bottom
  25. APPE BLAN
  26. REPL item with entry
  27. ENDI
  28. ENDD
  29. IF trim(entry)#' '
  30. STOR line-1 to count
  31. ENDI
  32. @ 19,0
  33. @ 20,0
  34. @ 19,0 say 'Now you will be asked to specify the greater of importance one by one of each'
  35. @ 20,0 say 'consideration against all the others. Please press RETURN to begin ranking...'
  36. ?
  37. WAIT to return
  38. @ 19,0
  39. @ 20,0
  40. @ 22,0
  41. @ 19,0 say 'What is the greater of importance to you between...'
  42. STOR 1 to number
  43. SET intensity off
  44. DO WHIL count#1
  45. GOTO number
  46. @ 20,0 say number using '##'
  47. @ 20,4 say item
  48. SET intensity on
  49. STOR len(trim(item)) to length
  50. @ 20,length+5 say 'and '
  51. SET intensity off
  52. SKIP
  53. DO WHIL .not. eof
  54. STOR 0 to select
  55. STOR # to position
  56. @ 20,length+9 say # using '##'
  57. @ 20,length+12 say item;
  58. @ 20,length+len(trim(item)) say '?'
  59. @ 21,0 say ' '
  60. INPU 'Your selection' to select
  61. GOTO select
  62. REPL rate:sum with rate:sum+1
  63. @ number+3,3*position+40 say select using '##'
  64. @ 20,length+8
  65. @ 22,15
  66. GOTO position
  67. SKIP
  68. ENDD
  69. STOR count-1 to count
  70. STOR number+1 to number
  71. @ 20,0
  72. ENDD
  73. @ 19,0
  74. @ 20,0
  75. @ 22,0
  76. SET intensity on
  77. @ 19,0 say 'Ranking considerations - please wait...'
  78. sort on rate:sum to sortfile descending
  79. USE sortfile
  80. STOR 1 to line
  81. DO WHIL line<13
  82. @ line+3,0
  83. STOR line+1 to line
  84. ENDD
  85. @ 19,0 say 'Considerations rank as above - press RETURN to return to menu...'
  86. SET intensity off
  87. @ 20,0
  88. STOR 1 to line
  89. DO WHIL .not. eof
  90. @ line+3,0 say line using '##'
  91. @ line+3,4 say item
  92. STOR line+1 to line
  93. SKIP
  94. ENDD
  95. SET intensity on
  96. @ 20,0 say ' '
  97. WAIT to return
  98. USE decision
  99. DELE file sortfile
  100. RETU
  101.