' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]浍국絍뵍䵺L 鷎귭෍ᷩ췩緈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,&"_]` L/  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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䵍䵐`"L ŵ8ŵH ~(`# d àz# u`Z112:Z:X 80:/ :X121:X:10:A$C Z150:Z:X:e MODIFIED BY PANDORA SOFTWAREw D$(13)(4) X$ D$;"SAVE MESSAGE,D1" X$ D$;"SAVE MESSAGE,D2" 5000D( 7:"CLEARFIELD UT 84015 ":1 255b 2:"PRESS C FOR CATALOG OR RETURN TO QUIT";j C${ C$"C"1500 x(1155)3000 ::(4);"CATALOG": A$"APPLE ][ AND PANDORA SOFTWARE" 150:X16 1:X1:A$; X:" ";:JOY AND USE."; 6:"-- PLEASE, SEND PANDORA A COPY --":h "WE'LL RETURN YOUR DISK, RECOPIED WITH" R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC" "DOMAIN LIBRARY, WITH MANY THANKS.": 150 10:"PANDORA SOFTWARE" L13:"P. O. BOX 590 ";"FAULTY";Q$;" PUBLIC"B "DOMAIN PROGRAMS ON THIS DISK AND YOU"W "FIXED THEM?": &"MAYBE YOU EVEN TOOK LOTS OF TIME TO" X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENpdPANDORA SOFTWARE P. O. BOX 590 CLEARFIELD UTAH 84015 ---------------------zn::xQ$(34)(1155)İ2000::,2:" AN INVITATION FOR APPLE PROGRAMMERS ": "PERHAPS YOU FOUND SOME ";Q$     13500:J::::::i"DO YOU WANT TO SEE THIS DEMONSTRATION AGAIN, "A$" (YES OR NO)";:D$(D$,1)"Y"ė:60::::"BYE !!"::7(N:(24):"LET ME DEMONSTRATE."QX"ONE POSITIVE CHARGE, ONE NEGATIVE"ibX0:Y95:A279:B95ylXX2:AA2vAX2670X,Y:A,B0:X2,Y:A2,B:7620::"PARTICLES WITH OPPOSITE CHARGES ";:"ATTRACT" :JCT" :"2. REPEL"+ :"3. NEITHER"x :"TYPE IN THE ANSWER OF THE ONE YOU THINK IS CORRECT (1,2, OR 3)";:C :: C1ĺ"GOOD JOB, "A$" !" &C2C3āJ135:L(S):L118:L1:J:"WRONG, "A$ 0C1C3520 :J13500:JD7 X2Y158A277B2420( 370N ::"LIKE CHARGES ";::"REPEL"a :J13500:Ji : ::" STATIC ELECTRICITY" : :"WHEN TWO PARTICLES WITH OPPOSITE" "CHARGES ARE BROUGHT TOGETHER, THEY " :"1. ATTRA:A279:B95% XX2:AA2:Y95:B953 X,Y:A,BK "0:X2,Y:A2,B:7[ ,AX30320d 6270o @J16 JXX1:YY2:AA1:BB2 TX,Y:A,B ^0:X1,Y2:A1,B2:7 hJ rXX2:YY1:AA2:BB1 |X,Y:A,B 0:X2,Y1:A2,B1:"RIGHT, "A$" !"K A1A3āJ135:L(S):L118:L1:J:"WRONG, "A$\ A1A3130m J12000:Js | :7 (24):"LET ME DEMONSTRATE WITH" B((1)2):B0B$"POSITIVE" B1B$"NEGATIVE" "TWO "B$" CHARGES" X0:Y95 F:::; P"WHEN TWO PARTICLES WITH THE SAME CHARGE"^ Z"ARE BROUGHT TOGETHER, THEY"s d:"1. ATTRACT" n:"2. REPEL" x:"3. NEITHER" :"TYPE IN THE ANSWER OF THE ONE YOU THINK IS CORRECT (1,2, OR 3)"; A :: A2ġ **STATIC ELECTRICITY**; ** BY **X ** BRANDON WEBER **u ** THE GREEN APPLES ** ** CEDAR FALLS IOWA ** S16336A$(100)(:"WHAT IS YOUR NAME? ";A$2 <::" STATIC ELECTRICITY"   W YOU TO COLLECTDATA THAT WOULD BE SIMILAR TO THE DATA THAT RUTHERFORD, HIMSELF, WOULD HAVE COLLECTED FROM ";"HIS EXPERIMENT.""(HIT SPACE BAR TO CONTINUE) ":A$IA SPEED OF 36 MILLION MILES PER HOUR AND AIMED DIRECTLY AT A THIN PIECE OF GOLD (.0000001 INCH THICK).:"HIT SPACE BAR TO CONTINUE":L$q:" THIS COMPUTER PROGRAM (WRITTEN BY BRANDON WEBER) SIMULATES RUTHERFORD'S EXPERIMENT. IT WILL ALLODISCOVERED THAT SOME ELEMENTSWERE RADIOACTIVE, THAT IS PARTICLES WOULD SUDDENLY SHOOT OUT OF THE ATOMS. HE SET UP A LEAD BOX WITH A RADIOACTIVE ELEMENT, THAT(14):(15):"SHOT OUT A LIGHT WEIGHT,"h"POSITIVELY CHARGED PARTICLE, TRAVELLING AT ING RADIATION, TO HELP BETTER UNDERSTAND THE STRUCTURE OF THE ATOM. HE WAS A STUDENT OF J.J. THOMSON'SAND SET UP HIS EXPERIMENT TO TEST THOMSON'S IDEAS"(7):(17):"ABOUT THE ATOM.""":" HERE IS HOW THE EXPERIMENT WORKS. RUTHERFORD A$\A$"Y"A$"YES"9003fA$"N"A$"NO"890<p830gz"TOTAL SHOTS =";N1:J14000:J:::"DO YOU WANT TO CLEAR THE SCREEN ";A$A$"N"A$"NO"210P12:50"":" IN 1910, ERNEST RUTHERFORD PERFORMEDAN EXPERIMENT US0:XX1,YC:7650,XXX1:YYC=X0Y0790FX,YZ0:XX1,YC:7c700lC1CX1(5(C1.0555))CC.042  J*4(24)>"# OF PARTICLES IN CENTER=";M1H"DO YOU WANT TO DO IT AGAIN ";R :530' D178CC180C180C0:620S N160CC164C164C((1)21)70:620 X164CC171C171C((1)40)21:620 b171CC178C178C((1)29)61:620 l750 vD((1)2) D0700 XXX1:YYC X0Y159790 X,Y0CC157C157C((1)30)46:450K 157CC160C160C((1)30)86T 750d D((1)2)q D0530 XXX1:YYC X279Y159790 X,Y 0:XX1,YC:7 480 XXX1:YYC X279Y0790 &X,Y 00:XX1,YC:7X,Y:320 hC((1)181)) rC160580K |C100C100C0:M1M11:450v 100CC115C115C((1)20)1:450 115CC135C135C((1)4)41:450 135CC143C143C((1)80)8:450 143CC150C150C((1)18)28:450$ 152000:P8 "HOW MANY PARTICLES DO YOU WISH TO FIRE ";? AL A0820W J1Am K115:L(S):K (15):"SHOT # ";J  N1N11 "N3J ,N3N315:N3((N3))B22:150 6X10:Y80 @0:X5,Y:7 JXX5 TX160360 ^10 FB20 P(24)& Z0,7910,796 d0,8010,80F n0,8110,81Z xP12F12:150 "FIRST, THE SOURCE OF RADIOACTIVE PARTICLES" K12000:K 160,73160,87 161,73161,87 B22ı F12210 "NEXT THE GOLD LEAF" P1  ***********************= ** RUTHER **[ ** BRANDON WEBER **y ** ** ** THE GREEN APPLES ** ** NORTH CENTRAL IOWA** ***********************S16336(9402::7 <M         :7753,28:7754,31:7755,50:7756,62:_7757,55:7758,10:7759,33:7760,44:7761,45:7762,0:e K:7726,54:7727,14:7728,14:7729,14:y7730,45:7731,12:7732,12:7733,12:7734,36:7735,28:7736,28:7737,6:7738,0:7739,63:7740,23:7741,23:7742,23:7743,54:7744,14:7745,14:7746,14:7747,45:%7748,12:7749,12:7750,12:7751,36:7752,282:7699,12:7700,4:7701,0:7702,63:z7703,23:7704,23:7705,23:7706,54:7707,14:7708,14:7709,14:7710,45:7711,12:7712,12:7713,12:7714,36:7715,28:7716,28:7717,22:7718,58:7719,63:7720,63:%7721,0:7722,63:7723,23:7724,23:7725,23$,1)"Y"60::*232,252:233,29{7676,4:7677,0:7678,10:7679,0:7680,25:7681,0:7682,45:7683,0:7684,63:7685,0:7686,12:7687,12:7688,12:7689,45:7690,21:7691,14:7692,21:7693,21:$7694,21:7695,21:7696,45:7697,12:7698,1ROM AN ATOM PRODUCE ALL THE COLORS OF THE SPECTRUM."EbK17000:l"WHEN AN ELECTRON LOSES SO MUCH ENERGY THAT IT FALLS TO THE NUCLEUS, X-RAYS AREPRODUCED."vK17500::: "DO YOU WANT TO SEE THIS DEMONSTRATION AGAIN?";:A$:(AH11J,77$J170ĕ1JH1,773&K135:KJ0:1263,77:JG1:T:::D"PHOTONS TRAVEL AT ABOUT 186,000 MILES PER SECOND, AND MANY PHOTONS PUT TOGETHER MAKE LIGHT."NK17000:5X"DIFFERENT AMOUNTS OF ENERGY TAKEN AWAY F OCCURS, A ";::"PHOTON";::" OF LIGHT IS PRODUCED. WATCH CLOSELY.";XK17500:q2100X,77Y:WW40{A50XW((A31.42)):YW((A31.42))XX(.2X)2100X,77Y510290H13:***********PHOTONJ1702630X,77Y r100X1,76Y1! |A/ JG1570 "WHEN ENERGY IS ADDED TO THE ATOM, THE ELECTRON JUMPS TO AN OUTER ELECTRON 'ORBIT', OR SHELL." K15500::H"WHEN ENERGY IS TAKEN AWAY, THE ELECTRON JUMPS TO AN INNER 'ORBIT'. WHEN THIS "THE ELECTRON 'ORBITS' THE NUCLEUS, BUT DOES NOT TOUCH IT.K W75:H5\ "A50150H ,XW((A31.42)):YW((A31.42)) 6XX(.2X) @X1W(((AH)31.42)):Y1W(((AH)31.42)) JX1X1(.2X1) TA50360 ^2100X1,77Y1 h210 NEUTRAL CHARGE"- :"(HIT ANY KEY)";:A$9 :::M (232)252210^ :670:(24)g :7q 1:0 396,73:4106,72 "THIS IS THE NUCLEUS OF OUR DEMONSTRATIONATOM. IT IS COMPOSED OF 1 NEUTRON AND 1PROTON." K16000: > UCED. FIRST, YOU MUST KNOW THAT THERE ARE 3 TYPES OF BASIC ";X "PARTICLES INVOLVED" :" THE ELECTRON, WHICH HAS A 'NEGATIVE' CHARGE;" " THE PROTON, WHICH HAS A 'POSITIVE' CHARGE;" " AND THE NEUTRON, WHICH HAS A OF LIGHT" P- Z" BY"P d" BRANDON WEBER"X n:> x" LIGHT IS CONSIDERED BOTH A PARTICLEAND A WAVE BY PHYSICISTS. THIS THEORY IS HARD TO EXPLAIN, BUT I WILL ATTEMPT TO SHOW YOU EXACTLY HOW LIGHT IS PRO- Df  **********************; ***** WRITTEN BY *****X **** BRANDON WEBER ***u( ******* 3/10/81 ******- ***THE GREEN APPLES***. ***CEDAR FALLS IOWA***2 ********************** <:::::A F" PRODUCTION           G$)vCVT:L5:(A)({CSOUND173107CX2012JC6,X:7,2:768QCX\C17040nCSOUND17370yCY13CX4014C6,X:7,2:768CX:YCVTVT2C/6,X:7,2:768B BL(G$)/BL117210>BL117180PBSOUND17180\BY110jBX1256}C6,X:7,3:768C:CVT:5:" "&CG$""0C17040:CLL1DCG$(G$,L)NCVT:L6:" "XC17040bCG$G$(A128)lCL(:VT:1:(CU$,C,1)G:KEY(16384):KEY128CC1L(CL):15050T::VT1:hhB HIRES INPUT srB1:VT|B"===>"BG$""BA(16384)BA12717040B16368,0BA14117320BA13617250BSOUND17120BX1205BL$" "L$"."L$","10450P(FINISH20150(L$" .")75(L$",")c(X1FINISH:Xj(Jt(" ";(CURRENT(VTVT2(: PRESS ANY KEY :16368,0:CU$"!/-\":VT24:A$"! PRESS ANY KEY":10000:VTVT2:C1:L41 (SPACE0$((SPACESSPACESNL1,2(VT8<(J1LWBF(LL32UP(L$(WRD$,J,1)Z(L$"@"L$"&"JJ1:LL064(L$"&"):10320d(I(L$)n(I65I90LL0x((ILL);(SOUND10450(L$" "10450(X12(S(16336)(X('CURRENT1L!'KCURRENTL8'(A$,K,1)" "ĂKY'WRD$(A$,CURRENT,KCURRENT)g'CURRENTK|'LW(WRD$):NLLW'LW0SPACESSPACES1:10460'K1(WRD$)'(WRD$,K,1)"@"NLNL1'K(SPACESNLWIDTH10280 (VTVT2(l%X:HT:A$&v%6,X230:7,2:768-%X3%N' LOWER CASE PRINTER _'54,0:55,96k$'L(A$)s.'VT8'CENTER010120B'I0L'K1LV'II1`'(A$,K,1)"&"(A$,K,1)"@"II1j'Kt'(40I)2~'10130'1'SPACES0$"WRITTEN BY":S5:9500:J$A$"LARRY SELTZER":S7:9500KT$J11000:JQ^$l% WORDS AT BEGINNING x&%L(A$)0%HT(40L)2:%X2301D%X1X5:X1249570N%X1S9610X%X1:" ";b%XS9590050::VT1:#Y23114#6,Y:7,2:768@#XYABM#X1X1W#Y:X_#L$k#Y1:X1t#" "#X1X:Y1Y#Y#1:15#(WRD$,T)#T$T34171$2:T$"MOTION ""$J150:,$6,T:7,2:7686$@$A75(L$",")(X1FINISH:X&(J0(" ";=(CURRENTI(VTVT2O(e: PRESS ANY KEY s:16368,0:CU$"!/-\":VT24:A$"! PRESS ANY KEY":10000:VTVT2:C1:L4:VT:1:(CU$,C,1):KEY(16384):KEY128CC1L(CL):15P(L$(WRD$,J,1)BZ(L$"@"L$"&"JJ1:LL064(L$"&"):10320Nd(I(L$)bn(I65I90LL0px((ILL);(SOUND10450(L$" "10450(X12(S(16336)(X(L$" "L$"."L$","10450 (FINISH20150(L$" .")A$,CURRENT,KCURRENT)#'CURRENTK8'LW(WRD$):NLLWY'LW0SPACESSPACES1:10460j'K1(WRD$)'(WRD$,K,1)"@"NLNL1'K(SPACESNLWIDTH10280 (VTVT2(1(SPACE0((SPACESSPACESNL12(VT<(J1LWF(LL32E PRINTER '54,0:55,96'$'L(A$)/.'VTC8'CENTER010120KB'I0VL'K1L`V'II1`'(A$,K,1)"&"(A$,K,1)"@"II1j'Kt'(40I)2~'10130'1'SPACES0'CURRENT1L'KCURRENTL'(A$,K,1)" "ĂK'WRD$(1000:J ^$(% WORDS AT BEGINNING 4&%L(A$)D0%HT(40L)2S:%X2301jD%X1X5:X1249570yN%X1S9610X%X1:" ";b%XS9590l%X:HT:A$v%6,X230:7,2:768%X% ' LOWER CAS#X1X1#Y:X#L$'#Y1:X10#" ">#X1X:Y1YE#YP#1:15_#(WRD$,T)f#Tv$T34171$2:T$"MOTION ""$J150:,$6,T:7,2:7686$@$A$"WRITTEN BY":S5:9500J$A$"LARRY SELTZER":S7:9500T$J1:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96G^\(# INTRODUCTION b2#x<#WRD$"PROJECTILE"F#T110P#X11:Y110Z#L$(WRD$,T,1)d#TTT14n#A(TT1)22x#BTTA#Y2311#6,Y:7,2:768#XYAB (T10.5)10 X S(S10.5)10;b V((GTV0)10.5)10Ol 3:24:T:868cv 5:24:S:868w 7:24:V:868 3070 @ MUSICAL POKESJ768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7AT776,240:777,8:778,20200  15000 ) THROW UP BALL 1 T0B 54,0:55,96V 3:15:"TIME:"n 5:15:"HEIGHT: " 7:15:"VELOC.: " V030 TT.2 S12GTTV0T 0 20,191Y1& S032200 3: 20,191(S2)D Y1S2 N TALL, WE CAN USE THE FORMULA:":100001 CENTER1M A$"V = GT + V ":10000Y VTVT1u A$" O":10000 CENTER0 15000A$"@NOW LET'S SEE WHAT WILL HAPPEN WHEN WE THROW A BALL UP WITH AN INITIAL VELOCITY OF 30 METERS/SECOND":100F THE BALL, WE CAN JUST USE THE FORMULA:":10000E pVTVT1:CENTER1h zA$"S = 1/2 G T + V T":10000t VTVT3 A$" 2 ":10000 A$" O ":10000 CENTER0 VTVT1$ A$"AND TO COMPUTE THE VELOCITY OF THE B *CENTER15 4A$"@DISTANCE = @RATE X @TIME":10000B >CENTER0M H15000 RA$"@FIRST, LET'S JUST EXAMINE THE VERTICAL COMPONENT OF THE MOTION. @TO DO THIS, IMAGINE THROWING A BALL UP IN THE AIR.":10000 \VTVT10 fA$"@TO COMPUTE THE HEIGHT O VTVT1 A$"@IF THE MOTION TAKES PLACE IN A FRICTIONLESS ENVIRONMENT, THE HORIZONTAL MOTION IS FOUND USING THE VERY SIMPLE FORMULA:":10000 CENTER1 A$"S = VT":10000 CENTER0 A$"@THIS IS, OF COURSE, THE SAME FORMULA AS:":10000 (4);"BLOAD CHAR TABLE"! 8000D $VT1:SOUND0:CENTER0:WIDTH40O .G9.8U 8[ Bi  STUFF o  A$"@PROJECTILE MOTION IS SIMILAR TO FREEFALL MOTION, EXCEPT THAT IT INCLUDES A HORIZONTAL COMPONENT IN ADDITION TO A VERTICAL ONE.":10000 1000: INITIALIZE)9000:INTRO;2000: STUFFU(3000: THROW UP BALLi254,189:55,158q<:F11:12:P"PLEASE WAIT":Z(4);"RUN PRO.V" INITIALIZE 16384(768)1731060(4);"BLOAD HIRES CHAR"              ND17370!CY13"!CX40145!C6,X:7,2:768?!CX:YK!CVTVT2Q!C C6,X:7,2:768 CX$ C170406 CSOUND17370A CY13P CX4014c C6,X:7,2:768m CX:Yy CVTVT2 CG$G$(A128) lCL(G$) vCVT:L5:(A) {CSOUND17310 CX2012 C6,X:7,2:768 CX C17040!CSOU17180BSOUND17180$BY1102BX1256EC6,X:7,3:768MC:aCVT:5:" "k&CG$""v0C17040:CLL1DCG$(G$,L)NCVT:L6:" "XC17040bCG$G$(A128)lCL(G$)vCVT:L5:(A){CSOUND17310CX2012 @VT1@CENTER0@0hB HIRES INPUT ;rB1:VTG|B"===>"QBG$""aBA(16384)rBA12717040B16368,0BA14117320BA13617250BSOUND17120BX1205B6,X:7,2:768BBL(G$)BL117210BL110000:C1:L4:VTVT27:VT:1:(CURS$,C,1)g:KEY(16384):KEY128CC1L(CL):15080u8;16368,0{L;> CLEAR PART OF SCREEN >0>X0135>X,0X,190>X>CENTER0>VT1>t@ CLEAR ENTIRE SCREEN~@T. @SINCE THE OBJECT IS FALLING TOWARDS THE EARTH, THE VELOCITY IS NEGATIVE.":10000`j112670t1A$"@THAT IS CORRECT!":10000~1150001160001: PRESS ANY KEY :16368,0:VT22:CENTER0:CURS$"!/-\":A$"! PRESS ANY KEY":TI$1A(G$)$.1(VA).812660=81A0(VA).812640B1A$"@THAT IS NOT CORRECT. @THE CORRECT VALUE FOR THE FINAL VELOCITY IS:":10000L1A$(V)"M/SEC":10000V112670U`1A$"@YOU HAVE THE CORRECT MAGNITUDE, BUT YOUR DIRECTION IS INCORRECGRAVITY":10000-0A$"(-9.8 M/SEC )":1000090VTVT3W0A$" 2 ":10000c0VTVT10A$"INTO THE EQUATION:":100000A$"V = GT":100000150000160000A$"@WHAT IS THE FINAL VELOCITY???":100001170001160001VG000f016000Xp0A$"@WHAT IS THE FINAL VELOCITY (PRESS '@H' IF YOU NEED HELP)":10000cz017000n0160000(G$,1)"H"125700A$"@TO FIND THE FINAL VELOCITY, JUST SUBSTITUTE THE TIME":100000A$"("(TI)"SECONDS) AND":100000A$"THE ":10000' 0A$(TI)" SECONDS":100002*012350S40A$"@THAT IS CORRECT":10000^>015000iH016000R0A$"@NOW THAT YOU HAVE THE TIME IT TAKES TO FALL 1000M, FIND OUT WHAT THE FINAL VELOCITY WILL BE WHEN YOUR FRIEND HITS THE GROUND.":10000\015ECTIVELY":10000/15000&/16000`/A$"@NOW HOW LONG (IN SECONDS) WILL IT TAKE??":10000k/17000v/16000/T((21000G))/TI(T100)1000AN(G$) 0(TIAN).6123400A$"@SORRY, THAT'S NOT CORRECT. @THE CORRECT ANSWER IS::":10000N/VTVT10X/A$"S = 1/2 GT":10000<b/VTVT3Xl/A$" 2":10000dv/VTVT2/A$"FOR T, AND REPLACE S AND G WITH":10000/A$"1000M AND 9.8M/SEC":10000/VTVT3/A$" 2":10000/VTVT1/A$"RESPILL TAKE FOR YOUR FRIEND TO REACH THE GROUND.":10000@/15000K/16000/A$"@HOW LONG (IN SECONDS) WILL IT TAKE? (TYPE '@H' IF YOU NEED HELP)":10000&/170000/16000:/(G$,1)"H"12270 D/A$"@TO FIND THE ANSWER, JUST SOLVE THE EQUATIONDIDN'T LIKE. @ONE WAY OF GETTING RID OF HIM WOULD BE BY DROPPING HIM OFF OF A 1000M HIGH TOWER.":10000s,15000~,16500,. SECOND INTRODUCTION .VT1:WIDTH19.ANYKEY15.A$"@NOW THAT WE HAVE THE TOWER, LET'S COMPUTE THE TIME IT W0=t,A$"AND THE EQUATION FOR DISTANCE TRAVELLED IS:":10000J,CENTER1l,A$"S = 1/2 GT + VOT":10000x,VTVT3,A$" 2 ":10000,VTVT3,15000,16500h,A$"@TO BETTER EXPLAIN THIS, IMAGINE YOU HAD A FRIEND THAT YOU OND ":10000$,VTVT3<.,A$" 2":10000Q8,VTVT1:CENTER0B,A$"@THE VELOCITY AND DISTANCE TRAVELLED ARE NOT CONSTANT, HOWEVER.":10000L,A$"@THE EQUATION FOR VELOCITY IS:":10000V,CENTER1`,A$"V = GT":10000j,CENTER ACCELERATION OF THE OBJECT REMAINS CONSTANT, AND IS EQUAL TO THE GRAVITATION OF THE PLANET ON WHICH IT OCCURS.":10000+15000,16500,A$"@FOR EXAMPLE, ON @EARTH, THE ACCELERATION IS ALWAYS EQUAL TO:":10000,CENTER1 ,A$"-9.8 METERS/SEC+CENTER1#+A$"@FREEFALL":10000O+A$"@WRITTEN BY @LARRY @SELTZER":10000[+VTVT1h+CENTER0+A$"@FREEFALL IS A CONDITION IN WHICH THE ONLY FORCE ACTING ON AN OBJECT IS THE FORCE OF GRAVITY.":10000+VTVT1w+A$"@DURING FREEFALL, THE  +K1:K1K+KK32, +K23K23:EN18*+K1:16H4+" "S>+K:16cH+"FREEFALL"uM+SOUND11100R+6,K:7,10:768\+J1300:f+K1Kp+K211140z+J1300:+EN11030+J1500:J++16500+WIDTH40 (SOUND10450"(L$" "10450-(X12=(S(16336)D(Xg(L$" "L$"."L$","10450(FINISH20150(L$" .")75(L$",")(X1FINISH:X(J(" ";(CURRENT(VTVT2(* FIRST INTRODUCTION+:WRD$,K,1)"@"NLNL1 'K8 (SPACESNLWIDTH10280D (VTVT2K (1W (SPACE0n ((SPACESSPACESNL1v 2(VT <(J1LW F(LL32 P(L$(WRD$,J,1) Z(L$"@"L$"&"JJ1:LL064(L$"&"):10320 d(I(L$) n(I65I90LL0 x((ILL);"(A$,K,1)"@"II1 j'K* t'(40I)25 ~'10130< '1I 'SPACES0Z 'CURRENT1Lk 'KCURRENTL '(A$,K,1)" "ĂK 'WRD$(A$,CURRENT,KCURRENT) 'CURRENTK 'LW(WRD$):NLLW 'LW0SPACESSPACES1:10460 'K1(WRD$) '(1,3:X1,3 #X,2 #X+ #X25025429 #X,5X,29@ #XO #X271279] #X,5X,50d #Xw #0,191279,191} # ' LOWER CASE PRINTER '54,0:55,96 $'L(A$) .'VT 8'CENTER010120 B'I0 L'K1L V'II1 `'(A$,K,1)"&,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96K ^a (# SET UP SCREEN u 2#279,191260,30 <#210,30191,191 F#260,30191,191 P#279,191210,30 Z#140,0279,0 d#140,4279,4 n#X2781405 x#X1,1:X1,1 #X v8000' (4);"BLOAD MAN,A$7000"D (4);"BLOAD CHAR TABLE"a (4);"BLOAD HIRES CHAR"g n 3y G9.8 SOUND0  @ MUSICAL POKES J768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7E T776,240:777,8:778 7000: INITIALIZE,11000:INTRO 1?9000: SCREENT(12000:INTRO 2 `254,189l<55,158rFxPZ11d12nx"PLEASE WAIT"(4);"RUN FREEFALL II"X INITIALIZE b16384 l(768)173(786)967070          04507(FINISH20150(L$" .")75(L$",")J(X1FINISH:XQ(J[(" ";h(CURRENTt(VTVT2z(SPACESNL12(VT<(J1LW)F(LL32<P(L$(WRD$,J,1)mZ(L$"@"L$"&"JJ1:LL064(L$"&"):10320yd(I(L$)n(I65I90LL0x((ILL);(SOUND10450(L$" "10450(X12(S(16336)(X(L$" "L$"."L$","1URRENTL'(A$,K,1)" "ĂK@'WRD$(A$,CURRENT,KCURRENT)N'CURRENTKc'LW(WRD$):NLLW'LW0SPACESSPACES1:10460'K1(WRD$)'(WRD$,K,1)"@"NLNL1'K(SPACESNLWIDTH10280 (VTVT2(1(SPACE0 ((SPACESel.: 0"@$SCREENJ$5' LOWER CASE PRINTER F'54,0:55,96R$'L(A$)Z.'VTn8'CENTER010120vB'I0L'K1LV'II1`'(A$,K,1)"&"(A$,K,1)"@"II1j'Kt'(40I)2~'10130'1'SPACES0'CURRENT1L'KC#X2781405##X1,1:X1,15#X1,3:X1,3>#X,2E#XV#X2502542d#X,5X,29k#Xz#X271279#X,5X,50#X$0,191279,191$1:5$54,0:55,96$"Time: 0""$"Height: 1000",$"Veloc.: 0"6$"Acc:782,6:783,76:784,0:785,03:786,96,^B(# SET UP SCREEN R2#SCREEN12h<#SCREEN9030,9040zF#230,32:9050P#230,64:9050Z#279,191260,30d#210,30191,191n#260,30191,191x#279,191210,30#140,0279,0#140,4279,42!C6,X:7,2:768!CX'!C170409!CSOUND17370D!CY13S!CX4014f!C6,X:7,2:768p!CX:Y|!CVTVT2!CSL117180 BSOUND17180' BY1105 BX1256H C6,X:7,3:768P C:d CVT:5:" "n &CG$""y 0C17040 :CLL1 DCG$(G$,L) NCVT:L5:" " XC17040 bCG$G$(A128) lCL(G$) vCVT:L4:(A) {CSOUND17310!CX20114C6,X:7,2:768"CX:Y.CVTVT24CXDC17040VCSOUND17370aCY13pCX4014C6,X:7,2:768CX:YCVTVT2C250BSOUND17120BX1205B6,X:7,2:768BBL(G$)BL117210 B014D6,Z:7,2:768!D:-DVTVT23E.DCG$(G$,L)VNCVT:L5:" "aXC17040tbCG$G$(A128)lCL(G$)vCVT:L4:(A){CSOUND17310CX2012C6,X:7,2:768CXC17040CSOUND17370CY13CX40DS117510(RD(A$)48(A$)5717510A\DVT1:HT:A$:17520QfDVT:HT:A$`pDUC1UC0rzDSOUND17570DZ2012D6,Z:7,2:768DD17060DUCUC1:UC3UC0D17060DVT:HT1:" "DSOUND17660DY13DZ4C17060CLL1 CG$(G$,L)+CHTL4?CVT:HT1:" "TCVT1:HT1:" "_C17060kCAA128CA64A9117420CA$(A)D17430 DA$(A3232(UC0))DG$G$A$ DL(G$)*DHTL44DSUB017510>DA$"+"A$"-"S1 H1:SOUND2SOUND0B17060/CA13617380ACSOUND17210OCZ1205b&C6,Z:7,2:768h0Ct:CL(G$)DCL117320NCL117290XCSOUND17290bCY110lCZ1256vC6,Z:7,3:768C:CVT:5:" "CG$"":HT4(CL):15050::1:,hB HIRES INPUT :rB16368,0E|B1:VTQB"===>"ZBHT4dBG$""tBA(16384)BVT:HT1:" "BVT:HT1:(95)BA12717060B16368,0BA14117600BA15517580BA14717160BSOUNDSOUND#X,Y#X#T$:"^$''(h$:lr$ 173,48,192,136,208,4,198,7,240,8,202,208,246,166,6,76,0,3,96: PRESS ANY KEY :16368,0:CU$"!/-\":24:"! press any key":C1:L4:24:1:(CU$,C,1) :KEY(16384):KEY128CC1LJ(16336)d6240j.(# INITIALIZE 92#16384O<#(24576)729050lF#(4);"BLOAD HIRES CHAR"P#(4);"BLOAD CHAR TABLE"Z#VT1:SOUND0:CENTER0:WIDTH40d#G9.8n#x#XS3:YS3#TR$(0)"OFF":TR$(1)"ON"#X768786#YHTXXSD5Y183HYS/X2796230>TR16180E0PX1,Y1_H06230mY06220t3}X,Y6210$Y06210.X,Y8H06230BX1X:Y1YL6040V16368,0`(16384)1606250 bSS1:S5S0:z # ΠƠԠ Ҡ à٠ ̠ɠ ̠ɠ ӠҠ!Π Ϯ֠""ϮɠϮ֠ àΠӠ   ՠ!ҠŠ  Š Ϡ ٠Ӻ    Ӻ  Ġ٠  ŪϠؠĠȠ   Ӡ  INIT HELLO,D1,V";NU, n(4);"DELETE HELLO"< x"FINISHED"Y }"INIT ANOTHER DISK ";Y$i ~Y$"Y"ī20 (4);"BRUN FILER,D2"D ;"PUT DISK TO BE INITIALIZED IN DRIVE 1!":::Q"DISK NAME ";DN$dI(DN$)112t(DN$DN$" "{2I<"DISK NUMBER ";NUFI1211PA45998IQB13IRC$(DN$,B,1)SC(C$)TCC128UA,CZI d(4);" / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00           àà L1H /Ѽhh`hЅ hiԄ8ҍӍh`H}Xߥ҅ީh LԦ}hҍ` ǠҠÍǠԠÍϠٮɆ0&⽌H}X L֠ $Ȅф(0PLhhLԩՠԑihL. ۄکڍ ȱڍ `H`ߠ h  .L`,0,0I,0`h hhLh t Lh L hi#Lh)ʽhʽhȄф L Ph0G  @hh0 RHHXhЮ$0lp  :HL HLlh 8ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩhҩ Ȍ   139 tI u(J); xIL yJJ1:J143Ė13:12::"PRESS ANY KEY":V z:86l {J2((J2))0Ğt 85 I2311 40 I (J); I &I3911 01 :I D(J); NI XI224 b1 lI v(J); IT$"PHYSICS"V$"179"% -J06J30BI124IIz(" ";2I<1000F1:24P255U500:90VI1JWBUZZ(49200)XI:KEY(49152):KEY1281500YZ24 dI  hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  J?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LōϠؠĬԠŠ䮍ӠƠàΠō䬠㬠謠宠àΠōŠ򠳰堨ө宠$ 6:15:A7$! 6:16:A2$1 6:17:A2$A 6:18:AA$Q 6:19:A2$a 6:20:AB$q 6:21:A2$ 6:22:A1$  :6 12  "LOADING MENU"  (13)(4);"RUN CREDITS"9$A9$T$ I128NN1* A9$A9$" "1 IA A9$A9$"*"G W #6:3:A1$;f 76:4:A2$u K6:5:A9$ _6:6:A2$ s6:7:A8$ 6:8:A2$ 6:9:A2$ 6:10:A3$ 6:11:A2$ 6:12:A4$ 6:13:A5$ 6:14:A6H *"2 $A7$"* 84015 *"^ .A8$"* VOLUME # "V$" *" 3AA$"* MUSIC BY ELECTRIC DUET *" 8AB$"* MENU BY SOFTDISK MAGAZETTE *" GN(T$) [N1((28N)2) oA9$"*" I1N1:A9$A9$" " I AJ255ġ:1 < A1$"******************************"e A2$"* *" A3$"* PRESENTED BY *" A4$"* PANDORA SOFTWARE *" A5$"* PO BOX 590 *" A6$"* CLEARFIELD UTA39 tI u(J); xIJ yJJ1:J143Ė13:12::"PRESS ANY KEY":T z:86j {J2((J2))0Ğr 85 I2311 40 I (J); I &I3911 01 :I D(J); NI XI224 b1 lI v(J); I T$"TITLE"V$"XXX"# +J04J30@I124GIx(" ";2I<1000F1:24P255U500:90VI1JWBUZZ(49200)XI:KEY(49152):KEY1281680YZ24 dI1   eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3p-7%66ȵ6%$6666.-V$$?(66--'ȭ>66-?(-66?g$$(-56-V>?g,(-56-޾-66-%<?066.-166> -$$-v-$$<066. (66--<066n $$$066n $$$66-$$?066.-?66m  $*166. 2*5.#1$*-51%66-$$?N -$$2%-*%(--706-%6(-;r-$66-?-(->v-?->r-$?'-> $,.)>$r--??POXes%09@BMYep ,8GOVcqJ$$!l6V$$$V$$$u$< 6ȵs0%MM,. 666ȵ <1L W : : : :L L l݅ ,թ `eLz   "$&(*,.0246?EUep #0@GVenx'3= `/]- 44lLFSPWBZ=7J^r ` `  W L  W L l݅ ߠT'0'ȱȱ  ieȱi ]iɩ` B W󮍡ŠﺍōϠؠ䬠Ԡ宠󠤲Š宍󍤵뮍䮍䮠̠ӠčŠ宍򍤲ᠤ  򠤵䮍󮍡ŠǍﺍōϠؠ䬠Ԡ󮍍򠳰  嬠򠱠àΠŮ󮠠栳󮍍򍠠􍠠򍠠Íà򮠠纍ΠՍ卍纍Πɍ򺍍Π©ԩ󮍍堶ˍ䮠묠򮠠堶ˠԠǠӍ뮠宍㠨㠨ɩ堢宍ĠǡӍ󮠠 HHHȱ ȱi hhhIȱ` - J| -Jhhh,00,0N,0I@$NPp 0 00O P,0HHHLIpP L9L ` @ @ 0@(@ l$H$H$$H(H+069@90$6 6$6&6 6$6 6l+H(MlHHHHlHHHHl+H+H+-H+H$lHHHHlHHH+H$rHHHHr(H(H(+H(H$rHHHHrHHH(Hl+H+H++HHl+H+H+-H+H$lHHHHlHHH+H$` @ @  @ @   *%066.-6> -$<-2-$$<-(66- : -$$<66 6666-6>2v-$?666-$?2vȵ%66>66ȭ)-?--!$$*#6v-%$$vv d$66$$* :6*ȵ%166----$?066n -?r-?-0-566-066-$$<0vv.d$066.$$$pvM$d06.<0-5.-% $$$-366-(-666?g!$<*--)>?-%066.-$?2v-?2v-%$$:'2vȵ% $$d72*-$$?2:LINLLILI12:2115?;SLILI12:LI1LI1:2135Ag{V%183:S$" ":K$(KD):T$(S$PP$,9):T$,V%:T$S$T$(T$K$,3):PP$(S$T$,9):PP$,V%:K$:K$":"K$"/"įPP$,V%:1935K$(13)ı PP(PP$):MP(NL1)121:PP::"LOADING";::23::"OPEN"FI$:"READ"FI$:CO0400:LI$(CO):LI$(CO)"!"NLCO:CO400:XXNLCO:LI$(XX)""::NLNL1::"CLOSE":NL$(" "(((NL1)12)1),3)::TI$FI$:30,0:31,144:49232,0:49234,0:49239,0:49236DI,0:+LILI10:L3$,V%: KD96KDKD329I0:KD21KD70I1M'KD8KD66I2`;KD68ĭBKI3tOKD76ĭBKI4cKD27I5w(KD47)(KD58)I6KD83ĭMUI8KD77ĭMUI9KD72I7KD89I10KS,0:{(K$)24:1 INPUT REGISTRATION7KD(KB):KD1281495QKS,0:KDKD128:1535W PP$(" "((LI12)1),3):L1$B1$BK$(BK)B2$:L2$B3$" "MU$(MU):L3$B4$PP$" of "NL$" H)ardcopy":V%163:L1$,V%:V%V%10:L2$,V%:V%V%1LI(763)121:767,0:K$4LR0:1255:BKįW:BD#BKįB:W7V%3:TI$,V%:V%V%12:5:0,11279,11:I0:COLILI11:(LI$(CO),4)"@DOS"įLI$(CO),V%:V%V%12:1455:DIPGI1I0:DIPG:1815KICOLI11_CO:I1415s1515:LRI5 o875L (13)(4)"OPEN FEATURES11":(13)(4)"READ FEATURES11":A0o F$(A):F$(A)"!"AA1:1175 :"CLOSE":AA1: B17:5:B24:BP(A)ĺB" "F$(BP);:LB 868::20:8:"": 230,PG3232:49168,0:(767)128:MUMU:1515 I10DD$(0)(4)::767,128:766,FF:765,P7:764,VK:763,LI12:COLILI11:PF(LI$(CO),4)"@DOS":(DD$,PF1);(LI$(CO),5550PF): MUįP:(KB)128Ĺ30,0:31,144:1055 3MUĵKB,128 GKD(KB)128:KD0İ1535 [I10563900 "";:6156 LI1:1775:MUĹ30,0:31,144F /1255:1815P C1275] WI1055q kI1İ1835:835 I2İ1875:835 I3ĭBKBK0:835 I4ĭBKBK1:835 I5275 I6İ1915:835 I7İ2035:835 (I8)(I9)İ1515  ' ;:: O1215) S5:16L gK$:21:5:(K$)Lĺ"";:615n K$"5"ĺ(13)(4)"RUN MENU"{ VK(K$) K$"F"K$(21)ĭP7(A)PP7:1215:615 K$"B"K$(8)ĭPPP7:1215:615 (K$)FI$F$(P(K$)):795 K$(27)PG0:KB49152:KS49168:BK$(1):BK$(0)"L)ight":BK$(1)"D)ark":B1$" to quit Select ":B2$"":B4$"Page ":B3$"F)wd --> <-- B)ack":MU$(1):MU$(0)"M)usic":MU$(1)"S)ilence" 1455:DIPGI1I0:DIPG:1815 BK1:F$(40),LI$(400):1155 P HELLO7U::6:12:"LOADING MENU":KZ:(4)"NOMONC"js16384:"BRUN LOWER TEXT""BLOAD PLAYER":MU1::"BLOAD LOWER MUSIC,A$9000"FF(766):36864FF49FF0R(5):CO04:R(CO)(768)R: 216,0:S:1:0:    ͠ӠӍàΠōŠǍ̠ӠčԠǠӍӠΠŠӍ 򮍍占󩍠퍠宍ܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m       *"ZIP ";ZI$'\+"REGISTRATION # ";RE$?+(4)"OPEN REG,L50"W$,(4)"WRITE REG,R1"y,NA$:AD$:CI$:ST$:ZI$:RE$,(4)"CLOSE REG"P-(4)"RUN RESTART":"EXEC STASH HI" PERSONAL REGISTRATION IDENTIFICATION FOR THOSE WHO HAVE PURCHASED THE PROGRAMFROM PEAK SOFTWARE."q<(("TO INPUT YOUR REGISTRATION TYPE Y ";:Y$)Y$"Y"ī275h):"NAME ";NA$)"ADDRESS ";AD$0*"CITY ";CI$*"STATE ";ST$ PR#0" /YCLP$" Last page":V%3:LP$,V%:2155:"";:WLP$" First page":V%3:LP$,V%:2155:"";:kFW1400::' INPUT REGISTRATIONt'k'"THIS ROUTINE IS USED TO ADD YOUR MPPP(MP)&LIPP1211:LI1LI1,W:M$"Turn on your printer and press ":V%90:M$,V%:V%V%14:M$" Press any key to interrupt":M$,V%:K$:K$(13)2095:"PR#1":CO1NL:LI$(CO):(KB)127ĹKS,0:CONL:2075::"3:T$A$(A) 23:D$T$A$(A)( TT$""7 I1211I TT(45998I)_ TT$TT$(TT128)f Il r  NAME$(105),A$(105),T(105) "X138:B$B$"=": ,X10511:NAME$(X)B$: 6NAME$(0)(B$,19) @D$(4) E12:12::"READINX96İ30:2000 L40 ( MAXX7 85:34,22E 23:958 "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  2T105! (NA$(N),8,1)"^"2000D (NA$(N),8,1)"="N105:2000N XX1g A$(X)(NA$(N),8,30) T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 B;::TI$:% F20:22:20:34,2:3:A P33,21:32,19:2:1::] U33,40:32,0:23:1:: Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 NS8(ST6UVk,ȱk-`),-`@V1PTI$"TITLE"YST1n ::3000:63000Y140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1 A"PANDORA SOFTWARE ";::"VOLUME ";V;::"-" T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `SO ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTG CATALOG"::12:29 Y630757 ^2054:D$"CATALOG"X c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!": |:1000 1:" 80N":0,63998:0V)32,00233,112,16302,033:0A1LG9.8YY1(1)26fY1(2)26l@ MUSICAL POKESJ768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7&T776,240:777,8:778,202:779,208:780,246:781,1660SCREEN4410,4420):16300,0:44307D16299,0FNJ17502YX6,J:7,2:768`bJflyX INITIALIZE b(768)173(786)967060l8000v(4);"BLOAD MAN,A$7000"(4);"BLOAD CHAR TABLE"(4);"BLOAD HIRES CHAR"2429016300,0:4300&16299,0MSCREENSCREEN1:SCREEN3SCREEN1cSCREEN4320,4330u230,32:4340230,64:43401150,191145,191155,191130,190162,190143,189158,189147,188154,188&149,187152,1870,0:4170@16299,0>JSCREENSCREEN1:SCREEN3SCREEN1TTSCREEN4190,4200f^230,32:4210xh230,64:4210r1150,Y1(SCREEN)|1150,0143,190157,190146,189153,189147,188152,1886,15:7,1:768SCREEN4280,0 "(10:(T1G100.5)100;" "/XVSCREENSCREEN1:SCREEN3SCREEN1lSCREEN4080,4090~230,32:4100230,64:41001150,Y1(SCREEN)1150,191145,190155,190"149,189151,190,SCREEN4150,4160 616306N SCREEN3160,3170+X 16300,0:31809b 16299,0El J110Vv SO(16336)] Jd Ij w PLOP X12X4007,4008230,32:4010230,6454,0:55,96T1(2SG)5:10:(T1100.5)100;" "10:"REENSCREEN1:SCREEN3SCREEN16 SCREEN3040,3050H 230,32:3060Z 230,64:3060a 0 X(SCREEN)5,6X(SCREEN),12  X(SCREEN)5,6X(SCREEN)5,6  1X(SCREEN),26  3 & 1150,26 0 145,6146,12 : 155,6154,12D 145,6155,X(SCREEN)5,6X(SCREEN),12< >X(SCREEN)5,6X(SCREEN)5,6P H1X(SCREEN),26W R3g \X5,6X,12y fX5,6X5,6 p1X,26 zSCREEN2180,2190 16300,0:2200 16299,0 X(SCREEN)X X  RELEASE MAN I12 SC,0 EN11020 1  MOVE TO POSITION > SCREEN0E 3[ X(1)200:X(2)200m X2401502 SO(16336)(16336)(16336) SCREENSCREEN1:SCREEN3SCREEN1 SCREEN2070,2080 230,32:2090 230,64:2090 *0 4 VY(1000S).164190. `1150,Y1(SCREEN); j1150,YL tY1(SCREEN)Y] u54,0:55,96g v5:1x w10:T;" " x10:((1000S)100.5)100;" " y10:(GT100.5)100;" " z10:G ~SCREEN1160,1170 16300,0:1180 16299130 x110* (4);"RUN PHYSICS.MENU"0 A  DROP MAN N EN0:T0Z TT.28o 6,T4:7,2:768 SCREENSCREEN1 SCREEN3SCREEN1 $SCREEN1070,1080 .230,32:1090 8230,64:1090 BS12GT2 LS1000S1000:EN1{ 7000: INITIALIZE+9000: SCREEN@(2000: POSITIONT23000: RELEASEe<1000: FALLvF4000:PLOP PVT12:CENTER0:WIDTH17ZA$"PRESS THE SPACE BAR TO RETURN TO THE MAIN PHYSICS MENU":10000d54,189:55,158 n(16384)160   $ 11:11:A2$# 11:12:A2$4 11:13:A3$E 11:14:A2$V 11:15:A4$g 11:16:A5$x (11:17:A6$ 211:18:A7$ <11:19:A2$ F11:20:A1$ P (13)(4);"RUN MENU"7EV$" *" 8N(T$)' BN1((17N)2)3 LA9$"*"K VI1N1:A9$A9$" "R WIa `A9$A9$T$r jI117NN1 tA9$A9$" " ~I A9$A9$"*"  11:5:A1$; 11:6:A2$ 11:7:A9$ 11:8:A2$ 11:9:A8$ 11:10:A2 J255ġ:1 3 A1$"*******************"Q A2$"* *"o A3$"* PRESENTED BY *" A4$"*PANDORA SOFTWARE*" A5$"* PO BOX 590 *" A6$"* CLEARFIELD UTAH *" $A7$"* 84015 *" .A8$"* VOLUME # "SHOULD PRESS THE SPACE BAR TO RETURN"; :"TO THE MENU."F 12000LjA$"RUN A PROGRAM":10000:"THE FOLLOWING PROGRAMS ARE AVAILABLE:"X14X". ";NM$(X)X"PLEASE ENTER THE NUMBER OF THE PROGRAM":THE FIRST TIME." 11000! 6 A$NM$(X):10000g :"WHEN THE COMPUTER HAS FINISHED PLOTTING" :"THE PROJECTILE, YOU WILL HEAR A CLICKING" "SOUND. THIS SOUND INDICATES THAT THE" :"COMPUTER HAS FINISHED PLOTTING, AND YOU"% :"100002Z :"TO USE THE PROGRAM, YOU MUST CHANGE"cd :"THE FIRST TWO PARAMETERS, WHICH ARE THE"n :"ANGLE OF INCLINATION, AND THE INITIAL"x :"VELOCITY. THIS IS BECAUSE THEY BOTH" :"ARE EQUAL TO ZERO WHEN THE PROGRAM IS" :"RUN FOR YOU RUN THE PROGRAM, YOU WILL SEE"RR :"A LIST OF PARAMETERS DEALING WITH THE"S :"PROJECTILE. TO CHANGE A PARAMETER,"T :"TYPE IN THE NUMBER OF THE PARAMETER,"U :"RETURN, THE CORRECTION, AND RETURN AGAIN"V 11000W X A$NM$(X):"). :"PROJECTILE PLOTTER WILL BE RUN"@8 :"AUTOMATICALLY"KB 12000U( :X4x2 A$"PROJECTILE PLOTTER":10000< :"THIS PROGRAM ALLOWS YOU TO ENTER SOME"F :"DATA ABOUT A PROJECTILE AND SEE IT"P :"PLOTTED ON THE SCREEN."#Q :"WHEN:"WHEN YOU ARE ASKED TO ENTER AN ANSWER,"]:"PLEASE ENTER YOUR ANSWER AND THEN PRESS":"RETURN TO ALLOW THE COMPUTER TO ACCEPT":"IT. 11000  A$"PROJECTILE MOTION TUTORIAL":10000$ :"WHEN THE TUTORIAL IS FINISHED, THEORIAL":10000=:"VERY LITTLE HAS TO BE DONE DURING THIS"l:"PROGRAM. WHENEVER THE SCREEN BECOMES":"FULL WITH WRITING, YOU WILL BE ASKED TO":"PRESS ANY KEY. YOU CAN PRESS ANY KEY":"EXCEPT THE RESET, SHIFT, OR CTRL KEYS.",EY ARE:/:"1. PROJECTILE MOTION TUTORIAL"O:"2. PROJECTILE PLOTTER"} :"WHICH WOULD YOU LIKE INFORMATION ON?"15:"===>" 15:5:A$*A(A$)4A12200>A22600H(7)R2080:X3 A$"PROJECTILE MOTION TUTION.")::"JUST SIT BACK AND ENJOY."V::"WHEN IT IS OVER, THE PROGRAM WILL"w:"RETURN TO THE MAIN MENU"12000A$"PROJECTILE MOTION":10000:"THE PROJECTILE MOTION DEMONSTRATION IS":"BROKEN UP INTO TWO PARTS. THUTORIAL":10000: 6:"WHEN THE PROGRAM IS FINISHED, THE"f @:"FREEFALL DEMONSTRATION WILL BE RUN"~ J:"AUTOMATICALLY." T12000 :X2 A$"FREEFALL DEMONSTRATION":10000 :"NOTHING AT ALL HAS TO BE DONE DURING":"THIS DEMONSTRATY EXCEPT THE RESET, SHIFT,"2 :"OR CTRL KEYS."b :"WHEN YOU ARE ASKED TO ENTER AN ANSWER," :"PLEASE ENTER YOUR ANSWER AND PRESS THE" :"RETURN KEY TO ALLOW THE COMPUTER TO" :"ACCEPT YOUR ANSWER." 11000 " ,A$"FREEFALL T1080 :X11 A$"FREEFALL TUTORIAL":10000` :"VERY LITTLE HAS TO BE DONE DURING THE" :"RUN OF THIS PROGRAM. WHENEVER THE" :"SCREEN BECOMES FULL WITH WRITING, YOU" :"WILL BE ASKED TO PRESS ANY KEY. YOU CAN" "PRESS ANY KEO PARTS TO THE FREEFALL"5 :"PROGRAM. THEY ARE:"T :"1. FREEFALL TUTORIAL"y :"2. FREEFALL DEMONSTRATION." $::"WHICH WOULD YOU LIKE INFORMATION ON?" .15:"===>"; 815:5:A$:A$ BA(A$) LA11500 VA21700 `(7):E NUMBER OF THE TOPIC"F Q:"THAT YOU WOULD LIKE HELP ON, OR 'R' TO"^ R:"RUN A PROGRAM."n Z19:"===>" _19:5:A$:A$ `A$"R"4000 dA(A$) nA11000 xA22000 (7) 95  A$"FREEFALL":10000 :"THERE ARE TWg X14NM$(X),P$(X)%X7 ::16368,0TA$"INSTRUCTIONS":10000(:"THERE ARE TWO DIFFERENT PROGRAMS IN"2:"THIS PHYSICS DEMONSTRATION. THEY ARE:"<:"1. FREEFALL"F:"2. PROJECTILE MOTION" P::"PLEASE ENTER TH      1000017000"G$"H"5100MA$"@NO HINTS ON THIS PROBLEM!":10000X17000c:VT1(G$,8)"IT WON'T"5190(G$,11)"IT WILL NOT"5190 (G$,13)"IT WILL NEVER"5190(G$,5)"NEVER"5190(G$,10)"AT NO TIME"5190T TA$"@NOW LET'S EXAMINE THE HORIZONTAL COMPONENT OF PROJECTILE MOTION.":10000iCENTER1:VTVT1A$"PROBLEM 2":10000CENTER0A$"@A SPACESHIP IS TRAVELLING AT 1000 M/SEC IN A FRICTIONLESS ENVIRONMENT. @AT WHAT TIME WILL IT STOP?":V0)GS12GTTV0T.S(S10.5)10C(SAN).64410oA$"@SORRY, THAT'S NOT CORRECT.":10000&A$"@THE CORRECT ANSWER IS "(S)" METERS.":1000004420:A$"@THAT IS CORRECT!!":10000D15000N HORIZONTAL COMPONEN+ V T":10000 VTVT39 A$" 2 ":10000Y A$" O ":10000f CENTER0 A$"@HOW HIGH (IN METERS) DOES THE BALL GET WITH AN INITIAL VELOCITY OF "(V0)" M/SEC?":10000 17000 :VT1 AN(G$) V0T(VZERO AT THE HIGHEST POINT.":10000^ hA$"@USE THE EQUATION: V=GT+VO AND SOLVE FOR T.":10000 rA$"@THIS IS THE TIME AT WHICH THE BALL REACHES ITS HIGHEST POINT.":10000 |A$"@NOW SUBSTITUTE INTO THE EQUATION:":10000 CENTER1 A$"S=1/2 GT T BEGINS TO FALL BACK TOWARDS THE @EARTH?":10000= ,VTVT1z 6A$"@ENTER YOUR ANSWER OR '@H' IF YOU NEED HELP.":10000 @17000 J(G$,1)"H"4310 T:VT1" ^A$"@TO COMPUTE THE ANSWER TO THIS PROBLEM, FIRST USE THE FACT THAT THE VELOCITY IS VERY SIMPLE PROBLEM.":10000' 15000@ V0(((8)10)1)10M CENTER1h A$"@PROBLEM 1":10000u CENTER01 "A$"@A TENNIS BALL IS THROWN DIRECTLY UPWARDS WITH AN INITIAL VELOCITY OF "(V0)" M/SEC. @HOW HIGH (IN METERS) WILL IT GET BEFORE IE SAME TIME TO GO UP AS IT DID TO GO DOWN.":10000 A$"2. @THE VELOCITY CHANGED FROM POSITIVE TO NEGATIVE AT THE HIGHEST POINT (IT WAS ACTUALLY ZERO AT THIS POINT)." 10000:VTVT1 A$"@NOW LET'S USE THESE TWO FACTS TO COMPUTE THE ANSWER TO A $  900040005000)(6000327000=<8000GF8200[P54,189:55,158rZ(4);"RUN PRO.VI" EXPLANATION A$"@SOME THINGS YOU SHOULD HAVE NOTICED IN THIS EXAMPLE ARE:":10000VTVT12 A$"1. @THE BALL TOOK TH           !!! ! ! ! ! !`H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`  ,FREEFALL DEMONSTRATION,FREEFALL IIe: PROJECTILE MOTION TUTORIAL,PRO.IV,PROJECTILE PLOTTER,PRO.VI X:11040 4+/.::"TO RUN THE ";NM$(X);","a.:"PRESS 'R'. TO GO BACK TO THE MAIN MENU,"|."PRESS ANY OTHER KEY".A$.A$"R"10..13/"NOW RUNNING THE PROGRAM"/(13);(4);"RUN";P$(X)#: FREEFALL TUTORIAL,FREEFALL I"THAT YOU WANT TO RUN."'18:"===>":18:5:A$:A$F"X(A$)V,X1X410a612020m'L(A$)'(40L)2);A$$'Y1L.'(40L)2Y1:"-";8'='B'*24+ +"PRESS THE SPACE BAR";+ +A$*+A$" "ĺ(7)0:VV(VV10.5)10 !TT.054 !H12GTTVVT? !DVHTK !X3D5Y !Y183H3h !TR18720o !0z !X1,Y1 !H08760 !3 !X,Y !8740 "H08760 "H08760 "X,Y $"X1X:Y1Y ."8590 8" (# INITIALIZE !2VH:D(D10.5)10l X5D30v Y1832010? X,YX,Y5F YU TR0:8500d TR1:8500j }4! THROW BALL >!T0:X10:Y10H!3R!5,183\!V030f!AN45p!ANAN3.141592653180z!VHV0(AN):VVV0(AN) !VH(VH10.5)1X12Y5(Y5)X111Y10(Y10)X10K5,183Y3X1,183Y3RYXy CONTROL THROWING OF BALL  TR0:8500 T(0VV)G:T(T10.5)10& S12GTTVVT0 Y183S3: 3D X526510N X,YX5,YX Xb DTON OF THIS MOTION. @NOTICE HOW IT CONFORMS TO OUR INFORMATION.":10000R15000Xl@ SET UP GRID sJ3T5,05,183279,183^X091hY1187rX5(X5)Y1189|X10(X10)Y1191X35,183X35,Y1XY060A$"S = V T":10000"VTVT1:A$" H ":10000GCENTER0RSVHTA$"WE FIND THAT AT "(T)" SECONDS, THE BALL HAS TRAVELLED "(S)" METERS. @THIS IS THE ANSWER TO THE SECOND PART.":10000VTVT1GA$"@HERE IS A DEMONSTRATI@SINCE IT TAKES "(T)" SECONDS TO GO UP, IT MUST ALSO TAKE "(T)" SECONDS TO GO DOWN, SO IT WILL HIT THE GROUND AT "(T2)" SECONDS.":1000015000X SECOND PART OF PROBLEM bTT2lA$"@USING THE EQUATION:":10000vCENTER1 2 ":100005ZA$" V ":10000BdCENTER0WnS12GTTVVTkxS(S10.5)10A$"AND WE GET HEIGHT = "(S):10000A$"@THIS IS THE ANSWER TO THE FIRST PART.":10000VTVT1A$"@THE SECOND PART IS EASY NOW. 10000:CENTER0 CENTER0tA$"@THIS MEANS THAT AT "(T)" SECONDS, THE BALL IS AT ITS HIGHEST POINT.":1000015000(A$"@WE NOW INSERT THIS INTO THE EQUATION:":100002CENTER1<A$"S = 1/2 GT + V T":10000FVTVT3PA$" 10000CENTER1/A$"V = GT + V ":10000;VTVT1WA$" O":10000fT(0VV)GzT(T10.5)10CENTER0A$"@WHEN YOU INSERT THE DATA INTO THE EQUATION AND SOLVE FOR 'T', YOU GET:":10000CENTER1A$"T = "(T): "(TH)(2)" = "(VV):10000,tVTVT1f~A$" V"(" ",(A$)5):10000sCENTER0~15000A$"@TO FIND HOW HIGH THE BALL WILL RISE, WE USE THE FACT THAT THE VELOCITY IS ZERO AT THE HIGHEST POINT, AND THE EQUATION:":0VHV0(AN)!$VVV0(AN)7.VH(VH10.5)10M8VV(VV10.5)10ZBCENTER1LA$"V = "(V0)" X @C@O@S "(TH)(2)" = "(VH):10000VVTVT1`A$" H"(" ",(A$)5):10000 jA$"V = "(V0)" X @S@I@N10000VTVT1.A$" H O ":10000OA$"V = V @S@I@N @A":10000[VTVT1xA$" V O ":10000CENTER0A$"@WHEN WE PUT THE GIVEN INFORMATION INTO THESE FORMULAS, WE GET...":10000V030:TH45ANTH3.14159265318LL GET, AND HOW FAR AWAY WILL IT LAND.":10000915000A$"@FIRST, WE HAVE TO FIGURE OUT THE HORIZONTAL AND VERTICAL COMPONENTS FROM THE GIVEN DATA. @THE FORMULAS THAT HAVE TO BE USED TO DO THIS ARE:":10000CENTER1A$"V = V @C@O@S @A":RE IS A BRIEF DEMONSTRATION PROBLEM TO ILLUSTRATE HOW TO SOLVE PROJECTILE MOTION PROBLEMS.....":10000rVTVT1.A$"@A BALL IS FIRED FROM A CANNON WITH AN INITIAL VELOCITY OF 30 M/SEC AND AN ANGLE OF INCLINATION OF 45"(2)". @HOW HIGH WILL THE BA0 d5230nVTVT1xA$"@THIS IS WHY YOU WILL HAVE TO FIND THE TIME THAT A PARTICLE STOPS BY USING THE VERTICAL COMPONENT, AND THEN USING THAT TIME IN THE HORIZONTAL COMPONENT FORMULA.":1000015000p HORIZONTAL PROBLEM fzA$"@HE((G$)47(G$)5852102A$"@I CAN'T FIGURE OUT WHAT YOUR ANSWER IS, BUT THE CORRECT ANSWER IS THAT IT WILL NEVER STOP!":10000<5230FA$"@THAT'S CORRECT!":10000P5230ZA$"@THAT'S NOT CORRECT. @THE SPACESHIP WILL NEVER STOP.":1000(; !) )###'  . #<$)-2!  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>!!!!!,2:768(CX:Y(CVTVT2#(C040<(CSOUND17370G(CY13V(CX4014i(C6,X:7,2:768s(CX:Y(CVTVT2(C(C6,X:7,2:768(CX:Y(CVTVT2(C "'&CG$""'0C17040$':CLL13'DCG$(G$,L)E'NCVT:L5:" "P'XC17040c'bCG$G$(A128)o'lCL(G$)'vCVT:L4:(A)'{CSOUND17310'CX2012'C6,X:7,2:768'CX'C17040'CSOUND17370'CY13'CX4014(C6,X:76384)&BA12717040$&B16368,05&BA14117320G&BA13617250Y&BSOUND17120g&BX1205z&B6,X:7,2:768&B&BL(G$)&BL117210&BL117180&BSOUND17180&BY110&BX1256&C6,X:7,3:768&C:'CVT:5:" NY KEY %:16368,0*%:CU$"!/-\":VT24J%:A$"! PRESS ANY KEY":10000^%:VTVT2:C1:L4u%:VT:1:(CU$,C,1)%:KEY(16384):KEY128CC1L(CL):15050%::VT1:%hB HIRES INPUT %mB16368,0%rB1:VT%|B"===>"%BG$""&BA(1LL0$x((ILL);$$(SOUND104506$(L$" "10450A$(X12Q$(S(16336)X$(X{$(L$" "L$"."L$","10450$(FINISH20150(L$" .")75(L$",")$(X1FINISH:X$(J$(" ";$(CURRENT$(VTVT2$(%: PRESS AK1(WRD$))#'(WRD$,K,1)"@"NLNL10#'KL#(SPACESNLWIDTH10280X# (VTVT2_#(1k#(SPACE0#((SPACESSPACESNL1#2(VT#<(J1LW#F(LL32#P(L$(WRD$,J,1)#Z(L$"@"L$"&"JJ1:LL064(L$"&"):10320#d(I(L$)$n(I65I901)"`'(A$,K,1)"&"(A$,K,1)"@"II10"j'K>"t'(40I)2I"~'10130P"'1]"'SPACES0n"'CURRENT1L"'KCURRENTL"'(A$,K,1)" "ĂK"'WRD$(A$,CURRENT,KCURRENT)"'CURRENTK"'LW(WRD$):NLLW"'LW0SPACESSPACES1:10460 #'#16384!<#(24576)729050:!F#(4);"BLOAD HIRES CHAR"W!P#(4)"BLOAD CHAR TABLE"z!Z#VT1:SOUND0:CENTER0:WIDTH40!d#G9.8!n#!x#!' LOWER CASE PRINTER !'54,0:55,96!$'L(A$)!.'VT!8'CENTER010120!B'I0!L'K1L"V'II2795190(Y1831010*2X,YX,Y51<YDFDOT(3)05260QPDT2VH^ZX5DXSrdX5X2795260nY1831010xX,YX,Y5Yp THROW BALL zT0:X10:Y1035,183TT.05H12GTTVVTDVnes !THETAAN3.141592653180CVHV0(THETA):VVV0(THETA)RT(0VV)GgS12GTTVVTzDOT(1)05120Y183SYSY0Y18351203X526510X,YX5,YXDOT(2)05190 DTVHX5DXS X5X05,183279,183"X0(274XS)-Y1187DX5(X5)Y1189]X10(X10)Y1191wXXS5,183XXS5,Y1~XY0(183YS)X13Y5(Y5)X11"Y10(Y10)X10,5,183YYSX1,183YYS6Y@ dotted lil distance."36 "3. point where it hits ground.">@ J13KJ J3:35fT DOT(J)1ĺ"Yes":2920q^ "No "xh Jr VT10:17000| G$"G"2010 J(G$) DOT(J)DOT(J)12(DOT(J)1) 2880  SET UP GRID 35,on" :"the graph."! VT11, 170009 XS(G$)C 2010X TRTR12(TR1)b 2010k :1 "Where would you like the dotted lines?" "(press 'G' to Go back to menu)"" :"1. greatest height reached." , "2. midpoint of totaXS(G$).x XS0XS6XS(XS)Đ:VT1:2540> XS62790G :1t "Please enter a number to indicate the" :"maximum distance on the graph. When you" "divide 274 by this number, you will have" "the number of meters that will fit es are for the"> :"maximum distance that will fit on the"k :"screen. Which one would you like??"q  "1. 274m"( "2. 137m"2 "3. 92m"< "4. 68m"F "5. 54m"P "6. other"Z :"enter your choice"d VT16:17000n indicate the"> :"maximum height on the graph. When you"p :"divide 183 by this number, you will have" "the number of meters that will fit on" :"the graph." VT11 17000 YS(G$) 2010 :1 "The following choicike??"   "1. 183m"+$ "2. 91m":. "3. 61m"I8 "4. 45m"XB "5. 36m"iL "6. other"V :"enter your choice"` VT16:17000j YS(G$)t YS0YS6YS(YS)Đ:VT1:2280~ YS62530 :1 "Please enter a number tole of inclination." 17000+ AN(G$)8 Y1823j Y:" "q Y{ 2020 :1 "The following are choices for the" :"maximum height that will fit on the" :"graph. Which one would you l) pCH0CH92010E zCH2180,2230,2280,2540,2800,2820,2980,100S 18:VT20v "Enter new initial velocity." 17000 V0(G$) Y1823 Y:" " Y 2020 18:VT20 "Enter new ang/ :"4. max X (distance) ";(274XS);" "\ :"5. Trace mode ";TR$(TR);" "d :| *"6. Dotted lines" 4:"7. Graph projectile" >:"8. End and return to MAIN MENU" H:"Enter your choice." RVT20 \17000 fCH(G$n the computer's high resolution"2 :"screen."= 15000C 8[  GET INFORMATION a h 1y 54,0:55,96 "1. Initial velocity ";V0;"m/sec " :"2. Angle of inclin. ";AN;(2);" " :"3. max Y (height) ";(183YS);" ""can experiment with projectile motion"W :"with the use of this last part of the"i :"program." ::"It allows you to enter an initial" :"velocity and angle of inclination of a" :"projectile and see the path traced out"! :"o4  900010002000)(40003-5000=26000E<30Yd54,189:55,158vn(4);"RUN PHYSICS.MENU" FINAL WORDS 54,0:55,96:1"This is the end of the formal":"demonstration. If you would like, you"( :"" " " " " """""""""