' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ó734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`FFORT LESS EFFECTIVE"B^"DUE TO FAMILY'S GRIEF, BUT YOU MANAGE"]^ "TO PATCH THINGS UP."h^*RR20r^4E1.5|^>6050^H *** FIFTH TALK WITH OPINION LEADER^RS$;"YOUR CONSTANT TALKING ANNOYS OPINION"^\"LEADER. ";S$;"YOU LOSE 5 DAYS."_fXTRA DAYS, BUT":"OUTCOME IS AS EXPECTED."5]RR10?]6050]S$;"OPINION LEADER TEMPORARILY LOSES":"INFLUENCE. ";S$;"EFFORT WAS PARTIALLY"]"EFFECTIVE, ";S$;NA$;"."]5930^ S$;"YOU DRIVE YOUR JEEP OVER OPINION":"LEADER'S DOG. ";S$;"EYOUR VISIT WITH THE OPINION LEADER":"GOES WELL BECAUSE YOU ADMIRED THE"{\"FAMILY'S LIVESTOCK. ";S$;"YOU GAIN 5 DAYS."\RR5\6050\S$;"VILLAGERS ASSOCIATE YOU WITH AN"\"UNACCEPTABLE POLITICAL MOVEMENT."*]S$;"YOU HAD TO SPEND 10 E PERCEIVED AS AN ECONOMIC"M[N"BOOST FOR THE VILLAGE. ";S$;"GAIN 10 DAYS."X[XRR10b[b6050[lS$;"JEEP BREAKS DOWN. ";S$;"YOU MISS YOUR"[v"APPOINTMENT. ";S$;"YOU LOSE 5 DAYS, BUT"[{"OUTCOME IS AS EXPECTED."[RR5[6050H\S$;"10270:TS0:3020Zh%ZrRRD(1,1).Z|E11AZB(C,4)66020UZB(C,4)B(C,4)1hZB(C,4)55970{ZCHANCE EVENTSZ8820Z:Z5680,5700,5740,5680,5680,5780,5820,5870,5680,5900Z0S$;"OUTCOME AS EXPECTED."Z:6050[DS$;"INNOVATION ISPRESS ";K$;A$;"1RETURN";L$;A$;"0";E$;/Y"N110:Y,11000SY.CH$ES$ĺBL$;:5400eY0CN0:LEADERCxY6B(C,1)15480~Y@YJS$;"YOU HAVE NOT IDENTIFIED OPINION LEADER":", THEREFORE YOU CAN NOT USE HIM/HER"YT"FOR THIS DIFFUSION STRATEGY."Z^SION STRATEGY 1 %XP$:8:S16090+X>XA(1,2)15400MXB1$:Y1$;X"THE OPINION LEADER":"OF THE CLIQUE YOU WANT TO WORK WITH."X10270:TS0:3020%Y8:S$;"ENTER THE CLIQUE NUMBER OF THE OPINION":"LEADER YOU WANT TO TALK WITH AND":" W10720WCH$ES$3020)WSN0:E0HWS1S7ĺF$;:10940:5250\WD(S,1)R5340W1:21:F$;BL$;S$;"DIFFUSION STRATEGY ";S;" REQUIRES ";D(S,1);" DAYS"W"AND YOU ONLY HAVE ";R;" DAY";:R1ĺ"S";W" REMAINING.";W5250X DIFFU (30)"V715:4:10350^V<I$;"6";ZL$;" ";S$;"SHOW A FILM AT A PUBLIC":8:"MEETING. (30)"pVA18:4:10350VFI$;"7";ZL$;" ";S$;"HAVE A DEMONSTRATION AT AN":8:"OPINION LEADER'S FARM. (40)"V24:4:E$;S$;"ENTER THE NUMBER OF YOUR REQUEST: ";;"2";ZL$;" ";S$;"USE NEWSPAPER ADS. (10)";U9:4:10350iUI$;"3";ZL$;" ";S$;"USE RADIO ADS. (10)"{U#11:4:10350U(I$;"4";ZL$;" ";S$;"TALK TO A VILLAGER AT RANDOM. (10)"U-13:4:10350V2I$;"5";ZL$;" ";S$;"LECTURE AT A PUBLIC MEETING.90TH15000:TS0:15100:4695*TR102709TWDI1:3020VT DIFFUSION STRATEGIES ^TP$T2);K$;A$;"1DIFFUSION CHOICES (COST IN DAYS):";L$;A$;"0"T5:4:10350T I$;"1";ZL$;" ";S$;"TALK TO AN OPINION LEADER. (20)"T7:4:10350*UI$(2);" PERCENT RECEIVE NEWSPAPERS.",S4690XSG(3);" PERCENT ARE REGULAR LISTENERS."bS4690SG(4);" PERCENT ATTEND PUBLIC MEETINGS."S4690SG(5);" PERCENT ATTEND DEMONSTRATIONS."S 4690S4G(6);" PERCENT CAN READ AND WRITE."T>46>CH$ES$ĺBL$;:4390(R@CN0:LEADERC5RDB(C,1)1;RNkRXS$"THE OPINION LEADER IN CLIQUE NUMBER ";CRbB(C,3)4460,4490,4510Rl"HAS SMALL INFLUENCE."Rv4690R"HAS MEDIUM INFLUENCE."R4690R"HAS LARGE INFLUENCE."R4690"SG,4540,4570,4600,4630,4660,4680Q&1:10:S$;"WHICH CLIQUE WOULD YOU LIKE TO STUDY":"TO DISCOVER THE IDENTITY AND INFLUENCE":"OF THE OPINION LEADER?"Q0:S$;"ENTER THE CLIQUE NUMBER":"AND PRESS ";A$;"1";K$;"RETURN";L$;A$;"0";Q:N110Q<11000R *** MAKE SURE DAYS AVAILABLE >= COST OF CHOICEMPE(E):A(E,1)R4350P22:1:F$;BL$;S$;"YOUR REQUEST ";E;" REQUIRES ";A(E,1);" DAYS"P1:"AND YOU ONLY HAVE ";R;" DAYS REMAINING."P4130PRRA(E,1)PA(E,2)1QP$;L$:10:E4390CK (2)"O18:5:10350ROI$;"8";ZL$;" ";S$;"LONGER DESCRIPTIONS OF CHOICES"O"20:5:E$;S$;"ENTER THE NUMBER OF YOUR REQUEST: ";O610720O@CH$ES$3020OJEN0:S0:LEADEREOLE810520OTE0E84310OYF$;O^10940Oh41302PRATULATIONS, ";S$;NA$;", ";C$tnn#T;" PERCENT OF THE HOUSEHOLDS IN":S$;"VILLAGE "VI" HAVE ADOPTED THE INNOVATION."ns#10270nt#PR1:15200nu#R09090nv#1:12nx#S$;"YOU HAVE ";R;" DAYS REMAINING TO":"RELAX AND ENJOY THE TROPICAL HEAT."=o#" GET A PSEUDO-RANDOM INTEGER BETWEEN 1 AND 10 Dmt"Z((1)10)1Jm~"am2# END OF PROGRAM m<#1:12:S$;"YOU HAVE STOPPED WITH ";R;" DAY";m>#R1ĺ"S";mF#:"REMAINING AND ";T;" PERCENT ADOPTION."mK#10270mP#9100mZ#P$:6nd#S$;"CONGEVENT PEOPLE"`l"FROM GETTING THE INFORMATION. ";S$;"OUTCOME":"AS EXPECTED, BUT IT TOOK AN"ul"EXTRA 5 DAYS."lRR5l10270:3020lJ INCREMENT # OF USES AND SET INDEX INTO U() lTV0U(S)1l^U(S)V0lhV068060lrV06l|1mj";S$;"OUTCOME AS EXPECTED,"?kn"BUT IT TOOK AN EXTRA 5 DAYS."Ikx7880wkS$;"YOU WERE NOT ABLE TO SPEND THE TIME"k"YOU NEEDED IN PREPARATION.kS$;"OUTCOME AS EXPECTED, BUT IT TOOK AN":"EXTRA 5 DAYS."k7880 lS$;"WEATHER CONDITIONS PRECEIVE INFORMATION THAN"Xj("YOU ANTICIPATED. ";S$;"YOU GAIN":"10 DAYS, ";S$;NA$;"."cj2RR10mj<7890jFS$;"COMPETING ATTRACTION IN VILLAGE.":S$;"YOU LOSE 10 DAYS."jPRR10jZ7890kdS$;"SUPPORT INFORMATION FAILS TO ARRIVE":"ON TIME. ,7780,7810,7850.iS$;"OUTCOME AS EXPECTED."8i7890iS$;"LOCAL GROUP UNEXPECTEDLY GIVES":"SUPPORT. ";S$;"YOU GAIN 5 DAYS."i7690iS$;"LOCAL EXPERT VOLUNTEERS TO HELP YOU.":S$;"YOU GAIN 5 DAYS."i RR5i7890jS$;"MORE PEOPLE R*** MUST DO ANOTHER MASS COMMUNICATION IN FUTURE;hDI26HhND(I,2)0OhXIUhbwhlS$;"DEMONSTRATION COMPLETE."hv10270:3020hV CHANCE EVENTS FOR DIFFUSION STRATEGIES 2, 3, 5, AND 6 h`hj8820itZ7640,7660,7680,7710,7750,7640,7640NE DEMONSTRATION CAN BE HELD":"ON EACH FARM. ";S$;"YOU HAVE ALREADY HELD"pg"A DEMONSTRATION ON THIS FARM."g10270:TS0:3020gRRD(7,1)gB(C,2)1gI26gD(I,2)16960gIgTTF(B(C,3),1)g&7010g0TTF(B(C,3),2)0h: NION":"LEADER OF THIS CLIQUE AND TALK TO THAT"Ffr"OPINION LEADER."\f|10270:TS0:3020pfB(C,4)16840vffS$;"YOU MUST FIRST TALK TO THE OPINION"f"LEADER OF THIS CLIQUE."f10270:TS0:3020fB(C,2)06890fKgS$;"ONLY OO YOU"{e@"WANT TO HOLD THE DEMONSTRATION? ":"(";S$;"ENTER THE CLIQUE NUMBER AND PRESS":K$;A$;"1RETURN";L$;A$;"0): ";eJN110eL11000eNCH$ES$ĺBL$;P$;:8:6700eTCN0:LEADERC:B(C,1)16790e^/fhS$;"YOU MUST FIRST DETERMINE THE OPIA(1,2)16650 dA(5,2)16700&dYdB1$:"YOU MUST TALK TO THE OPINION LEADER OF"d"A CLIQUE AND LEARN THE PERCENTAGE OF":"VILLAGERS WHO WILL ATTEND A"d"DEMONSTRATION."d"10270:TS0:3020d,e6S$;"ON WHICH OPINION LEADER'S FARM DD(S,2)1ch8020:cn *** SET DIFFUSION INDEX INTO V()BcxI7PcS56560XcI9c *** MODIFY INDEX IF MASS COMMUNICATION STRATEGY USEDcD(2,2)16580cD(3,2)06590cII1cTTV(I,V0)c7520c DIFFUSION STRATEGY 7 dbTTV(6,V0)*bS$;"TALK COMPLETED.";b10270:3020`b DIFFUSION STRATEGIES 5 AND 6 nbS66630b(A(4,2)16500b2b<B1$:Y1$;bF"THE PERCENTAGE OF":"VILLAGERS WHO WILL ATTEND A MEETING."bZ10270:TS0:3020bdRRD(S,1) cfS36350aVA(3,2)16280"a`1ajB1$:Y1$;kat"THE PERCENTAGE OF":"VILLAGERS LISTENING TO RADIO."|a~10270:3020aRRD(3,1)aD(3,2)1a8020aTTV(5,V0)a7520a DIFFUSION STRATEGY 4 aS46430aRRD(4,1)b8020 DIFFUSION STRATEGY 2 &`S262209`A(2,2)16150?`N`B1$:Y1$;`"THE PERCENTAGE OF":"VILLAGERS READING NEWSPAPERS."`10270:TS0:3020`RRD(2,1)`D(2,2)1`8020`$TTV(4,V0)`.7520`B DIFFUSION STRATEGY 3 aLRR5_p6050F_z *** SIXTH (AND GREATER) TALK WITH OPINION LEADER_S$;"THE OPINION LEADER OF CLIQUE":" SETS FAMILY DOG ON YOU. ";S$;"RABIES"_"TREATMENT LOSES YOU 20 DAYS."_RR20_TT(E1V(B(C,3),B(C,4)))_10270:DI1:3020`;CH$;ZL$;" IS NOT A RECOGNIZED NUMBER.";8~&*IH1:IV1C~0*10720~*CH$" "CH$"Z"CH$"?":*** CHECK INPUT CHAR BEFORE ECHO PRINT~*CH$"A"CH$"Z"ĺS$;~*~*2:24:*** ERROR IN CHOICE MSG~*10350~*BL$;I$;~*10900'*CH$;ZL$;";"TO DATE."}h)10270)}j)CH$ES$105583}l)4020D}r)HL:(95):})K$;:IH(36):IV(37):9920:*** SINGLE CHAR NUMERIC INPUT})CH$ES$ı})CH$"0"CH$"9"N0(CH$):})IH1:IV1:F$;}*2:24}*10350:CH$(13)CH$" "(~*BL$;I$270|[)CH$ES$10520]|\)P$;:2:K$;A$;"1INFORMATION CHOICES (COST IN DAYS):";L$;A$;"0";C$m|]):2:10350|^)I$;"7";ZL$;" ";S$;"FEEDBACK (2 DAYS):";ZL$|_):5);S$;"LEARN THE NUMBER OF VILLAGERS"|`)5);"WHO HAVE ADOPTED THE INNOVATION" }b)5) DAYS):":{L):5);S$;"LEARN THE PERCENTAGE OF VILLAGERS"f{N)5);"WHO WILL ATTEND A DEMONSTRATION."v{S):2:10350{T)I$;"6";ZL$;" ";S$;"LITERACY (3 DAYS):"{V):5);S$;"LEARN THE PERCENTAGE OF VILLAGERS"{W)5);"WHO CAN READ AND WRITE."|Z)10 DAYS):";L$;A$;"0";C$%z?):2:10350\z@)I$;"4";ZL$;" ";S$;"MEETING ATTENDANCE (7 DAYS):"zB):5);S$;"LEARN THE PERCENTAGE OF VILLAGERS"zD)5);"WHO WILL ATTEND A PUBLIC MEETING."zF):2:10350{J)I$;"5";ZL$;" ";S$;"DEMONSTRATION ATTENDANCE (7y0)5);"READING NEWSPAPERS."-y2):2:10350`y6)I$;"3";ZL$;" ";S$;"RADIO EXPOSURE (7 DAYS):"y8):5);S$;"LEARN THE PERCENTAGE OF VILLAGERS"y:)5);"LISTENING TO RADIO."y<)10270y=)CH$ES$4020z>)P$;:2:K$;A$;"1INFORMATION CHOICES (COST INAYS):"2x#):5);S$;"IDENTIFY THE OPINION LEADER"]x$)5);"IN A GIVEN CLIQUE AND DETERMINE"x&)5);"THIS INDIVIDUAL'S INFLUENCE."x*):2:10350x,)I$;"2";ZL$;" ";S$;"NEWSPAPER EXPOSURE (7 DAYS):"x.):5);S$;"LEARN THE PERCENTAGE OF VILLAGERS"K$(11)w(L$(12)"w(N$(14)/w(O$(15)p&CH$ES$ĺ:: p&CH$(8)ĺBL$;:9940: q'ST$""VIVX1Ė1:18:F$;S$;"WHY NOT VISIT ";S$;"VILLAGE #"VI1"?";Oo#CH$"Y":9105_o#PR1:15200so#CH$"Y"İ10270o#P$:9:10:S$;"RETURNING TO THE MENU"o#:(4);"RUN MENU"o& SINGLE CHARACTER INPUT o&16368,0:CH$:o& INPUT " @~" ( P P """@`> "" @C " "> 8&@@0 >P(Ђ`@ x"  @@(@! `Ѐppx(>p P P   U(@ " @"4"@@  PQ AЀ*<" @ (|`p ЪՊ(@  "<"@ """">@ @0""8`Հ0*@~ՀpԂ"":A$"":P$"":S$"":ZL$"":A1$"":x NK20482048MAX5:(K)" "(K1)(K2)256" "(K3)" "(K4)::yVI23198ERIC INPUIj;CH$"Y"İ15100t;P$:R;HZ0:15320:HZ18:15320:HZ28:15320:HZ39:15320X;s;HZ73,16HZ73,32:')";24QQ);Q;" ";S$;"DAYS";30);"%";S$;"CONVERTED"$ ;20);": AUDIT TRAIL ":RRL0ı+:RLRG:SE(S0)(15S)(E0)ET:R0R0:DHIGH(R256):DLOWRDHIGH256:PERCENTTā:LOC,SE:LOC1,DLOW:LOC2,DHIGH:LOC3,PERCENT:LOC4,LEADERꁶ:LOCLOC5:LOC20481276LOC2048:DI0: : AUDV1H+11005-.16368,0: PSEUDO GET CH$.XX(1):(95);:(36):ZZ110:XX(1):XX(16384):XX127ĺ" ";:(36):12100.̀.XX(1):" ";:(36):ZZ110:XX(1):XX(16384):XX12712100ڀ.:12010D/CH$(XX128):XX(0):16368,0: IS NOT ONE OF THE CHOICES, RE-ENTER.";-*O*N21:*** RANGE CHECKED INPUTZ*10030i+CH$ES$ız +N0N211040+N0N1ı +IH1:IV1:F$;*+22:1:BL$;S$;"PLEASE ENTER A NUMBER BETWEEN ";N2;" AND"4+N1;", INCLUSIVE.";>+IH1:I A@*ժՀ wըՀЂЪՊ@(Պ @ """>P @@D ժժժժ >"@Ԋժժժժ ><*)ժժժժ P*p})X<""ժժժ (UHժժժժժժp pn7@P @ժ""">@`Հ<>Ъ"""0p pժժ@"ՀЪ( 8PQ?<*<"Jժժժժx@" &*<"7xЪՀЪ E @@P**TժՀ 0ЊԪժԊ8@ """"x``| ժժժ @Ъ 0ժ ժp<@<Ѫ0@ pՀ1`\x 0@@ P0@(  QE0` f@p`*@P Q@ P@xxa_(*TЀ@* ,Q @(P@*p  T P@A 00Ղ08 @@l@<``@ p `(P(  U``>l@@** T*@(@(A*T@Ѐ @ @$P"<"(*@**U|P@*@ (@<<@A<"Հ<`` L"`Ԁ@"p@ `  `|@TA@0` @0 x *P (Ԁ(@*(".!@"@@Հ(@*Up Q@*" "" @ 0z@ p|\ @ ՂAy >ժժժժԊ@  Uժժժ ժժժժ`8x>& ?@ @@ *A@ժժժժժ` ժժPA@!ՀЪ( G@ժժ ժժժժ@`ԪAЪժժժժ*.U@`ps@ՀЪ@Ū@P`TpH~ժ!Ղ@8< <Ղ @A !ժժժժՊ@ @Ԁ@x ժժժ <<"(ժժժժ  p8*<"x @aP`ժժժժժժ8 x*Ԫժ,""<@A>`!Հ<"<ЪP <"H`@Հ!ժժ(ժժժժ@8`xԂ ><6< Pժժժժ@! "<"|< ЪՀЪ@ @ UP7ժՂ@T(Պ`"""<Ղ(@@| ժժժժ0"ԂժժժժP " $"*ժժժժ(s #X $"$""@@ XŊժժժժժժժ`0P@0Ъժ$2""@@ !Հ"Ъ """X>@ @ժժ@@*ժժժժp8 OԀ`b"*"<Pժժժժ*@1""*" "x`syЪՀЪ ((@@z#??     ŮРŠҠ ̱Ԡ̲ԠϠήŠΠóԠΠ ̳ԠóǠŠJՠî̱!î̲!D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ORD UNIVERSITY"TANFORD UNIVERSITY"GDAPTATION FOR CONDUIT BY"U 51,17,"STEPHAN D. MEYER AND KEN C. DAIKER" 71,18,"A CONDUIT REVIEWED AND TESTED PACKAGE" > 1,21,"COPYRIGHT, 1977 AND 1981 BY" @ 1,22,"FELLOWS OF HARVARD COLLEGE" B 17,23,"AND STANFV KK1(Z$):(Z$,KK,1);' :K , 14,5,"THE DIFFUSION GAME"r .12,8,"CHRISTOPHER H. LOVELOCK" 0 14,9,"HARVARD UNIVERSITY" 114,11,"CHARLES B. WEINBERG" 310,12,"UNIVERSITY OF BRITISH COLUMBIA" 41,16,"APPLE II ALOAD TITLE.SHAP"# 232,0:233,868 6:0:1:11,30F KF8:100g "0,151279,151279,1520,152x $KF3:100:1 <DLAY11000:X(16384):X12768 >DLAY D104,64:25664,0 F:(4)"RUN MENU": dK1KF:200:: H,V,Z$ H: FINDINGS, CONCLUS- IONS, OR RECOMENDATIONS EXPRESS- ED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF FIPSE. (4)"MAXFILES 1" 768,1: PRINTER SLOT# DOS$(4) DOS$;"BLOAD LOWHRCG" :6146 DOS$"B_ DIFFUSION GAME REGISTRY NO SOC342 LAST REVISION JULY 1982 BY KEN DAIKER FOR CONDUIT  THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF FUND FOR THE IMPROVEMENT OF POSTSECONDARY EDUCATION (FIPSE) GRANT NO G007905216  ANY OPINIONS,      00>3>333330>333>333>0?333 0003333 3??33333333333>33>003063333>333 33??33 3333>0? ?8  8 86 ? 33?33333333333???>;3333?333? ?3;3?3??33337?;3333333333;>33303? 333333333 333??33 333 ? ? 0` ?  6666666 0 6<6  66 0 0   ?? ??  > `0 3333>88<630?0333?0 33333>0  ??>>??3??0>3>333330>333>333>0?333 33 3??33333333333>33>00063333>333 33??33 3333>0? ?8  8 86 ? 33?33333333333???>;3333?333 <3;3?3??33337?;3333333333;>33333? 333333333 333??33 333 ? ??? ? 6666666 0 6<6  66 0 0   ?? ??  > `0 3333>88<630?0333?0 33333>8    >> 00 3$! $%%#,ep% !Lp"% $`"H *+)hi#"H !*0+i+icH#c hc`"%$$%H hi#`$% b,c*+Md,cPMb*!0 +i+`%J) a+je *`PPPP򠥹͠0sL"$!e (' !!%##`e`" e$$ ",q0rs(!#L"L$a -  $    `L `,fPfA[8 & & &mg)mh e$*+Md$(Mb,cp ,bpP!pA* +i+Md$qr"s`,Ta@0,U`* L" zLB$!$$"% %L"b`f`f`,,Lҩb`@``cd` pLXcd`r$s%L$tc`d`f`e`Yc`d`L$e (' 8!$!$%",qL !%# !L5 (5`)`W L{ IHHH``F}"*?GOWrzFF*Q$``1  emgh` a` ,q0qai$r%s`@a`r$$hLcd`,qSia LL L$L$ B `t8967 ,R,W T ,P`ɭӠҠΠΠ ((*)  a+*HN OI*P,h*,H,_0ɛ_ ɍ $h`ɐ 6+_ pL L z 9996'''''88>999'>.>99>8'''88888:'''''?+++''''''''''>999>8.# 1>.'''''' 555?''''999>8??8<  <88& ?#+7>?99?99'''''''''''>>>'7''''?'''88888:''''''??+++++''''''''''''''''''>`'''''#<1>''''''''' 55555?'''''''''>?8 ?<< @888888 6$??? ' 9 #21'7'  -?-  >>@ >7/''' ?9889???<='''?''''99>890880>>>> 988     SURE (7)"N10:5:10350LNI$;"4";ZL$;" ";S$;"MEETING ATTENDANCE (7)"^N12:5:10350NI$;"5";ZL$;" ";S$;"DEMONSTRATION ATTENDANCE (7)"N14:5:10350NI$;"6";ZL$;" ";S$;"LITERACY (3)"N 16:5:10350OI$;"7";ZL$;" ";S$;"FEEDBAQUESTS MP$BM1:2:K$;A$;"1INFORMATION CHOICES:";L$;A$;"0"SM4:5:10350MI$;"1";ZL$;" ";S$;"OPINION LEADERSHIP (7 DAYS)"M6:5:10350MI$;"2";ZL$;" ";S$;"NEWSPAPER EXPOSURE (7)"M8:5:10350 NI$;"3";ZL$;" ";S$;"RADIO EXPO"NUMBERS DENOTE CLIQUES WITHIN":L 6);"THE VILLAGE.";C$hL 6);S$;"INDIVIDUAL HOMES ARE NOT SHOWN."sL 10270L* CH$ES$3020L4 P$L> :(4);"BLOAD PIC.VILL"VI",A8192"L@ 10270LB CH$ES$3330LD S8:E0:15000:3020M INFORMATION RES$;I$;"S";ZL$;" ";%K 9920:KP$CH$+K 4K F$;JK CH$"I"R14020`K CH$"D"R95020xK CH$"S"ĺP$;:9020K CH$"M"VI33330K 10940K 3202K P$:10:4);S$;"MAP LEGEND:"K 13:6);S$;"DOTTED LINES ARE PATHS.";C$L 6);S$; VI23198J{ ::7:10350=J} S$;I$;"M";ZL$;"AP DISPLAY"OJ~ ::7:10350hJ S$;I$;"S";ZL$;"TOP"J 17:5:S$;"PRESS ";J R1İ10350:S$;I$;"I";ZL$;", ";J R9İ10350:S$;I$;"D";ZL$;", ";J VI3İ10350:S$;I$;"M";ZL$;", OR ";K 10350: "VISIT."I0 10270I: P$;I? TS1:1:32:R;L$;" DAYS"PID 32:"REMAINING"XIN L$~Il 2:" ";S$;"CHOOSE AN ACTION:"In R23194Io 5:7:10350Iq S$;I$;"I";ZL$;"NFORMATION"It R103194Iv ::7:10350Ix S$;I$;"D";ZL$;"IFFUSION" JzP$;:3130H R23090fH BL$;P$:10:S$;"UNFORTUNATELY, ";S$;NA$;", YOU HAVE":"RUN OUT OF TIME."pH 9020H P$:10:S$;"YOU HAVE ONLY ";R;" DAYS REMAINING AND"H "THEREFORE MUST LIMIT YOURSELF TO":"REQUESTING INFORMATION OR MUST END YOUR" I&GPN0G?GS$;"WELCOME TO OUR VILLAGE, ";:(NA$)14ĺOGS$;NA$;"."ZG10270lGCH$ES$2170GDI0:LOC2048:E0:S0:TS0G DRIVER G TS((E0E8)(S0S8))İ15000G TP9050G IF TS AND DI THEN GOSUB 15000 H R10ĺHOW MANY DAYS DO YOU PLAN ON STAYING">F@"WITH US, ";S$;NA$;MFBN1R9:N22XFD11005jFFCH$ES$2090|FHRN0:QR:RLRFz1:16:F$;S$;"WHAT PERCENTAGE OF THE VILLAGERS MUST"F"YOU CONVERT";FN1100F11000FCH$ES$Ģ13:1:F$;:2110"(E"AN INNOVATION AMONG A SPECIFIED"PE"PERCENTAGE OF VILLAGE HOUSEHOLDS"wE"WITHIN A PREDEFINED TIME FRAME."}E E*11:1:F$;S$;"WHAT IS YOUR NAME";E4FLAG1:LZ20:9930:FLAG0:LZ3E6CH$ES$ĺBL$;:2090E8NA$ST$%F>1:13:F$;S$;"DY1$"YOU MUST DETERMINE "-D:6146:7BD INTRODUCTION uDP$;:15:L$;S$;A$;"1VILLAGE ";VI;A$;"0";C$;C$DS$;"YOU ARE NOW ENTERING ";S$;"VILLAGE "VI", "D"POPULATION 100 HOUSEHOLDS. ";S$;"YOUR"E "OBJECTIVE IS TO SECURE ADOPTION OF16:V(I,J):JCI!CI137CJ12:F(I,J):J>CITC2,4, 3,6, 6,12`CI110vC"J14:B(I,J):J}C@ICI16:G(I):ICD$"CLOSE "V$CI16:U(I)0:ICT0CR9370DB1$S$"BEFORE YOU CAN INITIATE THIS STRATEGY, "Bz"DEMONSTRATION(D,"*B|"VILLAGE MAP"0BKBV$"VILL"(VI)".DAT"iBD$"OPEN "V$:D$"READ "V$BA(7,2),B(10,4),D(7,2),F(3,2),G(6),U(6),V(10,6)BI17BJ12:A(I,J):JB.IBLI17BVJ12:D(I,J):JBtIBI110CJPINION LEADER(I,"%Af"NEWSPAPER(I)"5Ag"RADIO(I)"HAh"MEETINGS(I)"aAi"DEMONSTRATIONS(I)"tAj"LITERACY(I)"Ak"FEEDBACK(I)"At"OPINION LEADER(D,"Au"NEWSPAPER(D)"Av"RADIO(D)"Aw"VILLAGER(D)"Ax"LECTURE(D)"Ay"SHOW A FILM(D)"H@ *** (VILLAGE) *** R@ SEE PROGRAM 'SOC342' FOR COPYRIGHT AND CAVEAT l@VI(779):VILLAGE # @VX(780):MAX # VILLAGES@ 90:10370@1000@ZTYPE$(23)@_P(X)X(X128)128@dK17:TYPE$(K)::K1623:TYPE$(K):Ae"O                         @)104,168,104,166,223,154,72,152,72,96TO DATE.""; ESCAPE K(A$(1): HRCG INITS,K(C$(3)>K(D$(13)(4)JK(E$(5)VK(F$(6)bK(I$(9)oK(K$(11)|K(L$(12)K(N$(14)K(O$(15)K(P$(16)K(S$(19)K(Z$(26)K)ZL$Z$L$K) ON ERR FIX K)K110:X:767K,X:K6)'L368,0:CH$::*** SINGLE CHARACTER INPUTJp4:24:S$;"PRESS THE ";A$;"1";K$;"SPACE BAR";A$;"0";L$;" TO CONTINUE. ";:5000: *** CONTINUE PROMPTJzCH$" "CH$(13)CH$ES$ĺBL$;:6000JJx(***GLOBAL INITSJ(BL$(7): BELK(ES$(27): DY FOR";5I~"THE NEXT DISPLAY BY RESPONDING TO THE"aI"MESSAGE PRINTED AT THE BOTTOM OF THE"I"SCREEN (SEE BELOW). ";S$"TRY IT NOW.I6000:200I"ERROR OCCURRED WHILE TRYING TO":"READ THE DISK. SEE YOUR INSTRUCTOR.":6000:322(J16TO SOME QUESTIONS TO REDISPLAY"THL"THE PREVIOUS QUESTION OR DISPLAY. ";S$;"THIS"HV"ALLOWS YOU TO CORRECT RESPONSES AND "H`"REVIEW PREVIOUS DISPLAYS."HjC$;3);S$;"WHENEVER THE DISPLAY SCREEN IS FULL,"It"YOU MUST INDICATE THAT YOU ARE REARK. ";S$;"IF THE ";A$;"1";K$;"RETURN";A$;"0"^GL$;"KEY NEEDS TO BE PRESSED TO SIGNIFY THE"G$"END OF YOUR RESPONSE, IT WILL BE NOTED"G."IN THE QUESTION."G8C$;3);S$;"THE ";A$;"1";K$;"ESC";L$;"APE";A$;"0 KEY CAN BE PRESSED IN"HB"RESPONSE H(36):V(37):HV1:420:F7HHV,8V7HHV,8V7:OF***HOW TO INPUTvFP$;14);S$;"KEYBOARD ";S$;"INPUT"F3:3);S$;"DURING THIS SESSION YOU WILL BE ASKED"F"QUESTIONS. ";S$;"TO REPLY, TYPE YOUR RESPONSE";-G"AFTER THE QUESTION MA:1:10:S$"TO RUN AGAIN TYPE:"::"RUN SOC342"::"AND PRESS RETURN":D$"FP"TEDqEJCH$" "CH$"Z"CH$"?"ET1:24:CH$"A"CH$"Z"ĺS$;E^" ";:410:I$;S$;CH$;BL$;ZL$;" IS NOT ONE OF THE CHOICES, RE-ENTER.";Eh270EHH1:HV0:420F.CH$"1"N(1)1310-D0CH$"2"N(2)1310ED2CH$"3"N(3)1310ND4330D6P$:CH$"3"ĺD$"BLOAD PIC.VILL"CH$",A8192"D:24:1:S$;"VILLAGE "CH$;:1:D;779,KKD<779,(CH$):D$;"RUN VILLAGE"D@CH$"S"330NEB:D$"PR#0":D$"IN#0"::)1250CKKKK1)C7:112KK:410VCI$;K;ZL$;" FOR ";S$;"VILLAGE #";K:400\ClC7:17:410C7:132KK:410CS$;I$;"S";ZL$;" TO STOP":400C3:22:S$;"YOUR CHOICE: ";C5000C"CH$"I"ĺ:1010C,CH$"1"CH$"3"320D5:3);S$;"IF THIS IS YOUR FIRST SESSION WITH";C$[BS$;"DIFFUSION ";S$;"GAME, PRESS ";tB410:S$;I$;"I";ZL$;BL$;" FOR AN";C$:400B"INTRODUCTION."B7:11:410BS$;I$;"I";ZL$;" FOR AN INTRODUCTION":400BKK0BK13CN(K780,KKA216,0:200&A768:216,0LAF(222):F4F5KKK:K3::158AP$:10:S$;"ERROR OCCURRED WHILE TRYING TO":"READ THE DISKETTE.":10:S$"SEE YOUR INSTRUCTOR.":6000:322AP$A2:11AL$;S$;A$;"1DIFFUSION ";S$;"GAME";A$;"0"3B4 @ *** (MENU) ***N@ SEE PROGRAM 'SOC342' FOR COPYRIGHT AND CAVEAT d@F:7:6146:(16)o@n10360y@x170@K13:N(K)0@D$"OPEN VILL";K;".DAT"@D$"READ VILL";K;".DAT"@AA$@D$"CLOSE VILL";K;".DAT"@N(K)1@A     X@@`!@"!"D@ (!8`1@Ԁh"Q P(  PP<@"T@`  * " *  8ԀՀ (@ " "@`"""@"" 2` : ":`Հp`2@ժЪ@Ղ| P@8 !Q @ P c@| gJ"AP  ЪP @*""!Q` Ђ @@D6:< | *  :<@<< Ъ: ":   c@9ЂԪ@ "ժ ԪЀr7($!@Q @Pc`"Ђ  0@" "A@@"C""%A PT  *  @0ժ@ pՂPP(@ P@@ @@Es8 0ժ: (Qa@~x@@`"A@ At@ Ђ*(U>`B(> ``>Ղ`0@T@* @A           " Ԫժժ  " * )ժժժժ@88`B!P ""ժժժ@ @l@Pժժժժ@@1* ժ""""` Հ "Ъ""" `PժժP ՀЪ 08 @(@@aG " "*ժժժժЀT@`< *@* "p<PЪժժժժ T@@@ ԪQpЪժժЊ`: <~T `  @8 @ ՊX@ 9Pժժ<:6&!ժժժժP*`~Ъ !T< (ժժժT'0@Qժժժժx>@@ @ժ" Հ"Ъ<<`0ժժ   $ՀЪT`@@`p(P|: """ժժժժT@  ""@2`6:<`g@Ъժժժժ*@@ ЪXQp<@@AժժՀЊ@8 w  0`u8pn~  8`Պ xPժժ $ժժժժ@8ppԪ @*T(ժժժ !Aժժժժ0 p| Eժ "@ՀЪ@`ժժ(!%ՀЪ ppq| y )ժժժժT@0@"@" "  x ЪժժժժT*ժ@ $QBfapp0PAժժՂԂՊ@`>`?p>( Ъ%~ `\8"`Պ@ժժ >ժժժժ` @Ԫ T ժժժ1ժժժժ`8`P 00@Հ Ъ @@ `xժժ A@!ՀЪ( @   ()ժժժժ@ `0qЪժժժժ(Ԫ@@           ---- -- - ?;;;?;;;;;;;;;;;;? - ) - ????;?;;;;;;;;;;? - -- ??;;;;? ---- ;;;;;;;;;;;;;;;;;?;;;; )-- - - --- - ?;;;;;;;;;;;;;;?;;? - - - - - - ?;;;;;;;;;;;;;?;;? - - ) - - - ?;;;;;;???;?;;; - - ) - ?;;;;;;;;?;??;;;? - ) - - - ?;;;?;?;;;;;;;;;;;;;;;; )----- ----- ?;;;;;;;;;;;; )---- ) ------ ?;;;;;;;;;;;;;;;;;;?;;; ) - - - ?;;;;;;;;;;;;;;;;;?;;;; ) - ) - ? ;?;;;????;;;;;; ) - ) -- - ;?;;;?;?;;;;?;;;;; ) - - - - ;;;;?;;;;;;;;??;;;;; ) - ) --- ?;;;;?;?;;;;;;;;;;;;;;; ) - ) - ?;;;;?;;;;;;;;;;;;;;;;VM )---- ?;;;;;; ) - ?;;;;;;;;;;???? ) -) - ;?;;;;;;;;;;;;?;;; ) -- ----- - ;?;;;;??;;;;;;;; ) - )     2,0, 0,0,2,0(r 0,0,3,0, 0,0,3,0 k| *** G(): CHARACTERISTIC PERCENTAGES FOR INFORMATION REQUESTS*** 2-6 (POSITION 1 NOT REFERENCED) I16:G(I):G(I):I 0,20,50,10,15,40ERIC INPU1 3 - INFLUENCE LEVEL OF LEADER (1-S, 2-M, 3-L)t *** 4 - COUNT OF TIMES CLIQUE LEADER CONTACTED (DIF STRAT 1)I110"J14:B(I,J):B(I,J):J@IJ 0,0,1,0, 0,0,1,0T 0,0,1,0, 0,0,1,0^ 0,0,1,0, 0,0,2,0 h 0,0, I13)J12:F(I,J):F(I,J):J0IG 2,4, 3,6, 6,12s *** B(): CLIQUE DATA (FOR 10 CLIQUES) *** 1 - SET TO 1 IF CLIQUE LEADER DISCOVERED (INFO REQUEST 1) *** 2 - SET TO 1 IF DEMO HELD ON FARM (DIF STRAT 7)/ *** ,2x 8,6,4,4,4,4X *** F(): # ADOPTERS FOR FARM DEMO (DIFFUSION STRATEGY 7) BY *** INFLUENCE LEVEL (3 LEVELS) *** 1 - BEFORE USE OF DIFFUSION STRAT 2, 3, 5, OR 6 *** 2 - AFTER USE OF DIFFUSION STRAT 2, 3, 5, OR 6FTER USE OF DIF STRAT 2 OR 3) I110G J16:V(I,J):V(I,J):JN Ia  2,3,2,1,1,0u ( 3,5,3,2,1,0 2 5,7,4,2,1,0 < 2,2,1,1,1,1 F 2,3,4,2,1,1 P 1,1,1,1,1,1 Z 3,2,2,2,2,2 d 6,4,4,4,4,4n 4,3,2,2,2 3!  *** 6 - DIF STRAT 4`  *** 7 - DIF STRAT 5, BEFORE USE OF DIF STRAT 2 OR 3  *** 8 - DIF STRAT 5, AFTER USE OF DIF STRAT 2 OR 3  *** 9 - DIF STRAT 6, BEFORE USE OF DIF STRAT 2 OR 3  *** 10 - DIF STRAT 6, A, 30,0, 40,0N  *** V(): VALUE (# ADOPTERS) OF DIFFUSION STRATEGIES PER USE  *** (1-6); FOR USES >6, SIXTH USE IS REFERENCED  *** 1 TO 3 - BY INFLUENCE LEVEL FOR DIF STRAT 1  *** 4 - DIF STRAT 2  *** 5 - DIF STRAT TO 1 IF USED) I177 J12:A(I,J):A(I,J):J> .If 8 7,0, 7,0, 7,0, 7,0, 7,0, 3,0, 2,0 B *** D(): 7 DIFFUSION STRATEGIES (1 - COST, 2 - SET TO 1 IF USED) LI17 VJ12:D(I,J):D(I,J):J tI ~ 20,0, 10,0, 10,0, 10,0, 30,0D$"WRITE ";V$ 1010* #D$"CLOSE ";V$< %D$"LOCK ";V$t &:(16):7:10:(11)"VILL3.DAT HAS BEEN CREATED."z ' ( ***END***  A(7,2),B(10,4),D(7,2),F(3,2),G(6),U(6),V(10,6)  *** A(): 7 INFORMATION REQUESTS (1 - COST, 2 - SET  *** VILLAGE MAKER *** W SEE PROGRAM 'SOC342' FOR COPYRIGHT AND CAVEAT iD$(13)(4) ***START***  VILLAGE # VI3:(16):10:10:(19)"CREATING VILL3.DAT."V$"VILL"(VI)".DAT"D$;"OPEN ";V$