' +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- ( q @ Ϡ@跻~!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`0& X180:Y150:XI200:YI40D& 65J1,136:65J1,144:65130,156b& 330:370: MIRROR + AXISk& 350~& 343:380:360& X1,G8X1,Y1X1C8,Y1C8X1C8,Y1C8X1,Y1& 80X1T,H8&" X1,Y1X1H5,Y1&( KEY(KB):SB,Z'2 NXX1:KEYG1KEYG2KX MIRROR K% XC180:G6110:F3204:F4230:M21.533:A.005:DX4:J150:H9193W% M3045c% :W:Zk% TH% M$"< MOVE OBJECT LEFT":CH0:CV21:10% M$"> MOVE OBJECT RIGHT":10% M$"Q QUIT":10% M$"CONVEX MIRROR":CV0:CH20:10& 400KEYG0KEYG9NXX1DX(X1H1)5$RNXX1İ410:2110S$W0:65212,16813(X1C3){$\Z:451:430:425:(YIYB)J1İ445$aX1,G8X1,Y1X1C8,Y1C8X1C8,Y1C8X1,Y1$b80X1T,Y1H1$fX1NX:TH$pZ1Z1W:Z1H1Z1Z:2080$z2090 % CONVE00:410: MIRROR + AXISF#*X1,G8X1,Y1X1C8,Y1C8X1C8,Y1C8X1,Y1Y#,80X1T,Y1H1l#4420:430:450#5(YIYB)J1İ440#665212,16813(X1C3)#>KEY(KB):SB,Z#@NXX1:KEYG1KEYG2KEYH7NXX1DX(X1G0)#CKEYG315000$HKEYC9Y150:DX3.2:M5037:A.005'":W:Z/"THV"M$"CONCAVE MIRROR":CV0:CH12:10"M$"< MOVE OBJECT LEFT":CH0:CV21:10"M$"> MOVE OBJECT RIGHT":10"M$"Q QUIT":10"M$"REAL":CH32:CV22.6:10:M$"VIRTUAL":CH32:CV21:10# 4ONG FOR BIG OBJECTS CLOSE TO THE MIRROR. NOTICE THE CONDITIONS THAT MAKE THE MOST ERROR"!"BETWEEN THE CALCULATED IMAGE AND THE RAY DIAGRAM."!::"PRESS RETURN TO SEE THE PICTURE. ";:A$! CONCAVE MIRROR "XC180:J150:M21.533:X130:1140 l CONCAVE MIRROR l v::"YOU WILL SEE RAY DIAGRAMS FOR AN OBJECT IN FRONT OF A CONCAVE MIRROR." :"THE IMAGE POSITION IS CALCULATED FROM THE LENS EQUATION." :" 1 / F = 1 / D I + 1 / D O"\!:"THIS EQUATION IS SLIGHTLY WR1:KEYG1KEYG2KEYH7NXX1DX(X1G4):KEYG315000eKEYC9KEYG0KEYG9NXX1DX(X1C5)zNXX1İ40:1200Z:106:90:48:53:X170İ62X1124İ72300X1NX:THZ1Z1W:Z1H1Z1Z:1110: REPAIR LENS AND AXIS  #QM$"CONVEX LENS":CH15:CV0:10-R4000AV80: DRAW AXISV`40:CONVEX LENSkt90:DRAW OBJECT|~43: RAY 150: RAY 2X170İ60: RAY 3X1124İ70100: IMAGE300: PRINT TYPE OF IMAGEKEY(KB):SB,Z(NXX25002A$"4"1900&8A$"2"3000>BA$"1"ĺ"":1030_K CONVEX LENS MAIN CONTROL tL:3:1:0:X165MX6279:Y6155:X477:Y42:80:40NM$"< MOVE OBJECT LEFT":CH0:CV21:10OM$"> MOVE OBJECT RIGHT":10PM$"Q QUIT":10640:C7270>+C84:C9188:G0172:G1190:G2174:G3209:G4131,X477:Y4T:G7275:TH3:G879:G9136:H0144:H18:H2139:H3141:H492:H512:H6255:H7149:H884-KB16384:SB16368.16368,0:A$:A$:A$"5"Č1002:(13);(4);"RUN MENU"0A$"3"TO USE A CONCAVE LENS."B&" 3 TO USE A CONVEX MIRROR."n'" 4 TO USE A CONCAVE MIRROR."(" 5 TO END "; *Z0:W1:T2:XA140:C1278:C020:F1100:F2180:C260:YB80:C3130:C430:C55:DX2:Y150:X6279:Y6155:M234:C LIGHT RAYSFORM AN IMAGE."f:"YOU WILL GET TO MOVE AN OBJECT AROUND INFRONT OF A LENS OR MIRROR." :"THE COMPUTER WILL DRAW RAY DIAGRAMS AND SHOW WHAT TYPE OF IMAGE IS FORMED."$::"PRESS 1 TO USE A CONVEX LENS."%" 2 E ARROW (13);(4);"PR#0"D::7:12:"OPTICS EXPERIMENT"x20:24:"COPYRIGHT 1981":24:"DR. MARK CROSS"15000I12222:I63999:SET UP START OF SHAPE TABLE APPENDED TO THIS PROGRAM":2:"THIS EXPERIMENT SHOWS YOU HOW3ıXX8C7TH:X,YI:X:Q(X1C3)H1ı: GET IMAGE FOR CONCAVE MIRRORnXIXCJ1(XCX1)(C3X1)YIYB(YBY1)(XCXI)(XCX1)YJYIC8H1(YIYB)XIC8XIG7YIC8ıXI,YB1XI,YIXIC8,YJXIC8,YJXI,YI:: DRAW THE IMAG%XXCX3TH:X,YB(XXC)M0:X:Y CONCAVE MIRROR: IN PARALLEL, OUT THROUGHT F }X1W,Y1176,Y1C5,160:X1C3ıYY1THTH:176(Y1Y)M2,Y:Y: CONCAVE MIRROR RAY IN THROUGH F X8XCA(YIYB)TX1,Y1X8W,YIW,YI:X1C47,122128,70231,10:3:940010080:M$"WHAT IS YOUR VALUE FOR B? (INTERCEPT)":10:CH30:CVCV1:16000:A(Z$):A070010080:M$"THE CORRECT VALUE FOR B IS ZERO!":10:10060:71010080:M$"TERRIFIC, B IS CERTAINLY ZERO.":10:10060T:CVCV1:10:A$%l(A$,1)"N"640.v29010080:M$"WE'LL PLOT THE DATA. YOU WRITE THE":10:CVCV1:M$"EQUATION...":10:CVCV1:1006010070:9200:9600:9400CV19:CH0M$"AS A HELP TO YOU, WE'LL DRAW THE LINE.":10:100601:M$" M = 4.8 / 10 = 0.48"5P10:10060:10080^XM$"SO THE EQUATION OF THE LINE IS:"nY10:CVCV1ZM$" Y = 0.48 X + 5.0"[10:10060b10080:M$"YOU'LL DO THE NEXT ONE ON YOUR OWN.":10:M$"DO YOU WANT TO REVIEW FIRST (Y/N)?: "0205,100:("1")30140,91:("0")30147,91qH60,5860,22:M$"4.8":VVCV:HHCH:CH8.9:CV4.5:10:CVVV:CHHHIM$"VALUE? ":10:CVCV1:CH8:16000:A(Z$)JM$"NO, THE SLOPE IS:"KA0.48M$"RIGHT! THE SLOPE IS:"N10080:10:CVCV1O1:M$" Y = (12.8 - 8.0) = 4.8":10=4X41:Y174:9000H610060`:10080:CVCV2:581D10080:M$"YES! THE VALUE IS APPROXIMATELY 4.8.":10:CVCV1EM$"NOW FIND THE SLOPE: Y / X":10:CVCV1FX139:Y174:9000:X174:9000-G107,10IS":10:CVCV1:M$"AND FIND Y.":10:CVCV2J X68:Y189:9000:10060m5:48,59105,59:47,21204,2110080:M$"WHAT'S THE VALUE? ":10:CVCV1:CH19:16000:A(Z$)&A4.5A5580010080:M$"NOPE! YOU SHOULD SEE THAT:":10(2CVCV-66 $$o6&66M!$?R-6? &->6&R-6>$-36R-.-?' 6e6- $$6 $6 tb$$ תܻe06'----ܻe eDDeEE$$666M- ?)3-?--66&66- $$$66 $$666 $$$ H& X6&--.-%)266-)566>' --666%$$,666%$$,666R-? -666-e?-2-I166>?d-->?6-% 6o6- >? 8'666M!?5-I6666M )66d=$)خ-?I--??b-)6o?$$5766M! I166?666M 666--.66M!$d 666n $ $$)66?$$-?066)6#.>$-6 66n!1>6 5 X'< = 2- ", $'5o M.$ $  6I66b1 ?.+-2--I)66?$$ >6-b-.-%b-o2?I.e 7&--.-6? 6- ?--6)?,:(4);"RUN MENU"Y,Z9(121)256(122):Z9Z973:232,Z9(Z9256)256:233,Z9256:6[ +38=BJU]gr~ +5AMU^jq~$7BKS^irCH8:CVCV.5:M$"ENLARGED REDUCED":101++:::5:"DO YOU WANT TO TRY ANOTHER MIRROR OR LENS? PRESS Y OR N. "+:16368,0+:KEY(16384):KEY12815002+:16368,0:KEY128("Y")1060+:::2:"END - LOADING MENU"+:216,0* KEYC9KEYG0KEYG9NXX1DX(X1C5)C* NXX1İ120:80:3200b* Z:208:90:148:150:165p* X1NX:TH* COUNTCOUNTW(X1C3):COUNTH1COUNTZ:3110* 3140*CH8:CV17:M$"VIRTUAL REAL":10*CH8:M$"ERECT INVERTED":10++15:CV0:10)" 4000+)# XI120:YI55:300@)& 80: DRAW AXISW)0 120:CONCAVE LENSp)D 90: DRAW OBJECT )N 143: RAY 1)S 150: RAY 2)b 160)l 200) KEY(KB):SB,Z) NXX1:KEYG1KEYG2KEYH7NXX1DX(X1G4)) KEYG315000)(n 2590( CONCAVE LENS 5( CONTROL SECTION ^( X6207:Y6Z:X4101:Y479:G4130:DX4s( :3:1:0:X165( 80:120( M$"< MOVE OBJECT LEFT":CH0:CV21:10( M$"> MOVE OBJECT RIGHT":10( M$"Q QUIT":10 )! M$"CONCAVE LENS":CHEYH7NXX1DX(X1H7)('7 KEYG315000S'< KEYC9KEYG0KEYG9NXX1DX(X1C5)n'F NXX1İ330:370:2600'P Z:348:364:385:X1C8,Y1X1C8,Y1'Q X1,G8X1,Y1X1C8,Y1C8X1C8,Y1C8X1,Y1:80X1T,H8'Z X1NX:TH'd Z1Z1W:Z1H1Z1Z:2580?I.e 7&--.-6? 6- ?--6)?d=$)خ-?I--??b-)6o?$$5766M! I166?666M 666$7BKS^ir#.>$-6 66n!1>6 5 X'< = 2- ", $'5o M.$ $  6I66b1 ?.+-2--I)66?$$ >6-b-.-%b-o23216010?*f?(CC$)30CH71,CV8:CHCH1:CH39CVCV1:CH0J*p?16010*Z9(121)256(122):Z9Z973:232,Z9(Z9256)256:233,Z9256:6[ +38=BJU]gr~ +5AMU^jq~H1:65CH71,CV8:3:16010/)>(AA8)16010t)>AA13CVCV1:CH0:103,PP:104,QQ:Z$II$:A(Z$)::13=RETURN )>AA24LLāFF1LL:CHCH1:0:651CH7,CV8:FF:3:II$"":16010)>AA2416010)>AA2716010)H?CC$(AA):II$II$CC$*\?AA>CC$:AA(CC$):LL(II$):LLMMAA13AA8AA24ĺ"":16010:3 BELLSy(>AA3ġ:104,QQ:103,PP:15000:CONTROL C(>AA21AA32:CONTROL-U = SPACE ?(>AA8LL1II$(II$,LL1):CHCH1:0:651CH7,CV8:3:16010)>AA8LLII$"":0:CHCY279,Y:Y:3:"':::2:"END"(':I'> INPUT SUBROUTINE IN HGR2 W'>16368,0q'>II$"": INPUT STRING'>PP(103):QQ(104):MM255'>RR(121)256(122)1:103,RR(RR256)256:104,(RR256): NEW PROGRAM START FOR SPEED AT LINE 16009K(************"&&8'255:A11200:::>&B' ASK FOR b&L'M$"":CVCV1:CHC4:10&M'16368,0:A$:CHC4:CVCV1:M$" "&N'I111:X(16336):I&O'10:CVCV1:&V':3:1:0:63999:CH0:CV0:'`'CH0:CV19:0:Y150191:0,HW:M$"1":10:CHW:M$(C5("O")):10_%%M$" C":30:10:M$" I":30:10:M$" T 100":30:10%%M$" Y":30:10:CV15:CH5:M$"0":10:%':150:8%'" ***********************":%$'" GRAPHING DATA" &.':" ***********9:CH9:M$P$:10:CH12:CV8:10:CH19:CV5:10b$&%CH23:CV4:10:CH28:CV3:10:CH30:CV2:10:$%CV16:CH6:M$"0 25 50":10:CH19:M$"TIME":30:10$%CV0:CH3:M$"300":10:CV4:CH1:M$"V":10:CH0:M$" E 200":30:10'%%CCHT:10%#c$M$(C5("E")):CHT:10N#d$M$(C5("N")):CHT:M$M$" 5":10k#e$M$(C5("T")):CHT:10#h$M$"0":CH5:CV15:10:#r$#$CV13:CH10:M$P$:10:CV10:CH14:10:CV6:CH21:10:CV9:CH17:10:CV3:CH29:10#$CV1:CH31:10:/$%CV 20":10:M$"INDEPENDENT","V$30:CH16:10["^$CV0:CH4:M$"15":10:CV3:CH2:M$"D":10"_$M$(C5("E")):CHT:10: PRINT LOWER CASE 'E'"`$M$(31("P"))" 10":CHT:10"a$M$(31("E")):CH2:10:M$(31("N")):CH2:10#b$M$(31("D")):);"RUN MENU"!'#;!(#3:X5,YX3,Y4X1,Y:X,YX6,Y:W!#2:46,346,123246,123v!#1:A31188:47,A49,A:!$6:A018020:66A,12066A,122:!$3!$("Y")3052,3:("X")30252,119!$"T$CV16:CH6:M$"0 10 8:N$;", THAT'S ABOUT ALL THE"::"MEMORY WE HAVE LEFT. IF YOU FEEL YOU": *"WOULD LIKE MORE HELP, SEE YOUR FRIENDLY"::"INSTRUCTOR. REMEMBER THAT HE'S HERE TO": 4"HELP YOU!":20:"SEE YOU LATER!";:10060 >::2:"END" !RD1777:::(4RIABLE IS ZERO WHEN THE INDEPENDENT":104CVCV1 M$"VARIABLE HAS A VALUE OF ZERO.":10:CVCV2:M$"IF YOU WANT TO REVIEW THIS PROGRAM,":10CVCV1M$"TYPE 1. TYPE 2 TO FINISH: ":10CVCV1:CH30:16000A(Z$):A2250L ::ATION IS:":10:CVCV16M$" V = 6.0 T + 0"E10:1006010070:CV6:M$N$", YOU SHOULD BE CAREFUL":10:CVCV1:M$"WHEN YOU LET THE Y-INTERCEPT EQUAL ZERO."10:CVCV1(M$"DECIDE FOR YOURSELF IF THE DEPENDENT":10:CVCV1:M$"VA10080:M$"WHAT IS THE SLOPE? ":10:CVCV1:CH20:16000:A(Z$):A5.9A6.274010080:M$"OUR CALCULATIONS SHOW:":10:M$" M = 150 / 25 = 6.0":CVCV1:10:10060:75010080:M$"VERY GOOD!":10:1006010080M$"SO THE FINAL EQU1#(T150:T:0:13X,11:,#2Y05.5V#<9:162Y,11Y2:0:162Y,11Y2:v#F(7):9:26,36:T11200:#P22:" TIME MARKERS SHOW THE MOTION."#Z9:14,11:Y05:162Y,11Y2::T11000:$d24:" TYPE 1 TO SEE AGAIN, 2 TO CONTND IF THE INITIAL VELOCITY IS":r""12 METERS/SECOND?":::"COPY THE PROBLEM. THEN WE'LL LOOK AT IT."::10050"::9000:3:X515:12,36X::9:13,11" 22:" PRESS TO KICK THE BALL.";A$":T1800::(7)#X02:9:13X,1"IT'S A PRETTY BIG CANNON TO SHOOT THAT"::"HIGH.":22:10050i!:3:"HOW ABOUT ANOTHER PROBLEM?"::!"A MAN KICKS A BALL HORIZONTALLY OFF THE"::"ROOF OF A BUILDING 78.4 METERS TALL.": ""HOW FAR FROM THE BASE OF THE BUILDING"::"DOES IT LA:O " 0 = 173.2 * 173.2 - 2*9.8*Y"::" Y = 173.2 * 173.2 /(19.6)": "AND,":9::" Y = 1530.5 METERS "::: "IT'S A BIG CANNON!":::"TYPE 1 TO REVIEW, 2 TO CONTINUE: ";A:A1910 1240>!:10:"EXCELLENT WORK, ";Z$;"!"::ION HAS NO EFFECT ON HOW":j"HIGH IT GOES.":::"INPUT YOUR MAX. HEIGHT: ";A::A1530A15311230:4:(7):"SORRY. HERE'S THE CORRECT SOLUTION:":"AT MAXIMUM HEIGHT, VY = 0. SO,":" 2 2" " VY = VY (0) - 2 G Y"REVIEW THIS":Zt"PROBLEM SOLUTION AGAIN, TYPE 1."::"TYPE 2 TO CONTINUE: ";A:A1910~::"AS A CONTINUATION OF THIS PROBLEM, FIND"::"THE MAXIMUM HEIGHT OF THE SHELL."::10050:3:"HINT: THE FACT THAT THE SHELL MOVES IN"::"THE X DIRECT = 173.2/4.9 = 35.35 SEC":::lB"* NOW YOU CALCULATE THE RANGE."::" INPUT YOUR ANSWER (NO UNITS):";AL:5:A35351120V"GOOD!";`10::"RANGE = V(X)*T = 3535 METERS":::j"THAT'S NOT SO BAD, IS IT?"::::"IF YOU WOULD LIKE TO ";:10050):2:"USE THIS EQUATION:"M" 2z" Y = VY(0) T - (1/2) G T"::10050$:"THEN,":" 0 = 173.2*T - 1/2*9.8*T*T":."AND":" -173.2*T = -1/2*9.8*T*T"::100508:"FINALLY,"::6::"T)Y = V(0)*SIN(60) = 173.2 M/S":::{"NOW USE THE VALUE OF V(0)Y AND THE"::"EQUATIONS OF MOTION FOR GRAVITATIONAL":"ACCELERATION TO FIND THE TIME OF FLIGHT.": :"REMEMBER THAT THE SHELL HITS THE GROUND,":"SO: Y = Y(0) = 0 METERS ::A100970"GOOD!";S10::"V(0)X = V(0)*COS(60) = 100 M/S":::10050:3:"REMEMBER THAT THIS IS THE VALUE OF THE"::"CONSTANT HORIZONTAL VELOCITY."::"INPUT YOUR VALUE FOR V(0)Y: ";A::A173.21010"YES!";$9::"V(0X"VELOCITY OF 200 M/S AT AN ANGLE OF"::"60 DEGREES ABOVE HORIZONTAL. FIND THE":"RANGE OF THE SHELL. ";:10050::"COPY THE PROBLEM. THEN TRY TO FIND THE"::"X & Y COMPONENTS OF V(0)."::"INPUT YOUR ANSWER FOR V(0)X: ";A:Wz"> THE STARTING TIME IS T(0) = 0."::"> THE ANGLE (THETA) IS MEASURED FROM ":" THE X-AXIS.":::"COPY THESE CONVENTIONS IF YOU NEED TO."::"THEN, ";:10050:3:"NOW HERE'S A PROBLEM:":::"A CANNON SHELL IS FIRED WITH A MUZZLE"::2:"THE CONVENTIONS WE USE ARE THE SAME AS"::"THOSE ESTABLISHED IN PREVIOUS PROGRAMS:"::f"> UP AND RIGHT ARE POSITIVE."::"> DOWN AND LEFT ARE NEGATIVE.":p"> THE STARTING POSITION (EVEN IF ABOVE"::" THE GROUND IS X(0) = 0, Y(0) = 0." $6 tb$$ תܻe06'----ܻe eDDeEERo6- >? 8'666M!?5-I6666M )66-66 $$o6&66M!$?R-6? &->6&R-6>$-36R-.-?' 6e6- $$6 $6 tb$$ תܻe06'----ܻe eDDeEEA$-36R-.-?' 6e6- $$6--.66M!$d 666n $ $$)66?$$-?066)6$$666M- ?)3-?--66&66- $$$66 $$666 $$$ H& X6&--.-%)266-)566>' --666%$$,666%$$,666R-? -666-e?-2-I166>?d-->?6-% 6' 8!$!$%",0L"$!e (' !!%##`` e$$ "(!#L"L $ J A `L ~,PA\8 & & &m)m ݒe$*+M$(M,p ,pP!pA*11000:::(7):*2B'30:"";A$H2D'(37):30:" ":H2,3737:2,3738:!1':100:8K1'" ************************":o1$'" PROJECTILE MOTION"1.':" ************************"18'255:A11000:::(7):1B'30:"";A$1D'(37):30:" ":A**"28'255:ARAM."::Z$;", YOU SHOULD PROBABLY WORK":0l"SOME EXTRA PROBLEMS FOR PRACTICE. LOOK"::"IN YOUR TEXT OR SEE YOUR INSTRUCTOR.":0v"GOOD LUCK. BYE FOR NOW!":24:100500:D13:(7)::20:"END"0D11500:::(4);"RUN MENU"0?1(#12:- 1/2*G*T*T":U/D:"SUBSTITUTING--"::" Y = 9.192* 1.3 - 1/2* 9.8* 1.3* 1.3"::/N"SOLVING--"::7::"Y = 3.67 METERS":::/X"THAT ALL THERE IS TO IT! TYPE 1 TO"::"REVIEW, 2 TO CONTINUE: ";A:A11570*0b:6:"THAT'S THE END OF THIS PROG"::"TO GO UP AND DOWN?":H."INPUT THE ARROW'S FLIGHT TIME: ";A::.&"REMEMBER THAT X & Y MOTIONS DO NOT"::"AFFECT EACH OTHER, BUT THE FLIGHT TIME":.0"IS THE SAME. SO, T= 1.3 SECONDS."::10050/::3:"THEREFORE--"::" Y = V(0)Y*T I-"WE CAN FIND THE FLIGHT TIME--"::" T = RANGE/V(X) = 10/7.714":p-5::"T = 1.3 SECONDS":::10050-:4:"HOW DO WE FIND THE ELEVATION WHERE THE"::"ARROW HITS THE CLIFF? ";:10050::."HINT: HOW MUCH TIME DOES THE ARROW HAVE620E,::2:"HERE'S THE SOLUTION:":::" FIND V(0)X & V(0)Y--":," V(0)X = 12*COS(50) = 7.714 M/S"::" V(0)Y = 12*SIN(50) = 9.192 M/S"::10050,::"SINCE WE KNOW THE RANGE (10 METERS) AND"::"AND THE HORIZONTAL VELOCITY (7.714 M/S),".5-+7:203Y,11Y2:0:203Y,11Y2:A+(7):7:29,20x+T11400::22:" TIME MARKERS SHOW THE MOTION."+Y501:7:203Y,11Y2:+Y03:7:203Y,11Y2:,T11000::24:" TYPE 1 TO SEE AGAIN, 2 TO CONTINUE: ";A:A11"CLIFF?"::F*J"COPY THE PROBLEM AND THEN WE'LL WATCH.":24:10050t*T::9000:1:X3035:14,36X::7:5,36*^22:" PRESS TO SHOOT THE ARROW.";A$:T11200:::(7)*hY50.5*r7:203Y,11Y2:0:203Y,11Y2:+|YO3HIS TIME"::"IN REVERSE:"::x),"AN ARROW IS AIMED 50 DEGREES ABOVE THE"::"HORIZONTAL AND FIRED WITH AN INITIAL":)6"VELOCITY OF 12 M/S TOWARD A VERTICAL"::"CLIFF 10 METERS AWAY. HOW HIGH ABOVE": *@"THE GROUND DOES THE ARROW STRIKE THE":: GOING...":22:10050g(:5:"SINCE T = 4 SECONDS, WE FIND THE RANGE--"::" RANGE = V(X)*T":(" RANGE = 12 * 4"::8::"RANGE = 48 METERS"::::"TYPE 1 TO REVIEW, 2 TO CONTINUE: ";A:A11240)":3:"LET'S DO ONE MORE PROBLEM, T:(7):"SORRY, ";Z$;".":::" Y = V(0)Y*T - 1/2*G*T*T":x'"OR,"::" -78.4 = 0*T - 1/2*9.8*T*T"::10050:'"THEN,"::" T*T = 78.4/4.9":'"AND,"::5::"T = 4 SECONDS":::10050:1550(:10:"GREAT WORK, ";Z$;"!"::"KEEP OF FLIGHT--":7&" 2"g&" Y = VY(0) T - (1/2) G T"::10050&::"REMEMBER THAT Y = -78.4 METERS, SINCE"::"THE FINAL POSITION IS BELOW THE START."::&" INPUT THE FLIGHT TIME: ";A::A41540>':3"V(0)X = 12 M/S":::"BECAUSE THE BALL IS KICKED HORIZONTALLY.":i%" ENTER V(0)Y: ";A::A01460w%"SURE!";%25::"V(0)Y = 0 M/S":::"SINCE THE BALL HAS NO INITIAL VERTICAL"::"VELOCITY. ";:10050&:4:"NOW FIND THE TIMEINUE: ";A:A11280J$n::2:"NOW FOR THE SOLUTION. YOU SHOULD BE ABLE"$x"TO GET THIS ONE ON YOUR OWN.":::"START BY FINDING THE X & Y COMPONENTS":$"OF THE INITIAL VELOCITY."::" ENTER V(0)X: ";A::A121430$"OF COURSE!";C%25::|  |*U (U* `@*U*T  *U* `@*U*(U  (U* ժժժժժժժժժժժժժժժժժժժժU*  |(U ժժժժժժժժժժժժժժժժժժժժU* ժժժժժժժժժժժժժժժժժժժժ|  |(U  U* `*U*  *U* `@*U**U*  (U* ժժժժժժժժժժժժժժժժժժժժ U* ժժժժժժժժժժժժժժժժժժժժ~*U ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժT  |(U U* `(U*  *U* `P*U**U*  (U* ժժժժժժժժժժժժժժժժժժժժ * ժժժժժժժժժժժժժժժժժժժժRTT <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8]TRI.99TRI..TRIITR""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"PPPP(~ < (&20 *, **>> """ " >> ">> """>""""""< >> " +i+M$$! $%%#,p% 3Lp"% $`"H ߒ*+)hi#"H ߒ!*0+i+i䭂H# h`"%$$%H hi#`$% ߒ,*+M,PM*!0 +i+`%J) +ie *`((((E&Z9(121)256(122):Z9Z973:232,Z9(Z9256)256:233,Z9256:6[ +38=BJU]gr~ +5AMU^jq~$7BKS^ir#55:%7:HA1,KHA1,K:0)%4060t%H 44,44,44,36,36,36,36,36,36,228,219,3,51,54,54,54,54,54,54,46,46,46,0%START24576:START,1:START1,0:START2,4:START3,0%:I123:J:START3I,J:%232,0:233,96:: SET UP PENCIL SHAPE TABLEDRAWING ECCENTRICITY = "(E)4$X5:Y172:Z97:30E$BA(1EE)V$F(AABB)h$"HF,K:HF,Kp$h50$3:Y172179:0,Y279,Y::0$M$"PRESS ESCAPE FOR THE MENU.":X5:Y172:30$I0555:$3:Y172179:0,Y279,Y::0%I15F2,KHF,K2!#4 Y183:70:30004#28,255:62454H#H140:K81:A80Q#E.5#M$"ECCENTRICITY IS BETWEEN ZERO AND .999":Z97:0:X4:Y162:30#M$"INPUT ECCENTRICITY: ":Y172:X4:30#40:E.999E.999$7:Y172179:0,Y279,Y::4:M$"ҍȠߠԠŠΠӿҍŠՠĠŠ٠ƠĬŠԠ߿ҍߠΠŠĮҍԠĠϠŠΠŠߠĠĠΠŠŠ̠ҮҍϠԠ׻ΧԠԠ̠߮ҍԠΠΠӠǠ߮ҍҩĠՠŠŠߠŠҠҠٿ (13);(4);"RUN MENU"V (* ժժժժժժժժժժժժժժժժժժժժP P  Uժժժժժժժժժժժժժժժժժժժժ * ժժժժժժժժժժժժժժժժժժժժ|  |*U (U* `@*U*U*  (U* `@*U*(U  (Q* ժժժժժժժժժժժժժժժժժժժժT*  |(U ժժժժժժժժժժժժժժժժժժժժU* ժժժժժժժժժժժժժժժժժժժժŠߠԠĠǮҍŠĠŠǠߠȠϠԠŠٮҍӠߠ̠ԠŠŠƠŠҠ׮ҍҩŠӠߠϠĠŠҠŠҍŠҠŠŠ CLEARS ?S%1Ĺ38999,0!?Ĺ809,0A?rD$;"BLOAD GRAPE"W?w25000:PLAY SONGb?|36181|?37496,128:36223,128?D$;"BLOADGRAPHICS CLEARS ?S%1Ĺ38999,0?0EARS ?S%1Ĺ38999,0?S%1Ĺ38999,0?$(13)(4)+>"D$;"BLOAD AMPERSAND TONESQ>,DOWN38752:SIDE38911:SPLIT38823l>6S%(835):S%1Ĺ809,0>rD$;"BLOAD GRAPE">w25000:PLAY SONG>|36181>37496,128:36223,128>D$;"BLOADGRAPHICS CLEARS >S%1Ĺ38999,0>CRAPHICS"OPENSTUDENT NAME FILE":=(4);"WRITESTUDENT NAME FILE"X= I140:(34);NAME$(I):i=(4);"CLOSEq=0w==(222)962890=(4);"DELETE STUDENT NAME FILE": IF DISK FULL KILL PARTIAL FILE=62750=1013,76:1014,0:1015,3 >D<$62600:READ NAMES%<)ERFLAG0F<.D$;"OPEN STUDENT NAME FILE"i<8(4);"READ STUDENT NAME FILE"II$" "II$""9+>37496,128:z+>AA24LLĢCV:CH:LL1(II$):" ";::II$"":CV:CH:16010+>AA24AA2716010+H?CC$(AA):II$II$CC$+\?AA3216010+f?CC$;:16010+aP3.5:PLAY SONG+aT64:T2TT:T3TTT),aII$;" ";:CV:CH:37496,0:II$;:16010Y*>AA8LLII$"":CV:CH:" ";:CV:CH:16010k*>(AA8)16010}*>AA1316080*>(II$)1ĭ(II$,1)" "II$(II$,(II$)1):16073*>14900*>(II$)1ĭ(II$,1)" "II$(II$,(II$)1):16075+>103TO NEW LIST (Y/N)? ";Z)>16368,0:CC$:CC$"Y"CC$"y"ġ:104,QQ:103,PP:37496,128:89)>CC$"N"CC$"n"ĺ(7);:16020)>23:1:(5);" ";:CV:CH:II$;:16010)>AA21AA32(*>AA8LL1Ĺ37496,128:CV:CH:II$(II$,LL1):256)-(>CC$:A(16336)(16336)(16336)E(>LL(II$):AA(CC$)(>AA6Ģ21:CH:A$(X):AA1TIME::21:CH:" ";:CV:CH:II$;:ZFZF1:PKFLASSH%(X)PKFLASSH%(X)1:16010(>AA3AA2716030)>23:1:(18);"ESCAPE- RETURN "OFTWARE"'8'#'4::(4);"PR#0"0'9:::255['>:"LOADING THE MENU"::(4);"RUN MENU"l'H::"END"::'>16368,0:37496,0'>CH(36)1:CV(37)1:II$"":16073'>PP(103):QQ(104)(>RR(121)256(122)1:103,RR(RR256)256:104,(RR *";=&'"* VISION *";:"********************";`&$'0:0,78278,78278,10,10,78&&'5:1,0279,0279,761,761,1277,1277,773,773,1&.'13:13:(18);"C";(19);"OPYRIGHT 1984" '0'13:"C";(19);"ROSS E";(19);"DUCATIONAL S";(19);N IN THE CLASSROOM."E%>12:"TEACHERS CAN SEE AND PRINT EVERYONE'S"q%H"GRADES. JUST TYPE IN 'RUN RECORDS'."w%M%R"TYPE 'RUN MENU' TO RETURN TO THE MENU."%\::%'(5);"********************";&'"* SPELL *";:"* - A - .5FLAGS%(I)0:NENE1$&$134K$(C$)27ĺ" E R R O R":2024d$:(13);(4);"PR#0"l$F0$:"SCORE ON WORD LIST:"::" ";LST$;" ":5:" IS ";PP;" %.":$21:1:958%99:"SOUNDS CAN BE TURNED OFF WHEN USING SPELL-A-VISIO:" PRESS YOUR LETTER: ";:16368,0:C$:C$D#C$"L"C$"l"ĺ:89p#C$"R"C$"r"āI1NW:DUN%(I)0::122#C$"M"C$"m"2040#STAR0:I1NW:DUN%(I)1STAR999#:STAR100ĺ" NO MISSES !":2010$NE0:I1NW:FLAGS%(I)1:DUN%(I) R - REPEAT THE WHOLE LIST AGAIN;"Y$"N":LINES 122-126L"PP982018m"Z0:I1NW:DUN%(I)1Z111}":Z12018"" M - SPELL JUST THE MISSED WORDS."" L - LOAD A NEW LIST OF WORDS."""ESC - ESCAPE FROM THE PROGRAM. STOP."+#IGH SCORE ONLY IF THE FIRST TIME THROUGH A LIST [!16368,0::" PRESS RETURN. ":II$!(37):" "!(37)!B1:C1:D1:E1:ZF0:NENW!FIRSTFLAG0!:" YOU CAN DO ANY OF THESE THINGS:!":"?R-6? &->6&R-6>$-36R-.-?' 6e6- $$6 $6 tb$$ תܻe06'----ܻe eDDeEEZ3-?--66&66- $$$66 $$666 $$$ H& X6&--.-%)266-)566>' --666%$$,666%$$,666R-? -666-e?-2-I166>?d-->?6-% 6o6- >? 8'666M!?5-I6666M )66-66 $$o6&66M!$I--??b-)6o?$$5766M! I166?666M 666--.66M!$d 666n $ $$)66?$$-?066)6$$666M- ?).>$-6 66n!1>6 5 X'< = 2- ", $'5o M.$ $  6I66b1 ?.+-2--I)66?$$ >6-b-.-%b-o2?I.e 7&--.-6? 6- ?--6)?d=$)خ-? @p | k e b 珩 X ZɌDE@͌`5,- `ƌ *U٩ƌ UL*L MAY JESUS CHRIST BE PRAIE S% %$z6{7 `LZLbLjL```}~```$) Ҍ o$Œ$ L` ͔ Ҍ o$'$L`Eɔ LБ L֑ ʌƌˌʌ.ˌ Ҍ oƌƌ$L%L$L%$&$$L%i %%$L$nj ?`ʌiʌˌiˌ LK ͔ Ҍ0 o$'$L`xɌx7w6 'ŒČ`76 Ɍ% %`Ì%$ %% ^`ɍ$Œ$LÌČ$ $L% %%$L$nj ?`0%%% Ҍ B%`%%% Ҍ k%`vw` J$)$%)%EɇLɒ ?`Ɇ ) ?`Ɍ  z ?`nj nj Eɍ$Ō Ō$% %$Lt`ɑ I ?`ɗ I ?`% %EɎ!w ?`ɉvή ~ ?`Ɉ$ ͔ $ L?əLZv0w. Lʌ Ҍv0 Bw ?` kvL摭nj nj Eɍ L0 ʌ Ҍ o y%$0E8LAE8``EjLVjMje `e A` ҌIe `H%h%H$h$`Ʌ ӓ ?`Ɍ z ?`Ɇ ͔ )L?Ɉ$ ͔ $ L?L JEɇ ?`Ɍ % z ?`ɒ ͔ L?Ʌ ӓ ?AMPERSAND TONES"2(13)(4)"BLOADGRAPE,A31744"U|36181:36223,128:37496,128:7CLOSE pP0::"THERE SEEMS TO BE AN ERROR.":"TYPE 'RUN' TO TRY AGAIN.":aD$;"PR#0":r"D$;"PR#1":D";A$:tI2140:I20:21KyA$NAME$(I):(A$)17A$(A$,17):FLAG10[~I;" ";A$:21:1:FLAG1ĺ"LONG NAMES HAVE BEEN CUT OFF."HD$;"OPEN STUDENT NAME FILE"RD$;"WRITE STUDENT NAME FILE"\I140:(34);NAME$(I):fD$;""ERROR":6125(:"I'M DOING IT NOW."GA$"":I150:A$A$(1):gD$;"OPEN PERCENT FILE,L55" D$;"WRITE PERCENT FILE,R";NA$;:D$;"CLOSE":6000`FLAG0:I120:I:1:I10ĺ" ";eA$NAME$(I):(A$)16A$(A$,16):FLAG10jI;" O BIG":I11234:I:6000]:"GRADES FOR NUMBER ";N;" - ";NAME$(N):"WILL BE DESTROYED."c:"LAST CHANCE: DO YOU REALLY WANT TO DO IT (Y/N) ? ";:16368,0I(16384):I1286130A$(I128):A$:A$"N"6000 A$"Y"ĺ(7);(37)1:" "K 30000: GET THE SCORE :"IT TOOK ";NCND;" TRIES TO DO ";NA;" WORDS." :" S C O R E = ";PP" PERCENT." I1NW:FLAGS%(I).5DUN%(I)0 0!FIRSTFLAG.5İ51000:2000: CHECK FOR NEW HEID`͌i ͌`ILC$Ì%nj`@``⏭0 L`ȼ~pd^TKG?82/)%#Լvj^ZOGC;5/,'#!|6}789 `Ì'ŒČ`Eɓ ьhh ?`ɁюKMmN쵎KiKNiNα̴ЮmŒiαβ`L 4-14-81 !!""##( (!!(""(##P P!!P""P##`P0`|0͌I`͌@T`U`I0 DE` mό mЌ `123 }e `L-ьx`PRWU`LA ’ Lr ߍ [`ˌʌ.ˌȌmʌɌmˌ`$)! Ҍ0 o$Œ$ߩ L`Ì%$ ؔ%Č%L`ŒČ Ì ͌8 ŽJÎm Ҍ o$Œ$LÌČ$ $L%Č %$L$nj ?` Ҍ k`Lz Ҍ B`Ȍ`x0 Ҍ o ?`x0 ” Ҍ o ?`'@s%8ό$iPΌL%8ό$i(ΌLό$ΌЌό.Ќ͌ ̌mΌ i($$8 $$$$ $ ****$$$$$$$$$04 < <$$$$8""""**""$$$8 >> >>>>> JEɇLLnjnj Eɍ L7 >><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"><$$88<$<20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ""A"">""""""""""""">D~ P"""A>*""@@  |*((6>6>"6*">88>>>>*>><> ?:{>>>>< (&!; 0 >B~|dT,D|('4$"""! @ @@ r2"""B~BBzzB? !!//!!!!! ?BBBB~N0N0N0N99999990N0N0N$$>A]E]A>AAIAI~D3!?"bF x|$ H HHL||bB   "&$1$?$dD x~N?!; 0 `o+*{Dj*4 RVd$<AG ?!9  8 ? ga~N ? 0p`00`p0 <$|>"&$$dd?!8 9!>dfB>p0  0p;D9qDNJJND{))9o~Fd3!?$$fB~x Fb1#"#1"bF xnFd1#"#1$dDdfB~x Fb?  Frr|>"&dDd1#"#1$dDlx Fb"bF xx Db1$;"bD xx FbbF x`0 xx Dd?$  0#'0D D dd x>"&d$d3!>$$fB>` `p0  0p~rZn0? #1 ;-' ? Fb~|DDDDDDDDDD|2fL0 3&<`@||||`0 $<   `@`00`@|r""#"0xYc>Cbx~f$dd 9)3d$fB>x Dd 87(#&'0!�T$Dl~2:. ? &.: 0p~Bf$$$$>"6$dD xAc&DL~Bf4 0 `o9)SR{Dn*&4 Bf$$<?A#F ~Af3 1cALf3!??AcF 0~Af3 0p` `? 9  |Dd xaSR2? 9 9 ?"rSa_~Bf$$$$$$f~?!cBJ ~Bc!%$&&'eB~:k~BFT4>"6tT4">xb33""""313bx~f$dd$$fB~x b3q3 3bAv!?~f$dd3&�$$f~pDf"""7(#&,<8,'0"fFp~f$$$$1#""""#1$$f~~f$ddd$f~~f$dd$$fB~pFf"""(#&,?A'$#(7"fDp>Bf$dd>!33!>$$fB>p0  15.00"=":" CROSS EDUCATIONAL SOFTWARE"g," P. O. BOX 1536, RUSTON, LA 7127O"6" PHONE 318-255-8921"|:"PRESS ANY KEY TO RETURN TO THE MENU. ";16368,0:A$1050Pù1013,76:1014,0:1015,3nú(4);"BLOAD "SPELL-A-VISION (8 VOLUMES) EACH 19.95"[" SET OF ALL 8 SPELLING DISKS 150.00""BIBLE BOOKS 15.00""THE CHRISTMAS STORY 12.00""JONAH'S JOURNEYS 6.00""SUPER SAMSON 89.95"A"CREATE-A-TEST QUESTION SETS 49.95"p"GRADE REPORTER 19.95""PEACHY WRITER 24.95""DINOSAURS 15.00""AQUARIUM 25.00", 260.00":"LIGHT LAB INTERFACE KIT 60.00"i"HEAT LAB INTERFACE KIT 60.00"("SOUND LAB INTERFACE KIT 60.00"P:"PRESS ANY KEY TO SEE MORE . . . ";U16368,0:A$:2:1"CREATE-A-TEST PROGRAM TICS 20.00"O"V. 9 ATOMIC PHYSICS 30.00"~"V.10 SOLAR SYSTEM ASTRONOMY 30.00""V.11 STELLAR ASTRONOMY 30.00" "V.12 PHYSICS GEMS 35.00" "12 VOLUME PHYSICS SET 20.00"5"V. 3 MOTION 20.00"d"V. 4 CONSERVATION LAWS 20.00""V. 5 CIRCULAR MOTION 20.00""V. 6 THERMODYNAMICS 20.00""V. 7 ELECTRICITY & MAGNETISM 20.00" "V. 8 OPK8,YK3XK3,YXK3,YK3XK8,YK7XK1,YK2XK3,YK7TXK1,YK4X,Y:TY4,6:ehI1888:::1:4:"PRICE LIST- MARCH 1984":"PHYSICS SERIES:""V. 1 VECTORS & GRAPHING 15.00""V. 2 STATICS XC)68X,YXK8,YK1XK1,YK2XK3,YK4XK1,YK6XK2,YK4XK1,YK2XK2,YK1XK8,YK3XK3,YXK3,YK3XK8,YK7XK1,YK2XK3,YK7XK1,YK4X,Y4:XXX:YYY6X,YXK8,YK1XK1,YK2XK3,YK4XK1,YK6XK2,YK4XK1,YK2XK2,YK1X;" SAMPLE PROGRAMS ";(18)I23:12:" CROSS EDUCATIONAL SOFTWARE "u22:12:" "24:12:" ";20:36:"FROM"CT279Y60(10C)68:X10XX1026412:7YY60(XLLIPSE":1:D$;"RUN ELLIPSE"1 X8İ5000:1050B :D$;"PR#0"S :"END"::d T18.8495559 K00:K11:K22:K33:K44:K66:K77:K88 7:0,0:62454:0:X0TT105:Y60(X):140,76X14.6,Y76:T2(Y),3: 18:1:40)19:1:(5)RUN DINOSAUR MATCHING"K X3ĺ"LOADING DATAGRAPH":1:D$;"RUN DATAGRAPH" X4ĺ"LOADING PROJECTILES":1:D$;"RUN PROJECTILES" X5ĺ"LOADING LIGHT RAYS ":1:D$;"RUN LIGHT RAYS" X6ĺ"LOADING COMETS":1:D$;"RUN COMETS" X7ĺ"LOADING E(X128):XX48128:X1X9Ģ24:1:" PRESS A NUMBER FROM 1 TO 9.";(7);:1140a 16368,0s D$(13)(4) 22:5:110);:22:1 X1ĺ"LOADING SPELL-A-VISION":1:D$;"RUN SPELL-A-VISION" X2ĺ"LOADING DINOSAUR MATCHING GAME":1:D$;" FROM 'OPTICS'"$ e" 6. COMETS"P g" FROM 'SOLAR SYSTEM ASTRONOMY'"d j" 7. ELLIPSE" l"  FROM 'PHYSICS GEMS'" o" 8. PRICE LIST" q" 9. STOP" t22:5:"PRESS YOUR NUMBER: "; ~16368,0 X(16384):X1281155S  318-255-8921" B:36631:: L" 1. SPELL-A-VISION"] Q" 2. DINOSAUR MATCHING GAME"w V" 3. GRAPHING DATA" X" FROM 'VECTORS AND GRAPHING'" [" 4. PROJECTILES" ]" FROM 'MOTION'" `" 5. LIGHT- RAY DIAGRAMS" b" V0 HELLO/MENU FOR SPELL-A-VISION DEMO DISKBi31744:24576Rn255:50000gy:28,127:62454{(900)6710504000900,67:366311:1:200)$1:3:"SAMPLES FROM"&3:3:"CROSS EDUCATIONAL SOFTWARE" (" PHONE      FC@Gf#8x>> > ``00`0p~~? ?`00`@`08,&3 Lf2pDf"""3""""3"fDp`88 ``00`cIIc> 1$$1LfrZxL$$L "="b|`00`0p`0LDDDDL0`` `@@ EL:63,EH6T798,160:799,0:800,76:801,44:802,254?^798Er^|36181:INIT 'GRAPE'm~36223,128~37496,128:Z9(121)256(122):Z9Z973:232,Z9(Z9256)256:233,Z9256:`00  IxÃ104,134,3,134,1,133,0,170,160,1,132,2,173,48,192,136,208,4,198Ã1,240,7,202,208,246,166,0,208,239,165,3,133,1,198,2,208,241,9663999,67,71612:66,0:DESTINATION6EZ96656:EH(E256):ELE256EH @60,(232):61,(233):62,"PR#0":255:216,0*:::"END"D:5:"LOADING MENU":Y:(4);"RUN MENU"_Pò|Zù1013,76:1014,0:1015,3dÁI768833:P:I,P::nÃ201,84,208,15,32,177,0,32,248,230,138,72,32,183,0,201,44,240,3,76,201,222,32,177,0,32,248,230 HE MENU."C110:C20:IC0Q4:X(0),Y(0):I180:X(I),Y(I)::X(0),Y(0)[SB,0f0:38ICIC1:IC80ICIC81(KB)127ī150003:38XC99įT(XC50)(YC80),5:I120:930I19999:149004:::ߠƠӮҍŠĠӠŠΠŠԠ߮ҍ٠ߠӠŠ٠ҠǮҍҩŠΠߠԠӠĠΠŠΧӠȮҍҩҠŠӠĠ߮ҍɠŠϠҢǠҩȠߠӠΠҠŠŠήҍŠߠҠŠРĠŠˍҍҩŠҠΠĠŠߠҠȮҍҩŠߠ̠Š٠ŠҠծҍҠӠ   ww'x~x٠ҠӠŠߠŠŮԍӠߠӠΠٮԍΧԠԠ٠׬ߠՠ̠ҠŠҠҮԍŠħӠߠ̠͠ŠŮԍŠŠԠӠ߮ԍŠԠŠϠΠԠŠ߮ԍŠӠŠߠϠŠŠͮԍŠ٠ӠĠ٠Š߮ԍŠ̠ǠРԠŠ߮ԍԩŠĠĠӠŠΠΠŠŠ߮ԍРϠԠĠ߮ЍŠϠӠŠߠĠٮЍߠƠŠŠ͠ŠٮРԩӠǠӠΠߠҠŠӮԍΧԠԠҠĠϠ߮ԍ٠ӠӠԢЩŠҠĠϠߠҠȮЍӠΠ٠Π߮ЍŠŠӠĠ߮ЍŠߠϠȠŠȠӠΠԠĮЍŠӠˠϠߠŠЍЩȠӠΠ":13zICIC45}383~T(6(15R)4),5:;90M$"THE TAIL FADES AGAIN WHEN THE COMET IS FAR FROM THE SUN.":13ICIC80:38:TXC30,3:90:(12)" WATCH THE ORBIT FOR A WHILE AND" "THEN PRESS ANY KEY TO GET THM$" THE SUN WARMS UP A COMET NEAR THE ORBIT OF MARS. IT MELTS A LITTLE AND A TAIL DEVELOPS.":13RICIC37:R1:XCX(IC):YCY(IC)\ANGLE((60YC)(XC60))f30:T(30R)5,5:ICpM$"A COMET MOVES PAST THE SUN VERY QUICKLY.COMETS MOVE SLOWLY WHEN THEY ARE FAR FROM THE SUN. THE DOTS ARE THREE WEEKS APART."g21:1:13 R0:SIZE1:IC030:XCX(IC):YCY(IC):ANGLE((60YC)(XC60))*30:II150:II:T255,10:IC424:9:95>36035,17:36699:(12)" ";:1r JUPITER ORBITE18:M$" THE PLANETS HAVE NEARLY CIRCULAR":13~M$"ORBITS. COMETS HAVE ELLIPTICAL ORBITS.":13I1(255SP)5:IX(0),Y(0):I180:X(I),Y(I)::X(0),Y(0) 3:34:"COMET"1:25:"JUPITER"XM$" NDOW!(12)"ORBITS OF COMETS"<XC60:YC60:R2:7:40WR12:N20:50:MERCURY16:"SUN-MERCURY-VENUS-EARTH-MARS-JUPITER"R21:N30:50:VENUSR35:N35:50:EARTHR45:N555:50:XC61:50:XC60:7R156:N60:60:ARC OFY15,Y12,Y212,Y215,Y:A DRAW RANDOM DOTS TO MAKE A TAIL\RT260:JRRT:XCXC12}XRT01:DYXJ:X2XCRTXX2278X1:675I2NDY:I1I2YYCDY(2(W)W):X2,Y:24:9536035,0:36699:SET FULL SCREEN WI偁؁偁䁁ށぁ偁偁܁      z #   ĠӠ ԠŠ ԠΠŠӠ ҠǠԠР Ԡ "̮àԠŮ Š$ՠӠ2Š Ԡ Ԡ Ԡ! ̭Π9ӠԠŠŠ ԠŠŠ!ӠӠ ϠԠӠ*Ƞ)Ӡ,נ ǮϠȠĠ"|`00 ``00`cIIc> 1$$1LfrZxL$$L "="b|`00`0p     D EVAPORATES. A HALO":13HRM$"OF GAS SURROUNDS THE NUCLEUS.":13^bN.15:R50:7:20fl95xq(12)" "::vM$" SUNLIGHT PUSHES THE GAS BACK AND":13{M$"STRETCHES IT OUT INTO A TAIL.":137:"SUNLIGHT"Y2411118:0,M$"WITH DUST AND ROCK PIECES. THESE":13^2M$"FROZEN GASES ARE CALLED 'ICE' EVEN":134M$"WHEN THEY CONTAIN NO WATER MOLECULES.":13:23:94D23:1:B$:21NM$"THE SUN WARMS UP THE COMET. SOME OF":13PM$"THE ICE MELTS AN:9536035,0:366995(12)"COMET STRUCTURE"OXC100:YC60:R20:40`4:N.15:20VT16:36035,VT1:36699: SET WINDOW TOP VT:M$" A COMET IS LIKE A DIRTY SNOWBALL.":13&M$"ITS HEAD HAS A NUCLEUS OF FROZEN GASES":13-0":13#XC60:YC60:SI2:R20:30<SI1:XC5763:30:XXC60:R7:N1:5:20:3cFF1.4A40:L570:E.8:RA(1E)AN0:X(0)XCA(1E):Y(0)YCI180:ANANL(RR):CC(AN)RA(1ECC):X(I)XCRCC:Y(I)YCR(AN)FF:24 OF MARS";6cM$"IT DEVELOPS A SMALL TAIL.":13IgIC0:X(IC)333rhXC150:YC55:R9:ANGLE.8:SI.99:30zr94|(12)" AS IT COMES CLOSER TO THE SUN,"M$"THE TAIL GROWS LONGER AND THE HEAD":13M$"GETS BIGGER AND BRIGHTER. A NEW COMET IS A":JM$"FAR AWAY STARRY OBJECT.":13JMI11555:O270,50260,50263,52263,48260,50:255,66255,57257,60253,60255,57T23:94Y23:1:" " ^21:"WHEN THE COMET CROSSES THE ORBIT:20:" COPYRIGHT 1981 "J15:20:" BY DR. MARK CROSS "|23:2:" PRESS ANY KEY TO START. ":96:SP,(12)" "17:I166:K1(W),K2(W):636035,18:36699:WINDOW TOP8255,50@19:"OUR FIRST VIEW OF0),Y(80) SB16368:KB16384W B$" ":SP130 F.85:X-Y ASPECT RATIO FUDGE FACTOR 28,213:62454:BLUE SCREEN 3:7:" " 5:7:" C O M E T S " 7:7:" "14Y KEY TO GO ON. ";% `SB,0:A$K aI1001010:TI,2::(A$)3ıX b:14900d n14900 s:(13);(4);"PR#0": x63000: TURN ON HI-RES PRINTER }50000 R0:I0:X0:XC0:Y0:YC0 Z0:W1:TW2 K1279:K2128:K3191 X(8 >I1N:ANCCI:YYYCFR(AN):YY0YY120I9999:64M ?R(AN)XC,YYS @ AXCR,YC:IN11:ANCCI:YYYCFR(AN):YY0YY120I0:67 BR(AN)XC,YY C: Y ZI1(255SP)10:: ] ^I1(255SP)10: _"PRESS AN0ANGLEANGLE3.14159 '30# (4 )R2RR1.001M *Y0R:X(R2YY)F} +XCX,YCYXCX,YCY:XCX,YCYXCX,YCY: , 2 3XCR,YC:CC6.283N 4I1N:ANCCI:R(AN)XC,YCFR(AN): 5XCR,YC: < =CC6.283N:XCR,YC9 G XCSI,YCSIXCSI,YCSIXCSI,YCSIXCSI,YCSIXCSI,YCSI X(IC)102DR(X(IC)60)2(Y(IC)60)2:R1210(DR100)2400 "XC,YCXCR(ANGLE),YCR(ANGLE)F: TAIL # &XCX(IC):YCY(IC):R0:XC100ANGLE((60YC)(XC60)):XC60!COMETS BY DR. MARK CROSS3 31744:24576< 110` LL(M$):SLOW PRINT SUBROUTINExI1LL:(M$,I,1);T33LL,1:CLICK TONE::R2RR:YRR:X(R2YY)F:Y1YCY:I2NXDX2X:X1XCX IWI2:X1DX(W),Y1:::                    x~f$dd$$fB~x b3q3""#"0xYc>Cbx~f$dd 9)3d$fB>x Dd 87(#&'0!�T$Dl~2:. ? &.: 0p~Bf$$$$>"6$dD xAc&DL~Bf4 0 `o9)SR{Dn*&4 Bf$$p>Bf$dd>!33!>$$fB>p0  0p` `? 9  |Dd xaSR2? 9 9 ?"rSa_~Bf$$$$$$f~?!cBJ ~Bc!%$&&'eB~:k~BFT4>"6tT4">xb33""""313b0`x bsII3&$$'0 s|` 0PHl 3bAv!?~f$dd3&�$$f~pDf"""7(#&,<8,'0"fFp~f$$$$1#""""#1$$f~~f$ddd$f~~f$dd$$fB~pFf"""(#&,?A'$#(7"fD|x DD   dtd xx DddD 8#fFC@Gf#8x>> > ``00`0p~~? ?`00`@`08,&3 Lf2ȍƠŠΠӠϠԬՠ̠ߠԠŠͮȍȩŠŠƠŠߠĠŠΠŠŠӮȍΠŠӠŠ߬٠Ԡ̠ԠƠҠԮȍȩԠӠŠϠߠΠ¢ȠȩŠŠ٠ԠΠŠߠĠĠŠԮȍȩĠ͠ߠŠ̠ŠԠŮȍȩŠŠԠߠΠԠנˮȍ٠ԠΠŠԠߠĠĠӮȩŠĠĠĠߠҠŠŮȍŠĠŠŠŠߠӮȍԧӠРΠĠߠӠҠҠٮȍŠߠӠԠҠˠƠĠԮߠˮŠ̠ӠΠߠҠ٠ΠŠŧӠҠŮٍԍԠ٠ϠРǠӠ̠߮ōҠŠˠŠ٠٠ԠߠƠӠӮ׍ŠԠΠĠϠŠԠŠΠ߮ӍΠĠŠǠΠŠĠӍŠ ǠĠŠ͠ΠߠҮӍɠԠŠǠϠ٠ĠҠӠΠ߮ōՠĠҠǠߠϠŠԮōŠӠԠΠߠϠ̠ҠϠŮԠŠĠŠϮҍŠȠŠƠŠߠӠԠȠǠӮԍƠՠРϠߠҠӬՠ̠٠ҠԮōРΠΠҠԠŠĠŠ߮ӠٮōԠ٬נ̠ӠԠΠ߬ĠήōŠҠĠΠߠҠӠԮ̍ɠŠߠϠŠǠƠŠĠӠƠōŠӠ٠Πߠ¢ŠԠҠĠΠߠ̠ŠˠΠŠǠˮōŠ٠קӠӠŠӠĠȠŠٍ߮ߠӠŠԠנҮōŠΠĠϠߠϠŠ٧     %71C3T,84:6873,H8:68YB,H8:G CONCAVE MIRROR CENTER RAY uX0T:X3C1:M0(YBY1)(XCX1):X1C3422Y3YB(X3XC)M0:Y3H1X3XC(X3XC)(YBC8)(YBY3)Y0YB(XCX0)M0:Y0Y6X0XC75M0:Y0Y6X1,Y1XC1,YBX0,Y0:X1C3ıXI,YBWXI,YIXITH,YJXITH,YJXI,YI774XIT,H8:S DRAW CONCAVE MIRROR ~162,20: START DRAWING CONCAVE MIRRORYC0H3H1:XCA(YYB)T,Y:Y DRAW AXIS FOR CONCAVE MIRROR T,YBC1,YB:YB,YBTYB,YBT:C3,YBTC3,YBTlX1,Y1X4,YIY1,YI0mXX4H6C8:X,YI:X:Oq AXIS FOR CONVEX MIRROR prW,YBC7,YB:F4,YBTF4,YBTs71F4T,H8:68G7,H8:68269,H8:{ IMAGE FOR CONVEX M |XIXCJ1(XCX1)(F4X1)~YIYB(XIXC)(YBY1)(XCX1):YJYITH%Y3Y1(YBY1)T:X3XC(XCX1)T<\X1,Y1XC,YBX1,YBYBY1a]XXCX3TH:X,YB(XXC)M0:X:^X1,Y1185,Y1G6,0: CONVEX MIRROR RAY COMING IN PARALLEL`XW45TH:185X,J1XM:X:g CONVEX M, TOWARD F hX4F4(F4X1)(YBYI)(YBY1)THE TYPE OF IMAGE ,,654883(XIXA),136F-654883(XIXA),144h.654883((YIYB)C4),156:J DRAW CONVEX MIRROR K198,C0:Y25H2H1:XCA(YYB)T,Y:Y:V CONVEX M, THRU CENTER WM0C4(XCX1)YY3Y1:X3XCXCX1:X3C7G3,Y73XF1XAC8:X,Y7:X:: DOTTED EXTENSIONN CONCAVE LENS IMAGE nXIXAC6(XAX1)(C6XAX1)YIYB(YBY1)(XAXI)(XAX1)YJYIC8XI,G8XI,YIXIC8,YJXIC8,YJXI,YI: ARROW74XITH,H4:: LOWER CASE 'I'+ PRINT M1(X3X1):Y3H3X3X3C0:1443X1,Y1X3,Y3:b IN PARALLEL, OUT F FOR A CONCAVE LENS yX1,Y1XA,Y1X6,Y6XX4XA3:X,Y4(XX4)M2:X: IN F, OUT PARALLEL FOR A CONCAVE LENS Y7Y1(Y1YB)(XAX1)(F2X1)X1,Y1XA,Y7l74XITH,YBH5((XIXA)(XIXA)):LABEL 'I'fmXI,YKXI,YIXIC8,YJXIC8,YJXI,YI:: DRAW ARROWw DRAW CONCAVE LENS xI08:G9I,C4H0I,C3:I:H2,C4H2,C3H3,C3H3,C4} RAY THROUGH CENTER M1C4(XAX1):X3C1:X0T Y3Y180X1T,H4:Gc GET IMAGE POSITION XI, YI FOR CONVEX LENS MdxfXIXA(XAX1)C6(F1X1):XIZXIG7ıhYIYBC4(XAXI)(XAX1):YIZYIY6ıiYJYIC8((YIYB)(YIYB)):YKYB(XIXA)(XIXA)jXIDXXIG7ıkYIWYIG0ı.AXIS ( PW,YBC1,YB:220,YBT220,YBT= QF2,YBTF2,YBT] R71F1T,YB4:71F2T,YB4 SF1,YBTF1,YBT:C2,YBTC2,YB2 T2054,84:7161,84:20214,84:71221,84: Y DRAW OBJECT ARROW ZX1,G8X1,Y1X1C8,Y1C8X1C8,Y1C8X1,Y1\M2Y4:X:, ; IN THROUGH F OUT PARALLEL O <M3(YBY1)(F1X1):YAYBM3C6h >X1,Y1XA,YAC1,YA: E IN F, OUT PARALLEL WITH DOTTED EXTENSION FM3(Y1YB)(X1F1):YAYBC6M3 HX1,Y1XA,YAC1,YA JXTXAC8:X,YA:X: O DRAW ENSION IF X1 LEFT OF F1 (REAL IMAGE) Q /Y0Y1M1(X0X1):Y0WX0X0H1:47k 0X1,Y1X3,Y3:X1F1ı 1M0C4(XAX1):XX0X1TH:X,Y0M0(XX0):X: 2 IN PARALLEL, OUT THROUGH F 5X1,Y1XA,Y1X6,Y6 6X1F1ı 7XX4XATH:X,(XX4)G9,YB:142,YBXA,C4138,YBXA,C3H3,YBXA,C4H2,YBXA,C3143,YBXA,C4137,YBXA,C3142,YB| )143,YBXA,C3:142,YBXA,C3: * RAY THROUGH CENTER +M1C4(XAX1):X3C1:X0T ,Y3Y1M1(X3X1):Y3H3X3X3C0:44 -X1F148) . NO DOTTED EXT L8(Z):CHZ:CVCVW:9  CONVERT M$ TO LOWER CASE e HH$(M$,1): CHANGE M$ TO LOWER CASE L8T(M$):L9((M$,L8,W)) L964L991L9L931 !HH$HH$(L9):L8 "M$HH$: ' DRAW CONVEX LENS Z (H0,YBXA,C4G9,YB:H0,YBXA,C3(:1000: LENS EXPERIMENT COPYRIGHT 1981 BY MARK CROSS\ PRINT STRING M$ AT CH,CV m TH:L9(M$) L8WL9:L7((M$,L8,W))C4 X9CH7W:Y9CVH1 L7T14:Z:65X9,Y9:TH:15L7X9,Y9CHCHW:CH39CHZ:CVCVWL8                IN THE TWO":10:CVCV1:M$"INDEPENDENT VARIABLE POINTS IS:":10:CVCV1:M$" X = (16-6) = 10":10:X48:Y190:9000:CVCV2:1006010080:CVCV2:52210080:M$"SURE, 10 IS CORRECT.":10:CVCV1. M$"NOW RUN HORIZONTAL LINES TO THE Y-AX2 10080CM$"THE DIFFERENCE IN THE INDEPENDENT":10:CVCV1gM$"VARIABLE VALUES IS X.":10}X132:Y174:9000CVCV210060M$"WHAT'S THE VALUE? ":10:CVCV1:CH19:16000:A(Z$):A1052010080:M$"SORRY. THE DIFFERENCE FAR! "_M$M$"NOW WE NEED TO FIND THE":10:CVCV1:M$"SLOPE OF THE LINE (M).":10:1006010080:M$"TO START, CHOOSE TWO POINTS ON THE LINE":10:M$"AND DRAW VERTICAL LINES TO THE X-AXIS.":CVCV1:10:100606:106,59106,122:206,21206,121jM$"INDEPENDENT":30:10:CVCV1:CH12:M$"VARIABLE IS ZERO?":10:CVCV1:CH32:16000:(Z$)5460u10080M$"WRONG AGAIN! YOU SHOULD SEE THAT THE":10:CVCV1M$"Y-INTERCEPT IS 5.0.":10:1006010080:M$"":A4.9A5.1M$"OK SO-AXIS.":10:CVCV14M$"WHAT'S THE VALUE? ":10bCH21:CVCV1:16000:A(Z$): INPUT SUBoA546010080:M$"INCORRECT! WHAT IS THE VALUE OF THE":10:CVCV1:M$"DEPENDENT":30:10M$"VARIABLE WHEN THE ":CVCV1:CH10:10CVCV9500:10080:M$"HERE'S THE DATA. NOW WE DRAW THE":10:CVCV1:M$"BEST LINE. DON'T CONNECT THE DOTS!":10:10060W:47,83107,58240,8:TH:950010080M$"TO FIND THE Y-INTERCEPT (B), WE FIND THE":10M$"POINT WHERE THE LINE HITS THE YLINE EQUATION:"::" Y = MX + B"::" ";A$ur:"NOW LET'S LOOK AT AN EXAMPLE."::" ";A$|10070:9200:9300CV19:M$"HERE'S OUR GRAPH PAPER, READY TO GO.":10:M$"NEXT WE'LL ADD THE DATA POINTS.":CVCV1:10:10060r ";A$fT:4:"5. IF THE DATA LOOKS LINEAR, DRAW THE"::" BEST STRAIGHT LINE THROUGH THE DATA.":^" KEEP THE NUMBER OF POINTS ABOVE AND"::" BELOW THE LINE ABOUT EQUAL."::<h"6. WRITE AN EQUATION FOR THE LINE USING"::" THE STRAIGHT ENDENT & INDEPENDENT VARIABLES."::6"2. ROUND THESE VALUES UPWARD TO FIND"::" THE RANGE ON EACH AXIS OF THE GRAPH."::@"3. DRAW AND LABEL GRAPH AXES."::J"4. PLOT THE DATA. PUT A SMALL CIRCLE"::" AROUND EACH POINT."::"E":= "WILL BE DEPENDENT ON THE OTHER."::" ";A$ :"NOTE THAT THE DEPENDENT VARIABLE (Y)"::"WILL BE PLOTTED ON THE VERTICAL AXIS."::"";A$ ":::"HERE'S OUR METHOD:"$,5:"1. FIND THE LARGEST VALUES FOR THE"::" DEPIS THE BUSINESS OF":N "SCIENCE LABORATORY EXPERIMENTS."::" ";A$ :3:"WE'LL ASSUME YOU HAVE ALREADY COLLECTED"::"YOUR DATA. YOU SHOULD HAVE PAIRS OF": "DATA POINTS (SPEED VS. TIME, LENGTH"::"VS. TEMPERATURE, ETC.). ONE VARIABL:_ "THANKS! IN THIS PROGRAM, WE'LL LOOK AT"::"HOW TO PLOT LABORATORY DATA ON A GRAPH": "AND THEN WRITE AN EQUATION FOR THE"::"GRAPH. THIS PROCEDURE IS USED TO FIND": "THE FUNCTIONAL RELATIONSHIP BETWEEN TWO"::"VARIABLES--AND THIS HH$HH$(L9):L8 "M$HH$:4 d - GRAPHING DATAC hC37:C531 iZ0:W1:T2:TH3:H18:C430:CONSTANTS FOR SPEEDY EXECUTION n:(4);"PR#0" x:10000 P$(31("O")) 16368,0 ::3:"HELLO, FRIEND!"::"WHAT'S YOUR NAME? ";N$: L7TĒ0:65X9,Y9:3:15* L7X9,Y9J CHCHW:CH39CHZ:CVCVWR L8m L8(Z):CHZ:CVCVW:  CONVERT M$ TO LOWER CASE HH$(M$,W): CHANGE M$ TO LOWER CASE L7(M$):L8TL7:L9((M$,L8,W)) L964L991L9L931 !& 100) STRAIGHT LINE DATA GRAPHF WRITTEN BY STEVE KAMMb ADAPTED BY MARK CROSS MODIFIED BY W.R.JANZEN UPDATE 82OCT22 PRINT STRING M$ AT CH,CV TH:L9(M$) L8WL9:L7((M$,L8,W))C4 X9CHC3W:Y9CVH1           nj Eɍ L0 ʌ Ҍ o y%$$Œ$LÌČ$ $L% %%$L$nj ?`0%%% Ҍ B%`%%% Ҍ k%`vw` J$)$%)%EɇLɒ ?`Ɇ ) ?`Ɍ  z ? ?`Ɍ % z ?`ɒ ͔ L?Ʌ ӓ ?`ɑ I ?`ɗ I ?`% %EɎ!w ?`ɉvή ~ ?`Ɉ$ ͔ $ L?əLZv0w. Lʌ Ҍv0 Bw ?` kvL摭nj`Ì'ŒČ`Eɓ ьhh ?`Ɂь0E8LAE8``EjLVjMje `e A` ҌIe `H%h%H$h$`Ʌ ӓ ?`Ɍ z ?`Ɇ ͔ )L?Ɉ$ ͔ $ L?L JEɇ`|0͌I`͌@T`U`I0 DE`EID`͌i ͌`ILC$Ì%nj`@``⏭0 L`ȼ~pd^TKG?82/)%#Լvj^ZOGC;5/,'#!|6}789 Č Ì ͌8 ŽJÎmKMmN쵎KiKNiNα̴ЮmŒiαβ`L 4-14-81 !!""##( (!!(""(##P P!!P""P##`P0ЌLό$ΌЌό.Ќ͌ ̌mΌ i mό mЌ `123 }e `L-ьx`PRWU`LA ’ Lr ߍ [`ˌʌ.ˌȌmʌɌmˌ`$)! Ҍ0 o$Œ$ߩ L`Ì%$ ؔ%Č%L`Œ>>>> JEɇLLnjnj Eɍ L7 ʌ Ҍ o$Œ$LÌČ$ $L%Č %$L$nj ?` Ҍ k`Lz Ҍ B`Ȍ`x0 Ҍ o ?`x0 ” Ҍ o ?`'@%8ό$iPΌL%8ό$i(<$$88<$<($$8 $$$$ $ ****$$$$$$$$$04 < <$$$$8""""**""$$$8 >> >"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "0N$$>A]E]A>AAIAI~DD~ P"""A>*""@@  |*((6>6>"6*">88>>>>*>><> ?:{><AG ?!9  8 ? ga~N ?!; 0 >B~|dT,D|`0880`` `` `pp` `` `pp~BBzzB? !!//!!!!! ?BBBB~N0N0N0N99999990N0NxnFd1#"#1$dDdfB~x Fb?3!?"bF x|$ H HHL||bB   "&$1$?$dD x~N?!; 0 `o+*{Dj*4 RVd$dd x>"&d$d3!>$$fB>` `p0 0p`00`p0 <$|>"&$$dd?!8 9!>dfB>p0  0p;D9qDNJJND{))9o~Fd3!?$$fB~x Fb1#"#1"bF `00`@|r  Frr|>"&dDd1#"#1$dDlx Fb"bF xx Db1$;"bD xx FbbF x`0 xx Dd?$  0#'0D D <?A#F ~Af3 1cALf3!??AcF 0~Af3  0p~rZn0? #1 ;-' ? Fb~|DDDDDDDDDD|2fL0 3&<`@||||`0 $<   `@ŠĠߠҮȍŠŠϠߠԠŠΠҠՠȠŠǮȍ٠ĠߠΠήȍŠŠ٠ĠԠŠϠߠӠȮȍŠנĠϠߠӠŠ٠ԠҮȍîȍȩŠȠĠĠԠƠŠߠĠϠŠٮȍȩŠŠĠŠȠŠӠ߮ȍŠҠĠĠϠߠΠԠĮȍȩŠנҠĠ٠ L` ͔ Ҍ o$'$L`Eɔ LБ L֑ @p | k e b 珩 X ZɌDE@͌`5,- `ƌ *U٩ƌ UL*L MAY JESUS CHRIST BE PRAIE 6 Ɍ% %`Ì%$ %% ^`Ɍ% %$z6{7 `LZLbLjL```}~```$) Ҍ o$Œ$`nj nj Eɍ$Ō Ō$% %$Lt ʌƌˌʌ.ˌ Ҍ oƌƌ$L%L$L%$&$$L%i %%$L$nj ?`ʌiʌˌiˌ LK ͔ Ҍ0 o$'$L`xɌx7w6 'ŒČ`7 z`@@@``@`pppp``xx||||xx``|~~~???~~~|`???@  ( $@h`+'bH"(@ "Vu z`jy vRumWuSuihykyjyiyȌjyeydyfyiy Xu*.fy.ey.dyLFz8jgy.fy8nfygyzfyz8ney.dy8ndyVuJ_uLz`u ]uTvLzHmWu) ]u -gygyLz-fyfyhzɀ Mz gyLzzɀ Mz fyjy VuiVuLxH[uh*Zu ewLx`yYuL*y`y 8`yi8aybyjYu80L6yiby iȩLGyXuWuLw|uNu _uȱ`uOuUuPuTuQuVu wcy hy{ky zhyihyWuHiWuVu8Vu zhyihyhWuVuiVu zhyihyWuiWuVu88Xu^u*0jL xȌayj0LxjXuXujL)xȈ*L1xby*ZuJ*[u,ZuP\uWuYu ew\uLxYui(LxYumRuSui^ujayjH\uhjZu ewLaxYu`yWuYu[uLyYu8LyYumRuSui^u**ʐLxby*LSuVu) mSuSu`TuUu8ȰWuiXu` vRumWuSui^ujXujLTwj``^uMZu)^uYu) ]uZu 1 ^u`|uNu _uȱ`uTvOuUuPuTuQuVu wVuVu 4wVui Vu 4w`byayVuJ_uLw`u ]u        U*U**U*Uժժժ3fL̙L3f̙"DĈD"Ĉ"DĈ"Dɤ$I$wn];ݻ];wnݻn];wݻ;wn]ݩSuVu)8 .Su .SuRuVu)JJJmRuRuSueQuOu L'uɠQuPuOu :L'u lyL'u wtittitLZttittit`           tpttt)tȱtȱtL:t t ` NucytL'utt))`  ;uLZt@ cy ;uLZt`ȱNu ;u ;uLZtOuȱPuȱQut48PutPuOutOuPumtPuOumtOu8QutmtQuɀPu     L`,S"`,T@0,U`* L" LB$!$$"% %L"```,,Lҩ`@~`` LX`$%L$t````Y``L$e ( L L L !%# 3L㎅5 E5``)~W L fHeH~`cƏ 7?G\dltʐאc cGc$~`1  em` ` ,0$%`@`$$hLLC0LALA m0 @ @ Cf `89467 ,R,W f *,P`ɭӠҠΠؠ ((*)  +*HN OI*P,h*,H,}0ɛ} ɍ $h`ɐ 6+}~(pUU~@zR~{}x{}~@oww{{?c?%?00 2<&?fp@?UU_x@xx88 <xx88 xx<00000008?@x``pp8>~>>oow8~ x0p0~~~g~?sgL~O|??@p`|f`@~?__x8N~|8_?88x|wwOG{{{xwwws?xp`8|~^w{x|<^nw{{}C}=_}\XX|~o8p`O@@`ooogggcsw{}AAaq}=]owsqy`|~|O??Ns@@@``@@~8`F|p(P`ab<|~ppqy~p|w{{}?}4is~``px~xxx|bbt|}}~~~~@`a?`@LLFgc?s`X\lngggw~==999=o~xp`@M,=0px ~y`@< `pXl6~y?| p`ov|||~?hxppx_<<<o~xp`@@`0@@`px|~g_??}{@ xH<>?>;2``px|~|x((8(|ceU5a9?|`@}}~~~~@`x|~p~y?^^\w{{?~|p?^^\w{{??x|`x|hxx|>>|xtl\\^q@|<<<OoO{wooooogpA?x`x@@?>||x`@?~|xp`xxppp``@`x?xnp`@`@;p``??~||xxp        V(0)Y = V(0)*SIN(THETA)"j>" NOTE: V(Y) WILL CHANGE!"::" 4. APPLY EQUATIONS OF MOTION IN THE"H" Y DIRECTION TO FIND THE TIME OF":" FLIGHT (T)":R" 5. FIND RANGE = V(X) * T"::"COPY THE METHOD FOR REFERENCE: ";:10050^\2:"METHOD:"::" 1. ESTABLISH CONVENTIONS": " 2. DETERMINE KNOWN & UNKNOWN VALUES"::" 3. FIND THE X & Y COMPONENTS OF THE"*" INITIAL VELOCITY--"::" V(0)X = V(0)*COS(THETA)"4" NOTE: V(X) = CONSTANT V(0)X!"::" YOU ARE TO SOLVE FOR THE":"RANGE (MAX. HORIZONTAL DISTANCE)."::"OF COURSE, THE PROBLEM CAN BE CHANGED"::"AROUND (GIVEN RANGE AND ANGLE, FIND THE": "INITIAL VELOCITY). BUT, LET'S START WITH":"THE EASY ONE! ";:10050/:1 TO SEE AGAIN, 2 TO CONTINUE: ";A:A1370:3:"NOW LET'S LOOK AT A METHOD FOR SOLVING"::"PROJECTILE PROBLEMS. ";:10050::"IN THE BASIC PROBLEM, YOU ARE GIVEN THE"::"INITIAL VELOCITY AND ANGLE (THETA) OF":C"THE PROJECTILE.CCELERATED MOTION IN THE Y DIRECTION."::"THEREFORE, THE TIME IT TAKES THE PRO-"::"JECTILE TO GO UP AND DOWN IS EXACTLY":"THE AMOUNT OF TIME THE PROJECTILE HAS"::"TO MOVE SIDEWAYS."::+"DO YOU WANT TO WATCH AGAIN, ";Z$;"?"::"TYPE 0,36203Y:7:21,3611Y2:1:203Y,11Y2:m24:" TYPE 1 TO SEE AGAIN, 2 TO CONTINUE: ";A:A1620::3:"YOU SHOULD SEE THAT THE PROJECTILE"::"POSITION IS DETERMINED BY THE CONSTANT":*"VELOCITY IN THE X DIRECTION AND BY THE"::"A1 TO SEE AGAIN, 2 TO CONTINUE: ";A:A1370wl::9000:1:5,36:22:" HERE IT IS IN SLOW MOTION.":T11500:vY501:T11000:T11:10,36203Y:7:4,2011Y2:1:203Y,11Y2:7:21,3611Y15:T11000:T011:15,13:203Y,11Y2:0:203Y,11Y2::&YO5.5e013:203Y,11Y2:0:203Y,11Y2:t:13:35,36DT11000::22:" TIME MARKERS SHOW THE MOTION."NY501:13:203Y,11Y2:XY05:13:203Y,11Y2:+b24:" TYPE 2:0:4,11Y2:Y05.5H7:4,11Y2:0:4,11Y2::7:4,36T11000::22:" TIME MARKERS SHOW THE ACCELERATION."7:Y05:4,11Y2::24:10050:22:" NOW COMBINE THE MOTIONS."13:5,36:T11000:Y50..1/ 11:53Y,10:0:53Y,10::11:35,10q T11000::22:" TIME MARKERS SHOW CONSTANT VELOCITY. " 11:Y010:53Y,10::24:10050 :22:" HERE'S A VERTICAL ACCELERATION." 7:4,36:T11000: Y50.57:4,11YH ^"SEPERATE MOTIONS WHICH LAST FOR THE"::"SAME AMOUNT OF TIME.": h:"LET'S SEE HOW THE MOTIONS COMBINE."::"WATCH CAREFULLY, ";Z$;"!":::10050 r::9000:22:" HERE'S A CONSTANT HORIZONTAL VELOCITY." |11:5,10:T11000: Y010 GRAVITY"::# 610050| @:3:"THESE TWO MOTIONS OCCUR AT THE SAME"::"TIME, AND THE RESULT IS PARABOLIC": J"PROJECTILE MOTION. ";:10050:: T"THE TRICK IN SOLVING PROBLEMS IS TO"::"CONSIDER THE PROJECTILE MOTION AS TWO":E MOTION CAN BE CONSIDERED AS"::"TWO SIMULTANEOUS MOTIONS WHICH ARE":_ :"INDEPENDENT": 12:13:"EXECPT FOR THE TIME FACTOR.":::"THE MOTIONS ARE:": "" 1. HORIZONTAL - CONSTANT VELOCITY"::" 2. VERTICAL - ACCELERATION DUE TO" ," GH THEY'RE REALLY NOT "::"TOO HARD, STUDENTS HAVE DIFFICULTY WITH": "THEM--SO PAY CLOSE ATTENTION.":::"WHEN YOU'RE READY, ";:10050 :3:"THE BASIC IDEA IS SIMPLE, BUT YOU MUST"::"UNDERSTAND IT WELL TO SOLVE PROBLEMS."::H "PROJECTIL)2 - PROJECTILE MOTION1d BY STEVE KAMM Ji:(13);(4);"PR#0"Pj[n10000:3:"HELLO!"::"PLEASE TELL ME YOUR NAME: ";Z$8:"THANK YOU, ";Z$;". THIS PROGRAM"::"IS DEVOTED TO THE SOLUTION OF PROJECTILE"F "PROBLEMS. ALTHOU              |*U ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժU*  | U T ` U*  *U* `P*U*@*U*  (U* ժժժժժժժժժժժժժժժժժժժժ(Q* ժժժժժժժժժժժժժժժժժժժժ|*U ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ U*  |  `0U*  *U* `P*U**U*  (Q" ժժժժժժժժժժժժժժժժժժժժ(U* ժժժժժժժժժժժժժժժժժժժժ|@*U ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ(U* ժժժժժժժժժժժժժժժժժժժ |   `U  *U* `P*U**U*  U* ժժժժժժժժժժժժժժժժժժժժ(U  ժժժժժժժժժժժժժժժժժժժժ|*U ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ(U* ժժժu+ժժժժժժ*ժժժժժժժժ |  *U*U*U*U*U*U*U.U*U*U*U*U*U*U*U*U*U*U*U*`  (U* `P*U*(U*            "Z"(91)A$6:D$(36)H$(8)(8)(8)(8)"JK"A$QDH1$"4 () &'"lNH2$"4 GH W"SB$" 67 DEFS"XD$(37)H1$B$"TUV0"]D$(38)H1$B$"T9V0"bD$(39)H1$B$"89V0"lD$(40)H1$B$"8UV0" vD$(41)H2$B$  PQRSTU 0 "GD$(32)"2 QRST  "(96)" ABCDE  P DEF TU 0"pD$(33)"2 !"(34)"#  0123 0"&D$(34)"2 !"(34)"#  A123 0",H$"4./>?"(8)"MNO".A$(92)(93)(94)(95)"0" 0D$(35)H$(8)(8)(8)(8)92)(93)"  JKLMN  Z"(123)(124)(125)(126)(127)" 0 "D$(28)"3 "(92)(93)"  JKLMNI  Z"(123)(124)(125)"XY 0 "D$(29)"4 N"(126)"0 "D$(30)"4 O"(127)"0 "D$(31)"2 QRST  "(96)" ABCDE(34)"#$%  0123456  @"DH2$"3 !"(34)"#$%  8923456  H"fD$(21)H1$L1$:D$(22)H2$L1$œD$(23)H1$L2$:D$(24)H2$L2$̜D$(25)"2 GHIJWXYZ0 "֜D$(26)"2 LMNO"(124)(125)(126)(127)" 0"DD$(27)(2)(1)"3 "(1$T2$L2$!D$(13)H2$T1$L1$8D$(14)H2$T1$L2$OD$(15)H2$T2$L1$fD$(16)H2$T2$L2$}D$(17)H3$T1$L1$D$(18)H3$T1$L2$D$(19)H3$T2$L1$D$(20)H3$T2$L2$L1$"ABCDEFG 0"L2$"IJKLEFG 0"H1$"3 !"DT H ,L h0`14:X10:30>JM$"4. CHANGING ECCENTRICITY":YY14:X10:30_LM$"5. QUIT":YY14:X10:30OM$"PRESS YOUR CHOICE.":YY18:X10:30TX10:YY30:M$"(PRESS 'ESCAPE' TO RETURN HERE.)":30:YY30^SB,0:M$`(M$)32X162:30)cI(M$):! H140.5:K60:A137.5:B55:500 ,:1:2:0T 1M$"ELLIPSE":Z916:X40:Y6:30v 3YY1:X41:30:YY2:X39:30} 57 61:Z98:M$"1. WHAT IS AN ELLIPSE ?":X10:YY30:30 @M$"2. PENCIL DRAWING":Z98:YY14:X10:30 EM$"3. EQUATIONS":YY ACTUAL Y / FF? K00:K11:K22:K33:K44:K55:K66:K77:K88P M$"ELLIPSE"y :5:4:0:X025:XX0:Y50:Z935:30 XX01:YY1:30:XX01:YY2:30 M$"COPYRIGHT 1983":1:Z98:X85:3:Y130:30 M$"DR. MARK CROSS":X85:Y140:30 1(M$)27ġ:300. OIYY7:X,IX50,I:: PHF,KHF,K20HF3,K20HF3,K20:HF,KHF,K20HF3,K20HF3,K20::2 PINS 63999 KB16368:SB16384 BELL1052 FF1.14: FUDGE FACTOR FOR SCREEN ASPECT RATIO PLOTTED Y =JB(AFF):A2AA:X0A:YJ(A2XX):HX,YK:HX,KY:HX,YK:HX,KY: 7YK0BK2:XA(K1(YB)K2):JYFF:IKJ:JKJ:HX,J:HX,I:HX,J:HX,I:: FM$"(PRESS)":Z97:X210:30:SB,0 KM$:Z97:(28)1(28)128Z94 LZ9:BELL M1):3:IYY7:X0,I279,I::0:46N ,((A$)43(A$)57)A$"E"ČBELL:41{ -M$M$A$:(M$)18ČBELL:M$(M$,17):41 .(M$)2ČBELL:M$" " /XX0:30:41 0E(M$):E0E1ČBELL:M$"ERROR":7:IYY7:X0,I279,I::0:M$" ":41 1M 2",ELLIPSE COPYRIGHT 1983 DR. MARK CROSSZ200: SKIP OVER LOW NUMBERED SUBROUTINESI1(M$):((M$,I,1))30X,Y:XXZ9:::DRAW A STRING OF LETTERS(SB,0:X0X:M$" ")A$:(A$)1348*(A$)27ġ:300# +(A$)8M$(M$,(M$)                      ԠŠΧӠӮԠ̠ӠϠϮԮӠҠҮō٠ĠӠہɁ偁āɁōΠԠŬ̵ĠԠŬұߠӠŠˠΠԮŬ̩̍ŠӠŠߠƠŠ̮Ŭ̩ōŠԠߠӠĠҠծĬĩčŠӠŠߠԠ͠ΠٮĬĩčŠԠǠήլש׍ŠĠ٠ҠҠߠϠŮլשՍƠŠߠӠϠҠԠ̠ˠƠŠŮȬשȍȠ٠Ġߠ٠ԠŠŮȬש׍Š٠Ġ߬ԠĠԠΠή׬ũōĠߠĠŠӠٮҬũҍŠĠŠϠߠҠӠΠŠĠҠӮҬũō٠ĠϠԠȠߠĠƠԮ٬٩ٍŠߠŠԠԠƠŠנǮԬԩԍӠΠŠŠ͠ŠҠ߮ԬԩԍŠĠߠ٠ĠĠŠԠҮ׬ũ׍ΠŠ٠ӠҠ̠̠ߠӠΠŠҠ٠ŠĠŮάΩ΍ŠРԠŠߠŠΠƠԠŠҮάΩ΍ԠߠӠΠҠȮ٬٩ٍԠӠ̠ߠŠϠŠ    :Y131:30;D M$"----- + ----- = 1":X20:Y126:30cI M$" A B":X20:Y134:30wv Y170:70:3000 28,255:62454 H140:K40:B35:A80:0:50 F(AABB):HF,5HF,80:270,K5,K:HF,KH,KBFF$ M$"R":X112:Y20:30:MX":X270:Y76:301- H,K:H1,K:H1,K1:H,K1f0 M$"Y":X8:Y5:30:M$"H,K":XH7:YK2:Z98:305 M$"X - Y COORDINATES OF AN ELLIPSE:":X5:Y88:Z97:30: M$"(X-H) (Y-K)":X20:Y120:30? M$" 2 2":X20:Y116:30 A X60 M$"4. RETURN TO THE MENU":X10:YY12:30\ M$"PRESS YOUR CHOICE.":X10:YY18:30x SB,0:A$:(A$)27300 I(A$):I1I4ČBELL:3000 I3100,3200,3300,300 28,255:62454& H140:K40:B35:A80:0:50+ 5,55,80260,80:M$"60:70T 300j 28,127:62454:M$"EQUATIONS":X10:Y10:3:6:Z925:30:X11:Y11:30:X12:Y12:30:0 M$"1. X - Y FORM OF AN ELLIPSE":Z98:X10:1:Y60:30 M$"2. POLAR FORM":YY12:X10:30 M$"3. PARTS OF AN ELLIPSE":X10:YY12:30.05:& T1.7T4.5T1.2T: FASTER MOTION ON LEFT SIDEl) RALPHAE(1E(T)):NXR(T)DX:NYKR(T). 1OX,OY:3:OX,OYHF,KHF,KOX,OY3 0:OX,OYNX,NYHF,KHF,KNX,NY8 1NX,NY:80= OXNX:OYNY:T[ 63999:X200:0:Z97` Y1DRAW THE ELLIPSE.":YY12:X2:307YY10:70:61000j7:Y1219:148,Y200,Y::KILL WORD 'PENCIL'3:H,KBHF,KHF,KH,KB:0:80 0:1H,KB T(BF):OXH:OYKB E(1(BA)2) ALPHAA(1E(T))E! DXHF$ TTT6.461000:1135,28B63999:M$"PENCIL":Z98:X148:Y12:4:30PY159:70c28,127:62454s0:K59:80H,KBHF,KHF,KH,KB:61000:1H,KBM$"RUN THE PENCIL AROUND INSIDE THE STRING":X2:Y120:63999:Z97:30!M$"AND IT WILL 0,60160,64180,58190,55205,50225,Kga210,42195,38180,34160,30130,27110,3190,3670,4055,Kof703:Y120177:5,Y270,Y:M$"PUT THE PENCIL INSIDE THE STRING":Z98:X5:Y120:0:30M$"AND PULL THE LOOP TIGHT.":YY12:X5:30HE PINS.":Z98:X5:YY12:30C A90:B40:H140:K45:F(AABB)K*80|4M$"PIN":XHF3:YK12:Z97:30:XHF3:30>Y144:70HM$"TIE A LOOSE LOOP OF STRING":Z98:X5:4:30RM$"AROUND THE PINS.":X5:YY12:30&\55,K60,5077,5513:Z98:1:X5:Y90:30PM$"ALL YOU NEED IS A PENCIL AND PAPER":YY12:X5:30M$"PLUS 2 PINS, STRING, AND CARDBOARD.":X5:Z97:YY12:30YY30:7028,255:62454 M$"PUT THE PAPER ON THE CARDBOARD.":X5:Y120:4:30M$"STICK IN T"CIRCLE 0 < E < 1 LINE":X20:Y152:30b95,160101,160:130,160125,160:INEQUALITY SIGNSpY180:70y30028,255:62454:M$"PENCIL DRAWING":Z916:2:X5:Y15:5:30:X4:Y14:30:X6:Y16:304M$"IT'S FUN TO DRAW AN ELLIPSE.":Y115136:20,Y260,Y:_M$"THE ECCENTRICITY TELLS HOW FAT OR THIN":X3:Y110:0:Z97:30M$"AN ELLIPSE IS. E = 0 IS A FAT CIRCLE.":X3:YY10:30M$"E = 1 IS VERY THIN LIKE A LINE.":X3:YY10:303:Y152159:20,Y260,Y::0+M$M$"THE SUM OF THE DISTANCES":4:Z98:Y115:X20:30m#M$"FROM EACH FOCUS IS CONSTANT.":X20:YY14:30(4:HF,K193,73HF,K235HF,K4:37HF1,K4:36192,78: A C B<M$"AB + BC = CONSTANT":X55:Y152:30FX220:Y165:70x70'A90:B40:H140:K45:F(AABB)THF,K2HF2,KHF,K2HF2,KHF,K2HF,K2HF2,KHF,K2HF2,KHF,K250M$"FOCUS":XHF:YK10:30:XHF30:30X220:Y165:707:Y115174:40,Y260,Y:: CLEAR TEXT47I1I5ČBELL:BELL:0:65XZ9,Y:3:350bhI5ĉ::10:15:"M E N U COMING":(4)"RUN MENU"}rI1000,2000,3000,400028,255:62454LM$"A CIRCLE HAS ONE CENTER.":Z98:X45:Y115:4:30VM$"AN ELLIPSE HAS TWO FOCI.":X45:YY14:3ߠҠӠנٮȬש׍Š̠ȠߠӠŠԠŠΠŠЮȬשȍTE PERCENT FILE.2,R";IA$;&I6D$;"CLOSE"?200}:"USE STUDENT NUMBER ZERO TO GET OUT OF THIS CHOICE.":"WHICH STUDENT NUMBER SHOULD BE RESET TO ZERO? INPUT THE NUMBER: ";:A$:N(A$)N16000N40ĺ:"ERROR - TO216,0)D$;"OPEN PERCENT FILE,L55"HA$"":I150:A$A$(1):qI140:D$;"WRITE PERCENT FILE,R";IzA$;ID$;"CLOSE"6064(4);"DELETE PERCENT FILE.2"216,0D$;"OPEN PERCENT FILE.2,L55"I140:D$;"WRINUMBER. ";:16368,0PtA$:I(A$):I:I1I3ĺ:"ERROR":I11234:I:6000^wI16100kxI3200z::"ARE YOU SURE (Y/N) ? ";:16368,0:A$:A$A$"Y"A$"y"200:"I'M DOING IT NOW."6038(4);"DELETE PERCENT FILE" ":%22:1:"ENTER THE NEW NAME:": 23:1:NAME$(A)J*F299:2005yp::50);"DESTROY OLD GRADES";50);::r::" 1. RESET ONE PERSON'S GRADES."::" 2. RESET ALL GRADES TO ZERO."::" 3. RETURN TO THE FIRST MENU."s::" PRESS YOUR 22:1 A(A$):A0A412050YA40ĺ"ERROR - TOO BIG";(7);:A11234:A:1:2010s(A$)1ĺ(7);:2010(A$)49ĺ(7);"E R R O R";:2010F21İ6100020021:BL$:BL$:BL$:BL$; 21:1:"NAME ";A;" ";::" ";NAME$(A);" :1:37);:37,X:1$@630004JPF.51000lT24:1:" PRESS THE SPACE BAR. . . ";:16368,0:A$v^1000F20:6000022:"ENTER A NUMBER TO CHANGE THE NAME, OR ENTER ZERO TO STOP: ";A$:21:1:BL$:BL$:BL$:BL$;:I))25ĺ25(LST$(I)));O3(PERCENT(I)10)(PERCENT(I)99.5));PERCENT(I);v5(P2(I)10)(P2(I)99.5));P2(I)PF.51500LCOUNTLCOUNT1:LCOUNT181500X(37)24:1:" PRESS THE SPACE BAR . . . ";:16368,0:A$:LCOUNT024SE" :2PF.5İ63010$VNAME$(A);:(NAME$(A))40ĺ40(NAME$(A)));23);"PERCENTAGE SCORE ";:24);"SEEING CLUES";"LIST NAME THE WORDS ONLY ";LCOUNT0:16368,0I1NL:LST$(I);(LST$(A$):A1A4010002(D$;"OPEN PERCENT FILE,L55"R2D$;"READ PERCENT FILE,R";Aw<I1NL:A$:PERCENT(I)(A$)1:F(13);(4);"CLOSE"PD$;"OPEN PERCENT FILE.2,L55"UD$;"READ PERCENT FILE.2,R";AZI1NL:A$:P2(I)(A$)1:_D$;"CLOA4.51100! BA4(A$)272001 G(7):1000A LA1.51200U V:60000:23:1 `"PRESS RETURN WHEN YOU'RE READY. ";:A$ j1000 A2.51300 A3.5PF1:1000 PF0:1000 21:" RECORDS OF STUDENT NUMBER: ";:A$ 1A(:" 2. SEE THE RECORDS OF ONE STUDENT."N :" 3. PRINTER ";:PF.5Ğ\ " ON ": :" 4. PRINTER ";:PF.5Ğ " OFF ": ":" 5. RETURN TO THE FIRST MENU." $::" PRESS YOUR CHOICE: "; .16368,0:A$:A(A$):A 8A0(A$):A2 A1A4ĺ(7):" ERROR";(7):228L A1000,2000,6000,400[ :"END": ::BL$:BL$:BL$:2:8:" LOOK AT STUDENT RECORDS ": 6:1:" THERE ARE A MAXIMUM OF 4O STUDENTS." :" 1. LOOK AT THE NAMES OF ALL STUDENTS.";+  "* :::50);"RECORDS MENU";56):L :" 1. SEE STUDENT SCORES.t :" 2. ADD OR REMOVE A STUDENT." :" 3. RESET GRADE(S) TO ZERO." :" 4. EXIT. 16:1 ::" PRESS A NUMBER FROM 1 THROUGH 4. "; 16368,0:A$:A $D$;"READ STUDENT NAME FILE"7 (I140:NAME$(I):X -D$;"CLOSESTUDENT NAME FILE"v 2D$;"OPEN LIST NAME FILE" 4D$;"READ LIST NAME FILE" 7NL50:I1NL:LST$(I): 9D$;"CLOSE LIST NAME FILE" FBL$" t7 STUDENT RECORD READER/CHANGER FOR SPELL-A-VISIONC 62000N31744yNAME$(40),PERCENT(60),LST$(60),P2(60)D$(13)(4)0:::1002"RECORD KEEPING PROGRAM":"READING THE STUDENT NAMES"#D$;"OPEN STUDENT NAME FILE"         ,3:5,201,44,240,3,76,201,222,32,177,0,32,248,230p104,134,3,134,1,133,0,170,160,1,132,2,173,48,192,136,208,4,1981,240,7,202,208,246,166,0,208,239,165,3,133,1,198,2,208,241,96I768833:P:I,P:1013,76:1014,0:1015,3::1015ETRODON" I5A$"TRACHODON":I6A$"STEGOSAURUS"TI7A$"TRICERATOPS"o$I8A$"ANKYLOSAURUS")I9A$"MOSASAUR".I10A$"PLESIOSAUR"8N$(NN)A$:N(I)NNLI(,201,84,208,15,32,177,0,32,248,230,138,72,32,183,031:JJ(7)21:JJ(8)27:JJ(9)45:JJ(10)37-@BI110:D(I)I:NI110hNN(WC3(W)):1-10sJWIN(J)NNJ10000ʷJԷJC147020޷I1A$"TYRANNOSAURUS"跭I2A$"BRONTOSAURUS"I3A$"PTERANODON"I4A$"DIM:X(4)33:Y(4)41X(7)22:Y(7)8:X(8)32:Y(8)8VX(9)3:Y(9)14:X(10)22:Y(10)11wX(5)5:Y(5)7:X(6)12:Y(6)8 P(1)88:P(2)255:P(3)200:P(4)122DD(1)22:DD(2)10:DD(3)10:DD(4)10(JJ(1)9:JJ(2)1:JJ(3)25:JJ(4)33:JJ(5)35'2JJ(6)I5Ė2:7I6Ė14:7/I7Ė24:7?&I8Ė33:7O0I9Ė8:12a:I10Ė28:12{?N(I)0ĺI10(I10);D:Z0:W1:TW2:TEN10KE16384:SB16368ijC1128:C2.5:C39.99سX(1)6:Y(1)2:X(2)12:Y(2)1X(3)28:Y(3)1" U X0 "7НD$(49)"4 PQ"B$" U X0 "_ڝD$(50)"4 PQ"B$" U W0 "D$(51)"4 PQ"B$" T X0 "D$(52)"4 PQ"B$" T W0 "4ુI110諭I1Ė3:2ꫭI2Ė18:2I3Ė26:1I4Ė35:3"TUV0"$D$(42)H2$B$"T9V0"?D$(43)H2$B$"89V0"ZD$(44)H2$B$"8UV0"oB$"CDEFGHIJKL"D$(45)"4 AB"B$" U X 0"D$(46)"4 AB"B$" U W0 "D$(47)"4 AB"B$" T W0 "ƝD$(48)"4 AB"B$ 2 2":X10:Y174:30|"% F(AABB):HF1,K1H,K:H,K3H,KB10:HF,K3HF,KB10:HF,KB5H.6F,KB5"' H,KB5H.3F,KB5:M$"F":YKB2:XHF.46:30") HF,K2HF2,KHF,K2HF2,KHF,K2 #, HF,K2HF2,KHF,K2H0*! M$"E = ECCENTRICITY":X10:Y135:30Z! M$"E = SQR ( 1 - B / A )":X10:Y149:30! M$" 2 2":X10:Y145:30! YY9:70:4! M$"FROM CENTER TO FOCUS:":X10:Y167:30! M$"F = SQR ( A - B )":X10:Y178:30 " M$" H140:K50:A120:B45:28,255:62454:4:50\ M$"A = SEMI MAJOR AXIS":X10:Y115:Z98:30 H,KHA,K:M$"A":X94:YK9:30 Y125:70 4 M$"B = SEMI MINOR AXIS":X10:Y125:30 H,KH,KBFF M$"B":XH3:YK25:30:Y140:70! M$"X = R * "(98)(110)(114)"("(115)") Y = R * "(114)(104)(109)"("(115)")"v X5:YY14:30 M$"THE CONSTANT CAN BE ANY NUMBER.":X5:YY16:30 M$"IT SETS THE SIZE OF THE ELLIPSE.":X5:YY10:30 Y180:70:3000+ $(115):X86:YK8:30:82,K684,Kf M$"POLAR COORDINATES: FOCUS AT THE ORIGIN":Y90:X3:Z97:30 M$(115)" = ANGLE R = RADIUS":X5:YY12:Z98:30 M$"R = CONSTANT * E/( 1- E *"(98)(110)(114)"("(115)"))":X5:YY15:Z98:30cčٍˍōȍ͍΍ŠƠŠōŠƠŠō)(8)(8)(8)(8)6xL1$(92)(93)(94)" 0"GzL2$"&'(0"{|T1$(8)"<=>?"H5$"H KLMN"H5$"XYZ"(91)T2$(8)"<=>?"H5$"$ KLMN"H5$"4YZ"(91)D$(9)H1$T1$L1$D$(10)H1$T1$L2$D$(11)H1$T2$L1$ D$(12)HH1$BO$L1$A$(`D$(2)H2$BO$L1$A$AbD$(3)H1$BO$L2$A$ZdD$(4)H2$BO$L2$A$sfD$(5)H1$BO$L2$B$hD$(6)H2$BO$L2$B$jD$(8)H2$BO$L1$B$lD$(7)H1$BO$L1$B$rH1$"2 ./"tH2$"2 )*"vH3$"2 +,"wH5$(824)(125)(126)(127)"  0"KFB$(108)(109)(110)(111)" 0 "jJH1$"1 345  DE  TUV"KD$(7)D$(1)(123)B$LH2$"1 *+  ;<  KLM"NL1$" VWXYZ"(123)PL2$" PQRS"(123)TBO$"WXY  FGHIJK "^D$(1) CROSS")Du(13);(4);"BLOAD HRCG.DINO"XNu(13);(4);"BLOADMATCH BACKGROUND,A$4000"cXu40000nbu46000ylu47000vu48000u36352u(15);(20);(16)uI110:Y(I):X(I):D$(JJ(I)):v44000 v500pv1000@D$(60) EA$(1(458(W)):4190$TJ(378(W))/^D$(J)6hI@r4020[A$((KE)C1):A(A$)gSB,Z:y0u33279:24576:u::255::(13);(4);"PR#0"?u10:" D I N O S A U R M A T C H I N G"Bu20:25:"COPYRIGHT 1981"::25:"BY MARK 00/J(94(W)):(W).6JJ44((W).4)94190QJ(W8(W)):4190cJ25PF:4190zJ33:(W).7J344190"J35:(W)C2J36$4190,J31:(W)C2J32.41906J(214(W)):4190@J(272(W)):4190JJ"Y"2100 WR0:RI0:300607 (13)(4)"RUNHELLO"F SB,Z:IP0Z (KE)C14300h PF(PF0)} IPIP14(IP3) TP(IP),DD(IP) IWTEN D(I)Z4200 X(I):Y(I) I4090,4100,4110,4120,4130,4140,4150,4160,4170,418042(100RI(RIWR).5)1 "SCORE ";P;" PERCENT"; 4SB,Z^ >17:2:" PLAY AGAIN (Y/N) ?"r H(KE)1272500 MI199:I R17:2:"PLAY AGAIN (Y/N) ?" \(KE)1272500 aI190:I f2110 A$((KE)128):SB,Z:A$"N"2550 A$";; I13:II50I:JW15:T103I(W),TW::JW10::K I1444:I[ 1400:1000x xB$" " I1719:I:21:B$:: (16) (26);(24); 17:24:RI;" RIGHT" 24:WR;" ":18:28:"WRONG" 19:22 P" 8D(NU)10:N(NU)(N(NU))F BI092:J14:TP(J),DD(J)I::e LY(NU):X(NU):D$(JJ(NU));w [Y(NU):X(NU) `(15);(3);D$(JJ(NU)) j(15);(20); t44000 ~500 RI102000 1400:1000 WRWR1 18:33:" WRONG 0):(A$)579007 17:22:"0 NUMBER ";A;" "Y 19:22:"W HICH LETTER ? " 4000:19:22:" LETTER ";A$;" " $LL(A$)64 )LL10LL1900 ,N(NU)LL1200 .RIRI1:18:33:" RIGHT "; 3N$(N(NU))"  30000,17:2:" MATCHING QUIZ"8IW10KI6Ė2:18I^I6Ė21:14I(9);(64I);" ";N$(I);(14);&I:18:30:" ERROR  ";I1800:I:140050017:22:"P ICK A NUMBER : " 4000:NUA10(A         ԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠԠ  0:NC0:ND0(I0NW:PKFLASSH%(I)0:K MAIN LOOP STARTS AT LINE 140jI1NW:DUN%(I)0I9999}:I10001820FIRSTFLAG1XX1:144X(NW(1)1):DUN%(X)5143 DUN%(X)100:II$A$(X):STAR0:NS$"":I1(II$):J$(II$,I,1):J122%36181:37496,128:36223,128}:"WHILE YOU ARE SPELLING WORDS, YOU CAN":"PRESS CONTROL F ANY TIME TO PEEK. IT""WILL COST HALF A PERCENT OFF YOUR SCORE."::" PRESS THE SPACE BAR TO START.":16368,0C$:T222,33 B1:E1:ZF0:X(I)0 yIRz:" DO YOU WANT TO SEE THE WORDS":" BEFORE YOU SPELL THEM?"y{:" PRESS Y OR N. ";:Y$:Y$|Y$"y"ĺ"PLEASE PRESS DOWN THE CAPS LOCK KEY.":123}Y$"n"ĺ"PLEASE PRESS DOWN THE CAPS LOCK KEY.":123~Y$"Y"Y$"N"" DO YOU WANT THE WHOLE LIST,"::" OR JUST THE WORDS YOU MISSED ?"u:" W - WHOLE LIST"::" M - MISSED WORDS ONLY"::16368,0:" PRESS YOUR CHOICE: ";:C$:C$vC$"W"C$"M"ĺ(7);" E R R O R":117wC$"W"128xI1NW:FLAGS%(I)0DUN%(A$(X))2XX1:105BjX35āIX140:A$(I)"":CLUE$(I)"":pkNWX:NEX:I1NW:FLAGS%(I)0:DUN%(I)0:{l45000mFIRSTFLAG100o4:3:"THE LIST HAS ";NW;" WORDS."p122q:1:1rI1NW:DUN%(I)0ĂI:122sI9999:ICt:(II$,J):LST$"":I1(II$):LST$LST$(((II$,I,1))128)::103h c21:1:117);:22:5:NN02100 d:" I'M READING THE WORDS.":(13);(4);"OPEN";LST$:(4);"READ";LST$ eX1999:CLUE$(X),A$(X): g(13);(4);"CLOSE" hXX1:14900i(A$)1I1I2:90+ ^NNJFILESNNJFILES1 _II$G$(NN):Z$(160):NN0NNJFILESĺ" E R R O R - TYPE A NUMBER":" FROM 1 THROUGH ";JFILES;".";(7);:I11777:I:89 `J(II$):IJ21:(II$,I,1)Z$JJ1::98 aI99::NN014900C bII$8:I YI10" ZI1JFILESI10D [I2I118:I2JFILESI2JFILES \45000:1:1:"THESE WORD LISTS ARE AVAILABLE:"::II1I2:5:I10ĺ" "; ]I%(I.1):I%;" ";G$(I%):T20I%I%,3:::22:1:" WHICH NUMBER DO YOU WANT ";:A$:NN(A$):T200,5:IME55 $22:1' %NAME$(40):62500A &ERFLAG.5İ61000:89V '36631:(5):11 (::" HELLO!":" WHAT'S YOUR NAME?" *:" "; -16000:N$II$:ZS1 036631:(18) 5NAME$(1)N$:62700 7:1:1:(N$)1ĺ" THANKS, ";N$;".":I188,O" (4);"MAXFILES 1", 31744:24576? A$(70),G$(52)J 61980 B$(50),E$(40),PKFLASSH%(50),CLUE$(40),DUN%(40),FLAGS%(50) D$(13)(4) 63000 :28,255:62454 36631:10000:36631 J279:4:I1911771:0,IJ,I: #T6,SPELL-A-VISION BY MARK & CONNIE CROSS\ COPYRIGHT 1984 CROSS EDUCATIONAL SOFTWAREm(4);"PR#0"w::(4);"BLOAD PICDRW"(4);"BLOADSPELLGIRL.SPC,A$6000"29696,0:29697,96:29744 255:14900 (13);(4);"NOMON C,I! ! !!!!!!!!!" " " " """""""""                     ``'_`0W8 ?e ?8** V`PQD`0`Rl xSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_0W'_  Vץ`0W_8 早`e 日  V((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKO!! ! 102S:"YOU NEEDED A FLASH PEEK AT THESE WORDS:XUHT1:N1NW:PKFLASSH%(N)11885wW(A$(N))18ĭHT10HT1:YHT:" ";A$(N);:HTHT20:HT30(A$(N))18HT1:\T88,3]_HT10ĺ0 v:16368,0:"PRESS RETURN TO GO ON. ";:C$:1:(E$(N))18HT1:$#T188NNN,43%:HT10ĺC&B1.51870I+h0"YOU MISSED THESE WORDS."3HT1:N1B1:(B$(N))18ĭHT10HT1:4T250,205HT:" ";B$(N);:HTHT20:HT30(B$(N))18HT1:7:HT10ĺN PZF119 SCORE=16368,0:15:1:" PRESS RETURN TO GO ON. ";:C$TT30(C$),13:140n DONE WITH ALL WORDSz:1:1E11830 "YOU SPELLED THESE WORDS RIGHT:"!HT1:N1E1:(E$(N))18ĭHT10HT1:"HT:" ";E$(N);:HTHT20:HT30:16480|5:1:(5)" CORRECT - 3 TRIES";(18):}1652S MISSED THREE TIMESd:(5);" ";zZ(A$(X)):A1Z(A$(X),A,1);Z10ĺ" ";A:(18)::" TRY TO REMEMBER THIS SPELLING."B$(B)A$(X):BB134000: PRINT THE:16460mR37(1):I13:J299R:TJ,3::an22:3:"RIGHT! PRESS RETURN TO GO ON. ";pA$:T20(A$),8:22:3:" ":140r5:1:(5)" CORRECT - TWO TRIES";(18)s34000t22:3:"PRESS . . . ";117:" ";:CdNT21650Me1660qh REWARD IF RIGHT THE FIRST TRYjE$(E)A$(X):EE1: WORDS SPELLED RIGHT THE FIRST TIME k34000: PRINT THE SCOREl(1).4DE13(1):I2501815(1):TI,DE:INPUTU"2:"THE FOLLOWING LETTERS ARE CORRECT AND":"IN THE RIGHT PLACE:"::(5);]$HHm,N1(NS$)6(NS$,N,1)(WW$,N,1)ĺ(WW$,N,1);:1610;"-";JT20N5,4:T(18):1560^NT11640_30000:B$(B)A$(X):BB14`1:1:IY LETTERS. "Z(WW$)(A$(X))Ģ10:" YOU HAVE ";(A$(X))(WW$);" TOO FEW LETTERS. "d157014:" T R Y A G A I N. ":CLUE$(X);(1);(5):FLAGS%(X)FLAGS%(X)119:HH:I1(NS$):"-";::(18)172: BACK FOR ANOTHER LAGS%(X)FLAGS%(X)1:1630@NCNC1: NUMBER OF WRONG ANSWERSFNT3Ģ5:1:" STILL NOT RIGHT-- THE WORD IS SPELLED:"::17108:3:NT1ĺ"ONE MISS"NT2ĺ"TWO MISSES" (A$(X))(WW$)Ģ10:" YOU HAVE ";((WW$)(A$(X)));" TOO MANI1(II$):A$(II$,I,1):A$" "WW$WW$A$c: SPACES HAVE BEEN DELETED FROM THE INPUT GUESS(WW$)1āI102508:TI,2::172NTNT1WW$NS$WW$A$(X)220: MISSED MATCHES WITH AND WITHOUT SPACESNDND1: CORRECT ANSWERSF1):16368,0C$41:1:(18);(8);" "H3:1:CLUE$(X)Z11:4:(1);NT.5Ģ11:3:"S";(19);"PELL THE WORD.";(1)(5)19:HH:16000:(18):(II$)1įT222,22:17211:1:27)WW$"":STAR.5WW$II$:200-(N$)115563:3:"HERE'S THE CLUE, ";N$;"."Z5:1:CLUE$(X);(1):J1300:q(A$(X))16ĺ(5)11:HH:I1(A$(X)):(A$(X),I,1);T200I4,5:J1TIME:J:I:(A$(X))16ĺ(18) 20:10:"P";(19);"RESS RETURN TO GO ON.";($"*"STAR10:NS$NS$" "::1478J$" "NS$NS$J$>(112)(110)1Đ:5:7:(5);"I'M RESTING."::7:"PLEASE WAIT.";(18):I(0): AVOIDS GARBAGE COLLECTION DURING AN INPUTNT0:HH1(20(A$(X))):HH1HH145000:Y$"N"168g_wosyzj`` EF`llmlzm~d]dV~~ef~~ѣeУppN`Fೄb`2Q7`>`2O_H`CD7TOR&NX$LaL\AaB\A9_``J=PPccQ`W\`d`e{$]eTmcz`FۊBb`ehlq~`5t$`F}pzvvp~oh;C@>J?OBQAIDBJBOFKPI=R@VGOUUVYXW`ScMbFB?@GGNUNNKghKKEEKEell""