' +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*`$:R$(R$,1):R$"Y"R$"N"43030A& :R$"Y"Ľ:1022,111:10U&*(1023)123Āg&/D$(13)(4){&4D$;"RUN HELLO"Z:& 10:"DO YOU WANT TO TRY"&12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030& :R$"Y"Ĭ'*03%B(ZN$)0ZN$"0"40006Z%CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001%FZM:868:CV1(CV23):ZN(ZN$):%JCV1:36,CH:868:% END OF PROGRAM %:% 10:"DO YOU WANT TO TRY"#&12:868:"AGAIN (YES OR NO) ?";R;C2$"$h)"ISOTOPE CODE NO.: ";C1$1$|)R428920;$)2960F$)43000V$ SPACE BAR$ˆ24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";$̈16384,128:16368,0:1:868:$@CH(36):CV(37)%A"";ZN$:(ZN$)(((ZN$)))400.98W10360#(T1T11*#((I3((T112))4#<(3600F#P(B((T112)L)Q#d(10240W#x(m#(A(((1))9010)y#(A$(A)#(B((1)9010)#(B$(B)#(O$(O7)#(C$A$O$B$#)#)R4110600#,)R4210580#@)4060$T)"ISOTOPE CODE NO.: "CHANGING""&>"&"SOME ITEMS SUCH AS COUNTING INTERVAL OR"D"&"'14:868:"TOTAL EXPERIMENTAL TIME? ";Y$:Y$(Y$,1):Y$"Y"Y$"N"Ģ17:"PLEASE ANSWER YES OR NO.":10000"8'"`'Y$"N"10680"'R411640"'R427900"'10680 #(GB!%!%I3((G))!%3600'!%PGL6!%I3((B))@! &3600J! &CBLT!4&RPC_!H&Q(R)e!\&u!p&R4010680|!z&6!&"DO YOU WANT TO TRY THE PROGRAM AGAIN"!&:"WITH THE SAME ISOTOPES SO THAT YOU CAN"!& "&"GET MORE USEFUL RESULTS BY ZZ0İ35000 T$34,0:! h$9840, |$106806 $T110@ $B120R $E1(L(O1)T)d $E2(L(O2)T)| $G(W2)E1(W2)E2 $T16999500 %9540 %10240 0%9640 D%GB(.99W)9640 X%T1T11 l%GT1(.1W2)(E1E2) %BT112 %9540#"DAY";10);"SMPL";24);"IN MIN";34);"IN C/M"f#"---";10);"-------";24);"-------";34);"------"p(#34,6{<#A$"0"P#D$"10"d#A$;10);W3;24);D$;34);Zx#:T;10);Q;24);T1;34);Z#ZZ8(ZZ8)9220#35000:#ZZ0$T $1!S118740!37801!W3(W2W1(10Z));"8780E$"W2W1O8"8580aL"ZZ0:TUVUm`"ZZZZ1wt"9360"9660"3780"TU9080"R4010520"10);"TOT EXP";24);"CNTING""10);"CNT OF";24);"OF SMPL";34);"BCKGRD"/4) I-131";18);"9) ZN-65"/@:" 5) NA-22";5 ? 3600I NGLQ PN ! AP=N+O NOTE O MUST NOT BE USED BECAUSE IT HAS A NEW MEANING. !I3((B))4!3600H!CBL\!RPCp!Q(R)!I3((W2))!3600!W1W2L!S1S1O7O1P10380dC1$C$%xO7O2010380;C2$C$DR42JV:1660_:3"WHICH ISOTOPE WOULD YOU LIKE?":" 1) C-14";18);"6) P-32":" 2) CA-45";18);"7) S-35":" 3) CO-60";18);"8) PB/BI-210"":" 40000+O1ZN:O11O110O1(O1)7330;O1107660P13:17:868:115:868:"SECOND ISOTOPE (ENTER 1 - 9) ?";:40000:O2ZN:O21O29O2(O2)7370:1660J(1)O1(9(1))1O2(9(1))1(O1O27700< t35000:J22F4:"DO YOU WANT TO WORK WITH TWO ISOTOPES"6:868:"IN ONE SAMPLE (YES OR NO) ?";Y$:Y$(Y$,1):Y$"Y"Y$"N"6630Y$"N"1400M337920:17);"10) UNKNOWN"15:"FIRST ISOTOPE (ENTER 1 - 10) ?";:868:THE TOTAL EXPERIMENTAL COUNT AS"::"BEFORE, BUT THAT COUNT WILL BE TAKEN"^:"EACH TIME."::"THIS MEANS THAT YOU WILL ALWAYS HAVE"::"APPROXIMATELY THE SAME COUNT, BUT":"THE TIME IT TAKES TO GET THAT COUNT"::"WILL GRADUALLY INCREASE."S"7"ARE MORE OBSCURE) AND THERE IS ALSO THE"d:"OPTION OF COUNTING A MIXTURE OF TWO"j{"ISOTOPES."T35000:J166004"THE COUNTING WILL WORK A LITTLE"::"DIFFERENTLY NOW. YOU WILL SPECIFY"J:"RE FAMILIAR WITH"9(:"RADIOACTIVE MATERIALS AND WITH"?<jP"STATISTICS THERE IS A MORE ADVANCED"d:"PORTION OF THIS PROGRAM. THE COUNTING"x"IS HANDLED IN A DIFFERENT WAY (WHICH IS""STATISTICALLY BETTER, BUT THE RESULTRUN A DIFFERENT PROGRAM, OR",6 :"3) END"W613:"PLEASE ENTER 1, 2, OR 3 ";:868h640000:ZEZN}6ZE0ZE4430306:"PLEASE ENTER A NUMBER 1 - 3":430226ZE1Ĭ6ZE3430497:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"123Ā5/D$(13)(4),54D$;"RUN HELLO"5:3:1:0:1000T5*(1023)123Āf5/D$(13)(4)z54D$;"RUN HELLO"(A$,1,1)"N"430505:"PLEASE ANSWER WITH YES OR NO":430056 "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) 010:4000124FZM:868:CV1(CV23):ZN(ZN$):K4JCV1:36,CH:868:c4 END OF PROGRAM k4:4 10:"DO YOU WANT TO TRY"412:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"430304 :R$"Y"đ:3:1:0:10005*(1023)CE BARO3ˆ24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";t3̈16384,128:16368,0:1:868:3@CH(36):CV(37)3A"";ZN$:(ZN$)(((ZN$)))400033B(ZN$)0ZN$"0"40006 4CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40IN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030U2 :R$"Y"đ:3:1:0:1000i2*(1023)123Ā{2/D$(13)(4)24D$;"RUN HELLO"L- 9 INCLUSIVE)"2)(12):13);"END OF NUCSIM"2)24:"PRESS SPACE BAR TO CONTINUE";:Z9$:430003 SPA)(((ZN$)))4000321B(ZN$)0ZN$"0"40006m1CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:400011FZM:868:CV1(CV23):ZN(ZN$):1JCV1:36,CH:868:1 END OF PROGRAM 1:1 10:"DO YOU WANT TO TRY"6212:868:"AGA2:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030b0 :R$"Y"đ:3:1:0:1000v0*(1023)123Ā0/D$(13)(4)04D$;"RUN HELLO":" TO CONTINUE";0̈16384,128:16368,0:1:868:0@CH(36):CV(37)1A"";ZN$:(ZN$"";ZN$:(ZN$)(((ZN$)))40003?/B(ZN$)0ZN$"0"40006z/CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001/FZM:868:CV1(CV23):ZN(ZN$):/JCV1:36,CH:868:/ END OF PROGRAM /:/ 10:"DO YOU WANT TO TRY"C01AM .:). 10:"DO YOU WANT TO TRY"s.12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030. :R$"Y"Ĭ.*(1023)123Ā./D$(13)(4).4D$;"RUN HELLO";"RUN HELLO"16368,0:1:868:.@CH(36):CV(37)"/A16368,0:1:868:*-@CH(36):CV(37)R-A"";ZN$:(ZN$)(((ZN$)))40003o-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:. END OF PROGRAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030G, :R$"Y"Ĭ[,*(1023)123Ām,/D$(13)(4),4D$;"RUN HELLO"$NUE";:Z9$:43000, SPACE BAR,ˆ24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";-̈16384,128:JCV1:36,CH:868:.+ END OF PROGRAM 6+:T+ 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Ā+/D$(13)(4)+4D$;"RUN HELLO""7,12:868:"AG,CH:868:#* END OF PROGRAM +*:I* 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Ā*/D$(13)(4)*4D$;"RUN HELLO"68:CV1(CV23):ZN(ZN$):+" TO CONTINUE";4)̈16384,128:16368,0:1:868:J)@CH(36):CV(37)r)A"";ZN$:(ZN$)(((ZN$)))40003)B(ZN$)0ZN$"0"40006)CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001)FZM:868:CV1(CV23):ZN(ZN$): *JCV1:36( END OF PROGRAM (:=( 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Ā(/D$(13)(4)(4D$;"RUN HELLO"$16368,0:7:"PRESS ";::"SPACE BAR";::(1023)123Ā!'/D$(13)(4)5'4D$;"RUN HELLO"(37)f'A"";ZN$:(ZN$)(((ZN$)))40003'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:E7!1790!"!E7115*!S$2!E7A!X11D(X)I!A$Q!X1j!(C(D(X))100)100;!" PPM OF PESTICIDE IN":!" ";A$:!0X!:A(B)241881!?8000:4!D"I SUGGEST YOU DON'T USE THIS PESTICIDE":"I"AGAIN. THE hX. rD(1)D(2)D(1)D(3)D(2)D(3)1620^ |"RANDOM SAMPLES OF THE FOOD CHAIN SHOW:":i X13o  Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,O,O1,O2,O3,O4,O5,O6,O7,O8,O9 1790  E715 S$ E7 1790  E7110 S$!1566Q11C01568)15702 Q21H"KK((Q11)2)Q2T,K1K1Kp613);"*INSECT REPORT*"v;@K;" PERCENT KILLED. ";100K;" PERCENT LEFT"A" TO PROPOGATE IN THE NEXT SIX MONTHS."J:TX13^D(X)((1)Z51)C(1)0:N0:N10:N30:Z90$X1Y7C(1)C(1)B(X)>XRC(1)4C(1)4[Q10kC.51557u1560~Q11(CC(2))9049MI(CC(2))90((CC(2)))9049MI49K(54A(B)MI)((Q11)2)Q10:Q20A(B)241565A(B)A(B)3%C(5)CT.85C(5)2=C(4)CT4.5C(4)2TC(3)CT40C(3)2kC(2)CT25C(2)2xB(Y)CTX1YQ1Q20Y414851486Q11Y314881490Q21B(X)(B(X).8Q1)(B(X).9Q2)X2C1000ė:2480#M( CALCULATE PERSISTENT PESTICIDE HALF LIFE [2P3P2.71e<P2P3tFP111355~I1360KP2P2CPCCP3UC(C1000)1000Z"TOTAL APPLICATION + CARRY OVER = ";CdnX14xA(X)A(X)1X L7L6L0L8L8L1#L9L8L0-12907L5L3AL7L2KL9L1} "APPLICATION RATE IN LBS. PER ACRE?";:5000040000:CZNC0ĢZC:"COME ON. WHAT ARE YOU TRYING TO DO,":"SUCK THE CHEMICAL OUT OF THE LAND?";:50001:13005000B210751P1021080$3P1128A31085<;1090H=Z5Z51TBY110^G::wL17);"YEAR ";Y2.5M::V`X1BjL1,L2,L3,TtX~T0Y11250T01290L0L01L4L4L3L5L4L0L6L6L2 IC" 4"4) CHLORTHION- AN ORGANOPHOSPHATE":_" NONSELECTIVE, TOXIC."e"WHICH PESTICIDE?";:5000040000:BZN$B1B4ĢZC:"1, 2, 3, OR 4 PLEASE.":50001:1050&50002)TR21070*TR0:2200.B1NSELECTIVE, VERY TOXIC"J"2) HEPTACHLOR- A CHLORINATED HYDRO-":s" CAR. PERSISTENT,":" NONSELECTIVE, VERY TOXIC""3) PARATHION - AN ORGANOPHOSPHATE.":" NONSELECTIVE, VERY TOX ARSENAL";:50000A$*A$(A$,1,1)2:KA$"N"İ50002:1030}A$"Y"ĢZC:"YES OR NO PLEASE.":50001:91050002"1) DDT - A CHLORINATED HYDRO-":" CARBON. PERSISTENT, ":" NO9<:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"H)1023,9P*: "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"h :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022ZE1ĬZE343040002LZN(IN$):, END OF PROGRAM 4:R 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Ā/D$(13)(4)4D$;"RUN HELLO"R NO":43005X HELLO"ZLLO"ZZS OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030XM$l L$:R$"Y"910*(1023)123Ā/D$(13)(4)4D$;"RUN HELLO"ZN HELLO"UN HELLO"LGIN$(IN$,(IN$)1):40002JZ913IN$""4 7)1023,97*:ZH, FROGS, AND WATER BIRDS"X1 "HAWKS, EAGLES, OWLS, AND SNAKES","TURTLES AND EAGLES"1 "PLANTS","SPRUCE WORM","FISH, SONG BIRDS, AND WOOD COCK"1 "HAWKS AND OWLS","EAGLES" 1 "PLANTS","EARTH WORM AND BARK BEETLE" 2 "WOOD COCK, ROBI100 0 35400 Z53110&0! 358050& Z63120?0+ 3630N00 Z73130X05 3730g0: Z83140q0? 37900D Z931500I 39400N Z1031600S 39700X Z1131700] 44000b 20200l "PLANTS","FIRE ANTS AND COTTON RATS"1v "FIS(1)31)3790,4440"DO YOU WANT TO CHANGE PESTICIDES";:50 PEST HAS BUILT AN IMMUNITY":,"N"TO IT."6"Y8000X"b8);"*ENVIRONMENTAL REPORT*"^"gj"lX1Z5p"qy"rX11"vC(X)L52910"C(X)L72770"C(X)L92540"NN1"X"T02030""X11"S1"CS1L13040#THE LOCAL "A0A"SPORTSMEN ARE ARROUSED."6AP"TISSUE HAS RESULTED IN THE CLOSING OF"\>Qy>U"THE FISHING INDUSTRY.">V>Z>d(37)18İ8000>e>f"ROBINS IN SEVERAL COMMUNITIES HAVE BEEN":>n"REDUCED BY 90 PERCENT.">o>x?37)18İ8000==="LAST REMAINING NESTING BIRDS ARE ":X="PRODUCING NO YOUNG."^=d=x=((37)18İ8000~=)=*"MASS DEATHS OF THOUSANDS OF SONG BIRDS":=-"OCCURING THROUGHOUT TREATED AREA."=.=<=F(37)16İ8000=G)>"NEW KIND OF INSECT PEST IS EMERGING.".<4<@<8000:o<"YOU HAVE CREATED A BIOLOGICAL DESERT.":<"FINAL TRANSFER AND LONG TERM EFFECTS "<<"HAVE YET TO BE MEASURED. PROGRAM ":<"TERMINATED EARLY."< 8000:43000 =(S." ;;Z(X)2;.;(37)16İ80004;b;"PUBLIC REPORTS INCREASING NUMBER OF ":;"SICK OR CRIPPLED BIRDS FOUND IN TREATED";;"AREAS.";;;(37)18İ8000;;"DUE TO DESTRUCTION OF NATURAL ENEMIES A":(<:t(37)16İ8000:uI:v"WILDLIFE EXPERTS HAVE DISCOVERED HIGH":s:y"CONCENTRATIONS OF PESTICIDE IN THE"y:z:~"TISSUE OF PREDATORY BIRDS.":::(37)18İ8000::"LARGE NUMBER OF BIRDS SEEN LEAVING":;"TREATED AREAPENDENT ON THE PEST DIRECTLY OR"&94B98"INDIRECTLY FOR FOOD."H9=N9Ba9L(37)168000g9M9Q"LARGE NUMBERS OF PREDATORY BIRDS ARE":9V"DISAPPEARING FROM NESTING AREAS. THOSE"9W9`"REMAINING ARE PRODUCING FEW YOUNG."9e:j008 78 "BECAUSE COMPETITORS AND OTHER NATURAL":c8"ENEMIES HAVE BEEN REDUCED, THERE ARE"i88"FREQUENT AND CONTINIOUS PEST OUTBREAKS."8 8Z(X)58$8.(37)16İ80008/80"STARVATION IS OCCURING AMONG ANIMALS": 93"DEON RATE."7 7 )7 (37)14İ8000/7 ^7 "A PEST FLASHBACK HAS OCCURED. THERE ":7 "ARE NOW ";((1)515);" TIMES MORE INSECTS"7 7 "EMERGING SINCE THE FIRST APPLICATION OF"7 7 "THE PESTICIDE."7 7 8 (37)16İ80IGH " 6 06 "CONCENTRATIONS OF PESTICIDES."66 A6 Z(X)1G6 [6 (37)14İ8000a6 6 "YOUR PEST'S NATURAL ENEMIES ARE ALSO":6 "BEING DESTROYED. YOUR PEST IS"6 6 "RESPONDING BY INCREASING IN NUMBER AND"6 7 "REPRODUCTI((1)101)5M 5R Z(X)2#5\ 75f (37)18İ8000=5g n5k "94 SPECIES OF BIRDS FOUND DEAD OR DYING":5p "IN TREATED AREAS."5u 5z 5 (37)16İ80005 5 "LARGE NUMBERS OF FROGS AND SNAKES ARE":6 "DYING. TISSUE SAMPLES SHOW HIST INDUSTRY IS SUFFERING."!4 '4 ;4* (37)18İ8000A4+ m4, "SONG BIRDS ARE DYING IN INCREASING":}4/ "NUMBERS."40 44 4> (37)18İ80004? 4C "ROBINS ON CAMPUS OF STATE U. HAVE BEEN": 5H "REDUCED FROM ";((1)100270);" TO ";.3 "ACCUMULATING IN THE TISSUE OF NESTING"43 c3 "BIRDS CAUSING LOWER REPRODUCTION RATES."i3 t3 Z(X)2z3 3 (37)16İ80003 3 "FISH ARE ACCUMULATING THE PESTICIDE AND":3 "ARE UNFIT FOR HUMAN CONSUMPTION. THE ":4 "TOURNS, AND OTHER NESTING BIRDS"42 "OWLS AND HAWKS"V2 "PLANTS","FISH AND BEETLE"2 "FISH, SONG BIRDS, FROGS, SNAKES, ORIOLES, VIREOS,MUSKRAT"2 "HAWKS AND OWLS","EAGLES" 2 (37)16İ80002 3 "SUB LETHAL LEVELS OF PESTICIDE ARE ":ox>?|}?~?xp~@|_>?7{ox?s}|qw[ow{o7_}?oo~o@_~{~?g]{m?_}v}?~~~?~PO>zog>{k/{~?|>{o7ow[n}{wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_6):CV(37):&MQâCV1:36,CH:868:GMRù34,ZC1:ZC::34,0:CV2:,0:CV2:QC2:2: ENTER 1, 2, OR 3 ";:868IL40000:ZEZN^LZE0ZE443030L:"PLEASE ENTER A NUMBER 1 - 3":43022LZE1ĬLZE343049L:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"L)1023,9L*: MPCH(310:"DO YOU WANT TO TRY"dK12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030~K :R$"Y"Ľ:QQ1:145K*(1023)123ĀK/D$(13)(4)K4D$;"RUN HELLO"KPCH(36):CV(37):KQâCV1:36,CH:868: LRù34,ZC1:ZC::340::J@CH(36):CV(37)CJA"";ZN$:(ZN$)(((ZN$)))40003`JB(ZN$)0ZN$"0"40006JCZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001JFZM:868:CV1(CV23):ZN(ZN$):JJCV1:36,CH:868:J END OF PROGRAM J:K IL BASE IS ":=I"COLLECTING IN SMALL PONDS. AN INCREASE"CIrI"IN ABNORMAL YOUNG IS EVIDENT IN MUSKRAT"xII"POPULATIONS."IIII@24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";JJ16384,128:16368,H^ HlHv(37)14İ8000%HwKHx"RACCOON, RABBIT AND SQUIRREL":vH{"POPULATIONS COMPARED WITH UNTREATED"|H|H"AREAS ARE SHOWING A RAPID DECLINE IN"HH"NUMBERS."HHH(37)14İ8000HI"THE PESTICIDE IN AN OG&G0(37)18İ8000!G1OG5"YOUNG GREBES HAVE SHOWN CONSIDERABLE":uG:"DIFFICULTY IN LEARNING TO FLY."GDZ(X)2GIGNGX(37)18İ8000GYGZ"THREE KINDS OF SNAKES HAVE COMPLETELY":G]"DISAPPEARED FROM THE TREATED AREA."S OF" F9F"PESTICIDE. EARTHWORMS ARE THE DIET OF"?FNF"ROBINS."TF_FZ(X)1eFyF(37)16İ8000FF"LAST PAIR OF NESTING WATER BIRDS HAS":F"DISAPPEARED. ORIGINAL COLONY":F"CONTAINED OVER 80 NESTING PAIR."G!AND":1E"CONVULSIONS ACCOMPANIED DEATH. ALL"7EeE"ORGANISMS INVOLVED FEED DIRECTLY ON ":zE"PEST SPECIES."EEZ(X)2EE(37)14İ8000EE"TISSUE SAMPLES FROM EARTHWORMS REVEAL":F"SUSPICIOUSLY HIGH CONCENTRATION"MAMMALS DYING FROM DISEASE. TISSUE"+DZD"SAMPLES HAVE REVEALED SUSPICIOUSLY HIGH"`DD"CONCENTRATIONS OF PESTICIDES."DDD(37)12İ8000DD"SMALL BIRDS AND MAMMALS HAVE BEEN FOUND":E"DYING. UNCONTROLLED TREMORS BEHAVIORAL":9C^"CHANGES IN SMALL ANIMALS. THE SMALL"?C_hCh"MAMMALS APPARENTLY ARE UNABLE OR "nCiCl"UNWILLING TO HIDE FROM THEIR PREDATORS"CrZ(X)3CwC|C(37)14İ8000CC"UNUSUALLY HIGH NUMBER OF PREDATORY ":%DLETHAL LEVELS OF PESTICIDE IN SMALL":SB,"ANIMALS ARE CAUSING BEHAVIOR CHANGES "YB-B6"AND HAVE RESULTED IN AN UNUSUAL NUMBER":B7"BEING KILLED BY PREDATORS."B8B@Z(X)4BJBT(37)14İ8000BU CV"PESTICIDE LEVELS ARE CAUSING NAL3SM,Y:3:S5FINAL102SM,Y:S6FINAL102SM,Y["X1FINAL102SM:X2FINAL102SM,6:"VELOCITY: ";(V310.5)10;" ";:25:"VELOCITY: ";(V410.5)10;" "4TIME1306K1DE:@0:S5X1,Y:S6X2,Y:3:S5X1SC,Y:S6X2SD,Y7SM,Y:S4FINAL3SM,Y(K12DE:b0:S3FINAL7SM,Y:S4FINAL3SM,Y:3:S9FINAL4,YPHI0X1FINAL4:X2FINAL4:1580K1DE3:0:S9FINAL4,Y:3:S3FINAL7SM,Y:S4FINAL3SM,YK1DE:50:S3FINAL7SM,Y:S4FIyxA?ooo}={{^o^k|sg~np{p{~`{{aqjwxO8oJV[_{]n]vox?>pp}xOw_ow{O7_}?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g}{wgog?wox?o@?~?x>{m?_9v>}xA?ooo}];?oogy{s~nnun{~n{{nnfw?~oxp67\_{]qcfoxG?G|}xw[ow{o7_}?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[k}{wwoO?w{nsox|?xO>n?_}xA|xA?ooo}@?Wt?~Ox?x|}x`ow[m~{wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qqqwqq`}OCONTINUE";-! 16384,128:16368,0:1:8685! :E! A3000:1730[!@CH(36):CV(37)!A"";ZN$:(ZN$)(((ZN$)))40003!B(ZN$)0ZN$"0"40006!CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001"FZM:868:CV1(CV23):ZN(ZN$OW DEAD**" r3000:1730" |:< }6:15:"*VERY GOOD*" ~10:"YOU HAVE MAINTAINED THE CELL LONG ENOUGH":" TO REACH MATURITY." 3000 1730 :43000 SPACE BAR ! 24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO : 3000"JJ1",01620W6"**CRISIS**";(7);" ADJUST WASTE CONCENTRATION"l7"IMMEDIATELY!!"v;3000@JJ1JTJ300690^::6:6:"YOU DID NOT FUNCTION WELL AS A":_14:"CELL MEMBRANE." h14:8:"**YOUR CELL IS N 01620?"**CRISIS**";(7);" ADJUST SUGAR CONCENTRATION"V"IMMEDIATELY!!":eS001530"YOU ARE BURNING PROTOPLASM ."S0JJ1:300001620"**CRISIS**";(7);" ADJUST POTASSIUM ION""CONCENTRATION IMMEDIATELY!!";(7);" THE ELECTRONEGATIVITY"E"OF THE MEMBRANE HAS BEEN UPSET."m"ADJUST CHLORIDE IONS NOW":JJ1:w30001620"**CRISIS**";(7);" ADJUST WATER CONCENTRATION""IMMEDIATELY!!":3000JJ1H85011490H8500D OF? ";:868 n40000:EZN:-sE09707u958ExEW1430w"YOU DO NOT HAVE THAT MANY TO GET RID OF!":01380WWEW(E8)W21:"ENERGY IS NEEDED TO GET RID OF WASTE."3000SS400970"**CRISIS**""::"DO YOU WANT REMOVED? ";:8683I40000:FZNFJ958:F0970TKFC1362xN:"YOU DON'T HAVE THAT MANY!!"P1350RCCFTSS2UW(F5)WV:970Z00690d17:"HOW MANY WASTE MOLECULES DO YOU":i"WANT TO GET RI6840000:DZN:958+D0970:DN01300`"YOU DO NOT HAVE THAT MANY!!!":k 01250vNNDKKD("ENERGY IS NEEDED FOR ACTIVE TRANSPORT."-30002SS27W(D8)W<00970#F17:"HOW MANY CHLORIDE IONS,"&"POTASSIUM IONS ARE REGULATED"S"BY THE SODIUM PUMP: FOR EVERY SODIUM""ION PUMPED OUT, ONE POTASSIUM ION IS""GAINED ON THE INSIDE OF THE MEMBRANE."30000069017:"HOW MANY SODIUM IONS DO YOU"::"WANT REMOVED?";:8LY":"CARRY 30 SUGAR MOLECULES AT A TIME."5~01110@SSB`"ENERGY IS NEEDED FOR THE""SUGAR-CARRIER MOLECULE.":3000SS3W(B15)W00970:"POTASSIUM IONS ARE REGULATED BY""ACTIVE TRANSPORT. MORE SPECIFICALLYH810001470"S8S3515006.K39K531550FBW1301590XEC1C81462cL00680V17:"HOW MANY SUGAR MOLECULES":"DO YOU WANT BROUGHT IN? ";:868`40000:BZN:e958:B0970jB3101160*t"THE CARRIER-COMPLEX CAN ONIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030L :R$"Y"Ľ:1075`*(1023)123Ār/D$(13)(4)4D$;"RUN HELLO"30 :R$"Y"Ľ:1075*(1023)123Ā/D$(13)(4)4D$;"RUN HELLO")(((ZN$)))400032B(ZN$)0ZN$"0"40006mCZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM : 10:"DO YOU WANT TO TRY"612:868:"AGA(K20)(K4100)(K410)(K41):(100K2.5)100H6:"ENERGY":20000[L$:M$:43000i N16368,0%N24:5:"PRESS 'SPACE BAR' TO CONTINUE";*N(16384)127200104N16368,0:: b200004b43000@CH(36):CV(37)A"";ZN$:(ZN$"MOMENTUM";:17(P10)(P310)(P31):(100P1.5)100;:26(P20)(P410)(P41):(100P2.5)100|K1(M1V1V1M2V2V2)2:K2(M1V3V3M2V4V4)2K3(K1):K4(K2)0:5:"KINETIC";:16(K10)(K3100)(K310)(K31):(100K1.5)100;:25JX1X1SC:X2X2SD9TX1SC(LEFT)X2SDRIGHTĂTIMEDY20000^6:" ":4:8:"BEFORE/AFTER THE COLLISION"h::17:"BEFORE";:27:"AFTER"mP1M1V1M2V2:P2M1V3M2V4pP3(P1):P4(P2)dr:5:SZ!*(1023)123Ā$!/D$(13)(4)8!4D$;"RUN HELLO"UMBER$:F yRGHTLE2āPTR((LE1)2)1RGHT:NUMBER$NUMBER$" ":Q y30988` yPTR(0):x END OF PROGRAM : 10:"DO YOU WANT TO TRY" 12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ľ:5430UMBER$)yRGHTLFT30990WyLFTLE2āPTR((LE1)2)1LFT:NUMBER$" "NUMBER$: yRGHTLE2āPTR(LE2)1RGHT:NUMBER$NUMBER$" ": ySTRING$(STRING$,1,START1)NUMBER$(STRING$,FINAL):30996 yLFTLE2āPTR(LE2)1LFT:NUMBER$" "NSTART130974qxPTRSTART1FINAL(NUMBER$)1:(STRING$,PTR,1)" "STARTPTR1:PTRFINAL(NUMBER$):30972xSTARTPTRxxSTRING$(STRING$,1,START1)NUMBER$(STRING$,FINAL)y30996y CENTERING FORMATyNUMBER$(NUMBER):LE(N30962]xPTRLERGHTLFT1:SIGN(NUMBER0FILL$"0")NUMBER$"-"FILL$(NUMBER$,2):30960wxNUMBER$FILL$NUMBER$}xxLE(RGHT)LERGHTLFTLFTLERGHTxDECIMAL0NUMBER$(NUMBER$,1,LFT)"."(NUMBER$,LFT1) xFINALSTART(NUMBER$)xNUMBER0START1ĭ(STRING$,START1,1)"-"STRING$(STRING$,1,START2)" "(STRING$,START)xNUMBER(NUMBER(10RGHT).5)xNUMBER$(NUMBER):LE(NUMBER$)xLERGHTāPTRLE1RGHT:NUMBER$"0"NUMBER$::LERGHTx(LERGHT)(LERGHTLFT)DECIMAL1LNGTH0x(STRING$,PTR,1)"#"30940LxRGHTRGHT1:PTR:30940xFINALSTARTLFTRGHT(DECIMAL0):CENTER30978xFILL$"0":(STRING$,START,1)"B"FILL$" "xNUMBER0START1ĭ(STRING$,START1,1)"-"LFTLFT1:STARTSTART1:SIGN1aPTR:$xSTARTPTR:PTRSTARTLNGTHhxCHAR$(STRING$,PTR,1):CHAR$"#"(CHAR$"B"PTRSTART)30928xLFTLFT1:PTR:30940xCHAR$"."ĭ(CHAR$"C"(STRING$,PTR1,1)"#")30940xCHAR$"C"CENTER1xDECIMALPTR:PTRLNGTH30940xPTR TO BE PRINTED IN NUMBER, THEN GOSUB 500 AND PRINT STRING$ Dx wxLFT0:RGHTLFT:DECIMALLFT:CENTERLFT:SIGNLFTxLNGTH(STRING$):LNGTH0ıxPTR1LNGTHxCHAR$(STRING$,PTR,2):(CHAR$,1)"#"CHAR$".#"CHAR$"B#"CHAR$"B."30922xCV1(CV23):ZN(ZN$):2CV1:36,CH:868:DD$(13)(4)O43000kx PRINT USING ROUTINEx LAST UPDATE: 7/15/80x AUTHOR: TODD BAILEY 7/12/80 x <x ** TO USE, PUT DESIRED FORMAT IN STRING$, NUMBERS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0Lz(16384)1286010Z16368,0b:xCH(36):CV(37)ZN$:(ZN$)(((ZN$)))6070(ZN$)0ZN$"0"6080ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:6090:6050ZM:868:1:ZC::34,0:CV2:(36):CV(37):)#QâCV1:36,CH:868:J#Rù34,ZC1:ZC::34,0:CV2:ZZ34,0:CV2:ZE1Ĭu#ZE343049#:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"#)1023,9#*:#PCH(36):CV(37):#QâCV1:36,CH:868:$Rù34,ZC):"JCV1:36,CH:868:4" END OF PROGRAM <":Z" 10:"DO YOU WANT TO TRY""12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030" :R$"Y"Ľ:QQ1:135"*(1023)123Ā"/D$(13)(4)"4D$;"RUN HELLO"#PCHnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )e҅Ր JJJ` g RQPHH, hh`L `*U W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QbӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ )%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&L9 ʅPQ L PȱQL L,U,R@ ,T,SWP ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ(soQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@Tstopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 8.ș0șylykyjyi00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pPå8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 iI*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$&12:"AGAIN (YES OR NO) ? "[ 12:21:"";Y$:Y$(Y$,1):Y$"Y"Y$"N"43030m*" ": CTRL L4Y$"Y"Ľ:D$(4):1170>D$;"PR#0":::(1023)123ĀH10:"GETTING THE MENU...":D$;"RUN HELLO"D"DLLO"ION."GP::15:"GOOD LUCK,"::5:"THE COUNTRY IS COUNTING ON YOU."TZ35000:24:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";ˆ16384,128:16368,0:" ": CTRL L̈ END" ": CTRL L 10:"DO YOU WANT TO TRY"WANT TO GO SOUTH,"::"TYPE 180, ETC."1(35000824<"REMEMBER, THE SAM WILL NOT LAUNCH"::"UNTIL YOU TYPE IN THE DIRECTION"::"YOU WANT IT TO GO."F::"YOU CAN CHANGE THE HEADING OF THE SAM"::"AT ANY TIME BY TYPING IN THE NEW"::"DIRECTe24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* f`IIIIII `ELԢai0vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡%`dL 饢IEL < LS리8$Ii0ǨV $W8Ie Ji `eeeeeLi&&&&8坰IiBffff ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PEH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` )^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡Hhh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU ee`^de *& edeeƙ` 8ompnL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH gLԢx8` ћLK*L өȥʆȑ $PhihiȑȊ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆdklmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,50 ў*%L L ު `  }LޢLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨8坐*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8L Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8υ` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj izLԥywxuv`8gPhQ L gePiheQjR  $LeLԩP<=R>?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘eݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱve$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Le.?Lrd?e.?Mrd<eñd=eòM+xq.?6~?r]ŠԠŠ=de.?6brde.?6br]ҠϠ͠@UVWde.?rYl`.?r$ӠƠԠ+ d6Ue]Ԡ͠ԠJq.?r`%q.?r]ˠԠΠһŠƠĬΠҠDq.?6?rq.?6?r]ŠŠϠŠŠŠ@Lde de,dede`]c3EdO4rq.?r.?r ]àӠϠҠBN@" rq.?r.?r !]àӠϠä,@p()]̠ĠΠ\` ñqñ`ñ$ Xñqñòqò]5]ñòŠ                             **hQ**E+i+$$! $%%# bEEEhh`D76  "(!#@`"E% E*&+'% E!&*'i' E0EE#0̥#%% E*!0 E0`+i+`%J)+%j )* * (je$*` >EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH <&""" ,2"<"><$ " "&""  0 $" "8****&"""""""""< `&< ("""""""""*6""""">>88   (""*:<"">""""""""""""">>>"2"""">""" """  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > *""""">(((>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   >>?LD"6 >>">""""A~>I**<<>6>H$$H$H$AAIAI6>6"> """6"">" >>::>>>     <'<<$$$$ $ $%% %-,-,---.-.655I7?>??>?R ???'?''$$$$$$$ $ d,,-,---.-5-v.666667>7??$$ $ $%% %-,-%---5--.5u..666666777?>?7???'??<'<<$$I $$'$$$,$$$'<'?'???7??>7>>666666555-.-5---%-%-$%$$$%$$$<$$ $%,%-%---5--.5u..666666777?>?7???'?'?$'$I55--%-%e,,$,$$'$'''?'??77?66v666>6>>?>???66--??'?'<<$<$$%$%%*,-,--..666667?-,55--%-%e,,$,$$'$'':>??'?''$$$$ d,,-,--.55666666>>??'?<$$$$$$ ,,%--5-55v6666>>?II $$$$'''?7>>666666555-.-5---%--,%e ,,$ $@2jI]{!??'?'<<$<$$%$%%%-%--5-5u..6.6676777?7??'?'<<$<$$%$%%%-%--5-5u..6.6676777?7??'?'<<$<$$%$%%%-%--5--667666.66??--%-%e,,$,$$'$''   z"#     ͠͠Ӡ !Ҡ Ԡ Ϡ ͠1̠ԠG"Ϡ"Š  ?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@>) `LL u ?l:L``L@ 'A&?1L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6$(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 Ll `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,"D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :IJb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 " " DLAW." " " D VARIOUS PESTICIDES."' RADAR,RADARP "RADAR FAMILIARIZES STUDENTS WITH" "ANGLES FROM 0 TO 359 DEGREES BY HAVING" "THEM INTERCEPT A MISSILE." SNELL,SNELL "SNELL PLOTS LIGHT REFRACTION," "DEMONSTRATING SNELL'S LAW." LEAR SIMULATION,NUCSIM? "NUCLEAR SIMULATION SIMULATES THE"g "COUNTING OF RADIATION FROM NINE" "DIFFERENT RADIOISOTOPES." PEST,PEST "PEST IS A SIMULATION IN WHICH THE" "STUDENT MAKES DECISIONS RELATIVE TO" "THE USE OFIES." " " '  DIFFUSION,DIFFUSR" "DIFFUSION DEALS WITH THE DIFFUSION"r# "RATES OF VARIOUS GASES."|$ " "* ICBM,ICBM, "ICBM TEACHES THE COORDINATE SYSTEM". "BY HAVING STUDENTS TRY TO INTERCEPT"0 "A MISSILE." NUC VOLUME 2",8( "CELL MEMBRANE",CELLMX "CELL MEMBRANE LETS THE USER ROLE PLAY A" "CELL MEMBRANE, REGULATING QUANTITIES OF" "VARIOUS COMPONENTS OF A CELL."  COLLIDE,COLLIDE "COLLIDE SIMULATES A COLLISION BETWEEN" "TWO BOD";N$(Q,2) CH(36):CV(37)E "";ZN$:(ZN$)(((ZN$)))520` (ZN$)0ZN$"0"540t ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868:  "SCIENCE -ION";:868 A$* (A$,1,1)"Y"330D (A$,1,1)"N"ė:280l "PLEASE ANSWER YES OR NO";:1:390 Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:280 ::10:"GETTING THE PROGRAM..." D$;"RUN T16:"TYPE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED ";:868U ^490:QZNh hQ0QN1380 r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340 |:N$(Q,3):18:N$(Q,4):20:N$(Q,5)  23:"DO YOU WANT ANOTHER DESCRIPT:20( (T(T4))2((T(T4))2)ĺ:/ T 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 "490 ,ZN$"D"330 6(ZN$,1)"E"Ĺ1023,9::: @QZN:450 J34,15:16:G J132JJ1:J40030$ #16368,0* (4 dZM24B xN$(24,5)X D$;"NOMON,C,I,O"f 1023,123u ::255: T$,N 1:20(T$)2 T$ 2:11:"AVAILABLE PROGRAMS" 5 T1N C15 N$(T,C) C T;" ";N$(T,1);  PROGRAM: HELLO4 VERSION: 2.0.2 (TMB)P LAST UPDATE: 6/27/80V m (C) MECC, 1979x22016D$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,0 J1(16384)128:J127     000: 5d:"THE TOTAL COUNT TAKEN ON THE FIRST DAY"::"WILL DETERMINE HOW MANY MINUTES TO":"COUNT. THE TOTAL COUNT ON SUBSEQUENT"::"DAYS WILL GRADUALLY DECREASE AS THE"::"ISOTOPE DECAYS."35000:3"FOR THOSE WHO ARE MOTO COUNT BACKGROUND RADIATION,"Zp:" HOW LONG THE EXPERIMENT WILL LAST,":" HOW OFTEN TO TAKE COUNTS OF THE RADIOISOTOPE, AND":" THE APPROXIMATE TOTAL COUNT TAKEN ON THE FIRST DAY OF THE EXPERIMENT."35F RADIATION FROM A RADIOISOTOPE."D::"YOU MAY SELECT ANY ONE OF NINE"::"ISOTOPES, OR YOU CAN HAVE THE COMPUTER"::"PICK ONE AT RANDOM AS AN UNKNOWN."N35000:*54"YOU WILL ALSO DETERMINE SUCH THINGS AS:"+H:" THE LENGTH OF TIME Z((YL)X)(Z03920'<Z0-PA|GW((L(O)T))G[GW((L(O)T))rGB(.99W)4380T9W(L(O)T)10:T1(.99W(T912).99)GT1T9BT112428005!:"THIS PROGRAM SIMULATES THE COUNTING"::"O40 4 10680H I3((G))'\ J(1)2p K(1)< LIKG M(1)W M.53560` LLj 3580r LLx J(1)$K(1)8LIKLM(1)`M.53740tLL BACKGROUND ROUTINEY12XI3((Y))3600";34);"IN C/M"F "---";10);"-------";24);"-------";34);"------"P 34,5[ A$"0"g D$"10" A$;10);W3;24);D$;34);Z10 :T;10);Q;24);T1;34);ZD ZZ8(ZZ8)3260X 35000: ZZ0 T ZZ0İ35000 34,0: 980  T110 B12T1& J2228600 4220: 2880D, 4260N@ 9660\T TU3120mh R4010520| "RADIOISOTOPE: ";L$(O) 10);"TOT EXP";24);"CNTING" 10);"CNT OF";24);"OF SMPL";34);"BCKGRD" "DAY";10);"SMPL";24);"IN MINB L M338580$ EACH DAY.. 37807 Z1ZF I3((W))P 3600[( W2WLm< B13((120))wP 3600d W3W2120Ln W3(W3.5)x THIS PRECEEDING ROUTINE HAS BEEN TO GET A DAY 0 PRINT OUT. ZZ0:TUVU ZZZZ1 378U WANT"hz12:"BETWEEN COUNTS? ";:868:40000:UZN:U1Ģ15:"PLEASE ENTER A POSITIVE NUMBER.":2170$ 958:15:"HOW LONG SHOULD THE WHOLE EXPERIMENT"8 17:"LAST (IN DAYS)? ";:868:40000:VZN:V1Ģ20:"PLEASE ENTER A POSITIVE NUMBER.":23601Ģ20:"PLEASE ENTER A POSITIVE NUMBER.":18104 Xv 3:"FOR HOW MANY MINUTES EACH"::"DAY DO YOU WANT TO COUNT" 7:"BACKGROUND RADIATION? ";:868:40000:XZN:X1Ģ10:"PLEASE ENTER A POSITIVE NUMBER.":1990p958:10:"HOW MANY DAYS DO YOUNT"1 :"THE SAMPLE LONG ENOUGH TO OBTAIN AS"\ :"LARGE A COUNT AS ONE WANTS. THIS" :"NUMBER IS CALL 'TOTAL EXPERIMENTAL" :"COUNT'." 15:"WHAT SHOULD BE THE APPROXIMATE". 17:"TOTAL EXPERIMENTAL COUNT? ";:868:40000:WZN:W -.0484615,-.0079563,-8.6242E-5,-.0028875{  "C-14","CA-45","CO-60","I-131","NA-22","P-32","S-35","PB/BI-210","ZN-65" J(1) O(9(1))1 ,O7O @10380 TC1$C$ hR41 |J111800 4 "IN A COUNTING EXPERIMENT ONE CAN COETHOD (YES OR NO) ";:868:Y$:Y$(Y$,1):Y$"Y"Y$"N"680O \Y$"Y"5820m x7920:17);"10) UNKNOWN" 15:"(ENTER 1 - 10) ?";:868:40000:OZN:O1O101420  O101660  -3.3904E-7,-.0045592,-3.6070E-4,-.0857673,-7.2918E-4, L(N) @N BN19:L$(N):; E(1022)111J11:680I J20:958i T"INSTRUCTIONS--YES OR NO";v h"? ";A$ A$(A$,1) A$"Y"A$"N"330  A$"N"J11:680 D4400> 10:"DO YOU WANT TO USE THE 'ADVANCED'"::"COUNTING M| COPYRIGHT MECC, 1979: NUCSIM 8/23/79 FPX AUTHOR: EUGENE SCRIBNER^z LAST UPDATE: 7/29/80 1022,1 :::255:ZM24(1022)111260:12:10:"NUCLEAR SIMULATION"L(10) L$(9)N19 ,               JZ913IN$""40002+LZN(IN$):1:C END OF PROGRAM KL$i 10:"DO YOU WANT TO TRY"12:CL$;:1:"(YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 L$:R$"Y"910%M$*(1023)123Ā/D$(13)(4)4D$;"RUN "WHICH IS ";A;" DEGREES."h 9@CH(36)1:CV(37)1NA16368,0:IN$""BCV:CH:IN$;" ";:16384,128:Z9(16384)128:16368,0:Z947Z958Z946IN$IN$(Z9):40002DZ9840010F(IN$)2IN$"":40002GIN$(IN$,(IN$)1):40002O YOU THINK THE ANGLE OF":"REFLECTION IS?";Z 40000:A4ZN:21:CL$;CL$;CL$;CL$;:21:1j AA42900, "THAT'S RIGHT, THE ANGLE OF REFLECTION":"IS ";A;" DEGREES."@ 02920T "THE ANGLE OF REFLECTION SHOULD":"EQUAL THE ANGLE OF INCIDENCE,":000:A3ZN%n 23:1:CL$;CL$;:1:21?x (A2A3).1A202740 "GOOD, YOU ARE WITHIN 10 PERCENT. THE":"ANGLE OF REFRACTION IS ";A2;" DEGREES." 02760 "NO, THAT'S NOT RIGHT. THE ANGLE OF":"REFRACTION IS ";A2;" DEGREES." , "WHAT D040H140Y(A1.74533E2),(81Y)140,80_\"YOU WENT PAST THE CRITICAL ANGLE.":2800if1990{ FC(1CC) G(F) A2(1000(G1.74533E2).5)1000 ( P 23:"WHAT DO YOU THINK THE ANGLE":"OF REFRACTION IS? "; d 40533E2)C1İ2520*"A0Y80:1600S,Y(140(A1.745329E2)):Y80Y80~@(140Y(A1.74533E2)),(81Y)140,80C12120A20Y79:1880Y(139(A21.745329E2)):Y79Y79X140Y(A21.74533E2),Y800260011460 <900B0RL$:3:140,9140,157:139,9139,157:5:1,80279,80:1|2:30:"MEDIUM 1":4:30:"N1 = ";N115:5:"MEDIUM 2":17:5:"N2 = ";N21:18:"NORMAL"21:7:"INCIDENT ANGLE: ";A;" DEGREES"C(N1N2)(A1.7422:"N2? ";:40000:N2ZNlN21N23Ģ12:"THE INDEX OF REFRACTION SHOULD"::"BE BETWEEN 1 AND 3.":92012:CL$;CL$;CL$12:1:"ANGLE OF INCIDENCE? ";:40000:AZNA0A89Ģ15:"THE ANGLE SHOULD BE BETWEEN 0 AND 89.":940L$(0p01460L$4%QQ43000L"TRY SOME DIFFERENT VALUES.":QQ17:CL$;:1:"INDEX OF REFRACTION, N1? ";:40000:N1ZNN11N13Ģ10:"THE INDEX OF REFRACTION SHOULD"::"BE BETWEEN 1 AND 3.":91010:CL$;CL$;CL$9:1:CL$;:INDEX BELOW IS 1.5." |10& N112 N21.5< A45G 01460 4:"LET'S CHANGE THE INCIDENT ANGLE AND"::"SEE WHAT HAPPENS." 9:"WHAT SHOULD THE ANGLE OF INCIDENCE"::CL$:11:"BE (0 - 89) ?";:40000:A1ZN:A10A189490 AA1E REFRACTION OF LIGHT AS IT CROSSES"::"A BOUNDARY SEPARATING TWO MEDIA." ::"THE FOLLOWING DIAGRAM SHOWS LIGHT"::"INCIDENT TO THE BOUNDARY AT 45 DEGREES." :"THE REFRACTION INDEX OF THE MEDIUM"::"ABOVE THE BOUNDARY IS 1.0 AND THE" :"0165,50165,70:165,60175,60F 180,50180,70185,60190,70190,50^ (4);"BLOAD PRINT"m 10:16381 251,1:L$(12):M$(29) 16302,0 CL$" "J 4:"THIS PROGRAM WILL HELP YOU VISUALIZE"::"TH110,30110,40100,406 115,40115,20125,40125,20f 140,20130,20130,40140,40:130,30137,30 145,20145,40155,40:160,20160,40170,40 175,20175,30:190,20180,20180,30190,30190,40180,40 150,50150,70160,70 175,70175,5 A AND A1 ARE ANGLES, N1 AND N2 INDICES OF REFRACTIONL R::255::ZM24T T:x Z3:160,7970,79115,140160,79 \1,1100,79145,100 ^ 5,1,6,2 _K14:CO:CO `Y100(K1)5100K5:145,100279,Y:: 3 110,20100,20100,30  PROGRAM: SNELL7 LAST UPDATE: 7/31/80=x AUTHOR: RICHARD F. PAV, PATCHOGUE HS, HEW YORK STATE~819282 24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";16384,128:16368,0::L$:7 P        CROP PEST":<W"THE BEETLE IS CAPABLE OF STRONG FLIGHT":l\"AND HAS GRADUALLY MOVED WESTWARD. IT ":a"HAS RECENTLY INVADED LARGE CROP-":f"PRODUCING AREAS OF A WESTERN STATE."p8000z"DO YOU WANT TO SEE YOUR":"PESTICE"OVER 500 ELM TREES LINING THE":C+"BOULEVARDS AND PARKWAYS."M/8000V4890>"JAPANESE BEETLE: THE BEETLE HAS ":C"FLOURISHED IN THIS COUNTRY FOR 40 YEARS,"H"SPREADING THROUGHOUT MOST OF THE ": R"EASTERN STATES. A NOTORIOUS BEETLE. ELMS ARE":D"A VALUABLE SHADE TREE WORTH A POSSIBLE":s "$500 A PIECE. ELIMINATING THE BEETLE":"STOPS THE FUNGAL SPORE AND PREVENTS THE":"DISEASE. THE BARK BEETLE HAS BEEN": "FOUND IN A SMALL MIDWEST TOWN WITH":#*SECTS."6:"THE SPRUCE WORM HAS INVADED A 150,000"o:"ACRE STATE FOREST IN A NORTHEASTERN"::"STATE."y8000890"EUROPEAN BARK BEETLE: THE FUNGUS WHICH":"CAUSES DUTCH ELM DISEASE IS TRANSMITTED":"BY THE EUROPEAN BARK THE LARVAE OF THE SPRUCE"K:"WORM ARE LEAF EATERS. WHEN PRESENT IN"w:"LARGE NUMBERS, THEY ARE CAPABLE OF":"KILLING TREES. PARTIAL DESTRUCTION OF":"LEAVES SLOWS THE GROWTH OF THE TREE AND":"MAKES IT VULNERABLE TO OTHER INET":3g"TALL. MOREOVER, FIRE ANT STINGS ARE":bq"PAINFUL AND DEATHS HAVE BEEN RECORDED":v"FROM ITS STING. THE FIRE ANT HAS JUST":"INVADED A MAJOR FARMING COUNTY IN THE":"SOUTHEASTERN U.S."8000890"SPRUCE WORM:A$"Y"ĢZC:"YES OR NO PLEASE.":50001:5309(50002B:585TDA((1)41)\I:sNA600,670,750,830X"FIRE ANT: FIRE ANT MOUNDS INTERFERE"Y]"WITH FARM OPERATIONS. THESE MOUNDS MAY":b"NUMBER 25 PER ACRE AND ARE THREE FE!" (4) JAPANESE BEETLE":<"WHICH PEST?";:50000L40000:AZNA1A4ĢZC:"1, 2, 3, OR 4 PLEASE.":50001:50050002:"DO YOU WANT A DESCRIPTION OF THAT PEST";:50000A$A$(A$,1,1)A$"N"İ50002:890.&A$(A$,1,1)*A$"N"İ50002:580\A$"Y"ĢZC:"YES OR NO PLEASE.":50001:450g50002o:"SELECT BY NUMBER ONE OF THE FOLLOWING:":" (1) FIRE ANT":" (2) SPRUCE WORM":" (3) EUROPEAN BARK BEETLE":ARK BEETLE.":. 415);"4) JAPANESE BEETLE."8 A8000U JY(20),B(10),A(10),Z(10) TNH110:C(NH)0:B(NH)0:A(NH)0:Z(NH)0:NH |Y10:K10:L40:L60:L80:S00 Z55  9 "WOULD YOU LIKE TO CHOOSE THE PEST"; 50000 A$  "OF THE SAME FOOD CHAIN.") 8000Y "EFFECTIVE CONTROL MUST BE MAINTAINED FOR"| "A PERIOD OF FIVE YEARS.":: ""THE PEST SPECIES YOU MAY ENCOUNTER ARE:": ,15);"1) FIRE ANTS.": /15);"2) SPRUCE WORM.": 115);"3) EUROPEAN BS. FOR THE ":< "PURPOSE OF INSECT CONTROL, YOU HAVE AT"B n "YOUR DISPOSAL A CHEMICAL PESTICIDE": "ARSENAL. ALTHOUGH CONTROL OF THE PEST": "IS IMPORTANT, YOU MUST ALSO PREVENT"  "ECOLOGICAL DAMAGE TO NON-TARGET MEMBERS":PLEASE.":50001:170 50002% T "YOU ARE FIELD SUPERVISOR IN CHARGE OF":~ "INSECT PEST CONTROL FOR THE U.S.": "DEPARTMENT OF AGRICULTURE. YOUR JOB IS" "TO CONTROL INSECT PEST ATTACKS WHICH": "THREATEN NEEDED RESOURCEPDATE: 8/1/80 $ ZC23:ZM221 E9110= E8(1)E E9T ::255:` QQ330v 6:17:"P E S T"~ 20 "DO YOU WISH BACKGROUND INFORMATION ";:50000 A$ A$(A$,1,1) A$"N"İ50002:330 A$"Y"ĢZC:"YES OR NO D PROGRAM: PESTM CONVERTED TO APPLE II BASIC BY MIKE STEIN 6/79 AUTHORS: MIKE DAMYANOVICH & JIM STURDEVANT/OSSEO, MN CDC CYBER 70/73-26 BASIC 3.1 DOCUMENTATION AVAILABLE THROUGH MECC UNDER NAME: PEST   LAST U                      ox<@}~??|_Oox?g}xG[ow{o3_}?go?~o@|?p>{m?_}v{?ppx?X_~zoo>{k/?{~?~>{o7owo}?O~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqo88`}~?~~gox?O}x~[w{o5}?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~g?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnO0?~}~?_qwlw`\o>~`ox?a@}xx\wo6A?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv_??`@?`@?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? }xcw_w{/7}?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv?G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o              ;:25:"VELOCITY: ";(10V2.5)10:20000:24:" ";:6n1:TIME1T1|K1DE:0:S1X1,Y:S2X2,Y:3:S1X1SA,Y:S2X2SB,YX1X1SA:X2X2SBK1DE:0:S1X1,Y:S2X2,Y:3:S3FINAL)PSB0T2T1:1390KZSB0T2((RIGHT(FINAL2SM10))(SB)):1390odT2((FINAL2SM(LEFT11))SB)nTT1:T2T1TT2xX1FINAL102SMTSA:X2FINAL102SMTSB17410:251,1S1X1,Y:S2X2,Y[6:"VELOCITY: ";(10V1.5)101290/((SC)LIMFACTRFACTR(LIMSC):1290Z2(SD)LIMFACTRFACTR(LIMSD):1290p<SM(SACVV1.5)ASB(SA)Ģ18:"I'M SORRY, BUT YOUR VELOCITIES ARE"::"TOO NEARLY EQUAL. PLEASE TRY AGAIN.":20000:1075FT1((FINAL2SM10LEFT)SA1M1(1PHI)V2(M2PHIM1))(M1M2)N SA(BESTFACTR.5):SB(SAV2V1.5)vSC(SAV3V1.5):SD(SAV4V1.5)SA11310(SB)LIMSB(SB)LIM(SC)LIMSC(SC)LIM(SD)LIMSD(SD)LIM(SB)LIMFACTRFACTR(LIMSB):0S5S9:S6S9%PHI1S5S1:S6S23FINAL140[LEFT13:S12LEFT25:FINALFINAL6RIGHT271:S28RIGHT259:FINALFINAL6:PHI0RIGHT250:FINALFINAL4S12PHI0RIGHT261FACTR1$V3(V1(M1PHIM2)M2V2(1PHI))(M1M2):V4(VBE BETWEEN 0 AND 1.":11007VCV(V1M1V2M2)(M1M2)c`EM1(V1CV)(V1CV)M2(V2CV)(V2CV)njLIM12ytBEST7~DE40Y160S11:S27:S913M1M2S1S11:S914M2M1S2S21:S915S3S12:S4S22:S5S14:S6S24PHIB8:21:" VELOCITY: ";:868:40000:958:V2ZN:V215V2V1Ģ11:"THIS VELOCITY SHOULD BE"::"BETWEEN -15 AND ";V1;".":1090L12:"WHAT IS THE ELASTICITY"::"OF THESE OBJECTS? ";:868:40000:958:PHIZN:PHI0PHI1Ģ21:"ELASTICITY SHOULD Y: ";:868:40000:958:V1ZN:V11V115Ģ11:"THIS OBJECT'S VELOCITY"::"MUST BE BETWEEN 1 AND 15.":1080=4:21:"RIGHT OBJECT">6:21:" MASS: ";:868:40000:11:868:M2ZN:M20M225ĺ"PLEASE KEEP THE MASS BETWEEN 0 AND 25.":1086 THE ELASTICITY OF PUTTY"::"BALLS IS CLOSE TO '0'."AE20000G`34:M$(29):L$(12)z4ZM24:" LEFT OBJECT"66:" MASS: ";:868:40000:958:M1ZN:M10M125Ģ9:"PLEASE KEEP THE MASS BETWEEN 0 AND 25.":1078m88:" VELOCITIS LOST. STEEL BALLS"::"HAVE AN ELASTICITY CLOSE TO '1'."J ;20000:4 @::"IF THE ELASTICITY IS CLOSE TO '0',"::"THE BODIES TEND TO STICK TOGETHER,"::"AND A GREAT DEAL OF KINETIC ENERGY IS"6B:"LOST THROUGH DEFORMATION OF THE"::"BODIES. 3) THE ELASTICITY OF THE OBJECTS"P :" (COEFFICIENT OF RESTITUTION)"[ 20000b "6 ,"ELASTICITY DETERMINES HOW MUCH KINETIC"::"ENERGY IS LOST DURING THE COLLISION." 1< 6::"IF THE ELASTICITY IS '1' THEN NO"::"KINETIC ENERGY "THIS IS A SIMULATION OF A COLLISION"::"BETWEEN TWO BODIES."J : :"THE THREE THINGS THAT DETERMINE"::"THE RESULT OF A COLLISION ARE:" : " 1) THE MASSES OF THE OBJECTS," :" 2) THE VELOCITIES OF THE OBJECTS, AND"$ ":I I16Ğ+ A$;:17::B$;:I16ĝ5 C$:; Q I2340:10:I1g :" ":10:I:C$| 10:16::A$;B$ 255: :10:"DO YOU WANT INSTRUCTIONS? ";G$ G$(G$,1) G$"N"G$"Y"200 G$"N"1000 3B 8191J D$(4):D$;"BLOAD COLIDEB,A17920":232,0:233,70:1:0:3Y D$;"PR#0"n D$;"BRUN PRINT" M$(29):L$(12) M$:251,1 200 XA$" " dA$"C":B$"OLLID":C$"E" n::ZM24 xI216:10:I1 " ":10 COPYRIGHT MECC, 1979= COLLIDE 8/23/79 FPd AUTHOR: H.P. CONTRIBUTED PROGRAM ASSOCIATED PROGRAMS AND FILES: PRINT,COLIDEB REWRITTEN WITH HI-RES TODD BAILEY 7/25/80 LAST UPDATE: 8/1/80          #$666$$466vQQQQQQQQQQQJQQQQQQQQQQQQ?/--=??/--=??/--=??/--=??$>>55,,'>i#c#7ۀMIIJ?<6&$$?/--=??/--=??/--=??/--QQQQQQQQQQQQRQQQQQQQQQQQ$466&$#$666$$466&$#$666$?'$6>?#$666$$466&$-5--5--5--5--5--5---%IIIIIIIIIIIIIIIIIIIIIIIIIIIIIII$$$$$;;;;;;;׿׿..655..655..655..655..655,55555555555555555555555555555555555555555555555555555555555555555,5-..55-..55-..55-..55-..55-..55-..55-..55-..55-..55-..55-..55-.5$-.5-5-.-.5-5-.5-5-.-.5-5-.5-5-.-.5-5-.5-5-.-.5-5-.5-5-.-.5-5,--5--5--5--5--5--5--5--5--5--5--5-76676>66>66>66>66>6676676676676676>66>66>66>667r666666666666666666666666666666666666666666666666.66.66.66.66.66.66.66.66.66.66.66.66.66.66.66.66.66.-65.6.6565.6565.6.6565.6565.6.6565.6565.6.6565.6565.6.6565.65-.655..655..655..655..655..655..655..655>>7?>>77?>>77?>>77?>>77?>77?>>77?>>77?>>77?>>7?7777777777777777777777777777777777777777777777777777777777777777?&>>677>>677>>677>>677>>677>>677>>>677>>677>>677>>677>>677>>677>>>67>6>67>6>67>6>67>6>6767>6767>6767>6767>6>67>6>67>6>67>6>67>66766766?<'???>??>??>??>??>??>??>??>??7?>7?7?>?>7?7?>?>7?7?>7?7?>?>7?7?>?>7?7?>7?7?>?>7?7?>?>7?7?>?7?>>77?>>77?>>77?'<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<'?<'?'?<'?'?X19 w3000{::>"THE CELL NOW BEGINS TO BURN SUGAR":j"FOR ENERGY. DIFFUSION AND OSMOTIC":"POTENTIALS GO INTO EFFECT. YOU":"ARE NOW READY TO ATTEMPT TO KEEP":"THIS CELL ALIVE."3000970J0PPCENTRATIONS.":=X"(THE CONCENTRATIONS OF THIS SOLUTION":_]"ALWAYS REMAINS CONSTANT)":^"AND ARE LISTED HERE AS PERCENTAGES."_b" WATER-85":c" SUGAR-10":l" SODIUM-1":m" POTASSIUM-1":n" CHLORIDE-1":vTION":1!"FOR REPRODUCTION ALSO DEPRECIATE":G&"AUTOMATICALLY."O+:x0"WASTE BUILD UP FROM SUCH ENERGY":5"ALSO TAKES PLACE.":;3000D"PRETEND YOU ARE NOW PLACED INTO":I"A SOLUTION WHICH HAS THE FOLLOWING":N"CONLECULES FOR ION TRANSPORT.":E" 4 MOLECULES FOR WATER REMOVAL."O3000V4"CHANGES IN THE CELL DUE TO OSMOSIS":"AND DIFFUSION TAKE PLACE AUTOMATICALLY.":"OTHER ENERGY FOR OTHER FUNCTIONS":"OF THE CELL, SUCH AS PREPARAGY":."THAT DEPRECIATES AUTOMATICALLY,":V"THE FOLLOWING AMOUNTS OF SUGAR":k"WILL BE USED."s:" 4 MOLECULES OF SUGAR TO GET RID OF":" WASTE.":" 3 MOLECULES TO OPERATE THE SUGAR":" CARRIER COMPLEX.":" 2 MOUR":" "CONCENTRATIONS ARE:":` " WATER- 6700 MOLECULES"::" SUGAR- 30 MOLECULES": " POTASSIUM- 43 IONS"::" SODIUM- 10 IONS": " CHLORIDE- TRACE"::" WASTE- NONE"  3000 3"IN ADDITION TO METABOLIC ENER:- J" POTASSIUM BETWEEN 39 AND 53 IONS":T T" SODIUM BETWEEN 0 AND 14 IONS":| ^" CHLORIDE BETWEEN 1 AND 8 IONS": h" WASTE BETWEEN 0 AND 13 MOLECULES" r |3000 3 "YOU WILL BE A CELL MEMBRANE OF": "ESCHERICHIA COLI. YOONS":/ "3) POTASSIUM IONS";20);"6) WASTE"5 e :"(WASTE IS PRIMARILY AMMONIA COMPOUNDS)"k "q 'x ,4 1"SAFE CONCENTRATIONS ARE AS FOLLOWS:":: 6" WATER BETWEEN 6000 AND 8100 MOLECULES": @" SUGAR BETWEEN 8 AND 35 MOLECULES":, "PLAYING. YOU WILL ACT AS A CELL":V "MEMBRANE AND YOUR RESPONSIBILITY":~ "WILL BE TO MAKE ADJUSTMENTS IN": "THE FOLLOWING ITEMS:":: :230:3000:300 "1) WATER";20);"4) SODIUM IONS": "2) SUGAR";20);"5) CHLORIDE I35 ::255:8 8:8:"C E L L M E M B R A N E"^ 18:"DO YOU WANT INSTRUCTIONS ";i 50000q Y$ (Y$,1)"N"İ50002:635 (Y$,1)"Y"ĢZC:"YES OR NO PLEASE.":50001:180 50002 : "IN THIS PROGRAM YOU WILL BE ROLE"K PROGRAM: CELLM7 LAST UPDATE: 7/16/80=X2 COPYRIGHT MECC 1979s< CELLM 6/18/79 FPF AUTHOR: KEN WITT/TRACY,MNP ASSOCIATED PROGRAMS AND FILES: NONEZC23:ZM24H6700:S30:K43:N10:C1:W0:PW QQ6                N MID-AIR." 5960N:"GOOD LUCK - THE ICBM TURNED OUT TO BE A":h "FRIENDLY AIRCRAFT."n%x*5960~4>:"TOO BAD. THE ICBM JUST HIT YOUR LOCATION";CH:5990R34,0:\6100fG71999::14p24:" PRESOUR SAM CAME WITHIN ";(D2);I:"MILES OF THE ICBM AND DESTROYED IT."OY5960:"TOO BAD. YOUR SAM FELL TO THE GROUND."5960"YOUR SAM EXPLODED IN MIDAIR."5960:"GOOD LUCK - THE ICBM EXPLODED HARMLESSLY" "I0,5860,5880,5910>670:X(1)0Y(1)0X(1)0:Y(1)0:5550NlD255810_vD3D25790:"YOU PASSED THE ICBM UP, AND IT HIT"::"YOUR LOCATION.":5960:"ICBM & SAM ARE NOW ";(D3);" MILES APART.":5550:"CONGRATULATIONS - Y:NUMBERY(1):30900:STRING$;:STRING$" B##":NUMBERX(1):30900:STRING$;STRING$" B##":NUMBERY(2):30900:STING$;:STRING$" B## ":NUMBERX(2):30900:STRING$;X(1)059406040:HEADZNH(120(1)1)H45620H584Y(1)(800(1)200)(^S(20(1)50)=hS1(20(1)50)`r" MISSLE SAM"|" MILES MILES MILES MILES HEADING"" NORTH EAST NORTH EAST ?"" ----- ----- ----- ----- -------"34,5LSTRING$" B##"DESTROY THE ICBM BY COMING"J:"WITHIN 5 MILES OF IT, AT WHICH TIME":v"YOUR SAM'S HEAT-SEEKING SENSORS WILL":"COME INTO ACTION AND DIRECT IT TO ITS":"TARGET.""5990,6X(2)0:Y(2)0@ZM24JX(1)(800(1)200)TER, YOU ARE GIVEN THE NEW"J:"COORDINATES OF THE ICBM AND OF THE SAM"P~"AND THE DISTANCE BETWEEN THE TWO. YOU":"CAN NOW MAKE CORRECTIONS IN THE COURSE":"OF YOUR SAM BY ENTERING A NEW DIRECTION."59907"YOU CAN AIM IT IN ANY DIRECTION, BOTH":Md"AT LAUNCH, AND WHEN IT IS FLYING. YOU"n:"ENTER THE DIRECTION (MEASURED CLOCKWISE":x"FROM NORTH) IN WHICH YOU WANT THE SAM":"TO TRAVEL.":59903"AT THE NEXT RADAR SCAN, ONE MINUTE"::"LAT, TELLING":;"YOU ITS COORDINATES (IN MILES NORTH AND"h(:"MILES EAST OF YOUR LOCATION). YOU":2"LAUNCH A SURFACE-TO-AIR MISSLE (SAM) TO"<:"INTERCEPT IT.":F5990K4P"YOUR ONLY CONTROL OVER THE SAM IS THAT" Z:"YOU CAN 255:) 10:" I C B M"H 20:"INSTRUCTIONS";:868P A$h (A$,1,1)"Y"5120 (A$,1,1)"N"ė:5420 :"PLEASE TYPE YES OR NO." 5060 :5 "YOUR RADAR STATION PICKS UP AN" :"ENEMY ICBM HEADING YOUR WAY(VXDXVYDY)(VXVXVYVY)8 4T10T1TIMED2D1:850 >NX(1)X(1)VX(1)T1:NY(1)Y(1)VY(1)T1:NX(2)X(2)VX(2)T1:NY(2)Y(2)VY(2)T1 HD2(((NX(1)NX(2))2)((NY(1)NY(2))2)) RK12:X(K)X(K)TIMEVX(K):Y(K)Y(K)TIMEVY(K): \ :: DISTANCE AFTER TIME 'TIME'K D3(((NX(1)NX(2))2)((NY(1)NY(2))2))m VXVX(1)VX(2):VYVY(1)VY(2) (VXVXVYVY)1E9D2D1:D3D1:T11E10:850  T1 SHOULD BE TIME AT WHICH THE DISTANCE BETWEEN SAM AND MISSILE WOULD BE A MINIMUM *T1(1):D1(DXDXDYDY)4  MISSILE HEADS FOR ORIGIN^ VX(1)S(1(Y(1)Y(1))(X(1)X(1)))x VY(1)VX(1)Y(1)X(1) VX(2)S1(THETA):VY(2)S1(THETA) NX(1)X(1)VX(1)TIME:NY(1)Y(1)VY(1)TIME:NX(2)X(2)VX(2)TIME:NY(2)Y(2)VY(2)TIME ETWEEN ICBM AND SAM DURING A GIVEN TIME INTERVAL6 PR R TODD BAILEY - 7/17/80X Ts XX(2),Y(2),VX(2),VY(2) bNX(2),NY(2) l5030 THETA(90HEAD)57.2957795: THETA MEASURED IN RADIANS FROM POS. X AXIS TIME1 DXX(2)X(1):DYY(2)Y PROGRAM: ICBM6 LAST UPDATE: 7/22/80<P (C) MECC 1979 AUTHOR: PETER ARCAND, MAHTOMEDI HIGH, MN ASSOCIATED PROGRAMS AND FILES: ICBMBIN 0 N FOLLOWING ROUTINE COMPUTES SMALLEST DISTANCE B              23,9 *::FFERENT PROGRAM, OR"$ :"3) END"O13:"PLEASE ENTER 1, 2, OR 3 ";:868`40000:ZEZNuZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022ZE1ĬZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")10Y"R$"N"43030. :R$"Y"Ľ:1022,111:10B*(1023)123ĀT/D$(13)(4)h4D$;"RUN HELLO"Z/D$(13)(4)4D$;"RUN HELLO"M(4)4D$;"RUN HELLO"43005 "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DI(ZN$)040006GCZM:"PLEASE ENTER A POSITIVE NUMBER.";:40010:40001oFZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM : 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"((MW(I))(10)));MW(I);35((DR(I))(10)));DR(I)@N6ĺGIY"35000:43000i SPACE BARˆ24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";̈16384,128:16368,0:1:868:@CH(36):CV(37)A"";ZN$ BRCENT RELATIVE DIFFUSION RATE":"BASED ON ";R$:"WHICH HAS A MOLECULAR WEIGHT OF ";A;".": 32);"RELATIVE":19);"MOLECULAR";31);"DIFFUSION":4);"GAS";20);"WEIGHT"; 34);"RATE":4)"---";19);"---------";31);"---------"5I1N:N$(I);231N:Z 5:"WHAT IS THE NAME OF"::"TEST GAS #";I;"? ";:868:"";N$(I):N$(I)""205 10:"WHAT IS THE MOLECULAR WEIGHT"::"OF ";N$(I);"? ";:868:40000:MW(I)ZN DR(I)((A)(MW(I)))100 DR(I)(DR(I)100.5)100 IZ 255::"PE:R$""150Q 9:"WHAT IS THE MOLECULAR WEIGHT"::"OF ";R$;"? ";:868:40000` AZN:958 14:"HOW MANY GASES DO YOU WANT"::"TO COMPARE WITH ";R$;"? ";:868:40000:NZN:N12N1ĺ:"PLEASE ENTER A NUMBER FROM 1 TO 12.":170 958 IEFERENCE GAS." ::"THE RELATIVE DIFFUSION RATES WILL"::"BE GIVEN AS PERCENTAGES, WHERE"::"100 PERCENT MEANS THE GAS DIFFUSES"::"AT THE SAME RATE AS THE REFERENCE GAS." 35000: 4:"WHAT IS THE NAME OF THE"::868:"REFERENCE GAS? ";R$AR"::"WEIGHT OF THE REFERENCE GAS AND ALSO"::"THE MOLECULAR WEIGHT OF THE GASES"::"WHICH ARE TO BE COMPARED TO THE"::"REFERENCE GAS." }35000: ~4 "I WILL THEN CALCULATE THE DIFFUSION"::"RATES OF THE OTHER GASES COMPARED"::"TO THE Ri PROGRAM: DIFFUS8 LAST UPDATE: 7/28/80>J 1022,9T ZM24ndMW(12),DR(12),N$(12){i::255j(1022)111150m4n"THIS PROGRAM WILL CALCULATE"::"RELATIVE DIFFUSION RATES." x::"YOU MUST TELL ME THE MOLECUL      SCREEN AS SOON AS YOU TYPE"::"IN THE DIRECTION YOU WANT IT TO GO."::"DIRECTIONS ARE MEASURED CLOCKWISE"::"FROM NORTH IN DEGREES. THAT MEANS"::"IF YOU WANT THE SAM TO GO EAST, TYPE"::"90, IF YOU WANT TO GO SOUTH,"::"TYPE 180, ETC."("TOWARD THE CENTER."::"YOU MUST GUIDE A SURFACE-TO-AIR"::"MISSILE (SAM) TO THE ICBM BEFORE IT"::"REACHES THE CENTER OF THE RADAR"::"SCREEN AND BLOWS YOU TO BITS."35000 4E"YOUR SAM WILL LAUNCH FROM THE CENTER OF"::"YOUR RADARSOVIET INTER-CONTINENTAL BALLISTIC"::"MISSILE (ICBM) HEADING YOUR WAY."::"YOUR JOB IS TO SHOOT DOWN THE ICBM"::"BEFORE IT REACHES ITS TARGET."350004"THE ICBM WILL APPEAR ON YOUR RADAR"::"SCREEN AS A FLASHING BLIP MOVING"::6:16:"R A D A R"12:"WOULD YOU LIKE INSTRUCTIONS? ":12:30:"";Y$:Y$(Y$,1):Y$"Y"Y$"N"Ģ14:"PLEASE ANSWER YES OR NO.":5020" ": CTRL L TO CLEAR SCREENY$"N"ı4I"LONG-RANGE RADAR SCANS HAVE PICKED UP"::"A $ S2(PHI)2400D8 S1PHI32ĕSAMSX,SY:COUNTOMĕICBMIX,IYRL 36IX,IYlV S1PHI63ĕ37IX,IY|` K1DE::t S2CX,CY~ " ": CTRL L 8:"FANTASTIC!! WE KNEW WE COULD"::"COUNT ON YOU." 35000:43000 INSTRUCTIONSORIZED BY A NUCLEAR BLAST."-35000:43000?KSTARTDE:gS1S2S279:SHS1:COCO1:STARTD2SH32SHSH32:2270S2SH1(SH31)32 SHCX,CY:S2CX,CY (COOMCOOMOFF)S1PHI32ĕICBMIX,IY:STARTSTARTD22:COOMOFFCO0H32120? STARTSTARTD2:CHARBSHEAD$HEAD$(CHAR):2100u STARTSTARTD2:HEAD$(HEAD$,1,LNGTH1(LNGTH0))4STARTSTARTD2:17:33:HEAD$;" "HKSTARTDE:::1680\S2CX,CYp6245010:1:"OOPS! YOU HAVE JUST BEEN"::"VAP8)2120}CHARCRHEAD(HEAD$):HEAD((HEAD360(HEAD360))360.05):HEAD$"":12:33:HEAD;" ":17:33:" ":STARTDECHARCRHEAD(90HEAD)RAD:DXSV(HEAD):DYSV(HEAD):(BETA)11910,2120STARTSTARTD2:LNGTH(HEAD$):CHARBSLNGTTEMP)(SXCX)PI:BETA0BETABETA2PI^v(SXCX).25(SYCY).25BETAHEAD(HEAD0)2PIBETA(16BETAPI2):BETA32BETABETA32STARTDE(KEY)1282120CHAR(KEY)128:FLAG,0:STARTSTARTD2D2:CHARCRCHARBS(CHAR48CHAR5S2(BETA)STARTDE:(SXIX)(SXIX)(SYIY)(SYIY)362220h 01(S2BETA)2(SHBETA)1960,1860,1900 DSAMSX,SY:SAMSXDX,SYDY:SXSXDX:SYSYDY:(SXIX)(SXIX)(SYIY)(SYIY)362220 XTEMP(CYSY)(SXCX.001) bSTARTDE:1960'lBETA(1760G COOMCOOMOFFĕICBMIX,IY:STARTSTARTD22:COOMOFFCO0Y S2PHI1840 ICBMICBM35:ICBMIX,IY:CO0:1840 COOMĕICBMIX,IY ICBMIXXINC,IYYINC:CO0:IXIXXINC:IYIYYINC:STARTSTARTD2:(IXCX)1(IYCY)12140< &34:0:4:28:270:4:38:90:7:33:180? T11:31:"HEADING"r h15:33:"NEW":16:31:"HEADING":17:32:"?"~ |FLAG,0    BEGIN RADAR SWEEP  SH132:START1:S2SH1:COCO1:S232S2S232 SHCX,CY:S2CX,CY ICBMHI32PHIPHI32( (REVS15((1)5)2G <XINCIXREVS:YINCIYREVS] dIXCXIX:IYCYIYv SXCX:SYCY:HEAD$"" SV90REVS(1)2 33CX,CY:32:33CX1,CY1:0 34CX,CY 1CX,CY ,SAMSX,SY( @234,10234,44:214,27254,27:1:5000   CONSTANTSC BS8:CR13:CX97:CY96:D210:DE30{ FLAG16368:FP128:KEY16384:OFF2:OM3:PI3.14159 RAD57.29578:SAM35    INITIALIZATION  PHI(1)2PI:IX90(PHI):IY90(PHI) PHI(16PHIPI2):P PROGRAM: RADAR7 LAST UPDATE: 7/21/80=\ GRAPHICS VERSION OF ICBMw TODD BAILEY 7/18/80}:::16302,0:8191:D$(4)8D$;"PR#0":D$;"BRUN PRINT":251,1:D$;"BLOAD RADARB,A17920"232,0:233,70:1:0:3         <'<<$$$$ $ $%% %-,-,---.-.655I7?>??>?R ???'?''$$$$$$$ $ d,,-,---.-5-v.666667>7??$$ $ $%% %-,-%---5--.5u..666666777?>?7???'??<'<<$$I $$'$$$,$$$'<'?'???7??>7>>666666555-.-5---%-%-$%$$$%$$$<$$ $%,%-%---5--.5u..666666777?>?7???'?'?$'$I55--%-%e,,$,$$'$'''?'??77?66v666>6>>?>???66--??'?'<<$<$$%$%%*,-,--..666667?-,55--%-%e,,$,$$'$'':>??'?''$$$$ d,,-,--.55666666>>??'?<$$$$$$ ,,%--5-55v6666>>?II $$$$'''?7>>666666555-.-5---%--,%e ,,$ $@2jI]{!??'?'<<$<$$%$%%%-%--5-5u..6.6676777?7??'?'<<$<$$%$%%%-%--5-5u..6.6676777?7??'?'<<$<$$%$%%%-%--5--667666.66??--%-%e,,$,$$'$''   **hQ**E+i+$$! $%%# bEEEhh`D76  "(!#@`"E% E*&+'% E!&*'i' E0EE#0̥#%% E*!0 E0`+i+`%J)+%j )* * (je$*` >EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH <&""" ,2"<"><$ " "&""  0 $" "8****&"""""""""< `&< ("""""""""*6""""">>88   (""*:<"">""""""""""""">>>"2"""">""" """  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > *""""">(((>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   >>?LD"6 >>">""""A~>I**<<>6>H$$H$H$AAIAI6>6"> """6"">" >>::>>>     OTS LIGHT REFRACTION,"8 "DEMONSTRATING SNELL'S LAW."B " " D+ "STUDENT MAKES DECISIONS RELATIVE TO"R "THE USE OF VARIOUS PESTICIDES."d RADAR,RADAR "RADAR FAMILIARIZES STUDENTS WITH" "ANGLES FROM 0 TO 359 DEGREES BY HAVING" "THEM INTERCEPT A MISSILE." SNELL,SNELL "SNELL PLAVING STUDENTS TRY TO INTERCEPT"30 "A MISSILE."S NUCLEAR SIMULATION,NUCSIM| "NUCLEAR SIMULATION SIMULATES THE" "COUNTING OF RADIATION FROM NINE" "DIFFERENT RADIOISOTOPES." PEST,PEST "PEST IS A SIMULATION IN WHICH THE"E/ "COLLIDE SIMULATES A COLLISION BETWEEN" C"TWO BODIES." M" " d  DIFFUSION,DIFFUS" "DIFFUSION DEALS WITH THE DIFFUSION"# "RATES OF VARIOUS GASES."$ " "* ICBM,ICBM, "ICBM TEACHES THE COORDINATE SYSTEM" . "BY H23):ZN(ZN$):)&CV1:36,CH:868:I "SCIENCE - VOLUME 2",8e "CELL MEMBRANE",CELLM "CELL MEMBRANE LETS THE USER ROLE PLAY A" "CELL MEMBRANE, REGULATING QUANTITIES OF" "VARIOUS COMPONENTS OF A CELL."  COLLIDE,COLLID:16:280/ ::10:"GETTING THE PROGRAM..."F D$;"RUN ";N$(Q,1)\ CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500ZM:868:CV1(CV3):20:N$(Q,4)  H 23:"DO YOU WANT ANOTHER DESCRIPTION";:868P A$g (A$,1,1)"Y"330 (A$,1,1)"N"ė:280 "PLEASE ANSWER YES OR NO";:1:390 Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;"."(ZN$,1)"E"Ĺ1023,9:::) @QZN:450: J34,15:16: T16:"TYPE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED ";:868 ^490:QZN hQ0QN1380 r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340 |:N$(Q,2):18:N$(Q,N$(T,0) T5268P N11T((N3)4)T((N((N1)2)1)2)((N1)2)ĺe T((N1)2)Ģ5l T 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 "490 ,ZN$"D"330 630 #16368,0 (! dZM24/ xN$(24,4)E D$;"NOMON,C,I,O"S 1023,123b ::255:l T$,N 1:20(T$)2 T$ 2:11:"AVAILABLE PROGRAMS" 5 T1N:2TN1Ė20 C04 N$(T,C) C T10ĺ" "; T" "D HELLO!VERSION: 2.0.4:LAST UPDATE: 5/4/81@T(C) MECC 1980Z :e 22016wD$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,0 J1(16384)128:J127J132JJ1:J400      LL LAUNCH FROM THE CENTER OF"::"YOUR RADAR SCREEN AS SOON AS YOU TYPE"::"IN THE DIRECTION YOU WANT IT TO GO."&::"DIRECTIONS ARE MEASURED CLOCKWISE"::"FROM NORTH IN DEGREES. THAT MEANS"::"IF YOU WANT THE SAM TO GO EAST, TYPE"::"90, IF YOU R"::"SCREEN AS A FLASHING BLIP MOVING"::"TOWARD THE CENTER."::"YOU MUST GUIDE A SURFACE-TO-AIR"::"MISSILE (SAM) TO THE ICBM BEFORE IT"::"REACHES THE CENTER OF THE RADAR"::"SCREEN AND BLOWS YOU TO BITS."35000 4q"YOUR SAM WIONG-RANGE RADAR SCANS HAVE PICKED UP"::"A SOVIET INTER-CONTINENTAL BALLISTIC"::"MISSILE (ICBM) HEADING YOUR WAY."::"YOUR JOB IS TO SHOOT DOWN THE ICBM"::"BEFORE IT REACHES ITS TARGET."350004@"THE ICBM WILL APPEAR ON YOUR RADAU." 35000:43000( INSTRUCTIONS@6:16:"R A D A R"12:"WOULD YOU LIKE INSTRUCTIONS? ":12:30:"";Y$:Y$(Y$,1):Y$"Y"Y$"N"Ģ14:"PLEASE ANSWER YES OR NO.":5020" ": CTRL L TO CLEAR SCREENY$"N"ı4u"LD22:COOMOFFCO0($ S2(PHI)2400Z8 S1PHI32ĕSAMSX,SY:COUNTOMĕICBMIX,IYhL 36IX,IYV S1PHI63ĕ37IX,IY` K1DE::t S2CX,CY~ " ": CTRL L CXSXCYSY2140 8:"FANTASTIC!! WE KNEW WE COULD"::"COUNT ON YOORIZED BY A NUCLEAR BLAST."-35000:43000?KSTARTDE:USXCXSYCY2140}S1S2S279:SHS1:COCO1:STARTD2SH32SHSH32:2270S2SH1(SH31)32 SHCX,CY:S2CX,CY (COOMCOOMOFF)S1PHI32ĕICBMIX,IY:STARTSTARTH32120? STARTSTARTD2:CHARBSHEAD$HEAD$(CHAR):2100u STARTSTARTD2:HEAD$(HEAD$,1,LNGTH1(LNGTH0))4STARTSTARTD2:17:33:HEAD$;" "HKSTARTDE:::1680\S2CX,CYp6245010:1:"OOPS! YOU HAVE JUST BEEN"::"VAP8)2120}CHARCRHEAD(HEAD$):HEAD((HEAD360(HEAD360))360.05):HEAD$"":12:33:HEAD;" ":17:33:" ":STARTDECHARCRHEAD(90HEAD)RAD:DXSV(HEAD):DYSV(HEAD):(BETA)11910,2120STARTSTARTD2:LNGTH(HEAD$):CHARBSLNGTTEMP)(SXCX)PI:BETA0BETABETA2PI^v(SXCX).25(SYCY).25BETAHEAD(HEAD0)2PIBETA(16BETAPI2):BETA32BETABETA32STARTDE(KEY)1282120CHAR(KEY)128:FLAG,0:STARTSTARTD2D2:CHARCRCHARBS(CHAR48CHAR5S2(BETA)STARTDE:(SXIX)(SXIX)(SYIY)(SYIY)362220h 01(S2BETA)2(SHBETA)1960,1860,1900 DSAMSX,SY:SAMSXDX,SYDY:SXSXDX:SYSYDY:(SXIX)(SXIX)(SYIY)(SYIY)362220 XTEMP(CYSY)(SXCX.001) bSTARTDE:1960'lBETA(1760G COOMCOOMOFFĕICBMIX,IY:STARTSTARTD22:COOMOFFCO0Y S2PHI1840 ICBMICBM35:ICBMIX,IY:CO0:1840 COOMĕICBMIX,IY ICBMIXXINC,IYYINC:CO0:IXIXXINC:IYIYYINC:STARTSTARTD2:(IXCX)1(IYCY)12140< &34:0:4:28:270:4:38:90:7:33:180? T11:31:"HEADING"r h15:33:"NEW":16:31:"HEADING":17:32:"?"~ |FLAG,0    BEGIN RADAR SWEEP  SH132:START1:S2SH1:COCO1:S232S2S232 SHCX,CY:S2CX,CY ICBMHI32PHIPHI32( (REVS15((1)5)2G <XINCIXREVS:YINCIYREVS] dIXCXIX:IYCYIYv SXCX:SYCY:HEAD$"" SV90REVS(1)2 33CX,CY:32:33CX1,CY1:0 34CX,CY 1CX,CY ,SAMSX,SY( @234,10234,44:214,27254,27:1:5000   CONSTANTSC BS8:CR13:CX97:CY96:D210:DE30{ FLAG16368:FP128:KEY16384:OFF2:OM3:PI3.14159 RAD57.29578:SAM35    INITIALIZATION  PHI(1)2PI:IX90(PHI):IY90(PHI) PHI(16PHIPI2):P PROGRAM: RADAR7 LAST UPDATE: 7/21/80=\ GRAPHICS VERSION OF ICBMw TODD BAILEY 7/18/80}:::16302,0:8191:D$(4)8D$;"PR#0":D$;"BRUN PRINT":251,1:D$;"BLOAD RADARB,A17920"232,0:233,70:1:0:3 !! ! ! ! ! !!!!!!!!!   ox<@}~??|_Oox?g}xG[ow{o3_}?go?~o@|?p>{m?_}v{?ppx?X_~zoo>{k/?{~?~>{o7owo}z~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqo88`}~?~~gox?O}x~[w{o5}?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~g?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}ygxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnO0?~}~?_qwlw`\o>>@ox?a@}xx\wo6A?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv_??`@?`@?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? }xcw_w{/7}?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv?G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o"" " " " " """""""""