L#} 6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L`R @  Y S S` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "$G@LLLLV΍ }$˥%hhhh% & &eͥe΅ΠɁͪͭΦ. BHI. V0LmL@H@h  }`)8` d)L ݆  LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHҍ 00) }08 109hh@ Ҡ2e1i1232435ޥ<<8ИH232435; 1 ;  hh@2 e1}i1 !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`H}*  * Lh`"F%GHIJK?P.` *+! LL`*+}  Lq` X٪`OS SYSIIIIIIIIIIIIIIIC`0 ߩ0}} }y |||DDOS DOSDOS TMP }}}$X""}CDOS TMP} 0`BDELV !B }`LV  q   R@э   Y S S0 w;j JA E˩ }̩ ˙#`#I $#`HjkD۩ͩΑ͈x!}X  h`GR.0:POKE559,0:POKE712,194:POKE710,194:POKE842,12:POKE752,1:?:RUN"D:LOGO"~ V"}0 @BJK͝DE V0\BHI. () . \ V*)L#}nLL'0LsоI0LɛL)~L) |'3:͍$}mfdc{WaS L0P:LB0:B,055 #I-  .,0 L%})M)M)  V0h  )0Jn8&}  VH`{ȱye8LnK:'}$L` ɚh@LHhLҥh@ .l8LnK:Kz{CCCCCCCCCCC1ZNCAZLLC2CLEAREORETURC25CLEAREODISKIJOYSTICDOLLASCORESCOREENDINZLINZD)}OLZBGC10 *}+} Program:QUAKE1 Copyright 1982 - MECC ) #@ )" ",}%%1,2,3,4,5,6,7,8,9,10,20,256,100 5100,5150,9990,31000,10000( ;,2$EdA@-}6-%$n;,;,6.x+AR 0 B $%~{6-?:C:kh]^](eT.}eUeX˅^eY̅_8SUˈ2UTeRː(e˅ː8SRˈ0`,,~$ $% %'JAR/}-%6 Pressto continue.DAd&J6-',B7t@&F:Ad,"&, % 'F:Ad,"%0}*'  '.F:Ad,"%6-(Ad&. % ' Ad&$'F:A , '; (}-%1}'  EARTHQUAKES--7-#; L'3 -- 7<,'-$+ / 3 V'!@% S! ['2}< -- 7<,'-$+ / 8 < `'a (}- ( Do you want:8(1. An explanationN(2. A 3}lesson, ora(3. A 'quake'j'1(Type 1, 2, or 3: 1@rEo'&&A:,BBBt';#(4}Please type a 1, 2, or 3.--&%1 ; B'S (}@$(( Explanation.-S( Earthquakes are a fairly5} common'U-(%occurence in the western part of theU(#United States, even though we only'X.(&read about the very seve6}re ones in theX(%papers. People who study and record'L%(these earthquakes are called8(seismologists.< B(}H-7}L 'I"(In recording earthquakes,I("seismologists record two factors:'S+(#the strength of the earthquake andS8}(#its location. The strength of the(X$(earthquake is measured on aM($seismograph in terms of the RichterX(scale9}. (  - (S(( The seismograph is also used toS(&locate where the earthquake occurred.(X.(&However, since m:}any earthquakes do notX(%occur on the surface but really take(X.(&place under the surface, seismologistsX(%look for t;}he 'epicenter' rather than#(:,($the actual center of the earthquake.0 6-: ((R*("The epicenter of an earthquake i<}sR(#the location on the surface of the2(V,($earth directly above the earthquake.V(%The purpose of this simulation =}is<(c,($to help you learn how seismologistsU($find the epicenter of an earthquake.Y c B(Y0((} Finding the >}Epicenters of EarthquakesY($ When an earthquake occurs, two(Z-(%types of shock waves are sent out inV($all direc?}tions: P-waves and S-waves.Z (( }P-WAVES(S,($ P-waves are Primary waves. TheseS("waves are like sound wave@}s. They(J*("vibrate back and forth. P-wavesJ(travel faster than S-waves.(a( S-WAVES:("The second type ofA} wave is calleda("the S or 'Secondary Wave'. These(G*("waves are like water waves, theyC(vibrate up and down.G B}.**("}When an earthquake occurs, both.P,($P (primary) and S (secondary) wavesP(are sent out in all directions..C}Q+(#However, since the primary wavesQ(!travel faster than the secondary.R*("waves, the waves will not reach aN(D}distant point at the same time.R N%D:QUAKE2 NH"(} Earthquake detected.;(Standby for data...H%D:QUAKE3E}y($E }(Ad&"y3 -%+ Do you want to try again? / 3,y7<,4Y(} 6y87<F},0N2(Please enter 'YES' or 'NO'.8 %@y0+0%0%'AR*(0-Jy%D:HELLO{y  G}%{CCCCCCCCCCC1ZNCAZLLC2CLEAREORETURC25CLEAREODISKIJOYSTICDOLLASCORESCOREENDINZLINZD  *u{CCCCCCCCCC1C2C10C25CHBACDISKIJOYSTICRETURENDINZLINCLEAREOMINMAXMINMAXNUMSTNSCALSEISTI}EMODEADCLEASCRNSCRNSCRNPLYRMOVMEMAC55RANGCLISTNSTNTLAGMSGCZADZZZLEZIOCZCMZNZZRADIUZBGEPIEPILZJ}ETZLZHZERZDIZSTICJUN K} L} !"#$%&@'(@)*M}+,-./0123456789:N};<=>?@ABC Program:QUAKE3 (C) 1983 - MECC &#&"O} "LL1,2,3,4,5,6,7,8,9,10,20,100,256,756,764,5500,9100,990,31000,10000,5100d%%P}"eNN80,204,14,91,14,.27,1.25,87,20832,20896,21456,3680,53248,20736,16384,559f 6-&6Q}-%P:',i)9<,;%,9,;$,)$%nI %&+0%AR+(}/;AAIAB$xR}6-B3 "!-%6-%) 3 A0``112,3,0,1,66,1,160,1,81,1,2,3,79,1,208,1,83,1,15,77,66,S}1,64,1,82,1,2,9,65,1,0,1,77,1,-1,-1D 6-6-A1 6-!6-;D:QUAKEMAP.BIN? D2 6-#DT}:CLEARMEM.OBJ- Ap21 6-" D:MOVEMEM.OBJ, Ap1 ;, $OOSeattle,108,18,Portland,10U}6,27,Boise,129,31,Helena,145,22,Cheyenne,166,39SSBismarck,183,21,Pierre,186,30,Reno,114,47,Salt Lake City,138,43,Denver,1V}68,46HHLos Angeles,111,64,San Diego,117,63,Sante Fe,167,58,Phoenix,137,670#$%P:8<,',0-8<,&P:8<,',$W}* "68<,-"#68<,-' *$,? 6-6-6-&$!-+ AP36-?6-%$%66-&$%X}6-&@ 6-%6-! $^/8<,&*8<,%/,8<,&8<,%c/8<,&*8<,%/,8<,&8<,Y}%h/8<,%*8<,%/,8<,%8<,%m/8<,%*8<,%/,8<,%8<,%r/8<,&*8<,&/Z},8<,&8<,&w/8<,&*8<,&/,8<,&8<,&|/8<,%*8<,&/,8<,%8<,&/8<,%[}*8<,&/,8<,%8<,&$E - (Quake reported...(-;68<,-P:H:,$,A $E 5/8<,"8\}<,)8<,"8<,)8<,"8<,5 $36-P:H:,$$,%%+6-P:H:,$$,%%3-#6-O:&8<,,#6-O:&8<,,]}& ) )!$)!$'& A   $X,%$$b::/%$$%%P:H:,$'%',$+6#++P:,"P:',$,%,,l/^}%$$%$,%$$##/%$$%$%P:H:,$'&',/%$$%$ I ,&&/&&!/%%+/%_}%5/&&?/&&I/%%*I ,%&/%&!/&%+/&%5/%&?/%&I/&%4$F &-`}%8(Pressto continue.@&F6-F:,"& %F:,"$*' "F:,"$6-a}&" % &$ $%~{6-?:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTeRːb}(e˅ː8SRˈ0`,,~$|16-A4%$$6-! %)%1%% 6- %%%%c}?6-?:C:hhhLV,<$$,(6-F:%,<6-F:%,%F:%,$?$6-P:',6-P:&$,$X 6-b ))l& )d})6-%$ (&6-v) ))6-%$&%%6-) #F 6-R:,6-P:',!6-&$/6-&+!,$=6-&+e}!,$C)F$#/AU6-F:, &("%+'/ ###6-&$$+!$,&$$+!'&,#.6-&+",%+",+6-&f}+"%,%+"%,.$'; %%@w+$%$;$%@'$6-?:<Bh<',$A$'>BByg}@v"6-?:<<,(2$%>B2w.'9 $-- $9( Report from .8''-@8h}  ' B'--68,-M:+&8<,,#'%+&8<,,#,$$L'" 6--8,'" $V'2 -.( Lag ti}ime: $ seconds.2 `'D'( Lag time: P:8,, seconds.D(Secondary wave arrives.b'. 6-+8,%,$%$,%j}&./%&d'> ,%&/%&!-&&-Ae>$Sf'$ ,&-&$$Sj'% k}-P:H:,$%,! $% ~'- 6-?:<<, -6-?:<<<A1 ,'Y -/(!Use the arrow keys or joystick toY(%posil}tion the circle at the epicenter,'5(then press RETURN. -5(1 unit = 200 km.'F --%$ $@( lag m}time: P:8,, secondsF'9,8<,%8<,'/8<,&8<,9,8<,8<,&'G/8<,8<,%)/8<,&8<n},%=/8<,&8<,&CG '% 6-6-$%6-%6-'? 6-%$6-%$+6-$+,%$+ ,?6-$+o},%$+ ,'+6-$+,%$+!,+6-$+,%$+!,'>6-'%$6-B%'86-?:<' Tp}:,*%B`'P6-?:<<$%,-4(The computer will nowP(locate the epicenter.'2 -2-M:+&q}8<,,#%+&8<,,#,( $  (! 6-6- $! ('6-?:<<&,-'( You were (<'-P:M:+r}&,#'%+&,#,$$%',< $ km off. (D@6-P:+$+$%,%+$@%,$+!$%,,'+%,,$%BD#(" (s} y(  $E(&y+0&$("y3 -%+ Do you want to try again? / 3,t}y7<,4Y(} 6y87<,0N2(Please enter 'YES' or 'NO'.8 %@y2+&(0%&0%2%D:u}HELLO{y  |y~~That's great!~yThat's not bad!y!!You did a fairly good job.y** You may need to reviewv} the lesson.%CCCCCCC1C2C10C25CHBACDISKIJOYSTICRETURENDINZLINCLEAREOMINMAXMINMAXNUMSTNSCALSEISTSCCCCCCCCCC1C2C25CLEAREOCLEAREODISKIRETURENDINZLINZNCZTMINMAXMINMAXNUMSTNMODEADFRETUR x}C55SEISTEC10RANGCLIZADZCMZLEZIOCRADIUZZLTLAJUNZZZZZZZZETZBGZLZHZERTLAGSCALCLEASCRNSCRNSCR y}NPLYRMOVMEMASTNSTNCHBACANSWER z}  {} !"#$%&'() |}*+,-./0123456789 }}@:;<=>?@AB@CDEFG Progr ~}am:QUAKE2 (C) 1983 - MECC &#&" "MM1,2,3,4,5,6,7,8,9,10,20,100,256,75 }6,764,5100,5150,5500,9990,31000,10000d''"eRR80,204,14,91,14,.27,1.25,87,20832,20896,214 }56,3680,53248,20736,16384,559,990f 6-&6-%P:',i.$9<,;%,9,;$,;,.$%nD %&+0 }#&$&(*6AADAB$x6-B3 "!-%6-%) 3 A0``112,3,0 },1,66,1,160,1,81,1,2,3,79,1,208,1,83,1,15,77,66,1,64,1,82,1,2,9,65,1,0,1,77,1,-1,-1D 6-6-A1 6-!6-; }D:QUAKEMAP.BIN? D2 6-#D:CLEARMEM.OBJ- Ap21 6-" D:MOVEMEM.OBJ, Ap1 }; %%@w+$%$;$%@$6-?:<Bh<',$A>BBy@v"6-?:< }<,(2$%>B2w ;, $,? 6-6-6-&$!-+ AP36-?6-%$%66-& }$%6-&@ 6-%6-! $^/8<,&*8<,%/,8<,&8<,%c/8<,&*8<,%/,8<,& }8<,%h/8<,%*8<,%/,8<,%8<,%m/8<,%*8<,%/,8<,%8<,%r/8<,&*8<, }&/,8<,&8<,&w/8<,&*8<,&/,8<,&8<,&|/8<,%*8<,&/,8<,%8<,&/ }8<,%*8<,&/,8<,%8<,&$ -,$%K3/$%@$%%P:H:,$'@&'@ },G/$%@$%K $- #-%%P:H:,$,%$-,$%88/$%%%P:H:,$'%',$+6#++P:,"P:', }$,%,,/$%% $ 6-$% $I ,&&/&&!/%%+/%%5/&&?/&&I/% }%L ,%&/%&!/&%+/&%5/%&?/%&I/&%L$ f6-F:@,%F:@,$0-@B: },T6-BsD%++@:7<,,&@2,$,f6-%A'%%*+ - %$@@F:%,$ ( +$ - }F:, ' $% F:, ' $%   $F &-%8(Pressto continue.@& }F6-F:,"& %F:,"$*' "F:,"$6-&" % &$ $%~{6-?:C:kh }]^](eTeUeX˅^eY̅_8SUˈ2UTeRː(e˅ː8SRˈ0`,,~$ $% } %|5 6-$$6- %'A6%5A7%9 6- %A@%+AA%9A4%M6-?:C }:hhhLV,<,*6-F:%A5,J6-F:A@%,%F:AA%,$M$6-P:',6-P:&$,$X 6-b ))l }& ))6-%$ (&6-v) ))6-%$&%%6-) '@ &-%2 Pressto continue. }:&@6-'F:,"& % 'F:,"%*'  '"F:,"%6-&" % ' &$'S+(#} Th }is is what a P-wave looks likeA(on a seismogragh.S6-P:H:,$,%$'K-$%( %(+ $96.PRIM }ARY?6-E $K.'H 2(&}An S-wave has a different appearanceH(on a seismograph.8'P-@@8"( }& -(P(When the slower moving S-wave;'=+(#arrives, it is superimposed on the=( primary wave.='# $6. }PRIMARY6-# $b'+ 6-+%,$%!,%&+/%&d'> ,%&/%&!-&&-Ae>$S }f'$ ,&-&$$Sj'' $6. SECONDARY!6-%' $t' *<  +0&$"(.AA }<AB$*-6-B%6-?:<+L$(would take about 16 seconds.L(# 100 km ^ 6.1 km/s }ec = 16.4 secH+V1()An S-wave travels at about 4.1 km/sec.V( For an S-wave to travel 100 km,R+##(it would take abou }t 24 sec.\+/+(# 100 km ^ 4.1 km/sec = 24.4 sec/ f+:,($}Therefore the lag time for 100 km:( would be:p+**(" } 24.4 sec - 16.4 sec = 8.0 secz+W+(#If you know the lag time you canW('calculate the distance to an epicenter+V,( }$by dividing the lag time by 8.0 andR(!multiplying the result by 100 km.V +I (}-!6-P:H:,$%,$I(If the l }ag time was  seconds,+$%E+@)(!how far from the epicenter would8( you be ? < @+--A:, P }:$'%,*A:,!P:$'&,B0+Y#(No, that is not correct.Y((( sec ^ 8.0 sec) x 100 km = ? km+ }11A:, P:$'%,*A:,!P:$'&,B0+0 0(No, the answer is P:$', km.+I -%?(( sec }^ 8.0 sec) x 100 km = ?P:$',I B@+" "( That's correct.+]  (}-6(To locate the epicenter o }f an]("earthquake, we need readings from+L,($3 different stations. Let's try an9(example.= L% D:QUAKE2P2y( } $E(&y+0&$("y3 -%+ Do you want to try again? / 3,y#7< },4Y(}#%D:QUAKE16y87<,0N2(Please enter 'YES' or 'NO'.8 %@y2+&(0%&0%2%D: }HELLO{y  %CCCCC1C2C25CLEAREOCLEAREODISKIRETURENDINZLINZNCZTMINMAXMINMAXNUMSTNMODEADFRETUR ef{CCCCCCCCCC1C2C25CLEAREOCLEAREODISKIRETURENDINZLINZNCSTNQUESTIONWRONGWRONG2ANSWERMINMA}XMINMAXNUMSTNMODEADC55KESEISTEPROGDATC10RANGRANGCLIZADZCMZLEZIOCTHETRADIUZZLTLAJUNHORVERANSWEZZ}ZETZBGZLZHZERXYFRETURPEKCHBACJOYSTICDOLLASCORESCOREZDOLSTNSCALCLEASCRNSCRNSCRNPLYRMOVMEMAMOV} }} !"#$%&'()*+,-./}0123456789:;<=>}?@AB@CDEFGHIJ@KLMN}OPQRST Program:QUAKE2P2 (C) 1983 - MECC &#&"} "GG1,2,3,4,5,6,7,8,9,10,20,100,256,756,764,5100,5150,990,31000,10000d''"}eTT80,204,14,91,14,.27,1.25,87,20832,20896,21456,3680,53248,20736,16384,559,31100f 6-&6-%P:',i,";,};,;%,;$,;,,$%nD %&+0#&$&(*6AADAB$36.No, try agai}n.36.No, the answer is ; %%@w+$%$;$%@$6-?:<Bh<',$A}>BBy@v"6-?:<<,(2$%>B2w ;, $,= ,&/%!,&)/%3,%}&=/%%1? 6-6-6-&$!-+ AP36-?6-%$%66-&$%6-&@ 6-%6-! }$^&*%,&%c&*%,&%h%*%,%%m%*%,%%r&*&},&&w&*&,&&|%*&,%&%*&,%&$,%$$::/%$}$%%P:H:,$'%',$+6#++P:,"P:',$,%,,/%$$%$,%$$##/%$$%$%P:H:,$'&',/}%$$%$X+@rE-#(' +]0A:,%*A:,&&( Correct.0 A0b( -( }g5A:,%*A:,&+( Correct.5 A0l! (. - !(v   $ 6-$% $}I ,&&/&&!/%%+/%%5/&&?/&&I/%%L ,%&/%&!/&%+/&%5/%}&?/%&I/&%L$ - F:, ' $% F:, ' $%   $F &}-%8(Pressto continue.@&F6-F:,"& %F:,"$*' "F:,"$6-}&" % &$ $%~{6-?:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTeRː}(e˅ː8SRˈ0`,,~$ $% %|5 6-$$6- %'A6%5A7%9 6- %}A@%+AA%9A4%-6-?:C:hhhLV,<,*6-F:%A5,-$6-P:',6-P:&$,$'% -}#-!"% 'K)(}Report from the  station.5-$%@(D K('! 6--'}! $$'2 -.( Lag time: $ seconds.2 '@$( Lag time: P:, seconds.@(Secondary wave arrives.}'+ 6-+%,$%!,%&+/%&'> ,%&/%&!-&&-Ae>$S '$ ,&-&}$$S!'' -P:H:,$%,# $$' $' 6-6-.'F6.Kilometers to quake? 26-P:$$'%'},86-@ $$F(}8'36-?:<<<A1 ,-3(1 unit = 200 km.B'1 #%"#1%BB B0*R} -+(Locate  on the map. TheR("earthquake is located somewhere on*--(this circle whose radius is  km.}+*-M:+&,#%+&,#, $* B.* -"*-M:+&,#%+&,#,.V5(Remember, the quake was P:$$'%}', kmV(away from the  station..* $"*-M:+&,#%+&,#,.; -;(We now know it is P}:$$'%', km.%( from the  station.% $. #%"-/4 .(That means the quake is here...4} $/5 "-%%( or here.+ $5 B28 -& Now with three stations:.-8"20 -%}0( = P:$$'%', km away.26-M:+&,#%+&,#, $&* 0#%6"21 -+(We can locate the ep}icenter.1 $ N   R%D:QUAKE1y;$E&"&+.08&$;("y3 -%+ Do you wa}nt to try again? / 3,y#7<,4Y(}#%D:QUAKE16y87<,0N2(Please enter 'YES' or 'NO'.8 %@y2+}&(0%&0%2%D:HELLO{y  |y55Denver,168,46,47,Reno,114,47,56,Boise,123,31,23y144,32,144,58}%{CCCCCCCCCC1C2C25CLEAREOCLEAREODISKIRETURENDINZLINZNCSTNQUESTIONWRONGWRONG2ANSWERMINMAST,CCCCCCCCCCC1C2C10C25CHBACCLEAREORETURENDINZLINSTARZNZBGZ} }@ Program: URSAL Copyright 1982 - MECC 5 #@ 5}"CC1,2,3,4,5,6,7,8,9,10,20,100,256,756,764,5100,9990,31000,10000d9@4<,n}( %&+0!&$((x; #B-@4!",68<,-768<,-;  ;, $6-8<},6-8<,D ,&&/%&,&'/%1,&%;/%%A,D$,"6-8<,6-8<,/"$ " }$"  $ $ AAAV3  Pressto continue.;&A6-(B7t@}(F:,"&A F:,"%*' ,F:,"%6-"Ad&, A  &$ $%~{6}-?:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTeRː(e˅ː8SRˈ0`,,~$'@ }&-%2 Pressto continue.:&@6-'"B7t&F:,"&" % 'F:,"%*'  '"F:},"%6-&" % ' &$'T.(&} Very long ago, ancient astronomersT(!identified groups of stars }which'I#(formed shapes or pictures.I(!These groups of stars are called$'Q,($ ** C O N S T E L L A T I O N S **Q(}  You may be familiar with some.'N#(constellations such as theN(&'Big Dipper' and the 'Little Dipper'.8'e((  Th}e computer will now displayL(the pattern of these and othera(constellations.e B'+0&L'R+(#}Looki}ng into the sky some evening,R("you might be able to pick out thisV'E#(grouping of constellations.1-@47 $;} E A `'4$(}This is Draco 'the Dragon'..#B04 $j'6 A &(}This is Cassiopeia.0#B6 $t'3 }A #(}This is Cepheus.-#B3 $~'R A )(}This is Ursa Minor, orB(the 'Little Dipper'.L#B R $}'H A 8(&}This is Ursa Major, the 'Big Dipper'.B#B@H $'X A 4("}The star at the end of the Little}X(Dipper is called Polaris or the'Y'('North Star'. (It is blinking)/&S( Pressto continue.Y6-}'* $ $*F:,"&BP'H'(}It can be useful to know where>(the North Star is.H A 'L)(!}A }line drawn through the two endL(stars on the Big Dipper passes'G(through the North Star.+6-@31 $76-= $}G A 'C!(}You are now ready to do9( URSA ROTATION.C A y0+0&($E0&}"y3 -%+ Do you want to try again? / 3,y7<,4Y(} 6y87<,0N2(Please enter 'YES' or 'N}O'.8 %@y) (}0%0%)%D:HELLO{y  |y44160,80,130,110,137,117,146,118,154,126,163,123y++167,97},181,109,199,116,204,107,191,99y//171,80,176,76,182,72,189,72,191,65,184,64yRR153,52,165,53,191,52,215,53,222,57,217,64},213,75,210,84,232,74,244,69,245,75y66198,28,187,33,175,33,159,35,152,28,137,35,141,43y1,2,3,4,5,-1y6,7,8,9,10,6},-1y0,11,12,13,14,15,16,13,-1y,,17,18,19,20,21,22,23,24,25,26,27,25,-1z 28,29,30,31,32,33,34,31,-1%u &CCCCCCCCCCC1C2C10C25CHBACCLEAREOCLEAREORETURENDINZLINPC1C3STARLINESTARSMZNZ}ZBGDAYDATHOU }@@} !"#$%&' Program: URSAR (C) 1982 - ME}CC &#&" "HH1,2,3,4,5,6,7,8,9,10,20,100,256,756,764,5100,5150,9990,31000,100}00d36-@e6-%#6-@4+6-$36-$n, %&+0!0)&,(x$9<,9<,;,;}, !$5 #B-"&68<,-168<,-5 V/('}The stars seem to rotate about theV("North Star }in a counter-clockwiseP*("direction. Every hour, the starsP(!rotate 1/24th of the way around.U+(# If you pick }a date and time, theU(%computer will show you how the stars!(will look each hour.!  ` -6-8<,}!6-8<,A68<,-A`%@$$E:,Y68<,-@&$G:,] `$,! -6-8<,!6-8<,6B ,&&/%}&,&'/%1,&%;/%%? B$) #B-"),8<,8<,"   $/8<,8<}, A $%~{6-?:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTeRː(e˅}ː8SRˈ0`,,~$ $% %'@ &-%2 Pressto continue.:&@6-'"B7t&}F:,"&" % 'F:,"%*'  '"F:,"%6-&" % ' &$'Y$E>(%}T}ype in the first 3 letters of theY month you would like?'! -$  !#B$'2 -"4($}E2 B@.'6 ,( That is not a month, try again.6 B8'/ -( What date?  "& /6-A:,B'^} )!@1;(#Enter a number within the range ofT(days for this month.^ B@L'& -( What hour?  "& }V'B 6-A:, )!8(Enter a number from 1 to 12.B B``'0$E-%,( AM or PM? 0 j'}0AM*0PMBt'/(One moment please...'4PM/6-%~'I6-+%,'Ae%''%6-$$--?68<,-8}<,%C I $'L+0&<( Here are the stars as they wouldL( appear at '0 &( :00 AM on  }.0 BP'""(& :00 PM on  .'7  7(&Pressto see the stars rotate.' &6- }%'! 6-%!$6-!6-%'2 -68<,-8<,%'# ) $2(}'F:,")F:,"%* 'F:,"%}6-&';(} 1(  at :00 AM.; B0'""(  at &:00 PM.'F.(% Press}to stop the rotation.BF:,")F:,"%*F (F:,"%6-& ( F:,")F:,"%* (F:,"%}6-&(- @w-F:,*F:,%Bpy0+00&0$E"y7 &-}7(!Do you want to see the pattern of,y=(( constellations for another date9( and time? = 6y7<,4Y(} } @y87<,0N2(Please enter 'YES' or 'NO'.8 %Jy (}%D:HELLO{y  |ybbMAR,345,APR,11,MAY,41,JUN,7 }2,JUL,102,AUG,133,SEP,164,OCT,194,NOV,225,DEC,255,JAN,286,FEB,317y550,0,40.3,4,42.3,4.2,39.5,4.4,46.4,4.6,43.1,-1.5y221 }7.8,-1.2,34.4,-1,49.8,-.8,47.5,-.6,33.6,-.6y449.8,0,15.1,.3,21.2,.4,27.4,.3,31.2,.5,26.6,.66yZZ28.6,1.8,27.2,1.4,39.6,. }8,55.8,.5,59.9,.4,53.6,.3,48,.1,45,-.1,64.4,.1,76,.15,76,.07z6662,1,52.6,1.1,49,1.3,45,1.6,52,1.7,49.8,2,40.2,2Dz1,2,3 },4,5,-1Nz6,7,8,9,10,6,-1Xz0,11,12,13,14,15,16,13,-1bz,,17,18,19,20,21,22,23,24,25,26,27,25,-1lz 28,29,30,31,32,3}3,34,31,-1%CCCCCCCCC1C2C10C25CHBACCLEAREOCLEAREORETURENDINZLINPC1C3STARLINESTARSMZNZ~ }c 0   } 0 ` g}  @ @ }?`   @ @}0c `0/ 09 }     ?}      }  0}0}` }}p } 0}`p0@}@ @@}0 } @0@!}0"}~?#} 8$}``%} 0 ` 0`&} 0@ @@@ @@'}@ @@@ @@x0100 FROM = $D40110 TO = $D60120 LEN = $D80130 *= $6000140 ;RELOCATABLE0150 ;0160 ;ZE=USR(MOVE,TO,FROM,LENGTH)0170 ;!)}0180 ;0190 PLA0200 PLA0210 STA TO+10220 PLA0230 STA TO0240 PLA0250 STA FROM+10260 PLA0270 STA FROM0280 PL!*}A0290 STA LEN ONLY HOLDS HIGH PART0300 LDY #00310 PLA0320 TAX0330 BEQ L30340 L1 LDA (FROM),Y0350 STA (TO),Y0360!+} INY0370 BNE L20380 INC FROM+10390 INC TO+10400 L2 DEX0410 BNE L10420 L3 DEC LEN0430 BPL L10440 RTS0450 .END!,} INY0370 BNE L20380 INC FROM+10390 INC TO+10400 L2 DEX0410 BNE L10420 L3 DEC LEN0430 BPL L10440 RTS0450 .END # CC1ICCC3CCPP1P2RETURC10C2CCCCCC25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCOREENDINZLI%.}NZDOLZNZC6ZIOCZCMZADZLEZETZBGZLZHZERDC2C1%/} %0} !"#$%&'%1}()*+,-. Program: SOLDIST1 Copyright 1982 - MECC ) #@ )%2}" "%%1,2,3,4,5,6,7,8,9,10,20,256,100 5100,5500,9990,31000,10000( ;,2%3}$Ed;,;,;,;%,n0A@Y+!0-AR0(v D:SOLDIST.FNTx+ 6%4}-6-6-BS`'6-A$+  D:FFS.BIN) 6-6-%6-@Y$%A%) %@`%%5}#$&P:',$#$%P:', B $%~{6-?:C:kh]^](eTeUeX˅^eY̅_8SU%6}2UTeRː(e˅ː8SRˈ0`,,~$|5 6-$$6- %'A6%5A7%9 6-%7} %A@%+AA%9A4%M6-?:C:hhhLV,<,*6-F:%A5,J6-F:A@%,%F:AA%,$M$%8}6-P:',6-P:&$,$'JAR-%6 Pressto continue.DAd&J6-',B7t@%9}&F:Ad,"&, % 'F:Ad,"%*'  '.F:Ad,"%6-(Ad&. % '! Ad&-%:}!$' (}-%~'&" What is your first name? &'B:,"B'B:,"B '0-B:,,67<,.%;}>:@:7<,,%@2,0 '3 }Hi ,3(Let's travel through space.'R. &This program will tell you the lengthR(%<}of time it would take to get to'S,($most places in our solar system. ItS("will figure the travel time at the'_, $po%=}int when the earth's orbit carriesQ( it closest to the place you have_( selected.';+(#Here is a list of places that %>}you;( can go to:'1 #B-")(- 1 ';% }You can travel in any of the;(following ways:%?}'6 #B-"#( 2-F:@,6('   '% D:SOLDIST2y($E }(Ad&%@}"y3 -%+ Do you want to try again? / 3,y7<,4Y(} 6y87<,0N2(Please enter 'YES' or 'NO%A}'.8 %@y0+0%0%'AR*(0-Jy%D:HELLO{y  |yJJMercury,Venus,Mars,Jupiter,Saturn,%B}Uranus,Neptune,Pluto,Moon,Sun, , ,y00Walk,Tricycle,Bicycle,Motorcycle,Car,TrainyCCPropeller Plane,Space Transport,Jet P%C}lane,(at speed of light)%CPP1P2RETURC10C2CCCCCC25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCOREENDINZLI$pY_CCCCCCCCCC1C2C25CLEAREORETURENDINZLINZNCC3C6C55C10CRNCLNC75P2N1SVWTP1KMCC1C)E}2DZNNNNXXYRRLRZBG )F} )G}@@@@ !"#$%&'())H}*+,-./0123456789)I}: Program:SOLDIST2 Copyright 1982 - MECC %%"771,2,3,4,5,6,7,8,9,10,)J}20,256,5100,9990,31000,10000( ;,2$Ed9 #$"935,60,559,100,31100,10560,752g**;%)K},;,;,9,9,9,;,hT(9,;%,;%%,;,;%%,768,-AeB68,-%K68,-T68,-TT6.)L}Jfgvw,-.<=>hi xyzabcdeqrst  ()*+#$%&'TT6.JEUFGVWKLM[\] IJXYZupP@ABCD)M} QRSTjklm5678 012346.     U-6.#     9ARU6-F:A`)N},%F:Aa,$ B1 (}-*(You already used that!. 1$ -%(_ $ $%~{6-?)O}:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTeRː(e˅ː8SRˈ0`,,~$'D )P}-%0 Pressto continue.>Ad&D6-',B7t@&F:Ad,"&, % 'F:Ad,"%*)Q}'  '.F:Ad,"%6-(Ad&. % '! Ad&-!$'h$%E(}"-E()R}Which would you like to do?h(1. Travel to different places.'C# 2. Travel using differentC(kinds of transp)S}ortation8' -& 6-A:,='3 )!)P:,)(Enter 1 or 2.3 B@t'0 -68,-68,-&68,-)T}* 06-'0 }-0 Where would you like to go?'$#-"$8,B@' ("(' )U}. ( %(3 - 6-A:,3 )!)P:,Bw'( 8, $ B+("B,("B)V}-(] (}-4( Your weight at the place of your]($destination will also be determined./(<+ "How much do you weig)W}h in pounds? / 3<6-A:,:( }-<(** "How would you like to get there?A(& #%-"&8,B )X}F((. P( n(3 - 6-A:,3 )!)P:,BPx( 8, $ B(8 }0)Y}0!0'8%F:%,%'(>%%F:%%,%'$BBr6BBA>&(: -%(:(&)Z}|(G -% A-%G %Years Days Hours Min. Seconds(  000)[}00( "-% Be( #%-" -( (|(#-" -%( #%&)\}-" ( )!B(>(-&%(Earth%-%%+(3-%>6.7<,( B( (Earth)]}-%&B:,% ((& -%(-%%&6.7<,(! "-%% ! B(& #%%-" &(7<%)^},( - A)  )!-% B ) -&%) ( ")1 #%&-" !#%)--"1 )_}*)  &,)6-P:',6- /)6-P:',6- 2)6-P:',6- B`6)06-P:''+%,,)`} Ae&6-0 B;).6-P:+''+%,'Ae,,$6-. B@)6-P:'$,'6-A)  )!-&)a} %B)-&6E)5 -%(-)-+&,$%%%/5 %J) 6-% P:,  %&T)(P:H:,$8,,)b} Y)( -%$(  ( \)!  )!-&%! B^) -%a)( Bh)6-P:'+%,$,)c}'6-r)  )!-& %w)-&6 % N %N% "68,-68,-% B*N5 #%%-")d} %#B--1"5 4NB+0-2(Your weight on 8!B the 9N/ +( is P:$%)e}', pounds./ ;N& 68,-68,- 68,-$&6-NZ (}-)f},(Do you want to travel toE(a different place? I Z$ECN17<,4Y'$%E1 B)g}HN7<,0NB0RN1 (}#%-" 1-%&P:B:,',UND( Trips by .(PlanetTransportYourD()s}B$DOS SYSB (QUAKE1 B/HQUAKE3 B4wQUAKE2 B)QUAKE2P2 BURSAL B URSAR BQUAKEMAPBINB(MOVEMEM ASMB-SOLDIST1 B0DSOLDIST2 B<MINERALS BLOGO B-HELLO B CLEARMEMASMB SOLDIST FNTB LOGO FNTBMOVEMEM OBJBCLEARMEMOBJBFFS BINBUINPUT OBJB!MFL RELB#UINT BINTimeWeightXN/ A(-#'-+"/ ZN8,"B\N5 -%&B:=:8,,,F:&,+(8,)t} 5#B_NK-8," (9-&&B:=:P:8,,,,F:@,K(P:8,, Lbs.uN zN  BR3+0)u}6-#-,8,"36-6 R 6BP RN -,(Do you want to try a differentJ(type of transport)v}ation? N  RB$E%7<,4Y8$%EB BR7<,0NB:R/ (} #-)w}" /-%&P:B:,',=RF( Earth to .(MethodTrip Time8 A>(F-@R* #%-" *8)x},"BDR6 -%&B:=:8,,,F:&,,(8, 6#BGR-8," (]R   yB+0BB)y}$.$E4 }BAd&"y3 -%+ Do you want to try again? / 3,y7<,4Y(} 6y8)z}7<,0N2(Please enter 'YES' or 'NO'.8 %@y*+0%0%!$(*-Jy%D:HELLO{y  |y){}JJMercury,Venus,Mars,Jupiter,Saturn,Uranus,Neptune,Pluto,Sun,Moon, , ,yYYWalk,Tricycle,Bicycle,Motorcycle,Car,Train,Prope)|}ller Plane,Jet Plane,Speed of Lighty 33,30,24,20,15,11,7,2,0,27y881,4,5,11,12,21,22,31,32,35,36,51,52,56,57,72,73,74)}}y3,3,3,5,7,3,3,1,0,9yee56673000,25721000,48680000,390760000,797600000,1684000000,2706400000,3561400000,93000000,250000)~}y%%2.5,3,9,50,55,90,420,990,186000y//.38,.9,.38,2.87,1.32,.93,1.23,.1,27.8,.16y Years,Days,Hours,Min.,Sec.%1C(zCCCCCCCCCC1C2C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZNCBCELIMINATE-}DPMYESNC2FILAPMLCCFLAZZPZBGC10 -} -}@ !"#$%&'(-}) Program:MINERALS Copyright 1982 - MECC ) #@ )" "%%1,2,3,4-},5,6,7,8,9,10,20,256,100 5100,5150,9990,31000,10000 ;,2$E:d;%,;,9$%,x250,20-}0,29,300,350 B+6-F:@,!6-F:@,+ AQP56.7<, 4Y)4N(-$2 AQP5$-}4B> -&"(YES or NO please.*-&. 4-> A -$ AQP$ #B< --}"8,"8-%+!$,$$&&+!$,$$<(  "-$ $" 6- A`, -68,- $^-}. #B"-&8,"*". h`*("Based on the computer analyses ofN(your answers, the mineral is V(-}.` B!P $%~{6-?:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTeRː(-}e˅ː8SRˈ0`,,~$ $% %'JAR-%6 Pressto continue.DAd&J6-'-},B7t@&F:Ad,"&, % 'F:Ad,"%*'  '.F:Ad,"%6-(Ad&. % '! -}Ad&-!$'=+0!AR@)-%=(M I N E R A L St'. #A "!-*68,-}-. u' 6-'E -%+(Do you want instructions? / 5(}E4NB',,($This program will help you determ-}ine'W.(&which mineral you are examining. You W($will be asked questions about your 'Q)(!mineral. To answer the que-}stionsQ(#you will make some observations of'1-(%the mineral or do some simple tests.1 'K,($}A list of all of the-} minerals willK(be printed on the screen.(S*("As you answer the questions, someS($of the minerals will be eliminat-}ed. (N-ER}As they are eliminated, they will beJ(covered by a .N (22(*}You will be using the following i-}tems:(n(PAPERFINGERNAIL0(STEEL NAILGLASSJ(QUARTZSTREAK PLATEn(COPPER COINHYDROCHLORIC ACID( A-}(V (}#B A`:(Does your mineral have aR(metallic luster? V )8 4N#B0-!"*-}68,-. 8 Bp)E #B@-%"$68,-( , E(Can it mark paper? ,)/ 4N68%,-%68%,-}-/ B@1) 68%,-68%,-6)N,($Your mineral should be grey or black/(K(in color. Now to go on.N(@)B -} .(Does it show cubic cleavage? 2 B4NB^) 68%,- r) 68%,- )0 ,(Can it be-} scratched by a nail? 0 )8 4N#BP-!"*68,-. 8 B)3 #BP-"&68,-* -}368,-)@ *(Does it streak green or blue? <( (YES OR NO)@ )) 4N68,-68%,-) Bp) 6-}8,-68%,-)( Is it green?  ) 4YBP) 68,- ) 68%,- *K ,(Does i-}t streak greenish black? 0 84YA68,-K B 0* 68,- D*8 $(Does it streak copper? ( 84Y-}Bpb* 68%,- v* 68,- *? +(Can it be scratched by glass? / ?4YB P*O )(-}The computer cannot determineO(!a mineral with these properties.*R,($Perhaps you examined it incorrectlyH(and need-} to try again.R B!P*G&(Does it have brass coloring? * 24N=68&,-G B* 68&,- *R -}*(Is it grey or black in color? -(>( (YES or NO)B R4YBP+ 68%,- *+ 68%,- >+F -}+(Does it leave a colored mark onB(a streak plate? F R+8 4N#B-!"*68,-. 8 BpW+* -}#B-"&68,-* \+G ((Does it have a green or blue+(C(color(YES OR NO)? G p+) 4N68,-}-68%,-) Bu+ 68,-68%,-z+C /("Does it have a blue-green streak? 3 C4NB+ -}68%,- + 68,- +W ((Does it have a red or orange+(C(color(YES or NO)? G W4YBP+-} 68&,- + 68,- ,- )(Does it show good cleavage? - ,8 4N#B`-!"*68,--}. 8 B ,* #B`-"&68,-* $,A ((Can you scratch it with your+(=( fingernail? A 8,6-} 4N68%,-!68$,-,68$,-6 BP=,( 68%,-68&,-(68&,-B,? *(Does it break into tran-}sparent-(;(sheets? ? V, 4N68$,- B`, 68&,- t,6 "(Does it feel greasy? & 64-}NB0, 68&,- , 68%,- ,? %(Can you scratch it with a((;( copper coin? ? ,) -}4N68%,-68,-) BP,A -( Does it bubble with HCl (acid)? 1 A4NB0, 68,-  - -}68%,- -1 -( Can you scratch it with a nail? 1 2-) 4N68,-68%,-) BP<- ( Is it b-}lack?  P-4YB0Z- 68,- n- 68%,- -E '(Can it scratch glass and be*(E(scratc-}hed by quartz? - -4NB- 68,-  . 68,-68$,- .h*("Your mineral is either c-}orundum orS($topaz. (Hint: Corundum will scratch^(topaz)h B!P,.? ((Can you scratch it with your;( fingern-}ail? ? @.+ 4N68%,-!68&,-+ B J.1 1($Does it have a bright yellow color? T. ^.4NB-}h. 68&,- |. 68%,- .Q ,( Can you scratch it with a nail? /(N((If your mineral is olive--}Q(.N&(green and has a sugary texture)(J(answer no to this question)N . 4N68,- B. 68,-}- .I '(Can it scratch glass and be*(E(scratched by quartz? I .' 4Y68,-68,-' B ." -}(Is it jet black? " .4NB `/ 68,- / 68,- 0/O /(#Does it form separate grain-}s(sugary2(L(texture), and have anO(:/(olive green color? D/ N/4YB!@X/ 68&,- l/ -}68&,- v/ y) (}$E:)Ad&"y3 -%+ Do you want to try again? / 3,y7<,4-}Y 6y&7<,4N BP&%D:HELLO@y+%(Please enter 'YES' or 'NO'.+ %Jy9+AR( 0%*0-}%2-6 9${y  |y[[Apatite,Azurite,Beryl,Calcite,Chalcopyrite,Cinnabar,Copper,Corundum,Feldspar,Fluoritey-}^^Galena,Graphite,Gypsum,Halite,Hematite,Hornblende,Kaolinite,Limonite,Magnetite,MalachiteyHHMica,Olivine,Pyrite,Quartz,S-}phalerite,Sulfur,Talc,Topaz,Tourmaliney[[,,,,,,,,,-}y^^,,,,,,,,,yHH,,,-},,,,,y5,7,11,12,15,18,19,23z881,3,4,6,8,9,10,13,14,16,17,21,22,24,25,26,27,28-},29z 5,7,18z 4,8,9,10,13,14,16,21,27,28&z1,17,22,24,26,290z2,6,20,25%ETURENDINZLINZNCBCELIMINATE,[RT Z CCCCCCCCCCC1ZNLINE1LINE2VOLUMEVERSIONCOPYNUMTEXTYEARZETZIOCZBGZADZLZHZLEZCMZZERTC1}2LINE3LINE4C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLC1DISIC1} 1} !"1}#$%&'()*+,-./ Program: LOG1}O Copyright 1982 - MECC ' #@ '" "!!1,2,3,4,5,6,7,8,9,10,20,256 5500(;1}%,;,<AR d33;,;,;,;,;%,;%,;%,;,fLA@Y++AA=1}AAIARL(n6. Earth Sciencex 6. 6. 6. 6.2.36.1982 6. 1}B,) (<$@&P:+B:,%,',)(6 (< $|5 6-$$6- %'A6%5A7%9 6-1} %A@%+AA%9A4%M6-?:C:hhhLV,<,*6-F:%A5,J6-F:A@%,%F:AA%,$M$1}6-P:',6-P:&$,$' D:LOGO.FNT'56-BS`6-$6-#6-' 5AV$8'@ 1}  B'%%(}=>>>>>>>>>>>>>>>>>>>>>>>>+L'(< <V'( <  <`'!!(<  !>:@4, <j' (1}<  %$  Minnesota<t'""(<  &  Educational<~' (<  [|  Computing<'!!(<  ]\  Consortium<1}'( <  _^ <'( <  `{ <'( < <' (<<', 6. AB:,!"6., A'5 B:,!61}. A%B:,!+6.5 A' (<<(%6.Version 67,.% A (""(;>>>>>>>>>>>>>>>>>>>>>>>>@(661}. COPYRIGHT #67@,.667%,. - MECC(& B:,!67%,. #&67$,.((*-P:&+B:,%,',% $-*61}-<('AY@4'AdAUA(86-%@8 A*F:Ad,"AUBB(A$F(Ad1}&%D1:HELLO%CCCC1ZNLINE1LINE2VOLUMEVERSIONCOPYNUMTEXTYEARZETZIOCZBGZADZLZHZLEZCMZZERTC0sCCCCCCCCCC1C2C25CLEAREOCLEAREODISKIRETURTEXTNUMBERYNDISKNAMEXNENDINNUMPROGMAXLECXMAXI5}PROZIOCZZLZHZADZLEZCMZERLXXCINFLAXZETZBGVTASELECINPUNUMOPTVERC105} 5} !"#5}$%&'()*+,-./0125}34 Program:HELLO Copyright 1982 - MECC ) #@ )" "%%1,2,5}3,4,5,6,7,8,9,10,20,256,1005100,5150,5500,9990d&&;@7,;,;,;%,;,n-Bx% #B"5}6-%6-%+!,+ - A""B:,!+6-B:,% @%@@9 B#Bp%5}$$$, ))6 ))6-%$@7 ))6-%$&%%6-) 7"AJ$ -5}"4)4 A0.7B:,,4*$ 7:,6-%67,.>:,) A 5}"AE:6-@:7<,,'!@G* @Y06-A:,: AP 6-7AR"%A4B7t5}A7$ $%~{6-?:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTeRː(e˅ː5}8SRˈ0`,,~$ $% %|5 6-$$6- %'A6%5A7%9 6- %A@%5}+AA%9A4%-6-?:C:hhhLV,<,*6-F:%A5,-$6-P:',6-P:&$,$'JAR-%5}6 Pressto continue.DAd&J6-',B7t@&F:Ad,"&, % 'F:Ad,"%*' 5} '.F:Ad,"%6-(Ad&. % '! Ad&-!$'YAF:A@,+&0%00%5}<AR?(K@eYAd&'& #B""-&&B:,'& $'@-&'.',-@ 5}A"% ,  3' .  B'     D'/" %. Program Descriptions( /  F'. %. End5}@.6-F:@,%L'3 - Which number? # - A36-V'!* %B['G-@#=( Pl5}ease enter a number from 1 to %.G B``' %Be'"%BPt'( -(!*F:@, &B5}v' ! x'; }#B"+@&B:,'/ ;@y'" Program Descriptions"-~'I( A5}" " ",@3  = AI@'   'V/('} A manual to aid in the use of thisV(" disk5}ette is available from MECC.'3( Title:#B "/-&&B:,'3 'd(Direct inquiries to:A( MECC 5}Distribution Centerd( 3490 Lexinton Avenue North'h ( St. Paul, MN 551127( (612) 638-0627; h((} If5} you have any problems using MECC'[-(% courseware with your microcomputer,B( write or call:[( MECC Help Line5}'_'( 3490 Lexington Avenue NorthD( St. Paul, MN 55112[( (612) 638-0638_ '  (2 (}-%.(In5}sert the new diskette.2 (%D:LOGO* 6- A"***F:A,"*4 URSA LESSONB*,,F:A,"*5}4 URSA ROTATIONB* B*+A-%*F.(& Ursa Rotation is not available on the>(  NETWOR5}KB F *+A-%*D,($ Ursa Lesson is not available on the<(  NETWORK@ D +$" "$F:A5}, $B + 6- A" + +&0%0 +.B:, %!-&B:,'@. @+"6.5}D:67,.*+%.*+0%0%'AR*(.C -0("Sorry, you need more memory to runC(this progra5}m..G/(!This program requires at least K?( of memory.C G 0u3 - #B"/-&&P:B:,',3(5}2uA "-%3 No teacher options available.7 A BR5u% - Your options are:" % :u@-5} ENDPNTRH0570 ;Y REG SHOULD STILL EQUAL ZERO0580 ;UNLESS NEVER CROSSED PAGE BOUNDRY0590 SAMPAGE S:}TA (CLRPNTRL),Y ;CLEAR UNTIL Y REG = ENDPNTRL0600 INY0610 CPY ENDPNTRL0620 BNE SAMPAGE ;IF (CLRPNTRL),Y <> (ENDPNTRL)0:}630 RTS0640 .END0 *= $600 ;RELOCATABLE0110 ;0120 ; CLEAR MEM0130 ;0140 ; BRET E INDRELEE0150 ; 8fff~x8`~x000` 10y 0>}`@ ~?~ 0 80?8~~n>~~<> }f >xxl0p8;``fv~~nf> } }c<~~<?> }?<~~<~p07|00p<6~3s;67?666f~x`x`~<~~<> }0~0 ~ <~~<`?}> |ffff}8x8~x8`~x000` 10y 0<ﻻffffp88pf< 8``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nfB}<B} 0`?  0`0`@@``````````0 ``````x`x`~<~~f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<fB}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~B}8x8ffffp88pf<