' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`OR INVERSELY"0"PROPORTIONAL?TYPE D OR I .";OC$(2):(C$(2),1)"I"670cWW1:W51950"NOT SO!! THE TWO ARE INVERSELY PRO-""PORTIONAL.DOUBLING ONE HALVES OTHER!!""(3) PREDICT THE P THAT MATCHES V=16 L"C(3):C(3)12X16R MORE QUESTIONS!!"?b"(1) AS VOL GETS BIGGER,DOES PRESSURE"jg"INCREASE OR DECREASE?TYPE I OR D .";lC$(1):(C$(1),1)"D"640qWW1:W51950v"LOOK AGAIN!AS ONE GETS BIGGER,THE"{"OTHER GETS SMALLER." "(2)ARE V AND P DIRECTLY /$:" NOW COMES THE HARD WORK OF GRAPHING"_$:"RESULTS AND MAKING SENSE OF THIS DATA!"$:"GOOD LUCK IN THIS PART,AND BYE FOR NOW!!"$$' %#l M4(AA(X)):M5(10AA(X)10M4)/# 1300Z# "YOUR CODE NUMBER IS ";M1;M4;M2;M5;M3d# 1325j# # FINAL STATEMENT#35,24:#"WELL,THE TRIALS ARE OVER NOW."#:"PERHAPS YOU TESTED THE UNKNOWN METAL"$:"ALONG WITH THE OTHERS."AL NAME,TYPE IN ZZ"5" "GOOD LUCK IN YOUR SEARCH!!"A" 1990:a" DETERMINES RHO AND ALPHA }"& RR(X).1(500(1)1)"0 AA(X).1(60(1)1)": MP(X)1000"N SET CODE"X M1(.1RR(X))"] M2(RR(X)10M1)#b M3(10RR(X)100M110M2)T,YOU HAVE AN"E! :"UNKNOWN";::" FOR YOUR METAL.YOUR TASK IS TO"q! "DETERMINE ITS RESTITIVITY AND/OR ITS"! "TEMPERATURE COEFF,AS DIRECTED BY THE"! "INSTRUCTOR.BE SURE TO COPY DOWN THE"! "CODE NUMBER AS WELL!!"" "WHEN IT ASKS FOR MET:710o < T250ĺ"WARNING! YOUR WIRE MAY BEHAVE":"ODDLY AT TEMPERATURES HOTTER THAN THIS":"TRY AGAIN.":2690 F T50ĺ"TOO COLD TO GET IN OUR LAB!":"TRY AGAIN":2690 x 2699 ZZ11000:ZZ:TTT:: UNKNOWN! :"IN THIS EXPERIMENAND MATERIAL AFFECT RESISTANCE AND"O :"HOW VOLTAGE,CURRENT,AND RESISTANCE"u :"INTERACT. GOOD LUCK TO YOU!!" 1990: ( CHECKS TO SEE IF T IS TOO HIGH 2 TMP(X)ĺ"TOO HOT!YOUR WIRE JUST MELTED!!":"I'M AFRAID YOU MUST START AGAIN."NEY AND FORCES YOU TO"C :"START FROM SCRATCH ON A GIVEN EXPT."b :" SO BE CAREFUL !!!"n 1990: :" WE HOPE YOU HAVE FUN ANALYZING" :"THE DATA AND COME AWAY WITH A FEELING" :"FOR HOW LENGTH,THICKNESS,TEMPERATURE,"# :" ONE,TO STUDY ITS EFFECT."&~ 1990:U "TO MAKE THINGS INTERESTING,WE'LL ASSUME" :"YOUR AMMETER CAN READ AT MOST 10 AMPS." :"IF YOU CHOOSE VALUES THAT EXCEED THAT," :"YOU'LL 'PEG' THE METER AND BURN IT OUT." :"THAT COSTS YOU MOYOU'VE PERHAPS SEEN A SHEET FROM YOUR"Ve :"TEACHER SUGGESTING SEVERAL EXPERIMENTS"j :"YOU MIGHT DO. NOTE HOW ALL OF THEM"o :"ARE BEST DONE BY KEEPING MOST OF THE"t :"VARIABLES ";::"CONSTANT";::" WHILE SYSTEMATICALLY"y :"CHANGINGETURN KEY,AND IT WILL WORK OK."+S 1990:[V "IT IS POSSIBLE TO TEST AN UNKNOWN METAL."X :"YOU CAN DO IT BY CALLING METAL EITHER"Z :"ZZ OR UNKNOWN,OR BY SELECTING EXPERIMENT"\ :"Z WHEN GIVEN A CHANCE.NOTE ITS CODE,THO"^ 1990:&` "TIAL"18 :"VALUES,AS YOU CHOOSE. YOU WILL SEE"`= :"IMMEDIATELY THE NEW VALUES OF R AND I"B :"THAT RESULT,PRODUCED IN DATA TABLE."G :"BY THE WAY,IT IS";::" NOT ";::"NECESSARY TO "L :"ACTUALLY TYPE N FOR NO.SIMPLY TAP THE"Q :"RD SOMETIMES THE"A :"RESISTANCE OF WIRE(WHATEVER THAT MEANS!"r :"YOU'LL GET RESULTS IN A DATA TABLE,AND " :"THE PRINTER IF IT'S ATTACHED." 1990$ . "AFTER THE FIRST RUN,YOU'LL BE GIVEN"3 :"THE CHANCE TO CHANGE ANY OF THE INI1 TO 50 METERS"?:"(4)SELECT A DIAMETER FROM .1 TO 5.0 MM"m:"(5)SELECT A TEMP FROM 0 TO 250 DEG C"y1990:"YOUR VERY SMART ";::"APPLE";::" WILL USE HANDBOOK" :"VALUES TO FIGURE OUT CURRENT HERE" :"(AS READ BY AMMETER)AN:"HERE'S HOW YOU'LL DO IT ON THE COMPUTER."_:"(1)SELECT A VOLTAGE FROM 0 TO 25 VOLTS.":"(2)SELECT FROM THESE SIX METALS:"" ALUMINUM (AL) IRON (FE) GOLD (AU)""NICKEL (NI) COPPER(CU) TIN(SN)":"(3)SELECT A LENGTH FROM HITS THE GROUND IN">"3.0 SECONDS. IF IT LOSES "G3" J OF"n"GRAV PE HERE,WHAT WAS ITS MASS IN GRAMS?""REPORT ANSWER TO NEAREST TENTH."9300"REMEMBER TO TYPE 'CONT' TO RESUME""OR (IF NEEDED) RUN 1705.""THIS WILL GET YOUESTION ON GRAV PEXX(1)O"WANT PRINTER ON?(Y/N) ";DD$:DD$"Y"İ9200hG310(5(N))200G4.59.89.89:G5G3G4G5(1000G5.4):"TOUGHER QUESTION ON GRAV PE"" A FREELY-FALLING BODY IS DROPPED""FROM REST;ITTAKES SO FAR."9&"EITHER GET INSTRUCTOR'S HELPAT THIS"d&"POINT,OR START AGAIN BY TYPING RUN."&"BETTER LUCK NEXT TIME!! BYE!!"& AT TIME."%A1900@%F"NOW YOU'LL DRAW SOME GRAPHS AND TRY TO"h%P"ANSWER QUESTIONS ON MIMEO SHEET."%Z"GOOD LUCK! AND BYE FOR NOW!!"%d1999%l"((RETURN))";AA$:%1900%%"SORRY,YOU JUST EXCEEDED LIMIT OF"&"ERRORS WITH SIX MISNSWER OF "100(12.19N(5).5)" DEG K?"1$19007$`$:"WE'VE NOW TESTED FIVE DIFFERENT"$"GAS LAW RELATIONSHIPS.SOME ARE DIRECT"$("AND SOME ARE INVERSE.YOU'VE DONE WELL!"$2"OF EIGHTEEN QUESTIONS ASKED,YOU GOT"%<(18W)" CORRECT FIRS#"SINCE 80 DEG IS 1/5TH OF 400,WE SEE"u#"THAT P MUST BE 1/5*"(.0082N(5)400)" OR ".1(.08280N(5).5)" ATM"#"(3)AT ABOUT WHAT T DOES P=10 ATM?"#E(3)#R100(12.19N(5).5)#100(E(3)100.5)R1240#WW1'$"DID YOU GET AELY PROPORTIONAL?TYPE DIR OR INV."B"E$(1):(E$(1),1)"D"1180V"WW1:W51950""NOPE!DOUBLING ONE DOUBLES THE OTHER!"""(2)PREDICT P THAT MATCHES 80 DEG K""S.1(.082N(5)80.5)"E(2)"(SE(2)).111200"WW1:W51950)B" VOLUME IS CONSTANT AT 10 L"N!L10);"P (IN ATM)";22);"T (IN DEG K)"Y!VZ18k!`"T IS ";T(5)!eP(5).1(N(5).082T(5).5)!j15);T(5);22);P(5)!tZ!~"LAST SET OF QUESTIONS"!"(1) ARE P AND KELVIN T DIRECTLY OR""""INVERS" "MOLES IS TO BE ";N(5)E $"FOR THIS CHOICE,A GOOD VALUE FOR"a )"VOLUME IS 10 LITERS."g , ."WE'D SUGGEST YOU MAKE TEMP GO UP" 3"IN UNITS OF 50 ,STARTING AT 50 DEG K" 81900::" EXPT E" =" MOLES IS CONSTANT AT ";N(5)#!E QUESTION."19001:" EXPERIMENT E"\"THIS TIME WE'LL LOCK PISTON TO MAKE""VOLUME CONSTANT,AND ALSO FIX MOLES.""THEN WE CAN SEE WHAT HAPPENS TO THE""PRESSURE(FROM GAUGE) AS T CHANGES." "SELECT MOLES FROM 1.5 TO 3.0.EDICT V THAT MATCHES 150 DEG"G"GIVE ANSWER TO NEAREST WHOLE NO. ";jD(4):(D(4))(Y150.5)970~WW1:W51950"SORRY! CORRECT ANSWER IS "(Y150.5)" LITERS":"ONE MORE EXPERIMENT TO GO." "YOU CAN AFFORD TO MISS "(6W)" MORT(4);22);VpZ-"MORE QUESTIONS NOW!"S"(1) ARE VOLUME AND KELVIN TEMP"~"DIRECTLY OR INVERSELY PROPORTIONAL?""TYPE DIR OR INV."D$(1):(D$(1),1)"D"950WW1:W51950"WRONG-O!! IT'S A DIRECT PROPORTION.""(2)PR9(W"PICK VALUES OF T TO SHOW RATIOS"IY1900::" EXPERIMENT D"lZ" P IS CONSTANT AT 1.09 ATM"[" N IS CONSTANT AT "N(4)" MOLES"\12);"TEMP(DEG K)";22);"VOLUME(IN L)"aZ17f"T IS ";T(4)hV.1(10YT(4).5) k15);ST WAY TO KEEP P CONSTANT IS"I>"TO LET PISTON 'FLOAT' FREELY AGAINST"tC"ATMOSPHERIC PRESSURE--SAY 1.09 ATM."H" THEN YOU SET N TO ANY VALUE YOU WISH."J"(A GOOD RANGE IS BETWEEN .2 AND .5 MOLES)"M"N IS TO BE ";N(4)RYN(4).0821.0FAR SO GOOD!"3"YOUR TOTAL WRONG TO DATE IS "W"G"ON TO EXPT D"Q1900We "EXPT D"m%X3*:"THE VARIABLES THIS TIME ARE THE"/"TEMPERATURE AND VOLUME.THIS MEANS WE"4"MUST KEEP MOLES AND PRESSURE CONSTANT."9"THE EASIE690WW1:W51950D"SORRY.RIGHT ANSWER IS ".75X" LITERS"n"(4)PREDICT V THAT MAKES P=.10 ATM."C(4):C(4)120X710WW1:W51950"ONE-TENTH THE P MEANS 10 TIMES THE V !""VOLUME SHOULD EQUAL "120X" LITERS" :"SO IC "3( "POTENTIAL ENERGY (IN JOULES) CAN BE "b( "STORED THERE IN STRETCHING IT OUT TO "L2n( "CM?";( " (REFERENCE LEVEL OF 0 AT X=0)."( 9300( ( Q22674( :9000( "RUN 2505 TO RESTART") "IF YOU'VE NO IDEA, INPUT 0 FOR R ON?(Y/N) ";DD$:DD$"Y"İ9200d' L150(4(N)2):L2(4(N)39):DX.01(L230):L3.5L1DXDX|' L3.01(100L3.5)' " EASY QUESTION ON ELASTIC P.E."' :' "GIVEN A SPRING OF K="L1" N/M AND OF"( "NO-LOAD LENGTH 30 CM. HOW MUCH ELASTT BE IN NEWTONS (KG-M/S/S) AND"I&~ "ALL DISTANCES IN METERS--INCLUDING"m& "THE SPRING CONSTANT ITSELF!!"w& 9300& "LET'S TRY AN EASY QUESTION ON SPRINGS."& 9095& THE EASY QUESTION ON ELASTIC PE& & XX(1)& ' "WANT PRINTEAS"+%8 "ELASTIC POTENTIAL ENERGY. IF THE"W%B "SPRING SHOULD LATER ON RETURN TO ITS"%L "NATURAL LENGTH,IT WILL RELEASE THAT"%V "ENERGY SOMEHOW."%[ 9095%` " FINALLY, A CAUTION ABOUT UNITS."%j "TO GET ENERGY IN JOULES, ALL FORCES"&t "MUS/2*F MAX=1/2*(K*X)"B$" THE MINIMUM WORK NEEDED TO ACCOMPLISH"i$ "THIS STRETCH = AVE F * DISTANCE"$ "THUS WORK INPUT =(1/2*K*X)*X OR SIMPLY"$ :" (1/2)*K*X*X":$$ :" THE WORK DONE ON SPRING IS NOW"%. "STORED IN ITS EXPANDED COILS "EVER-STRONGER FORCES THE MORE WE PULL"P#"IT. F = K*(NEW LENGTH-NATURAL L)"{#"OR F= K*X. IN GETTING OUT TO L+X CM"#"THE FORCE APPLIED INCREASED FROM "#"ZERO TO F MAX. THE ";::"AVERAGE";:#" FORCE THAT"$"ACCOMPLISHES THIS IS 1'""GET AN EASY QUESTION ON SPRINGS."G""TYPE IN NUMBER YOU WANT."["N:N2200,2500" EXPLANATION OF ELASTIC PE FORMULA"""" ELASTIC POTENTIAL ENERGY"""DD$"Y"İ9200"" A SPRING THAT OBEYS HOOKES LAW NEEDS"'#":2160!~9300!M22185K!"YOU LOSE!! LET'S CHECK IT OUT!":9095U!2200!"CONGRATULATIONS! YOU'VE GOT THE CORRECT"!"FORMULA!! AT THIS POINT YOU CAN"!"(1) SEE EXPLANATION OF WHERE THE"!"FORMULA COMES FROM OR (2) PROCEED TO"ELASTIC P.E. THUS STORED?"B R" (1) 1/2*K*L*L (2) 1/2*K*X*X"H Wl \" (3) F*X (4) K*X*X"r a f" (5) K*(L+X)*X" p"PLEASE TYPE IN NUMBER OF YOUR CHOICE" zM |M0M62175!}"HEY!!WE SAID CHOOSE 1,2,3,4,OR 5 . TO COMPRESS IT,FOR THAT MATTER!)"O" SUPPOSE YOU HAVE A SPRING OF LENGTH"s "L WITH A SPRING CONSTANT = K"*"WE EXERT ENOUGH FORCE F TO CHANGE ITS"4"LENGTH BY X CM."9DD$"Y"İ2105>" WHICH OF THESE FORMULAS GIVES THE" H"THE YOU BACK TO BEGINNING.""9300,9095496^ SECTION DEALING WITH ELASTIC FORCESh9080r9095x" ELASTIC POTENTIAL ENERGY""WE KNOW THAT IT TAKES WORK TO STRETCH""OUT A SPRING FROM ITS 'NATURAL' LENGTH"" "(ORS A FALL OF 44.1 METERS."A" THEN M*G*S = M*9.8*44.1="G3" J"s"WHICH WHEN SOLVED FOR M GIVES "G51000" KG""FINALLY,CONVERTING TO GRAMS GIVES OUR""ANSWER OF "G5" GRAMS"9300"OH WELL,BETTER LUCK ON NEXT ONE":"WE'LL SENDf(F.5)(G59.810.5)1900Kh"CORRECT FOR G=10 M/S/S!! HOWEVER,IF"xj"YOU USE 9.8 IT LOOKS LIKE THIS.":1835l"WRONG,I'M AFRAID.LET'S LOOK AT IT."v"FIRST FIND VERTICAL DISTANCE IT FELL""S=VT+1/2GT^2 OR 1/2*9.8*9 WHICH""GIVE I18359N.1(10F.04).1(G59.8100.04)1894fS"NOPE! YOU PROBABLY GOT THE RIGHT SIZE"X"OF DISTANCE,S=1/2*9.8*3^2=44.1 M."]"DIVIDING "G3" BY 44.1 GIVES "G59.81000" BUT"b"THAT'S THE WEIGHT OF BODY,NOT ITS MASS!"d1835 .8*(1/2*9.8*3^2)= "G3" WHICH GIVES"M."A MASS OF "G51000" OR "G5" GRAMS."x/:"WE'LL SEND YOU BACK TO BEGINNING."09300:9095590:.01(100F).01(.1G5)1870?"ALMOST RIGHT,BUT YOU FORGOT TO"D"CONVERT KG TO GRAMS.ANSWER IS" ORIGINAL DATA."?"IF COMPLETELY STUMPED,INPUT 0 AS ANSWER"c EXPLANATION OF TOUGH QUESTIONi |DD$"Y"İ9200"MASS IN GRAMS IS ";FDD$"Y"İ9200(F.4)(G5.4)1850&"YOU'RE A GENIUS!! YOU'VE SEEN THAT"#+"M*9 "ELECTRICAL P.E.,USING THAT FORMULA."I8| "TYPE IN NUMBER YOU WISH.";XY8} :X235008 EXPLANATION OF FORMULA FOR ELEC PE8 DD$"Y"İ92008 8 8 " CHANGE IN ELECTRIC P.E."8 8 "COULOMB'S LAW GIVES THE FORCE OF"9 "ATTRACTIO CHOOSE EITHER 1,2,3, OR 4 .":316017] W43179Z7b "WRONG-O!! LET'S TAKE A LOOK AT IT"d7g 9095n7j 3200x7k 93007l :"RIGHT ON!! AT THIS POINT YOU CAN EITHER"7q "(1)SEE EXPLANATION OF FORMULA OR"7v "(2)DIRECTLY GET AN EASY QUESTION ON"'8zMS;IT IS 9.0E9 FOR SI UNITS.)"G6D :" (1) K*Q1*Q2*(1/(Z*Z)-1/(Y*Y))"M6F n6I " (2) (K*Q1*Q2/Y*Y)*(Z-Y)"t6K 6N " (3) 1/2*K*Q1*Q2*(Z-Y)"6P 6S " (4) K*Q1*Q2*(1/Z - 1/Y)"6X :"TYPE IN NUMBER HERE,PLEASE ";W6Z W0W53165#7[ "PLEASECAL P.E.!!"5 DD$"Y"İ9200J5 " WHICH OF THESE FORMULAS CORRECTLY"q5 "GIVES THE CHANGE IN PE WHEN THE"5& "SEPARATION BETWEEN Q1 AND Q2 CHANGES"50 "FROM Y TO Z ? (K HERE IS SIMPLY A"5: "PROPORTIONALITY CONSTANT IN ELECTRICAL"6? "SYSTE LAW THAT WORK"84 "IS NEEDED TO PUSH TWO IDENTICALLY"e4 "CHARGED OBJECTS CLOSER TOGETHER OR TO"4 "PULL TWO OPPOSITELY CHARGED SPHERES"4 "FURTHER APART. THAT WORK REPRESENTS"4 "AN INCREASE IN POTENTIAL ENERGY IN THE" 5 "SYSTEM---ELECTRI 3 93003 9095:D3 :"WE'LL NOW SEND YOU BACK TO START TO "d3 "CHOOSE A DIFFERENT TYPE."n3 9300|3 9095:963 INTRO TO ELECTRIC PE3 90803 90953 3 :" ELECTRIC POTENTIAL ENERGY"3 4 :" WE KNOW FROM COULOMB'STHE"02 "CHANGE IN LENGTH OF SPRING.FROM THIS"W2 "X SQUARED =.02 AND SO X=.141 M."2 " FINALLY, THE LENGTH OF X IN CM IS"2 "14.1, WHICH MEANS THE LENGTH OF THE"2 "COMPRESSED SPRING MUST HAVE BEEN"3 "("L4"-14) OR "L5" CM...THE ANSWER!" OF KE GAINED =1/2*4*10*10"J1m "OR 200 JOULES.THIS IS P.E. SPRING HAD."v1r "SINCE ENERGY IS IN JOULES, K MUST BE"1w "IN NEWTONS PER METER. 200 N/CM ="1| "20000 N/M."1 "THUS WE HAVE THAT 200 J = ELASTIC "2 "P.E. =1/2*20000*X*X WHERE X IS BLEM.TYPE IN YOUR CHOICE";V-0R V29300:9670S 2907e0T "AFRAID NOT. LET'S CLEAR THE SCREEN AND"0Y "LOOK AT THIS CLOSELY."0Z 90950[ :VV2:27150^ :"THE BOX ACQUIRED ALL THE ELASTIC"0c "P.E. THE SPRING ONCE HAD AS K.E."1h "THE AMOUNTSWER TO ABOVE""EXPONENTIAL NUMBERS EASIEST AS FOLLOWS:"\>"32000=3.2E4 AND THAT 2E3*4E6=8E9"b> >"PLEASE ENTER HERE YOUR ANSWER TO">"QUESTION ABOVE";Y>YY2> DD$"Y"İ9200>!"YOUR ANSWER IS "Y" J.">$(100Y)(100Q2)3670$?."ON DISTANCE IS"<= "REDUCED TO 2.0 METERS, HOW MUCH DOES "^= "ELECTRICAL PE INCREASE BY?"d= n= 9300}= YY23710= :9000= "RUN 3505 TO RESTART"= "OR TRY TYPING ";= " 0 AS ANSWER IF STUMPED."> "IN ADDITION,REMEMBER APPLE HAN Q1(4(N)3),< Q14Q2.225:Q2$"1/4"G< Q13Q2.15:Q2$"1/6"c< Q15Q2.27:Q2$"3/10"< Q16Q2.30:Q2$"4/12"< < "GIVEN TWO PLUS CHARGES,EACH OF "< "CHARGE 1E-5 COUL. THEY BEGIN "Q1" METERS"= "APART. IF THAT SEPARATI"THAT WAS CHOICE 4 OF FORMULAS SHOWN."G; " K*Q1*Q2*(1/Z - 1/Y )l;* :"LET'S TRY AN EASY QUESTION."v;4 9095; EASY QUESTION ON ELEC PE; XX(1); ; "WANT PRINTER ON?(Y/N) ";DD$:DD$"Y"İ9200; :" EASY QUESTION ON ELEC PE""TRY!RIGHT ANSWER IS "X" LITERS."I"(4)PREDICT V THAT MAKES P=.10 ATM."cC(4):C(4)120X710wWW1:W51950"ONE-TENTH THE P MEANS 10 TIMES THE V !""VOLUME SHOULD EQUAL "120X" LITERS":"SO FAR SO GOOD!""YOUR TOTAL WRONG PE D OR I .";,C$(2):(C$(2),1)"I"670@WW1:W51950k"NOT SO!! THE TWO ARE INVERSELY PRO-""PORTIONAL.DOUBLING ONE HALVES OTHER!!""(3) PREDICT THE P THAT MATCHES V=12 L."C(3):(C(3).5)X690WW1:W51950"SORL GETS BIGGER,DOES PRESSURE"Gg"INCREASE OR DECREASE?TYPE I OR D .";flC$(1):(C$(1),1)"D"640zqWW1:W51950v"LOOK AGAIN!AS ONE GETS BIGGER,THE"{"OTHER GETS SMALLER.""(2)ARE V AND P DIRECTLY OR INVERSELY" "PROPORTIONAL?TY" MOLES IS CONSTANT AT "N(3)F5"SELECT V FROM RANGE OF 1 TO 60"m:15);"VOLUME";22);"PRESS IN ATM"x?Z18D"VOL IS ";V(3)I15);V(3);22);12XV(3)NZS"COPY THIS DATA!";:1900X"TIME FOR MORE QUESTIONS!!"b"(1) AS VO#:" CAN YOU FIGURE OUT WHAT FACTORS AFFECT"Zd#:"CHANGE IN LENGTH,AND BY WHAT POWER?"n#:"DISCUSS IT WITH INSTRUCTOR IF YOU WISH."x#:::" BYE NOW"#&"((RETURN)) ";ZZ$:D !ZZ1200:ZZ2!(12):" AND NOW TO WORK"G !ZZ11200:ZZ:M3!e(#*****FINAL MESSAGE2#"IF PRINTER NOT ON,BE SURE YOU COPY DATA"7#"SCREEN WILL CLEAR WITH NEXT RETURN!!"<#9900F#35,24:P#"WELL,YOU'VE GOT YOUR DATA NOW"-ZU'LL GET AT MOST 10 TRIALS.AFTER THAT"P :"THE RUN WILL AUTOMATICALLY STOP." :" ALL VALUES REVERT TO TRIAL #1 UNLESS" :"YOU DELIBERATELY CHANGE THEM." " (EXCEPTION !! MATERIAL WILL BE THE" " LAST CHOICE YOU MADE)"!9900:ES P.E. MORE POSITIVE.AND"HMJ"THAT WOULD BE TRUE NO MATTER WHERE THE"sMO"REFERENCE LEVEL WAS ASSIGNED TO BE!"Mh9095:Mr" YOU'VE DONE WELL WITH ELECTRICAL"M|"POTENTIAL ENERGY; NOW WE'LL SEND YOU"N"BACK TO BEGINNING TO PICK A DIFFEREN" BUT ALSO NOTICE THAT VALUE OF PE"NL6"AT 20 METERS (-4.0 J )WAS MORE ";bL8:"POSITIVE":L;"THAN VALUE AT 8.0 METERS(-10 J)."L@" WORK MUST BE DONE TO MOVE THE"LE"OPPOSITE CHARGES ";::"AWAY";:LF" FROM EACH OTHER."MG"THIS MAK" K9095:K9300FK" NOTICE IN THE PROBLEM,THE TWO CHARGES"uK"WERE OPPOSITE,AND THAT PE WAS NEGATIVE."K""THIS IS BECAUSE WORK IS DONE ";::"BY";:K$" SYSTEM"K'"AS ONE CHARGE ZIPS INWARD FROM INFINITY"K,"TO NEW POSITION."&L1J"SOLVING FOR Z SHOWS IT TO BE 20 METERS"XJ" MORE SIMPLY,THE SIMPLIFIED FORMULA"~J"SHOWS THAT PE AND DISTANCE ARE"J:"INVERSELY";::"PROPORTIONAL. SINCE THE"J"PE RATIO IS -4/ -10 THEN THE NEW"K"DISTANCE SHOULD EQUAL(10/4)*8=20 MOUT THERE, PE IS ASSIGNED A VALUE OF"OI"ZERO, SO OUR FORMULA GIVES SIZE OF"lI"PE AT POSITION Z.THUS"I" K*Q1*Q2*(1/8)=-10"I"SO K*Q1*Q2 MUST EQUAL -80 UNITS."I:"NOW AT THE NEW DISTANCE"I" K*Q1*Q2*(1/Z)= -80*(1/Z) = -4.0 ",SPOT BACKN25999-CC$(P,N)""5999_MH(P,N1):QV(P,N1):8500:Z(192P)ī5970|H(P,N1):V(P,N1):"."REE(P)1İ8400op*****INPUT MOVEr ***FILL IN CORNERt36:2:(64P)v36:4:Nx8000yN16015!zSVTD(P,H)TU(P,H)H8H(P,N)SH1:V(P,N)SVY(P)FSH0:SV0]CC$(P,N)""ī5600g7000yEE(P)156007150H(P,N):V(P,N)MH(P,N):QV(P,N):8500:Z1985800R(P)10Ğ:(64P)::5800(64P) ***CHANGE OLD ĺ"TRY AGAIN":ZZ1800:ZZ:5005+5024_"ALREADY CHOSEN.TRY AGAIN":ZZ1800:ZZ:5005n(1):Y(P){(64P)TU(P,0)0:TD(P,0)0:TL(P,0)0:TR(P,0)0OP*****FIND NEW POSITIONn6000H1NSHSHTR(P,H)TL(P,H)SVб!*****FIND INITIAL POSITION+8000T"PLAYER "(64P)" ,WILL YOU PLEASE""PICK A NUMBER FOR YOUR STARTING MARK ";Y(P)Y(P)Y(P)4Y(2)Y(1)ī5020Y(3)Y(1)ī5020Y(2)0Y(3)Y(2)ī5020!Y(P)4Y(P)13Y(P)(Y(P))H LINEX15)24X:20X:"F":X/#F$***CHOICE TO KEEPP.80008"DO YOU WISH TO RACE ON THIS TRACK OR DO"B"YOU WISH A NEW ONE?TYPE Y TO KEEP ";ZZ$L(ZZ$,1)"N"ZX$"N":4000V8000:"HERE WE GO !!"`ZZ11200:ZZ1:YY(5)3:"XX"Z50,255"[7\***BIG OCTAGON!RfXX(5)2:YY(5):"XXX"qpXX(5)1:YY(5)1:"XXXXX"|uU13zXX(5):YY(5)U1:"XXXXXXX"UXX(5)1:YY(5)5:"XXXXX"XX(5)2:YY(5)6:"XXX"50,255***FINISN."(("BETTER LUCK NEXT TIME!! BYE!!".( TOR.":+'Z"GOOD LUCK! AND BYE FOR NOW!!"5'd1999M'l"((RETURN))";AA$:W'1900]''"SORRY,YOU JUST EXCEEDED LIMIT OF"'"ERRORS WITH SIX MISTAKES SO FAR."'"EITHER GET INSTRUCTOR'S HELPAT THIS"("POINT,OR START AGAIN BY TYPING RU WELL!"2&2"OF EIGHTEEN QUESTIONS ASKED,YOU GOT"T&<(18W)" CORRECT FIRST TIME."^&A1900&F"NOW YOU'LL DRAW SOME GRAPHS AND TRY TO"&P"ANSWER QUESTIONS ON MIMEO SHEET."&R:"IF HE'S AVAILABLE,PLEASE SHOW"'T"THIS SCREEN DISPLAY TO INSTRUC(12.19N(5).5).%100(E(3)100.5)R12408%WW1s%"DID YOU GET ANSWER OF "100(12.19N(5).5)" DEG K?"}%1900%%:"WE'VE NOW TESTED FIVE DIFFERENT"%"GAS LAW RELATIONSHIPS.SOME ARE DIRECT"&("AND SOME ARE INVERSE.YOU'VE DONE1(.082N(5)80.5)$E(2)6$(SE(2)).111200J$WW1:W51950u$"SINCE 80 DEG IS 1/5TH OF 400,WE SEE"$"THAT P MUST BE 1/5*"(.0082N(5)400)" OR ".1(.08280N(5).5)" ATM"$"(3)AT ABOUT WHAT T DOES P=10 ATM?"$E(3)%R100Ӻ"(1) ARE P AND KELVIN T DIRECTLY OR"T#"INVERSELY PROPORTIONAL?TYPE DIR OR INV."t#E$(1):(E$(1),1)"D"1180#WW1:W51950#"NOPE!DOUBLING ONE DOUBLES THE OTHER!"#"(2)PREDICT P THAT MATCHES 80 DEG K"#"(TO NEAREST TENTH)"$S.ONSTANT AT ";N(5)7"B" VOLUME IS CONSTANT AT 10 L"b"L10);"P (IN ATM)";22);"T (IN DEG K)"m"VZ18"`"T IS ";T(5)"eP(5).1(N(5).082T(5).5)"j15);T(5);22);P(5)"tZ"y"COPY DOWN DATA!";:1900"~"LAST SET OF QUESTIONS"%#LES FROM 1.5 TO 3.0."1!"MOLES IS TO BE ";N(5)Y!$"FOR THIS CHOICE,A GOOD VALUE FOR"u!)"VOLUME IS 10 LITERS."{!,!."WE'D SUGGEST YOU MAKE TEMP GO UP"!3"IN UNITS OF 50 ,STARTING AT 50 DEG K"!81900::" EXPT E""=" MOLES IS C TO MISS "(6W)" MORE QUESTION."* 1900E :" EXPERIMENT E"p "THIS TIME WE'LL LOCK PISTON TO MAKE" "VOLUME CONSTANT,AND ALSO FIX MOLES." "THEN WE CAN SEE WHAT HAPPENS TO THE" "PRESSURE(FROM GAUGE) AS T CHANGES."!"SELECT MOORTION."1"(2)PREDICT V THAT MATCHES 150 DEG"["GIVE ANSWER TO NEAREST WHOLE NO. ";~D(4):(D(4))(Y150.5)970WW1:W51950"SORRY! CORRECT ANSWER IS "(Y150.5)" LITERS":"ONE MORE EXPERIMENT TO GO." "YOU CAN AFFORDL!!CONGRATULATIONS!":43288"BETTER LUCK NEXT RUN!!"D9000:r" AT THIS POINT YOU CAN RUN A NEW RACE""WITH ONE TO FOUR CARS COMPETING. BUT""BE WARNED!!THE DATA CHANGES WITH EACH""RUN, AND THE SAME CAR WILL NOT""NECESSARF THE"*T"CAR YOU THINK WILL WIN. ";X$m^X$(63)X$(69)ĺ"WHOOOPS....NO SUCH CAR!!TRY AGAIN.":4180w800020001900:NAME$" ,YOU HAD PICKED CAR "X$"THE ACTUAL WINNER WAS ";W$(1):W$(1)X$4325"YOU PICKED WEL":4110Z15:R(Z)0:Z($Z1JJD'"LETTER OF CAR #"Z:M$W,M$"A"R(1)1j.M$"B"R(2)2}0M$"C"R(3)32M$"D"R(4)44M$"E"R(5)56M$(69)ĺ"WHOA!!NO SUCH CAR!!TRY AGAIN":4135@ZJ::"INPUT HERE THE LETTER O,B,AND E AND THAT CAR E"?"ACCELERATES FOR 20 SECONDS,THEN"o"LEVELS OFF IN SPEED THE REST OF THE WAY."y90001000"HOW MANY CARS WILL BE RACING ";JJJJ09900JJ5140JJ(JJ)JJ5ĺ"PLEASE INPUT EITHER 0,1,2,3,OR 5 (K#4300(P#4400(U#4500'(Z#46001(\#4800?(_#N09199K(d#P1PP_(n#H(P,N):V(P,N)l(x#(64P)s(#P}(#8000(# K000(# Z:R(P)0'"P'"M0:Q0&'"P1PP1'#X1No' #TU(P,X)0:TD(P,X)0:TL(P,X)0:TR(P,X)0:H(P,X)0:V(P,X)0'#CC$(P,X)""'#X:P'#N0:P0:GG0''#'(#******CHANGING OBSTACLES!!'+#N4(N4)ī9199'-#2000'<#4160'A#4020'F#4200&L""TYPE EITHER D OR S, PLEASE ":87502&Q":808&_"Q&`"******FINAL MESSAGEz&j":"HOPE YOU ENJOYED THE RACE GAME."&t":"TYPE RUN TO GET ANOTHER CHANCE"::" BYE NOW":&"*****CLEAR VARIABLES FOR SECOND RUN&"P1PP'"Y(P)0:EE(P)0(2(1)1)%!.%!*****CHOICE TO TRY AGAINU%""WANT TO TRY AGAIN ON SAME TRACK"o%""INPUT Y OR N ";ZX$%$"ZX$(ZX$,1)%)"ZX$"Y"ī100%."8000:"DIFFERENT TRACK OR STOP?INPUT D OR S"%8"ZZ$%B"(ZZ$,1)"S"ī8800%G"(ZZ$,1)"D"ī8785("$ !(ZZ$,1)"Y"ĪR(P)11P:8499L$!(ZZ$,1)"N"EE(1)1:EE(2)1:EE(3)1R$3!t$4!***** FIND CHR$ VALUE AT M,Q$>!ZM1,2(Q1))16M1,2(Q1)1)$H!$!X15$!XX(X)(17(1)9)$!X$!X15$!YY(X)(9(1)4)$!X %!G(1)*****WINNING MESSAGE*# ZZ15:(7):ZZ4# 8000D# GG2ī8425v# "WE HAVE A WINNER !! GOOD FOR YOU, ";(64P)# GG2:8430# "ANOTHER ONE IN !!"# "((HIT RETURN KEY PLEASE)) ";ZZ$# 8000:"WANT TO CONTINUE THIS RACE?"#!"Y/N ";ZZ$(20):958:(20):2""ILLEGAL MOVE.TRY AGAIN":O"l *****ELIMINATE CRASHERSk"n J1PP:EE(J)1ī8310r"o J"q 8000:"EVERYBODY'S FINISHED NOW":8350"v J1PP" R(J)108399" J" 8000:"NO ONE IS LEFT IN RACE !!"" GG1" # !#!*****CHECK HITTING WALL9!MH(P,N):QV(P,N)C! 8500U!Z174ī7200_!7299i! 8000!*"YOU CRASHED !! TOO BAD!"!4"I'M AFRAID YOU'RE OUT OF RACE NOW"!>R(P)11P!zZZ12000:ZZ!!@*****CLEAR BOTTOM OF SCREEN"J299/ TU(P,N)0:TD(P,N)0:TL(P,N)0:TR(P,N)0B "ZZ11000:ZZL $6008R r X*****CHECK CROSSING FINISH bN27149 lW0TD(P,N) vWW0TR(P,N) MH(P,N1):QV(P,N1) MMWW:QQW 8500 Z198EE(P)1:7149 WW!W)1ī6150+(TR(P,N)TR(P,N1))1ī615056160O"ILLEGAL MOVE":6175] N26299TU(P,N1)0TD(P,N)0İ8100:6175TU(P,N)0TD(P,N1)0İ8100:6175TL(P,N1)0TR(P,N)0İ8100:6175TL(P,N)0TR(P,N1)0İ8100:6175 6:ZZ:6008/X$(X,P,N)"U"TU(P,N)TU(P,N)1TX$(X,P,N)"D"TD(P,N)TD(P,N)1yX$(X,P,N)"L"TL(P,N)TL(P,N)1X$(X,P,N)"R"TR(P,N)TR(P,N)1X(TU(P,N)TU(P,N1))16150(TD(P,N)TD(P,N1))16150 (TL(P,N)TL(P,N1)"PREVIOUS MOVE WAS ";CC$(P,N1)D"INPUT MOVE HERE ";CC$(P,N)[CC$(P,N)""ī6100pX1(CC$(P,N))X$(X,P,N)(CC$(P,N),X,1) X$(X,P,N)"U"X$(X,P,N)"D"X$(X,P,N)"L"X$(X,P,N)"R"ĺ"WRONG LETTER SOMEWHERE.TRY AGAIN.":ZZ11000OU'LL SEE THE RACE RUN AND THEN"N"SEE A TABLE OF TIMES AND SPEEDS OF ALL"w"ENTRIES. YOU CAN PLAY AS OFTEN AS""YOU WISH.AND WHEN YOU'RE READY,YOU CAN""GO FOR THE QUINELLA!!"" WE'LL REMIND YOU THAT IT IS 1000 M""FOR CARS A15:R(Z)Z:Z b 4000-4390 TEXT TO DO PART II;USER CAN RACE TWO-FOUR CARS MORE THAN ONCE"h" IN THIS NEW RACE YOU WILL BE ABLE TO"" RACE ANY COMBINATION OF CARS FROM ONE""TO FOUR AS YOU WISH.AFTER PICKING THE" "WINNER,YNNER...LIKELY"=+ "ONLY ENOUGH TIME FOR AN EDUCATED GUESS."h0 "THEN YOU'LL SEE THE RACE RUN ON THE"5 "SCREEN,AND MORE DATA. ": " HERE WE GO!!"D 9000:1000 Z18000:Z  "GUN IS UP......THEY'RE OFF!!" Z1600:Z  Z AND"1 "ACCELERATES FOR 20 SECONDS ONLY.FROM"` "THEN ON TO FINISH,IT GOES AT THE SPEED " "REACHED AT 20 SECOND MARK." 9000 :" IN THIS RUN WE'LL SHOW YOU DATA"! "FOR ALL FIVE CARS AND GIVE YOU JUST"& "TEN SECONDS TO PICK A WIAVE HIGHER INITIAL SPEED OR RATE"L "OF ACCELERATION TO HELP COMPENSATE."{ " SOME CARS TRAVEL AT CONSTANT RATE FROM" "START TO FINISH.OTHERS START FROM REST" "AND ACCELERATE SMOOTHLY THE WHOLE WAY." "CAR E STARTS ON THE LINE FROM RESTODUCE GAME,GIVE RULES ? 10);" ";::"THE RACE GAME":l " IN THIS GAME THERE ARE 5 CARS GOING" "DOWN A STRAIGHTAWAY 1000 METERS LONG." "TWO OF THE CARS,LABELLED C AND D ,HAVE" "TO START MANY METERS BEHIND THE LINE,"! "BUT H5R(Z)0ī2250*K(Z)12CCī2240L9K(Z),20Z111K(Z),20Z1n11K(Z),20Z19K(Z),20Z18K(Z),20Z12K(Z),20Z2250CC,20ZCC10,20ZZAA11000:AAX[ ` :j  3000-3305 TEXT TO INTR(212.2D(3))!CC,10CC,1103X2H(5)12> Z15ZK(Z)B(Z)X.5A(Z)XXK(Z)(.2K(Z).2D(3).2D(Z).5)*X2021104K(5).5A(5)XX:2120>K(5).5A(5)202020A(5)(X20)HK(5)(.2K(5).2D(3).5)ZZ1:7-Z15:(12.2D(3).2D(Z)),20Z:ZF3,223,186,186,22U3,206,20x4,424,383,386,386,423,424,406,406,616,623,623,586,586,594,824,783,786,786,823,826,1023,1023,986,983,1005,100CCE";28);"ELAPSED" rC0$ sY15/ vZ15E xJ(Z)H(Y)ī1940X (64Z);" ";y R(Z)0ĺ"DID NOT RUN":1940 4);A(Z);9);B(Z);16);D(Z);22);G(Z);30);J(Z) CC1:W$(C)(64Z) Z Y (4);"PR#0" 9000   ";B(Z);" ";D(Z)! 0:Z' bo l 1900-1970 PRINTS TABLE TO SHOW CORRECT ORDER OF FINISH AND TIMES mBB1ī1903 n(4);"PR#1":(9);"80N":(9);"I" o5);"ACC";10);"V(0)"; p15);"TOTAL";22);"V(F)";30);"TIME" q14);"DISTANC0.5A(5)400)G(5)0 H(5).1(10H(5).5)20F L14:K(L1)5[ H(L)H(K)ī1000e K:L  1800-1890 PRINTS TABLE SHOWING USER INITIAL DATA FOR CARS SELECTED " ACC V(0) DISTANCE BEHIND LINE" Z15 (64Z);" "; &A(Z);"0:B(4)(4020(1).5):D(4)D(3)G }A(5)(A(3)2(1)):B(5)0:D(5)0M z Z14:G(Z)(1000D(Z))2A(Z)B(Z)B(Z) G(Z).1(10(G(Z).5)) H(Z)2(1000D(Z))(B(Z)G(Z)):Z Z14:H(Z).1(10H(Z).5):Z G(5)20A(5) H(5)(100MIZED p  A()=ACCELERATION;B()=INITIAL VELOCITY;D()=HANDICAP DISTANCE;G()=MAXIMUM VELOCITY;H()=RACE TIME A(1)0:B(1)(3020(1).5):D(1)0 QA(2)(13(1).5):B(2)0:D(2)0 A(3)(A(2)1.5):B(3)0:D(3)(9030(4(1)).5)! A(4)s 2d9100i8500%n3000/p80009q2000Cs1900SxPP1İ4100]}4000g5000q8000{2000190060009900  1000-1536 SETS VALUES OF ACC,INITIAL VELOCITY,AND DISTANCE BEHIND LINEFOR THE FIVE CARS....RANDO             ILY WIN AGAIN!!"<" BUT MAYBE YOU FEEL READY TO GO ON"a"PART THREE....THE QUINELLA !!"" IN THIS PART ALL FIVE CARS MUST" "RACE,AND YOU HAVE JUST ONE SHOT AT""PICKING THE ORDER OF FINISH."" IF YOU INPUT 1,2,3,OR 4 '&'23:"((RETURN)) ";ZZ$::Z*STY FACT THAT EVERY FOURTH TURN"L%" THE OBSTACLES GET REPOSITIONED AT"{%" RANDOM!!YOUR 'OPEN' PATH MAY CLOSE! "%9990%5:" ENJOY THE GAME"%ZZ1800:ZZ&15:"BE PATIENT AS WE RELOAD RACE TRACK"H&(4);"RUN RACE TRACK"AYS THE SAME.">%:"RANDOM...A SERIES OF OBSTACLES ARE PUT"j%" AT RANDOM ONTO COURSE. YOU GET TO"%" CHOOSE WHETHER OR NOT TO RUN IT."%" ONCE SET,YOU CAN RUN ON IT MANY TIMES"%:"VARIABLE...LIKE RANDOM,EXCEPT FOR THE" %" NAFIND"3%:"THE PATH NEEDING THE FEWEST POSSIBLE"C%:"MOVES."M%9990}%"HERE ARE THE FOUR COURSES TO CHOOSE FROM"%"EASY.....NO OBSTACLES,AND INVOLVES ONLY"%" D OR L MOVES."%:"HARD.....CURVES ABOUT,SOMETIME NARROW,"%" ALW::"CRASH";::",AND PUTS YOU OUT OF THE RACE!";v%9990j%"(4) WHEN TWO OR THREE PLAY,STRATEGY CAN"%:"BE USED TO BLOCK AN OPPONENT FROM THEIR"%:"OPTIMUM PLAY. BUT EVEN AS A SOLITAIRE"%:"GAME,";::"RACE TRACK";::" INVITES YOU TO A, B, AND C ."@S%:"THEY ALWAYS GO IN ORDER, SO CHANGE ROLES"jX%"IF PLAYING SEVERAL GAMES IN A ROW."b%:"(3) YOU MAY GO OVER OR AROUND THE MARK"g%:"OF AN OPPONENT, BUT YOU CAN'T LAND ATOP"l%:"IT. TO DO SO, OR TO HIT THE WALLS,IS A"1q%040%10:"THE KEY TO WINNING IS TO THINK AHEAD !!"I5%ZZ11500:ZZ:h:%"NOW A FEW MORE COMMENTS"z?%Z1800:Z:D%"(1) ON THE STARTING LINE YOU'RE AT REST,"I%"SO YOUR FIRST MOVE IS EITHER RU,RD,OR R"L%N%"(2) THE RACERS ARE CALLED / %:"YOU MUST GO THROUGH LD AND L TO DO SO."m%:" IT ";::"IS";::" A LEGAL MOVE TO SIMPLY TAP THE"%:"RETURN KEY AND REMAIN IN PLACE FOR A"%:"TURN,SO LONG AS IT IS NO MORE THAN 1"!%:"FROM PREVIOUS MOVE IN ANY DIRECTION."&%999AL MOVE":9 $:"MESSAGE,AND YOU'LL HAVE TO TRY AGAIN."C $9990s $16:"EVEN IF IT PUTS YOU INTO THE WALL !!"} $9990 $"SO YOU CAN NOT COMBINE R WITH L OR" %:"D WITH U IN SUCCESSIVE TURNS." %:"SUPPOSE YOU WISH TO GO FROM LDD TO LU ."0 $:"MORE THAN ONE. ASSUME PREVIOUS MOVE WAS"6 $H $16);"RRRDD"v $:"IN YOUR CURRENT MOVE YOU MUST CHOOSE" $:"EITHER 2,3, OR 4 FOR RIGHT AND EITHER" $:"1,2,OR 3 FOR DOWN. GOING OUTSIDE THIS" $:"RANGE WILL EARN YOU AN ";::"ILLEGRE'S THE MOST IMPORTANT RULE"2 $ZZ11200:ZZ:` $"JUST AS AN ACTUAL CAR CANNOT RADICALLY" $:"CHANGE DIRECTION,NEITHER CAN YOU. THE " $:"BASIC RULE IS THAT YOU ";::"CANNOT";: $" CHANGE" $:"FROM YOUR PREVIOUS L-R OR D-U MOVE BY"DOWN ONE"6 ,$:"THUS HITTING RRRDD WOULD MOVE YOU "h 1$:"THREE BLOCKS OVER AND TWO DOWN ALONG THE" 6$"TRACK. THE ORDER OF ENTRY DOES NOT" ;$:"MATTER, AND TYPING MISTAKES CAN BE COR-" @$:"RECTED BY USE OF LEFT ARROW KEY." E$9990 $"HEZ$:1 $"YOU'LL MAKE YOUR MARK MOVE AROUND THE"^ $:"SCREEN BY TAPPING THESE FOUR KEYS:": $:" EACH R WILL MAKE IT GO ONE TO RIGHT" $" EACH L WILL MAKE IT GO ONE TO LEFT" "$" EACH U WILL MAKE IT GO UP ONE" '$" EACH D WILL MAKE IT GO ( #$#12);"RACE TRACK RULES"O#:6);"A GAME FOR 1, 2, OR 3 PLAYERS"W#12#:"THE OBJECTIVE IS TO GET FROM THE START"#:"LINE TO A FINISH LINE(DENOTED BY FFFFF)"$:"IN FEWEST POSSIBLE MOVES." $20:"PLEASE HIT RETURN KEY ";Z         RE :X13!DXX(3):YY(3)X2N"XXXXXX":X8I***TRIANGLETX13hXX(4):YY(4)XvY3X1"X";Y::X***OCTAGONXX(5)1:YY(5):"XX" XX(5):YY(5)1:"XXXX"XX(5):YY(5)2:"XXXX"XX(5)):(7):X118:"X";:X:$150,63*5>6***GET CENTERSP;ZX$"Y"4199Z@8600`gsh***7X5 SQUARE~rX17|XX(1):YY(1)X"XXXXX":X***2X4 SQUAREX13XX(2):YY(2)X"XXXX":X/0***2X6 SQUA27):"XXXXXX"&12:26:G(1)1ĺ"X"=(13):(3):"XXXX"S13:27:"XXXXXX"h 14:2:"XXXXXX"} 14:28:"XXXXX"15:2:"XXXXXX"16:2:"XXXXXX"17:2:"XXXXXX"18:2:X122:"X";::"X19:(4X):35:"X":X,(1933):"XX"$4:2:X18:"X";::?5:2:X17:"X";::P6:3:"XXX"bG(1)1ī4070t(7):4:"XX"8:32:"X"(9):(30):"XXX"(10):(28):"XXXXX"(11):(27):"XXXXXX"G(1)24098(12):(4):"XX" (12):(402042004300&440004500:4700D4800N4900Td***OUTLINEo50,63X110:3X:33:"XX":X1:2:X130:"X";::2:2:X19:"X";::(2):32:"XX"(3):2:X18:"X";:: (3):(XXXXX";#2 (15):X118:"X";::64 (29):"XXXXX"R: (14):X120:".";::u? X115:(33):(4X):"XXXX":B (19):(23):"XXXXXXXXXX"D 50,255I (19):(1):".......FFFFFFF........."*****RANDOMIZED TRACK20004150;: (14):(26):"XX"8 (15):(1):X110:"X";:R (15):(17):"XXXXX";b (32):"XX"! (16):(1):"XXXXXXXXX";& (16):"XXXXXXX";( (31):"XXX"+ (17):(1):"XXXXXXXX";- (15):"XXXXXXXXX";/ (30):"XXXX"0 (18):(1):"XX125:"X";::/ (9):(5):X125:"X";::P (10):(4):X126:"X";::q (11):(4):X126:"X";:: (12):(3):X115:"X";: (12):(22):"XXXXXXXX" (13):(3):X113:"X";: (13):(24):"XXXXX" (14):(1):X113:"X"131:"X";:: 2:"XXXXX";0 (30):"XXX"B (3):"XXXX";S (31):"XXX"d (4):"XXX";u (32):"XXX" (5):"XX"; (33):"XX" (5):(16):"XXXXXXX" (6):(6):X122:"X";:: (7):(5):X124:"X";:: (8):(5):XPOISITION 50,255 ' X1193 Y138= ".";I Y::Xb (1):(33):"PLAYER"y (3):(35):"TURN" 2:1 X13:"!":X SP19:SP:SP *X16:"!":X 3 ******HARD COURSE 2000 50,63 1:X X122:"X";: X1103 (4X):(20X)B "XXXX":XM $X15b .(30):"XXXX":Xm 3K14y 8(14K) BX115:"X";:X G:K J(15) LX16:(16):"X":X Q19 S50,255 V(16):X115:"F";::  *****GRID 0,9000 8000 P1PP& 5000- P7 NN1C P1PPT R(P)10225^ 5200h 8300x GG1ī8700 P P1:TT4İ9000 215  *****SET UP OUTLINE EASY COURSE 2000 50,63 (3):X122:"X";:: (4)- V" (3) OBSTACLES AT RANDOM..OPTION TO "Y W" PLAY...WON'T CHANGE POSITION" X" (4) OBSTACLES CHANGE POSITION EVERY" Y" FOURTH TURN !!" Z::"TYPE IN 1,2,3, OR 4 ";TT _TT1TT4TT(TT)90 d8900:TT1000,3000,400,35)0 A"DO YOU NEED INSTRUCTIONS?(Y/N) ";KK$G C(KK$,1)"Y"ī70a D(4);"RUN TRACKTEXT" F"HOW MANY PLAYERS? ";PP K P:"YOU MAY CHOOSE FROM FOUR KINDS OF TRACKS" R" (1) EASY..ALWAYS THE SAME" T" (2) HARD..ALWAYS THE SAME"  :12:10::"RACE TRACK"2ZZ12000:ZZY(17)::"A LOGIC GAME WRITTEN BY"`5r"DAVE OLNEY""LEXINGTON,MASS H.S."#ZZ13000:ZZ(::<X$(12,3,35):CC$(3,35):TU(3,35):TD(3,35):TL(3,35):TR(3,35) =H(3,35):V(3                     !:"BEFORE WE GET STARTED,WE WANT YOU"M$C!"TO KNOW ABOUT OUR PROMPT SIGN."y$H!"WHENEVER YOU SEE THIS ((RETURN))"$M!"AND APPLE SITS WAITING,YOU SHOULD"$R!"HIT THE RETURN KEY TO PROCEED.WON'T YOU"$W!"YOU TRY IT RIGHT NOW?"$\!9000 %a!"V(5) #JS0#TK25-#^H(K)H(K1)ī80805#hS1@#rTH(K)P#|H(K)H(K1)]#H(K1)Td#Kr#S18010x##4! 8500-8555 INTRODUCTORY TEXT,SHOWING HOW TO USE PROMPT#6!10);" ";::"RACER !!":#9!" WELCOME TO THE RACER GAME!!"'$>CTED ORDER WAS :"+"zZ15:" ";S$(Z);:Z1"^""WERE YOU CLOSE?! BETTER GET A COPY OF"""SCREEN IF NO PRINTER AVAILABLE."""@ SORTING ROUTINE TO RANK CARS IN ORDER OF FINISH ACROSS LINE#EJ(1)H(1):J(2)H(2):J(3)H(3):J(4)H(4):J(5)HOU WANT?INPUT Y OR N ";YY$J!A(YY$,1)"N"ĺ"OK,WE'LL TRY AGAIN!":5120e!D"GOOD ENOUGH, ";NAME$!F"OK..BET HAS BEEN MADE..GUN IS UP...GO!"!HZZ1500:ZZ!K(4);"PR#0"!!p CLOSING MESSAGE TO QUINELLA!r:NAME$",";"u"YOUR PREDI" Z15:S$(Z)N S$(Z)(69)ĺ"PLEASE INPUT EITHER A,B,C,D,OR E":5140U Zf BB1ī5160 #(4);"PR#1":(9);"80N":(9);"I" ("YOUR PREDICTED ORDER IS AS FOLLOWS" 2S$(1)" "S$(2)" "S$(3)" "S$(4)" "S$(5)!<"IS THIS THE ORDER YREDICT."3"IF NO PRINT-OUT IS MADE,BETTER COPY"\"DOWN DATA HERE TO BE ABLE TO SHOW""TO YOUR INSTRUCTOR,IF ASKED."9000:Z15:R(Z)Z:Z1000:"TYPE IN NOW THE ORDER OF FINISH," "ONE LETTER PER ?,FROM FIRST TO LAST. ORDER"/"OF FINISH CORRECT,FIRST TO LAST."\"BE WARNED THERE'LL BE ONLY ONE CHANCE""AT THIS IN THIS RUN.IF YOU'RE WRONG,""YOU'LL HAVE TO START AT BEGINNING AGAIN!"" AFTER SHOWING YOU THE DATA,YOU'LL""INPUT THE ORDER YOU P"WHOA! TRY AGAIN!!":4390=*W5ĺ"WHOA!TRY AGAIN!!":4390J+W5140X,W09900a-120 5000-5300 TEXT TO PLAY THE QUINELLA:12);" ";::"THE QUINELLA":NAME$",YOU'RE GOING FOR THE QUINELLA""TO WIN YOU MUST HAVE THE EXACTTHEN YOU WILL"&"REPEAT PART TWO."Q" IF YOU INPUT 5 AS NUMBER,WHY THEN"t"YOU'VE ENTERED THE QUINELLA"!" IF YOU WANT SIMPLY TO QUIT AT THIS"#"POINT,INPUT 0 "&PP1:"WHICH NUMBER DO YOU WANT;1,2,3,4, OR 5? ";W)W(W)W5 CLICK(16336)(16336)' X,Y. IH 16368,0:16384,128P A$Z 1000z  SUBROUTINE CHECK RANGE X0X0 X279X279 Y0Y0 Y159Y159 G 0,160,143 I027970= I,78I,82:279,78279,82D IU *I1614416b 40,I4,Ii >Iv HTIME400 RS280TIME \0,80 fI0TIMESP pXI3.14159180 zY0:J16:YAMP(J)5(F(J)X)Y:J Y80Y16 XIS 30008:"ENTER SPEED (1-5) - ";SP:SP1SP5(SP)SPĺG$:1220E 1000 21:958:"CLEAR ALL NOTES IN MEMORY? (Y/N) ":A$:A$"Y"1000 I16:F(I)0:FR(I)0:AMP(I)0::1000  --PLOTTING ROUTINE--  24  3 0,80279,80DE (1-10) ";A$:AMP(I)(A$):AMP(I)01130D tAMP(I)20ĺG$;:1130 ~9);:"FREQUENCY - ";FR(I):FR(I)0FR(I)9999ĺG$;:22::868:1150 F(I)FR(I)27.75 1000 A$"E"Ā A$"P"2000 A$"C"1240 A$"S"ĺG$:1000; 21:95 AMP(I);" ";A$ :I4 $::"SPEED - ";SP< .21f 8"CHANGE NOTE: 1/2/3/4/5/6 PLOT:P" B"CLEAR NOTES: C EXIT:E SPEED: S" L16368,0:16384,128 VA$:I(A$):I6ĺG$:1000 `IC1180* j21:958:"NOTE ";I;": ";:"AMPLITU --OSCILLOSCOPE-------------------92G$(7)tdSP4: PLOTTING SPEED FROM 1 (SLOW=MOST ACCURATE) TO 5 --DATA INPUT-- :" NOTE AMP FREQ":I16:7);I;" "; A$(" "(FR(I)),6):AMP(I)10ĺ" ";     (&"WELL. TO PLAY AGAIN,SIMPLY TYPE RUN,"L(&"AND YOU'LL BE ON YOUR WAY."k(&:" BYE FOR NOW!!"q(' Z&" WE HOPE YOU'VE ENJOYED PLAYING THE"T'&"RACER GAME.WE ESPECIALLY HOPE THAT"'&"YOU WERE SUCCESSFUL IN PREDICTING THE"'&"WINNERS.THAT'S BECAUSE YOU MUST BE"'&"QUITE A GOOD BEGINNER PHYSICIST,OR"'&"A SUPER-GOOD GUESSER TO HAVE DONE"*:"OK "NAME$" ,LET'S GET GOING!"-&!9000:E&(#"((RETURN))";ZZ$:\&#" RACER"y&#"CREATED BY DAVE OLNEY"&#"LEXINGTON(MASS) H.S. FEB,1983"&#ZZ11000:ZZ&#:&& FINAL MESSAGE 9900-9999&&9000:&&"WELL IT'S OVER!! "*'ERY NICE!"8%f!"BY THE WAY,IS THERE A PRINTER ATTACHED"d%k!"THAT IS TURNED ON?INPUT Y OR N ";BB${%p!(BB$,1)"Y"8580%u!(BB$,1)"N"8590%z!"HEY!PLEASE INPUT YES OR NO!!":8550%!BB1%!"PLEASE TYPE IN YOUR FIRST NAME NOW"%!NAME$!&!,YC$ k"TIME INCREMENT (DAYS) ";TD. 80:3)% NOP(9)5.9E09:PY(9)248.4PY(3)< XPI3.14159:P2PI2Q J09:I(J)0:J^ ZP2360~ "SCALE= (5E5 -1E8) ";SCALE 4"PLOT ORBITAL PATH (TYPE '1') OR" 9:"PLANET POSITION ONLY (TYPE '0') ";RBIT R"SUN LOCATION (X,1-278; Y,1-158)? ";XC6:PY(1)87.97, OP(2)108.2E06:PY(2)224.7L OP(3)149.6E06:PY(3)365.26l OP(4)227.9E06:PY(4)686.98 &OP(5)778.3E06:PY(5)11.86PY(3) 0OP(6)1427E06:PY(6)29.46PY(3) :OP(7)2869.6E06:PY(7)84.01PY(3) DOP(8)4496.6E06:PY(8)164.79PY(59Y0190 X,Y& J:RBIT12001 62450R 1.2(XC1),YC1.2(XC1),YCo 1.2XC,YC11.2XC,YC1 I(3),I(3)PY(3) 130 , SET UP SOLAR SYSTEM  OP(I) = DIAMETER OF PLANETARY ORBIT  PY(I) = PLANETARY YEAR, OP(1)57.9E03 n:"DAY YEAR (EARTH) ":C s:7:34,22T xW(1PI)180n J19:ROP(J)SCALE I(J)I(J)(PY(3)PY(J)TD) YZI(J) X1.2(XCR(WY)) YYCR(WY) J9ĪXX(1500E06SCALE) X279X0190 Y10 ELECTRONIC ORRERY2 BY FRED J. GUNTHERZ MICROCOMPUTING , JULY 1981, P 150d::z OP(9),PY(9),I(9)2300P:21Z" A P P L E O R R E R Y"d PLOT CIRCILAR ORBITSi OFFSET PLUTO'S ORBIT TO SIMULATE ELLIPSE     GE."4 "SELECT A TEMP (FROM 10 TO 50 DEG C)";T(3)bX(4(1)2):Y(12X)(.082(T(3)273))vY.1(10Y.5)N(3)Y"WE'LL ASSUME YOU SET MOLE NUMBER AT "N(3)!1900&:"EXPERIMENT C"+" TEMP IS CONSTANT AT "T(3)" DEG C" 0+"HAVE A TOTAL OF "W" WRONG RESPONSES."W"ONLY "(6W)" MORE AND YOU'LL HAVE TO"p"START AGAIN":1900:"EXPT C"" THIS TIME N AND TEMP WILL BE FIXED.""THEN WE'LL MOVE PISTON HEAD TO A ""DESIRED SPOT,AND READ THE PRESS GAUW519505"UH-UH. CORRECT ANSWER IS ".25X" ATM"n"(3) PREDICT MOLES THAT MATCH "60(4(1)1)" ATM"B(3):B(3)60X(4(0)1)490WW1:W51950"NOT SO.IT'S "60X(4(0)1)" MOLES HERE.":"THIS ENDS EXPT B. SO FAR YOU"S MOLE NUMBER DECREASES,DOES THE"Q"PRESS INCREASE OR DECREASE?TYPE I OR D.";pB$(1):(B$(1),1)"D"450WW1:W51950"WHOOPS!RIGHT ANSWER IS DECREASE TOO!""(2)PREDICT PRESS THAT MATCHES .25 M"B(2):B(2).25X470 WW1:E OF "Y" LITERS";w"SELECT MOLES FROM RANGE OF .1 TO 10"d|15);"MOLES";22);"PRESSURE IN ATM"oZ17"N IS ";N(2)P(2)N(2)X15);N(2);22);P(2)Z"COPY THIS DATA DOWN.";:1900"NOW SOME MORE QUESTIONS."!"(1) AHIS EXPERIMENT IT WILL BE THE"KY"TEMPERATURE AND VOLUME WHICH WILL NOT"k^"CHANGE,ONCE WE SET THEM."c" TEMP WILL BE WHAT YOU CHOSE IN"h" EXPT A, NAMELY "T(2)" DEG C"m" TO SET VOLUME,THE PISTON WILL BE"r" LOCKED AT A VOLUM"NOT SO!"CWW1:"ANSWER SHOULD BE ".8(3(0)1)" MOLES."j"YOU'VE DONE WELL!! ON TO EXPT B""SO FAR YOU HAVE ";W;" WRONG."1900 300,:"EXPT B"6T(2)T(1):X3(1)3:X(X)@Y.082(T(2)273)X:Y(Y.5)T:"IN TTERN,PREDICT THE VOLUME"5"OCCUPIED BY .9 MOLES."LA(3):A(3)18240VWW1{"NOPE!THE ANSWER IS 18 LITERS.""FINALLY,PREDICT THE MOLE NUMBER HERE.""THAT WOULD OCCUPY ";16(3(1)1);"LITERS."A(4):A(4).8(3(0)1)260 "LOOK AGAIN!IT DOES GET BIGGER!"K"ARE V AND N DIRECTLY OR INVERSELY"p"PROPORTIONAL?TYPE DIR OR INV."A$(2):(A$(2),1)"D"210"SORRY THEY ARE DIRECTLY PROPORTIONAL."WW1"DOUBLING ONE DOUBLES THE OTHER.""BASED ON PATZ& "COPY THIS DATA DOWN!";:1900P "IF YOU'VE GOT THE PATTERN HERE,YOU" "WILL BE ABLE TO ANSWER THESE QUESTIONS." "AS N INCREASES,DOES V INCREASE OR" "DECREASE IN SIZE? TYPE INC OR DEC ." A$(1):(A$(1),1)"I"190 WW1"1900::"EXPERIMENT A"F }"TEMP IS CONSTANT AT ";T(1);" DEG CELSIUS"q "PRESSURE IS CONSTANT AT ";P(1);"ATM" "SELECT MOLES FROM RANGE OF .1 TO 2" 15);"MOLES";22);"VOLUME" Z17 "N IS ";N(1) VN(1)20 15);N(1);22);V M"- P"TEMPERATURE(BETWEEN 15 AND 30 DEG)."[ U"TYPE IN HERE THE TEMP YOU DESIRE ";T(1) Z"NEXT,P WILL BE ATMOSPHERIC PRESS. WHICH" _"ON THIS DAY IS "; nP.082(T(1)273.15)20 xP(1).1(10P.5) zP(1)760" TORRS OR ";P(1)"ATM." |CK TO". 8"BEGINNING OF PROGRAM!GOOD LUCK!!"8 91900T :" EXPERIMENT A" <"IN THIS EXPERIMENT YOU WILL KEEP THE" A"TEMPERATURE AND PRESSURE ON GAS IN THE" F"PISTON CONSTANT FOR SEVEN TRIALS." K"TEMP IS MAINTAINED AT CLOSE TO ROOED.OUR CUE"1 *"WILL BE THE PHRASE ((RETURN))."U ,"IN FACT,WHY NOT TRY IT NOW!!"_ .1900x 0"THAT'S THE IDEA!!"~ 1 2"ALSO,FROM TIME TO TIME WE'LL ASK YOU TO" 4"INPUT CERTAIN ANSWERS.ONCE YOU TOTAL" 6"FIVE ERRORS,YOU'LL HAVE TO GO BA0 2"WE ASSUME YOU HAVE READ MIMEO SHEET"Z"THAT DEALS WITH THIS EXPERIMENT!" "REMEMBER TO RECORD DATA OFF SCREEN IF"""NO PAPER PRINTER IS WORKING HERE."#:"FROM TIME TO TIME WE WILL ASK YOU TO" ("HIT THE RETURN KEY TO PROCE          z#????   Ԡ Ҡ" Р!̴ "ұ׵"Š٨ɩŠ Šˠ" ̷ Ԡ٠NŴ ʴҠαΠԠ Ϡϲ̹ Πؠ͠ϱ ȠAND ";::"CONT";:0SW#" TO CONTINUE PROGRAM."^SZ#"IF YOU GET A 'CAN'T CONTINUE' MESSAGE,"|S_#"THEN YOU SHOULD TYPE ";Sd#Sx#"FROM NOW ON, WHEN YOU SEE THE PHRASE"S}#"((RETURN)) AND APPLE SITS WAITING,"T#"YOU SHOULD HIT RETURN KEY TO PROCAPPLE HELP BY";R2#"SERVING AS A CALCULATOR.AFTER IT SAYS"_R<#"'BREAK IN XXXX' YOU CAN TYPE"qRA#:"PRINT";:RD#",THEN WHATEVER VALUES OF NUMBERS"RF#"AND OPERATIONS YOU WANT;YOU'LL GET"RP#"THEIR VALUE. BUT THEN YOU MUST TYPE IN"SU#"THE COMM"WE CAN DEDUCE THE WORK NEEDED,WE SHALL"RQ"HAVE THE CHANGE IN P.E. AS WELL."{Q" FINALLY, IF ALL TERMS ARE IN SI"Q"UNITS, THEN WE CAN BE SURE THE PE"Q"WILL BE IN NEWTON-METERS OR ";Q:"JOULES.":QR(#"YOU MIGHT LIKE TO HAVE E".Pr"SYSTEM.THIS STORES POTENTIAL ENERGY."HPw"THE ";::"GAIN";:kPz" IN POTENTIAL ENERGY EQUALS"P|"THE MINIMUM AMOUNT OF WORK THAT HAS"P"TO BE DONE ";::"ON";:P"THE SYSTEM TO CHANGE"P"FROM POSITION #1 TO POSITION #2. IF"*Q"POSSIBLY MAKE IT MOVE FASTER(KINETIC"WOY"ENERGY) OR CHANGE ITS TEMPERATURE(HEAT)"O^"OR GENERATE AN ELECTRIC CURRENT OR"Oc"SOUND OR.....BUT STILL ANOTHER POS-"Oh"SIBILITY IS SIMPLY TO CHANGE THE"Pm"RELATIVE POSITIONS OF THE PARTS OF THT"N"AREA OR TO STOP."$N9095,N90HNX FINAL MESSAGE TO USERtNb"YOU'VE DONE A GOOD JOB.BYE FOR NOW!!"~N9300N?9999N@ GENERAL STATEMENT ON PENJ:" WORK AND POTENTIAL ENERGY":NO" WHEN WORK IS DONE ON A SYSTEM IT CAN"(OT " HELLO"9"DISK INITIALIZED FOR DJO,10/82"c"PROGRAMS IN PHYSICS WRITTEN BY DJO"("REPACKAGED IN AUGUST,1983"-:2"FOR A NICE AUTOMENU,TYPE BRUN HELLO2"c EED"+T#" WITH THE PROGRAM. TRY IT NOW!!"1T#HT#"((RETURN))";A$:qT#***** TURN ON PRINTER WHEN DD$ IS YT#(4);"PR#1"T$(9);"80N"T$(9);"I"T$TT$(4);"PR#0":T'DȱҠ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ  4 0-4ȊRE FILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  +  @` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERROR L> m CANNOT RESTO ee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS s RETURN  ɍ`(h`  i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGET   ɛ=ɍ RIVE $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $ (&Hɠ)? !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅlL| $ v SLOT= D! | G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   )  L H8H   G ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s SEPTEMBER 1980`$L[($H(h)JL G ` RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $ L m ERROR hhL0 ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i ii i ()?  HBhi T ii / X v SELECT 1.0 (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H $(*)+!h"0 H $(*     IST OF POSSIBILITIES AGAIN"D"SIMPLY RUN PROGRAM AGAIN.HAVE FUN"`"WITH THIS ANALYSIS!!"f P,53,53,53,53,543| 52,54,45,57,38,60,35,64,32,60["RECORD THIS DATA,THEN TYPE GO";A$a"WANT TO DO ANOTHER RUN? ";B$(B$,1)"N"890"WANT TO USE SAME CHEMICAL? ";C$(C$,1)"Y"179215z(4);"PR#0""TO SEE LIS BEING INPUTTED IN HEATING"E8"CURVE AT RATE OF "N" CAL/MINUTE."b;" TIME","TEMP","TEMP"@"(MIN)","COOLING","HEATING"EI1342JT1,S(I)D,S(I1)DOT1T1TTIw 71,23,60,30,54,44,53,48,53,52,53,53y53,53,53,53,53,53,53)";M M.1M.5235$ TT5K/ :T10: I19E O1(I)L If  0,-1,-1,9,9,9,5,5,5r DO1(O)} I19 A(I) I  4.27,13.8,10.8,14.7,2.1,11.7,7.8,4.3,9.9 "NA(O)M1000(5T) 'I134 ,S(I) 1I6"ENERGY 195* (4);"PR#1":(9);"80N":(9);"I"S "RECORD THIS CODE NUMBER,PLEASE ";D "WHAT IS TIME INTERVAL YOU WOULD LIKE" "TO TRY?(FROM .5 TO 3.O MIN)"; T T.5T3.0215 "HOW MANY MOLES DO YOU WISH IN SAMPLE"; "(FROM .1 TO .5ANHYDRIDE"6 " N-DOCASANE,TROCOSANE,N-PENTACOSANE"^ :"BE SURE TO RECORD CODE NUMBER!"| "TYPE GO TO CONTINUE";A$ :O(9(1)1) A(10(1)):B(10(1)):C(10(1)) D100A10BC EABC E10(E10)O180 PP1īATE,YOU CAN (WITH THE HELP"J "OF A CRC HANDBOOK HEAT OF FUSION TABLE)"v "FIND WHICH ONE OF NINE POSSIBILITIES" "IT IS.HERE'S THE LIST:" " CYANAMIDE,P DICHLORO BENZENE" " BENZOPHENONE,MYRISTIC ACID " " ELAIDIC ACID,CINNAMIC A)FIRST FROM LIQUID TO"E "SOLID BY STEADY COOLING IN A ICE BATH,"r "AND (B)BACK TO LIQUID BY STEADY HEAT-" "ING ON A HOT PLATE.THE RATE OF HEATING" "WILL BE TOLD TO YOU." "FROM THE TEMPERATURE-TIME DATA AND THE" "HEATING Rh":17);"";::"CAL 9":::R2"IS THERE A PRINTER ATTACHED AND WORKING?"p7"PLEASE TYPE Y OR N";PP$<(PP$,1)"Y"PP1_S(34)dn"CALORIE (A LAB SIMULATION) "x:"THIS SIMULATION WILL TAKE AN UNKNOWN" }"PURE CHEMICAL (     .14161800 "ANGLE";7);"RADIAN";19);" SIN "R 0;7);"0.0000";17);"O.0000"` W2342 X.0001(10000A(W).5) Y.0001(10000(X).5) W;8);X;18);Y #.1W(.1W)ĺ"*****************************" (W2Z5"THIS CHART WILL SHOW THE SIZE OF ANGLE"f:"(IN RADIANS) AND ITS SINE FROM 0 TO 36 ":"DEGREES.THIS APPROXIMATION IS OFTEN" :"USED IN SIMPLE HARMONIC MOTION STUDIES." "WHEN READY,HIT RETURN KEY ";ZZ$ A(W)W3 ROL THE SIZE OF THE CURRENT THAT"?W:"FLOWS THROUGH A WIRE.K\1990:p"WE EXPERIMENTERS CAN CONTROL:"" VOLTAGE AT POWER SUPPLY"" KIND OF METAL USED"" LENGTH OF WIRE"" DIAMETER OF WIRE"" TEMPERATURE OF WIRE"."VERY NICE!!NOW LET'S GET GOING!"'P4"FIRST,IS THERE A PRINTER ATTACHED"q9"AND WORKING?TYPE Y OR N .">" Y OR N? ";Z$C(Z$,1)"Y"ĪBB1H::"OK,HERE'S THE SIMULATION!"M:" WE WANT TO STUDY WHAT FACTORS TEND"!R:"TO CONT:" WHEN YOU SEE THIS MESSAGE ON THE"S:"SCREEN,AND CURSOR SITS BLINKING"l:15);"((RETURN))":"THEN YOU MUST TAP KEY LABELED ";::"RETURN"::"WHY NOT TRY IT NOW!"1990:"YOU GOT IT! TRY IT AGAIN!!"1990! :);L;20);V;25);RES(X);33);AMP%QC$;5);T;10);D;15);L;20);V;31);AMPWp"((RETURN)) ";ZZ$:: INTRO TO SIMULATION15);" ";::"RESISTANCE LAB"::"BEFORE WE START,WE WANT YOU TO":"KNOW HOW TO USE RETURN KEY."*- TURN OFF PRINTER(0BB1134092(4);"PR#0"?<[F PRINT TITLES IN TABLEeH37,0vKA112::AM1300N"EXPERIMENT ";DD$P"MET T D L V OHMS AMPS"nx PRINT DATA INTO TABLEC$;5);T;10);D;15S(X).001(1000RES(X).5)-AMPVRES(X)JAMP.001(1000AMP.5)AMP10ė:"OH-OH,YOU JUST PEGGED THE METER. YOU'LL HAVE TO START OVER HERE.":720  TURN ON PRINTERBB11320(4);"PR#1":(9);"80N":(9);"I"(METERS) ";L4`" INPUT DIAMETER OF WIRE(IN MM) ";D>eTTTlj"INPUT TEMPERATURE OF WIRE(IN DEG C) ";Tvo2600| COMPUTE R AND IAREA(3.1416DD4E6)FUDGE(X)(1AA(X)1E3(T20))RES(X)RR(X)1E8FUDGE(X)LAREAREX5:1095%$(C$,2)"SN"X6:1095=)C$"TIN"X6:1095V.C$"ZZ"İ3100:1095}3(C$,3)"UNK"İ3100:C$"ZZ":10958"HEY!NOT ONE OF THE SIX CHOICES!!":1005GL INPUT VARIABLESQ" INPUT VOLTAGE ";V V"INPUT LENGTH OF WIRE (IN CHOOSE METAL."INPUT SYMBOL OF METAL ";C$J(C$,2)"AL"X1:1095f(C$,2)"CU"X2:1095(C$,3)"COP"X2:1095(C$,2)"FE"X3:1095 C$"IRON"X3:1095(C$,2)"NI"X4:1095(C$,2)"AU"X5:1095 C$"GOLD"325 2403 "HOPE ALL THE DATA IS RECORDED!!"= 1990j "WANT TO DO A NEW EXPERIMENT?(Y/N) ";Z$ (Z$,1)"N"ī999 "TYPE IN HERE LETTER OF NEW EXPT. ";DD$ DD$"Z"İ3000 35,24: 35,24: AAAA1:C0:200 4000 (Z$,1)"Y"ī6402 v"INPUT NEW VOLTAGE HERE ";VX "WANT DIFFERENT METAL?(Y/N) ";Z$n (Z$,1)"Y"650 "TYPE IN ITS SYMBOL HERE ";C$:1010  1200 37,0 A114C::A 1300 AA1672 1400 675 1450 1"INPUT NEW CELSIUS TEMP HERE ";T, 2600J &"WANT NEW DIAM?(Y/N)";Z$` 0(Z$,1)"Y"580 :"INPUT NEW DIAMETER HERE ";D D"WANT NEW LENGTH?(Y/N)";Z$ N(Z$,1)"Y"610 X"INPUT NEW LENGTH HERE ";L b"WANT NEW VOLTAGE?(Y/N) ";Z$ l238 1450 1325" 35,12( 3 CC1> 35,24G 500P "650h  USER CHANGES DATA " WANT TO END THIS SET OF TRIALS?(Y/N) ";Z$ (Z$,1)"Y"ī700 TTT "WANT TO CHANGE TEMP?INPUT Y OR N ";Z$ (Z$,1)"Y"ī550" (Z$,1)"N"AA1:100 `AA2? d 2.8,1.7,10,6.8,2.4,11.5Y n 3.9,3.9,5,6,3.4,4.2{ s 659,1083,1530,1452,1063,232 xX16:RR(X):X X16:AA(X):X X16:MP(X):X 1000 1100 1200 1350 AA1237 1400 2(<"DO YOU NEED INSTRUCTIONS?"JA"PLEASE TYPE IN Y OR N. ";Z$^F(Z$,1)"N"80hK1999pN92P"IS THERE A PRINTER ATTACHED ?(Y/N) ";Z$U(Z$,1)"Y"ĪBB1\"FIRST EXPERIMENT !!"]"DO YOU KNOW WHAT AN OHM IS?(Y/N) ";Z$ _          :ZZ5(19):"HERE'S KEVIN'S PROGRAM TO SHOW US!!";R****RETURN PROMPT}ZZ11000:ZZ:(22):"((RETURN))";ZZ$(22):" " ES LONGER"2:"...OR 100 TIMES..OR 1000...OR..."=D990:X" JUST HOW LONG WOULD IT TAKE TO PILE -----"]b"ONE MOLE OF PAPER,ANYWAY??"gZZ1500:ZZi(12)l:"AND HOW TALL WOULD THE STACK BE???"vZZ1750PAUSED FOR AN INTERVAL THAT"H:"LASTED ";I;" SECONDS. AT A RATE OF"y:"300 SHEETS PER SECOND YOU'D HAVE MERELY":300I" SHEETS IN YOUR PILE...AND":" THAT'S NOT A MOLE !!"&990+(10) 0:" PERHAPS IF YOU WAITED TEN TIM" APPLE WILL TELL YOU HOW LONG A TIME"Y:"WENT BY,AND HOW MANY PIECES OF PAPER YOU""GOT INTO THE PILE IN THAT INTERVAL."990(18):"ARE YOU READY??........"ZZ1750:ZZ:(22):(22):"GO":ZZ11000:ZZ:3:"YOU JUST INNESS BOOK OF RECORDS !!!"& w990:R |"NOW IN JUST A SEC THE SCREEN WILL GO" :"BLACK. WHEN YOU TAP RETURN KEY YOU WILL"  "SET A STOPWATCH GOING. WHENEVER YOU WISH" "TAP IT AGAIN,AND THE TIMER WILL STOP." ZZ1600:ZZ':14):(31):"QUICK"* :(16):(36):"GAME"5 >990:d @"SUPPOSE YOU CAN STACK THE PAPER SO FAST" J:"THAT YOU PILE UP 300 SHEETS IN JUST" T:"ONE SECOND!!" ^ZZ11000:ZZ:(16) h"CLEARLY THIS MAKES YOU WORTHY OF BEING" r:"IN THE GUSSED IT...." ? :"ONE MOLE";::" OF SHEETS OF PAPER."R ZZ11000:ZZ "(22):"PLEASE TAP RETURN KEY TO PROCEED";:ZZ$ ':(22):" " ,(10):" BUT BEFORE WE DO,PLAY " 6(12):(26):"THIS" 8(: " MOLEDEMO":F "WRITTEN BY KEVIN VANDERWATER,1981"i "MODIFIED BY DAVE OLNEY,1983"~ ZZ12000:ZZ: "IN THIS PROGRAM WE WILL (GRAPHICALLY)" :"STACK PIECES OF PAPER ATOP ONE ANOTHER" :"UNTIL THE PILE HAS...YOU GUE UNTIL BUTTON PRESSED X(A)- XB20; 16368,0A #Y %12:16:"COUNTING"a (C0w -: START COUNTING 2II1 4X(A) 5XBC1 7XBC180 F50 P Z8:15 \I.1(10I63) c16368,0 d190  2005****SUB ROUTINE TO ACTIVATE STOPWATCHKB16384:16368,0:QQ12827: KEYBOA RD=KB AND QQ=ESCAPE KEY****ADOPTED FROM PHYSICS GEMS BY DR. CARL RUTLEDGE,MODIFIED BY DJO FOR KEYBOARD USEA16384B127  : LOOP     16384:16368,0:QQ12827:KEYBOARD=KB AND QQ=ESCAPE KEY@ *5L "WHOA" K q::"STOPWATCH"3 v:"BY DR. CARL RUTLEDGE"] " (MODIFIED BY DJO FOR KEYBOARD)" :::"TO START COUNTING,PRESS ANY" "KEY ON KEYBOARD.":: "TO STOP COUNTING,PRESS SAME KEY" "AGAIN." ::"PRESS ESCAPE TO QUIT."9 KBNG 2II1 4X(A)% 5XBC15 7XBC180= F50C PN Z8:15d \I.01(100I63)v bI;" SECONDS" c16368,0 d WAIT UNTIL BUTTON RELEASED n(A)B1900 x110 COPYRIGHT (C) 1982 BY DR. CARL T. RUTLEDGE lA02000N 19000 MODIFIED BY DJO 6/83 TO USE KBR NOTE CHANGE IN LOOP,LINE 92XeA16384oB127 : LOOP UNTIL BUTTON PRESSEDX(A):(KB)QQ3000XB20 16368,0#%12:16:"COUNTING"(C0 -: START COUNTI   SET MOLE NUMBER AT "N(3)"!19008&:"EXPERIMENT C"c+" TEMP IS CONSTANT AT "T(3)" DEG C"0" MOLES IS CONSTANT AT "N(3):15);"VOLUME";22);"PRESS IN ATM"?Z18D"VOL IS ";V(3)I15);V(3);22);12XV(3)NZX"TIME FOTEMP WILL BE FIXED."="THEN WE'LL MOVE PISTON HEAD TO A "k"DESIRED SPOT,AND READ THE PRESS GAUGE." "SELECT A TEMP (FROM 10 TO 50 DEG C)";T(3)X(4(1)2):Y(12X)(.082(T(3)273))Y.1(10Y.5)N(3)Y"WE'LL ASSUME YOU W1:W51950@"NOT SO.IT'S "60X(4(0)1)" MOLES HERE."f:"THIS ENDS EXPT B. SO FAR YOU""HAVE A TOTAL OF "W" WRONG RESPONSES.""ONLY "(6W)" MORE AND YOU'LL HAVE TO""START AGAIN":1900:"EXPT C"" THIS TIME N AND NSWER IS DECREASE TOO!"B"(2)PREDICT PRESS THAT MATCHES .25 M"\B(2):B(2).25X470pWW1:W51950"UH-UH. CORRECT ANSWER IS ".25X" ATM""(3) PREDICT MOLES THAT MATCH "60(4(1)1)" ATM"B(3):B(3)60X(4(0)1)490WN IS ";N(2)P(2)N(2)X415);N(2);22);P(2);Z["NOW SOME MORE QUESTIONS.""(1) AS MOLE NUMBER DECREASES,DOES THE""PRESS INCREASE OR DECREASE?TYPE I OR D.";B$(1):(B$(1),1)"D"450WW1:W51950"WHOOPS!RIGHT A ^"CHANGE,ONCE WE SET THEM."Ic" TEMP WILL BE WHAT YOU CHOSE IN"oh" EXPT A, NAMELY "T(2)" DEG C"m" TO SET VOLUME,THE PISTON WILL BE"r" LOCKED AT A VOLUME OF "Y" LITERS"|15);"MOLES";22);"PRESSURE IN ATM"Z17 "OU'VE DONE WELL!! ON TO EXPT B"C"SO FAR YOU HAVE ";W;" WRONG."M1900V 300f,:"EXPT B"6T(2)T(1):X3(1)3:X(X)@Y.082(T(2)273)X:Y(Y.5)T:"IN THIS EXPERIMENT IT WILL BE THE"Y"TEMPERATURE AND VOLUME WHICH WILL NOT" WW10"NOPE!! THE ANSWER IS 16 LITERS."]"FINALLY,PREDICT THE MOLE NUMBER HERE.""THAT WOULD OCCUPY ";16(3(1)1);"LITERS."A(4):A(4).8(3(0)1)260"NOT SO!"WW1:"ANSWER SHOULD BE ".8(3(0)1)" MOLES.""Y"PROPORTIONAL?TYPE DIR OR INV."BA$(2):(A$(2),1)"D"210o"SORRY THEY ARE DIRECTLY PROPORTIONAL."yWW1"DOUBLING ONE DOUBLES THE OTHER.""BASED ON PATTERN,PREDICT THE VOLUME""OCCUPIED BY .8 MOLES."A(3):A(3)16240OU"2 "WILL BE ABLE TO ANSWER THESE QUESTIONS."[ "AS N INCREASES,DOES V INCREASE OR" "DECREASE IN SIZE? TYPE INC OR DEC ." A$(1):(A$(1),1)"I"190 WW1 "LOOK AGAIN!IT DOES GET BIGGER!" "ARE V AND N DIRECTLY OR INVERSELY"#1900::"EXPERIMENT A"F }"TEMP IS CONSTANT AT ";T(1);" DEG CELSIUS"q "PRESSURE IS CONSTANT AT ";P(1);"ATM" 15);"MOLES";22);"VOLUME" Z17 "N IS ";N(1) VN(1)20 15);N(1);22);V Z "IF YOU'VE GOT THE PATTERN HERE,YM"- P"TEMPERATURE(BETWEEN 15 AND 30 DEG)."[ U"TYPE IN HERE THE TEMP YOU DESIRE ";T(1) Z"NEXT,P WILL BE ATMOSPHERIC PRESS. WHICH" _"ON THIS DAY IS "; nP.082(T(1)273.15)20 xP(1).1(10P.5) zP(1)760" TORRS OR ";P(1)"ATM." |CK TO". 8"BEGINNING OF PROGRAM!GOOD LUCK!!"8 91900T :" EXPERIMENT A" <"IN THIS EXPERIMENT YOU WILL KEEP THE" A"TEMPERATURE AND PRESSURE ON GAS IN THE" F"PISTON CONSTANT FOR SEVEN TRIALS." K"TEMP IS MAINTAINED AT CLOSE TO ROOED.OUR CUE"1 *"WILL BE THE PHRASE ((RETURN))."U ,"IN FACT,WHY NOT TRY IT NOW!!"_ .1900x 0"THAT'S THE IDEA!!"~ 1 2"ALSO,FROM TIME TO TIME WE'LL ASK YOU TO" 4"INPUT CERTAIN ANSWERS.ONCE YOU TOTAL" 6"FIVE ERRORS,YOU'LL HAVE TO GO BA2"WE ASSUME YOU HAVE READ MIMEO SHEET"Z"THAT DEALS WITH THIS EXPERIMENT!" "REMEMBER TO RECORD DATA OFF SCREEN IF"""NO PAPER PRINTER IS WORKING HERE."#:"FROM TIME TO TIME WE WILL ASK YOU TO" ("HIT THE RETURN KEY TO PROCE          1690!|"SORRY,YOU'RE WRONG.";4~"ITS MASS IS"[G1" KG WHICH MEANS ITS WEIGHT IS"G1"*9.8 OR "9.8G1" NEWTONS. AND THE""PRODUCT OF M*G*S="G1"*9.8*"G2"GIVES "9.8G1G2" N-M OR "9.8G1G2" JOULES AS ANSWER."9095 HARD QU YOU PROBABLY ROUNDED OFF THE"Gf"VALUE OF ACC OF G FROM 9.8 TO 10."Qg1662ph(E.4)(G1G2.4)1660r"UH-UH,YOU GOOFED.YOU DIDN'T CONVERT"w"MASS TO WEIGHT."G1" KG= "9.8G1" N"z"ANS IS "G1"*9.8*"G2"="9.8G1G2" N-M OR JOULES"{E NO IDEA,INPUT 0 FOR ANSWER."$O@"INPUT YOUR ANSWER (IN JOULES) HERE";VJEiODD$"Y"İ9200T"YOUR ANSWER IS "E:(E.4)(G1G29.8.4)ī1634^"RIGHT ON!! TRY A HARDER ONE.":9095:1700bE10G1G2E9.6G1G21640d"ALMOST!ASY QUESTION ON GRAVITATIONAL P.E.")V" HOW MUCH GRAV PE IS STORED IN A BOX"o"OF MASS "G1" KG ";"LYING "G2" M ABOVE GROUND?""(REFERENCE LEVEL PE=0 ON SURFACE)"9300:9000 "RUN 1505 TO RESTART" "IF YOU'V THAT IS"&M"'STORED' IN BODY NOW."0N9300:P9095^***** EASY QUESTION ON GRAV PEqDD$"Y"İ9200}XX(1)YY1(8(N)1):XX(YY)"WANT PRINTER ON?(Y/N)";DD$:DD$"Y"İ9200G1.5(5(1)3):G2(5(1)4)#:"AN E"MASS * (ACC DUE TO GRAVITY); M*G=FORCE."U2"THUS THE WORK NEEDED TO BE DONE ON"<"THE BODY TO LIFT IT IS ";::"M*G*S":F"WHERE S IS THE VERTICAL DISTANCE MOVED."I" THIS MINIMUM WORK REQUIRED REPRESENTS" K"THE GRAV POTENTIAL ENERGY (UP!) THAT OVERCOMES THE"H "WEIGHT(WHICH ACTS DOWN!).THUS ANGLE IS"m"ZERO AND COS(A)=1.NOW FOR THE""SMALL DISTANCES IT GOES,RELATIVE TO""RADIUS OF EARTH, THE WEIGHT WILL ":"NOT";:" CHANGE IN MAGNITUDE AND WILL EQUAL"+(RK MUST BE DONE ON A BODY TO MOVE IT"P"AWAY FROM CENTER OF EARTH (OR WHAT-"x"EVER PLANET YOU'RE ON!). WORK IS""FORCE X DISTANCE X COS(A).WHEN WE""TAKE THE VERTICAL DISTANCE,IT'S IN""THE SAME DIRECTION AS OUR APPLIED""FORCE FROM,THEN"6"ENTER C AS 1;OTHERWISE ENTER C AS 2"d"TO GET A PROBLEM ON GRAVITATIONAL P.E."x"C IS TO BE";CC1200,1500 EXPLANATION OF GRAV PE FORMULA:" EXPLANATION OF FORMULA M*G*S"DD$"Y"İ9200%"WO. E"HEY!WE SAID CHOOSE 1,2,3, OR 4 .":1085K G:"SORRY,YOU'RE WRONG!"x L"STUDY CAREFULLY THE EXPLANATION WE'LL" V"SHOW YOU NEXT ON THE SCREEN." `9095 j:1200 ~"YOU'RE RIGHT!!IF YOU STILL WOULD LIKE" "TO SEE WHERE FORMULA COMESZONTAL". "DISTANCE MOVED THROUGH AND V IS"R !"MAXIMUM SPEED DURING MOTION."X $x ."(1) 1/2*M*V*V (2) M*G*S"~ 3 8"(3) M*G*D (4) 1/2*M*S*S" =:"TYPE IN NUMBER OF CHOICE,PLEASE." ?B:(4);"PR#0" BB21150 DB0B51095OR GRAV PE 9080 90951 DD$"Y"İ9200` "WHICH OF THESE FORMULAS GIVES CHANGE IN" "GRAVITATIONAL P.E. STORED IN A BODY WHEN MOVED ON SURFACE OF A PLANET." "(HERE G=ACC DUE TO GRAVITY,S=VERTICAL" "DISTANCE MOVED THROUGH, D=HORISTION USING FORMULA."A "(E)TRY A TOUGH PROBLEM OF THAT TYPE."G p "WHICH TYPE WOULD YOU LIKE TO TRY?" "TYPE 1 FOR GRAVITATIONAL, 2 FOR ELASTIC, 3 FOR ELECTRIC,OR 4 TO STOP." A A1000,2000,3000,7000  USER PICKS FORMULA FTHIS PROGRAM WILL (A) ALLOW YOU TO"P "CHOOSE FOR STUDY POTENTIAL ENERGY DUE"w "TO EITHER GRAVITATIONAL,ELASTIC" "OR ELECTRIC FORCES." "(B)SELECT ITS APPROPRIATE FORMULA" "(C)SEE AN EXPLANATION OF THE FORMULA" "(D)TRY AN EASY QUEL(28000DP::"TAP RETURN KEY TO PROCEED WHEN READY";A$LR:tU"PLEASE TYPE IN YOUR NAME ";NAME$Z::"OK "NAME$" ,IS THERE A PRINTER ATTACHED"\"AND WORKING?(Y/N) ";DD$_DD$(DD$,1)`d" POTENTIAL ENERGY"# x"                            ST ANSWER THE QUESTIONS ON"H"THE MIMEO SHEET THAT'S BEEN GIVEN YOU"w"ABOUT CONSTRUCTING GRAPHS OF THIS DATA."" HAVE FUN WITH THE ANALYSIS!!"Z"X IS TO BE ";XGX3X(X)ĺ"HEY! IT'S EITHER 1,2,OR 3!":740Me "((RETURN))";ZZ$:v4(4);"PR#1"9(9);"80N">(9);"I"C(27)(56):(29)H\(4);"PR#0"f"DATA IS ALL COPIED,RIGHT?!":800"NOW YOU MUIZE IS TO BE ";N0P0:180'X900R"PLEASE SELECT ONE OF THESE CHOICES:"y" 1.REMOVE ANY DIE SHOWING A 1 ."" 2.REMOVE ANY DIE SHOWING A 1 OR A 4."" 3.REMOVE ANY DIE SHOWING AN EVEN NUMBER":"PLEASE TYPE IN YOUR CHOICE. ";MPLE SIZE,PLEASE "; N# P0, 180U "DID YOU GET A COPY OF DATA?!":800} :"THIS TIME AROUND,WHY NOT USE A" "DIFFERENT CHOICE OF X,BUT KEEP THE SAME" "SAMPLE SIZE YOU USED IN EITHER RUN1 OR 2." 800 !700&:"SAMPLE S ^:"IN THIS RUN N WAS "G" AND X WAS "X2 `860? cD2500L hD3900y r:"BE SURE TO GET A COPY OF THIS DATA." 800  "WE SUGGEST THIS TIME YOU CHANGE SAMPLE" "SIZE QUITE A BIT,BUT KEEP X THE SAME." 700 "NOW SELECT SA Z1N Y(6(1)1)+ X22608 X3280h X3X(X)ĺ"HEY! IT'S EITHER 1,2, OR 3":} Y6(Y6)300 290 Y3(Y3)300 290 Y2(Y2)300 "SS1 ,Z 6(P1),(NS),S @NNS:PP1:S0 J225)0 :"IT TAKES TIME TO COUNT ALL THESE DICE!!"^ "PLEASE BE PATIENT THE FIRST FEW ROLLS."g 800m "RUN NUMBER "D PP1İ820 "NO. OF"," NO."," NO." "ROLL","LEFT","REMOVED" Z140:"-";:Z: "0",N,"0" N18350 AND WORKING?"* \"INPUT YES OR NO ";PP$A _(PP$,1)"Y"PP1i d:"HERE GOES WITH YOUR FIRST RUN!"r i700 "NOW PLEASE SELECT AN INITIAL SAMPLE" "SIZE(BETWEEN 420 AND 600)." "TYPE IN ITS VALUE HERE ";N GN:DD1 D118832"FROM TIME TO TIME WE WILL ASK YOU TO"_7"HIT THE RETURN KEYTO PROCEED.OUR CUE"<"WILL BE THE PHRASE((RETURN)) ."A"IN FACT,WHY NOT TRY IT NOW!!"F800P"THAT'S IT!!! DO IT AGAIN!!"U800 Z"IS THERE A PRINTER ATTACHED     "WANT TO DO ANOTHER TRIAL?";C$8(C$,1)"N"ī999X"WANT TO CLEAR SCREEN?";B$l(B$,1)"Y"90}COCO2:105::"BYE NOW!!": Z),(39(2D)) 365" E1,399 (AA$,1)"N"ī439J (4);"PR#1"] "TRIAL # ";RRu "RANGE=";E;" M "; "ALTITUDE =";.1(V21.96.5);" M" "ANGLE WAS ";(X1803.1416.5);"DEG "; ",MUZZLE SPEED IS ";S;" M/S" (4);"PR#0""IZON (UPTO 80 DEG) ";X) XX3.1416180> ES2(2X)9.8R E.1(10E.5)\ T0,39r ^HS(X):VS(X) f0,3938 hM1 mTT.2 rBVT5T2:CHT |D(BM.5):F(CM.5) F40ī430 VT5T20430 U1500: (F1 DONE"' K"ON THE SCREEN. HAVE FUN!!"A P"WHEN READY,TYPE GO"I UA$Z VA$"GO"ī90b X80h Zt d:CO13 iRRRR1:T0:CO "INPUT YOUR GUN'S MUZZLE VELOCITY" "(CHOOSING FROM A RANGE OF 10 TO 20 M/S)"; S "INPUT ANGLE TO HORGERS.)"3 -" FLIGHT INFORMATION IS GIVEN TO YOU"^ 2"AFTER EACH RUN,ALONG WITH CHOICE OF" 7"CLEARING SCREEN OF OLD PATH OR RE-" <"RETAINING IT.INSTRUCTOR WILL GIVE" A"YOU A SHEET WITH SEVERAL QUESTIONS" F"THAT CAN BE ANSWERED BY TRIALSA"0 "PROJECTILE TO A TARGET AT GROUND LEVEL"^ "DOWN RANGE.YOU CAN SELECT MUZZLE SPEED" "AND ANGLE OF ELEVATION.YOU'LL SEE" "THE PATH OF PROJECTILE ON SCREEN.(IT'S" #"SLIGHTLY DISTORTED SHAPE IS DUE TO HAV-" ("ING TO ROUND OFF INTE:" PROJECTILES"V:"WRITTEN BY DAVE OLNEY,LEXINGTON HS":ZZ1400:ZZ:"IS THERE A PRINTER ATTACHED AND WORKING?""TYPE EITHER Y OR N ";AA$ ZZ1400:ZZ:(18):"THANK YOU":ZZ1600:ZZ: " SUPPOSE YOU ARE DELIVERING      REES" J"WITH HORIZONTAL."V ^::"WANT TO TRY ANOTHER PROBLEM?INPUT YES OR NO.";^ hA$r r(A$,1)"Y"40dZ "NET X-COMP IS "A" UNITS"= "NET Y-COMP IS "B" UNITS."e "RESULTANT VECTOR OF YOUR SET OF " "N" VECTORS HAS A MAGNITUDE OF" ,R(A2B2):R.001(1000R.5) 6AA9090(A)D:AA.01(100AA.5) @R" UNITS AND A DIRECTION OF "AA" DEGE,THEN A COMMA,AND THEN THE"B "ANGLE TO HORIZONTAL(OR X-AXIS)"Y "OF THAT VECTOR."d Z1Nu S(Z),S(ZN)| Z Z1N PS(Z):QS(ZN):XP(3.1416Q180):YP(3.1416Q180) AXA:BYB D(1803.1416)(BA) Z ::t S(30)()2" VECTOR"97Z1300:Za<"THIS IS A PROGRAM THAT HAS APPLE"F"FIND THE RESULTANT OF A VECTOR SET."d"HOW MANY VECTORS IN YOUR SET ";NxA0:B0:D0}:"AFTER EACH QUESTION MARK INPUT" "MAGNITUD   T !!" Z) 2Z.001(1000Y.5)3 7W.001(10001Z.5)> <X,Z,WE AX_ c"((RETURN))";:ZZ$: d"CAN YOU WRITE A PROGRAM THAT WILL GO" n:"BACKWARDS?! THAT IS,THAT WILL SHOW VALUE" x:"OF V/C FOR DIFFERENT SIZES OF GAMMA? " :" TRY IUES OF GAMMA."; "HIT RETURN WHEN READY TO PROCEED":ZZ$A l " V/C GAMMA 1/GAMMA"~ X.1.99.05 Y(1X2) Z.001(1000Y.5) W.001(10001Z.5) .001(1000X),Z,W X (X.96.995.01 -Y(1X2 3"IN RELATIVISTIC THEORY,GAMMA IS VERY"`:"IMPORTANT IN DETERMINING CHANGES IN":"MASS,LENGTH,AND TIME FOR BODIES THAT":"ARE TRAVELING AT CLOSE TO SPEED OF LIGHT":"IN OUR FRAME OF REFERENCE." :" HERE ARE SOME VAL   14040XjV80TV)tV159V011603~1170<U,VCXIOZ0T3C15C120T15*C15T30<C1100T30HSC15TT"":s15)"Y-AXIS SCALE IS "SC15)"X-AXIS SCALE IS .5":PLOT POLYNOMIALX3.53.5.01$V0.YN018KXYBKKP(Y)LVVKVY`U4"INPUT COEFFICIENTS"%>IN01/HP(I)6RIB\:::xf:FIND MAX OUTPUT ON INTERVAL TO SET Y-AXIS SCALEpX3.53.5.01zV0YN01KXYKKP(Y)VVKYC1(V)970C1(V)XC120C1104 Z4Z5270M : ONLY COLOR=4 GIVES GOOD PLOT FOR TYPES 1,2,3,AND 6Y 4:250j Z4Z5270s 250 : SOME GOOD POLY ARE : 2X^3+3X^2-12X : 3X^4+4X^3 :SUBROUTINE FOR TYPE 6 4:"INPUT DEGREE":"" N *P(N)A(X):U14020X:V8015Y- V159V05606 &600? 0U,VW :XE1XE1600c DXX.05l N530s XX b:J COUNTS NUMBER OF FUNCTIONS OF ONE TYPE PLOTTED ON SAME AXES lJJ1 vJ2670 J3690 2 700 1 700  rY515915 |138,Y142,Y& Y6 X027920E X,78X,82L X] Z4Z5460j Z6790v 4:470} 5 Z4Z5500 Q5:R5:S.01 520 S.01:Q7:R7 :PLOT FUNCTIONS DEFINED BY TYPES 1,2 OR 3 XQRS Y4Z52708 "":"INPUT PARAMETERS":D,E,F:J1520A 280r "INPUT PARAMETERS":"":D,E,F,G:J1520x  "3 ,279,159 662454: BACKGROUND COLOR @:DRAW AXES J1 T140,0140,159 ^0,80279,80 h:DRAW SCALE ON AXES"6) POLYNOMIAL OF DEGREE N"= xZ:Z150,170,190,210,230,280E 10\ :DEFINE FUNCTIONSs A(W)D(WE)2F| 240 A(W)D(WE)3F 240 A(W)D(WE)F 240 A(W)D(EWF)G 240 A(W)D(EWF)G ::ZP ::::%::::::::E"":""\(""2"WHICH OF THE FUNCTIONS DO YOU WANT PLOTTED?"<"1) A(X+B)^2+C"F"2) A(X+B)^3+C"P"3) AIX+BI+C"Z"4) ACOS(BX+C)+D"d"5) ASIN(BX+C)+D" n     PRINTER,IF IT'S ON.)"B0 :"NOW YOU CAN DO MORE TRIALS,CHANGING"l: :"ANY FACTORS YOU WISH.TO AID YOU,"D :"IF YOUR RESPONSE IS ";::"NO";::" ,SIMPLY TAP THE"N :"THE RETURN KEY TO CONTINUE."X 9900: "NOW A WARNING....."& :"YOERIAL AS A THIN ROD MADE OF"I"ALUMINUM,COPPER,STEEL,BRASS,OR GLASS."O | "YOU CAN ALSO CHOOSE AN UNKNOWN ,WHICH" "WILL HAVE A CODE NUMBER GIVEN IT." ::9900 :"AFTER YOUR SELECTION,YOU'LL SEE RESULTS"& :"IN A TABLE (AND ON :(10))"NOW TO WORK":ZZ1600:ZZ:Y"AS AN EXPERIMENTER,YOU CAN CHOOSE THESE:"" 1. ORIGINAL TEMP (IN DEG C)"" 2. FINAL TEMP"" 3. ORIGINAL LENGTH (IN METERS)"" 4. ORIGINAL DIAMETER (IN MILLIMETERS)"" 5. MAT SOLID WIRES"6r:"EXPAND UPON HEATING OR COOLING."f|::"FIRST,OUR PROMPT SIGNAL TO CLEAR THE":"SCREEN OR PROCEED WILL BE THIS...":" ((RETURN))":"TRY IT NOW!!":9900:" IT WORKED !!"ZZ1600:ZZ(15);9);TI(N);12);TF(N);19);D(N)22);L(N);25);FL(N);33);DL(N)DW[@*****INTRODUCTIONJ" ";::"LINEAR EXPANSION":T:"IN THIS WHAT-IF LABORATORY SIMULATION"^:"YOU'LL BE ABLE TO EXPLORE THE FACTORS" h:"THAT AFFECT THE AMOUNT-------------------------" :*****USED ALL TRIALSe"SORRY,YOU'VE USED UP ALL 12 TRIALS.""TO GET MORE,YOU'LL HAVE TO START A""NEW RUN."99009000:*****JUMP TO FINAL MESSAGEp*****PRINT VALUES FOR TRIAL>N;"";K$(N)ON PRINTER(4);"PR#1")(9);"I"35099C(9);"80N"Id*****TURN OFF PRINTERu(4);"PR#0"{OP*****TABLE HEADINGSZ" NAME ORIG FINAL D ORIG FINAL CHANGE"d" TEMP TEMP L L LENGTH"n"----------F(N)TF(1):3400C "INPUT NEW FINAL TEMP(-50 TO 500 DEG) ";TF(N)MH 1000Sh*****ALGORITHMSDL(N)(TF(N)TI(N))L(N)K(N)1E6hFL(N)L(N)DL(N)DL(N).00001(100000DL(N).5)0FL(N).0001(10000FL(N).5) *****TURN Y/N) ";Z$+& (Z$,1)"Y"D(N)D(1):3200Z0 "INPUT NEW DIAMETER DESIRED(IN MM) ";D(N) "WANT NEW INITIAL TEMP?(Y/N) ";Z$ (Z$,1)"Y"TI(N)TI(1):3300 "INPUT NEW INIT TEMP ";TI(N) "WANT NEW FINAL TEMP?(Y/N) ";Z$ (Z$,1)"Y"T TO 25 DEG) ";TI(1)G "ORIGINAL FINAL TEMP(-50 TO 500 DEG) ";TF(1)Q 1100W 3r *****MAKE NEW CHOICES "WANT NEW LENGTH?(Y/N) ";Z$ (Z$,1)"Y"L(N)L(1):3100 "INPUT NEW LENGTH DESIRED(IN METERS) ";L(N)  "WANT NEW DIAMETER?("UN"(CODE(N)):1999J "SORRY,NOT ONE OF OUR CHOICES.TRY AGAIN";:1100P w *****USER SELECTS ORIGINAL VALUES "TRIAL#1 VALUES" "ORIGINAL LENGTH(1 TO 5 M) ";L(1) "ORIGINAL DIAMETER(.1 TO 5 MM) ";D(1) "ORIGINAL INITIAL TEMP(10,1)* `N$"A"K(N)24:K$(N)"ALUM":1999R jN$"B"K(N)19:K$(N)"BRASS":1999{ tN$"C"K(N)14:K$(N)"COPPER":1999 ~N$"G"K(N)5:K$(N)"GLASS":1999 N$"S"K(N)10.5:K$(N)"STEEL":1999 N$"U"K(N)(15(1)6):CODE(N)5K(N):K$(N)UIT TRIALS ";CC$) (CC$,1)"Y"ī90004 :300T *****USER SELECTS MATERIALw "WANT NEW MATERIAL?(Y/N) ";Z$ (Z$,1)"Y"K$(N)K$(N1):K(N)K(N1):1999 L"CHOOSE COPPER,ALUMINUM,BRASS,STEEL" Q"GLASS,OR UNKNOWN. "; VNA$:N$(NA$N1 9900: 2000# 40005 BB$"Y"225? 5000I (12)S 5200c 6000:37,0p 35,11: 5100:9900: ,NN1 6N10ī5300 ^3000:4000 c(14N) hBB$"Y"380 r5000 |6000 5100:(1) :"WANT TO Q35,24:?dK(12):K$(12):L(12):D(12):TI(12):TF(12)SnDL(12):FL(12)yx"DO YOU NEED INSTRUCTIONS?(Y/N)"DD$:(DD$,1)"N"1808000"IS THERE A PRINTER UP AND WORKING?""PLEASE INPUT Y OR N ";BB$BB$(BB$,1)            SORRY!YOU'VE NOT YET DISCOVERED SNELL'S LAW!"L"BACK TO THE BEGINNING!!"r"HIT RETURN KEY TO PROCEED.";AA$:"PROGRAM'S OVER!!""TO DO A NEW RUN(AND GET DIFFERENT"" UNKNOWN!),RUN IT AGAIN. BYE NOW"0 K ";II31303X::"THE MOMENT OF TRUTH!!"\]"TO THE NEAREST TENTH,YOU WILL NOW"b"INPUT HERE YOUR VALUE FOR INDEX OF UNKNOWN ";ANSlANSZZ650v"CONGRATULATIONS!!YOU'VE DONE WELL""HIT RETURN KEY TO PROCEED.";AA$:900-"J2490+:"EXPT 3 UNKNOWN CHEMICAL"Y"YOU WILL REPEAT EXPT 2,EXCEPT THAT FOR""UNKNOWN MEDIUM,INPUT INDEX AS 10"J2:118"IF YOU WANT TO PREDICT INDEX NOW,CHOOSE""EXPT 4. OR YOU CAN REPEAT #3""INPUT EITHER 3 OR 4 HERE 1 "ANGLE OF REFRACTION IS "R" DEGREES"Y "IN GOING FROM "A$(M)" INTO "A$(N)b 185 "SORRY!LIGHT DOESN'T GO INTO NEW MEDIUM" J2490 :::"WANT TO DO ANOTHER EXAMPLE WITH KNOWNS?" "INPUT Y OR N ";D$ D$"Y"118"ANGLE TO NORMAL OF INCIDENT RAY ";XI W(X3.14159180):VZWYX V1.0180h U(1V2) M(Z64.9):N(Y64.9) Z1Z1.5Z1.33Z1.66M2:165 Y1Y1.5Y1.33Y1.66N2 T(VU):ST1803.14159:R(S.5)$(4)"GLASS":A$(5)"CALCITE"3 }ZZ.1(6(1)12)Y ~ZZ1ZZ1.33ZZ1.5ZZ1.66ī125c FF1u "TRIAL NO";F "ENTER INDEX OF INCIDENT MEDIUM ";Z Z10140 ZZZ "ENTER INDEX OF REFRACTIVE MEDIUM ";Y Y10148 YZZ( TURN KEY WHEN READY TO GO ON";AA$D d:"EXPT 2 KNOWN CHEMICALS"m i"DATA";15);"CHEMICAL";32);"INDEX" n"","AIR","1.0" p" ","GLASS","1.5" r" ","WATER","1.33" t" ","CALCITE","1.66" v xA$(1)"AIR":A$(2)"UNKNOWN":A$(3)"WATER":A"DO YOU WISH TO DO EXPT 1,2,OR 3? ";K8 K20,100,400V "EXPT 1 A RAY DIAGRAM"v :" AIR(N=1.0)" D16 2D);"*" #D ("----------------------" -20);"PLASTIC (N=1.5)" 2E15 7E15);"*" <E! P"HIT REA$(5):;"HI THERE!! WELCOME TO THIS STUDY INTO"j"THE LAW OF REFRACTION OF LIGHT WAVES.":"IS THERE A PRINTER ATTACHED AND WORKING PLEASE TYPE Y OR N";KK$(KK$,1)"N"10(4);"PR#1":(29)(9);"80N":(9);"I"& !! ! ! ! ! !!!X,X3Y  ,Y,Y3X3( 1ZZ1. 6Z "YOU'VE MEASURED THE TIME;NOW MEASURE" "DISTANCE WITH RULER START TO FINISH." "IF NEEDED,LOCATE HALFWAY POINT TOO."  10 200 160 300* N20190< R(8(1)1)N I1200R:IW 130b 32,31 I1100:SOUND(16336):I 500 " "; "WANT TO DO ANOTHER TRIAL?Y OR N";A$ : (A$,1)"Y"50 "HAVE A NICE DAY!!" ȹ2FX0:Y0:N0:Z1EK"A BUZZER WILL START AND END MOVES."qP"TIMING STARTS JUST AFTER YOU HIT THE"U"RETURN KEY.GET READY!!";B$dn6sI150:SOUND(16336):Ix0,0}Z1NN1X3Z2:Y3Z2 N2(N2)15"" "