home *** CD-ROM | disk | FTP | other *** search
- 10 POKE53280,0:POKE53281,0:E=31744:REM C64 MODS BY WIM '83
- 20 (null) TO 1700
- 100 PRINT"[152][147]"
- 120 PRINT" DECISION MAKER IS IN TWO PARTS,"
- 130 PRINT" ANALYSIS AND SELECTION."
- 140 PRINT" ANALYSIS[146] IS USED TO STUDY"
- 150 PRINT" ALTERNATIVES AND CRITERIA."
- 160 PRINT" SELECTION[146] CHOOSES AMOUNG MULTIPLE"
- 170 PRINT" ALTERNATIVES AND CRITERIA."
- 180 PRINT:PRINT" EXAMPLE: TO DECIDE ON A WIDGET SUP-" "
- 190 [153]" PLIER, USE ANALYSIS ON THE CRITERIA:"
- 200 [153]" VARIETY, QUALITY, AND PRICE. THEN USE"
- 210 [153]" SELECTION ON: COMPANY A, COMPANY B, AND COMPANY C."
- 220 [153]"":[153]" TYPE A FOR ANALYSIS OR S FOR"
- 230 [153]" SELECTION.";
- 240 [161] Z$
- 250 [139] Z$[178]"S" [167] 740
- 260 [139] Z$[179][177]"A"[167] 240
- 270 [153]"LOAD ANALYSISWAIT"
- 280 [153]:[153]" ENTER UP TO TEN ALTERNATIVES."
- 290 [153]" DON'T USE PUNCTUATION."
- 300 [153]" TYPE * TO END THE LIST."
- 310 [153]:[153]" WHAT DECISION IS REQUIRED?"
- 320 [133] D$
- 330 [153]:[153]"LIST IMPORTANT CRITERIA:":[153]
- 340 [129] I[178]1 [164] 10
- 350 [153][163]5);
- 360 [133] A$(I)
- 370 [139] A$(I)[178]"*" [167] 390
- 380 [130] I
- 390 N[178]I[171]1
- 400 [129] I[178]1 [164] N[171]1
- 410 [129] J[178]I[170]1 [164] N
- 420 [153]"LOAD"
- 430 [153]"SELECT THE MOST IMPORTANT WITH"
- 440 [153]"RESPECT TO ";D$;"WAIT:"
- 450 [153]:[153]:[153]:[153]
- 460 [153]"1 ";A$(I)
- 470 [153]:[153]"0 ";A$(J)
- 480 [161] B$
- 490 [139] B$[178]"1"[167] 520
- 500 [139] B$[178]"0"[167] 540
- 510 [137] 480
- 520 T(I)[178]T(I)[170]1
- 530 [137] 550
- 540 T(J)[178]T(J)[170]1
- 550 [130] J
- 560 [130] I
- 570 [153]"LOAD";D$:[153]:[153]:[153]:[153]
- 580 [129] I[178]1 [164] N
- 590 B(I)[178] [181](100[172]T(I)[173]((N[174]2[171]N)[173]2))
- 600 [130] I
- 610 [129] I[178]1 [164] N
- 620 [129] J[178]1 [164] N [171]I
- 630 [139] B(J)[177]B(J[170]1) [167] 670
- 640 B[178]B(J): A$[178]A$(J)
- 650 B(J)[178]B(J[170]1):A$(J)[178]A$(J[170]1)
- 660 B(J[170]1)[178]B:A$(J[170]1)[178]A$
- 670 [130] J
- 680 [130] I
- 690 [129] I[178]1 [164] N
- 700 [153] B(I);[163]5);A$(I)
- 710 [130] I
- 720 [137] 220
- 730 [156]:[153]"LOAD"
- 740 [153]"LOAD SELECTIONWAIT"
- 750 [153]:[153]" SELECTION CHOOSES AMOUNG MULTIPLE"
- 760 [153]"ALTERNATIVES AND CRITERIA."
- 770 [153]" THE RANKING USED IS 0 (BAD) TO"
- 780 [153]"10 (GOOD). BE SURE TO REMEMBER"
- 790 [153]"THIS WITH NEGATIVE CRITERIA."
- 800 [153]" TYPE * TO END A LIST."
- 810 [156]
- 820 [153]:[153]"WHAT DECISION IS REQUIRED"
- 830 [133] D1$:[153]
- 840 [143]
- 850 [153]:[153]"LIST CRITERIA FOR DECISION:"
- 860 [153]
- 870 [129] I[178]1 [164] 10:[153][163]5);
- 880 [133] C$(I)
- 890 [139] C$(I)[178]"*"[167] 910
- 900 [130] I
- 910 N[178]I[171]1
- 920 [153]"LOAD":[153]:[153]"RANK 0(BAD) TO 10(GOOD) WITH RESPECT"
- 930 [153]"TO ";D1$;"WAIT":[153]
- 940 [129] I[178]1 [164] N:[153][163]5);C$(I)
- 950 [130] I
- 960 [153]"":[153]:[153]:[153]:[153]
- 970 [129] I[178]1 [164] N:[133] F$(I)
- 980 C(I)[178][197]([200](F$(I),4))
- 990 [130] I
- 1000 [153]"LOAD"
- 1010 [153]:[153] "LIST ALTERNATIVES":[153]
- 1020 [129] I[178]1 [164] 10
- 1030 [153][163]5);
- 1040 [133] D$(I)
- 1050 [139] D$(I)[178]"*" [167] 1070
- 1060 [130] I
- 1070 M[178]I[171]1
- 1080 [129] I[178]1 [164] N
- 1090 [153]"LOAD"
- 1100 [153]:[153]"RANK 0(BAD) TO 10(GOOD) WITH RESPECT"
- 1110 [153]"TO: ";C$(I);"WAIT":[153]:[153]
- 1120 [129] J[178]1 [164] M
- 1130 [153][163]5);D$(J):[130] J
- 1140 [153]"":[153]:[153]:[153]:[153]:[153]
- 1150 [129] J[178]1 [164] M:[133] E$(J)
- 1160 D(I,J)[178][197]([200](E$(J),4))
- 1170 S(I)[178]S(I)[170]D(I,J)
- 1180 [130] J
- 1190 [130] I
- 1200 [129] I[178]1 [164] N
- 1210 [129] J[178]1 [164] M
- 1220 T(J)[178]T(J)[170]C(I)[172]D(I,J)
- 1230 T0 [178]T0 [170]C(I)[172]D(I,J)
- 1240 D(I,J)[178][181](10[172]D(I,J)[172]C(I)[173]S(I)[170].5)
- 1250 [130] J
- 1260 [130] I
- 1270 [129] J[178]1 [164] M:T1(J)[178]J:[130]J
- 1280 [129] I[178]1 [164] N:T2(I)[178]I:[130]I
- 1290 [129] I[178]1 [164] M
- 1300 [129] J[178]1 [164] M[171]1
- 1310 [139] T(J)[177]T(J[170]1) [167] 1350
- 1320 X[178] T(J):Y[178]T1(J)
- 1330 T(J)[178]T(J[170]1):T1(J)[178]T1(J[170]1)
- 1340 T(J[170]1)[178]X:T1(J[170]1)[178]Y
- 1350 [130] J
- 1360 [130] I
- 1370 [129] I[178]1 [164] N
- 1380 [129] J[178]1 [164] M[171]1
- 1390 [139] C(J)[177]C(J[170]1) [167] 1430
- 1400 X[178] C(J):Y[178] T2(J)
- 1410 C(J)[178]C(J[170]1):T2(J)[178]T2(J[170]1)
- 1420 C(J[170]1)[178]X:T2(J[170]1)[178]Y
- 1430 [130] J
- 1440 [130] I
- 1450 [153]"LOAD";D1$:[153]"WAIT":[153]
- 1460 [129] J[178]1 [164] M:Y[178]T1(J)
- 1470 [129] P[178]1 [164] J:[153][163]1[170]4[172](P[171]1));"THEN";
- 1480 [130] P
- 1490 [153][163]4[172](J[171]1));D$(Y)
- 1500 [130] J
- 1510 [129] P[178]1 [164] J[171]1:[153][163]1[170]4[172](P[171]1));"THEN";
- 1520 [130] P:[153]
- 1530 [129] I[178]1 [164] N:X[178]T2(I)
- 1540 [129] J[178]1 [164] M:Y[178]T1(J)
- 1550 [153][163]4[172](J[171]1));D(X,Y);
- 1560 [130] J
- 1570 [153][163]4[172]J[171]2);C$(X):[130] I
- 1580 [153]
- 1590 [129] J[178]1[164]M
- 1600 [153][163]4[172](J[171]1));[181](100[172]T(J)[173]T0[170].5);
- 1610 [130] J
- 1620 [153][163]4[172](M));"TOTAL":[153]
- 1630 [153]"TYPE A FOR ANALYSIS,S FOR SELECTION."
- 1640 [161] Z$
- 1650 [139] Z$[178]"A"[167] 270
- 1660 [139] Z$[178]"S"[167] 740
- 1670 [137] 1640
- 1680 [128]
- 1700 [143] ** TITLE SCREEN ** BY RGS
- 1710 [153]"LOADPRINT#"
- 1720 [129] I[178]1 [164] 38:[153]"SIN";:[130]
- 1730 [129] I[178]1 [164] 22:[153]"CMDSINWAIT";:[130]
- 1740 [129] I[178]1 [164] 37:[153]"CMDCMDSINWAIT";:[130]
- 1750 [129] I[178]1 [164] 22:[153]"ONCMDSINWAIT";:[130]
- 1770 [153] [166]12)"DECISION MAKER
- 1780 PRINT SPC(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]
- 1790 [153] [166]13)"MODIFIED 1983
- 1800 PRINT SPC(17)"BY WIM
- 1810 [129] T[178]1 [164] 3000:[130]
- 1820 [203] [164] 100
-