' +JJJJ ?\>m0M='+l> /+l   dg]v@uLf]vuu]vLFeu f bL}bBBuLf]v X  `v wwwwwwwwwwwJJJJx wwL L]w8wwwwwwww wwvi w w8vw w`ww wwwwww`x }(`(8`uwwuIw`B` wv`ww`>J>|J>|{VU|)?|`8'x0||&HhHh x x x xV|Y{)z'&Y{)zx{ꪽ)z' x x x x x`Hh`V0{^|*^|*>&` aI꽌ɪVɭ&Yz&|&Yz&{z 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 yz z' yz z& zx)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   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 | |݌ | | |A |D |? |AEDE?HJ>h | | | |`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VD{{P ~(ED Z~ $0x8x Dy- xDD# H8`?E V|k *xf???0xE   Hh Dy#-EEE8` Dy xx Dy - xx8`-0ݩ?ʥD EEE`   LDwcjpjqj` [gj` ~ns cs Ls\^^ujj`j]u^_"_._Q_`_p_Nedcddbbpbtbbeeeebbbme2bˆʎuuL d ]u ]uuuuu faju`ju` bLfu_jbjJLeujjLze`jj d _ QhlX]J̥KlV] d _ QhlV] eօ3L e3L &eRjL_ &eQjL_ dg bL4e Ngej)nju u f`@-ejfjfj ]u bLc bufj`L e.j ` jtjQjLd eLfjL]` bOjjPjjujj dg bLe Ngej)njojojnj f8ɍ` ^ff\juuuLf ^fNRj f bRjΩLf)\jZj ʽ L_Hjv 3h`0h8` b [gL_ f NgСuu fu`jAj@` kuL^vLvu`  \j j0 g\j g _ Qh ^f\jlZ]l^]?jcjqiH _cjh`fjuhjujju]u]u@OjAPj`uj@`@u&`QjRj`E gLsg g g @DAE@uj`8`]] %@ @A@`@`jj@jA`Mu ) bLf`8]@]AWjcj@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@cjh8&ȑ@Hȑ@Ah@LgHȑ@ȑ@j htphso`hMhL`9]Vj8Uj]8]97]Tj6Sj]6]7`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-X (   Ϡ@wst~s!klWlol*mmll9lmnm~s~sllll~s~sllll~s_js jnu jHjH`Lcs (kLs kuuuuu q^s_j isJ QjL_sLsstts Drstuuutuuut 7p o w :osutututuututuuuusuL^ou-uIuuuu uu` o 4o r-u! o p8uuutut 7pLs (ku0+uBuCs r 7pLsu jHjH`LgsL{su0u jHjH` s luLs s q lH qhBLl p BH [q qh`Los su lLs s qB l qLlH phB@ uu [qLqss (kst) st 7pLs sLs (k puuLm (kstL{sstutttu 7p ^o* o sB0 HȱBh msuu m8 oLs8 ru` ku os /n /n s EwD Bn /n /n p]stS0Jt t) s tDtE Bn t  /n 0rLs Νs s`HD٤ssDEEhiHLGnh ` ouBu-` ouB-` k XpuIsss8s ssDH ot EpswttȌw Xpt0 w JwLsuBuC`,up` o Rp-uu`u0` Ko Rp-uu`uwuwuu` 4o Ko o( uuLoBȱBLou8` DrBHuBH :o wuBȭuBhhuu RpBumuuȱBumuu` oLRpuuwwuu`jwjwuLRp Ep(ss t8`tss Rp` EpssLRpjwjw`www uuuIwuwuwuwuwwjj wwuw`w Lsuuuuf ouuuuuuuu ^o`8uu i oBu8` 4qL quȱBu ouuuu ou`s DrsȑBuuBu o w uu`uuuuuuuuuu uuuu`uuu`uuBCuu`uuuu`Ls ouBuCsuu pQst0"Bt s` 0r۰ϬssBts8`si#`sЗLwsu!u0>uuuu`us osms s s7ssisu su8s osuЉLwsu`H ouh ruLo~ts uss`uuuuuuuuJumuumujnununuۭuumuuuumuumuu`"L u8uH ~n(s`  d ֠z# ]ujXWV`$:"NO ONE HAS"; $E(F5)3+$04880D$P(F51)P(F5)04720P$"R: ";o$ (P(F5)P(F51))1.504680|$ E(F5)4$404860$HE(F5)5$\04820$p"D: ";$(P(F51)P(F5))1.504800$E(F5)2$04860$E(F5)1%"HAS A DECI #,N2N21#@04300'#T"NOT-- ";<#hX.25(1P(4))L#|F5304280V#N40a#04400k#N20|#P(1)P(1)I#P(2)P(2)X##F53#03720#0P(9)P(9)I#DP(10)P(10)X#l:10#F51#(P(F5)P(F51))5045800"N1N11"04020&"N3N311"(04020?"<"NOT--";T"PI.25(1P(3))d"dF5304000n"xN10y"04020"N30""AND D IS:";"Y(F5,2)C(F51)04180"X(.5T(F5)(2W(F53)))(1P(4))"F5304140"N4N41#04400(W(5).3P(6))003640-!$P(7)P(7).025R!8:"TURNOUT: ";(100P(7));" PC"\!LF51v!`:"IMPROVING IMAGE:"!t03740!:"STRESSING RIGHT ISSUE:"!:" R IS--";!Y(F5,1)C(F5)03900!I(.5S(F5)(2W(F5)))(1P(3))"F530386)(I(3)I(2))003300 X3. Y(F5,F3)X> F3203400N S(F5)I(X)X F32c 4 02740s H T(F5)I(X) \ F5303500 p F31 F53 02640 : "UPDATE -" P(7)6503640 (W(2).3P(5))003600 P(7)P(7).025!0208 :22:"MAXIMUM TOTAL ALLOCATIONS = ";X:9:2800C I13X I(I).2X03100_ Ij 03140 :22:"ALL ALLOCATIONS MUST BE AT LEAST 20%.":9:2800D X1X I(2)I(1)03220l I(2)0 03260 X2 I(1)0 (I(3)I(1)40000:I(1)ZN. :A$(2);"?";:40000:I(2)ZNO :A$(3);"?";:40000:I(3)ZN (I(1)I(2))(I(1)I(3))(I(2)I(3))002880 :22:"NO EQUAL ALLOCATIONS.":9:2800@ F3202940T XW(F5)h 02960| XW(F53) (I(1)I(2)I(3))X03OCATE UNITS FOR ECONOMIC, DOMESTIC,"::"AND FOREIGN POLICY.":uZ A$(1)"ECONOMIC":A$(2)"DOMESTIC":A$(3)"FOREIGN" " R - HAS "W(F5);:34,9 02760 34,7::" D - HAS "W(F53);:34,9 " UNITS -"; " ALLOCATIONS?"  :A$(1);"?";:AXIMUM.":1:2380 I:$ F51. F31I :"TO HELP IMAGE -":( "ALLOCATE UNITS FOR EXPERIENCE, ABILITY, ":"AND PERSONALITY.":* A$(1)"EXPERIENCE":A$(2)"ABILITY":A$(3)"PERSONALITY"< 02700?P :::"TO PUBLICIZE ISSUES -"::"ALLE?";:40000:W(4)ZN3j :"PARTY?";:40000:W(5)ZNTt :"ISSUES?";:40000:W(6)ZN (W(4)W(5)W(6))P(6)ė:22:"YOU MUST USE ALL YOUR RESOURCE UNITS.":1:2380 I46 W(I).2P(6)ė:20:"EACH ALLOCATION MUST BE AT LEAST 20% OF ":"YOUR M(3)ZN`(W(1)W(2)W(3))P(5)ė:22:868:"YOU MUST USE ALL YOUR RESOURCE UNITS.":1:2240k I13$ W(I).2P(5)ė:20:"EACH ALLOCATION MUST BE AT LEAST 20% OF ":"YOUR MAXIMUM.":1:22408 I:L :"ALLOC. D (MAX=";P(6);")":` "IMAGVANTAGE. NOTE: MINIMUM OF 20% FOR EACH":"AREA, AND TOTAL MUST EQUAL RESOURCE"::"UNITS. AREAS: IMAGE, PARTY, AND ISSUES. "10:"ALLOC. R (MAX=";P(5);")":"IMAGE?";:40000:W(1)ZN:"PARTY?";:40000:W(2)ZN:"ISSUES?";:40000:WE(X)3IX&216,0_ "MEDIA DISTORTION: R --";(100P(3));" PC D --";v (100P(4));" PC"H:"EACH CANDIDATE SHOULD ALLOCATE POLITICAL":"RESOURCE UNITS TO STRESS THE AREA HE"::"BELEIVES WILL GIVE THE GREATEST":|\"AD02@P(4).06(1).02/TP(7),N1,N2,N3,N4X:"ADVANTAGE (-1=REPUBLICAN, 1=DEMOCRAT,"::"0=NO ADVANTAGE)?";:868:40000:IZNI(I1)(I1)0ĺ:"PLEASE USE -1, 0, OR 1.":(37)5:1880958X19E(X)3X2(X2)02020868:CV1(CV23):ZN(ZN$):8JCV1:36,CH:868:JD$(13)(4)R:p 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO"H I(1)I(2)I(3)100Ģ11:958:17:"THE TOTAL OF THE 3 NUMBERS MUST BE 100.":2860[ a w@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM: PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0T (16384)1283020b 16368,0j : RE(222):216,0::10 RE4ĺ"REMOVE THE WRITE-PROTECT STICKER FROM ":"THE EDGE OF YOUR DISKETTE...":3000:OG326,4215[ RE5RE6C1))S(1).041810'E(12)1.03E(12)>E(13)S(13)1830SE(13).98E(13)j&E(14)S(14)18500E(14)1.04E(14):E(15)S(15)1870DE(15)1.1E(15)NE(16)S(16)360XE(16)1.18E(16)b360 G71999::1< 24:" (4).99E(5)S(5)1700.E(5).9E(5)CE(8)S(8)1720WE(8)1.01E(8)hS(1)01750(E(1)S(1))S(1).041750E(10)1.015E(10)E(11)S(11)1770E(11).99E(11)E(12)S(12)1810S(1)01810(E(1)S(,14,1,15,-15,17,-1,0,0 6"1,4,2,2,3,2,6,.5,15,3,0,0S,1,10,6,5,7,3,14,-4,0,0 h61,3,2,1,5,1,0,0}@E(1)S(1)1620JE(1)1.04E(1)TE(2)S(2)1640^E(2)E(2)1hE(3)S(3)1660rE(3).99E(3)|E(4)S(4)1680E(4)E10:"DO YOU WANT TO TRY"b012:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030r0 :R$"Y"Ĭ0*(1023)123Ā04D$;"RUN HELLO"10:43000/@CH(36):CV(37)G/A"";ZN$:(ZN$)(((ZN$)))40003d/B(ZN$)0ZN$"0"40006/CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001/FZM:868:CV1(CV23):ZN(ZN$):/JCV1:36,CH:868:/D$(13)(4)/:0 0P(2))100..C(1)v.0C(2):C(3):C(4):(100P(9))100:(100P(10))100:P(7):(100P(3))100:(100P(4))100.lN1:N2:N3:N4.nX19:E(X):X.p(4)::."MAT:".I19.:"CELL ";I;" --- ";E(I).I..45,0,0,0,0 /:6952-"958:6950-$D$"OPEN ";T1$:D$"READ ";T1$:T6$::"A FILE ALREADY EXISTS UNDER THE NAME"::"OF ";T1$;". PLEASE TRY AGAIN.":2:6942-&216,0:(222)56952-'OG2:1320-(D$"OPEN ";T1$:D$"WRITE ";T1$-*(100P(1))100 .,(10OSEN RIGHT ISSUE 3 TIMES"::"TIMES IN A ROW"P,:" AND THIS SHOULD HELP HIM"V,\,f,10:,2:"UNDER WHAT NAME SHOULD I SAVE YOUR"::"RESULTS";:868, T1$:T1(T1$):T165T190ĺ:"PLEASE GIVE ME A FILE NAME.":2:6942-!T1$XA$ėX);" PC OF THE VOTE"K+:"AND HIS OPPONENT WITH ";.1(10(100X));" PC"V+,06740d+@"A TIE"t+TR1407140+h06940+|"HAS CHOSEN RIGHT IMAGE TWICE IN"::"A ROW"+06880+" HAS CHOSEN CORRECT ISSUE AND IMAGE"+06880-," HAS CH*10*R14064608*:"THE LATEST POLL SHOWS: ";C*(06480]*<:"THE RESULT IS: ";q*P(I3)006720*d(I3)106560*x"R: ";*06580*"D: ";*R1406640*"LEADING: ";*06660*"HAS WON: ";+"WITH"::.1(10X46')$Y(X3,1)(W(2)P(5))E(X).)8X9)LX79V)`W(X6)(W(3)P(5))E(X)])tXx)I(1)I(1)Y(1,1)W(1))I(2)I(2)Y(2,1)W(2))I(3)I(3)Y(3,1)W(3))II(1)(W(4)P(6))I(2)(W(5)P(6))I(3)(W(6)P(6)))X(10(I3))50R"(E(5)406100%(E(5)E(5)10(061009("D"K( E(5)206100\( E(5)E(5)1g(406100y(H"HINDERS: ";(\(E(5)3)106060(p"R"(E(5)E(5)1(06100("D"(E(5)E(5)1(X13(I(X)(W(1)P(5))E(X)(X)'|E(8)E(8)1!'10:" R ";,'06860>'E(6)205660N'N4305660_'E(6)E(6)1k'" D ";v'06860':"TURNOUT: ";'0E(5)305740'D"HAS NO EFFECT"'X06100'lP(7).5505960'"FAVORS: ";'(E(5)3)105880("(4)1&<" D ";&P06780.&dE(7)405340>&xN1105340U&Y(3,1)C(3)05340f&E(7)E(7)1r&" R ";}&06820&E(3)205460&N2105460&Y(3,2)C(4)05460&E(3)E(3)1&," D ";&@06820&TN3305560'hE(8)405560DED";%04880%%"HAS A SLIGHT";:%" ADVANTAGE: ";J%$F5904980Z%8"IN IMAGE"d%LF59o%`04500%t"WITH ISSUES"%%E(2)405120%N1205120%E(2)E(2)1%" R ";%06780%E(4)205220%N2205220&(E(4)E! I675! K(I5)I6 ! 2720,!" J110C!, K(J).06942890^!6 E(J)E(J)(1P(J)100)h!@ 2910!J S(J)S(J)(1K(J)100)!T E(J)A(J)S(J)!^ J!h !r T7T9!| 3160! RT93450! J110! K(J).06943030! RRR(J)" T7T7ND CHANGES":34,25 4:"ID #?";:868:40000:I5ZNI I50ĉ::2850Y I5((I5))j I5102772 :"ENTER ONLY ID FROM 1 TO 10 " 2720 6:868:"% CHANGE?";:40000:I6ZN (I6)752830 I602820 I675 2830 TAND.":7 "UTIL.: 3=PROD LEVEL. 4=POLLUT STAND.": "TRANSP.: 5=POLLUT. STAND. 6=MASS TRANS.":" 7=AUTO. EFFICIENCY": "HOMES: 8=APPLIANCES 9=HEAT/LIGHT": "BUSINESS AND SCHOOLS: 10=HEAT/LIGHT":35,11 2:"TYPE 0 FOR ID # TO EXAMPLE, TO REDUCE THE USE OF"::"APPLIANCES IN THE HOME BY 25 PERCENT,": "YOU ENTER 8, PRESS RETURN, -25, PRESS"::"RETURN."  "WHEN YOU ARE DONE ENTERING CHANGES, TYPE":"0 FOR THE ID #" 101 12:"IND.: 1=PROD. LEVEL 2=POLLUT. S:31003 A1$"Y"ĺ:"YES OR NO, PLEASE.":2510? J110O K(J).0694V( Jb2 J110u< S(J)E(J)A(J)|F JP :Z "TO MAKE A CHANGE, ENTER THE FACTOR ID #,":"RETURN, THEN THE PERCENT CHANGE AND A":d "RETURN."n Jx "FOR E "PROD. LEVEL"B +L "POLLUT. STAND."1V C` "HEAT/LIGHT"Ij Pt JY~ 101g I11010v I172500 A$"YES" 1030 101 P80 4:"DO YOU WANT TO CHANGE ANY FACTORS";:868 A$ A1$(A$,1,1)  A1$"N"2230"3 ";2360)24);"4 ";32380BJ32280M"5 ";W2380q24);"6 MASS TRANS."24);"7 AUTO EFFICIENCY";J42320"8 APPLIANCES"24);"9 "; 2400 J52420 "10 ";$ 2400. 24208J12040"INDUSTRY";+J22060="UTILITIES";L J32080c"TRANSPORTATION";r J42100*"HOMES";4J52120>"BUSINESS AND SCHOOLS";H24);RJ12180\"1 ";f2360p24);"2 ";z2380J2(37)3:1800I(N THIS IS FACTOR7XI11920Sb"START OF YEAR: 1975"Ylcv1970i"CURRENT ENERGY DEMANDS FACTORS IN AREAS""BTU TIMES 10^15 YOU CAN CHANGE"23);"ID#"J15(C(J).5);" ";  - -"-4);"1975 76 78 80 82 84 86 88 90"7YY1FI171790V101:43000dI22480:"DO YOU WANT A LIST OF CURRENT ENERGY"::"DEMANDS";868:A$A1$(A$,1,1):A1$"N"ė:2500 DA1$"Y"ĺ"YES OR NO, PLEASE.";:1:"SURPLUS ENERGY: ";"1570;"ENERGY DEFICIT: ";S"((G(I)H(I).5))v,:9);"GENERAL SATISFACTION";6U491650@16);(C(8)100.5)100;:1rU491710JA1$"N"17604);"I- - - - - - - - - - - - - - - -23):ZN(ZN$):)JCV1:36,CH:868:;D$(13)(4)C:a 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO"JK118|D$;"WRITE ";F$,~S(JK):JK@D$;"CLOSE ";F$K43000a@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006C958:ZM:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001FZM:868:CV1(CV$,1)"Y"Ģ20:"YES OR NO PLEASE.":42022p958or11:"WHAT IS YOUR GROUP NUMBER (1 - 10)?";:868:40000tZN1ZN10ZN(ZN)Ģ20:"ENTER A NUMBER BETWEEN 1 AND 10.":4210vF$"INDICATORS#"(ZN)w216,0:3500xOG2:D$;"OPEN ";F$ zRE ROOM ":"ON YOUR DISKETTE, RUN PROGRAM NUMBER 9, ":"CLEANUP.":3000:OG43000,43000h OG324,4210xC8343000324hj5:"DO YOU WANT TO SAVE YOUR CURRENT"::"INDICATOR VALUES IN A FILE";:868:AB$l(AB$,1)"N"43000(n(AB8C81:"THAT IS THE WRONG FILE NAME..."::"TRY A DIFFERENT NUMBER...":3000:OG3600,4210 RE8ĺ"INSERT THE SOCIAL STUDIES VOLUME 1"::"DISKETTE AND CLOSE THE DISK DRIVE"::"DOOR...":3000:OG326,4215W RE9ĺ"YOUR DISKETTE IS FULL. TO GET MOP WELLS AT ELK HILLS$dO6W2.x4470M WELLS IN ALASKAN RESERVEXO7W3b4470 OIL - GAS FROM COAL - SHALEO8M1G5M24470 CONVERT UTILITIES TO COAL,S5B1@4470T REDUCE DRIVING 20%hS6B2604420tD9(N1)53800/D9(N1)93780DD9(N1)D9(N1)3O03800]D9(N1)6qA1(.5D9(N1))A11A1903860A103860,03920,03980,04040,04120,04180,04240,04300,04360 WELLS ON OUTER CONTINENTAL SHELF(O5W1<4470"DO YOU WANT TO TRY"_/12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030o/ :R$"Y"Ĭ/*(1023)123Ā/4D$;"RUN HELLO"4..@CH(36):CV(37)D.A"";ZN$:(ZN$)(((ZN$)))40003a.B(ZN$)0ZN$"0"40006.CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001.FZM:868:CV1(CV23):ZN(ZN$):.JCV1:36,CH:868:.D$(13)(4).:/ 10:4640-X515K- "RELAY OF SOLAR ENERGY"::"VIA SATELLITE COLLECTORS"k- :"HAS BEEN SUCCESSFUL IN"-*:"INCREASING THE YEARLY ENERGY SUPPLY"::"BY ";X8;" PERCENT."-4T9T9T8->T8T8(1X8100)-HT9T9T8-pG(I1)T9-101.1000"INCREASED USE OF":6,"GEOTHERMAL ENERGY SOURCES"@,4640J,X512m,"COMPLETION OF SEVERAL TIDAL",:"POWER GENERATION PLANTS",4640,X513,"CONTROLLED THERMONUCLEAR POWER",4640,X514,"LASER POWER TRANSMISSION"- RECOVERY"+4640+X58=+"ADAPTING POWER PLANTS TO"X+:"BURN LIGNITE COAL"b+&4640k+0X59+:"INCREASED USE OF SOLAR"+D:"HOME HEATING UNITS"+N4640+XX510+b"WIDESPREAD BURNING OF REFUSE FOR POWER"+l4640+vX511,OWERED FUEL CELLS"*|4640%*X54J*"THE DEVELOPMENT OF WIND POWER"T*4640]*X55*"THE REOPENING OF PREVIOUSLY"*:"UNECONOMICAL COAL MINES"*4640*X56*"FAST BREEDER REACTORS"*4640*X57 +"LARGE SCALE SHALE OIL )X64580)X114610&)3870/)X51M)""DEVELOPMENT OF METHANE"l),:"GENERATION TECHNIQUES"v)64640)@X52)J"THE USE OF NUCLEAR EXPLOSIVES IN THE")T"PRODUCTION OF NATURAL GAS AND OIL")^4640)hX53*r"THE USE OF SOLAR PJ16(FXZ(J)3870((PZ(J)039503(ZZ(J)X=(d3960D(nJR(xX54120`(X24160o(X104200}(X34230(X94260(X144300(X74330(X124360(X14400(X154440(X84470(X134510(X44550'jX73710'tX91000,'~Z(6)09902'8'B'3760L'3800W'J14b'"* ";i'Jo''"NEWS FLASH ";'3760'''X8((1)82.5)' '"BULLETIN---":'X((1)16.5)'(X13870'2X153870(<20(((E(2)E(4)E(5))3)(.1(E(1)E(3))))6& J18R& C(J)(C(J)100.5)100`& J53580o& P8C(J)P8v& J&G(I1)T9&H(I1)P8&T9T9P8&$T8T8.99&.T9T9T8&8&BI31000&LX((1)91.5)&VX23710&`X43710 E(8)R(8)2M(4)M(13)1%f E(9)R(9)2M(4)M(14)L%p E(10)R(10)M(5)M(15)_%z C(1)R(1)R(2)r% C(2)R(3)R(4)% C(3)VR(5)R(6)R(7)% C(4)R(8)R(9)% C(5)R(10)% J70905.85% C(8)(E(1)E(8)E(9)E(10))J% C(7)(E(1)E(3))J+& C(6)$ J $ $ R(RT9)R'$ J110;$ R(J)R(J)(1R)B$ J\$ E(1)R(1)2M(1)M(6)v$ E(2)R(2)2M(1)M(7)$* E(3)R(3)2M(2)M(8)$4 E(4)R(4)2M(2)M(9)$> E(5)R(5)3M(3)M(10)$H E(6)R(6)3M(3)M(11)$R E(7)R(7)3M(3)M(12)%\ (7)E(2)"#l R(3)M(2)2M(8)E(3)<#v R(4)M(2)2M(9)E(4)W# R(5)M(3)3M(10)E(5)r# R(6)M(3)3M(11)E(6)# R(7)M(3)3M(12)E(7)# R(8)M(4)2M(13)E(8)# R(9)M(4)2M(14)E(9)# R(10)M(5)M(15)E(10)# R0# J110# RRR(J)R(J)" T703030" 3160(" 3310/" J?" T7(RT7)RK" J110b" K(J).06943080w" R(J)R(J)(1T7)~" J" 3350" J110"& E(J)E(J)(1P(J)100)"0 J": T7T9"D 3160"N 2950"X R(1)M(1)2M(6)E(1)#b R(2)M(1)2MWANT":5(F"TO CHOOSE THAT DECISION, TYPE 'YES'.":R(K"OTHERWISE, TYPE 'NO'."](P10000g(d2940o(| A( PRINT POLLUTION DATA (P90(I14(J13(P9P9A(I,J)H(I,J)(J( I( ) "AIR POLLUTION =";(P910)10;" MILNERGY FUTURE."' 10000 '4N'"THERE ARE TWELVE POSSIBLE DECISIONS.":{'"YOU CAN CHOOSE AS MANY AS YOU WANT.":'("THE DECISIONS WILL BE PRINTED ON THE":'2"SCREEN ONE AT A TIME. AFTER EACH IS":(<"PRINTED, A '?' WILL APPEAR. IF YOU  &58&"'FUTURE' SIMULATES U.S. ENERGY SUPPLY":g&"AND CONSUMPTION FOR THE YEARS 1975 TO":&"1985. IT ALLOWS YOU TO MAKE REALISTIC":&"DECISIONS ABOUT ENERGY FACTORS AND TO":&"SEE THE EFFECTS OF YOUR DECISIONS ON":'"OUR E00)100 %$%8"RESERVES"#%B\%L" BTU X 10^15";:18:O1;:26:G1;:34:(C110)10%`" YRS SUPPLY";:18:((O1(R1C(1)O8))100)100;:26:((G1(R2C(2)G5))100)100;:34:((C1(R3C(3)))100)100%j:10000%t% INSTRUCTIONS&$34$Z51D1985046606$Z52D197504660F$ Z5104660Q$ 07540Y$4:p$H" % SOURCE TOT",y$\G6$pJ1$z18$(R1100100)100;$4680$G7$J2$26$(R2100100)100;$4680$34%(R310012 #G4#PD19751-#R2G(P)C(2)?#TR2C(2)G5N#R2TC(2)^#G1G1TG5f#&26}#0Z51D198504660#DZ52D197504660#XZ5104660#l COAL#J3#G5#C1C1C(3)4(O8G5)#TC(3)4(O8G5)$R3TC(3)(1)O5O6"06640,"TR1C(1)O5O6O87"06640R"TR1C(1)O5O6O7O8a"O7O71.4p"R1TC(1)"D198006720"O1O1TO8",6730"@O1O1T"J18"TZ51D198504660"hZ52D197504660"|Z5104660" GAS#JRESERVES! OIL!J1$!G34!PD19751F!R1O(P)C(1)U!A1(.5P)k!A11A11106440!A106440,06440,06440,06520,06520,06560,06560,06560,06600,06600,06600!(TR1C(1)O5O6!<O6.306640!PO6O6.1!d06640 "xTR1CUSTRY SHIFTS TO COAL3 A(1,3)A(1,3)S9(D1975)N C(3)C(3)S9(D1975)q A(1,1)A(1,1)(S93)(D1975) $C(1)C(1)(S93)(D1975) 8A(1,2)A(1,2)(2(S93))(D1975) LC(2)C(2)2(S93) `!t CALCULATE AND PRINT DOM. SUPPLY AND T9T9S8& A(4,2)A(4,2)2(S83)>4C(2)C(2)2(S83)WH NUCLEAR CAPABILITYl\A(2,5)A(2,5)N}pC(5)C(5)NA(2,2)A(2,2)2(N3)C(2)C(2)2(N3)A(2,1)A(2,1)(N3)C(1)C(1)(N3)  TARIFF ON OIL AND GAS -- IND CARS WITH BETTER MILEAGE00D197805820FDA(3,1)A(3,1)S7XXR(3)R(3)S7jlC(1)C(1)S7xT9T9S7D198005820S7S7S7(D1977) BETTER HOME INSULATIONA(4,1)A(4,1)S83R(4)R(4)S8C(1)C(1)S83  (3)S5(D1975)2hA(2,1)A(2,1)(S53)(D1975)Q|C(1)C(1)(S53)(D1975)xA(2,2)A(2,2)(2(S53))(D1975)C(2)C(2)(2(S53))(D1975) REDUCE DRIVING BY 20%A(3,1)A(3,1)S6R(3)R(3)S6C(1)C(1)S6T9T9S62 <J15PTC(J)H%d46414xJ504900;JAQH105380_H100T9t:"% TOT CONS";05180 CHANGE BASE VALUES ACCORDING TO DECISIONS, CONVERT UTILITIES TO COAL@A(2,3)A(2,3)S5(D1975)TC(3)C(.5G)A11A1804880SA104880,05240,06800,07020,07220,07340,07420,07460ZJj$H105380yLG105260`TR(I)t4680T(R(I)T9)1004680: PRINT COLUMN TOTALS AND PERCENTSC(6)T9H1(G PRINT A LINE OF THE MATRIX WITH ROW TOTAL AND PERCENTAG1L J15Z TA(I,J)g!J1Ė13t"J2Ė18#J3Ė23$J4Ė29%J5Ė364(T10)10;HG707440\G104820pTR(I)05000T(R(I)T9)10005060A1|4470& CARS WITH BETTER MILEAGE1S7B3;4470^ HOMES WITH BETTER INSULATIONiS8B4s4470 INCREASE NUCLEAR CAPABILITYNB504470D INDUSTRY SHIFTS TO COALXS9B6l04180vN10032081:"------- 0--- 0 --- 0--- 0--- 0":23:50:570RX1ĺ"BIRTH RATE";jX0ĺ"DEATH RATE";|X1ĺ"FOOD";X2ĺ"NATURAL RESOURCE USAGE";X3ĺ"INDUSTRIAL OUTPUT";X4ĺ"POLLUTION";@CH(36):CV(37)A"";ZN$: NAT. IND. POLUT. POP.";q"SCALE";15);"RES. OUTPUT":" IN":"------- 150--- 75 --- 750---1500--- 225""PERCENT":"OF 1978":"VALUES": "------- 100--- 50 --- 500---1000--- 150"16:"------- 50--- 25 --- 250--- 500--- 75"92 ---- ---- ---- ---- ------ ---":`24:1:"BY THE YEAR ";T1980;", POPULATION HAS""FALLEN TO LESS THAN HALF THE 1978 LEVEL INDICATING A WORLD MODEL COLLAPSE.":50::1055:"------- 200---100 ---1000---2000--- 300 ":"GRAPH FOOD RE WILL BE A DELAY FOR COMPUTATION."J13:12);"G, T, OR B";:868:A$h(A$,1)"G"A%C1%:1116(A$,1)"T"A%C2%:1116(A$,1)"B"A%C3%:11161455A%C2%15301485:570(::"YEAR FOOD RES. IND. POLLUT POP 1x(37)1:33:"?";:868:40000:A%ZN::958pA%1979A%UC1%ĺ"IT MUST BE BETWEEN 1979 AND ";U;:1400T(X2)A%1980:R(X2)Q100X:5:12)"WHICH DO YOU WANT?"::14)"G = GRAPH"::14)"T = TABLE"::14)"B = BOTH"$20:"THE" VARIABLE","CHANGE: PERCENT YEAR"KF"--------","-------------------"_KX1C4%:LC1%qU1935:"","";_26:"?";:868:40000:QZN::958:Q01435d(Q50)L1501400i"THAT'S UNREALISTIC. PLEASE RECONSIDER.":LC0%:(37)2:1365LEASE.":1315U2U2000U2100ĺ:"END YEAR MUST BE BETWEEN 2000 AND 2100."::1315[7<:"FOR EACH OF THE FOLLOWING VARIABLES,"::"INDICATE THE PERCENT CHANGE (+ OR -),":="THEN THE YEAR IN WHICH THE CHANGE WILL"::"TAKE EFFECT.":50:%A;R$:R$(R$,1):R$"Y"R$"N"4303051 :R$"Y"ĬI1*(1023)123Ā]14D$;"RUN HELLO"$)))40003'0B(ZN$)0ZN$"0"40006b0CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:400010FZM:868:CV1(CV23):ZN(ZN$):0JCV1:36,CH:868:0D$(13)(4)0:0 10:"DO YOU WANT TO TRY"%112:868:"AGAIN (YES OR NO) ?"/$'(16384)12810020%/.'16368,0-/8':9/.CTCT1G/.18:868O/.R$//(R$,1)"Y"(R$,1)"N"Ģ23:"YES OR NO PLEASE.":12010//(R$,1)"Y"D9(CT)CT:12100/0/D9(CT)0/D/:8/X//@CH(36):CV(37) 0A"";ZN$:(ZN$)(((ZNx# 85.7272,61.0881,114.0519.# 85.9156,61.2177,113.723K.# 85.3215,0,0i.# 85.7246,61.0642,113.229~.# H1,H2,H3,H4,H5.# .0159,31,.0078,.6054,3.3.@$.'G71999::1.'24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,024.9,25.3,25.6,25.9,26.2,26.4,26.7,28.2,29.84-" Gm-" 22.6,22.8,23,23.2,23.4,23.6,23.8,24,24.2,24.4,24.6u-" E-# .01,-.008,-.003,0,0-# .002,-.007,0,-.008,.013-(# .003,-.003,0,0,0-<# .003,-.002,-.001,0,0-P# .01,-.008,0,0,0-d# H..4,2.1,1,.45,2.1,2.3,1.5,.7,.45',! A<,! 5.4,10,5.6,0,0V,! 1.8,4.6,9.2,3.6,2.6j," 18.7,.6,0,0,0,$" 6.1,8.5,.4,0,0,8" 4.3,.4,.1,0,0,L" P,`" -.0059,.0089,-.0009,-.0033,.0014,t" O1,G1,C1," 580,1032,40960.," 0,-" 24.2,24.6,(K5H4100)100;" MILLION TONS"&+\!X+p!" SILT =";(K5H4100)100;" MILLION TONS"^+u!+!"RADIOACTIVE WASTE REQUIRES ";(C(5)H5100)100:" ACRES OF BURIAL LAND"+!10000+!02660+! W1,W2,W3,M1,M2,B1,B2,B3,B4,B5,B6,! 3.2,.34,1100)100;"% OF 1975 LEVEL"!* v* "LAND WASTE FROM STRIP MINING =":20:(((C(3)08)H11.E06)100)100;" ACRES"|* * "WATER POLLUTION:"* K5R1C(1)O8* !* !" BRINE FROM OIL WELLS =":16:K5H2;" MILLION TONS"*4! +H!" OIL =";LION TONS")0 5)D Q9((A(3,1)8.54)(M98.54))100o)X " CARBON MONOXIDE:";(Q9100)100;"% OF 1975 LEVEL"u)l ) M6A(1,1)A(4,1)A(2,1)) M5A(1,3)A(4,3)A(2,3)) SD((M6.511M5.7645)(M8.511M7.7645))100* " SULFUR DIOXIDE:";(SDwgog?wox?o@?~{m?_9vs}xA?ooo}];?oogy{s~nnun{~n{{nnfw?~oxp67\_{]qcfoxG?G|}x?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~}v[ow{m??~wp`}xxs~xXc{}>p?c>{o~_ow[k~_wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@?Wt?~Ox?x|}?OO|O@_~{~v[ow{m?k{m?_}vw?|x~0W]v[k6wmo.{~w}>{}>}?y>x`ow[m|awsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qqqwqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q?oo~o@_~{~v[wl?g]{m?_}vw?~~~?~PO>zog>{k/{~w}>{}>}?|>{o7ow[n{~_wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_N (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030E :R$"Y"ĬY*(1023)123Ām4D$;"RUN HELLO"NA(2,2)A(2,2)2(N3)(ZN$)(((ZN$)))400037B(ZN$)0ZN$"0"40006rCZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"512:868:"AGAI :1"N:FACE1ė:12:"ONE MOMENT PLEASE..."V"NFACE$"COMM, SERIAL OR PARALLEL"h"ND$(13)(4)"N(ST)FACE$"COMM, SERIAL OR PARALLEL"İ20350"OFACE$"COMM, SERIAL OR PARALLEL"FACE1ė:PR0:ST1:;#O:5:"TURN YOUR PRINTER ON AT THIS 995070,.990384C!x.989478,.989692,.987119,.981037,.970752,.954883p!}.930882,.893099,.843550,.779330,.590070{!43000! G71999::1! 24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0! (16384)1283020! 16368,0".372E6,2.994E6< Z FEMALE MORTALITY 5 YEAR SURVIVAL RATES q _.982188,.997241,.998528,.997810,.996649,.996013 d.994799,.992589,.988883,.983307,.975232 i.965217,.948579,.921060,.878601,.662675 n MALE MORTALITY !s.977536,.996465,.997803,.E6 8<5.834E6,5.703E6,6.116E6,6.293E6,5.747E6,5.221E6]A4.612E6,3.756E6,3.263E6,4.697E6}F - MALE POPULATION FIGURESK8.753E6,10.127E6,10.596E6,9.793E6,8.645E6,6.827E6P5.686E6,5.505E6,5.802E6,5.917E6,5.312E6,4.771E6 U4.044E6,3.075E6,201220M(I,N)Z21E6#13108M(I,N)1Z21E3L M(I,N)11300ZM(I,N)1nM(I,N)01310|M(I,N)0N#(2.45 -.002,.143,.338,.285,.147,.066,.018,.0012.515 78.430E6,9.749E6,10.209E6,9.492E6,8.531E6,6.93151;1240""75 AND OVER";0I31255PGG1000(M(I,N)1E4.5)10h19:(GG100)100;r1260GG(M(I,N)1E5.5)1019:(GG100)100;34:CV(37):"?";:868:40000:Z2ZNZ20Ģ(CV1)::1260I21285Z2Q1(Q15)1Q1Q1145)Q111459Q1161190DQ116x5:" GROUP";:18:"CURRENT";:32:"NEW VALUE";I3121017:"DEATH/1000"121511:"POPULATION MILLIONS"NQQ1N161235(N1)5;"-";NLITY OCCURING IN MALES"!V1145'[1`I1:Te"CHANGE IN FEMALE POPULATION"^j1145hoI2:t"CHANGE IN MALE POPULATION"y3:"GROUPS FROM AGE?";:868:40000:QZN~25:3:"TO AGE?";:40000:Q1ZNQQ11315Q(Q5)1 1045"45 AND OLDER?";-40000:B(N)ZN@B(N)B(N)100NTTB(N)U$Nj)(T1).021080.21:"TOTAL MUST BE 100"33000:10108=I3:B"CHANGE IN MORTALITY OCCURING IN FEMALES"G1145LI4:Q"CHANGE IN MORTA)(Y32)Y3Y32Y1F8:"PERCENT FEMALE BIRTHS?";:868V40000:MZNeM1M100y(M.5).5985:2:"PCT. FERTILITY OCCURING IN FEMALES AGES:"T0N310N101040(N1)5;"-";N51;"?"; (Z1)(Z2)0910#Z2980T15:"WHAT FERTILITY WILL BE STABLE?";:868e40000:B3ZNsB3093518:"HOW MANY DECADES UNTIL FERTILITY"::"REACHES ";B3;"?";:86840000:Y3ZNY30950Y32(Y32)950J(B3B2Q885,1010,985,1085,1120-p(Q$,1)"Y"910Xu7:"FERTILITY IN ";Y2Y15;"?";:868fzY10900pF2140000:B2ZNB2088510:"WILL FERTILITY (1) STAY AT ";B2;" OR"::"(2) CHANGE SLOWLY TO A NEW LEVEL?";:86840000:ZZNyxA?ooo}={{^o^k|sg~np{p{~`{{aqjwxO8oJV[_{]n]vox?>pp}xO?X_{{@ww~_>?wvyx?o`}?__`_@_~{~{}>~?]{o}_ow[g~_5)(R(J,5)M(F,I)))-M(F,I)M(F,I)L(F,I)AM(F,I)004580VM(F,I)L(F,I)0]JhJ18 T(J,1)T(J,1)(T(J,1)A(B)) T(J,2)T(J,2)(T(J,2)A(B))4C(1,I)C(1,I)T(J,1)HC(2,I)C(2,I)T(J,2)\JpII15 Z(X)R(J,5)04580 F1+044204F2?04420HF3S04420\0F4DT(J,1)(X)(R(J,2)(R(J,2)M(F,I)))XT(J,2)(X)(R(J,3)(R(J,3)M(F,I)))lX004520T(J,1)(X)(R(J,4)(R(J,4)M(F,I)))T(J,2)(X)(R(J,,I)S(J,I)(R(J,6)1)*Q(J,I)004120=Q(J,I)S(J,I)H04580fX(Q(J,I)S(J,I))R(J,1),J04160,04160,04280,04160,04320,04360,04160,04400@T(J,1)(X)R(J,2)TT(J,2)(X)R(J,3)hX004580|T(J,1)(X)R(J,4) T(J,2)NDITIONS T02:12:8::"THINKING...":=K15MTTS(4,K)TK_(I15<LL18:LM12:T(LL,LM)2:LM:LLPJ18dQ(J,I)004120xP(1,I)104060J404040Q(J,I)R(J,6)S(J,I)TS(J,I)04120Q(J03620,02820,03660 F1% 03680. F2903680B$F3M803680VLF4m`M(F,P)M(F,P).25tL(F,P)L(F,P)502820::PW3730JJJJ1:JJ6840PW0:3760PP5922  ROUTINE FOR CALCULATING CHANGES IN COENTENCE." 03120* N3(N3)03440L4 (S(N,P)V).1S(N,P)03440H :V;" IS TOO DRASTIC A CHANGE. PLEASE"::"TRY A SMALLER CHANGE."\ 2824p :Q(N,P)03480 X91 Q(N,P)V X9102820 N02820,02820,03540,02820,03580," D 2824X V103200*l V503360l :"POLICE TRAINING LEVELS IS ON A SCALE OF ":"1 TO 5 ONLY."w 03120 V10003360 :"PRE-TRIAL BAIL HAS A MAXIMUM LEVEL OF"::"100..." 03120 V9903360  :"99 YEARS IS A MAXIMUM S+12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030X+ :R$"Y"Ĭl+*(1023)123Ā+4D$;"RUN HELLO"+@ǺD$"PR#0":D(37)-*A"";ZN$:(ZN$)(((ZN$)))40003J*B(ZN$)0ZN$"0"40006*CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001*FZM:868:CV1(CV23):ZN(ZN$):*JCV1:36,CH:868:*D$(13)(4)*:* 10:"DO YOU WANT TO TRY"H 160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133 )P 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,0 *@CH(36):CV10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173 (P 231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176,3,72,169 )P P0181:ZQ:765ZP,ZQ:ZP8'PZN$"10"Ĺ802,82:818,82A'P775I'P:V'P:ST1:'P 76,5,3,2,255,255,255,255,24,176,56,152,72,172,0,3,8,169,5,141,3,3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153,248n(P 7,152,10,10,10,MPAR2&O(ZS5)S5(FACE)(ZS7)S7(FACE)20530<&PFACEG& PFACE0O&P:y&P NO KNOWN PRINTER INTERFACE FOUND&(PFACE1:SLOT1&2P FOUND INTERFACE 'FACE' IN SLOT 'SLOT'&>> LIMITS <<<":11z11);"WORLD GROWTH MODEL":50::G%1:Z15:T(Z)200::1255:1265D,F,C,V,E,J,P,K,T(6),TZ15:S(K,Z),Z(Z)::IM(0):G1A(0):,C0%,C1%,C2%,C" CALORIES/PERSON/DAY."::"AVERAGE INCOME: $";(S(K,3)8E4S(K,5).5)100;"/PERSON/YEAR.":~"THE DEATH RATE IS: ";(D1E3.5);"/ 1000"::50:T2ė:1470430002 .012,0,24E11,.04,.029,.012,4.22,1,200,-2, 1,78,1,156,1,15.6,1,7.8,1,5,5)P)::A%C2%1030+GK:K(T201.96)3[50\:4:"THE WORLD IN THE YEAR "T1980":"::"THE POPULATION IS "R(S(K,5)P)" BILLION.":eS(K,4)10ĺ"POLLUTION ROSE TO "R(S(K,4))" TIMES ITS 1978 LEVEL.":\o"FOOD SUPPLY IS "(S(K,1)2E3.5)Y%(G%)Y::,TTC1%:TU1979570NA%C2%Ģ22:1:958:50::gTT1:::A%11116v A%21115$1485)K1TCT%C1%:196020K;37)(S(K,1)2E3.5);13);R(S(K,2))100;19);R(S(K,3)1.6);25);R(S(K,4))100;33);R(S(K*MH14C2%T:Z15:G%Z:850:Z:1030RL(S(K,G%)Z(G%)C5T):YCF%L:LCF%YC0%:23:C5%:"OFF THE GRAPH IN ";T1980;W7G%(G%2):G%C3%HHC1%fG%C2%H11ēH%(G%),Y%(G%)H,Y:H%(G%)H:Y%(G%)Y:kH,YHC1%,Y:H11ı pH%(G%)H:2%CF%39:H11261C4%:H,Y:H,Ye%21:2)1980;8);2000;15);20;20);40;26);60;32);80;36);2100&"POPULATION-GREEN"20)"POLLUTION-PURPLE":"IND. OUTPUT-WHITE"20)"NAT. RES.-ORANGE":15)"FOOD-BLUE";:1*C3%:YCF%:HCT%26040:H,Y:H,YC2%:$S(K,C1%)C2%:S(K,C5%)C5T1510;S(K,C5%)C5T1510U(TC2%)TC2%1030n(TCT%)TCT%750{K7735KKC1%:ZC1%C5%:S(K,Z)S(KC1%,Z):A%C2%795T1980;6);:1075A%C2%1030HC1%845! ::C1%:YCGS(K,C3%):GGX(C6%):WS(K,C4%)A(C0%):S(K,C4%)V(S(K,C4%)SW)NY(C4%)S(K,C3%)ICZ%:S(K,C2%)W(S(K,C2%)N):FFC01:VVX(C5%):CC(C1%M(C0%)V):S(K,C1%)V(Y(C3%)B(C0%)C(S(K,C4%))D(C0%)(C1%FD(C0%))Z(C1%))S(K,C1%)C2%695EE(C0%)F(C0%)H(C0%)):DV(JI(C0%)J(S(K,C4%))K(C0%)L(S(K,C5%))):I(C0%)CD%620 ]DV(JI(C0%)J(S(K,C4%))K(C0%)L(S(K,C5%))) bI(C0%)CD%620 gDV(DCD%I(C0%)) lDC1%630 qDC1%CvS(K,C5%)V(S(K,C5%)(BDC1%)):SW(Z)Z(1(Z))3 X(Z)1R(Z)(1((TT(Z))))T Y(Z)1R(Z)(1(TT(Z)))q Z(Z).95(Z)10:1230 :S(K,C3%)V(CM(C0%)S(K,C5%)Z(C3%)C24):S(K,C3%)CT%585 DS(K,C3%)CT% IMS(K,C3%)S(K,C5%)I:EEX(C1%):JJX(C2%)] XBW(H(Z)(S(K,4)60)( I(Z).3.7MJ J(Z)((Z10)1)Z101.067d K(Z).3S(K,1)7.7 L(Z).902.109Z.279Z2.097Z3.012Z4 M(Z)S(K,2) R(Z)(1E3Z.5)1E3 V(Z)Z((Z.01)1).01((Z.01)1)(Z.01) ),Z(5),T(6),R(6),S(7,5),H%(5),Y%(5)= A(Z)S(K,4)21801f B(Z)(((1S(K,5))2)2.5)S(K,5) C(Z)1.02(3930Z1950Z246Z3.318Z4)1E6 D(Z)((F2)(1(S(K,3))))2(S(K,3)) E(Z)(1M)2.5 F(Z)1.05S(K,5)20 G71999::1V 424:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0l 6(16384)12854z 816368,0 :: k7)(S(K,1)2E3.5);13);R(S(K,2))100;19);R(S(K,3)1.6);25);R(S(K,4))100;33);R(S(K,5)P):A%C2%1030# }L(11/ COPYRIGHT MECC 1979 LIMITS 7/18/79 FPe AUTHOR: D.LOGAN, D.KLASSEN, D.JAMES, M.WEISNER ASSOCIATED PROGRAMS AND FILES: NONE DOCUMENTATION AVAILABLE THROUGH DEC UNDER NAME: LIMITS 22015:20481(::255::ZM24:125 2       ---- ---- ---- ---- ------ ---":`24:1:"BY THE YEAR ";T1980;", POPULATION HAS""FALLEN TO LESS THAN HALF THE 1978 LEVEL INDICATING A WORLD MODEL COLLAPSE.":50::1055:"------- 200---100 ---1000---2000--- 300 ":"GRAPH FOOD RE WILL BE A DELAY FOR COMPUTATION."J13:12);"G, T, OR B";:868:A$h(A$,1)"G"A%C1%:1116(A$,1)"T"A%C2%:1116(A$,1)"B"A%C3%:11161455A%C2%15301485:570(::"YEAR FOOD RES. IND. POLLUT POP 1x(37)1:33:"?";:868:40000:A%ZN::958pA%1979A%UC1%ĺ"IT MUST BE BETWEEN 1979 AND ";U;:1400T(X2)A%1980:R(X2)Q100X:5:12)"WHICH DO YOU WANT?"::14)"G = GRAPH"::14)"T = TABLE"::14)"B = BOTH"$20:"THE" VARIABLE","CHANGE: PERCENT YEAR"KF"--------","-------------------"_KX1C4%:LC1%qU1935:"","";_26:"?";:868:40000:QZN::958:Q01435d(Q50)L1501400i"THAT'S UNREALISTIC. PLEASE RECONSIDER.":LC0%:(37)2:1365LEASE.":1315U2U2000U2100ĺ:"END YEAR MUST BE BETWEEN 2000 AND 2100."::1315[7<:"FOR EACH OF THE FOLLOWING VARIABLES,"::"INDICATE THE PERCENT CHANGE (+ OR -),":="THEN THE YEAR IN WHICH THE CHANGE WILL"::"TAKE EFFECT.":50:%ALIMITS IS A SIMULATION BASED ON THE,"BOOK, 'LIMITS TO GROWTH'."," " XHPOLICY,POLICYRPOLICY SIMULATES THE IMPACT OF SPECIAL,INTEREST GROUPS ON POLICY INFORMATION.," "\USPOP,USPOP fUSPOP PROJECTS U.S. POPULATION BASED ON,USER-DETERMINED PA," " ENERGY,ENERGYiENERGY IS A SIMULATION IN WHICH THE,USER MAKES ENERGY RELATED DECISIONS.," "| FUTURE,FUTURE*FUTURE IS A SIMULATION WHICH SHOWS THE,POSSIBLE EFFECTS OF VARIOUS DECISIONS ON,"ENERGY SUPLIES, ETC."4LIMITS,LIMITSE>ELECT1 SIMULATES PRESIDENTIAL ELECTIONS,OF THE 19TH CENTURY.," " TELECT2,ELECT2ELECT2 SIMULATES PRESIDENTIAL ELECTIONS,OF THE 20TH CENTURY.," "ELECT3,ELECT3ELECT3 SIMULATES PRESIDENTIAL ELECTIONS,BASED ON FACTORS ENTERED BY THE USER.1:(37)18İ20500:;9C24:N$(T,C)""N$(T,C)" "835K>N$(T,C):C[C:T:20500hH::200 "SOCIAL STUDIES - VOLUME 1",10CRIMEX,CRIMEX,CRIMEX SIMULATES USING STRATEGY TO,CONTROL CRIME IN A LARGE CITY.," " ELECT1,ELECT1ADISKETTE.":20500::720* vVX$"N"6107 ::255= V A(999)(1000)256l B(A)(A1)256 CS(B1)16:SLOT # CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS *:34,1: /14:"DESCRIPTIONS":34,4 24T1N"ZN0:? ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500g ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868: X: b10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1) lVX$"Y"ė:10:9:"INSERT THE NEW 470@ 22:1:"PLEASE ENTER A NUMBER FROM 1 TO "N".":16:280M QN600s ::10:"GETTING THE PROGRAM..." 230,32:62450 D$;"RUN ";N$(Q,1) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"DT:(1023)123280@ J1(16384)128:J10JJ1:J300275X 16368,0:1023,123 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868 16303,0 "490 ,ZN$"D"800 QZN Q0QN1$(N,4)5 xT1N1:C04:N$(T,C):::N$(N,0)"END"L 1:20(T$)2:T$\ VV4(N17) 2:11:"AVAILABLE PROGRAMS":VV T1N:2TN1Ė20 T10ĺ" "; T" "N$(T,0) T((N3)4)T((N3)4)((N1)2)ĺ T((N1)2)ĢVV \ HELLOVERSION B-3.09LAST UPDATE: 6/17/81?S(C) MECC 1980Y :d 22016vD$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,02D$"NOMON CIO"dZM24 n:T$,N:NN1:N     !! ?";R$:R$(R$,1):R$"Y"R$"N"430308 :R$"Y"ĬL*(1023)123Ā`4D$;"RUN HELLO"(ZN$)))40003*B(ZN$)0ZN$"0"40006eCZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"(12:868:"AGAIN (YES OR NO),49.3,47.3,52.7,51.5,48.53 50.1,49.9,52.2,47.8q "JACKSON","ADAMS","VAN BUREN","HARRISON","POLK","CLAY"  "SEYMOUR","GRANT","TILDEN","HAYES","CLEVELAND","BLAINE" "MC KINLEY","BRYAN" @CH(36):CV(37) A"";ZN$:(ZN$)(( TOTAL 100."::"PLEASE TRY AGAIN.":1960/ YL 1828,1840,1844,1868,1876,1884,1896 ` 4,3,3,3,2,2,3,3,3,2,3,3,3,4,3,3,3,3,1,2,3,2,4,4,3,4,5t 1,3,3,3,4,3,3,3,3,2,2,3,2,3,3,3,3,4,4,3,3,3,2,2,3,2,3 2,3,3,3,4,4,3,4,3 56,44,47,53,50.7:"PLEASE USE A NUMBER BETWEEN 10 AND 80.":(37)3:1970D958:"CAMPAIGN ISSUES?";:868:40000:I(3)ZN:I(3)10I(3)80ĺ:"PLEASE USE A NUMBER BETWEEN 10 AND 80.":(37)3:198011:958) I(1)I(2)I(3)100ĺ"THE THREE NUMBERS MUST$;14);P(2E1):%B$;14);1P(2E)@X10:43000:"IMAGE?";:868:40000:I(1)ZN:I(1)10I(1)80ĺ:"PLEASE USE A NUMBER BETWEEN 10 AND 80.":(37)3:1960958::"PARTY AFFILIATION?";:868:40000:I(2)ZN:I(2)10I(2)80(J)(S(1)M(XJ)S(2)M(XJ3)S(3)M(XJ6))4JKA1(A1100100)4wT9:"THE RESULT OF YOUR STRATEGY IS:":hA$;14);|A1:B$;14);100A1:"THE VOTE FOR THE TWO MAJOR CANIDATES IN ":"THE ACUTAL ELECTION WAS:":A01240E301280$E4012806"REPUBLICAN"A01300S"NATIONAL ";^01200l" WHIG"r(5);A$;":"<01960PZ013dS(Z0)I(Z0)xZ09:868:50:5);B$;":":25501960A10J13-A1A1IH(Y(E))I$900\E(p:4:6806:XE99<B_"CANDIDATE PARTY"nA$N$(E,1)}B$N$(E,2)E701100:A$;14);"REPUBLICAN":$B$;14);"DEMOCRAT"801300L:A$;14);"DEMOCRAT":`B$;14);tE2 10 AND ":"80, WITH A HIGHER NUMBER REPRESENTING"::"MORE EMPHASIS. THE TOTAL STRATEGY VECTOR":"MUST EQUAL 100.":10:4 "CHOOSE THE YEAR FROM THE FOLLOWING LIST:" Z017 Y(Z0);" "; Z0  :"ELECTION YEAR"; I$ 4E17T ":"REPRESENTS THE AMOUNT OF EMPHASIS ON THE":"CANDIDATE'S IMAGE, THE SECOND REPRESENTS" "THE AMOUNT OF EMPHASIS ON PARTY"::"AFFILIATION, AND THE THIRD IS THE AMOUNT":"OF EMPHASIS ON CAMPAIGN ISSUES.":10z :"EACH OF THESE NUMBERS IS BETWEEN:780# |(Z$,1,1)"Y"ė:4:680D :"YES OR NO, PLEASE.":360N :: "YOUR GOAL WILL BE TO CHOOSE THE OPTIMUM ":"STRATEGY FOR CANIDATES IN AN HISTORICAL ":"ELECTION. EACH CANDIDATE'S STRATEGY":[ "VECTOR CONSISTS OF 3 NUMBERS. THE FIRS15);"E L E C T 1" 8F 4)"HISTORICAL ELECTIONS - 19TH CENTURY"n ,20:"NEED INSTRUCTIONS";:868:Z$ 6(Z$,1,1)"N"ė:360 @(Z$,1,1)"Y"ĺ:"YES OR NO, PLEASE.":300 T420 h4:"WANT A LIST OF YEARS";:868:Z$ r(Z$,1,1)"N""' TO CONTINUE.";:16368,01 (16384)12814? 16368,0G :o xI(3),M(63),P(14),S(3),Y(7),N$(7,2) ::255::ZM24 ZZ17:Y(ZZ):ZZ ZZ163:M(ZZ):ZZ ZZ114:P(ZZ):ZZ Z017 N$(Z0,1),N$(Z0,2) Z0 4:a COPYRIGHT MECC, 1979: ELECT1 8/23/79 FP[ AUTHOR: HUNTINGTON PROJECT DOCUMENTATION AVAILABLE THROUGH DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS120 G71999::1 24:" PRESS '";::"SPACE BAR";::     958z@ 13:"PARTY AFFILIATION?";:868:40000:I(2)ZN:I(2)10I(2)80ĺ:"PLEASE USE A NUMBER BETWEEN 10 AND 80.":2880J 15:958 15:"CAMPAIGN ISSUES?";:868:40000:I(3)ZN:I(3)10I(3)80ĺ:"PLEASE USE A NUMBER BETWEEN 10 AND 80.":3000U,4,3,2,3,4,3,3,3,3,3,3,4,3,3,3,28 3,3,3,3,2,3,3,3,4p 63.9,36.1,58.8,41.2,59.2,40.8,52.4,47.6,55.4,44.6 50.1,49.9,50.4,49.6, 11:"IMAGE?";:868:40000:I(1)ZN:I(1)10I(1)80ĺ:"PLEASE USE A NUMBER BETWEEN 10 AND 80.":28606 13: "IN THE ACTUAL ELECTION # F2) 4( 01400i< " ";P(2E1);" PERCENT";25);P(2E);" PERCENT"oP ~d 10:43000 1920,1928,1932,1948,1952,1960,1968  4,4,3,4,4,3,3,3,2,4,4,3,4,4,3,3,3,2,4,3,4,3,2,3,4,3,3  2,3,3,3,4,4,2,3,3,4,3)100)W(2)(I(2)100)W(3)(I(3)100)<$ A1((A1)4)100K8 F002460qL "THE RESULT OF YOUR STRATEGY IS z` F1t  01400 F202620 " ";A1;" PERCENT";25);100A1;" PERCENT"  "THE VOTE FOR THE TWO MAJOR CANDIDATES"B";::":": 02860:8:958& 1 J13I4W(J)S(1)M(XJ1)PHJ[\J46spW(J)S(2)M(XJ1)zJJ79W(J)S(3)M(XJ1)JW(1)W(1)W(4)W(7)W(2)W(2)W(5)W(8)W(3)W(3)W(6)W(9)& AW(1)(I(1)0018600" REPUBLICAN";28);"DEMOCRAT";001880bD" DEMOCRAT";28);"REPUBLICAN"hXwlF002360"CANDIDATE ";::"A";::":":02860S(1)I(1)100S(2)I(2)100S(3)I(3)100 8:958:"CANDIDATE ";::"80,E4016401@" TRUMAN";28);"DEWEY"<T01780KhE501700s|" EISENHOWER";28);"STEVENSON"~01780E601760" KENNEDY";28);"NIXON"01780" NIXON";28);"HUMPHREY"F002360 (E3)(E4)(E6 <14);"ELECTION OF ";Y(E)&PQd" CANDIDATE A";28);"CANDIDATE B"`xE101460" HARDING";28);"COX"01780E201520" HOOVER";28);"SMITH"01780E301580" ROOSEVELT";28);"HOOVER"017YES OR NO, PLEASE.":(37)3:980'$H8" ELECTION";18);"CODE NO."SLI17k`" ";Y(I);20);Itt:I"ELECTION CODE NO.?";868:40000:EZNE1E7E(E)ĺ:"PLEASE USE A NUMBER 1-7.":(37)2:1180X(E9)8(SENTING"::"MORE EMPHASIS. THE TOTAL OF EACH"::"STRATEGY MUST EQUAL 100.":10 "CHOOSE THE CODE NO. FROM THE FOLLOWING"::"LIST:": 1080 :"DO YOU WANT THE ELECTION CODE LIST";:868:Y$ (Y$,1,1)"N"ĺ:1180!(Y$,1,1)"Y"ĺ:"THE AMOUNT OF"::"EMPHASIS TO BE PLACED ON PARTY"::"AFFILIATION."::" "THE THIRD REPRESENTS THE AMOUNT OF"::"EMPHASIS TO BE PLACED ON THE CAMPAIGN"::"ISSUES."::P 4"EACH OF THESE NUMBERS IS BETWEEN 10 AND ":"80, WITH A HIGHER NUMBER REPRE"STRATEGY FOR CANDIDATES IN AN HISTORICAL":"ELECTION."::{ X"EACH CANDIDATE'S STRATEGY CONSISTS OF 3 ":"NUMBERS.":: l"THE FIRST REPRESENTS THE AMOUNT OF"::"EMPHASIS TO BE PLACED ON THE CANDIDATES ":"IMAGE.":10I :"THE SECOND REPRESENTS |2 "HISTORICAL ELECTIONS - 20TH CENTURY"::8 A F0b "DO YOU WANT INSTRUCTIONS";p 868:I$ (I$,1,1)"N"ė:980 (I$,1,1)"Y"ĺ:"YES OR NO, PLEASE.":(37)2:460 ::; "YOUR GOAL WILL BE TO CHOOSE THE OPTIMUM ":E BAR";::"' TO CONTINUE.";:16368,0< (16384)12814J 16368,0R :g ::255::ZM24 Y(7),W(9),M(63),I(3),S(3),P(14) I17 Y(I) I I163 M(I) I ,I114 @P(I) TI h4:12);"E L E C T 2"  COPYRIGHT MECC, 1979: ELECT2 8/23/79 FPf AUTHOR D. KLASSEN, HUNTINGTON PROJECT DOCUMENTATION AVAILABLE THROUGH DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS150 G71999::1& 24:" PRESS '";::"SPAC     NAME. TRY ":"A DIFFERENT ONE...":10:OG1230,6942B;43000MxT(1)`P(1)4(1)1sP(2)4(1)1C(1)(3(1)1)C(2)(3(1)1)C(3)(3(1)1)C(4)C(3)P(9)4(1)1P(10)4(1)1,P(3).06(1). THE DISK DRIVE ":"DOOR...":10:OG1240,69518RE9ė::"YOUR DISKETTE IS FULL. ANOTHER FILE ":"CAN NOT BE ADDED. RUN PROGRAM NUMBER 9, ":"CLEANUP, TO GET MORE ROOM ON THE DISK.":10:430007:RE10RE13ė::"YOU MAY NOT USE THAT FILE ::"IF YOU ARE STARTING A NEW GAME, ENTER"::"A PERIOD OF 1.":10:430004RE6RE5ė::"I CAN NOT FIND THAT FILE. PLEASE TRY ":"ANOTHER FILE NAME.":10:123016RE8ė::"PLEASE INSERT THE SOCIAL STUDIES VOLUME ":"ONE DISKETTE, AND CLOSE,C(4),P(9),P(10),P(7),P(3),P(4)0N1,N2,N3,N4D X19:E(X):XXD$"CLOSE ";XA$b2040(RE(222):216,0:RE4ė::"PLEASE REMOVE THE WRITE-PROTECT STICKER ":"FROM THE EDGE OF THE DISKETTE.":10:OG1240,6951K2RE5RE6C8C81:C83İ40000:P(6)ZN:R111400L:"WHAT IS THE NAME OF YOUR FILE";:XA$RE((XA$,1)):RE65RE90ĺ:"PLEASE GIVE ME A FILE NAME.":(37)3:12309581320OG1D$;"OPEN ";XA$D$;"READ ";XA$P(1),P(2),C(1),C(2),C(3)S FOR"::"THE REPUBLICAN CANDIDATE FIRST, THEN FOR":"THE DEMOCRATIC CANDIDATE. FOR THE FIRST ":"ROUND, FIGURES MAY VARY FOR BOTH"::"PARTIES. 300 IS THE SUGGESTED MAXIMUM.":"REPUBLICAN CANDIDATE?";:40000:P(5)ZN:"DEMOCRATIC CANDIDATE?";:"::" REPUBLICAN ISSUES.":\\"CELL9: APPEAL OF ISSUES BETWEEN"::"CANDIDATES.":10by"PERIOD:?";:868$40000:R1ZN8R11R14R1(R1)ĺ:"PLEASE USE A NUMBER 1-4.":(37)2:1040BL:"INPUT THE POLITICAL RESOURCE UNITVS. DEMOCRATIC"::" CANDIDATE."::"CELL5: GENERAL APPEAL":104:"CELL6: EFFECT OF REPUBLICAN DEALINGS"::" WITH DEMOCRATIC ARGUMENTS.": H"CELL7: DEMOCRATIC IMAGE V. REPUBLICAN"::" ISSUES."::"CELL8: EFFECT OF DEMOCRATIC PARTH ONTIC INTEREST, ":"5=STRONG REPUBLICAN APPEAL":10W:"CELL1: APPEAL OF CANDIDATES" :"CELL2: REPUBLICAN CANDIDATE WITH THE"::" DEMOCRATIC PARTY."::"CELL3: REPUBLICAN IMAGE WITH DEMOCRATIC ":" ISSUES.":C "CELL4: REPUBLICAN PARTY FILE NAME. THE PROGRAM WILL ":"USE THIS FILE TO KEEP INFORMATION FOR"::"THE NEXT ROUND."c &: 0"AFTER THE FILE IS USED IN ROUND 4,"::"IT IS AUTOMATICALLY DELETED.":101:" THERE WILL ALSO BE NINE 'CELLS' OF"::"INTEREST. 1=STRONG DEMOCRA"3. FIRST OF OCTOBER TO THE MIDDLE OF"::" OCTOBER."::"4. MIDDLE OF OCTOBER TO ELECTION DAY."::"THIS PROGRAM WILL BE RUN A TOTAL OF 4 ": "TIMES, ONE FOR EACH CAMPAIGN PERIOD.":10[ :"WHEN RUNNING THE PROGRAM, YOU WILL BE"::"ASKED FOR A Y THAT YOUR CANDIDATE WILL WIN.":10z h:" THE SIMULATED CAMPAIGN WILL BE DIVIDEN":"INTO FOUR PERIODS OF ACTIVITY:": |"1. FIRST OF SEPTEMBER TO THE MIDDLE OF"::" SEPTEMBER."::"2. MIDDLE OF SEPTEMBER TO THE END OF"::" SEPTEMBER.": STRUCTIONS"; 868:Z$7 (Z$,1,1)"N"ė::1040q (Z$,1,1)"Y"ĺ:"YES OR NO, PLEASE.":(37)2:180w $ :" THIS IS A SIMULATED CAMPAIGN,"::"CONSISTING OF TWO MAJOR PARTIES. YOUR"::"JOB IS TO SIMULATE THE CAMPAIGN IN SUCH ":"A WA'";::"SPACE BAR";::"' TO CONTINUE.";:16368,0H (16384)12814V 16368,0^ : D$(13)(4):D$"NOMONC,I,O" ::255::ZM24:4:12);"E L E C T 3":: P(10),C(4),E(9),W(6),Y(3,2),I(3),S(3),T(3) A$(3) "DO YOU WISH IN( COPYRIGHT MECC, 1979; ELECT3 8/23/79 FPr AUTHOR: D. KLASSEN, STATE UNIVERSITY OF NEW YORK DOCUMENTATION AVAILABLE THROUGH DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS150 G71999::12 24:" PRESS                ,1,6,.5,10,-.1,14,3,0,0 -2,1,16,-100,0,0f1,24,2,11,4,.3,6,3,11,-.05,13,-.1,16,-500,17,-2,0,01,9,2,8,4,-1,8,1,10,-.05,11,-2,12,-1,13,-.05,16,-300,17,-3,0,0 1,-8,2,-10,3,-30,5,1,6,-4,7,4,10,.25,13,1,14,-2,0,01,2,2,.5,6,-2,7,5,8,-1nE(A)E(A)Bx1370Z%0Z199A,B@ZQ1,15.2,0,0 j1,10,8,2,9,2.25,0,01,12,2,5,9,2.25,12,-1.5,13,-5,16,-100,0,02,4,3,1,12,2,13,3,0,01,12,2,3,6,1,7,1,10,-.1,11,-.05,12,-1,13,-3,16,-50,0,0 1,8,2,2,3 " Z20Z114+Q(Z)1011250:12:"#";ZDZ21PQ(Z)1Z1260fQ(Z)0mZ|Z20130012:"NONE":3000 16003000(Z1142Q(Z)01370<A,BFA01340P1410ZA,BdA01410)W(Z)Č958:22:"YOU DON'T HAVE THAT MANY POINTS LEFT.":990MBB01120L(B)Y(Z)Č958:22:"YOU DON'T HAVE THAT MANY MINUS POINTS":"LEFT.":990VY(Z)Y(Z)B`Q(A)Q(A)BjW(Z)W(Z)(B)tW(Z)0900~Z::"PASSED : : ";W(Z):Y(Z)W(Z)940.Y(Z)W(Z)T"MAXIMUM MINUS POINTS : ";Y(Z)u13:"POLICY NUMBER?";:86840000:AZNA14A0950A0115016:"HOW MANY POINTS?";:86840000:BZNB0990A(A):B(B)>8(BZ1770"BUSINESS" 900-Z2800: "LABOR"C900P Z3830d*"CIVIL RIGHTS"m4900z>Z4860H"MILITARY"R900\Z5890f"NATIONALISTS"p900z"INTERNATIONALISTS"8:958 "TOTAL POINTS REMAINING" ";Z100;:12:(100E(Z))100;5P20ĺ:540J23:D1;:34:D2QZ[&3000h:P2P21tDZ118NS(Z)E(Z)XZbZ16lW(Z)100vY(Z)50ZZ114Q(Z)0ZP2P14200Z16:51(P1)338^P20h*|P20410B"INITIAL AMOUNTS:"K420c"END OF PERIOD";P2i"INDICATOR CURRENTLY INCREASE PCT. INC."Z118D1(100(E(Z)S(Z)))100S(Z)0490D2100D1S(Z)D2(100D2)100$1ZN10ZN(ZN)324>FF$"INDICATORS#"(ZN):216,0:3500XG:OG1:D$;"OPEN ";F$eHJK118xID$;"READ ";F$JE1$:E(JK)(E1$):S(JK)E(JK):E1$:JKKD$;"CLOSE ";F$:216,0:R5:"HOW MANY PERIODS?";:868T40000:P1ZN YP11P,18.2,3,82 % ; 54,3,140,4.5,25,8.2C @ 30,116.3,142,5568,20,0 A5:"HAVE YOU SAVED YOUR INDICATORS FROM A"::"PREVIOUS GAME";:868:AB$ B(AB$,1)"N"ė:338 C(AB$,1)"Y"321 D10:"WHAT GROUP NUMBER (1 - 10)?";:868:40000EZNAIN POLICIES ENACTED."F "THE IMPACT OF THE POLICIES THAT DO GET":u "ENACTED IS REFLECTED IN CHANGES IN 18": "SOCIOECONOMIC INDICATORS." 3000 E(18),S(18),Q(14),W(6),Y(6) Z118 E(Z) S(Z)E(Z) "Z 6 976.5,197,80,O" 255:::/ :15:"P O L I C Y"::] "THIS PROGRAM SIMULATES THE IMPACT OF": "SPECIAL INTEREST GROUPS ON POLICY": "FORMATION. THE DIFFERENT GROUPS WILL": "ALLOCATE THEIR INFLUENCE POINTS IN AN": "ATTEMPT TO GET CERTED BY GROUP XR Q(X): BETWEEN LINES 650 AND 1190 Q(X) IS THE NUMBER OF POINTS FOR PROPOSITION X. AT OTHER TIMES Q(X) = 1, IF PROPOSITION X PASSED 0, IF PROPOSITION X DID NOT PASS  ZM23:D$(13)(4):D$;"NOMON C,I ASSOCIATED FILES: OPTIONAL FILE(S) - INDICATORS#Nl S(X): VALUE OF INDICATOR X AT BEGINNING OF PERIOD E(X): VALUE OF INDICATOR X AT END OF PERIOD W(X): NUMBER OF POINTS TO BE USED BY GROUP X Y(X): NUMBER OF MINUS POINTS TO BE USd COPYRIGHT MECC, 19798n POLICY 8/23/79 FPfx DEVELOPED BY D. KLASSEN AND J MCGRATH DOCUMENTATION AVAILABLE THROUGH DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. DOCUMENTATION BY D.E.C. AVAILABLE FROM MECC. 3         .5)":11);"POLLUTION LEVEL";2U421450P16);(C(6)100.5)100;`U441490"ENERGY DEMAND: ";(H(I).5):9);"ECONOMIC WELL-BEING";U45151016);(C(7)100.5)100;U481590(G(I)H(I).5)01560G(K)JU31350$G(K)J1350232K);G H(K)JU31330XH(K)J1330b"E";l(1380v2"S";<1380FH(K)JU31380PH(K)J1380Z32K);"D";dKiA1$"Y"1700nU411430"ENERGY SUPPLY: ";(G(I)80 BU135LL55&VU3(UL)14/`U40`t"END OF YEAR: ";Y;" S=SUPPLY, D=DEMAND":oJULU3{U4U41A1$"N"1390(J.5)1351220(J.5)951220(J.5)5512201240(J.5);4);"I";K1I5)100 JG(1)T9%H(1)P8+9I11880FVV1.074:"WANT RESULTS GRAPHED (TYPE 'END'"::"TO QUIT) ";:868A$A$"END"43000A1$(A$,1,1)A1$"N"A1$"Y"ĺ:"YES OR NO, PLEASE.":1010.II18PR(1)R(2)HC(2)R(3)R(4)&QV20@RC(3)VR(5)R(6)R(7)S\C(4)R(8)R(9)bfC(5)R(10)rpJ70905.85zC(8)(E(1)E(8)E(9)E(10))JC(7)(E(1)E(3))JC(6)20(((E(2)E(4)E(5))3)(.1(E(1)E(3))))J18C(J)(C(J)100.)R(3)M(2)2M(8)E(3)5R(4)M(2)2M(9)E(4)PR(5)M(3)3M(10)E(5)kR(6)M(3)3M(11)E(6)R(7)M(3)3M(12)E(7)R(8)M(4)2M(13)E(8) R(9)M(4)2M(14)E(9)R(10)M(5)M(15)E(10) J110*RRR(J)4J >C(1)bJlJ110vP(J).P(J)P(J)1005J=T9GT8T9 1.2,.6,1.8,.4,1.5,1.6,1.4,1.8,1,1.2,27,20,22,14,5,3,1,2.5,1,1 .6,.8,.5,2.5,2.5,.04,.02,.04,.02,.02,.04,.06,.06,.04,.02,80R(1)M(1)2M(6)E(1)R(2)M(1)2M(7)E(2THE PROGRAM TYPES"::"'WANT RESULTS GRAPHED?'."9101BR0NJ117[J7470fZ(J)0sG(J)130~H(J)0JI0P874Y1974J110&S(J).3863770A(J):E(J)S(J)A(J)DJNJ115XM(J)":3"DIFFERENT AREAS. EACH FACTOR AFFECTS THE"W"TOTAL AMOUNT OF ENERGY USED."b101:"THE PROGRAM WILL ALLOW YOU TO CONTINUE"::"MAKING PROJECTIONS UNTIL THE YEAR 1990. "0"TO STOP THE PROGRAM BEFORE THAT TIME,"::"TYPE 'END' THEN THE LEVEL OF POLLUTION":\ r" > INCREASE THE ECONOMIC CONDITION OF"::" THE NATION" |:" > INCREASE THE GENERAL SATISFACTION OF":" THE PEOPLE" 101:"YOU CAN CONTROL THE RATE AT WHICH ENERGY":"IS USED BY CHANGING FACTORS IN TENYOU CAN TRY TO SOLVE THE ENERGY "| @"PROBLEM BY CHANGING THE RATE AT WHICH"::"ENERGY IS USED. YOUR GOAL IS TO KEEP THE" J"DEMAND FOR ENERGY WITHIN THE AVAILABLE"::"SUPPLY." T101 ^:"AT THE SAME TIME YOU SHOULD TRY TO:": h" > REDUCEEE N N N EEEE RRRRR G Y Y"T "E N N N E R R G GGG Y" "E N NN E R R G G Y" "EEEEE N N EEEEE R R GGGGG Y" 95 101 ! 6"ENERGY IS A SIMULATION OF THE ENERGY"::"CRISIS. "N"ė:430K z(A$,1,1)"Y"ĺ:"YES OR NO, PLEASE.":(37)2:868:102V :270` ::f "EEEEE N N EEEEE RRRRR GGGGG Y Y"; "E NN N E R R G G Y Y"; "E N N N E R R G Y Y"& "EEGY ::255::ZM24 ]140C _A(35),M(17),G(17),H(17),Z(17)L d119_ eG1400:G:1 f24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0 g(16384)128103 h16368,0 i: w20:"INSTRUCTIONS";:A$ x(A$,1,1)'2 COPYRIGHT MECC 1979 ENERGY 9/7/79 FP AUTHOR: JOHN R. LYNCH,SR., DAN KLASSEN, DICK LYNCH, NORTHWEST REGIONAL EDUCATIONAL LABORATORY ASSOCIATED PROGRAMS AND FILES: NONE  DOCUMENTATION AVAILABLE THROUGH MECC UNDER NAME: ENER            E"::"BY ALLOCATION.":12000TH "10)PRODUCE CARS WITH 40% BETTER MILEAGE.":12000p "11)ENCOURAGE BETTER INSULATION IN HOMES.":12000 "12)ACCELERATE THE BUILDING OF NUCLEAR"::"POWER PLANTS.":12000N1112$D9(N1)0ī4470`D9(N1)кP "AND GAS AND DEREGULATING THE PRICE OF"::"DOMESTIC OIL AND GAS.":12000 "7)INCREASE PRICE OF GASOLINE BY DIRECT"::"EXCISE TAX AT THE PUMP.":12000 "8)REDUCE SUPPLY OF GASOLINE"::"BY RATIONING.":12000 "9)REDUCE SUPPLY OF GASOLINERVES.":12000f "4)PRODUCE SYNTHETIC OIL AND GAS FROM"::"COAL, SYNTHETIC OIL FROM SHALE.":12000X "5)CONVERT UTILITIES FROM OIL AND"::"GAS TO COAL.":12000 "6)INCREASE PRICE OF OIL AND NATURAL GAS"::"BY TAXING IMPORTED AND DOMESTIC OIL": J ( I< 05400!P 01200'd 2x 430009| 8?  "1)NEW OIL WELLS ON THE OUTER"::"CONTINENTAL SHELF.":12000 "2)WELLS ON THE NAVAL RESERVE AT"::"ELK HILLS, CALIFORNIA.":12000 "3)NEW OIL WELLS ON THE ALASKAN"::"NAVAL REST9T9T9.05 I158$ R(I)((R(I)W)P(I))T9?8 IIL WT9e` N116:S(N1)R(N1):N1}t N116:C(N1)0:N1 I15 J15 B(I,J)B(I,J)E(I,J) B(I,J)002540 B(I,J)0 A(I,J)B(I,J)R(I) C(J)C(J)A(I,J) :100000 "DOMESTIC NONRENEWABLE ENERGY"64^H18:"OIL";:26:"GAS";:35:"COAL"q\"CONSUMPTION"wfp" BTU X 10^15";06260 CALCULATE NEXT YEAR"S VALUESDD1D198608080T9WN116:R(N1)S(N1):N1T34:"NUCLEAR"h)|"INDUSTRY";2I1=04580O"ELEC UTIL";XI2c04580v"TRANSPORT.";I3045800"RES./COM""L.";DI4X04580l"NONENERGY";I504580"SOURCE":" TOTALS";05100::"WORKING":021801P:17:"* ";D;" *"7dax" TOTAL U.S. ENERGY CONSUMPTION"jH1p" USER";:17:"SOURCES-CONSUMPTION" END OF LINE 170 IS TAB(54);13:"OIL";18:"GAS";,23:"COAL";@28:"HYDRO";)C(J)C(J)A(I,J)J%IAN116:S(N1)R(N1):N1LI15W$J15o8B(I,J)A(I,J)R(I)vLJ`T9T9R(I)tIWT9D1975Z53D198501360Z52D19751360Z52D19851360Z5113608:16(N1,N2)A(N1,N2) N2 N17 N115:P(N1):N1E O1,G1,C1] N1111:O(N1):N1u 4N1111:G(N1):N1 HN115:N215:E(N1,N2):N2:N1 \N114:N213:H(N1,N2):N2:N1 pH1,H2,H3,H4,H5 I15 J15R(I)R(I)A(I,JS 1975 TO 1985 ?";:868* 040000:Z5ZN] lZ51Z53Ģ22:"ENTER 1,2, 0R 3 PLEASE.":550c vs Z5(Z54) N115:N215:A(N1,N2):N2:N1 M9A(3,1) M8A(1,1)A(4,1)A(2,1) M7A(1,3)A(4,3)A(2,3) N115 N215 VS AIR POLLUTION BASE6 A(5,5),P(5),R(6),C(6),B(5,5)P E(5,5),V(5,5),H(4,3)Z S(6)k O(11),G(11) A$"0123456789" T90 8 "DO YOU WANT INFORMATION DISPLAYED FOR" 10:"1 = 1985 ONLY, 2 = 1975-1985, OR" &12:"3 = ALL YEARYES OR NO PLEASE.";:215# ,07560` @ A HOLDS SOURCE X USER MATRIX, P HOLDS YEARLY CHANGE IN T PROPORTION USER CONSUMPTION, R HOLDS ROW TOTALS, C HOLDS h COLUMN TOTALS, E HOLD STANDARD, W YEARLY CHANGES, V HOLDS | BEGINNING A MATRIX, H HOLD0:S60:S70:S80:S90:N0+ B90:ZM237 D9(12)] W1,W2,W3,M1,M2,B1,B2,B3,B4,B5,B6l ::255: 8:15:"F U T U R E" 1:20 "DO YOU NEED INSTRUCTIONS";:868 B$ A$(1)(B$,1) A$(1)"N"ė:2940 A$(1)"Y"Ģ24:"_) COPYRIGHT MECC 19798 FUTURE 6/29/79 FPq AUTHOR: NORTHWEST REGIONAL EDUCATIONAL LABORATORY( ASSOCIATED PROGRAMS AND FILES: NONE2 DOCUMENTATION AVAILABLE THROUGH MECC UNDER NAME: FUTUREO50:O60:O70:O80:G50 S5               3%,C4%,C5%,C6%,CD%,CT%,CZ%,C24,C01,C5T,CF%,UP4:"STANDARD RUN";:868:A$:f(A$,1)"Y"1450(A$,1)"N"Ģ6:"YES OR NO, PLEASE.":1295#1:"WHAT IS THE END YEAR?";:868:40000:UZN -(UCT%)UCT%ĺ:868:"EVEN MULTIPLE OF 20, P2, 0,1,2,3,4,5,6,10,20,250,24E11,.01,.5,158,2100U:8:13)">>> LIMITS <<<":11z11);"WORLD GROWTH MODEL":50::G%1:Z15:T(Z)200::1255:1265D,F,C,V,E,J,P,K,T(6),TZ15:S(K,Z),Z(Z)::IM(0):G1A(0):,C0%,C1%,C2%,C" CALORIES/PERSON/DAY."::"AVERAGE INCOME: $";(S(K,3)8E4S(K,5).5)100;"/PERSON/YEAR.":~"THE DEATH RATE IS: ";(D1E3.5);"/ 1000"::50:T2ė:1470430002 .012,0,24E11,.04,.029,.012,4.22,1,200,-2, 1,78,1,156,1,15.6,1,7.8,1,5,5)P)::A%C2%1030+GK:K(T201.96)3[50\:4:"THE WORLD IN THE YEAR "T1980":"::"THE POPULATION IS "R(S(K,5)P)" BILLION.":eS(K,4)10ĺ"POLLUTION ROSE TO "R(S(K,4))" TIMES ITS 1978 LEVEL.":\o"FOOD SUPPLY IS "(S(K,1)2E3.5)Y%(G%)Y::,TTC1%:TU1979570NA%C2%Ģ22:1:958:50::gTT1:::A%11116v A%21115$1485)K1TCT%C1%:196020K;37)(S(K,1)2E3.5);13);R(S(K,2))100;19);R(S(K,3)1.6);25);R(S(K,4))100;33);R(S(K*MH14C2%T:Z15:G%Z:850:Z:1030RL(S(K,G%)Z(G%)C5T):YCF%L:LCF%YC0%:23:C5%:"OFF THE GRAPH IN ";T1980;W7G%(G%2):G%C3%HHC1%fG%C2%H11ēH%(G%),Y%(G%)H,Y:H%(G%)H:Y%(G%)Y:kH,YHC1%,Y:H11ı pH%(G%)H:2%CF%39:H11261C4%:H,Y:H,Ye%21:2)1980;8);2000;15);20;20);40;26);60;32);80;36);2100&"POPULATION-GREEN"20)"POLLUTION-PURPLE":"IND. OUTPUT-WHITE"20)"NAT. RES.-ORANGE":15)"FOOD-BLUE";:1*C3%:YCF%:HCT%26040:H,Y:H,YC2%:$S(K,C1%)C2%:S(K,C5%)C5T1510;S(K,C5%)C5T1510U(TC2%)TC2%1030n(TCT%)TCT%750{K7735KKC1%:ZC1%C5%:S(K,Z)S(KC1%,Z):A%C2%795T1980;6);:1075A%C2%1030HC1%845! ::C1%:YCGS(K,C3%):GGX(C6%):WS(K,C4%)A(C0%):S(K,C4%)V(S(K,C4%)SW)NY(C4%)S(K,C3%)ICZ%:S(K,C2%)W(S(K,C2%)N):FFC01:VVX(C5%):CC(C1%M(C0%)V):S(K,C1%)V(Y(C3%)B(C0%)C(S(K,C4%))D(C0%)(C1%FD(C0%))Z(C1%))S(K,C1%)C2%695EE(C0%)F(C0%)H(C0%)):DV(JI(C0%)J(S(K,C4%))K(C0%)L(S(K,C5%))):I(C0%)CD%620 ]DV(JI(C0%)J(S(K,C4%))K(C0%)L(S(K,C5%))) bI(C0%)CD%620 gDV(DCD%I(C0%)) lDC1%630 qDC1%CvS(K,C5%)V(S(K,C5%)(BDC1%)):SW(Z)Z(1(Z))3 X(Z)1R(Z)(1((TT(Z))))T Y(Z)1R(Z)(1(TT(Z)))q Z(Z).95(Z)10:1230 :S(K,C3%)V(CM(C0%)S(K,C5%)Z(C3%)C24):S(K,C3%)CT%585 DS(K,C3%)CT% IMS(K,C3%)S(K,C5%)I:EEX(C1%):JJX(C2%)] XBW(H(Z)(S(K,4)60)( I(Z).3.7MJ J(Z)((Z10)1)Z101.067d K(Z).3S(K,1)7.7 L(Z).902.109Z.279Z2.097Z3.012Z4 M(Z)S(K,2) R(Z)(1E3Z.5)1E3 V(Z)Z((Z.01)1).01((Z.01)1)(Z.01) ),Z(5),T(6),R(6),S(7,5),H%(5),Y%(5)= A(Z)S(K,4)21801f B(Z)(((1S(K,5))2)2.5)S(K,5) C(Z)1.02(3930Z1950Z246Z3.318Z4)1E6 D(Z)((F2)(1(S(K,3))))2(S(K,3)) E(Z)(1M)2.5 F(Z)1.05S(K,5)20 G71999::1V 424:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0l 6(16384)12854z 816368,0 :: k7)(S(K,1)2E3.5);13);R(S(K,2))100;19);R(S(K,3)1.6);25);R(S(K,4))100;33);R(S(K,5)P):A%C2%1030# }L(11/ COPYRIGHT MECC 1979 LIMITS 7/18/79 FPe AUTHOR: D.LOGAN, D.KLASSEN, D.JAMES, M.WEISNER ASSOCIATED PROGRAMS AND FILES: NONE DOCUMENTATION AVAILABLE THROUGH DEC UNDER NAME: LIMITS 22015:20481(::255::ZM24:125 2       ox<@}~??|_Oox?g}xG?go?~o@|w[w{m?p>{m?_}vw?ppx?X_~zoo>{k/?{~w{}>{}>}~?~>{o7owo{~_~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqo88`}~|}A8@?~~gox?O}x~?|p{{@|~?~~1wvwg?o@q}w[w{m?|C>{m?_}~w?@~`?@_O~zog>{K/{~`>8@??~>{o7_ow[o{~?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnO0?~}~w{}>{}>}~?_qwlw`\o>~`ox?a@}xx?8o{;?o{~_}~.wvsw?o@G}w[owwn?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o{~`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{onl_ |~{}>{}>~?_?|k{o;_ow[o>>_ox? }xc?X_{{?ww~_>wv{w?o@}v[ow/o?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o                *"WHAT DO YOU WANT TO CHANGE":V/" 1)FERTILITY"::" 2)BIRTH DISTRIBUTION":1" 3)SEX RATIO"::" 4)MORTALITY"::" 5)POPULATION"415:"ENTER 1, 2, 3, 4, OR 5?";:868940000:QZN>((Q))Q820CQ1Q5820GHF11790-7:"TYPE 0 TO END."T5:"YEAR FOR NEXT REPORT?";:868e40000:R9ZNuR9043000Y2Y15R9790 10:"YEAR MUST BE GREATER THAN ";Y2Y15 765 YEAR COUNTERY1Y11B1B2 390%:3!N51;R3750E13:(M(1,N)1E5)10;:24:(M(2,N)1E5)10;k34:((M(1,N)M(2,N))1000T)10t7558:".";:(8160(M(1,N)M(2,N))T):"*"NR2ĺ:"POP OF MALES AND FEMALES IS IN MILLIONS"PR2İ3000PR2İ51008664PR2:20200.16:"YEAR ";Y2Y15:<R3690Y:12:"PCT. TOTAL POP."8:"0.......5......10......15.....20"695" AGES";:12:"FEMALES";:24:"MALES";:31:"PCT. TOTAL"N116N16ĺ"75+";:725(N1)5;"-";" MILLION"655 (T.5)=15:13:"FERTILITY ";B2G3000PF0eR2TI$"TABLE"zR3TI$"GRAPH"T(R1)07603:"DO YOU WANT THE ";TI$;" PRINTED ON"::"THE PRINTER";:868:PR$:(PR$,1)"N"ė:669(PR$,1)"Y"NM(1,15N)M(3,15N)(M(1,14N)I9)CSTTM(2,15N)M(1,15N)JXNa]M(2,1)MQM(4,1)|bM(1,1)(1M)QM(3,1)gTTM(1,1)M(2,1)lY2Y154R9785q5:16:"YEAR ";Y2Y15v10:11:"POP = ";{T1E6650 (T1E5.5)10;I926673M(2,16)M(4,16)(M(2,16)M(2,15)I9)]M(1,16)M(3,16)(M(1,16)M(2,15)I9)tTM(2,16)M(1,16)!N013&N1565+I9266705855N7580:I935100?585DI9116200IM(2,15N)M(4,15N)(M(2,14N)I9)&(R)405F1'R514104R4455=805F395TY10625aZ1495oF21490Y3Y1480J0B2B2J495F20B(B2B1)2Q0N310QQBM(1,N)B(N)NQQ174845  350r1120wN1161|TTM(1,N)M(2,N)8NEF1455z:3:"REPORT:"::" 1)SHORT"::" 2)LONG":" 3)GRAPH"::" 4)CHANGE ASSUMPTIONS"::" 5)END"15:"ENTER 1, 2, 3, 4, OR 5?";:86840000:RZN R1R5R(Q$,1)"N"290 6985 ;R @4:"DO YOU ASSUME STANDARD MORTALITY";:868Z EQ$o J(Q$,1)"Y"345 O(Q$,1)"N"320 T1085 Y ^4:"DO YOU ASSUME THE STANDARD"::"POPULATION";:868 cQ$ h(Q$,1)"Y"375m(Q$,1)"N""Y"(Q$,1)"N"230 880% , 4i "DO YOU ASSUME STANDARD BIRTH"::"DISTRIBUTION";:868q Q$ (Q$,1)"Y"285 (Q$,1)"N"255 1010  "4:"DO YOU ASSUME STANDARD SEX RATIO";:868 'Q$ ,(Q$,1)"Y"315 15 YEAR INTERVAL"::" 2)SELECTED YEARS"U 8:"ENTER 1 OR 2 ";:868:40000:F1ZNo (F11)(F12)0200w 11 "YEAR AT START OF PROJECTION?";:868:40000:Y2ZN 4 "DO YOU ASSUME STANDARD FERTILITY";:868 Q$ (Q$,1)"CHANGES ON THE GROWTH OF THE POPULATION."4 3000G B(10),M(4,20)^ Y1,F2,J,T,F,I9,R9r 0,0,0,0,0,0,0z B2 N310 B(N) N M N14 N1116 M(N,N1) N1 N) :"DO YOU WANT REPORTS:"::" 1)EVERY S P O P" {:@ |"THIS PROGRAM SIMULATES POPULATION GROWTH"o }"IN THE U.S. BASED ON ASSUMPTIONS MADE": ~"ABOUT DIFFERENT POPULATION VARIABLES.": "THE USER IS ALLOWED TO ALTER THESE": "VARIABLES TO DETERMINE THE IMPACT OF THE"* # COPYRIGHT MECC, 19798 USPOP 8/23/79 FPY DEVELOPED BY J. FRIEDLAND DOCUMENTATION AVAILABLE THROUGH DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTSdD$(13)(4):D$"NOMONC,I,O"v255:::wZM24 x2:16:"U                  N (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030E :R$"Y"ĬY*(1023)123Ām4D$;"RUN HELLO"NA(2,2)A(2,2)2(N3)32)A(2,2)2(N3)(ZN$)(((ZN$)))400037B(ZN$)0ZN$"0"40006rCZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"512:868:"AGAI1:"------- 0--- 0 --- 0--- 0--- 0":23:50:570RX1ĺ"BIRTH RATE";jX0ĺ"DEATH RATE";|X1ĺ"FOOD";X2ĺ"NATURAL RESOURCE USAGE";X3ĺ"INDUSTRIAL OUTPUT";X4ĺ"POLLUTION";@CH(36):CV(37)A"";ZN$: NAT. IND. POLUT. POP.";q"SCALE";15);"RES. OUTPUT":" IN":"------- 150--- 75 --- 750---1500--- 225""PERCENT":"OF 1978":"VALUES": "------- 100--- 50 --- 500---1000--- 150"16:"------- 50--- 25 --- 250--- 500--- 75"9270P RE6ė:"SORRY, I CAN NOT FIND THAT FILE... TRY AGAIN.":10000:70Y 105l 'G71999::1 '24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0 '(16384)12810005 '16368,0 '24:1:868:1:1:VE THE WRITE-PROTECT STICKER FROM THE EDGE OF THE DISKETTE.":10000:105 RE8ė:"INSERT THE BUSINESS DISKETTE, AND CLOSE THE DISK DRIVE DOOR...":10000:105 RE10RE13ė:"YOU MAY NOT DELETE THAT FILE... ENTER ANOTHER.";:10000:DONE' WHEN DONE.)";:1:1S P23:868:"WHAT IS THE FILE'S NAME? ";NN$:NN$""80s ZA((NN$,1)):A65A9080 dNN$"DONE"ĉ::62 i34,21: n200 xD$"DELETE "NN$ }216,0 70 70 RE(222):216,0P RE4ė:"PLEASE REMOEATED WITH THE"::"ELECT3 AND POLICY PROGRAMS." 220:868:"DO YOU WANT TO DO THIS? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"Ģ23:"('YES' OR 'NO' PLEASE.)":50 <:YN$"Y"70 >(1023)123ĺD$"RUN HELLO" A F::D$"CATALOG" K24:"(TYPE ' PROGRAM: CLEANUP6 VERSION: 1.0 (MRF)S LAST UPDATE: 6/26/80Z r (C) MECC, 1979D$(13)(4)D$"NOMONC,I,O"::2:13:"C L E A N U P"0 (10:"THIS PROGRAM ALLOWS YOU TO DELETE"::"OLD FILES THAT WERE CR    ANGE #";N;" TO WHAT?";:868:40000:VZN:958< N03725s N03360,03360,03060,03360,03360,03160,03240,03300 V103100 V403360 :"GENERAL UPKEEP OF THE CITY IS ON A SCALE":"OF 1 TO 4 ONLY."0 :"ENTER A VALUE WITHIN THIS RANGE.QUESTION. WHEN YOU HAVE NO":"MORE CHANGES TO MAKE, TYPE IN 0 FOR THE FIRST QUESTION."^ 10 17:"WHICH ITEM? (0 TO END CHANGES)";:868:40000:NZN:958:N03725 N0N8N(N)ĺ:"PLEASE ENTER AN ITEM NUMBER 1-8 OR A 0.":2820. 17:"CHO BE CHANGED, AND THE VALUE TO":"WHICH IT SHOULD BE CHANGED.":10 "FOR EXAMPLE, IF YOU WANT TO CHANGE THE":"NUMBER OF POLICE IN YOUR PRECINCT TO A":"TOTAL OF 240, TYPE 5 IN RESPONSE TO THE"V "FIRST QUESTION AND 240 IN RESPONSE TO":"THE SECOND 1,1)"Y"Ģ21:"YES OR NO, PLEASE.":2440/ V( LL18:LM15:Q(LL,LM)0:LM:LL`< X90zP LL15:P(1,LL)0:LLd (A$,1,1)"N"3725 A9902820B "TO MAKE CHANGES, YOU WILL HAVE TO ":"PROVIDE TWO NUMBERS - THE NUMBER OF THE":"ITEM T05100 I $ 34,161L A9902440N` 17:"CHANGE CONDITIONS"Yt 02460 17:"DO YOU WANT TO CHANGE THE VALUE OF ANY"::"OF THE CONDITIONS ('END' TO QUIT)"; 868:A$ (A$,1,1)"E"02560 43000) (A$,1,1)"N"(A$,- UNEMPLOYMENT RATE"; 02240;"3 - GENERAL UPKEEP";F02240] "4 - POPULATION";h 022404"5 - NUMBER OF POLICE";H02240\"6 - TRAINING LEVEL";p02240"7 - PRE-TRIAL BAIL";02240"8 - SENTENCING";W22JY(C220.5)10!J6,05780S PRINTING CURRENT INFO ROUTINE ]W91eD:XLL18:LM12:T(LL,LM)0:LM:LLlI18I01940,01980,02020,02060,02100,02140,02180,02220"1 - PER CAPITA INCOME";02240"2 tC10:C20:I0("VIOLENT CRIMES";2W22=J15NY10C(1,J)Y05780kC1C1C(1,J)rJY(C120.5)10(J6<5780:d"NON-VIOLENT CRIMES";xW22J15Y10C(2,J)05780C2C2C(2,J);12);(10C(1,YA));28);(10C(2,YA)):YAFF0:FG0:GG15:FFFFC(1,GG):FGFGC(2,GG):GG::"CITY";12);(FF20.5)10;28);(FG20.5)10:10LL15:A(LL)0:LLPP0PPPP1:PPP:A(1)PP"CRIME RATE - END OF YEAR ";V2`05360R NO, PLEASE.":(37)4:660& E00, = W9100900K 4PW1:JJ1\ HA(1)JJ:PJJ \"INITIAL CRIME RATE (PER 100,000 PEOPLE)" p01120 "CRIME RATE - END OF YEAR ";V2*:" VIOLENT CRIMES NON-VIOLENT CRIMES":YA15::"P. ";YAS. TO STOP"::"THE PROGRAM, ENTER THE WORD 'END' IN ":v X"ANSWER TO THE QUESTION, 'CHANGE"::"CONDITIONS?'.":10~ : "DO YOU WISH TO HAVE UNEXPECTED EVENTS IN":"THIS RUN";:868 A$ (A$,1,1)"N"00740 (A$,1,1)"Y"ĺ:"YES O0 (A$,1,1)"N"640R (A$,1,1)"Y"ĺ:"YES OR NO, PLEASE.":(37)2:420\ :: 0"THIS PROGRAM SIMULATES CRIME IN A"::"TYPICAL CITY WITH FIVE PRECINCTS. YOU":8 D"MAY CHANGE CONDITIONS IN THE PRECINCTS"::"TO TRY TO REDUCE CRIME RATEM15:L(LL,LM)0:M(LL,LM)0:LM:LLI hLL12:LM15:C(LL,LM):LM:LLo |LL18:LM15:S(LL,LM):LM:LL LL18:LM16:R(LL,LM):LM:LL 15);"C R I M E X":8 "DO YOU WANT INSTRUCTIONS"; 868:A$ A$"99"00500 A99:64CONTINUE.";:16368,0+ (16384)128149 16368,0A :e A(B).01((((1).05)11)6)} ::255::ZM24:4 A1:E01:W91:V20 C(2,5),P(1,5),Q(8,5) R(8,6),S(8,5),T(8,2) M(4,5),L(4,5) ,B$(30),A(5),B(5)# @LL14:L( COPYRIGHT MECC, 19798 CRIMEX 8/23/79 FPm AUTHOR:J.R. LYNCH, SR. NORTHWEST REGIONAL LAB DOCUMENTATION AVAILABLE THROUGH MECC UNDER "URBAN CRIME UNIT"180 G71999::1 24:" PRESS '";::"SPACE BAR";::"' TO                         HE ELECT3 AND POLICY PROGRAMS.DMULATES THE IMPACT OF SPECIAL,INTEREST GROUPS ON POLICY INFORMATION.," "Y \USPOP,USPOP fUSPOP PROJECTS U.S. POPULATION BASED ON,USER-DETERMINED PARAMETERS.," " pCLEANUP,CLEANUP zCLEANUP ALLOWS YOU TO DELETE OLD,FILES THAT WERE CREATED WITH,T " FUTURE,FUTURE *FUTURE IS A SIMULATION WHICH SHOWS THE,POSSIBLE EFFECTS OF VARIOUS DECISIONS ON,"ENERGY SUPLIES, ETC." 4LIMITS,LIMITS >LIMITS IS A SIMULATION BASED ON THE,"BOOK, 'LIMITS TO GROWTH'."," " HPOLICY,POLICYH RPOLICY SITES PRESIDENTIAL ELECTIONS,OF THE 20TH CENTURY.," "F ELECT3,ELECT3 ELECT3 SIMULATES PRESIDENTIAL ELECTIONS,BASED ON FACTORS ENTERED BY THE USER.," " ENERGY,ENERGY ENERGY IS A SIMULATION IN WHICH THE,USER MAKES ENERGY RELATED DECISIONS.,"& "SOCIAL STUDIES - VOLUME 1",10CRIMEX,CRIMEX,CRIMEX SIMULATES USING STRATEGY TO,CONTROL CRIME IN A LARGE CITY.," " ELECT1,ELECT1ELECT1 SIMULATES PRESIDENTIAL ELECTIONS,OF THE 19TH CENTURY.," " ELECT2,ELECT23 ELECT2 SIMULA    NTINUE";0(PZC(16384):ZC141ZC16020520[2P16368,0:1:868:21::ZV1:ZH1: RAMETERS.," ""pCLEANUP,CLEANUPzCLEANUP ALLOWS YOU TO DELETE OLD,FILES THAT WERE CREATED WITH,THE ELECT3 AND POLICY PROGRAMS.P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZP24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO COLIMITS IS A SIMULATION BASED ON THE,"BOOK, 'LIMITS TO GROWTH'."," " XHPOLICY,POLICYRPOLICY SIMULATES THE IMPACT OF SPECIAL,INTEREST GROUPS ON POLICY INFORMATION.," "\USPOP,USPOP fUSPOP PROJECTS U.S. POPULATION BASED ON,USER-DETERMINED PA," " ENERGY,ENERGYiENERGY IS A SIMULATION IN WHICH THE,USER MAKES ENERGY RELATED DECISIONS.," "| FUTURE,FUTURE*FUTURE IS A SIMULATION WHICH SHOWS THE,POSSIBLE EFFECTS OF VARIOUS DECISIONS ON,"ENERGY SUPLIES, ETC."4LIMITS,LIMITSE>ELECT1 SIMULATES PRESIDENTIAL ELECTIONS,OF THE 19TH CENTURY.," " TELECT2,ELECT2ELECT2 SIMULATES PRESIDENTIAL ELECTIONS,OF THE 20TH CENTURY.," "ELECT3,ELECT3ELECT3 SIMULATES PRESIDENTIAL ELECTIONS,BASED ON FACTORS ENTERED BY THE USER.1:(37)18İ20500:;9C24:N$(T,C)""N$(T,C)" "835K>N$(T,C):C[C:T:20500hH::200 "SOCIAL STUDIES - VOLUME 1",10CRIMEX,CRIMEX,CRIMEX SIMULATES USING STRATEGY TO,CONTROL CRIME IN A LARGE CITY.," " ELECT1,ELECT1ADISKETTE.":20500::720* vVX$"N"6107 ::255= V A(999)(1000)256l B(A)(A1)256 CS(B1)16:SLOT # CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS *:34,1: /14:"DESCRIPTIONS":34,4 24T1N"ZN0:? ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500g ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868: X: b10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1) lVX$"Y"ė:10:9:"INSERT THE NEW 470@ 22:1:"PLEASE ENTER A NUMBER FROM 1 TO "N".":16:280M QN600s ::10:"GETTING THE PROGRAM..." 230,32:62450 D$;"RUN ";N$(Q,1) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"DT:(1023)123280@ J1(16384)128:J10JJ1:J300275X 16368,0:1023,123 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868 16303,0 "490 ,ZN$"D"800 QZN Q0QN1$(N,4)5 xT1N1:C04:N$(T,C):::N$(N,0)"END"L 1:20(T$)2:T$\ VV4(N17) 2:11:"AVAILABLE PROGRAMS":VV T1N:2TN1Ė20 T10ĺ" "; T" "N$(T,0) T((N3)4)T((N3)4)((N1)2)ĺ T((N1)2)ĢVV \ HELLOVERSION B-3.09LAST UPDATE: 6/17/81?S(C) MECC 1980Y :d 22016vD$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,02D$"NOMON CIO"dZM24 n:T$,N:NN1:N       Ⱥ٥ǥٺΠԠȬ٠ϠȠñٺƠȠΠΠȥǥȺ٥ǥٺΠԠԠԠԠñƠԠՠΠƠòΠ  ̠ ҠԠԠӨˬǥڨǥõԩ٠ƥ̺Ơ̠ƥΠ٠ð  õԠƠŠȠΠԠҽǥǥƠǥóΠȠȠñƠǥòĠȠΠԠȥǥ٥ǥϠȬٺȥǥĮԭިԮӮŢԠ¨ĭŢ ҽó٠ƥҠȠԥϠРԠȬٺԠϠȬ٠òԠȠòԺҠڠϠǥں ԠںϠ̥Ҡ٠òϠƥРҠȠϠРôԠȬٺԠȬٍ Ԡ¨¨¨¨¨¨¨Ԡέ΢¨έŢԠԠԥΠƠˠΠˠˠñҠڠñϠõӨˬکӨˠñکԠƠòΠԠԠ¨ϠƠòΠƠȠñΠŠҠҽñΠèӨˬôΠĨðñƠΠĨðΠڨñƠӨˬñòΠӨˬñòƠӨˬõõԠΠƠӨˬõõԠΠƠԠԠòԠòΠƠԠԠԥǠǠΠبöנӨˬôΠðӨˬôΠ֨ӨˬôӠשΠΠ٨ôӨˬóɠڥӨˬòΠרӨˬòΩƠƠð֠֠ΠبõààñΠͨð֩ӨˬñΠ֨Π٨óΠ¨ðΠĠΠ֨ʠΠɨðΠʨӨˬôΠ˨ðΠ̨ӨˬõƠΠɨðĥΠĠΠ֨ĠĥΠɨðƠĠñΠĠñӨˬõΠ֨Өˬõ ĠñӠǠӨˬóԥΠӨˬóԥ͠ӨˬóӨˬõɺŠŠΠبñʠʠΠبò ΠרŠΠŨðΠƨðΠȨðĠΠ֨ʠΠɨðΠʨӨˬôΠ˨ðΠ̨ӨˬõƠΠɨðĥԠکƠΠبکҨکӠΠԠԨکƠΠ٨کҨکΠΠԠԨکƠΠڨکĠکϠӨˬóΠ֨àΠͨðӨˬõΠڨóòƠӨˬóڠޠڠޠڠޠƠΠͨکӨˬƠΠҨکԠųڠųƠΠ֨کڠΠΠڠΠΠڠΠڠƠΠרکڠΠΠƠΠƨکӨˬƠΠȨکРӨˬƠΠɨک͍ƠΠʨکҠڠڠƠΠ˨کӨˬޠƠΠ̨کڠΠ¨کРӨˬӨˬƠΠèکڠڠޠڠޠڠޠŶƠΠĨکРƠҠӨˬҠӨˬƠΠŨکРͩų¨ΠҨӨˬ¨ΠҨӨˬ¨ΠҨӨˬ¨ΠҨӨˬЩƠòΠ̨͠ڨԨҨӨȥ٥ƠΠکӨˬޠƠNTINUE";0(PZC(16384):ZC141ZC16020520[2P16368,0:1:868:21::ZV1:ZH1:DRAMETERS.," ""pCLEANUP,CLEANUPzCLEANUP ALLOWS YOU TO DELETE OLD,FILES THAT WERE CREATED WITH,THE ELECT3 AND POLICY PROGRAMS.P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZP24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO COԠ΢ԠԠԢԠƠԠӢԠԠ Ԡ ϠӠΠƠŠ̠ǠĠ̠ŮԠ ϠŠԠԠȠĠԮĮԮЮԠިӮԢòΠ ϠŠԠԠҠĠӮĮԠРΠԠԠԠ٠ŠҠԠΠӢԠΠԱ Ԡ¨ǬԬҠ¢̠ԠƠԤǢΠñϠƠԤԢΠòϠƠԤ¢ΠóϠϠƠؠѠԠ؍Š Ԡ¨ȠϠՠԿԠԠ¨ǠȢԠԠ¨ԠŢԠԠ¨ Ȣ ԠŠ̠Š٠Ҡή ˠϠ ˠ Ԡ̠ κԠ̠ƠҠՠñΠԠԠԠŠΠĠջϠԨؠҨϠô̠ñ Ԡ Ԡ̠ ѠκԠ̠ƠѠΠƠӠѠ̠ΠԠԧӠîŠҮ̠ðŠŠԠŠҠԠԠΠŠҠΠȠŠŠ̢ԠԠŠԮ ŠԠŢźԠҢԠҠؠ̠ԠΠŠƠŮϠƠՠҠՠΠԠԠĠҠԠŠΠĠԠϠŠԠԠҠȠƠŠǠӬԠŠƠԤ٢ΠƠԤ΢Π ԠӠҠϬŮϠ ԠԠӠŠĠҿ̠ ՠ΍ƠԠՠԥՠԥΠԠñĠĬƬì֬ŬʬЬˬԨԍҠڠϠĠӨˬکڨکԠɠΠͨǠΠΠĠðñòóôõöĥԥڥòðõԬƥՍ ԠĠ΢̠ԠͶűŠ Ԡ¨Ӡ Ԡ¨ĠȠ̢ ŠԠǥҠڠϠԨکԠ ϠίҮԠԠŠȠŠӺԠĠųԠԠ ƠԠΠŠϠϠűήԠƠӨˬΠԠΠŠϠΠҨӨˬӠӠ̮ԠԠĠ٠ӠԠӨˬųӯίٮԠԠŠźԠӨˬŴӨˬ"