' +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*`DE DO YOU WISH TO MAKE? ";:33,40440000:L(I)ZNPL(I)0L(I)100090521:1:"PLEASE BE REASONABLE.":35000:8:958:891L(I)(L(I))902SP:ZDL(I)C1:45000:7:30L1((ZD$)L1)((ZD$)L1):"-";:31(ZD$):ZD$;" LEMONADE"NESS. YOU ARE BANKRUPT. THERE ARE"Kk:"NO DECISIONS FOR YOU TO MAKE."Xn35000:bp1030zZM23:SP:6:ZDA(I):45000:L1(ZD$):30L1:"$";ZD$;" ASSETS":255{24:10:"(TYPE 'END' TO STOP)";:1!|8:33,21:"HOW MANY GLASSES OF LEMONActional computing activities can","differ in terms of the ratio of","computers needed to number of students","involved."oSkill","MOD 1","This section demonstrates how various","instructional computing activities can","differ in terms of the skill level of","the student.",""xà "Classroom Strategies for Computer Use","MOD 3","This section demonstrates how various","instruzdÃ"Introduction","INTRO1","This section gives a brief overview","of this MECC product for training","educators.","",""xÃ"Keyboard","KEY2","This section provides some fundamental","practice in using the computer's","keyboard.","",""Ã"Levels of 30000:0uSPACE BAR ROUTINE0:u:SPACE::@yWIND:1200[STANDARD YES-NO INPUTq(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020PòUSERDATAAREAZà "Computers in Teaching","","Version 1.1",4ct you may leave a program at any time.";wB" To do this, press the ESC (escape) key twice whenever the computer is waiting for you to type something.";|B" This will either take you to a menu or ask you if you want to run the program again.":VSP:16040)>ZN27ZEZE1:ZE16030,310006>ZN13ıS>ZN24ZC0:Z$"":16035c>ZC016040|>Z$Z$(ZN):ZN32ı>ZCZC1:(ZN);:16040hBESC ESC SCREEN)rBVSP,3:CL$"Leaving a Program"CC$:CO,0,45:"While you are using this MECC produ PLACED IN Z$=>(1);:ZE0:16368,0:ZC0:GCP,ZX,ZY:Z$""P>CO,ZX,ZY:CELg>A$:(A$)116040t>ZN(A$)>ZN1ZN8ZN13ZN24(ZN49ZN48TN)16040>ZN8ZC0ZCZC1:(8);:ZC0Z$(Z$,ZC)>ZC0ZN8Z$"":16040>ZN8:::TO A FLOCK OF SCAVENGER"%On:"BIRDS."0Ox07820WO"YOU BLED TO DEATH IN THE WOODS."O:"COME BACK TO ODELL WOODS AGAIN SOMETIME SOON."O24:"PRESS SPACE BAR TO CONTINUE";:Z9$:43000O,40OJ24:"PRESS SPACE BAR TO CONTINUE";:Z9$"PL,24,25,23,23,21,22,20,21,19,20,18,18,17,17,16,16,15,16,14k 4,106,172,3,106,96,32,146,94,173,148,105,0 4,106,172,3,106,96,32,146,94,173,148,105,0007,195,195,184,184,174,174,164,164,155,155,146,146,138 138,130,130,123,123,116,116,109,110,103,104,97,98,92,92,87,87,82,82,77,78,73,73,69,69,65,65,61,62,58,58,54,55,51,52,48,499 46,46,43,44,41,41,38,39,36,37,34,35,32,33,30,31,29,29,27,28,26,267,3,133,0,173,253,2,74,240,4,70,0,208,249,185,127 3,56,229,0,133,1,200,185,127,3,101,0,133,0,169,0,56,237,254,2,133,3,169,0,133,2,165,1,208,152,234,234,76,112,3,230,2,208,56 230,3,208,5,96,234,76,125,3,208,236,0,0,246,246,232,232,219,219,207,28,28,26,28,23,28,21,28,23,150 ,: -MUSICv 76,55,3,164,1,173,48,192,230,2,208,5,230,3,208,5,96,234,76,21,3,136,240,5,76,27,3,208,235,164,0,173,48,192,230,2,208,5,2301 3,208,5,96,234,76,47,3,136,240,209,76,53,3,208,235,173,255,2,10,168,185,12A NUMBER 1 - 3":43022"ZE1Ĭ2ZE343049m:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"y)1023,9*: 9*: ,: Z:A$ (: (; 1105(= R30((B J1N3(C G(J)0:(D JD(L 1320R(` X41805[(j X41(~ :"A HEAT WAVE IS PREDICTED FOR TODAY."( R12( 805( (LO ENTER STATEMENT(VO ENTRY CONDITIONS - ZT= # OF SECONDS TO ALLOWD)`O EXIT - ZAPRESS SPACE BAR TO CONTINUE";:A$+'11059'X31805B' X31K' R33T'$ 805'. :"A SEVERE THUNDERSTORM HITS YOUR TOWN"'3 :"JUST AS YOU SET UP YOUR STANDS."'8 :"YOUR LEMONADE AND SIGNS ARE RUINED."(9 24:"PRESS SPACE BAR TO CONTINUE";TREET TODAY, SO THERE WILL BE"B&:"NO TRAFFIC ON YOUR STREET."U&(1).52233^&R22h&2250r&R1.1{&X21&805&:"THE STREET CREW COMES TO YOUR STAND"&:"AT LUNCHTIME AND BUYS ALL THE "!':"LEMONADE YOU HAD MADE.":24:" EVENTS%X(6(1))1<%X2100,2200,2300,2400,805,805J%4X11805x%>:"THERE IS A 50% CHANCE OF RAIN TODAY,"%C:"AND THE WEATHER IS COOL."%HR1.5%RX11%\805%X21805%:"THE STREET DEPARTMENT IS WORKING ON"&:"YOUR S NOW 4 CENTS FOR EACH GLASS"/$:"YOU MAKE.">$D71480m$:"INFLATION CAUSES YOUR LEMONADE MIX TO"$:"GO UP. YOUR COST IS NOW 5 CENTS PER"$:"GLASS."$705$24:"PRESS SPACE BAR TO CONTINUE";:A$:::255::43000% RANDOM3#p35000::Z28#qQ0:I1N:QQB(I):I:QN1397h#r(5):"ALL YOUR STANDS ARE BANKRUPT. IF I"#s:"WERE YOU, I'D GIVE UP SELLING LEMONADE."#t1500#uR11#vR20#xD21450#:"YOUR SUGAR IS NO LONGER FREE."$:"YOUR COST IS*":(162Z3):3);I"/1390"272Z3:4LNGTH(I));I;12LNGTH(L(I)));L(I);21LNGTH(S(I)));S(I);30LNGTH(P(I)));P(I);38LNGTH(N2));N2"6162Z3:4LNGTH(I));I;13(M$));"$";M$;22(E$));"$";E$;31(P$));"$";P$;39(A$));"$";A$#nZ&! P1(100(ME).5)100: PROFITT! ZDP1:45000:P$ZD$:P11P10P$"0"P$|!A(I)(100(A(I)P1))100: ASSETS!ZDA(I):45000:A$ZD$:A(I)1A(I)0A$"0"A$!H(I)12300!(!)B(I)11330".(72Z3):3);I;" ***BANKRUPT**CORRECTION FACTOR IF SOME SALES ARE LOST.U N2L(I)1270: IS SALES >=PRODUCTIONa N2L(I) M(.001(N2P(I)))100: INCOME ZDM:45000:M$ZD$:M1M0M$"0"M$ E((S(I)S3L(I)C1)100)100!ZDE:45000:E$ZD$:E1E0E$"0"E$OLD, PROFIT ETC.R32365*Z313FI(Z21)3Z3:IN1392UR221260hP(I)P91220N1(P9P(I))P9.8S2S21230N1(P92S2P(I)2): NUMBER SOLD IF P(I)>=0.P.N2R1(N1N1(1(S(I)C9)C2))) N2(N2G(I)): Y FINANCIAL REPORT":12);"FOR 'LEMONSVILLE'"@t18);"DAY ";D~::"STAND GLASSES SIGNS PRICE GLASSES MADE (CENTS) SOLD"15:"STAND INCOME EXPENSES PROFIT ASSETS TODAY" CALCULATE NUMBER OF GLASSES S1050 I110022:"DO YOU WANT TO CHANGE":"ANYTHING (YES OR NO) ?";:868:"";Y$:Y$(Y$,1):Y$"Y"Y$"N"1050$Y$"N"1030.:7:958:810L PRINT OUT M:R22290OR32350QZ21(N1)31`-j10);"DAIL:1:958:32,0:33,40:21:1:868:950Z(18):"WHAT PRICE (IN CENTS) DO YOU WISH TO"x"CHARGE FOR LEMONADE? ";868:40000:P(I)ZNP(I)0P(I)100102422:"PLEASE BE SERIOUS.":35000:18:958:1010P(I)(P(I))1021:31(ZD$):ZD$;" SIGNS":11:31L1:("-------",L1)ZDA(I)L(I)C1S(I)S3:45000:12:30(ZD$):"$";ZD$;" BALANCE"255A(I)L(I)C1S(I)S3.0011010(21:"SORRY, BUT YOU CAN'T AFFORD THAT MANY.":35000:33,19:32,21:10::10GNS (";S3100;" CENTS EACH)":15:1:"DO YOU WANT? ";:868:33,40U40000:S(I)ZNoS(I)0S(I)5096521:"PLEASE BE REASONABLE.":35000:21:868:950S(I)(S(I))962SP:ZDS3S(I):45000:10:30L1((ZD$)L1)((ZD$)L1):"-";8:31L1:("-------",L1)PZDA(I)L(I)C1:45000:9:30(ZD$):"$";ZD$Y255L(I)C1A(I)L1(ZD$):13:958:95021:"I DON'T THINK YOU CAN AFFORD THAT MANY."35000:7:958:891B33,21:13:"HOW MANY ADVERTISING SIVOLUME IS EXTRAPOLATED TO ZERO.":700:2fX2X2(Y2150)(X2X1)(Y2Y1):Y2150:930:815:845:7000HO$:6:"^WE EXTRAPOLATE TO ZERO VOLUME TO NOTE THE "TM$" WHICH WE WILL LABEL "BO$"ABSOLUTE ZERO"NO$", (THE COLDEST POSSIBLE "TM$"). ^AT THIS "TBO$;TM$;NO$4fV2:I50010:V:" "(I):VV3:gkA$"VOLUME":BO$:I18:6I:(A$,I,1)::NO$pTETC:VC2:925:X1X:Y1Y:TET:VAC:925:TEDT:VC1:925:X2X:Y2YzJ1100::930:700:815(19:"^BASED ON THE DATA WE COLLECTED, THE GAS 3---->1 "B" MM":700:{MB$" ":V18:H5:I30015050:V:H:A$((I)):L(A$):J1L:(A$,J,1);B$;::HH4(H37):R19:H4:I05:H:"-";:HH4::\I1501527:35,I278,I:aI3527827:I,15I,150::845 c16:30:"";138,TP1:TPTP1:BTBT1:U>0:132,TP138,TP:3:TPTP1:BTBT1:132,BT138,BT:C18:"^NOTE THE RELATIONSHIP BETWEEN THE "M$" IN THE "TM$" AND THE VOLUME OF THE GAS.":H19:"^GAS "TM$": "T"3O0^C 3---->1 "T9"3O0^C ^GAS COLUMN: "AC" MM 3:OTTP*IBTTP1:132,I138,I:I:e 1:"^MERCURY COLUMN= "LN"MM ^GAS PRESSURE= "TR"^TORR"%1:23:"^GAS COLUMN=       "B"MM":FLĢ2:23:"^"TM$"= "T9"3O0^C"*/0:775:3:4UP83090:132,BT138,BT:3:132,TP1109$I24L1:165,I:J110::LIL1L14:161,I169,I:J125::9:34:"5T 4E 3M 2P0":14:32:"3    ";:32:P"6O3^C0":2:130,25130,140140,140140,25:128,25128,141142,141142,25BT(138B):TP(BTLN1):82,OT126,OT:144,OT188,OT:H2:X,Y4X5,Y4:X,Y2X5,Y2:XX81:211,75211,125251,125251,75211,75:211,110251,1105:I74691:227,I235,I:J110::I68241:231,I:J110::I2311641:I,24:J110::L11(ZD$)$1˯(ZD$,ZE,1)"."45006,1̯ZEE1ͯZD$ZD$".00":45010\1ίZE2(ZD$)45010l1ϯZD$ZD$"0"r1ү1PCH(36):CV(37):1QâCV1:36,CH:868:1Rù34,ZC1:ZC::34,0:CV2:0ʯZE1(ZD$),0˯(ZD$,ZE,1)"."4500640̯ZEM0ͯZD$ZD$".00":45010d0ίZE2(ZD$)45010t0ϯZD$ZD$"0"z0ү0PCH(36):CV(37):0QâCV1:36,CH:868:0Rù34,ZC1:ZC::34,0:CV2:R FIXER0ɯZD(ZD100.5)100:ZD$(ZD) 1ʯZEOR 3 ";:868/40000:ZEZN3/ZE0ZE443030_/:"PLEASE ENTER A NUMBER 1 - 3":43022k/ZE1Ĭ{/ZE343049/:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"/)1023,9/*:/ȯ DOLLAR FIXER0ɯZD(ZD100.5)100:ZD$(ZD):34,0:CV2:P(ZD$)45010..ϯZD$ZD$"0"4.үL.PCH(36):CV(37):e.QâCV1:36,CH:868:.Rù34,ZC1:ZC::34,0:CV2:Z:"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR". :"3) END" /13:"PLEASE ENTER 1, 2, D$)-˯(ZD$,ZE,1)"."45006&-̯ZE?-ͯZD$ZD$".00":45010V-ίZE2(ZD$)45010f-ϯZD$ZD$"0"l-ү-PCH(36):CV(37):-QâCV1:36,CH:868:-Rù34,ZC1:ZC::34,0:CV2:PH(36):CV(37):-QâCV1:36,CH:868:.Rù34,ZC1:ZC:ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001],FZM:868:CV1(CV23):ZN(ZN$):v,JCV1:36,CH:868:, END OF PROGRAM ,:,/D$(13)(4),4D$;"RUN MOD 5",ȯ DOLLAR FIXER,ɯZD(ZD100.5)100:ZD$(ZD)-ʯZE1(Z:"SPACE BAR";::" TO CONTINUE";G+̈16384,128:16368,0:1:868:]+@CH(36):CV(37)+A"";ZN$:(ZN$)9Ģ21:1:"PLEASE BE REASONABLE":40010:40001+B(ZN$)(((ZN$)))40003+C(ZN$)0ZN$"0"40006+D(ZN$,1)"E"ĉ::430105,E450*OZZ$(ZZ$,(ZZ$)1)B*O(0):" ";:(0):16368,0:20360W*O16368,0:20360i*OZZ$"":20430*OZZ$ZZ$(ZZ):(ZZ);:16368,0:ZCZC2:20360*O(13);:ZCZC59:ZA$ZZ$*P16368,0:* SPACE BAR"+ˆ24:868:16368,0:7:"PRESS ";:$=INPUT, ZC= # OF SECONDS IT TOOK, (ZC=-256 IF WENT OVER TIME LIMIT)Q)tOZTZT60k)~OZZ$"":ZC0:16368,0)OZCZC1:ZCZTZC15104:20470)O(16384)12820360)OZZ(16384)128:ZZ1320470)OZZ820460)O(ZZ$)020440*O(ZZ$)120$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$666----$$$TIME SOON."O24:"PRESS SPAMBER - TRY AGAIN";:40010:40001HFZM:868:CV1(CV23):ZN(ZN$):aJCV1:36,CH:868:v END OF PROGRAM~:/D$(13)(4)4D$;"RUN MOD 2.7"ZZY"R$"N"43030 :R$"Y"Ĭ/D$(13)(4)4D$;"RUN HELLO"46368,0::0uZ1(Z$)-:uZ3((Z$,Z,1))T?uZ360ĔZ344Z1(Z1)7,Z2:30050e@uZ33230050}NuZ31Z1(Z1)7,Z2buZlu@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006 CZM:"THAT IS NOT A NU80)10:"THAT IS CORRECT!!!"!R980-::90k:10:" EARTHQUAKE DETECTED"::"STANDBY FOR DATA...."(4);"RUN QUAKEP2"24:" PRESS 'SPACE BAR' TO CONTINUE";:16368,0(16384)12799016368,0:: CORRECTED BY SD (5/7/ ":"ADDITIONAL 100 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: 100 KM AWAY."n" IF THE LAG TIME WAS "X" SECONDS, HOW FAR"::"FROM THE EPICENTER WOULD YOU BE";:Y$Y(Y$):Y0ė:750 Y1X12.5Y1X12.5840-" NO, REMEMBER THAT FOR EVERY 8 SECONDS ":"OF 'LAG TIME', THE EPICENTER IS AN 'LAG TIME' BETWEEN 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 ISEL AT ABOUT 6.1 ":"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."980O" USING THIS KNOWLEDGE, WE CAN SEE THAT ":"IF THE"]"THAN THE 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."R980::" GIVEN THAT P-WAVES TRAV(X4.1.5)l640Dv:3:"THERE STILL MIGHT BE HOPE FOR YOU!!!"M980:" WHEN AN EARTHQUAKE OCCURS, BOTH"::"P(PRIMARY) AND S(SECONDARY) WAVES ARE ""SENT OUT IN ALL DIRECTIONS. HOWEVER ":"SINCE THE PRIMARY WAVES TRAVEL FASTER .1)).5630-IT0ĢV21:V11:"";T$:580N:"(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)).5630 b:"THAT IS NOT CORRECT, THE ANSWER WAS "$11,Y1X21,Y2:X21,Y2: LINEAR RELATIONSHIP BETWEEN VOLUME AND "TM$", OR IN OTHER WORDS, ";(34)"THE VOLUME OF A GAS IS DIRECTLY PROPORTIONAL TO ITS TEMPERATURE.";(34):700:HO$:X197TE.54:Y151V2.72:I22:X2,YIX2,YI::J11000:: X1,Y1X2,Y2:XM$" THERE IS NO MOTION OF THE MOLECULES OF GAS."n700:HO$:2:14);BO$"CHARLES' LAW":15)"CONCLUSION"NO$E" ^WHEN THE DATA WAS PLOTTED ON THE GRAPH, AND THEN EXTRAPOLATED TO ABSOLUTE ZERO, YOU NOTICED A STRAIGHT LINE. ^THIS LINE REPRESENTS AELLO"vSPACE::? yCL$:VSP:12:"Getting the menu...":D$"RUNMENU" "yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1); ,y36000 6yZ$"Y"Ĭ @y(12):CO,0,89:"Getting the menu program...":SET,0:RNH,"HELLO""HELLO"SET,0:RNH,"HtttΥtΤt` g R  QP (`L w`LEDGt`0t ttt8ʍtt :tȌttt tttt :ttt ttt :ttt ttt :ήt0 v vLlvt3 vttt Wttt Wttt Wttt W`ttt Wttt :ttt :ttt :tttL:tΫt ʎtt ^ LᎰt I LᎯtLmuttttmttmttttttt<=8t>gccccg>>~~{` fffffffffl6iɆpqs 0 000000 0 0Z<|~~6    etting the menu program...":SET,0:RNH,"HELLO"Tnu program...":SET,0:RNH,"HELLO"D?,190,4:30000:90u STANDARD SPACE BAR ROUTINE )HI-RES)T:uCA$:AFT,1:SPACE::yCL$:VSP,1:11:"Getting the menu...":D$"RUNMENU""yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);,y360006yZ$"Y"Ĭ/@y(12):CO,0,89:"Gve this border.":20000CL$:5:"When this border is not on the screen,";CA$;:PAUSE,5:EDGE,6,6,272,184,6,6:PAUSE,6:" an educational activity from a MECC product is being presented.":2000031000N NEDGE,6,6,272,184,6,6:BOX,30,180,248he material in two separate sittings.":20000PCL$:4:"It is assumed that the programs will be run in sequence and that Volume 1 will be completed before Volume 2.":20000xCL$::VSP,4:5:"All screens which contain DISCUSSION information will haes are taken provide their complete versions for classroom use.":20000 FCL$:4:"The activities in Computers In Teaching will require approximately one hour to complete. Each of the two diskettes requires 30 minutes."-K:"You might want to view tboard.":20000 CL$:5:"Please note that the actual classroom computer activities contained in each section are shown in abbreviated form to provide an example of the concept being discussed."G :"The actual MECC products from which these activitier use.":20000 ~CL$:6:"It is assumed that you already have a fundamental knowledge of how to use the computer's keyboard to type in responses and make choices from menus."; " A review of some of these fundamentals is included in Section 2: Keyes of computers and to examine some capabilities of computers that can enhance learning.":20000 tCL$:6:"Computers In Teaching is designed to be used as an individualized hands-on tutorial for educators beginning their exploration of classroom computD$"BLOADASCII BOLD.FNT":DFT,1,30539:D$"BLOADALT2.FNT":DFT,2,31699 LAFT,2:CL$:WIND,12,6,270,182:CN$:VSP,5:5:"INTRODUCTION"CC$:VSP,1:20000 VCL$:4:"WELCOME"` j7:"The intent of this material is to provide an overview of educational us0  "THIS IS INTRO10"COPYRIGHT MECC 1984O"LAST UPDATE:3/29/84 FJSx("PROGRAMMER: FREDERICK J. STEINMANNc100016384D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64E :D$"BRUNHPRINT.OBJ":D$"BRUN BUTIL.OBJ":      QpRpZp[p߹Zp[pIo pIo , g =p ,Ho $pMp) Np OpPp)?p ߅ l Mo ) L{o HHH>p hhh ɛ Moo0LooɈ95ɍ=p7,?p >p h5880`L =p>p?pHoAp ( $pL!o | {$0! >p ,Ln ^ {$0LnNHo Lo|Jo nr- p nKo n p-KoKoKo pLnnJoLoJo^`NHo Qphh,lp` ֩PyQ ALŠҠ僁iimiʈ i i &'iq& iLi N8`f `.f`xmym ` ң Σ  h`+ hR("  LPj,Hk  l  hl`L, HHHHHHHHH k ީl wjlNO,ɍɠ ɛ8nl,lPݩ lhhhhhhhmHihʍ i i i LiL 2k 3kM4k2k g<>=M4k?'<>2k2k3k` H g Rh PQ`L     խ)?` ` @)`,` Rj ެiii g&' i jQ&-iQ&&ii i`*U U*ժ Fj')JMFj)i Q&,iP 0=Kj`Gj`J&)` `L3f̙ujvj ߅$0Hujvj LbLvjj j` hiii h8)h` g R  QP (`L h`L)  @ iiiiiiiii g iii i i g iii i iBi g&' i jQ&-iQ&&ȭi i j& jQ&-iQ&&ii i`i-hhh hJ` &eeieh ghIiVhi 썛h gmh﬜hMhVhPjjjjjjj0jj) h0ȱjhjhhУ`8pPH)8 qȥq-`,f`imimʈ i iiʎ iLi Aggg` gg }ggg` g Ag }gggg`{g|g|g8pug.{g(ugg|gm{gg`8p g)gJJ gg gg .g .g ngg)ggmgg`hH80 " Jfm8h)` dem88eLf` deme` d8` f@ yf yf f`Lb dffL(f ``fʽ`) ` `fH`mS` dS`)We`Ve hWe gVe}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L defff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff ``)    LX8e湥 pHpH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff f`em (f%%h $20 LPc $ aHaH`dWeceWeeeee'fIfbffffff(bb d cf hf gNOH c h f ghH ,aɈ( cb h) e f g c ebbh`xo 8ɀ`?```L`bbbbp$% `@ GaLa6 ,fLbLcfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH c$ d e$%0 d              gram...":SET,0:RNH,"HELLO"E} STANDARD ERROR PROCESSING (HI-RES)h }ZE(222):ZN(218)(219)256y}ZE1532110}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)2}(12):CO,0,89(64L)L13:L1:20520PL10PF$F$(64L)9(PL:?/ui0u STANDARD SPACE BAR ROUTINE )HI-RES):uCA$:AFT,1:SPACE::yCL$:VSP,1:10:"Getting the menu...":D$"RUNMENU",y360006yZ$"Y"Ĭ@y(12):CO,0,89:"Getting the menu proinformation. The computer is a presenting tool. ";<"The teacher is the center of attention. Students listen and watch more than they interact.":20000:N NEDGE,6,6,272,184,6,6:BOX,30,180,248,190,0:30000:PF$"":L13:L113:A$(L1) use the teacher simply ASSIGNS the activity and perhaps checks student progress ";("later. The computer is the center of the student's attention.":20000:2Cİ1280:C127CL$:3:"In a LARGE GROUP the teacher simply serves as a PRESENTER of y by setting the stage before it starts, and ";"debriefing the students after it ends. The computer moves the activity along but the focus of attention is on the interaction between students.":20000:Cİ1280:C1S#CL$:3:"With INDIVIDUAL! You seem to understand"CC$:"these concepts."CC$:20000:31000CL$:VSP,4:3:"You may be correct, but consider the following choices which differed from yours.":20000:/ 1280:C1:CL$:3:"With SMALL GROUPS the teacher FACILITATES the activit:CO,12,108:INP,(1,F$,1),A$(1):20500:CO,12,122:INP,(1,F$,1),A$(2):20500:CO,12,136:INP,(1,F$,1),A$(3):20000A$(1)A$(2)A$(3)"BCA"1260A$(1)"B"İ1290A$(2)"C"İ1310A$(3)"A"İ133031000ACL$:VSP,4:6:"Very goodf your choice and press RETURN)."uVSP,1:::6:"ROLE";:20:"STRATEGY":" -----------";:17:"--------------"VSP,6:" FACILITATOR";:17:"A. LARGE GROUP":" ASSIGNER";:17:"B. SMALL GROUP":" PRESENTER";:17:"C. INDIVIDUAL"r20500xCO,28,142:"PRESENTER o"CA$"f the content of the activity.":20000:CL$:WIND,12,6,270,182:EDGE,6,6,272,184,6,6!CA$:VSP,4:CO,9,12:"Try matching each of the teacher roles below with its most appropriate classroom strategy (type the letter o1:20000:EDGE,6,6,272,183,6,6h WIND,124,6,270,182:CO,28,64:"FACILITATOR o"CA$"f setting up the ";"activity and leading follow-up discussion.":20000:CO,28,102:"ASSIGNER o"CA$"f the activity, simply telling students to get started.":20000L1MU34,138,3, yCO,L1MU27,131:"C":L1n ~:CO,11,119:"COMPUTERS"CC$:CO,11,163:"STUDENTS"CC$:20000 CL$:2:"Each of the classroom strategies discussed suggests a different role for the teacher. Possible roles include the following:":VSP,mmed below.":20000:EDGE,6,6,272,183,6,6:S oMU54:ST9:ENST8:SEST24:S2SE8 tL113:BOX,L1MUST,140,L1MUEN,148,6:BOX,L1MUEN2,149,L1MUEN10,157,6:BOX,L1MUSE,149,L1MUS2,157,6:BOX,L1MUS22,140,L1MUS210,148,6:BOX,L1MU26,130,fit.":20000 `CL$:CO,12,18:"The Lemonade Stand activity requires much decision making and interaction with the computer on the part of students. This provides an ";+ j"excellent opportunity for students to work together in small groups, as diagra.OBJ":D$"BLOADALT2.FNT":DFT,2,31699:D$"BLOADASCII BOLD.FNT":DFT,1,30539r LAFT,1:CL$;CN$:WIND,12,6,270,182 VCL$::VSP,3:5:"In normal classroom use this activity would continue for several more rounds as students attempt to maximize their pro< "THIS IS MOD 5 0"COPYRIGHT MECC 1983P"LAST UPDATE:11/19/83 FJS{( "PROGRAMMER: FREDERICK J. STEINMANN1638432000D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64K ::D$"BRUNHPRINT.OBJ":D$"BRUNBUTIL           ::12:"GETTING SELL LEMONADE...":D$"RUNSELLL"s"yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);~,y360006yZ$"Y"Ĭ@y(12):CO,0,89:"Getting the menu program...":SET,0:RNH,"HELLO"Iat the location of the epicenter rather than calculate the actual location.":20000:31000`N NEDGE,6,6,272,184,6,6:BOX,30,180,248,190,0:30000:/u0u STANDARD SPACE BAR ROUTINE )HI-RES):uCA$:AFT,1:SPACE::0yD$;"PR#0":D$;"IN#0":20000CL$:3:"The computer draws a circle around each city, using the distance as the radius."::"The actual epicenter is the point where all three circles intersect.":20000ZCL$:5:"For the purpose of this demonstration, you will just guess LLO"ilometers between the earthquake and each seismograph station.":20000CL$:4:"These three distances are used to determine the epicenter of the earthquake."::"The student predicts the location by positioning a square on the computer map.": /u1 0u STANDARD SPACE BAR ROUTINE )HI-RES)L :uCA$:AFT,1:SPACE::a y"ENDING ROUTINE @y(12):CO,0,89:"Getting the menu program...":D$"RUNMENU"U"000 6yZ$"Y"Ĭ@y(12):CO,0,89:"Getting the menu program...":SET,0:RNH,"HEan see.":20000 CL$:5:"For another possibility of grouping students and computers, consider the following activity...":20000 UNHOOK:::12:"GETTING SELL LEMONADE...":D$"RUNSELLL" N NEDGE,6,6,272,184,6,6:BOX,30,180,248,190,0:30000:med like this ...":20000 tAFT,3:CN$:L113:L213:CO,L224126,L12045:(34)"#":L2:L1:CO,90,86:"$%&":AFT,1:CO,68,112:"COMPUTER":CO,150,127:"STUDENTS":20000 ~:12:"For this use, adequate video display units are needed so everyone cive use might be as a demonstration to a "; `"whole class, in preparation for a laboratory activity or as a substitute for the lab if equipment is unavailable.":20000 jCL$:3:"This "(34)"large group"(34)" model for computer use might be diagramLT2.FNT":D$"BLOADASCII BOLD.FNT":D$"BLOADINST.FNT,A32859":DFT,1,30539:DFT,2,31699:DFT,3,32859 LAFT,1:CL$;CN$:WIND,12,6,270,182+ VCL$::VSP,4:4:"The CHARLES' LAW presentation could be used by an individual student. However, its most effect THIS IS MOD 4 /"COPYRIGHT MECC 1983N"LAST UPDATE:3/27/84 FJSw("PROGRAMMER: FREDERICK J. STEINMANN16384D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64b ::D$"BRUNHPRINT.OBJ":D$"BRUNBUTIL.OBJ":D$"BLOADA     RNH,"HELLO" SPACE BAR ROUTINE )HI-RES)6 :uCA$:AFT,1:SPACE::K y"ENDING ROUTINE @y(12):CO,0,89:"Getting the menu program...":D$"RUNMENU"U"y36000 6yZ$"Y"Ĭ @y(12):CO,0,89:"Getting the menu program...":SET,0:RNH,"HELLO"D":SET,0:ilities for grouping students and computers in the classroom."::"Consider the following activity...":20000 UNHOOK:::12:"GETTING CHARLES' LAW...":D$"RUNCHARLES' LAW" N NEDGE,6,6,272,184,6,6:BOX,30,180,248,190,0:30000: 0u STANDARDT,3:CN$:L182:CO,L1682,122:"$%&":CO,L1686,148:" !":L::20000 tCL$:2:"If you think back to the STATES and HURKLE activities, you will recall that they were designed primarily for individual use."m ~::"However, there are other possib3:2:"Most pictures you have seen of students using computers probably show a single student at each computer." `:"This "(34)"individual"(34)" model for computer use might be diagrammed like this ...":20000J j12:" COMPUTERS"::" STUDENTS":AFD$"BLOADALT2.FNT":D$"BLOADASCII BOLD.FNT":D$"BLOADINST.FNT,A32859":DFT,1,30539:DFT,2,31699:DFT,3,32859 LAFT,2:CL$:WIND,12,6,270,182:CN$:VSP,6:3:"CLASSROOM"CC$:"STRATEGIES"CC$:"FOR"CC$:"COMPUTER"CC$:"USE"CC$:VSP,1:20000p VCL$::VSP, THIS IS MOD 3 /"COPYRIGHT MECC 1983N"LAST UPDATE:3/27/84 FJSw("PROGRAMMER: FREDERICK J. STEINMANNc100016384D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64k :D$"BRUNHPRINT.OBJ":D$"BRUN BUTIL.OBJ":  "HELLO"D30000:1 0u STANDARD SPACE BAR ROUTINE )HI-RES)L :uCA$:AFT,1:SPACE::a y"ENDING ROUTINE @y(12):CO,0,89:"Getting the menu program...":D$"RUNMENU"U"36000 6yZ$"Y"Ĭ @y(12):CO,0,89:"Getting the menu program...":SET,0:RNH, `CL$:4:"In the following activity, the student uses LOGIC and REASONING skills to locate the hidden Hurkle in the fewest guesses.":20000 UNHOOK:::12:"GETTING HURKLE...":D$"RUNHURKLE" N NEDGE,6,6,272,184,6,6:BOX,30,180,248,190,0::D$"BLOADASCII BOLD.FNT":DFT,1,30539:D$"BLOADALT2.FNT":DFT,2,31699i WIND,12,6,270,182:AFT,1:CN$ VCL$::VSP,4:4:"The level of student skill involved in a computer activity need not be limited to simple RECALL as in the STATES drill.":20000 "THIS IS MOD 2/"COPYRIGHT MECC 1983N"LAST UPDATE:3/27/84 FJSy( "PROGRAMMER: FREDERICK J. STEINMANNc100016384D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64F :D$"BRUNHPRINT.OBJ":D$"BRUN BUTIL.OBJ"    3CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgClk {|J*BBC AC~~|~~JUNGAGsBcB6f`CBwJUNGAGsBBCFB;FJ*NGAGsB`B0`Ca]a}}JUNGAGsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBnJ*NGAGsBcB6cCtwutJUNGAGsBsB6xByA`N`@O@@`LGOFx~J~xHBBX}- CFJ*NGG8030?08R DybGOH@NHxBByB{CFJUNGGBC~R LL |J?_CALGsBBqCFJ*NGGcRd`gg`dg`pIG|ApLGs00{C3ACFJUNGG|x|xx||GsvC6ACFJ*NCL BAsqqBsA@E@B~@NDLGOG|L|HBFACFJUNGGDg`dEDsBBsDsNCDLGOD@CAAGA <LGO~x`FGA>B~BBBYCFJUNGG By yyPr0B30rKB~D>8xLGQF@`Dp`@HB@@_BY_CFJ*NGGFBAQB oBlOCFJUNGAGP?D@B`ABpAB8ABAABBLBlOCFJ*NGFE?~GOaHBAQBBOB`OCFJUNGDAC~AOASFO?MGQ|0TAA ~~B@@oBLOCFJ*NGGBsOA`G|KFgsx|LGOE@`pG`@GBBB3CFJ*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGAGOCC@B`ABpAB8ABAABBGlo`OCFJ*NGAGO~x`捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BA_BBC3ACFJUNA]??B/++*C*BB3?>CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)D 0u STANDARD SPACE BAR ROUTINE )HI-RES)C :uCA$:AFT,1:SPACE::X y"ENDING ROUTINE @y(12):CO,0,89:"Getting the menu program...":D$"RUNMENU"U"N6000 6yZ$"Y"Ĭ @y(12):CO,0,89:"Getting the menu program...":SET,0:RNH,"HELLO"":20000 `:8:"The program may only require simple RECALL of facts and information."::"Consider the following activity.":20000 UNHOOK:::12:"GETTING STATES...":D$"RUNSTATES2" N NEDGE,6,6,272,184,6,6:BOX,30,180,248,190,0:30000:(D$"BLOADASCII BOLD.FNT":DFT,1,30539:D$"BLOADALT2.FNT":DFT,2,31699 LAFT,2:CL$:WIND,12,6,270,182:CN$:VSP,5:4:"LEVELS"CC$:"OF"CC$:"SKILL"CC$:VSP,1:20000 VCL$::VSP,4:4:"Computer activities can involve different levels of student skill. "THIS IS MOD 1/"COPYRIGHT MECC 1983N"LAST UPDATE:3/27/84 FJSw("PROGRAMMER: FREDERICK J. STEINMANNc100016384D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64D :D$"BRUNHPRINT.OBJ":D$"BRUN BUTIL.OBJ":    b`BBGC <" 27 THEN 1430?GET A$: IF ASC (A$) < > 27 THEN 1430 PRINTCL$:VTAB4:PRINT"After pressing the ESC key twice, you will be asked if you wish to run the program again. The computer will wait for you to type YES or NO and press the RETURN key.of keys.":::"Press the 0 (zero) key. ";:INP,(1,"0",1),A$PRINT CL$: & EDGE,6,6,272,183,6,6: VTAB 4: PRINT "In MECC programs, pressing the ESC twice is used to stop a program at any time.": PRINT "Press the ESC key twice.";GET A$: IF ASC (A$6,6,272,183,6,6:5:"Some keys can cause confusion. The L key cannot be used for the number one.":::"Press the 1 key. ";:INP,(1,"1",1),A$<CL$:EDGE,6,6,272,183,6,6:4:"The letter O cannot be used for the number zero. The zero is on the top row :CO,X,YLE816368,0QP(16384):P141P136(P160P218)1200aP1411400P136LE0ĺ(8);CA$;:GCP,X,Y:(127)" ":CO,X,Y:LELE1:1195LE8P136LE0ĺ(P128);(127);(8);CA$;:LELE1:11951195xCL$:EDGE,ing error or to change an answer." :"For example:"CA$:GCP,X,Y:CO,X,Y4:" Use the"CA$;:GCP,X,Y:AFT,3:CO,X2,Y7:" !":AFT,1:CO,X18,Y:" to correct this":" spelling."CO,1,139:"COMPUTYR"CC$CA$;:GCP,X,Y:(127):EDGE,6,6,272,183,6,6 1130i CO,1,130:CA$"After typing your name, Press the RETURN key to continue. ":16368,0:1130 P(16384):P141Ĺ16368,0:1159" CL$:4:"The"CA$;:GCP,X,Y:AFT,3:CO,X2,Y7:" !":AFT,1:CO,X18,Y:" key may be used to correct a typGE,6,6,273,183,6,6$ j16368,0:C0@ oP(16384):P1271145V tCC1:C3201158` v1135p yP1411160 ~P136LE0XX8:CO,X,Y:(127)" ":LELE1:1130 P160ĺ(7):1130 LELE1:LE16LE16:1130 CO,X,Y:(P128)(127):XX8ll require the computer keyboard."::"Following is a quick review.":20000 `CL$:5:"The RETURN key must be pressed after each answer is typed.":"For example:":"Type in your FIRST name below: ":DB:ZX70:ZY110:LE0:XZX:YZY:CO,X,Y:(127) eED$"BLOADASCII BOLD.FNT":DFT,1,30539:D$"BLOADALT2.FNT":DFT,2,31699:D$"BLOADARROW.FNT,A32859":DFT,3,32859 LAFT,2:CL$:WIND,12,6,270,182:CN$:VSP,5:5:"KEYBOARD"CC$:VSP,1:20000K VCL$::VSP,5:5:"Answering questions appearing on the screen wix  "THIS IS KEY2."COPYRIGHT MECC 1984M"LAST UPDATE:3/12/84 FJSv("PROGRAMMER: FREDERICK J. STEINMANNc100016384D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64k :D$"BRUNHPRINT.OBJ":D$"BRUN BUTIL.OBJ":D     KI,2,ZN$:(ZN$)(((ZN$)))40003AB(ZN$)0ZN$"0"40006|CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4):4D$"RUNMOD 2" ZLO" ZASE ENTER ,' 27,37,35,42,42,53,53,65,68,59,44,46,60k.G7(I$)11:(I$,G7,1)"A"(I$,G7,1)"Z"G2G7:G71.:I$(I$,G2):16368,0:24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:@CH(36):CV(37)$AS73,194,178,191,205,198H' 136,144,166,168,194,181,194,210,225,221,222' 194,189,184,189,176,172,183,162,173,178,192,188,182' 10,28,66,30,54,18,40,58,64,86,88'18,34,52,68,28,48,66,34,38,54,57,53,70' 106,84,86,108,80,97,96,96,77,87,118TH CAROLINA,FLORIDAL`' MAINE,NEW HAMPSHIRE,VERMONT,MASSACHUSETTS,NEW YORKj' PENNSYLVANIA,NEW JERSEY,WEST VIRGINIA,VIRGINIA,MARYLANDl' RHODE ISLAND,CONNECTICUT,DELAWAREt' 58,50,42,74,60,96,102,82,108,76,102~' 132,132,134,138,156,160,164,1NA,NEW MEXICO=$' NORTH DAKOTA,SOUTH DAKOTA,NEBRASKA,KANSASw.' MINNESOTA,IOWA,MISSOURI,WISCONSIN,MICHIGAN,ILLINOIS8' INDIANA,OHIO,KENTUCKYB' TEXAS,OKLAHOMA,ARKANSAS,LOUISIANA,TENNESSEEL' MISSISSIPPI,ALABAMA,GEORGIA,NORTH CAROLINAV' SOUMBER CORRECT"::12:"FIRST TRY......";I3::12:"SECOND TRY.....";I4Wv35000:43000:22:14:"***CORRECT***":R0I3I31R1I4I4135000::585' WASHINGTON,OREGON,CALIFORNIA,IDAHO,NEVADA ' MONTANA,WYOMING,UTAH,COLORADO,ARIZO%(1,ST)N%(1,ST):W5ST45QFđ:3:WA,B:WA1,B1rOW5ST45Ē0:Q715:134Q7,114Q7134Q7,113Q7:Q7yPQX:bZV61711:9:ZV:"**********************"::7:ZV110:9:"*";20);"*":El8:12:"NUMBER TRIED...";F:::11:"NU:ST((1)N2N1):N%(1,ST)0520) 10412000GI$A$(ST)700ZRR1:R1560&::868:I$;" IS NOT CORRECT.":"TRY AGAIN.";:5250:21:"THE CORRECT ANSWER IS: ";A$(ST)D35000:I0:A1,B1A12,B1A1,B12A12,B1A1,B127NNES."::B"HOW MANY STATES DO YOU WANT TO TRY TO IDENTIFY? ";R40000:FZNF1FN2ĺ:"TRY A NUMBER IN THE RANGE OF 1 TO ";N2;".":450::3:SWA,B:WA1,B1W5Ē0:Q715:134Q7,114Q7134Q7,113Q7:Q7Q1F!R0200:B20:S1:W2:N11:N211:450Q B1$"M"A130:B10:S2:W3:N112:N213:450 B1$"S"A110:B0:S1:W4:N125:N211:450 B1$"E"A100:B5:S2:W5:N136:N213:868:10:"THERE ARE ";N2;" STATES IN THE WESTERN REGION OF THE UNITED STATERN, OR":PRINT:PRINT" 4) EASTERN"x  VTAB 15: PRINT "PART OF THE UNITED STATES? ";: CALL - 868: GOSUB 40000:B = ZN B1 B0B5B(B)395 :"THAT ISN'T ONE OF THE CHOICES. TRY AGAIN":384 I30:I4I3 B1$("WMSE",B,1):B1$"W"A(4)"BRUNSKIUTIL.OBJ" ZM243 :232,0:233,64H A$(48),N%(2,48)^ A148:A$(A):A A12:B148:N%(A,B):B:A# |VTAB3:PRINT"DO YOU WANT A DRILL ON THE":VTAB6:PRINT" 1) WESTERN,":PRINT:PRINT" 2) MIDWESTERN,":PRINT:PRINT" 3) SOUTH113(I$)01409 dC124C18C132(C165C190)ıt xI$I$(C1):(8);(C1);::" ";::C18(I$)1ġ:20 |C18ĺ(8)" "(8);(8);::" ";::I$(I$,1,(I$)2) }C124ġ:20 : (4);"NOMON C,I,O"::(4)"BLOADUSMAP1":: STATE IS THIS? ";::" ";:I$"":) 5T (A1,B1A12,B1A1,B12A12,B1A1,B12s -E120:(16384)127İ90z /E 20 7A1,B1A12,B1A1,B12A12,B1A1,B12 <E110:(16384)127İ90 FE P30 ZC1(16384)128:16368,0 _C COPYRIGHT MECC 19797 STATES2 7/16/79 FPP AUTHOR: MECC STAFFm ASSOCIATED FILE:USMAP10:::255::8192:150 * FLASHING CURSER AND INPUT SUBROUTINE!! A1S(N%(1,ST)150)A:B1S(N%(2,ST)10)B" 1:21:868:"WHAT     H@y(12):CO,0,89:"Getting the menu program...":SET,0:RNH,"HELLO""ogram...":D$"RUNMENU"D0*6yZ$"Y"Ĭq@y(12):CO,0,89:"Getting the menu program...":SET,0:RNH,"HELLO"?":::12:"GETTING QUAKES...":D$"RUNQUAKES""yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);,y360006yZ$"Y"20000=UNHOOK:::12:"GETTING QUAKES...":D$"RUNQUAKES"CN| NEDGE,6,6,272,184,6,6:BOX,30,180,248,190,0:30000:0u STANDARD SPACE BAR ROUTINE )HI-RES):uCA$:AFT,1:SPACE::y"ENDING ROUTINE@y(12):CO,0,89:"Getting the menu pron."::"The actual epicenter is the point where all three circles intersect.":20000CL$:5:"As you do not have the benefit of a complete science lesson on earthquakes, here is some help:":"The epicenter in this example will be located in Utah.": determine the epicenter of the earthquake."::"The student predicts the location by positioning a square on the computer map.":20000UCL$:3:"The computer then draws a circle around each city, with the radius based on the correct distance calculatindary waves to reach each city is measured and the lag time computed.":20000 CL$:6:"Students must then calculate the distance in kilometers between the earthquake and each seismograph station.":20000 CL$:4:"These three distances are used toCALL facts about seismographic readings and apply REASONING skills as they locate the epicenter of the earthquake.":20000 CL$:3:"Students will first be shown seismographic readings from three cities.":M "The length of time for primary and secoing their own strategies. ";r `"The computer acts as a tool for developing LOGIC and REASONING skills.":20000 CL$:3:"Other computer activities may involve students in using a combination of skills."z :"In the next activity students must REJ":D$"BLOADASCII BOLD.FNT":DFT,1,30539:D$"BLOADALT2.FNT":DFT,2,31699k LAFT,1:CN$:WIND,12,6,270,182 VCL$::VSP,4:4:"No 'correct strategy' for finding the Hurkle is given. The students may repeat the activity several times, testing and refin "THIS IS MOD 2.51"COPYRIGHT MECC 1983P"LAST UPDATE:10/09/84 EJG{( "PROGRAMMER: FREDERICK J. STEINMANNc100016384D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64H :D$"BRUNHPRINT.OBJ":D$"BRUN BUTIL.OB     assist in simulating realistic problem-solving situations that involve a combination of both RECALL and REASONING.":20000 31000 N NEDGE,6,6,272,184,6,6:BOX,30,180,248,190,0:30000: 0u STANDARD SPACE BAR ROUTINE )HI-RES) :uCA$:AFT,1::D$"BLOADASCII BOLD.FNT":DFT,1,30539:D$"BLOADALT2.FNT":DFT,2,31699i LAFT,1:CN$:WIND,12,6,270,182 VCL$::VSP,4:4:"In summary, some computer activities focus on RECALL while others might develop REASONING skills."z `"The computer can also  "THIS IS MOD 2.71"COPYRIGHT MECC 1983P"LAST UPDATE:10/08/84 EJGy("PROGRAMMER: FREDERICK J. STEINMANNc100016384D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):230,64F :D$"BRUNHPRINT.OBJ":D$"BRUN BUTIL.OBJ"L GOODDNOW IS THE TIME FOR ALL GOONOW IS THE TIME FOR ALL GOOEENOW IS E FOR ALL GOOD MENNNOW IS THE TIME FOR ALL GOOD MEENOW IS THE TIME FOR ALL GOOD MMNOW IS THE TIME FOR ALL GOOD NOW IS THE TIME FOR ALL GOOD ENOW IS THE TIME FOR ALL GOOD ENNNOW IS THE TIME FOR ALL GOOD EENOW IS THE TIME FOR ALL GOOD NOW IS THE TIME FOR AL HLHLL RQ H xI !M N IL N KLIH xQR xQH xQH xQR xQH xQK$#L2N NONOW IS THE TIME FOR ALL GOOD MEN TONOW IS THE TIME FOR ALLNNNOW IS THE TIME FOR ALL GOOD MENNOW IS THE TIME FOR ALL GOOD MENNOW IS THE TIM$',$--576567>'?/66.-$'$?66.-6>6''''?<<'??7>'$<>?><7>>>676655-%-%-<,$,%%%-%,55-...6>7--6?7?7??>?7??>?7???'%%%%%=?<$$$%%%%%$<$$'$-%%<$-,-%-$,,,,$---,,-,%66666>76.-,%--.%$?$7?>?'$$$,$$....656&,,$%,,,,%%%'''''''?>7767>6-.%%,'$-56??,$$ے5666666&$$$LIIIIII-----,----,---%,,,,%%%-$-????/-%-,--%--5-5-.$????>???'????75>?>??$$$<$$'$$$$$,,------,----.55.5.555..<$<$<$J15>6.66?JIQQ*%%<$-,-%-$,,$-$---.65.6566.6??<'??7??>?>??'=776565.6%--%--,--,-,%$6&--%--6---%--55555-66655555555..565--$$$%$<<<<$$'$<<<<<<<<$$$$%$%%%-,,$%%%%%,,,,,,<$-$???>??7????7????????7???>???7????>???????$?76------56666.55.--6-%--5-%---.-566666666666NIIIIIII $?$$,$%????7?'$%,,$''?IIII!'$$%%%%$%%,,6-56.56ۛ$$$$'$$$<$?7676666>6666>66>??????666..66766??$<'$$$$-'$$<>6$-$$??>?',,,--%,-??''?7'??????????'???????$LIIIIIIIII166?...6666.----------$''''?$$',%$$JI.6.-----5555%$6.,---,%----ۓ66.6656.5.---???'<77?6>?>>?7?7>7776$<'$?LII $$$$<$$$$$,,>?7557776....--.-MIIII6>676>6676677666.-.--.--.--5----5----.-----ۛ$$$-$-$$'?'%-6>$4-56'666666667666----6666666666.-5----5---------56-------%----%--%----,---,--,,-,,$-<<<<<%%%,,,,,<$$$$$$$?>>>6????'$-,$$<>????66>6676666>6666766767666&$$$<$%%<$%$-<$$<<<$''''<<<$'<<<<<$'',$,$,$%$$$<=?>>>'$%$<'?76677667676757777666557777775...7777....765566?65665566....-555555-66.--.--55555-55-...---.----.%,----,--5-----%$$%$$$$%$$$$,$,--$$$$$$$$$$<'???'%$$,$$$$$$$$,$$$$$,$$$     ,30,50,23,25,26,50,30,25,31,170,28,28,26,28,23,28,21,28,23,150 150 V39 ˃ 22,25,23,25,0,50,25,25,26,50,0,50,22,25,23,50,25,25,26,50,31,25,30,50,23,25,26,50,30,25,31,170,28,28,26,28,23,28,21,28,23,150  D1,25,30,50,23,25,26,50,30,25,31,170,2X,Y:20500::::B}34,20::0:B1Y16:X10,B1X5,B1::3}B1120:3X,Y:4:B2110::3X,Y:B2150::3::3X,Y:8ǃ 85,100,100,139,120,100,145,139,160,100,185,139? ˃ 22,25,23,25,0,50,25,25,26,50,0,50,22,25,23,50,25,25,26,50,31,251::3wB1165y1X,Y:B1150::4:1X,Y:3e {2X,Y:4:2X,Y:3::1X,Y:20500::::}34,20::0:B1Y1Y6:X10,B1X5,B1::3}B1120:3X,Y:4:B2110::3X,Y:B2150::3::3X,Y:TX,Y:3 {2X,Y:4:2X,Y:3::1X8 P:<$w34,20::8:"YOU FOUND ME IN "N1" TURNS!"I.wY3Y3Z8wY138Y138iBwX23X23wB1(1)103:B1((1)50)1:B2((1)55):PLAY,B1,B2:w0:Y1(Y5)(Y50)Y22:(X20)(X200),Y1279(X14279)(X14)(X14279),Y239:Z1:768Z,Z1::P^P24:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";w(P(16384)12820520)P(16384)1283220530*P16368,0:205202P16368,0::PZ1(A$)PZ1((A$,Z,1))PZ13220660PZ1X,YPX" EAST"u NN1:N48000Nz :20(((C$)7)2):"**GO ";C$;"**"::3304@:::10:7:"YOU TOOK TOO MANY TURNS!!":20500(# ENDING'::::22016:1021,0:1022,0:(13);(4);"RUN MOD 2.5" NNNZ$:Z$"-MUSIC"20120NZ08:Y0(10P1)14:30500:9000D X138P24:Y75P115:30500:9000ZH B3P1C$"NORTH"hI A43409J XB2315:Y6(10B3)14:32000:3410Q X135B24:Y81B315:32000R B3P1C$"SOUTH"\ B3P1C$""f BPC$C$" WEST"p BPC$C$ (P$)2P$"":3306G P$(P$,(P$)1):P81(P$)L1P80:L1P8Q 3306_ A43318 B0B10B(B)B3(B3)B30B310ė:3304 3320 B5B5B(B)B3(B3)B35B35ė:3304 BPB3P13400 A43330 XP231:P9(16384)128:P983312V P913P945P944(P948P957)(P944P81)3306 P944P80B(P$):L1(P$):P81:(P$)0P80:L1P8:3306 P913P$P$(P9):ZV:ZH:P$;:3306 L2(P$):P80L2L123306 B3((P$,L2L11)):3315X15:B55:(((B)))X,81:B03170; X X5,78X2,78H b XX24:[ :34,21::N0 23:"WHERE DO YOU THINK I AM?" Q(0):"(TYPE TWO NUMBERS SEPARATED BY A COMMA)";:ZH26:ZV23:P$"":L10:P8L1 16368,0:ZV:ZH:868:P$;:16384,12840,159:48245,1594 + 49240,159:48245,159:3300e 0 :X6:B551:(((B)))135,X:B03140s 1 B03142 : 128,X3132,X3 D B11526524:B1135ēB1,X E F XX15::P((1)3)2:P1((1)3)2:(1).5PP G (1).5P1P1( N IVE TRIES. AFTER EACH"I :"TRY, YOU WILL BE TOLD IN WHICH DIRECTION";b :"TO LOOK.":20500p  A43120  :X20:492,6:488,6:B11525723:B1,6:  B57481:B6,X:B11525723:B1,X::XX14: & B4857:B(B48)2315,159::492.";1 :"A POINT ON THE GRID IS GIVEN BY TWO "a :"NUMBERS: ONE NUMBER FOR THE HORIZONTAL" :"POSITION, THE OTHER NUMBER FOR THE"::"VERTICAL POSITION OF THE POINT." :"YOU TRY TO GUESS WHERE THE HURKLE IS" :"HIDING. YOU GET F:232,0:233,64:1:0:39 (13);(4);"BRUN MUSIC.OBJ"j T766:M768:P767:T1765:1022,111:A(1021) B$"10 BY 10 GRID" A4B$"-5 BY +5 GRID" P((1)9)1:P1((1)9)1 :34,3 Q913080 :"THE HURKLE IS HIDING ON A "B$"  PROGRAM: HURK27 LAST UPDATE: 8/25/80=Zd COPYRIGHT MECC 1979vn HURKLE 8/8/79 FPx AUTHOR:(MECC VERSION) KENT KEHRBERG, MIKE STEIN ASSOCIATED PROGRAMS AND FILES: HURKTAB 8192:(13);(4);"BLOAD HURKTAB"        CONTINUE";:Z9$::::"YOU JUST RAN OUT OF ENERGY AND WITHOUT"fN(:"ANY FOOD YOU STARVED TO DEATH.":N2"VISIT ODELL WOODS AGAIN SOON SOMETIME."N<7950NF"YOUR INJURIES ARE TOO GREAT AND":NPR((1)2)1NZR107810Od"YOU FELL PREY U SHOULD HAVE IGNORED IT. YOU ARE A"::"BIG WOLF.";MEE20AM_M"GOOD, LET'S MOVE ON..."eMM"AS YOU RAN TOWARDS THE BIRD, IT"::"ESCAPED INTO THE AIR."MEE20MME007710M I3007750M&-/.---------,%-%-------%$$<<7?7>?'?<'????????>77?>?7? --????/,---'??/,-'/766--???/.--7?/.) ?--#$$$?$$$ 666?$$$.2111$$$? $$)-266??$$$--2>?? $$)-266?%011'$$$--2?5<-- ?$)-< $$$?--< $$ 666;?$ $#$ 66? $$$666%$!!!!61111. $$## 635 ??$!!!!??>$$46%$?6.$$$46>46$,=$<<'/%=/%-'$$$4666&$$$$>->7->7-76.56266? !!-)=$$$>- ??$!) $;?2-0)- ') ??- !$$<::2---0)- $;?$---)- ?7&$ --$ ??-)- ?& -6-- $$;?2--$$ 66$??$$$--26;?$,-I ?$$ -?$$$--266;?$$$--;7--'$$$--;7d)5?$$ -?$$$6.-%$666?)=$$$=?? 6) $$,? $$$6?'=''<$,$%%)7m %7?g??$$%?7566--I 66?7.--$$$--66?6--$$$$%%,,--5>'??.,????,---=?',%$$>?766>??$-%$$4=?<-=?<$????<>>-%4-=??>=>7??'       "CC$:WIND,0,44:COD:CT0:I1N:CT13DLİ30000::CO:CEW:CT1\:MN$(I)" -":CTCT1:J1DL:DS$(I,J)""DS$(I,J)" "ĺ" "DS$(I,J):CTCT1:J::I:30000:WIND:CL$:12000:EEİ17000:>INPUT ROUTINE >EXIT: ANSWER2PD(PRDRSO):TNPDN2)3N1SP$"s"/3?6END OPTIONk6CL$:11:8:"Insert another diskette."{630000:CL$6CS(P(P(999))1)16:SLOT #6CS1CS7CS66CS::DESCRIPTIONS :CL$:DN$CC$:D2$CC$:"Program DescriptionsN MADE IN THE PREPARATION OF THIS COURSEWARE TO ASSURE ITS ACCURACY. MECC CANNOT ASSUME";l/" ANY LIABILITY RESULTING FROM ERRORS, OMISSIONS, OR USE OF THE INFORMATION CONTAINED HEREIN."v/WIND:VSP,1:30000:CL$:2DECIDE UPON SCREEN FORMATer,"::"write or call:":/WIND,70,0,279,191:::"MECC Help Line":"3490 Lexington Avenue North":"St. Paul, MN 55112":"(612) 481-3660"D/WIND::30000:CL$N/DIıX/2:17:"NOTICE:"::WIND,28,40:COZb/VSP,5:"REASONABLE EFFORTS HAVE BEE.:"Professional Educational Fraternity"CC$:::"International Headquarters:"CC$:"Bloomington, Indiana"CC$:30000:CL$:(904)Ĺ904,0:&/HELP LINE & DISCLAIMER0/WIND:3:"If you have any problems using MECC"::"courseware with your microcomput"Would you like to turn the":"sound ";:(SB)0ĺ"off";J+(SB)ĺ"on";q +"? ";:36000:Z$"Y"ĹSB,(SB):.SUPPORT BOOK INFO.CL$:4:"The development of this product was supported by:":AFT,2:CN$:"#$%&'("CC$::CO$"PHI DELTA KAPPA"CC$=PRINTER SUPPORT,SOUND SWITCH,IN=INSTRUCTIONAL,DI=DISCLAIMER,EE=ESC ESC,MH=MENU HORIZONTAL,TC=TWOCOLUMNS,SB=SOUNDBYTE,YT=YUTIL.'CA$(1):CL$(12):CC$(3):CO$(15):D$(4):CN$(14)8'CO$:*SOUND SWITCH+CL$"Sound Switch"CC$8 +CO,0,82:"Getting "Z1$"...":D$"RUN"Z$KCL$:CO,0,89:"Getting "Z1$"...":RNH,Z$]' SUBROUTINESx'P(S)(S)(S1)256':DL5:CA0:DR0:PR0:SO0:IN1:DI0:EE0:MH4:TC0:SB975:YT0~$'"DL=DESCRIPTION LINES,CA=TEACHER OPTION,DR=DISKETTE SUPPORT,PR$X1$(0):Z1$X1$(1):4000E DRAN2PRZ$X2$(0):Z1$X2$(1):4000f SOAN2PRDRİ11000:3090 AN2PDİ14000:3090 AN1İ15000:3090 A0ANZ$CN$(A):Z1$MN$(A):4000 3020 RUN THE PROGRAMYTĺCL$:CO,0,89:232:"Make certai";CA$;"n your CAPS LOCK key is down."CC$H fWIND::f RESPOND TO USER'S CHOICE CO,25,IY:MH:"Please enter a number from 1-6. ";:CEL:16000:A$Z$ CAA$(1)Z$"TEACHER OPTIONS":Z1$Z$:4000 A((A$)) PRAN2Zter Support":N2". "X1$(0):GCP,Z1,Z2 >DRįCO,40,Z2:X2$(1)"DRIVE SUPPORT":X2$(0)"Diskette Support":N2PR". "X2$(0):GCP,Z1,Z2 HSOįCO,40,Z2:N2PRDR". Sound Switch":GCP,Z1,Z2 RCO,40,Z2:N2PD". End"::GCP,IX,IY: \(1101)6įCO,1,ZZ1,Z2:H TCįCO,ZX,ZY:LLN:20MH(L9):L". "MN$(L)::CO,Z1,Z2: GCP,Z1,Z2:CO,25,Z2:"Other Options:"::GCP,Z1,Z2 OF4((N1)9) CO,40,Z2:N1". General Information":GCP,Z1,Z2& 4PRįCO,40,Z2:X1$(1)"PRINTER SUPPORT":X1$(0)"PrinL$DN$CC$ D2$""ĺD2$CC$< DV$CC$:WIND,40,1,279,182] CO,25,40:"Section"SP$":": CO,40,54:"1. Introduction":CO,40,63:"2. Keyboard":CO,40,72:"3. Levels of Skill":CO,40,81:"4. Classroom Strategies for":CO,75,90:"Computer Use":GCP,(904)İ12000:"INITIALIZATIONI LREAD IN DESCRIPTIONS AND FORMAT SCREEN\ VDN$,D2$,DV$,N{ `MN$(N1),CN$(N),DS$(N,DL) jL1N:MN$(L),CN$(L):L11DL:DS$(L,L1):: t13000 "BE A HELLO PROGRAM 2000:3000:1210 DISPLAY MENU Cy! "PROGRAM:NON-STANDARD MENU@PROGRAMMER:SHANE MCCARRONZCOPYRIGHT:MECC, 1983y("LAST UPDATE:10/11/84 CPE2OPTION FLAGS ARE AT 10010<PROGRAM DATA STARTS AT 50000MAIN PROGRAM 10000:D$"BLOADPDK.FNT,A31699":DFT,2,31699:     I1N*G(I)14H(I)0O>:"DAY ";D;": YOUR COST FOR MAKING LEMONADE"{C8((D)):"IS ";C;" CENTS PER GLASS."HR6:"LEMONADE STAND #";IWA(I)C1B(I)1\B(I)0890a:"YOU DO NOT HAVE ENOUGH MONEY TO STAY IN"$f:"BUSIDD1D2740C2#782PD343000: USED TO BE JIF D>7 THEN 743XC4a780iC5o |C1C.01R11 INPUT VALUES D22000: AFTER 2 DAYS RANDOM EVENTS CAN HAPPEN"807%Q(37):Q0807&35000:'N'T BE RIDICULOUS":590"]B(I)0)bI2l705f::"'ASSETS' ARE WHAT YOUR COMPANY IS WORTH.""EACH STAND STARTS OUT WITH $";A2;" IN":"ASSETS, AND YOU CAN NOT SPEND MORE THAN":"THE ASSETS YOU HAVE AT ANY TIME."35000:IB1690=& INPUT VALUES FROM THE PREVIOUS RUN_0:"LAST DAY WAS DAY NUMBER";f:D<D0ĺ:"DON'T BE RIDICULOUS":560DI1NN:"ASSETS FOR LEMONADE STAND #";IS:"AFTER DAY ";D;" WERE ($)";XA(I)ZA(I)0ĺ:"DO THERE? ";40000:NZN(N1:34,6MN0ĺ:"OOPS! TRY AGAIN.":520N1N10ĺ:"THIS PROGRAM ONLY WORKS WITH":"1 TO 10 STANDS. TRY AGAIN.":520:34,0:(5):"FOR NOW, WE WILL USE ONLY ONE LEMONADE"::"STAND."I1NA(I)A2TEST POSSIBLE PROFITS.":35000::502:8:"ARE YOU"::" 1) STARTING A NEW SESSION, OR"::" 2) CONTINUING AN OLD SESSION"14:"(ENTER 1 OR 2) ?";:868:ZM23:40000:ZN1ZN2501B1:531:(5) "HOW MANY LEMONADE STANDS ARETO MAKE,":J:"(2) HOW MANY ADVERTISING SIGNS TO MAKE"^O:(6):"(15 CENTS EACH), AND,"T:"(3) HOW MUCH TO CHARGE FOR YOUR"Y:(6):"LEMONADE."^:"TRY TO MANAGE YOUR LEMONADE STAND"h:"EFFICIENTLY SO AS TO MAKE THE " i:"GREA'LEMONSVILLE'."f":"THIS SIMULATION MAY BE RUN WITH ANY"::"NUMBER OF STANDS. HOWEVER, WHAT ONE",:"STAND DOES HAS NO EFFECT ON THE"6:"OTHER LEMONADE STANDS.":35000:@:"EACH DAY, YOU MUST DECIDE:" E:"(1) HOW MUCH LEMONADE "IN THIS COMPUTER SIMULATION YOU WILL".X"MAKE DECISIONS THAT ARE SIMILAR TO"^"THOSE YOU MIGHT MAKE IN RUNNING A REAL" "LEMONADE STAND. YOU HAVE AN IMAGINARY" "LEMONADE STAND IN A TOWN WE WILL CALL""IMITS OF THE NUMBER SOLD/ LNGTH(X)((X))> ::255:c (5):(11):"THE LEMONADE STAND" 10:"DO YOU NEED INSTRUCTIONS? "; 868:"";Y$ (Y$,1,1)"N"500 (Y$,1,1)"Y"240 :"PLEASE ANSWER YES OR NO." 209 :(BER SOLD AT 'BEST PRICE ' AND NO ADVERTISINGf A22.00: ALL STANDS ARE GIVEN TWO DOLLARS IN ASSETS SP100: SPEED FOR SLOW PRINTING (LINES 890, ...) C9.5: INCREASE TO INCREASE THE EFFECTS OF FIRST SIGNS C21: INCREASE TO RAISE THE LH THE COMPETITION BETWEEN COMPANIES IS INTRODUCED.A :::255p A(30),L(30),G(30),H(30),B(30),S(30),P(30) INITIALIZING VARIABLES P910: 'BEST PRICE' FOR SELLING LEMONADE S3.15: EACH ADVERTISING SIGN COST 15 CENTS, S230: NUMROGRAM IS TO LET STUDENTS INVESTIGATE THE CONCEPTSu F OF PRODUCTION, ADVERTISING AND PRICING AND HOW THESE RELATE P TO THE PROFIT A BUSINESS MAKES. THIS PROGRAM IS INTENDED Z TO BE AN INTRODUCTION TO "MARKET" OR "SELL BICYCLES" IN2 d WHIC STUDENTS DEVELOPED BY BOB JAMISON, ALEXANDRIA, MN.r  FOR MECC, UNDER THE MECC-UNIVAC MINI-GRANT PROGRAM. ( THIS IS AN ECONOMICS SIMULATION/GAME WHERE STUDENTS 2 LEARN TO MANAGE AN IMAGINARY BUSINESS. THE MAIN EMPHASIS2 < OF THIS P% PROGRAM: SELLL6 LAST UPDATE: 7/7/80<X AUTHOR: BOB JAMISON ASSOCIATED PROGRAMS AND FILES: NONE DOCUMENTATION AVAILABLE FROM MECC UNDER NAME: SELL PROGRAM 3 OF A 4 PROGRAM "SELL" SERIES FOR ELEMENTARY5                ENDING]D$"RUN MOD 4"H21:7:"3^PRESS SPACE BAR TO CONTINUE"aAA,0:AD,128:AA,021:1:I136:" ";::"0":(1022)127STST1:21:40:"*"ST2:80,2580,150190,150190,25:78,2578,151192,151192,253:$".":715D700 IHO$:860N"VTAB 10: PRINT " ^DO YOU WANT TO SEE THE CHART AGAIN? ";: POKE 251,1: & : POKE 251,0:A$ = LEFT$ (IN$,1): ON A$ = "Y" GOTO 585: IF A$ < > "N" THEN PRINT HO$: GOTO 590S"IF MID$ (A$,1,1) < > "N" THEN 590X ^55:"^THERE ARE SEVERAL WAYS TO RECORD THE EFFECT OF "TM$" ON THE VOLUME OF A GAS.":715l:700:HO$ ?5:"^A GRAPH IS ONE WAY TO RECORD THE EXPERIMENTAL DATA. ^YOU WILL NOW SEE A GRAPH OF THE DATA SHOWING VOLUME OF GAS AS A FUNCTION OF "TM0:E1,E3E1,E4E2,E4E2,E3E1,E3RE162,E3E162,E4E262,E4E262,E3E162,E3!E1E1.375:E2E2.375:E3E3.375:E4E4.375&730:5:165,50165,110::C2B:815:T9TC:FL1:805+FL1:805:ZIP2:M$"DECREASE":835:7150700:815:840:HO$S COOLED TO "TC"3O0^C USING ICE.":700>2:40:"0"E(((THTTC)109)80):E1104E:E2104E:E3OTE:E4OTE:UP13:IE3E4:E1,IE2,I:E162,IE262,I:I E50:PTHT1TC2:E5E51:BB(P):775:805:820O(E5)550 T9DT:FL1:805:FL0"PDT:775L0:I152164:81,I192,I:J125::kI12200::C1B:815:700ZIP1:M$"INCREASE":835:715700:815:840:815E(DT)E(TC)TCTC1O(DT)O(TC)TCTC1(19:"^THE "TM$" OF THE WATER I LENGTH.":700:815l3:90,165182,165:90,165100,185:182,165172,185:100,190100,185172,185172,1905:P0:I1641521:PP1:93P,I179P,I:J125::20:18:"BURNER":2:40:"0":FL0PT1DT2:BB(P):805:775:820::ASURED (IN ^CELSIUS).";PM273:FL1:740:805:700:81519:"^WE WILL USE THESE INITIAL READINGS FOR A STANDARD OF COMPARISON.":700:815DTTHT:19:"^THE WATER "TM$" IS INCREASED 2TO "DT"1O2^C0."6:"^NOTE CHANGES IN THE GAS COLUMNMN OF MERCURY ONE MILLIMETER HIGH AT SEA LEVEL.";715D700WHO$:800:785ST2:19:"^THE TUBE IS PLACED IN A BEAKER OF WATER.":700:725:I768774:J:I,J::815: 152,191,0,0,23,1,019:"^A "TM$" PROBE IS ADDED AND THE "TM$" IS ME251,1:* 251,0:Z$(IN$,1):Z$"Y"420: Z$"N"405 21:8:"^PLEASE ENTER A YES OR NO.":19:37:(8);(8);(8):3952HO$" ^A ^TORR IS A UNIT OF PRESSURE THAT IS EQUAL TO 1/7604TH0 OF AN ATMOSPHERE, OR THE PRESSURE EXERTED BY A COLU1 mE(TH)THTH1 r3850 wE(T)TT1D |O(TH)THTH1q BAC:TRTRLN:MT273:CSTACM:T9T:785 6:"^MERCURY AND GAS COLUMN LENGTHS ARE MEASURED. ^GAS PRESSURE IS ALSO MEASURED." 800:19:"^DO YOU KNOW KNOW WHAT A ^TORR IS?";:TED TO"l 6" TEMPERATURE CHANGES. ^WE WILL EXPLORE THE VOLUME OF THE GAS AS A FUNCTION OF TEMPERATURE."u ;715~ @700 EUP0:ST1:HO$:LNR(15)15:ACR(10)30:TCR(4)1:THR(30)45:TR(7)18:TRR(30)730 cF2R(2):F2375 hO(T)TTAW "15)"EXPERIMENT: "15)"CHARLES' LAW"\ AA,0:I1300:II300((AD)127):I:AA,0 ,960:5:15:BO$"CHARLES' LAW"NO$ 1" ^IN CHARLES' LAW YOU WILL HAVE A SAMPLE OF GAS TRAPPED BY MERCURY INSIDE GLASS TUBING. ^THE SAMPLE WILL BE SUBJECE(I)((I2)I2):O(I)((I2)I2):R(R)((1)R):B(I)(CST(I273)10)10| lHO$(12):BO$"2":NO$"1":HO$ Z01.57.03:I100(Z):J95(Z):140I,96J:140I,96J:140I,96J:140I,96J:+ 251,1:7:16:"CHEMISTRY "17)"GAS Ld"PROGRAM:CHARLES' LAW7e"LAST UPDATE:11/18/83If"(C)1982MECCg29696:24576:3:AD16384:AAAD16:D$(4):P(Z)(Z)(Z1)256hZ2966P(54):P(Z)18211:D$"BRUNMASTER":D$"BLOADBSUBS"U jTM$"TEMPERATURE":IN$"":FI$"15 &$4EY1":      6&$6M?666$ u6&6&I66?666$-  6666&$ & 6&66$, u6& -6?$666$,e$? u66$$66$, u -=?-?/ 666$$=/6ve $666 $66 $$& 6ve $66?----I9w-i-?*- ?$$ 666$$$-u?7)u6 $$L666$$$-u?)u?v-?--?66666v- $$466 $$666 4$$$vd 4v6&$ 4--.-=666--#$$-=r--666??L!$$---J u$66$>4666$ u6 -?6- I166&$ -6" ->?7--'du66& - ?d)u6?d-6/? I--??q - )66:?$$ 66$?-- 666H)hɠFȄBLL$B<%=eB$$ " Eȱ81ׅh<&݅ۅ߅,`߅߅ h%<$=ЅFȄB@ i1i>CBCC`  EH)HJJh)JJL)%"# !L-`Ԣ ێȱLKТLF ێH?@DE >L- Li0 ࢏L81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>L~?ȱ81@ȱ Dȱ` 才` 才` Ii`` Lo0`LMLS0`LgLm JF8ȹe8ИL`Lø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$` 0 `{80 ``hhhhz{L2  c `#! "`#67 X ? T @UWWRP{``` 0䍃$% W `  ` Ii }1~20 y|1}2~00` L䇥ޅhhL-$(`L XL׉+**++8 $%` $%%#"%L"$$!L` 0`*U HmhHmh c` z獀筇`z{{z`䭀yxz`6 zzɡ`hhL2hh7n8o L2z F8   ` e vȱ e w|}~ vw ΁ }~`67 ( cTQLX hhL2 FhhL/   `LL#L3L n A s %`쇉n䇌NK3ɇ9ʼn %| m||i|$~}~m}}~L"i}~L"xy0 i       8 / L` `SK``a`8L+`q`r`+`L7aɯd1` 8ɀ   Lޥ8e湥 6aH5aH L`q`r`L   ߅ lݦ ` ) L{چ/ / Ɉɍ-ɠ  s W :`66.?%-??-,?%=766666>>''$$$$$<I666>$$? .%?66[9" SECONDARY WAVES TRAVEL THROUGH THE ":"EARTH AT AN AVERAGE SPEED OF 4.1 KM/SEC.":"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(X4L9((1)70)44:Q,79Q2,L9:Q2,L9Q4,79:0160,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,24E WAVES ARE LIKE "H+"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./TIMES "X")"8:"WHAT IS YOUR ANSWER NOW?";T$:T(T$)R(T(X6.1)).55308::"WRONG, THE ANSWER WAS "(X6.1.5)540:8:"RIGHT..LET'S GO ON..."980&:" THE SECOND TYPE OF WAVES ARE CALLED ":"'SECONDARY WAVES'. THESE TRAVEL IN "X" SECONDS (ROUNDED TO "i:"THE NEAREST KILOMETER)?";:V1(36):V2(37):"";T$:T(T$)wT0470V21:V11:"";T$:T(T$):460(T(X6.1)).5530 :"(HINT :TO FIND OUT HOW FAR THE WAVES ":"IN "X" SEC, MULTIPLY 6.1 50,10050,110:50,11040,110W980::::"*FINDING THE EPICENTERS OF EARTHQUAKES*"k6: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)-":"WAV FORTH). "980(X((1)9)6k: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,15540,10040,120:40,10050,100:5,24 hbr" WHEN AN EARTHQUAKE OCCURS, TWO TYPES OF":"SHOCK WAVES ARE SENT OUT IN ALL ":|"DIRECTIONS FROM THE QUAKE.":" FIRST WE WILL DISCUSS THE PRIMARY OR"::"P WAVE. THESE WAVES ARE LIKE SOUND": "WAVES (THEY VIBRATE BACK AND DIRECTLY ABOVE THE EARTHQUAKE."::," 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:3THQUAKES DO NOT OCCUR ":"ON THE SURFACE BUT REALLY TAKE PLACE " "UNDER THE SURFACE, THEY ALSO FIND THE ":"EPICENTER." 980 : " THE EPICENTER OF AN EARTHQUAKE IS THE ":"LOCATION ON THE SURFACE OF THE EARTH "$""THAT ISE AND ITS LOCATION. THE"::"STRENGTH OF THE EARTHQUAKE IS MEASURED " "ON A SEISMOGRAPH IN TERMS OF THE RICHTER":"SCALE." 980 " THE SEISMOGRAPH IS ALSO USED TO LOCATE ":"WHERE THE EARTHQUAKE OCCURRED. HOWEVER, "G "SINCE MANY EARNLY READ ":"ABOUT 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 "F "EARTHQUAKE 1, 2, OR 3?";A$1 xA(A$):A(A)A3A190D A140,340,960k :2:10:"**AN EXPLANATION**"::| 34,3:35,24 : " EARTHQUAKES ARE A FAIRLY COMMON"::"OCCURRENCE IN THE WESTERN PART OF THE "2 "UNITED STATES, EVEN THOUGH WE O50:" ":10:14((1)2):A$:20P GI510:C$~ P20:I59:" ":10::A$"QUAKE":C$"S": ZA$"3":120 _:2:"DO YOU WANT" d:" 1. AN EXPLANATION,"::" 2. A LESSON, OR"::" 3. A 'QUAKE'" n17:"TYP 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        T. WHY DON'T YOU TRY IT AGAIN."D14750Ģ7:" THAT ISN'T CLOSE TO THE EPICENTER."::"WITH SOME WORK YOU SHOULD BE ABLE TO DO ":"MUCH BETTER."700:4300024:1:" PRESS 'SPACE BAR' TO CONTINUE";:16368,0(16384)127710 1ISMOLOGIST!!!!"D14250D14500ĺ"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"::"IMPROVEMEN)(I157.29)D(I)/NO279O0P159P06108XO,PBbI1,LKl700`vX10,Y10X1,Y1h{22"YOU WERE ";:D((X1(X10))2(Y1(Y10))2)(D14);" KILOMETERS OFF"700::::D14250ĺ"THAT'S GREAT!!!"::"A REAL SEI):1X2X:Y2Y:I115:X(I),Y(I):I:61,155:370GYY10:TYY10:aXX10:nXX10:t{&30:22:"NOW WE WILL LOCATE IT WITH THE THREE ":"STATIONS....";::L13:IO(L):I113603DOX(I)(I157.29)D(I):PY(IS 'RETURN' WHEN DONE" r1:B$9|I14:B$B$(I)410SI:B$(13)I5:410\370wI500,510,520,530,540I5550X0XX10X185XX10Y0YY10Y159YY100:2X2,Y2:3:41,1:2X,Y:L13:IO(L):X(I),Y(Z$"LAG TIME":Z2I3216:300004b21,1:X21:Y21ecZ$((D(O(I))))" SECS":Z2I3224:30000:~hI115: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:"PRESNG THE LOCATOR AND THE"::"KEYS 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:30000a2)15345U:21hV"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:Y20C[::4:"NOW LOCATE THE EPICENTER OF THE"::"EARTHQUAKE USIHEN DONE.";='@A$:A$(13)340:DA$"U"YY10MEA$"D"YY10`FA$"R"XX10sGA$"L"XX10HX279XX10IX0XX10JY0YY10KY279YY10O0:2X2,Y2:3:2X,YPX2X:Y2YQ312 T((90X)2(65Y)"346; 4M$"N"Ģ23:7:"PLEASE ENTER A YES OR NO.":305R 6:3:11,1:21,1` 7X21:Y21k 811,1 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 WECORDED FOR "(I2)" SECONDS."O I2I1,75I2I14,H:I2I14,HI2I17,75:I2n D(I)1.12,1D(I)1.12,159y 700: "L ,I14:B$(I)::3:: 13:"HAVE YOU USED THE EPICENTER LOCATOR":" ";:868:4:1:"BEFORE? ";M$ 3M$(M$,1):M$"YIS RECORDED FOR "I1" SECONDS.":; H175:H2((1)20)20Q I2D(I).12H27e H((1)70)40y H100H50200 H75H175200 H75H175200 H1H 1:21:"P WAVE IS RECORDED FOR "(D(I))" SECONDS." 23:1:"S WAVE IS THEN RL13:IO(L):Z$"REPORT FROM THE "A$(I)" STATION":Z10:Z210:30000i 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,75 21:1:"P WAVE ,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):I dE n PROGRAM: QUAKEP29"LAST UPDATE: 2/25/84?E OZM24`X1110:Y167X(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,52k 3 CHEYENNE,55     $$$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.     x0  LuLuL u>?`Luø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! 3#< = <=Lt <=LtLPLAu`tL+tqtrt+tLuɯdt 8ɀ   Lޥ8e湥 uHuH L`qtrtL u u8u?=4=0>?`LtLt<0>?`  tt%  1aa1 ??``00xxxx!000||`0x |||| ||x|8l````|| x0p000x8pp00000xxx|| |x ````l8|x0x0x| x0`00`0000000000`0000`l0`x000x|0xxx||00000 xxxxlxx x000000xx0܌x0xx0000 0``0 0xKw`000000lllXXXXX0|x<00` ``t0`0``00 00x0x00000 @0 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| 00000`0``0`0 !! ! ! ! 9,0:16302,02 L1LD:LL((16384)128)LD: 904,1:D$"BRUN HPRINT.OBJ":D$"BRUN BUTIL.OBJ":D$"BLOAD ASCII BOLD.FNT":DFT,1,30539:D$"RUN MENU" D,30539:D$"RUN MENU" U" "PROGRAM:STANDARD HELLO 1.0E"PROGRAMMER:SHANE P. MCCARRON`"COPYRIGHT:MECC, 1983("LAST UPDATE:83/11/28 HBWdINITIALIZATIONnD$(4):CN$(14)MAIN PROGRAM16368,0 :230,64:D$"BRUNLOGO":16304,0:16297,0:1629""