' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 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*`-LX1101242:0:5X,118:3:5X2,118:XYQ0:ME4,E5:XE41146:3:2X,118:0T2X,118:3:14X2,118:0:14X2,118V3:15X4,118:0:15X4,118:X0:5126,118:3:2114,118ZE12:E2126:E3118:E4114:E5118:M2:@0:511,Y:0`7X,Y:X>c3:5E420,118:E15:E2E420:E3118:Pl0:5110,118]m2E4,E5nX0220E44:3:7X110,100:3E4X,110:0p7X110,100:3E4X,110:Xq3:3E4X,110:M3:E4E4X:E5110r3:5X110,110:E15:E2X110:E3110:118:M2:p0:ME4,E5Fq3:XE41006:2X,118:0:2X,118:3ts14X2,118:0:14X2,118:3:15X4,118u0:15X4,118:w5110,118:3:2100,118:E15:E2110:E3118:E4100:E5118:M2:X0:5110,118_Y100:X110E4262:3:7XR1:XE4E4362:15X,Y5:0:15X,Y5:3:XA0:5X1,Yo3:2X,Y:E15:E2X1:E3Y:E4X:E5Y:M2:0:5110,118X110:Y1181101:3:4X,Y:04X,Y:XX4:Y3:478,110:E14:E278:E3110: RE1124:E2118:E35:E4114:E5,Y:0'5X,Y:Y10(Y10)XX6:YN3:5134,150:E15:E2134:E3150:`0:5110,118s(1).904005ME4,E5X110:Y1181402:3:5X,Y:2E4,Y:05X,Y:2E4,Y:Y10(Y10)XX6E4E46:E425XĂY3:5X,Y:X1X206" B4500,5000,6000,7500,7500@ B1R1R0:9075:11000_ B1B2İ9075:10000:300w 9078:10000:11000 510 :(21):"A MACKINAW TROUT IS IN FRONT OF YOU,":A9$"MACKINAW TROUT":25010:5110,118X110:Y1181502:3:5X0:9050:10000:CC15:9150:300;B4İ9070:10000:300K10000:300:(21):"YOU SEE A RAINBOW TROUT IN FRONT OF YOU":501 :(21):"YOU FIND A DOLLY VARDEN VERY NEAR":A9$"DOLLY VARDEN" 40000:12000 A2506,2506,2506,2506,2580,25CC5:9150:300,10000:CC5:9150:300:B5520V8000:9100:10000:300{:21:"ALONG COMES A CHUB":501:21:"IN YOUR VICINITY IS A BLUEBACK SALMON,":4000012000:A4505B4000,5000,9080,7020,8000 B1B2B5İ900A530,520,530,530,510,5109B4000,5000,9050,7000,8000oB1B2B5İ9000:9050:10000:CC15:9150:300B4İ9100:10000:C0:30010000:300B4000,5000,9030,7020,9040 B1B2İ9000:10000:CC5:9150:300 B4İ9070:10000:S11:355 -S116( 6S(6(1)1)7 @S21S11H JSS(S2)310P TS2` YS(S1)S:S1i ^S11y cS1650000 dAS(S1)300 hS(S1)500,1000,1500,2000,3000,2500 :(21):"YOU FIND YOURSELF CLOSE TO A WHITEFISH" 40000:12000"AS A":300005 Z142:Z28:Z$A$" YOU CAN":30000` Z15:Z216:Z$"1 ESCAPE DEEPER":30000 Z224:Z$"2 ESCAPE SHALLOW":30000 Z232:Z$"3 IGNORE IT":30000 Z216:Z1140:Z$"4 EAT IT":30000 Z224:Z$"5 CHASE IT":30000 301 ,S120,60H Z15:Z2100:Z$"THE FISH YOU ENCOUNTER WILL LOOK LIKE ":30000 2110,126:(21):"IN REAL LIFE THE FISH ARE DIFFERENT" "SIZES. YOUR JOB IS TO DISCOVER THE":"ACTUAL SIZE OF THE FISH.":10000 ::3:1:0:11,55:21 Z15:Z28:Z$INAW TROUT","DOLLY VARDEN". :X1A:A$:X< X19241 D$(4):D$"NOMON C":::10:" TRAVELING TO ODELL LAKE..." 8164:232,0:233,64:1:3:0 D$;"BLOAD SCENES ":: Z15:Z220:Z$"AS A "A$" YOU WILL LOOK LIKE":30000 51 CHOOSE THE"& 7"OPTIONS BY NUMBER."S <:"THE FISH YOU CAN CHOOSE FROM ARE:":v P:X16:A$:" "X". "A$:X :"WHICH FISH DO YOU WANT TO BE ";:A$ A(A$) A1A610 "WHITEFISH","CHUB","BLUEBACK SALMON","RAINBOW TROUT","MACKX1(600):600,0:S(6)9 C0:::Z$""::X1960"YOU WILL BECOME A FISH. AFTER HAVING":"BEEN EACH FISH, YOU SHOULD KNOW""THE RELATIONSHIPS BETWEEN THE FISH.": 3"YOU WILL BE GIVEN 5 OPTIONS TO DECIDE":"WHAT TO DO IN A SITUATION.          RUN HELLO"40:400010 FZM:868:CV1(CV23):ZN(ZN$):I JCV1:36,CH:868:b END OF PROGRAM t D$(13)(4)| : 10:"DO YOU WANT TO TRY" 12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"740 !4D$;"(37)13B$:B1$(B$,1,1):B1$"Y"B1$"N"4030g24:"YES OR NO PLEASE";:CV:36,CH:868:4010r:5:@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006 CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:400190&B "IT HAS JUST GOT TO BE QUARTZ"0L 2400[V "OLIVINE IS THE NAME OF YOUR MINERAL"e` 3000pj 43000 SPACE BAR ROUTINE 24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; 16384,128:16368,0::CH(36):CV; 4000#(B$,1,1)"N"2310K"WELL IT HAS GOT TO BE TOURMALINE"U2400s " YOUR MINERAL IS BERYL"} 2400 "DOES IT FORM SEPARATE GRAINS (SUGARY"::"TEXTURE), AND HAVE AN":$ "OLIVE GREEN COLOR";. 40008 (B$,1,1)"Y"23EEN AND HAS A SUGARY TEXTURE"::"ANSWER NO TO THIS QUESTION)";I4000a(B$,1,1)"N"2230" THE MINERAL IS APATITE"2400"CAN IT SCRATCH GLASS AND BE"::"SCRATCHED BY QUARTZ";4000(B$,1,1)"Y"2330"IS IT JET BLACK"$,1,1)"N"2170:4"DOES IT HAVE A BRIGHT YELLOW COLOR";D>4000\H(B$,1,1)"N"2150oR"IT'S SULFUR"y\2400f"I AM PROUD TO TELL YOU ITS KAOLINITE"p2400z"CAN YOU SCRATCH IT WITH A NAIL"::"(IF YOUR MINERAL IS OLIVE-":?"GR"L""D""S" "P")"A"2"R"I"GET THE MESSAGE"S2400"YOUR MINERAL IS EITHER CORUNDUM OR TOPAZ""(HINT: CORUNDUM WILL SCRATCH TOPAZ)" 2400"CAN YOU SCRATCH IT WITH YOUR"::"FINGERNAIL"; 4000*(B0:(B$,1,1)"Y"1880/D"IT'S FLOURITE."9N2400`X"IT'S THAT FANTASTIC HORNBLENDE."jb2400l"CAN IT SCRATCH GLASS AND BE"::"SCRATCHED BY QUARTZ";v4000(B$,1,1)"N"2040"GUESS WHAT IT IS. IT IS: ""F""E"DOES IT BUBBLE WITH H.C.L.(ACID)";,4000D(B$,1,1)"N"1780f" IF IT BUBBLED ITS CALCITE"p2400" IT HAS GOT TO BE HALITE"2400"CAN YOU SCRATCH IT WITH A NAIL";4000(B$,1,1)"N"1900&"IS IT BLACK";0400@(B$,1,1)"N"1630&J"*M*I*C*A*"0T2400L^"DOES IT FEEL GREASY";Vh4000nr(B$,1,1)"N"1680||"^TALC^"2400"IT'S GYPSUM."2400"CAN YOU SCRATCH IT WITH A"::"COPPER COIN";4000(B$,1,1)"N"1800""ET STREAK AND IS CINNABAR"$2400G"DOES IT SHOW GOOD CLEAVAGE";Q4000i(B$,1,1)"N"2070"CAN YOU SCRATCH IT WITH YOUR"::"FINGERNAIL";4000"(B$,1,1)"N"1700,"DOES IT BREAK INTO TRANSPARENT"::"SHEETS";640002400>"IT HAS A LIGHT BLUE STREAK AND IS"::"AZURITE"H2400"DOES IT HAVE A RED OR ORANGE"::"COLOR (YES NOR NO)";4000(B$,1,1)"Y"1500"MY OPINION IS THAT YOUR MINERAL IS"::"SPHALERITE"2400"IT HAS A SCARLON"::"A STREAK PLATE";"24000:<(B$,1,1)"N"1520vF"DOES IT HAVE A GREEN OR BLUE"::"COLOR (YES OR NO)";P4000Z(B$,1,1)"N"1450d"DOES IT HAVE A BLUE-GREEN STREAK";n4000x(B$,1,1)"N"1430"*****MALACHITE*****"CK & IS PYRITE."2400P"IS IT GREY OR BLACK IN COLOR"::"(YES NO NO)";Z4000r(B$,1,1)"Y"1300"YOUR MINERAL IS HEMATITE" 2400"YOUR MINERAL IS MAGNETITE & STREAKS"::"BLACK"2400("DOES IT LEAVE A COLORED MARK 0U"I AM SORRY BUT YOU HAVE EITHER"::"EXAMINED YOUR MINERAL INCORRECTLY OR ARE"}"USING A MINERAL I DO NOT KNOW.":3000:43000"BRASS COLORING";4000(B$,1,1)"N"1250"YOUR MINERAL STREAKS GREENISH TO"::"BROWINSH BLATHE MINERAL IS CHALCOPYRITE"&$2400D."DOES IT STREAK COPPER";N84000fB(B$,1,1)"Y"1120L"YAHOO! ITS LIMONITE"V2400`"WOW!!! YOUR MINERAL IS COPPER"j2400t"CAN IT BE SCRATCHED BY GLASS";~4000(B$,1,1)"Y"120N"1020"IS IT GREEN";%4000=(B$,1,1)"Y"1000y"WE HAVE JUST DISCOVERED YOUR MINERAL"::"IS AZURITE"2400"YOUR MINERAL IS MALACHITE!!!"2400"DOES IT STREAK GREENISH BLACK";4000(B$,1,1)"Y"1070"EPOSIT OF"::"GRAPHITE IN YOUR HAND"]f:"(IN OTHER WORDS YOUR MINERAL IS"::"GRAPHITE)"gp2400z"CAN IT BE SCRATCHED BY A NAIL";4000(B$,1,1)"N"1140"DOES IT STREAK GREEN OR BLUE"::"(YES OR NO)";4000(B$,1,1)"(B$,1,1)"N"890e "YOUR MINERAL SHOULD BE GREY OR BLACK IN"::"COLOR ";A$;". NOW TO GO ON":*"DOES IT HAVE A CUBIC CLEAVAGE";44000>(B$,1,1)"N"860H"EUREKA YOUR MINERAL IS GALENA!!!"R2400%\"WE HAVE JUST DISCOVERED A DTEEL NAIL";20);"GLASS" ,? 0"QUARTZ";20);"STREAK PLATE"k ::"COPPER COIN"20)"HYDROCHLORIC ACID"w D3000:}  "DOES YOUR MINERAL HAVE A"::"METALLIC LUSTER"; 4000 (B$,1,1)"N"1320 "CAN IT MARK PAPER ";A$; 4000X15ĺ2X;". ";B$:X5(X5)ĺ' 1 3000\ "REMEMBER ALWAYS ANSWER YES OR NO TO" :"EVERY QUESTION, OTHERWISE I GET": "MIXED UP!!":: "YOU WILL BE USING THE FOLLOWING ITEMS:" !: &"PAPER";20);"FINGERNAIL" ' +"SE,MALACHITEX  MICA,OLIVINE,PYRITE,QUARTZ,SPHALERITE,SULFUR,TALC,TOPAZ,TOURMALINE," "^  "THE NEXT PAGE IS A LIST OF THE 29 "::"MINERALS I CAN DETECT." 3000 3:X115:A1$,B$ X6ĺ" "; 2X1;". ";A1$; 20:X5ĺ" ";! :"TO HELP YOU FIND OUT WHAT KIND OF":L |"MINERAL YOU ARE EXAMINING.":R } ~APATITE,AZURITE,BERYL,CALCITE,CHALCOPYRITE,CINNABAR,COPPER,CORUNDUM,FELDSPAR,FLOURITE GALENA,GRAPHITE,GYPSUM,HALITE,HEMATITE,HORNBLENDE,KAOLINITE,LIMONITE,MAGNETIT A L S":14D 14:868:"WHAT IS YOUR FIRST NAME? ";A$:A$""150J s ,4:"DO YOU NEED INSTRUCTIONS?";C$: @(C$,1,1)"Y"370 J(C$,1,1)"N"540 T"YES OR NO" ^300 h **INSTRUCTIONS** r"O.K. ";A$;". THIS IS A PROGRAM"( t  PROGRAM: MINRLS7 LAST UPDATE: 7/1/80=Z2 COPYRIGHT MECC 1979ud MINRLS 7/16/79 FPn AUTHOR: STEVE WOODWARD/ALEXANDRIA, MNx ASSOCIATED PROGRAMS AND FILES: NONE::255:ZM1 10:13);"M I N E R          I)(DB(2I)21)48ƝDB(2I1)(.875D1(2I)(R).5)Y˝DB(2I1)(DB(2I1)36)3.6`НIuڝNN1:N640150{Pù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Qí(16384)12750001Rñ BRK(2I1)P180B8KA(2I)(.5K(2I)(R).5)TKA(2I)(KA(2I)21)4yKA(2I1)(.875K(2I)(R).5)KA(2I1)(KA(2I1)36)3.640400D1(2I1)040410RD1(2I1)P180BDB(2I)(.5D1(2I)(R).5)DB(2)"˝DB(2I1)(DB(2I1)36)3.6)НI>ڝNN1:N640150DPù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Qí(16384)12750001Rñ 2750001Rñ F40150 6(R).5)%KA(2I)(KA(2I)21)4JKA(2I1)(.875K(2I)(R).5)rKA(2I1)(KA(2I1)36)3.6:40400D1(2I1)040410RD1(2I1)P180B:DB(2I)(.5D1(2I)(R).5)DB(2I)(DB(2I)21)4ƝDB(2I1)(.875D1(2I)(R).56:40400DD2(2I1)040410UNRD2(2I1)P180B:DL(2I)(.5D2(2I)(R).5)q]DL(2I)(DL(2I)21)4bDL(2I1)(.875D2(2I)(R).5)gDL(2I1)(DL(2I1)36)3.6:40400vK(2I1)040410 RK(2I1)P180B:KA(2I)(.5K(2I)(.875D1(2I)(R).5)8˝DB(2I1)(DB(2I1)36)3.6?НIIڝNN1X䝭N640150^Pù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Qí(16384)12750001Rñd2750001RñdSI)(.5K(2I)(R).5)3KA(2I)(KA(2I)21)4XKA(2I1)(.875K(2I)(R).5)yKA(2I1)(KA(2I1)36)3.640400D1(2I1)040410RD1(2I1)P180BDB(2I)(.5D1(2I)(R).5)DB(2I)(DB(2I)21)4ƝDB(2I1),1,3,1,9,1,3,1,0,3,3,3,9,4,2,1,15,4,2,2,15,4,3,4gKhآ24:16368,0:6:"PRESS 'SPACE BAR' TO CONTINUE";Kiح(16384)12755401KjER$((16384)128):16368,0:d3,3,3,4,3,3,3,1,7,3,1^J؃ 9,9,9,9,4,4,4,4,3,3,3,3,1,1,1,1,0,15,15,15,4,4,4,4,3,3,3,3,1,2,2,2J؃ 15,1,4,3,15,1,3,2,15,1,4,3,15,1,3,1,9,1,3,1,0,3,3,1,9,4,3,1,15,4,3,2J ؃ 15,4,2,2,15,4,3,1,15,4,2,2,15,4,3,2,15,4,2,3,15,4,3,1,15,4,2,6,15,4,1,50K!؃ 153,3,3,3,3QI؃ 2,1,2,1,1,2,15,15,15,15,15,15,1,1,1,1,4,4,2,2,2,2,4,4,3,3,2,1,3,3I؃ 15,1,2,4,15,1,3,1,9,4,3,1,0,4,3,1,9,4,3,1,15,4,3,2,15,4,4,4I؃ 15,4,4,3,15,4,1,4J؃ 15,15,15,15,4,1,1,1,4,3,3,3,1,1,1,1,9,9,9,9,4,1,1,1,4,3,3,3,1,1,1,1,0,0,0,0,4,16);"CORRECT"HCRCR1HرVH؃ HEART,HEAD,GILLS,FIN,STOMACH,MUSCLES,KIDNEY,TAILH؃ 0,9,4,4,4,1,1,1,9,0,4,3,4,1,1,4,15,9,4,1,4,1,3,1,15,15,4,1,1,1,1,2 I؃ 15,15,15,15,15,15,1,1,1,1,4,4,2,2,2,2,4,4,1,3,3,3,1,2,15,15,15,15,15,15,1,1,1,1,4,4,1,Ipp@D3C p@p@p@AJJJJJJK KD4C p@p@pD5C p@p@N@:"SEE IF YOU CAN SURVIVE.":10000:9175O٭(1023)7ĺ(13);(4);"RUN HELLO"UٿOA113(A18(B$)1)B$"":40025FWA18B$(B$,(B$)1):40025VXB$B$(A1)sY23:25:B$" ";ZA23M1140015[A23M940015\40009PÑ:::(10):"YOU MADE IT....FANTASTIC"::"TRY AGAIN AS A DIFFERENT FISH AND"(QúX,R3H(16384)12740020$IXMJ0:MR2,R3:A23R150:R2110:MM8]KA24MM1mLXR2R12M0:MX2,R3:3:MX,R3N(16384)12740020OXP40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5R3:$VPON IT" .5."CHASE IT OUT OF YOUR TERRITORY":b@3:4180,118:B$"":A1$"":E2180:E3118oAMR1,R3}B16368,0C23:"WHAT DO YOU WISH TO DO?"D0:MR1,R3:A23R194:R2130:MM8EA24MM1FXR1R22G0:MX2,R3:3:MRUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000H*9175T.:(21)y.B12005,12007,12009,12012,12014."ATTEMPT TO ESCAPE TO DEEPER WATER":."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND PREY U(R);::" NOTICE IT CHANGES COLOR."@Gغ"WHAT COLOR IS IT NOW";TG؄AN$:QA$"BLUE"wGؗ:(AN$,1,1)(QA$,1,1)55316Gغ15);"INCORRECT"G؁Y1100:RR(16336):Y:Gغ((40((QA$)22))2));"THE CORRECT ANSWER IS ";QA$:Y1500:Y:55318 HغBA=1 FOR ENTER ORGAN, BA=2 FOR EXIT ORGAN, QA$=ANSWER, AN$=INPUTRFؗ:BA255308~Fغ"WOULD THE CELL YOU ARE WATCHING HAVE"F غ"TO TRAVEL TO THE ";::A$(R);:F ؄AN$:QA$"NO"F ث55312F غ"WHEN A BLOOD CELL GIVES UP OXYGEN TO"#G غ"THE ";::A$DINATES AT START; P=COLUMN,P2=ROW/EP29:P28=EׁB0194JEZ1E5(B)SEJZ1bEZ2E5(B1)qEZ3E5(B2)EZ4E5(B3)E׭CB155280Eװ46700:55295ECO15E׭B0COE5(B4)Eװ48000EׂBEرEز SUBROUTINE FOR QUESTIONS@Fز START; P=COLUMN,P2=ROW$DP25:P272D2ׁB0194?DJZ1?HZ2E0(B1)?RZ3E0(B2)?\Z4E0(B3)?^խCB154630?`հ46700:54646@fխB0B4CO>Բ SUBROUTINE BLOOD FROM STOMACH EXIT TO HEART ENTERb>Բ COORDINATES AT START; P=COLUMN,P2=ROWq>P20:P217~>ԁB074>Z1D9(B)>JZ1>Z2D9(B1)>Z3D9(B2)>Z4D9(B3)>ԭCB154500>԰46700:54515>CO15?ԭB0COD9(BCLE EXIT TO STOMACH EXITD=Բ COORDINATES AT START; P=COLUMN,P2=ROWS=P25:P215a=&ԁB0114n=0Z1D8(B)w=:JZ1=DZ2D8(B1)=NZ3D8(B2)=XZ4D8(B3)=ZԭCB154370=\԰46700:54385=bCO15=gԭB0COD8(B4)=l԰48000=qԂB=vԱ6 COORDINATES AT START; P=COLUMN,P2=ROW5Z4D0(B3)4@ЭCB1533204Bа46700:533354HЭB0COD0(B4)4Rа480004WЂB4\б5fв SUBROUTINE BLOOD THROUGH 3jǏ10,12323tǁEE1SS#3~ǂEE.3Ǎ33,1093Ǎ33,12F3ǁEE1SSN3ǂEE\3Ǐ10,1234b3DZ3ϲ SUBROUTINE BLOOD FROM HEART TO GILLS ENTER3ϲ Z1=COLOR OF VEINS, Z2=COLOR OF BLOOD3ϲ Z3=DIRECTION,1=U,2=R,3=D,4=L4ϲ Z4=# OF BLOCKS OF EACH C,13242ƁEE1SS2ƂEE%2ƍ25,902ƍ25,13=2ƁEE1SSE2ƂEER2Ə9,1326X2Ʊu2Ʋ SUBROUTINE DRAW KIDNEY|2Ǡ92Ǐ10,12282ǁEE1SS2ǂEE2$Ǎ29,102.Ǎ29,1228ǁEE1SS2BǂEE2LǏ10,12302VDZ2`Dz SUBROUTINE DRAW TAIL3eǠ91ŁEE1SS1łEE1ō14,6(1ƍ14,1051 ƁEE1SS=1ƂEEJ1 Ə6,1015P1*Ʊn14Ʋ SUBROUTINE DRAW STOMACHu19Ơ91>Ə7,15191HƁEE1SS1RƂEE1\ƍ20,71fƍ20,151pƁEE1SS1zƂEE1Ə7,15211Ʊ1Ʋ SUBROUTINE DRAW MUSCLES1Ơ92Ə90ŁEE1SS0&łEE00ō10,8(0:ō10,1350DŁEE1SS=0NłEEJ0Xŏ8,1311P0bűk0lŲ SUBROUTINE DRAW HEADr0qŠ90vŏ10,1230ŁEE1SS0łEE0ō4,100ō4,120ŁEE1SS0łEE0ŏ10,1250ű0Ų SUBROUTINE DRAW FIN0Š90ŏ6,1013 /ă 0,11,8,4,0,4,8,2,0,13,8,0,-1,-19/ă 0,22,8,2,-1,-1?/ı[/IJ SUBROUTINE DRAW HEARTb/Ġ9p/ď12,1613}/āEE1SS/ĂEE/č14,12/č14,14/č14,16/āEE1SS/ĂEE/ď12,1615/ı/Ų SUBROUTINE DRAW GILLS/ Š9/ŏ8,139 ,0,-1,-1%.ă 0,1,8,0,0,34,8,0,-1,-1J.ă 0,2,8,1,0,24,8,2,0,5,8,0,-1,-1w.ă 0,4,8,1,0,19,8,2,0,2,8,1,0,3,8,0,-1,-1.ă 0,6,8,0,0,15,8,2,0,7,8,0,0,2,8,0,-1,-1.ă 0,7,8,1,0,9,8,3,0,11,8,1,0,0,8,0,-1,-1.ă 0,9,8,1,0,4,8,2,0,0,8,2,0,13,8,1,-1,-1$,7,8,0,0,2,8,0,-1,-1A-ă 0,4,8,1,0,19,8,2,0,2,8,1,0,3,8,0,-1,-1f-ă 0,2,8,1,0,24,8,2,0,5,8,0,-1,-1-ă 0,1,8,0,0,34,8,0,-1,-1-ă 0,0,8,0,0,34,8,0,-1,-1-ă 8,0,0,34,8,0,-1,-1-ă 8,0,0,34,8,0,-1,-1-ă 8,0,0,34,8,0,-1,-1.ă 0,0,8,0,0,34,850312 ,hĠC,rĎS,SPA&,|SSP1-,ĂB4,ĂAM,IJ DATA FOR FISH BODYb,ă 0,13,8,6,-1,-1w,ă 0,12,8,6,-1,-1,ă 0,11,8,6,0,19,8,0,-1,-1,ă 0,9,8,1,0,4,8,2,0,17,8,1,-1,-1,ă 0,7,8,1,0,9,8,3,0,11,8,1,0,0,8,0,-1,-1-ă 0,6,8,0,0,15,8,2,0+B21ĠCO+B21ĠJ-+\Z31čP,P21?+Z32čP1,P2Q+$­Z33čP,P21c+­Z34čP1,P2r+H1S9:Hz+PÂB2+ñ+IJ SUBROUTINE TO PLOT FISH BODY+"IJ C=COLOR, P= # OF SQUARES+,Ĉ+1Į+6āA021+@S0+JāB19+TćC,P,^ĭC147700*PP1*TP,P2!*B1'*K* SUBROUTINE TO PLOT BLOOD FLOWX*仁B21Z4g*Z24Z22o*HZ2*Z348400,48600,48800,49000*P2P21*t49100*ؽPP1*<49100*P2P21*49100*hPP1*̿P,P2+0T0P14P21549900N$):)JCV1:36,CH:868:2)END OF PROGRAMD)D$(13)(4)J)Z) :R$"Y"Ĭn)4D$;"RUN HELLO") SUBROUTINE TO PLOT VEINS)lZ1)жB11Z4)4Z347000,47200,47400,47600)P2P21)47700)`PP1)ĸ47700)(P2P21*OPTION #1."(#/120719($/9);"VERY POSITIVE RESPONSES"J('/55400:6000`(@CH(36):CV(37)(AZN$:(ZN$)(((ZN$)))40003(B(ZN$)0ZN$"0"40006(CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001)FZM:868:CV1(CV23):ZN(ZO MUSCLE EXIT6'.54270: MUSCLE EXIT TO STOMACH EXIT_'/54400: STOMACH EXIT TO HEART ENTERz'/54530: THROUGH HEART'/W212062'/11670'/:CR412068'/"SINCE YOU DID NOT ANSWER ALL FOUR"' /"QUESTIONS CORRECTLY YOU SHOULD RUN" ("/"$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$TIME SOON."O24:"PRESS SPA54270: MUSCLE EXIT TO STOMACH EXITM&.54400: STOMACH EXIT TO HEART ENTERX&.12050&.53880: MUSCLE ENTER TO KIDNEY ENTER&.BA1:W2R6İ55301&.R6İ55180: THROUGH KIDNEY&.BA2:W2R6İ55301&.R7İ54010 '.54140: KIDNEY EXIT T2İ55301%w.12050%|.53620/%.R411940D%.BA1:W2İ55301O%.54920d%.BA2:W2İ55301o%.54400z%.12050%.53750: STOMACH ENTER TO MUSCLE ENTER%.R511990%.BA1:W2İ55301%.55050: THROUGH MUSCLE%.BA2:W2İ55301$&..53350: THROUGH GILLS'$A.W211850P$B.:"WHAT COLOR IS OXYGENATED BLOOD";j$D.AN$:QA$"RED":55312z$J.R111870$T.54660: THROUGH HEAD$Y.12050$^.53490: GILLS EXIT TO FIN ENTER$h.R311900$m.BA1:W2İ55301$r.54790 %t.BA2:W"# .W211810#.(24)G#."PRESS 'E' TO END THIS DEMONSTRATION.";R#".55401d#,.ER$"E"6000#6.53230: HEART TO GILLS#7.W211840#8.:"DOES EACH BLOOD CELL TRAVEL DIRECTLY TO"#:."THE GILLS FROM THE HEART";#;.AN$:QA$"YES":55312$@"-55050"-55180"-9"- RANDOMLY DETERMINE ORGAND"-R(1)W"-R((1)101)j"-R7R211690p"-y"-CB2"-16368,0:"PRESS 'SPACE BAR' TO SEE A BLOOD CELL""."FLOW FROM THE HEART TO THE GILLS TO THE"# .:A$(R);::" TO THE HEART. DRAW BODY!<-B18M!>-B50340,50540,50440,50640,50740,50840,50940,51040T!@-B_!-53230z!-53350: THROUGH GILLS!-53490!-53620!-53750!-53880!-54010!-54140!-54270!-54400!-54530!-54660!-54790!-54920 LY BACK TO THE HEART. THE 'OTHER"( ,V -"ORGAN' CAN VARY WITH EACH CYCLE OF THE"\ - -"BLOOD CELL. TO SEE A BLOOD CELL" -:16368,0 (-"COMPLETE SEVERAL CYCLES, PRESS" )-:"'SPACE BAR'."; *-55401 -- .-SS0 0-CB1 !2-50200:ION.";X,55401.`,54920: THROUGH STOMACHWj,54400: STOMACH EXIT TO HEART ENTERrt,54530: THROUGH HEARTx~,,55400,,,"THE BLOOD ALWAYS FLOWS FROM THE HEART",,"TO THE GILLS, TO ONE OTHER ORGAN AND"," ,"FINAL0: GILLS EXIT TO FIN ENTERC$,53620: FIN ENTER TO STOMACH ENTERI.,8,16368,0:"PRESS 'SPACE BAR' TO SEE THE BLOOD CELL"B,"(WHICH IS NOW RED) GO FROM THE STOMACH"L,"TO THE AURICLE SECTION OF THE HEART"V,"AND THEN TO THE VENTRICLE SECTENTER +54530: THROUGH HEART2+22:16368,0a+"PRESS 'SPACE BAR' TO SEE THE BLOOD FLOW"+"FROM THE HEART TO THE GILLS AND THEN TO"+"THE STOMACH.";+55401,CB2,53230: HEART TO GILLS ENTER,53350: THROUGH GILLS,5349RAW HEART!+50440: DRAW GILLS;+50740: DRAW STOMACHW+53230: HEART TO GILLSr+53350: THROUGH GILLS+53490: GILLS EXIT TO FIN ENTER+53620: FIN ENTER TO STOMACH ENTER+54920: THROUGH STOMACH+54400: STOMACH EXIT TO HEART D, IT" *7+"TRAVELS TO ONE OF THE OTHER ORGANS,"= +i+"SUCH AS THE STOMACH. WHEN THE BLOOD"o +*+"CELL REACHES THE STOMACH, IT PROVIDES"4+>+"OXYGEN TO THE STOMACH."H+55400h+k+CB1p+50200: DRAW BODY z+50340: DS CARRYING CARBON"l*Ev*"DIOXIDE. THE GILLS REMOVE THE CARBON"K*v*"DIOXIDE, AND PROVIDE THE BLOOD CELL"|**"WITH OXYGEN. WHEN THIS HAPPENS, THE"**"BLOOD BECOMES RED.*55400**"ONCE THE BLOOD HAS BEEN OXYGENATE A BLOOD CELL":"MOVE FROM THE HEART TO THE GILLS.";:55401D)CB2O)S9100Z)53230c)S90i)t)55400z&*0*:*"BLOOD MOVING FROM THE VENTRICLE SECTION"D*N*"OF THE HEART TO THE GILLS IS BLUE"X*b*"IN COLOR BECAUSE IT IODY PARTS."")24:16368,0L,)"PRESS 'SPACE BAR' FOR A DEMONSTRATION.";W@)55401]L)hO)SS500T)50200: DRAW BODY^)50340: DRAW HEARTh)50440: DRAW GILLSr)53230: HEART TO GILLS|)23)16368,0;)"PRESS 'SPACE BAR' TO SEE THE CIRCULATORY SYSTEM."M("GILLS OR LUNGS-GIVE OXYGEN TO THE BLOOD"|(" AND TAKE CARBON DIOXIDE FROM";(" THE BLOOD."(("FROM THE GILLS OR LUNGS THE OXYGENATED"("BLOOD GOES TO THE ORGANS AND OTHER" ("B(:"VENTRICLE";::"."(O("AURICLE - RECEIVES LOW OXYGEN BLOOD FROM ";|(" THE BODY AND SENDS IT TO THE"(" VENTRICLE."("VENTRICLE-PUSHES THE BLOOD TO THE GILLS"(" OR LUNGS AND THEN THROUGHOUT"(" 400 x((=("IN AN ANIMAL WHICH HAS A TWO-CHAMBERED"j("HEART, THE CHAMBER WHICH RECEIVES THE"("BLOOD IS CALLED THE ";::"AURICLE";::" AND THE"("CHAMBER WHICH SENDS THE BLOOD THROUGH"("THE CIRCULATORY SYSTEM IS CALLED THE"'54270: MUSCLE EXIT TO STOMACH EXITO(54400: STOMACH EXIT TO HEART ENTERj (54530: THROUGH HEART(54660: THROUGH HEAD(54790: THROUGH FIN((54920: THROUGH STOMACH2(55050: THROUGH MUSCLE<(55180: THROUGH KIDNEYF(P(55OUGH GILLS/'53490: GILLS EXIT TO FIN ENTERW'53620: FIN ENTER TO STOMACH ENTER'53750: STOMACH ENTER TO MUSCLE ENTER'53880: MUSCLE ENTER TO KIDNEY ENTER'54010: KIDNEY ENTER TO KIDNEY EXIT'54140: KIDNEY EXIT TO MUSCLE EXIT&0,50840,50940,51040u%B `'&j'0t'(22)\~'"THESE ORGANS, MUSCLES AND BODY PARTS"'"ARE ALL SERVED BY THE CIRCULATORY"'16368,0:"SYSTEM. PRESS 'SPACE BAR' TO SEE IT.";:55401'CB1'53230: HEART TO GILLS ENTER '53350: THRHER BODY PARTS."[P%16368,0:"PRESS 'SPACE BAR' TO SEE THE ";::"HEART";::".";:55401fg%SS200~l%50340: DRAW HEARTm%B17n%::24:16368,0p%"PRESS 'SPACE BAR' TO SEE THE ";::A$(B);r%:".";:55401t%B50540,50440,50640,50741"SYSTEM TO THE VARIOUS ORGANS, MUSCLES"7T"AND OTHER BODY PARTS."_#55400e%&%50200: DRAW FISH BODY0%(22):%"THIS IS THE OUTLINE OF A FISH. WE WILL"D%"NOW ADD SYMBOLS REPRESENTING THE ORGANS,";N%"MUSCLES AND OTY ONE," F;P"SYMBOLS REPRESENTING THE VITAL ORGANS,"AZld"THE MUSCLES, THE HEAD, FIN AND TAIL"rfh"WILL BE DRAWN IN."n55400"YOU WILL THEN WATCH A SINGLE BLOOD CELL""TRAVEL THROUGH THE FISH'S CIRCULATORY""INCLUDE:"+:" SALAMANDERS FISH"M:" FROGS TOADS"::"WE WILL USE THE FISH AS OUR EXAMPLE IN""THIS LESSON."55400("YOU WILL SEE THE OUTLINE OF A FISH"2<"DRAWN ON YOUR SCREEN, AND ONE B0000:WZN W1W461009 W7590,11565,11565,43000? n "IN THIS LESSON YOU WILL LEARN ABOUT THE"t  "CIRCULATORY SYSTEM IN ANIMALS WHICH"  "HAVE TWO CHAMBERED HEARTS."  :"ANIMALS WITH TWO CHAMBERED HEARTS" : A TWO-CHAMBERED"= :" SYSTEM SUCH AS THAT OF A FISH."g :"3) SEE A DEMONSTRATION OF BLOOD" :" CIRCULATION IN A TWO-CHAMBERED" :" SYSTEM SUCH AS THAT OF A FISH." :"4) END THE PROGRAM" 23:868:"1, 2, 3, OR 4 ";:4H, HAVE A TWO CHAMBERED HEART."* 554007 p::CR0O z14);"OPTION LIST"U o "WOULD YOU LIKE TO:" :"1) SEE A LESSON ON BLOOD CIRCULATION" :" IN A FISH." :"2) ANSWER SOME QUESTIONS ABOUT BLOOD" :" CIRCULATION IN07 {D9(B) |B! }B019> ~E0(B),E3(B),E4(B),E5(B)E BQ B063\ E1(B)c Bo B023z E2(B) B 5:18:"FISH": 4:"FISH IS A TUTORIAL ON THE"  "CIRCULATORY SYSTEM OF ANIMALS WHICH," `  "LIKE FIS XD8(11),D9(7),E0(19),E1(63)A ZE2(23),E3(19),E4(19),E5(19)N [B1274V \XX] ]Bh ^B07s _A$(B)z `B bB015 cD0(B),D1(B) dB eB011 fD2(B),D3(B),D4(B),D5(B),D7(B),D8(B) gB qB027 rD6(B) sB zBЧC COPYRIGHT MECC 19793 FISH 8/8/79 FPO LAST UPDATE: 6/30/80w AUTHORS:KEN BRUMBAUGH, RICH CRIST ASSOCIATED PROGRAMS AND FILES: NONE<::255::ZM24PD0(15),D1(15),D2(11),D3(11),A$(7) UD4(11),D5(11),D6(27),D7(11)                                         SING","SIMULATION DEALING WITH THE TOPIC OF","'HOW TO LOCATE EARTHQUAKES'."Z$ URSA,URSA%"TEACHES ABOUT THE CONSTELLATIONS.","IT ALSO HAS AN OPTION FOR LEARNING TO","TELL TIME BY THE STARS."PS STUDENTS IDENTIFY 29 MINERALS BY","HAVING THEM PERFORM SIMPLE TESTS.",""c ODELL LAKE,ODELL1"SIMULATES A FOOD WEB IN ODELL LAKE.","THE USER TAKES THE ROLE OF A FISH AND","TRIES TO SURVIVE." QUAKES,QUAKESJ"A TUTORIAL AND PROBLEM SOLV:KUSER DATA. FIRST LINE FORMAT: DISKETTE #,NAME,NUMBER OF MENU ITEMSf 7,SCIENCE VOLUME 3,5v FISH,FISH"A TUTORIAL ON THE CIRCULATORY SYSTEM","OF ANIMALS WHICH HAVE TWO-CHAMBERED","HEARTS, SUCH AS FISH." MINERALS,MINRLSK"HEL(I)" -"<HJ1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J)MRJ::I:900W\::nSPACE-BAR ROUTINE24:7:16368,0"PRESS ";::"SPACE BAR";::" TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:23: 900:.CS(P(P(999))1)16:SLOT #BCS1CS7CS6LCS:^DISPLAY LOGOJ1300:(16384)128J300J:16368,0:1023,DN: DESCRIPTIONS*:34,1::15:"DESCRIPTIONS":34,4:4I1N:(37)21DLİ900:>MN$ES"İ30000(CN$"YES"ĺD$"RUN"CN$(A);D$"RUN"MN$(A)KXEND OPTIONxb::10:1:"DO YOU WANT TO RUN ANOTHER"lIN11:12:868:"DISKETTE? ";A$:A$(A$,1)vA$"N"ĉ::255::IN(A$"Y"):IN:11:8:"INSERT THE NEW DISKETTE."" PLEASE TYPE A NUMBER FROM 1 TO "N2".";:IN0E hIN:AN2İ600\ rAN1İ800:MENU0f |MENU SEED RANDOM # GENERATOR & CLEAR HGR X(P(78)) 230,32:62450 GET THE PROGRAM ::12:"GETTING "MN$(A)"..." (950)0PR$"Y700! ,RESPOND TO USER'S CHOICED 616303,0:VVVV3:VV22VV22r @IN11:VV:4:868:"WHICH NUMBER? ";A$ JPR$"YES"A$"PR"ĺD$"RUN SET PRINTER OPTIONS" TCA$"YES"A$(1)ĺD$"RUN TEACHER OPTIONS"1 ^A((A$)):A1AN2(A)A$ĢVV2:F2F3C2C21" DISPLAY MENUE MENU11:1:21(DN$)2:DN$f 2:12:"AVAILABLE PROGRAMS" VV5F5:HH1F3((38ML)2):VV:HH I1N2:VV:HH(I10) I" "MN$(I):VVVV1F4F6(IN) F3IC2VV5F5:HH21 I:(1023)DNİJ:I nP(I)(I)(I1)256U xC2((N2)2):F2C2(N2)2:EVEN # OF MENU ITEMS| F3ML17N7:ONE COLUMN, CENTERED F4N7(N17ML18):DOUBLE SPACING F5(N6)(N16)(N15F3):FULL SCREEN F6F3F2:SPACE BEFORE "DESCRIPTIONS" $"NOMON CIO"+ (:::255:0:1:D$"PR#0"M 2DN:(1023)DNČ2054:950,0s <DN$,N:MN$(N2),CN$(N),DE$(N,DL) FMN$(N1)"DESCRIPTIONS":ML12:MN$(N2)"END" PI1N:MN$(I):LM(MN$(I)):LMMLMLLM ZCN$"YES"ćCN$(I) dJ1DL:DE$(I,J):k O%*/49=@C ᷩ?"췩ʎ WRP`eSCIENCE VOLUME 3zHELLO VERS. 4.1LAST UPDATE: 4/29/82 RPB(C) MECC 1982 INITIALIZATIONSDL3:CN$"YES":CA$"NO":PR$"NO" D$(13)(4):D        $$$666---%$$466.---$$$666---%$$466.---$$$666---%$$466.---$$$666---%$$466.---$$$666---%$$466.---$$$6--%??+--?/ $$)-266?%011<$$$--2?5--- ?$)-< $$$?--- $$ 666;?5 $#$ 66- $$$666I$!!!!61111% $$## 63? ??$!!!!??? $$)-266? !!)=$$$>6 ??$!) $;?20)- ') ?? !$$<::2--0)- $;?$--66666666666???????????>??????????????766666666666666666666666>????????<'?<'?<'?<'?$%$'$,$,$,$'$''$$65$$ 66$??%$$$--26;?$,--I ?$$ --$$$--266;?%$$$--;7--/$$$--;7.d)5?$$ -6$$$6.-%$666')=$$$=?. 6) $$,??$$$6 >--#$$$'$$$66666666666666>?7666&?<'''''''''''''''''''''''''''''''''''$$$$$$$$$------------5--------------------$$$$$$$$$<7??>?6?$?????????????????????6666666666666.---------------------------6666-.--..$$---.----5-----.---666666666??????????>???????<'''??6766>6666????????????'$'$$'$<$<$$,$$,????????''<$'''''''??66666666666666666666>????????????6.-6555-.5-....655555555-%%-,,,,#?<<<<<$'<$'$$'<<<'><>>?6?$$7'$'$$?>'$$6>6-6677777/5777/666666>??????????76666666666...............................,-,$$$%-%$$$$ے....6=66?>66.64IIIIIIIIIIIIIIIIIIIIIIIII-5-----.----5---5-????????????????????????????>>>6>?6-5666665655-.-5??666.--6>6555556555566---.....-5-6-5-65555566655665565566.6555555--6NIII$<<<<<&<<<$$''$$$$$$46...--.6-..5566555555555555<<<<<<<<<<<<$$$?<<<<6>?????'????7?????666666.---=-----????????????????7666666666666666666???????????765555-56-......6.555555---,,,$,--?$<<<<<<<'$?''''''<.6??????66???$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$,--------------------????????????????????????????????????????$$$$$$$$$$$$$$$$$-------------------------------------------=??????????????????766666666.-------------------???????????????????7666666666-------------------=???????????????????6666666---------66666--------------=??????????????666666666-------------=????????????????66.---------------$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466-----$$466?IIIIIIIIIIIIIII ,---.------5-----------.------------.--@d> oac q   ! , < J V ` l y  $ 0 6666666666----------$$$$$$$$$$??????????$66.      z#?    Ϡ"ͱ Ե Π̱вӠӠв ϠӠ ȠE ԲԳԴB$,(B$)1):40025"XB$B$(A1):Y(23):25:B$" "IZM240015T[40009fPù600,A:601,CSÒ0:ME4,E5:E1E2,E3:(21)::(4);"RUN ODELLP2"ٺ:(4);"PR#6"Z݀R6384)12740020IX:K0:3210,110:X2101602:M2XM0:2X2,110:3:2X,110qN(16384)12740020OX:40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5110:VA113(A18(B$)1)B$"":40025WA18B$()7,Z2:30050@uZ332300506NuZ31Z1(Z1)7,Z2=buZClu@3:5110,118:B$"":A1$"":E15:E2110:E3118:2160,110:16368,0C(23):"WHAT DO YOU WISH TO DO? ";D0:2160,110EX1622102:M3G0:3X2,110:3:3X,110H(1007,12009,12012,12014@."ATTEMPT TO ESCAPE TO DEEPER WATER":l."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND EAT IT":."CHASE IT OUT OF YOUR TERRITORY":0uZ1(Z$):Z3((Z$,Z,1)) ?uZ364ĔZ344Z1(Z1)'16368,0:24:13:"PRESS SPACE BAR";B'(16384)12710010^'0:E1E2,E3:ME4,E5:*:::9:"REMEMBER A "A9$" WILL"::"EAT A "A$"."*:"NOW RUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000*9175.:21:B12005,12HAVE BEEN SUCCESSFUL":##C30ı]#:::11:"YOU PASSED UP TOO MANY CHANCES AT FOOD":#:" YOU STARVED TO DEATH."#10000#::12:"DO YOU WANT TO TRY AGAIN?";A$#(A$,1)"N"đ:::55555#(A$,1)"Y"Ľ:600,9:5#9175OU ARE GETTING HUNGRY..BETTER EAT":sn#"YOU CAN NOT KILL THIS FISH AND":"YOU USED A LOT OF ENERGY NEEDLESSLY":s#"YOU GOT AWAY FOR THE TIME BEING":v#"NO.....THAT WAS THE WRONG MOVE":x#"GOOD, IT DOES NOT OCCUPY THE SAME NICHE":#"YOU 0,118BEME4,E5:Y118:X1230E42:3:5110X,118:3E4X,118eG0:5110X,118:3E4X,118:XI3:5110X,118:E15:E2110X:E3118:(#"THAT WAS A WASTE OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.":P#"YOU ARE TOO LITTLE":$Z#"Y AGAIN."jD14750Ģ7:" YOU BLEW IT!!!"::"WITH SOME WORK YOU SHOULD BE ABLE TO DO ":"MUCH BETTER."z700:4300024:1:" PRESS 'SPACE BAR' TO CONTINUE";:16368,0(16384)12771016368,0::0uZ1(Z$):uZ3((Z$,Z,114250D14500ĺ"THAT'S NOT BAD, WITH A LITTLE WORK YOU"::"JUST MIGHT TAKE OVER THE SEISMOLOGY"::"DEPARTMENT!"D14500D14750ĺ" YOU DID A FAIRLY GOOD JOB ON THIS ":"PROGRAM BUT YOU COULD STAND SOME"::"IMPROVEMENT. WHY DON'T YOU TRY ITO279O0P159P0610!XO,P+bI1,L4l700IvX10,Y10X1,Y1Q{22"YOU WERE ";:D((X1(X10))2(Y1(Y10))2)(D14);" KILOMETERS OFF"700::::D14250ĺ"THAT'S GREAT!!!"::"A REAL SEISMOLOGIST!!!!"sD15:X(I),Y(I):I:61,155#3700YY10:=YY10:JXX10:WXX10:]d&30:22:"NOW WE WILL LOCATE IT WITH THE THREE ":"STATIONS....";::L13:IO(L):I113603DOX(I)(I157.29)D(I):PY(I)(I157.29)D(I)Nr1:B$"|I14:B$B$(I)410<I:B$(13)I5:410E370`I500,510,520,530,540mI5550}X0XX10X185XX10Y0YY10Y159YY100:2X2,Y2:3:41,1:2X,Y:L13:IO(L):X(I),Y(I):X2X:Y2Y:I16:30000b21,1:X21:Y21NcZ$((D(O(I))))" SECS":Z2I3224:30000:ghI115:X(I),Y(I):jZ$"1 UNIT =":Z1Z117:Z2145:30000:Z$"100 KM<":Z2155:30000m:22:"U- UP D- DOWN L- LEFT R- RIGHT"n9:"PRESS 'RETURN' WHEN DONE" U-UP,",\:"D-DOWN,L-LEFT,R-RIGHT.":700{^:41,1:211,1:X21:Y21:61,155:L13:IO(L):X(I)2,Y(I)X(I)2,Y(I)_X(I),Y(I)2X(I),Y(I)2:L:Z1205:I13:Z$A$(O(I)):O(I)15Z$"SAN FERNAND"`Z2I328:30000aZ$"LAG TIME":Z2I321"YOU WERE QUITE A DISTANCE OFF, LETS TRY":"AGAIN.":700:X21:Y21:X1:Y1:310Y:21:"GOOD, YOU KNOW HOW TO USE THE":"LOCATOR NOW. ":700ZX20:X0:Y0:Y20[::4:" NOW LOCATE EPICENTER OF THE EARTHQUAKE"::"USING THE LOCATOR AND THE KEYS$:A$(13)340"DA$"U"YY105EA$"D"YY10HFA$"R"XX10[GA$"L"XX10mHX279XX10}IX0XX10JY0YY10KY279YY10O0:2X2,Y2:3:2X,YPX2X:Y2YQ312T((90X)2(65Y)2)15345U:21PV1,1) 3M$"Y"346% 4M$"N"305< 6:3:11,1:21,1J 7X21:Y21U 811,1u 9Z$"NEV":Z190:Z265:30000 ;:21:"MOVE THE BOX TO THE STATE OF NEVADA":"USING THE COMMANDS U-UP,R-RIGHT,L-LEFT":"D-DOWN PRESS RETURN WHEN DONE."; =@A"S WAVE IS THEN RECORDED FOR "(I2)" SECONDS."` I2I1,75I2I14,H:I2I14,HI2I17,75:I2 D(I)1.12,1D(I)1.12,159 700: "L ,I14:B$(I)::3 1::3:"HAVE YOU USED THE EPICENTER LOCATOR":"BEFORE?";M$:M$""305 2M$(M$,21:1:"P WAVE IS RECORDED FOR "I1" SECCONDS.":L H175:H2((1)20)20b I2D(I).12H27v H((1)70)40 H100H50200 H75H175200 H75H175200 H1H 1:21:"P WAVE IS RECORDED FOR "(D(I))" SECONDS.". 23:1:):I dU nL13:IO(L):Z$"REPORT FROM THE "A$(I)" STATION":Z10:Z210:30000y xD(I)((X1X(I))2(Y1Y(I))2) 32:6216,15:0:60,155 I11D(I)4 H((1)20)65 I11.12,75I11.122.24,H:I11.122.24,HI11.124.38,751 3 CHEYENNE,55,64,RENO,105,56,SALT LAKE,152,65,DENVER,56,105,LOS ANGELES,102,110,PHOENIX,149,95,SANTA FE,69,115,SAN DIEGO < 78,139,SAN FERNANDO,U,D,L,R FI13:O(I)((1)15)1:I PO(1)O(2)O(1)O(3)O(2)O(3)70 ZI115:X(I),Y(I),A$(I PROGRAM: QUAKEP28 LAST UPDATE: 7/1/80>D NZM24pX1((1)200):Y1((1)159)X(16),Y(16),A$(16),B$(4),D(16),O(3)2 53,7,SEATTLE,111,19,HELENA,179,17,BISMARCK,43,22,PORTLAND,82,35,BOISE,182,33,PIERRE,153,52{      868:CV1(CV23):ZN(ZN$):6JCV1:36,CH:868:K END OF PROGRAMS:q 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ/D$(13)(4)4D$;"RUN HELLO"4)))?uZ360ĔZ344Z1(Z1)7,Z2:30050:@uZ33230050RNuZ31Z1(Z1)7,Z2YbuZ_luu@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM: WAVES TRAVEL THROUGH THE ":"EARTH AT AN AVERAGE SPEED OF 4.1 KM/SEC."y:"HOW MANY KM WOULD AN S(SECONDARY) WAVE"?:"TRAVEL IN "X" SECS. (ROUNDED TO THE "::"NEAREST KILOMETER)?";:V1(36):V2(37):"";T$DT(T$):(T(X4.1)).5630I:Q,79Q2,L9:Q2,L9Q4,79:w0160,100150,100:150,100150,110:150,110160,110:160,110160,120:160,120150,120510X,110X,159:32:5210,15:0:50,1557980::::"FINDING THE EPICENTERS OF EARTHQUAKES*":6:34,5:35,24K9" SECONDARY "8+"WATER WAVES. (THEY VIBRATE UP AND DOWN.) ":980,:22:"THIS IS WHAT SECONDARY WAVES LOOK LIKE":"ON A SEISMOGRAPH.":Q1X104:L9((1)20)69-Q,79Q2,L9:Q2,L9Q4,79::Q10X10X304.X10,1X10,159:32/L9((1)70)44:"WHAT IS YOUR ANSWER NOW?";T$:T(T$)B(T(X6.1)).5530p8::"WRONG, THE ANSWER WAS "(X6.1.5)y540:8:"RIGHT..LET'S GO ON..."980&:" THE SECOND TYPE OF WAVES ARE CALLED ":"'SECONDARY WAVES'. THESE WAVES ARE LIKESECONDS (ROUNDED TO "Y:"THE NEAREST KILOMETER)?";:V1(36):V2(37):"";T$:T(T$)gT0470V21:V11:"";T$:T(T$):460(T(X6.1)).5530:"(HINT :TO FIND OUT HOW FAR THE WAVES ":"IN "X" SEC, MULTIPLY 6.1 TIMES "X")"(50,11040,110G980::::"*FINDING THE EPICENTERS OF EARTHQUAKES*"[6:34,5:35,24" THE PRIMARY WAVE TRAVELS THROUGH THE ":"EARTH AT AN AVERAGE SPEED 6.1 KM/SEC. ":" HOW MANY KILOMETERS WOULD A P(PRIMARY)-":"WAVE TRAVEL IN "X" 980X((1)9)6[:22:"THIS IS WHAT A P WAVE LOOKS LIKE ON A":"SEISMOGRAPH."|I1X104:L9((1)20)69I,75I2,L9:I2,L9I4,75:10X,110X,159:32:5210,15:0:50,155 40,10040,120:40,10050,100:50,10050,110:" WHEN AN EARTHQUAKE OCCURS, TWO TYPES OF":"SHOCK WAVES ARE SENT OUT IN ALL ":v|"DIRECTIONS FROM THE QUAKE.":" FIRST WE WILL DISCUSS THE PRIMARY OR"::"P WAVE. THESE WAVES ARE LIKE SOUND":"WAVES (THEY VIBRATE BACK AND FORTH). "THE EARTHQUAKE."::p," THE PURPOSE OF THIS SIMULATION IS TO ":"HELP YOU LEARN HOW SEISMOLOGISTS FIND "6"THE EPICENTER OF AN EARTHQUAKE."@980J::90T::"*FINDING THE EPICENTERS OF EARTHQUAKES*"::^34,4:35,24hRrOCCUR ":"ON THE SURFACE BUT REALLY TAKE PLACE "u "UNDER THE SURFACE, THEY ALSO FIND THE ":"EPICENTER."~ 980 : " THE EPICENTER OF AN EARTHQUAKE IS THE ":"LOCATION ON THE SURFACE OF THE EARTH """THAT IS DIRECTLY ABOVE ON. THE"::"STRENGTH OF THE EARTHQUAKE IS MEASURED "p "ON A SEISMOGRAPH IN TERMS OF THE RICHTER":"SCALE."y 980 " THE SEISMOGRAPH IS ALSO USED TO LOCATE ":"WHERE THE EARTHQUAKE OCCURRED. HOWEVER, "7 "SINCE MANY EARTHQUAKES DO NOT UT THE VERY SEVERE ONES IN THE ":{ "PAPERS. PEOPLE WHO STUDY AND RECORD ":"EARTHQUAKES ARE CALLED SEISMOLOGISTS." 980 " IN RECORDING EARTHQUAKES, SEISMOLOGISTS":"RECORD TWO FACTORS; THE STRENGTH OF THE "6 "EARTHQUAKE AND ITS LOCATI$! xA(A$):A(A)A3A1904 A140,340,960[ :2:10:"**AN EXPLANATION**"::l 34,3:35,24t : " EARTHQUAKES ARE A FAIRLY COMMON"::"OCCURRENCE IN THE WESTERN PART OF THE "" "UNITED STATES, EVEN THOUGH WE ONLY READ ":"ABO50:" ":10:14((1)2):A$:20P GI510:C$~ P20:I59:" ":10::A$"QUAKE":C$"S": Z:2:"DO YOU WANT" d:" 1. AN EXPLANATION,"::" 2. A LESSON, OR"::" 3. A 'QUAKE'" n17:"TYPE 1, 2, OR 3?";A PROGRAM: QUAKES8 LAST UPDATE: 3/29/82S COPYRIGHT MECC: 1980Yc 8154k:(4);"NOMON I,O,C":(10:17:"QUAKES"2(4);"BLOAD QUAKEM1":232,0:233,64:0:1:3<C$" ":A$"QUAKES":L12@ F10:15:A$:I1     ":"KM/SEC, IN 16 SECONDS A P-WAVE TRAVELS ":"ABOUT 100 KM."::" IF AN S-WAVE TRAVELS ABOUT 4.1 KM/SEC, ":"IT WOULD TAKE ABOUT 24 SEC TO TRAVEL 100":"KILOMETERS."980?" USING THIS KNOWLEDGE, WE CAN SEE THAT ":"IF THE 'LAG TIME' BETW SECONDARY WAVES, THE WAVES DO ":"NOT REACH A DISTANT POINT AT THE SAME ""TIME. THE AMOUNT OF TIME FROM RECORDING":"THE P-WAVE UNTIL THE S-WAVE IS"::"ENCOUNTERED IS KNOWN AS THE LAG TIME."B980::" GIVEN THAT P-WAVES TRAVEL AT ABOUT 6.1 6404v:3:"THERE STILL MIGHT BE HOPE FOR YOU!!!"=980:" WHEN AN EARTHQUAKE OCCURS, BOTH"::"P(PRIMARY) AND S(SECONDARY) WAVES ARE ""SENT OUT IN ALL DIRECTIONS. HOWEVER ":"SINCE THE PRIMARY WAVES TRAVEL FASTER "M"THAN THET0ĢV21:V11:"";T$:580pN:"(HINT :TO FIND THE DISTANCE IT WOULD":"TRAVEL IN "X" SECONDS, MULTIPLY "XX"TIMES 4.1)"::"WHAT IS YOUR ANSWER NOW?";T$:T(T$):(T(X4.1)).5630b:"THAT IS NOT CORRECT, THE ANSWER WAS "(X4.1.5)lıX:D1(2I)Y:50200!ĭX050250("ĂI2JNN1ATĭN650010_^N(1)128:N(2)83:N(3)132|hN(4)87:N(5)132:N(6)83rN(7)128:N(8)87|āA122DB(A)1:DL(A)1:DR(A)1KA(A)1:CE(A)1ĂAıĂAıLE(A)1ĂA ,343,23,5,32,10,38,2.5,38,5,32,-100, -100 =PN1IZÁI113RdÇX,YqnôN50080,50070,50060,50050xD3(2I1)X:D3(2I)Y:50200C(2I1)X:C(2I)Y:50200D2(2I1)X:D2(2I)Y:50200K(2I1)X:K(2I)Y:50200D1(2I1)57,29.5,261.5,34,269,31.5,-100,-100j$' 0,5,20,8,35,12,26 ,14,40,18,50,16,35,12,-100,-100.' 277,13,288,24,298 ,33,311,28,311,20,277,13,-100,-10058' 96,21,84,20,58,26 ,40,31.5,29,31.5,21,28,11,25 :Bh"I WILL NOW SHOW YOU THESE AND"::"OTHER CONSTELLATIONS."Q34,23:24o(4);"BLOAD CHAIN, A520"520"PART2"' 63,40,70,35,77,3 4,87.5,33,93,37,107.5,34,107 ,28,87.5, 33,-100,-100 #' 242,27,250,30,2MED SHAPES OR PICTURES.":E ""THESE GROUPS OF STARS WERE CALLED":n ,"** C O N S T E L L A T I O N S **"t 6 @"YOU MAY BE FAMILIAR WITH SOME": J"CONSTELLATIONS. HAVE YOU HEARD": T"OF THE 'BIG DIPPER' AND THE 'LITTLE":^"DIPPER'?" BY LOOKING AT THE STARS?"$ (21)J "TO LEARN MORE ABOUT THE STARS,"w :"PRESS ";::"SPACE BAR";::16368,0 (16384)127230 : (2) "VERY LONG AGO, ANCIENT ASTRONOMERS ": "IDENTIFIED GROUPS OF STARS WHICH": "FOR Y$"3"Č520"PART4"4 (13);(4);"RUN HELLO"< :E (9)r "FOR CENTURIES, STARS HAVE BEEN USED": "BY SAILORS AS A NAVIGATIONAL AID.":: "DID YOU KNOW THAT WITH A LITTLE": "PRACTICE YOU CAN ALSO LEARN TO TELL": "TIMETHE STARS,":" 3) LEARN TO TELL TIME BY THE STARS, OR";:" 4) END":t "TYPE 1, 2, 3, OR 4 ?";Y$:Y$"1"ė:140 Y$"2"Y$"4"Ģ22:"PLEASE ENTER 1, 2, 3, OR 4.":16:868:133 Y$"4"138 (13);(4);"BLOAD CHAIN,A520":Y$"2"Č520"PART3"(8)+ iDB(24),DL(24),DR(26),KA(24),CE(24): s::255:V u(13);(4);"NOMON C":| x(3):10);"WELCOME TO THE STUDY" :14);"OF THE STARS" 50000F 9:"WOULD YOU LIKE TO"::" 1) LEARN ABOUT CONSTELLATIONS,":" 2) SEE THE ROTATION OF 2 COPYRIGHT MECC 1979 URSA 9/7/79 FP AUTHOR: HUGH COLLET, NSF COMPUTER INSTITUTE, MACOMB COUNTY INTERMEDIATE SCHOOL DISTRICT ASSOCIATED PROGRAMS AND FILES: PART2, PART3, PART4, PART5, CHAIN dD1(25),D2(24),D3(26),K(24),C(24),N      :40400!DD2(2I1)0404109NRD2(2I1)P180B[XDL(2I)(.5D2(2I)(R).5)w]DL(2I)(DL(2I)21)4bDL(2I1)(.875D2(2I)(R).5)gDL(2I1)(DL(2I1)36)3.6l40400vK(2I1)040410RK(2I1)P180BKA(2DR(2I1)(.875D3(2I)(R).5)DDR(2I1)(DR(2I1)36)3.6O40400eC(2I1)040410|RC(2I1)P180B&CE(2I)(.5C(2I)(R).5)+CE(2I)(CE(2I)21)40CE(2I1)(.875C(2I)(R).5)5CE(2I1)(CE(2I1)36)3.60H1H112 B2B13653601LL1365360AHH124360OP3.14159dB(B2LH)P180nœH1H0v̜N1֜I112N40360,40310,40260,40210,40170RD3(2I1)P180BDR(2I)(.5D3(2I)(R).5)DR(2I)(DR(2I)21)4#CE(2Q)1CE(2Q1)1,CE(2Q2)1(VQ8VP1022290?WPEWs@A$"MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB"JI112T(A$,I32,3)B$40040^IhA$"345011041072102133164194225255286317"rB1((A$,I32,3))|H0H1:C$"AM"4008DR(2Q)1DR(2Q1)1,DR(2Q2)1,V22260CVKA(2Q1)022270nVKA(2Q1),KA(2Q)KA(2Q1),KA(2Q2)VKA(2Q1)1,KA(2Q)1KA(2Q1)1,KA(2Q2)1V22260VCE(2Q1)022270VCE(2Q1),CE(2Q)CE(2Q1),CE(2Q2)!VCE(2Q1)1,Q2)8}VDB(2Q1)1,DB(2Q)1DB(2Q1)1,DB(2Q2)1CV22260ZVDL(2Q1)022270VDL(2Q1),DL(2Q)DL(2Q1),DL(2Q2)VDL(2Q1)1,DL(2Q)1DL(2Q1)1,DL(2Q2)1V22260VDR(2Q1),DR(2Q)DR(2Q1),DR(2Q2)!VDR(2Q1)1,OCE(2I1),CE(2I)CE(2I1),CE(2I)2CE(2I1)2,CE(2I)2CE(2I1)2,CE(2I)CE(2I1),CE(2I)j.OIq8ONwBOUP1022110TVP15^VQ111hVP22130,22160,22190,22210,22240rVDB(2Q1)022270|VDB(2Q1),DB(2Q)DB(2Q1),DB(2)DR(2I1),DR(2I)2DR(2I1)2,DR(2I)2DR(2I1)2,DR(2I)DR(2I1),DR(2I)\N20270sNKA(2I1)020280OKA(2I1),KA(2I)KA(2I1),KA(2I)2KA(2I1)2,KA(2I)2KA(2I1)2,KA(2I)KA(2I1),KA(2I)O20270OCE(2I1)020280c$)2DB(2I1)2,DB(2I)2DB(2I1)2,DB(2I)DB(2I1),DB(2I)JN20270aNDL(2I1)020280NDL(2I1),DL(2I)DL(2I1),DL(2I)2DL(2I1)2,DL(2I)2DL(2I1)2,DL(2I)DL(2I1),DL(2I)N20270NDR(2I1)020280QNDR(2I1),DR(2IE NORTH STAR." =34,24:248 @(13);(4);"RUN URSA"N 22000:50000:: NN(1),N(2)N(3),N(4)N(5),N(6)N(7),N(8)N(1),N(2) NN15 NI112 NN20130,20160,20190,20220,20250 NDB(2I1)020280?NDB(2I1),DB(2I)DB(2I1),DB(2I SEE HOW IS THIS DONE";% 16368,0= (16384)1271170E :p "DRAW AN IMAGINARY LINE OUT FROM THE" "TWO STARS ON THE END OF THE BIG DIPPER." 5 DB(13),DB(14)N(1),N(2)  50000  22:"THIS LINE PASSES THROUGH TH127X1 3$ (X2)(X2)Ē4[ N(1),N(2)N(3),N(4)N(5),N(6)N(7),N(8)N(1),N(2)e XX1u Y1271120~ 955 `16368,0 a::22 j"IT IS IMPORTANT TO BE ABLE TO FIND" t"THE NORTH STAR." "PRESS ";::"SPACE BAR";::" TO IS URSA MAJOR, THE 'BIG DIPPER'"/ fP1:30007 22d "THERE IS ONE OTHER STAR ON THE SCREEN" "CALLED POLARIS OR THE 'NORTH STAR'" "(IT IS BLINKING)" 24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; 16368,0 Y(16384):YRACED OUT."; O16368,01 P(16384)127592: X6:] v"THIS IS 'DRACO THE DRAGON'."k P3:3000 "THIS IS CASSIOPEIA" P4:3000 "THIS IS CEPHEUS" P5:3000 *"THIS IS URSA MINOR, THE 'LITTLE DIPPER'" 4P2:3000! \"THIS!B$"MAY":L122:H18:C$"PM"340000:50000;:M34,20:35,24S&}0"LOOKING INTO THE SKY SOME EVENING,":"YOU MIGHT SEE A SCENE LIKE THIS."?3::20000D"PRESS THE ";::"SPACE BAR";::" TO SEE THE" N"CONSTELLATIONS T     )21)4-DR(2I1)(.875D3(2I)(R).5)UDR(2I1)(DR(2I1)36)3.6:40400kC(2I1)040410RC(2I1)P180B:CE(2I)(.5C(2I)(R).5)+CE(2I)(CE(2I)21)40CE(2I1)(.875C(2I)(R).5)5CE(2I1)(CE(2I1)36)3.(A$,I32,3)):H0H1:C$"AM"400800H1H112eB2B1365360:LL1365360:HH124360:P3.14159B(B2LH)P180:H1H0:N1֜I112N40360,40310,40260,40210,40170RD3(2I1)P180B:DR(2I)(.5D3(2I)(R).5)DR(2I)(DR(2I"THAT IS NOT A NUMBER - TRY AGAIN";:30010:30001Z6uZM:868:CV1(CV23):ZN(ZN$):s:uCV1:36,CH:868:@A$"MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB"JI112:(A$,I32,3)B$40040^I#hA$"345011041072102133164194225255286317":B1(A(2Q2)1:22260(VCE(2Q1)022270SVCE(2Q1),CE(2Q)CE(2Q1),CE(2Q2)VCE(2Q1)1,CE(2Q)1CE(2Q1)1,CE(2Q2)1VQVWP:0uCH(36):CV(37)1u"";ZN$:(ZN$)(((ZN$)))300032u(ZN$)0ZN$"0"3000623uZM:)1,DL(2Q)1DL(2Q1)1,DL(2Q2)1:22260WVDR(2Q1),DR(2Q)DR(2Q1),DR(2Q2)VDR(2Q1)1,DR(2Q)1DR(2Q1)1,DR(2Q2)1V22260VKA(2Q1)022270VKA(2Q1),KA(2Q)KA(2Q1),KA(2Q2)VKA(2Q1)1,KA(2Q)1KA(2Q1)1,K15UQ1114hVP22130,22160,22190,22210,22240KrVDB(2Q1)022280v|VDB(2Q1),DB(2Q)DB(2Q1),DB(2Q2)}VDB(2Q1)1,DB(2Q)1DB(2Q1)1,DB(2Q2)1:22260VDL(2Q1)022270VDL(2Q1),DL(2Q)DL(2Q1),DL(2Q2),VDL(2Q1(2I1),KA(2I)KA(2I1),KA(2I)2KA(2I1)2,KA(2I)2KA(2I1)2,KA(2I)KA(2I1),KA(2I)jO20270OCE(2I1)020280$OCE(2I1),CE(2I)CE(2I1),CE(2I)2CE(2I1)2,CE(2I)2CE(2I1)2,CE(2I)CE(2I1),CE(2I).OI8ON:UP(2I1),DL(2I)2DL(2I1)2,DL(2I)2DL(2I1)2,DL(2I)DL(2I1),DL(2I)XN20270oNDR(2I1)020280NDR(2I1),DR(2I)DR(2I1),DR(2I)2DR(2I1)2,DR(2I)2DR(2I1)2,DR(2I)DR(2I1),DR(2I)N20270NKA(2I1)020280_OKAN(8)N(1),N(2)!NN15:I112FNN20130,20160,20190,20220,20250]NDB(2I1)020280NDB(2I1),DB(2I)DB(2I1),DB(2I)2DB(2I1)2,DB(2I)2DB(2I1)2,DB(2I)DB(2I1),DB(2I)N20270NDL(2I1)020280MNDL(2I1),DL(2I)DL ROTATION";:1' 6:P20:22000:1410; :::16368,0q 6:868:"DO YOU WANT TO PICK ANOTHER DATE ?";Y$ (Y$,1)"Y"160 (Y$,1)"N"ĺ(13);(4);"RUN URSA" 20:"PLEASE ENTER YES OR NO.":1500 NN(1),N(2)N(3),N(4)N(5),N(6)N(7),(16384)1271490* H1H11:H125H11B H2H21:H213H21d H21C1$"AM"C1$"PM":1430 H21C1$"PM"C1$"AM":L2L21 40000:3::20000 :21:B$;" ";L2;" AT ";H2;C1$;:868 24:1:"PRESS ";::"SPACE BAR";::" TO STOP THEH2H1:L2L1:C1$C$::h .21:"HERE ARE THE STARS AS THEY WOULD APPEAR":"AT ";H1;C$;" ON ";B$;" ";L1 640000:3::20000:6:22000 :"PRESS ";::"SPACE BAR";::" TO SEE THE STARS ROTATE";:16368,0 (16384)127431 n16368,0: D YOU LIKE?";:30000:L1ZN:L131L11L1(L1)Ģ22:"ENTER AN INTEGER FROM 1 TO 31.":10:210v 15:"WHAT HOUR?"; 30000:H1ZN:H1(H1)H112Ģ22:"ENTER AN INTEGER BETWEEN 1 AND 12":230 18:"AM OR PM";:958:C$:C$"AM"C$"PM"250 "HOW":"YOU HOW THE STARS WILL LOOK EACH HOUR."::] "TYPE IN THE FIRST 3 LETTERS OF THE": 9:"MONTH YOU WOULD LIKE";:868 B$ A$"MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB" X112:(A$,X32,3)B$210 X:190_ ::"WHAT DATE WOULZZM24:::fn:"THE STARS SEEM TO ROTATE ABOUT THE"::"NORTH STAR IN A COUNTER-CLOCKWISE":"DIRECTION.":::"EVERY HOUR, THE STARS ROTATE 1/24TH":"OF THE WAY AROUND.":2250000:2 ::"IF YOU PICK A DATE AND TIME, I WILL S      5CE(2I1)(CE(2I1)36)3.6+:40400BDD2(2I1)040410ZNRD2(2I1)P180B|XDL(2I)(.5D2(2I)(R).5)]DL(2I)(DL(2I)21)4bDL(2I1)(.875D2(2I)(R).5)gDL(2I1)(DL(2I1)36)3.6l40400vK(2I1)0404105)DR(2I)(DR(2I)21)4DDR(2I1)(.875D3(2I)(R).5)eDR(2I1)(DR(2I1)36)3.6p40400C(2I1)040410RC(2I1)P180B&CE(2I)(.5C(2I)(R).5)+CE(2I)(CE(2I)21)40CE(2I1)(.875C(2I)(R).5)rB1((A$,I32,3)).|H0H1:C$"AM"40080;H1H112MB2B1365360LL1365360:HH124360:P3.14159:B(B2LH)P180:H1H0:N1̜N1֜I112N40360,40310,40260,40210,40170RD3(2I1)P180BDR(2I)(.5D3(2I)(R).Q1),CE(2Q)CE(2Q1),CE(2Q2)SVCE(2Q1)1,CE(2Q)1CE(2Q1)1,CE(2Q2)1ZVQiVP522290pWPvW@A$"MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB"JI112:(A$,I32,3)B$40040^IhA$"345011041072102133164194225255286317"Q1),DR(2Q)DR(2Q1),DR(2Q2)SVDR(2Q1)1,DR(2Q)1DR(2Q1)1,DR(2Q2)1^V22260uVKA(2Q1)022270VKA(2Q1),KA(2Q)KA(2Q1),KA(2Q2)VKA(2Q1)1,KA(2Q)1KA(2Q1)1,KA(2Q2)1V22260VCE(2Q1)022270 VCE(2Q1)0222707|VDB(2Q1),DB(2Q)DB(2Q1),DB(2Q2)j}VDB(2Q1)1,DB(2Q)1DB(2Q1)1,DB(2Q2)1uV22260VDL(2Q1)022270VDL(2Q1),DL(2Q)DL(2Q1),DL(2Q2)VDL(2Q1)1,DL(2Q)1DL(2Q1)1,DL(2Q2)1V22260 VDR(22,KA(2I)KA(2I1),KA(2I)'O20270>OCE(2I1)020280$OCE(2I1),CE(2I)CE(2I1),CE(2I)2CE(2I1)2,CE(2I)2CE(2I1)2,CE(2I)CE(2I1),CE(2I).OI8ONBOUP15^VQ111hVP22130,22160,22190,22210,22240 rVDB(21),DL(2I)N20270,NDR(2I1)020280NDR(2I1),DR(2I)DR(2I1),DR(2I)2DR(2I1)2,DR(2I)2DR(2I1)2,DR(2I)DR(2I1),DR(2I)N20270NKA(2I1)020280OKA(2I1),KA(2I)KA(2I1),KA(2I)2KA(2I1)2,KA(2I)2KA(2I1)250NDB(2I1)020280NDB(2I1),DB(2I)DB(2I1),DB(2I)2DB(2I1)2,DB(2I)2DB(2I1)2,DB(2I)DB(2I1),DB(2I)N20270NDL(2I1)020280 NDL(2I1),DL(2I)DL(2I1),DL(2I)2DL(2I1)2,DL(2I)2DL(2I1)2,DL(2I)DL(2I(A1$)0A3$"PM"ĺ"THAT'S CLOSE, HOWEVER THE ANSWER IS 1PM.";:3060g "WRONG, THE ANSWER IS 1PM."x 50000::: :(4);"RUN PART5" NN(1),N(2)N(3),N(4)N(5),N(6)N(7),N(8)N(1),N(2) NN15 NI112NN20130,20160,20190,20220,20)(X2)Ē4, DB(11),DB(12)DB(13),DB(14)6 XX1F Y1272015P 1975^ 16368,0 :21:"ACCORDING TO THE STARS, WHAT TIME IS IT?" "WHAT HOUR";:A1$ "AM OR PM";:A3$ *:21 A1$"1"A3$"PM"ĺ"RIGHT!!":3060F (A1$)3 D:3:0 v20000:6:22000:34,20:35,24:{ "THE HAND OF THE CLOCK IN THE SKY":"IS THE PAIR OF STARS IN THE END" "OF THE BIG DIPPER.":24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; 16368,0 Y(16384):Y127X1 3:(X2"8AM"" 8:2);"5PM";37);"7AM"< 10:"6PM";38);"6AM"Z 13:2);"7PM";37);"5AM"x 15:4);"8PM";35);"4AM" 17:7);"9PM";32);"3AM" 18:10);"10PM";28);"2AM" 19:15);"11PM";23);"1AM" 20:20);"12" &40000: 050000RS RATHER"+ T:"THAN 12 AND THE NUMBERS"I ^:"GO IN REVERSE ORDER."v h::"TO SEE A PICTURE OF THIS CLOCK,": 50000:: 20);"12" 16);"1PM";23);"11AM" 11);"2PM";28);"10AM" 7);"3PM";32);"9AM" (6):4);"4PM";35); d:eH1(0)5B$"MAY":L116:H18:C$"PM"r:"HOW DO WE TELL TIME BY"::"WATCHING THE STARS?"::""FIRST, IMAGINE A BIG CLOCK IN THE SKY.",:"THE NORTH STAR IS THE"6:"CENTER OF THE CLOCK."@: J"THE CLOCK HAS 24 HOU     RECT!!!"R980::90\:10:" EARTHQUAKE DETECTED"::"STANDBYE FOR DATA...."t(4);"RUN QUAKEP2"24:" PRESS 'SPACE BAR' TO CONTINUE";:16368,0(16384)12799016368,0:: CORRECTED BY SD (5/7/80)C100 KM FURTHER AWAY. AN EASY" "WAY TO FIND THE DISTANCE IS TO MULTIPLE":"THE 'LAG TIME' BY 12.5."::"WHAT DO YOU FIND NOW?";Y$:Y(Y$)*YX12.51Y12.5X18404:"IT WAS 12.5 TIMES "X" OR "12.5X" KM AWAY">850H:10:"THAT IS COR^" IF THE LAG TIME WAS "X" SECONDS, HOW FAR"::"FROM THE EPICENTER WOULD YOU BE";:Y$vY(Y$):Y0ė:750 Y1X12.5Y1X12.5840" NO, REMEMBER THAT FOR EVERY 8 SECONDS ":"OF 'LAG TIME', THE EPICENTER IS AN ":"ADDITIONAL EEN THE ARRIVAL OF":"THE P AND S WAVES, AT THE SEISMOGRAPH ""STATION IS 8 SECONDS, THE EPICENTER OF ":"THE EARTHQUAKE IS 100 KM AWAY."X((1)102)8980" REMEMBER IF THE LAG TIME IS 8 SECONDS, ":"THE STATION IS 100 KM AWAY."ZE343049J:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"V)1023,9^*: DWOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"g :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022Z31ĺ(4);"RUN URSA"Pù16368,0:24:6:"PRESS ";::"SPACE BAR";::" TO CONTINUE";YQí(16384)12750001aR×: I50001tR×: ( OR NO";:868A$(A$,1,1)"Y"ĺ(4);"RUN URSA"(A$,1,1)"N"43050:"PLEASE ANSWER WITH YES OR NO":43005W "V(37)/A"";ZN$:(ZN$)(((ZN$)))40003LB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM::(13);(4);"RUN URSA"@:"INDICATED ON THE CLOCK IN THE SKY.":"MOVING 17 HOURS IN A CLOCKWISE"::"DIRECTION FROM 1 PM, WE GET A TIME OF "::"8 PM."50000"THEREFORE, FOR OUR DATE AND STAR "::"POSITION, IT IS 8 P.M."@50000J43000'@CH(36):C4, WE DO NOT HAVE TO SUBTRACT"$ = "ANYTHING FROM IT."H 50000 "AS A FINAL STEP, WE SUBTRACT OUR NUMBER"::"FROM THE NUMBER ON THE CLOCK IN THE SKY." 9:"WE DO THIS BY MOVING 17 HOURS IN A "::"CLOCKWISE DIRECTION FROM THE TIME"&"SINCE THE 16TH OF MAY IS IN THE LAST"::"OF THE MONTH, WE ADD 1 TO THE 16 TO "m :"GET A RESULT OF 17."x 50000 "IF THE NUMBER IS GREATER THAN 24, WE "::"SUBTRACT 24 FROM IT.": 12 "SINCE OUR NUMBER, 17, IS NOT GREATER"::"THAN 2RY IS 2, ETC.,"- F"MAY IS MONTH NUMBER 5."5 K10q P:"WE MULTIPLY THE MONTH NUMBER BY 2 "::"AND ADD 6." Z20:"IN OUR CASE, 5 X 2 + 6 = 16" d50000 n"IF THE DATE IS IN THE LAST HALF OF THE"::"MONTH, WE ADD 1 TO THIS NUMBER."P x9:\ 7:"LET'S ASSUME THAT IT IS MAY 16TH AND "::"THAT WE JUST SAW THE STARS POINTING TO " :"1 PM. WITH THAT INFORMATION, WE CAN "::"TELL THE REAL TIME." (50000 <4:"FIRST, WE NEED THE NUMBER OF THE MONTH."::"SINCE JANUARY IS 1, FEBRUAF" " THE MONTH, ADD 1."R ::"3. IF THIS RESULT IS GREATER THAN 24, "j " SUBTRACT 24." ::"4. MOVE THIS MANY HOURS CLOCKWISE FROM" " THE TIME SHOWN BY THE STARS" 50000 4:"NOW WE WILL TRY A SAMPLE COMPUTATION."c:::255:ZM24D2:"BELOW IS THE FORMULA FOR COMPUTING ":"ACTUAL TIME, GIVEN THE POSITION OF THE "::"STARS AND THE DATE"::"1. MULTIPLY THE MONTH NUMBER BY 2 AND"" ADD 6." ::"2. IF THE DATE IS IN THE 2ND HALF O      膢 ȱ " <67 L  8ij v vo>*:"NOW FOOD ":R#"AND USED YOUR ENERGY WASTEFULLY."::" YOU STARVED TO DEATH."c#10000:9175#"WHY CHASE FOOD AWAY?"##"THAT'S RIGHT!":#"YOU CAN'T SURVIVE ON THAT TYPE OF FOOD.":##:12:"DO YOU WANT TO TRY AGAIN?";A$U CAN NOT KILL THIS ANIMAL AND":"YOU USED A LOT OF ENERGY NEEDLESSLY.":ss#"YOU GOT AWAY FOR THE TIME BEING.":v#"NO.....THAT WAS THE WRONG MOVE.":#"YOU HAVE BEEN SUCCESSFUL.":#C30ı#:::(10):"YOU PASSED UP TOO MANY CHANCES AT 180,118:X1801002:3:11X,1006x0:11X,100:XGy3:11X,100Xz10000:9175{(#"YOU WASTED ALOT OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.":Z#"YOU ARE GETTING HUNGRY...BETTER EAT"[#d#"YOU GOT AWAY THIS TIME...":In#"YO2:3:MX,E5:4180X1,118:08vMX,E5:4180X1,118GwX1X12:Xzx3:4180X1,118:E14:E2180X1:E3118:E460:2A4(100(1))205702d0:ME4,E5:X1001702:3:19X,100:0i19X,100:j"AN OTTER WILL EAT A FISH.""n0:4168,106:XE42202:3:10X,Y3<Z0:10X,Y3:X:10000j[:::10:"AN OSPREY WILL EAT A "A$".":\"TRY AGAIN":10000:91750:ME4,E5M9:XE41003:3:MX,E5:0:MX,E5:XE4120:5715p0:4180,118qX10uXE460D0:4180,118FX118@IY1801681:3:4Y,X:0:4Y,XMJXX1:Y_L3:4168,106~MA23E14:E2168:E3106:NM8E41705790OM95800P0:8E4,E5SX(168E4)10:Y6070:3:8E4X,YU0:8E4X,Y:E4E4X:Y!X0:4$"CAUGHT BY A FISHERMAN.":10000.9175b::::(13):"THIS WAS PART OF A FISH TRAP":"YOU WERE CAUGHT....TRY AGAIN.":10000:9175|0:4180,118~X18017023:16X,93:0:16X,93:X3:4170,118:E14:E2170:E3118:118:3:5180,118*E15:E2180:E3118:<0:4180,118XXE2702:3:16X,93k0:16X,93:X100((1))11550073:4X,114:E14:E2X:E3114:A2250110:1730,50:3:1830,50:"WITH THE INSECTS WAS A HOOK. YOU WERE",Y:0:4X,Y:XX2:Y' 3:4168,106D A24100(1)1193050] E14:E2168:E3106: "YOU DID NOT MAKE IT THIS TIME":5710 0:4180,118 X180:Y1181402:3:5X,Y:0 5X,Y:XX4:Y 3:5X,Y:E15:E2X:E3Y:0:4180,00 A20& B1İ9100:10000:300< 9060:10000:300i :21:"NEAR THE SHORELINE IS AN OTTER," R194:R2110:R395:A23:M11:40000:12000 B4000,6450,6450,6500,6500 9100:10000:300 0:4180,118 X180:Y1181101:3:4X7 :21:"AT THE SURFACE LIES SOME ANIMAL PLANKTON,"S R160:R2100:R394:M13j A22:40000:12000x R51:505 :(21):"YOU SEE AN OSPREY CLOSE TO THE SURFACE," A24 R1100:R2200:R360:M9:40000:12000 B4000,3000,5700,5700,57,6000) R50:B4İ9100:C0:10000:300P B3İ9050:CC5:10000:9150:300x B5İ9170:CC10:10000:9150:300 9000:9050:CC10:10000:9150:300 DB4000,3000,4500,5500,6000 FB3İ9173:10000:300 GB4İ9174:10000:300 N524S11 JSS(S2)310 TS2- YS(S1)S:S16 ^S11F cS1450000d hS(S1)500,1000,1500,2000 :(21):"YOU SEE WATER INSECTS AHEAD OF YOU," R160:R2100:R390:A21:M12:40000:12000 A520,520,520,520,580,580 B4000,3000,4500,5000V  :(21)A(600)'C(601)8X1A:A$:# "WHITEFISH","CLUB","BLUEBACK SALMON","RAINBOW TROUT","MACKINAW TROUT","DOLLY VARDEN"C(326)S(4)E2180:E3118301,S1S11:355-S1146S(4(1)1) @S21       ??$!) $;?2'0)- ') ??? !$$<::2--50)- $;?$--?)- ?7&$ -?$ ??7)- ?& -6-- $$;?2-p@pD1W@pD2C p6.)=$$$=?. 6) $$,?<$$$6 6--#$$$>$$$ 666%$$$.2111$$$> $$)-266??$$$--2>?. $$)-266?%0116$$$--2?56-- ?$)-- $$$?--- $$ 666;?5 $#$ 66% $$$6667$!!!!61111$ $$## 635 ??$!!!!??' $$)-266? !!?)=$$$>- %---.='???>?$'$%$dI5'MI=.$?'?'?<7?>>77??????/-???7?77?77?77?<<<<<7555555-.-.---5------<<<<''/..,--&,47???.555-.-%%-,,,%-,-$/.-%%$ۛIII<$$46666???%$$ 66$??$$$$--26;?$,-.I ?$$ -!$$$--266;?-$$$--;7--$$$--;76d)5?$$ -l$$$6.-%$667>7?<<'<',$%$'$$6666657?>>>?>????65-5-.%%%?=====<>>>777?7?7???$->$56-....6--..55-...-.56-..55555.5-6.666.--%4?$,----.-5--5--.--.-5--.-5--.-.%$,$,$%%$,,,,%-,676?/7?&-,--.-.-.%,,$,%-65>>67.5.5565?>'?<'$''$6.66.6'67777?>??77---.--,,<<<>>????7?''''<--5-.5-.-$'$/$%$%$4?>7??=7?>7?<'?>.6-.555555-6&$?<<|III5'6>>.-577--->>.-577--6>67>><<4766><<455=<<<>66'6?>7-,%-,%,%,%,%,,$%$<$<<$''''''',,...55-*~IIIII!''?<'????>?-$,,,-%--..>>3.65>67.-%-,,$<<<>67?>.655556LIII16-6>76-MII --%$--6.--$,--6&$6.--$d LI-5?-7-*uI!L L1.M)e Lq1-uI L1&d1m &->>>77.%-,-,--%-------.5---%<$,-55-..5%$<$/$%$%,4?7?>???>>>??>???>>>655-.-.&'?'?<<$MI 5/$>6?6?>?>...-%-,%%%%%----%---55----$',66>>>%-5.&'$-,,,,,-6$$<,$$$<$<77>777>.-67?7/,%--?77?>??7>77?>>-6..-%=6-.-55-..5-55--,,%%-,,?>??7$'-----,------%--,,%%%%?>>>?'??>?-MQ-??6--LII 66.--<<<<'.--$-----.----.--------%-,%-,-567>67>6>>>,%,%%,,%-%-%-,%-,%-46?>67777>77>7?>>>7-..-.5-,-,6-..-...??????????>>6>6...%-,,%<$$%%,,$$%%%-,<<$%-,--..555-%-,-5.5..&??<6?7555='??>7.55-&?<6??66..655%-$%46666-.$%%,4666.55??'??>?>?'''-----?????'<<<[)mIII $,$$,$46766>6$6?<'''$,,,,-,$dI>?>?>?>?'?6?7??>>/?-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$'<$'''-.5-.5mIIII'??6765..%/%546.5-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$--,-,-5>6----,%-----.---%-%-%-%????<<55----%%%%<,''=>67?>>7??'??>7?66>6$%$$<$?<'?'?,,%,%4??/7??>7>7---=????>>777>676.65.%-,$%=>67?6555=<<<<,5,,$%M1...-,$%<$'?>>7&,,#7%-.5???????????????????$,.?7/-->??????????'??766%$$$=????,$%-%--,-%%-,,-%-----655....5---%--,5>=>66.6.????????????''''$ m+$..666>6>,6.-5-----------------------------------------------------------------------------------------------------------------------------:???????????,$-,$%,,66766.$-??'''?<''<$IIII????????????????????????????????'%,,$% 5-6..6$4766666%$$$$$<666666'$$$$,---4.6%4.&46%,=66%$,&,,,,,,,,,,,,,,,,56-....6--..55-...-.56-..55.55.-.56666--I#$$$?????????????????????<>7?>??<<<$$--5.%-,%--..555=766?/---=???'?/---??????????-%<<<$$,$$$$,-$$ -?',Q#4=676666666v----------$-@d]dJ n O F t   # , 9 G T _ o } #0>HWb'$$---666fwooq?ow?o@?x?~>{m?_Uv?G_@X~nx1{~?G_ |~?_?|k{o;_ow[o>~_ox? }xcw_w{/7}?X_{{?ww~_>wv{?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/vnw~f~wpg_X_nvW_{]_~nwoo|?ow?o@G?xx>{m?_mv???`@?`@?W~v[k>w-w.{~?> x`\o{~?@O0?~}~?_qwlw`\o>>`ox?a@}xx\wo6A?8o{;?o{~_}~.wvs?x?ocO}{o_wvv_7_wv^_?wv~_w~wvvw>w~gxs_X_nfWO{]_>nwOo?~?og?o@q?|C>{m?_}~C?@~`?@_O~zog>{K/{~??~>{o7_ow[o{~?o88`}~?~~gox?O}x~[w{o5}?|p{{@|~?~~1wvw?~xc?oox p|ao?lxg}sO{_w_wv^F_w~~G~ox_8onV;W[]_]nw_ox?|go?~o@|?p>{m?_}v??ppx?X_~zoo>{k/?{~?~>{o7owo{~?ox<@}~??|_Oox?g}xG[ow{o3_}?g~xA?o/wu>o{{^o_k~s}wg?|{_wxo?~_|pn6|Xg]_cnw_opg?xwo~o@_~{~?g]{m?_}v??~~~?~PO>zog>{k/{~?|>{o7ow[n{~?ox>?|}?~?xp~@|_>?7{ox?s}|qw[ow{o7_}?o~xA?oOoy]_{??oogO{}wv~_v~wqq`}Owsownw_opq?xgO|O@_~{~?k{m?_}v>?|x~0W]v[k6wmo.{~?y>x`ow[m|?`ox?q?@}|??Wt?~Ox?x|}n?_}xA_y_@_8{~??~wp`}xAxs~xXc{o~_ow[k~_oxG?G|}xw[ow{o7_}?X_s;ww|_>?gv|_x?o~?~}?_}xA?ooo}];?oogy{swwv.w^ww^_wv6~_/?w~ww6~w?~oxp67\_{]qcfwgog?wox?o@?~?x>{m?_9v>_`_@_~{~?p_0G~~?]{o}_ow[g~_ox?>pp}xOw_ow{O7_}?X_{{@ww~_>?wvyx?o`}?_yxA?ooo}={{^o^k|sgww__w^_W~__V~wxO8oJV[_{]n]v