home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / DECISION-MAKER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  173 lines
  1. 10 POKE53280,0:POKE53281,0:E=31744:REM           C64 MODS BY WIM '83
  2. 20 (null) TO 1700
  3. 100 PRINT"[152][147]"
  4. 120 PRINT"    DECISION MAKER IS IN TWO PARTS,"
  5. 130 PRINT"  ANALYSIS AND SELECTION."
  6. 140 PRINT"    ANALYSIS[146] IS USED TO STUDY"
  7. 150 PRINT"  ALTERNATIVES AND CRITERIA."
  8. 160 PRINT"    SELECTION[146] CHOOSES AMOUNG MULTIPLE"
  9. 170 PRINT"  ALTERNATIVES AND CRITERIA."
  10. 180 PRINT:PRINT"    EXAMPLE: TO DECIDE ON A WIDGET SUP-"    "
  11. 190 [153]"  PLIER, USE ANALYSIS ON THE CRITERIA:"
  12. 200 [153]"  VARIETY, QUALITY, AND PRICE. THEN USE"
  13. 210 [153]"  SELECTION ON: COMPANY A, COMPANY B,     AND COMPANY C."
  14. 220 [153]"":[153]"    TYPE A FOR ANALYSIS OR S FOR"
  15. 230 [153]"  SELECTION.";
  16. 240 [161] Z$
  17. 250 [139] Z$[178]"S" [167] 740
  18. 260 [139] Z$[179][177]"A"[167] 240
  19. 270 [153]"LOAD           ANALYSISWAIT"
  20. 280 [153]:[153]"  ENTER UP TO TEN ALTERNATIVES."
  21. 290 [153]"  DON'T USE PUNCTUATION."
  22. 300 [153]"  TYPE * TO END THE LIST."
  23. 310 [153]:[153]"  WHAT DECISION IS REQUIRED?"
  24. 320 [133] D$
  25. 330 [153]:[153]"LIST IMPORTANT CRITERIA:":[153]
  26. 340 [129] I[178]1 [164] 10
  27. 350 [153][163]5);
  28. 360 [133] A$(I)
  29. 370 [139] A$(I)[178]"*" [167] 390
  30. 380 [130] I
  31. 390 N[178]I[171]1
  32. 400 [129] I[178]1 [164] N[171]1
  33. 410 [129] J[178]I[170]1 [164] N
  34. 420 [153]"LOAD"
  35. 430 [153]"SELECT THE MOST IMPORTANT WITH"
  36. 440 [153]"RESPECT TO ";D$;"WAIT:"
  37. 450 [153]:[153]:[153]:[153]
  38. 460 [153]"1  ";A$(I)
  39. 470 [153]:[153]"0  ";A$(J)
  40. 480 [161] B$
  41. 490 [139] B$[178]"1"[167] 520
  42. 500 [139] B$[178]"0"[167] 540
  43. 510 [137] 480
  44. 520 T(I)[178]T(I)[170]1
  45. 530 [137] 550
  46. 540 T(J)[178]T(J)[170]1
  47. 550 [130] J
  48. 560 [130] I
  49. 570 [153]"LOAD";D$:[153]:[153]:[153]:[153]
  50. 580 [129] I[178]1 [164] N
  51. 590 B(I)[178] [181](100[172]T(I)[173]((N[174]2[171]N)[173]2))
  52. 600 [130] I
  53. 610 [129] I[178]1 [164] N
  54. 620 [129] J[178]1 [164] N  [171]I
  55. 630 [139] B(J)[177]B(J[170]1) [167] 670
  56. 640 B[178]B(J): A$[178]A$(J)
  57. 650 B(J)[178]B(J[170]1):A$(J)[178]A$(J[170]1)
  58. 660 B(J[170]1)[178]B:A$(J[170]1)[178]A$
  59. 670 [130] J
  60. 680 [130] I
  61. 690 [129] I[178]1 [164] N
  62. 700 [153] B(I);[163]5);A$(I)
  63. 710 [130] I
  64. 720 [137] 220
  65. 730 [156]:[153]"LOAD"
  66. 740 [153]"LOAD           SELECTIONWAIT"
  67. 750 [153]:[153]"  SELECTION CHOOSES AMOUNG MULTIPLE"
  68. 760 [153]"ALTERNATIVES AND CRITERIA."
  69. 770 [153]"  THE RANKING USED IS 0 (BAD) TO"
  70. 780 [153]"10 (GOOD). BE SURE TO REMEMBER"
  71. 790 [153]"THIS WITH NEGATIVE CRITERIA."
  72. 800 [153]"  TYPE * TO END A LIST."
  73. 810 [156]
  74. 820 [153]:[153]"WHAT DECISION IS REQUIRED"
  75. 830 [133] D1$:[153]
  76. 840 [143]
  77. 850 [153]:[153]"LIST CRITERIA FOR DECISION:"
  78. 860 [153]
  79. 870 [129] I[178]1 [164] 10:[153][163]5);
  80. 880 [133] C$(I)
  81. 890 [139] C$(I)[178]"*"[167] 910
  82. 900 [130] I
  83. 910 N[178]I[171]1
  84. 920 [153]"LOAD":[153]:[153]"RANK 0(BAD) TO 10(GOOD) WITH RESPECT"
  85. 930 [153]"TO ";D1$;"WAIT":[153]
  86. 940 [129] I[178]1 [164] N:[153][163]5);C$(I)
  87. 950 [130] I
  88. 960 [153]"":[153]:[153]:[153]:[153]
  89. 970 [129] I[178]1 [164] N:[133] F$(I)
  90. 980 C(I)[178][197]([200](F$(I),4))
  91. 990 [130] I
  92. 1000 [153]"LOAD"
  93. 1010 [153]:[153] "LIST ALTERNATIVES":[153]
  94. 1020 [129] I[178]1 [164] 10
  95. 1030 [153][163]5);
  96. 1040 [133] D$(I)
  97. 1050 [139] D$(I)[178]"*" [167] 1070
  98. 1060 [130] I
  99. 1070 M[178]I[171]1
  100. 1080 [129] I[178]1 [164] N
  101. 1090 [153]"LOAD"
  102. 1100 [153]:[153]"RANK 0(BAD) TO 10(GOOD) WITH RESPECT"
  103. 1110 [153]"TO: ";C$(I);"WAIT":[153]:[153]
  104. 1120 [129] J[178]1 [164] M
  105. 1130 [153][163]5);D$(J):[130] J
  106. 1140 [153]"":[153]:[153]:[153]:[153]:[153]
  107. 1150 [129] J[178]1 [164] M:[133] E$(J)
  108. 1160 D(I,J)[178][197]([200](E$(J),4))
  109. 1170 S(I)[178]S(I)[170]D(I,J)
  110. 1180 [130] J
  111. 1190 [130] I
  112. 1200 [129] I[178]1 [164] N
  113. 1210 [129] J[178]1 [164] M
  114. 1220 T(J)[178]T(J)[170]C(I)[172]D(I,J)
  115. 1230 T0  [178]T0 [170]C(I)[172]D(I,J)
  116. 1240 D(I,J)[178][181](10[172]D(I,J)[172]C(I)[173]S(I)[170].5)
  117. 1250 [130] J
  118. 1260 [130] I
  119. 1270 [129] J[178]1 [164] M:T1(J)[178]J:[130]J
  120. 1280 [129] I[178]1 [164] N:T2(I)[178]I:[130]I
  121. 1290 [129] I[178]1 [164] M
  122. 1300 [129] J[178]1 [164] M[171]1
  123. 1310 [139] T(J)[177]T(J[170]1) [167] 1350
  124. 1320 X[178] T(J):Y[178]T1(J)
  125. 1330 T(J)[178]T(J[170]1):T1(J)[178]T1(J[170]1)
  126. 1340 T(J[170]1)[178]X:T1(J[170]1)[178]Y
  127. 1350 [130] J
  128. 1360 [130] I
  129. 1370 [129] I[178]1 [164] N
  130. 1380 [129] J[178]1 [164] M[171]1
  131. 1390 [139] C(J)[177]C(J[170]1) [167] 1430
  132. 1400 X[178] C(J):Y[178] T2(J)
  133. 1410 C(J)[178]C(J[170]1):T2(J)[178]T2(J[170]1)
  134. 1420 C(J[170]1)[178]X:T2(J[170]1)[178]Y
  135. 1430 [130] J
  136. 1440 [130] I
  137. 1450 [153]"LOAD";D1$:[153]"WAIT":[153]
  138. 1460 [129] J[178]1 [164] M:Y[178]T1(J)
  139. 1470 [129] P[178]1 [164] J:[153][163]1[170]4[172](P[171]1));"THEN";
  140. 1480 [130] P
  141. 1490 [153][163]4[172](J[171]1));D$(Y)
  142. 1500 [130] J
  143. 1510 [129] P[178]1 [164] J[171]1:[153][163]1[170]4[172](P[171]1));"THEN";
  144. 1520 [130] P:[153]
  145. 1530 [129] I[178]1 [164] N:X[178]T2(I)
  146. 1540 [129] J[178]1 [164] M:Y[178]T1(J)
  147. 1550 [153][163]4[172](J[171]1));D(X,Y);
  148. 1560 [130] J
  149. 1570 [153][163]4[172]J[171]2);C$(X):[130] I
  150. 1580 [153]
  151. 1590 [129] J[178]1[164]M
  152. 1600 [153][163]4[172](J[171]1));[181](100[172]T(J)[173]T0[170].5);
  153. 1610 [130] J
  154. 1620 [153][163]4[172](M));"TOTAL":[153]
  155. 1630 [153]"TYPE A FOR ANALYSIS,S FOR SELECTION."
  156. 1640 [161] Z$
  157. 1650 [139] Z$[178]"A"[167] 270
  158. 1660 [139] Z$[178]"S"[167] 740
  159. 1670 [137] 1640
  160. 1680 [128]
  161. 1700 [143] ** TITLE SCREEN ** BY RGS
  162. 1710 [153]"LOADPRINT#"
  163. 1720 [129] I[178]1 [164] 38:[153]"SIN";:[130]
  164. 1730 [129] I[178]1 [164] 22:[153]"CMDSINWAIT";:[130]
  165. 1740 [129] I[178]1 [164] 37:[153]"CMDCMDSINWAIT";:[130]
  166. 1750 [129] I[178]1 [164] 22:[153]"ONCMDSINWAIT";:[130]
  167. 1770 [153] [166]12)"DECISION MAKER
  168. 1780 PRINT SPC(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  169. 1790 [153] [166]13)"MODIFIED 1983
  170. 1800 PRINT SPC(17)"BY WIM
  171. 1810 [129] T[178]1 [164] 3000:[130]
  172. 1820 [203] [164] 100
  173.