8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 _&i"0 %r"s" (,) &t"u" ( %L'")0I0hx H( +b7 !6 'NULL.10(7 !6 )DATAMAKER7 !@.PART.THREE.REM%G[[TEMP;7 !k WIREL7 !MPOSTAL.RATES.2~7 !MPOSTAL.RATES.17 !MGRAINSk7 !RINGS7 !M&NULL.1;7 !iCOULOMBG7 !iT.VS.H7 !w.T.VS.D7 !w/DECAY7 !iSNELLo7 !u KEPLER.37 !2 *PART.THREE.[X6 FREE.FALL7 ! GALILEOV7 !i;D.VS.T7 !3STROBEq7 !u- V.VS.T7 !BOYLE7 ! \(PART.ONESv37 6. 'GA.FONTnb7 !a/IM.HIRES.1C00.0sc7 !]-INPUT.800.OBJv 7 !INPUT.IIPLUS}7 !!(PART.TWO47 7 GA7 ' "&PRODOS }<7 !& ,BASIC.SYSTEM((7 ! Ҩ'STARTUP=7 !" RELEASE?7 !RAM.LOADER@l7 !x'GA.LOGOB? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"  !"#$%&آ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112`8`8`*ݑ*ݙ*`}*`e`H)hJJO*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <*ȱ**ȱ**ȱ* k)* ) v)L(`L* )L0) k) L( k)L0)8e` ,$`ee` `* ** '*` :* * '*`hh M'i  ``) ]'(j21 [& \&!` (\&[&i\(\&]( (S&$ (,^&S& … (ŅL&JJJJ`Ϡ'8`S&h)hrȱȱȱȱ0]cȱeem*ȱ 2H22h2舌]&]&12H)M0 h10200I20h2 '`LE%12 `_'"L  <8# ȱ)ɀ  )' ` (Xp< @' )m''.''ЯӠֱЭԠŠҬîʎ1]&… (n^&Dž (\%T[&LD()8= (J 8'[&'\& ((ʎ1]&]&]&3223 h')L~&18]&"m11`YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X%& &&,&0`Š S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8. ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F >l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 hh@ihAiH(ؠȱ@JJJJq@)@-vȱ@Hȱ@Ah@M@c-e J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD c ް(`( C)CJJJlB #-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllIL/FHGI ҭtJsjHIHB>IZؙJJ W: ELyHIHI`JKJK`FHIG ( ZȢ؝Ur؈JLs)eKM`Z)` J NJbs $b0 bJFJL8`JGBJ P Zؑ@`M8`Z8@pؐʈIZ)Ns8NN tLy LZةC8`؍^)@ iZ)Nt8N^ysJ t^ ؅F Lo) +^%tJ(a *ZFإGؐ.` *tJHIH ۩ mmYٰNO`YJJJJ;i vYn vYٍnm0 Y k`H8`m m`nYٍqyٍoipB0Hn0oFpG h0`FG `ϩBxEDz0C ް(`(8`O `YٽJJJJ`dHYdhn)cNdjNdjNdjjNd.l CHqd v;dY٭n *jNlcۙ۰ڙک mm`Z8` C#llk k (`jkO .O .O .O8l۰*JNlܝ٭(ܝ`)َX X8ʈX` 0ٝ)i `}~8`YR dNOc vNYمFمG < d0 FGLYc0 ٭O٭Nٽ8\]`H8`  ,cN O 8dc` N E8`1ݒ00 Y Y0ʩ 谼 谷`12)1`0Y`ȎYi 0U`)8`΀`Y W xG 0A)H Yܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ȱH΀`b8eHI |SB0! YٙٙF"`ʈ d猂`8m0g`,0H hi PȽ΀hYٍ0GF8yאhFiG  $Y0 G01܅I `c$܍%&c d8D`F` ]lH)HFȍ"HG# $%܍`&܍a!ܢ8* J8` L ܝ)I 'ܝ`8bi&F$G%`b܅IH3H c( c )_# 밨%܈" T)Ii)܍&*܍'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`Ͷͷ)` H'` #Q'܅IHH''Ѝ'@`c8_ ``_ a% aQ8``ʈ@Eȱ@7ȱ@ACD:"L#M')5'I0ܢܽ =$'* 789FG ( Lv܅I& mIH` HE |E!0$% 'H"F#G 밳"N` G8`F@ 0 > cLK8` I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶 ܅I mIHHyHȘI Lܝ` @7@ ?@Ю׍')mי'i Y`ZC8` @ F3N@) G莅 ⭂i`0 Y; Yٝ٘ 0 W,}0 Y .H hȑNWȮ~ّN}W8`ٍّN΀0Nf׮Б` L` @>')I38f!g8h9iם`K8`@Nȱ@O@ FIiNȽבN)/ȩ/N`@[ WHJjjjZhA 'KI؍0JHhh8` Qx")T'P) ɺiL; {)?mn | { {  ~ `l@Hȱ@IױHXATffȱH ɯȩ׍f5H)/@a)_ .0 :A[8@`,ZFإG`BH PZFإG`,H ZhHB؅F  ؅GxDEZ؍0z0C ް(`(8` vL'J Z 6"L vH Z 6 Z9ؙ` @ P8`K8`Z[B8` Z ؈'JJJJحE) ) )_Ю ЪGZ8FZb $ ᭔ع+ؠr 2HZ  Zh8` Yٽ ٬Zؠ@`b_[[b (Z[  _ )8`)i п` H h)N$%Z,"x8 (8` ԍ`@ABe 2U,,CnZ1rIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠŪno` on 7I9XX`)HJJJh`OeNeO࿰ 79XАO`@ȭ@` ON NJKO`HхhILhH)܅F݅G ` X* O% L`L뮈 ܍ݍ8`FHGHe eܙhGhF`@Bɼ>K@J5 79X(K 7XXKZ تKo`V8`   ܮ `J HHZ hh` 0 @ L$L O[̌Tܝ ݝ0̌ȩF𸽚G  z 0` | ܅F݅G ` X Oͬ | 밽 LȹL@ȅH@IL,0` G _=\] YH.E)N 0 >89')@LP8` >箈 ܩ' v LYyٙ٭yٙ٩`K CE8F9G 6%&N ȹYP8` iY` %ם0 B %)( ȹ`8m8m@8` G8`F PE)@N8`')@J טyרם'')׍'89 밑 Ȣ؝rI؈ 2h(8H ( h(8Hh(`Zؑ@`@Zȱ@ ` B@8Z'\]Y dYٍ]ٍ\ٍGHٍF8\:h];'JJJJ')'@` %I -E) | 0@')N8` @LL =@ ؝R@rRrZ@ʈL, KIJHZȢrZrrs)tJn 8 ΌZ ؍ ؍ >H8Z ع)ꭉJJJJZ Z )߹0 )p )@ ) ȩ Z؝ 0"# 방 $%"#FG Z؍:؍;؝< ؝7 N') N' Z)ح!n v`H@h`h`Z`N8`  ) 1Ziع `  عiعi` )؍0CGHFHBFG ުhFhG`@4Z͔ L @AZi ׭2` .Z #Zع؍0 YY)`.@+Z Zi 8` L ؊ PLvEvʱNLMOstMEKP%vMEKvL$ Ost,ru PreNNO ,(` C  7 2tJNHIOHIZ؊ }LE  *` AZ HN ع HO ؙ؊ؠIhHIhH } Z`Z؝rU}NINؐ` fRؽU؝N f % f؝RN؈` Z` H  Ph)N@ 1; L  2$ )bJ\] Y ) H 4hL )  )حtJsjIOHINHZNO 8y ؍xrJLu`vRvʱLN1MOstMEKP/vMEKvL7L-yMx Ost,rpueNNO(`JNKOZL 2/ "P L8 y WZؑJ`L@uȱ@vZ `@Nȱ@Orusv LL L F L 2 "pvJw )@zNJOK 2iKKvvss ttIJw u vJФ̭tJsjHFIH zHIGzxKE ް((H hH h8`8u@ȭv@L2Z8NrԠҠLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LNLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D E  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ 8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿJJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL')*+,-./0123456789:;j>>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬh,PIN'ҍIxy /L6Ix y JpnoF /= plm /w)!,ZJYH)h****)  md8幙`\H[< h  /( 载쳼󩭙L/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VWS`޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` ` RUN PART.ONE FROM DISK Z:I: ONERR BUG FIX (SEE APPLE PRODOS PROGRAMMING MANUAL)h C 104,168,104,166,223,154,72,152,72,96 D(4);"BLOAD GA.LOGO" F16384,0:103,1:104,64 K(8)1ĺ(4);"EXEC RAM.LOADER":: LOAD BASIC INTO /RAM IF 128 K P(4);"RUN PART.ONE":<>RUN RELEASE": RELEASE MEMORY BUFFERS r ?(49048)176Ĺ8,1:66: INDICATES A 128 K MACHINE @(49048)128Ĺ8,2:66: FLAG TO INDICATE THE COMPUTER IS A II PLUS A8,0: UNLESS 128 K COMPUTER OR IIPLUS= BI09:ZZ:768I,Z9 GRAPHICAL ANALYSIS III PROGRAM GREETINGS PROGRAMN COPYRIGHT 1986e VERSION 12/31/86| VERNIER SOFTWARE( 2920 S.W. 89TH ST.2 PORTLAND, OREGON 97225< (503) 297-5317=:49234,0: DISPLAY PAGE ONE FULL SCREEN0 >(4);"BLLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,sLOAD PART.THREE SAVE /RAM/PART.THREE LOAD PART.TWO SAVE /RAM/PART.TWO LOAD PART.ONE SAVE /RAM/PART.ONE RUN 9  DDD"HHp@`pa000 |    x|0@`?*U*U*U*U*U"D~@C@a00xx?@ @|q ?pp@p@ 0@?xpp@~ | pDDD "G@``000  <   0@xj*U*U*U*U*U~L~@C@a00xx pp@p@? @`{pp@@ F p8 TO LEAVE ENTRY UNCHANGED":"ENTER 'D' TO DELETE A DATA PAIR""PRESS OR ENTER 'Q' TO EXIT":35,21:CFĹ35,195:P1ĺ"SERIES: ";PJNSJ;:(10):CFDF$(X(J)$(13)ı&rQ1NS:Q$L$(Q)SEQ-tQ6v356<xbYU:1:SE0ĝ:"YES ";::"NO":SE1Ğ:"YES";::" NO"YU:4:Q$:X(Q$):X27SE2:442X13ıQ$"Y"Q$"y"SE1:400Q$"N"Q$"n"SE0:400SE1SE:400Q27SE0:376 \Q13ī376. ^Q32ī364P `Q8Q11SESE1:SE0SENSz bQ21Q10Q32SESE1:SENS1SE1 dYUOS:XL:(L$(OS))2ĺL$(OS);"- ";S$(OS):362 hL$(OS);" - ";S$(OS) j330 l(SE4SE6SE8)Q$"M"SESE1:374 pQ"---------------------------------------":" TYPE LETTER OR USE THE ARROW KEYS":" THEN PRESS " JYUSE:XL::L$(SE);:(L$(SE))2ĝ:"- ";::S$(SE);::338 P:" - ";::S$(SE);: ROSSE:Q$:Q(Q$):Q96QQ32:Q$(Q) ZX2285" (DB)0DF$"":285M DF$"":I1(DB):DF$DF$((DBI)):S d ,YU18YU18t 0SENSSE1 2SE0SE1 4NSYU19NS19YU 6Q1NS:XL4:QYU:(L$(Q))2ĖXL:L$(Q);"- ";S$(Q):320 >XL:L$(Q);" - ";S$(Q)t @Q:20::.":180 RD$"D"180- CECDRO184W I1RO1(CECD):NM$NM$"0":I:184y (NM$)RO1NM$NM$"0":180 NU$SN$NM$NE$: GE:SB,WI%:SI:EX0:(DF$)0ī245 I1(DF$):DBI,((DF$,I,1)): DB,(DF$):RE:GE:EX(SB9):ERTUVWXYZ[\]^_`abcdefghijkl128 FCTTPWDE+ NU(NUFCHH)FCZ NU$(NU):CE1(NU$):(NU$,CE,1)"E"Ă} CD1CE1:(NU$,CD,1)"."Ă NE$(NU$,CE):NM$(NU$,CE1):CDCE177 RD$"D"NM$NM$".":I1RO:NM$NM$"0":I:184 (NM$)RO184 NM$NM$"  2000* " GRAPHICAL ANALYSIS III"B"VERNIER SOFTWARE"X"COPYRIGHT 1986"o("VERSION 1/22/87"dSN$" ":NUZZSN$"-":NU(NU)lNUZZ140nRD$"D"136pPW1:NU1128xNUPWPWPWTT:120|132 NUPWTTPWPWTT: @pqpp@@` pD FHH xgp~p?@s  @ pa`30p<  p ~@|q )"Q"(DF$,1)"q"597~LY(J)(DF$)::(DF$,1)"D"(DF$,1)"d"X(J)999.999:Y(J)999.999:" DATA PAIR DELETED"QJJ1:JNE536S599UDF$"Q"W34,0:35,24: :M$"TM"ĺ"LINE #";:10:HL$;:25:VL$:10:"(";HU$;")";:25:"(";VU$;")":830^%"LINE #";:10:(HM$,14);:25:(VM$,14):10:(HM$,15);:25:(VM$,15)>"**** ********** **********":@34,3:35,23:KB0:PPLPH:"SERIES ";P;":":N(P1)N(P)ĺ" EMPTY":915FJN(P1)1N(P):(KC)I N0Ģ20:7::"NO DATA TABLE IN MEMORY"::198:I11500:I:2270 SE12000,16000,5000,14000,14000,13000,13000,30000,30000,30000:2270 :!:"SELECT ROUNDING:"::"ENTER THE NUMBER OF SIGNIFICANT DIGITS":"TO BE USED IN ROUNDING OR"::"END DATA":L$(8)"N":S$(8)"NUMERICAL ANALYSIS":L$(9)"NM":S$(9)"NUMERICAL ANALYSIS/MODIFIED DATA":L$(10)"F":S$(10)"FILE OPTIONS":L$(11)"Q":S$(11)"QUIT":NS11:YU7:300::SE1162999 M$L$(SE):SE12000,2530,5000,2530,2530,2530,2530,2530,2530,300001)"I":S$(1)"INPUT NEW DATA":L$(2)"C":S$(2)"CHANGE DATA":L$(3)"R":S$(3)"SET ROUNDING":L$(4)"P":S$(4)"PLOT GRAPH":L$(5)"PM":S$(5)"PLOT GRAPH OF MODIFIED DATA":L$(6)"T":S$(6)"DISPLAY OR PRINT DATA TABLE":L$(7)"TM"/ S$(7)"DATA TABLE OF MODIFIESE1D$;"FRE":" GRAPHICAL ANALYSIS III":" VERNIER SOFTWARE":" COPYRIGHT 1986"::N$""(PF$)30Ė((32(PF$))2):"PREFIX: ";PF$:"FILE: ";N$; N$""ĺ"PREFIX: ";PF$;$ (36)30Ė(32):"ROUND: ";RO;RD$. :L$(56:DBIE512:IE:GE:D$;"BLOAD GA.FONT,A$1500":232,0:233,21:1:D$;"BLOAD IM.HIRES.1C00.0":X(513),Y(513):S$(11),L$(11):RO3:DE1000:LL(10):KP49168:KC49152:D$;"PREFIX":PF$:PS$PF$:N$"":22106000041859,7::KP,0:SE6:L$(1)"" /RAM":(9):"LOADING NECESSARY FILES...":CE0:CD0:NU0:RD$"S":PW0:D$(4):QM$(34):ZZ0:TT10:HH.5:WW2:RR57.29578:(8)2ĺ(4);"BLOAD INPUT.IIPLUS,A$800":2056(4);"BLOAD INPUT.800.OBJ,A$800"IE2048:GEIE3:SIIE6:REIE9:SBIE2CONSTANT TO AXIS VALUES"::"ENTER NUMBER TO BE ADDED: ":1257SE9ĺ"MULTIPLY THE AXIS VALUES BY A CONSTANT"::"ENTER NUMBER TO BE USED AS MULTIPLIER: ":1257DF$"":WI%13:200:EX21275::12:9:(8)1ĺ"PROGRAM LOADED INTOENT (TAN "I$")":L$(8)"+":S$(8)"PLUS A CONSTANT ("I$"+C)":L$(9)"*":S$(9)"TIMES A CONSTANT ("I$"*C)":YU6:NS9:SE1:300:(1):(16):958:SE2ĺ"RAISE AXIS VALUES TO A POWER"::"ENTER NUMBER TO BE USED AS THE POWER":1257@SE8ĺ"ADD A DIFICATION ("I$")":L$(2)"P":S$(2)"RAISE TO A POWER ("I$"^N)":L$(3)"L":S$(3)"LOG TO BASE E (LN "I$")":L$(4)"D":S$(4)"LOG TO BASE 10 (LOG "I$")":L$(5)"S"S$(5)"SINE (SIN "I$")":L$(6)"C":S$(6)"COSINE (COS "I$")":L$(7)"T":S$(7)"TANGVM(Y)(YRR):VM$"SIN "VL$:G,VM(Y)(YRR):VM$"COS "VL$:l0VM(Y)(YRR):VM$"TAN "VL$:4VM(Y)YYE:VM$VL$" + "(YE):8VM(Y)YYE:VM$VL$" * "(YE):<:"SELECT TYPE OF MODIFICATION:":QSE:L$(1)"N":S$(1)"NO MOHM(X)XXE:HM$HL$" + "(XE):LHM(X)XXE:HM$HL$" * "(XE):qVM(Y)Y:VM$VL$" ("VU$")":VM(Y)YYE:VM$VL$" TO THE POWER "(YE): VM(Y)(Y):VM$"LOG (BASE E) "VL$:$VM(Y)(Y)LL:VM$"LOG (BASE 10) "VL$:"(5HM(X)XXE:HM$HL$" TO THE POWER "(XE):`HM(X)(X):HM$"LOG (BASE E) "HL$:HM(X)(X)LL:HM$"LOG (BASE 10) "HL$:HM(X)(XRR):HM$"SIN "HL$:HM(X)(XRR):HM$"COS "HL$:HM(X)(XRR):HM$"TAN "HL$:% J P]D$;"PR#0":KP,0::"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX2930r34,0:35,24::HM1008,1012,1016,1020,1024,1028,1032,1036,1040:VM1048,1052,1056,1060,1064,1068,1072,1076,1080:1084HM(X)X:HM$HL$" ("HU$")":27(KC)1559229IPR0(37)22KB193KB225848tJ24:1::" PRESS , OR ";:LKB(KC):KP,0:KB160KB193KB27KB155KB225844N22:PJ;:(11):NUHM(X(J)):100:NU$;:(26):NUVM(Y(J)):100:NU$:TER A NUMBER FOLLOWED BY A ";QM$;"D";QM$;" TO":"SET THE NUMBER OF DIGITS TO THE RIGHT OF";:"THE DECIMAL POINT"::DF$(RO)RD$:WI%2:200!EX25060!RO(DF$):RD$(DF$,1):RD$"d"RD$"D""RO1RO8ĺ::"ROUNDING VALUE OUT OF RANGE":5010!"RD$"D"FCTT(1RO):5050-"RD$"S"J"DE1:I1RO:DE10DE:IT"2270y"."INPUT DATA:"::N0P1:12140".PB412060+#/"THERE ARE ALREADY 4 DATA SERIES. ENTER-":"ING DATA WILL ERASE ALL EXISTING DATA."::"PRESS TO EXIT OR :":::"HORIZ. LABEL: ";:DF$HL$:WI%13:200:EX216990}/[?HL$DF$::"HORIZ. UNITS: ";:DF$HU$:200:EX216990/e?HU$DF$::"VERTICAL LABEL: ";:DF$VL$:200:EX216990/o?VL$DF$::"VERTICAL UNITS: ";:DF$VU$:200:EX216990 0y?VU$DF$:$)DP))!.>NSN(0)NSN161079.?NEN(0)NEN16107X.?800:CF1:500:JN(0)1N.?X(J)999.999Y(J)999.99916160. ?IJN:X(I)X(I1):Y(I)Y(I1):I:I04:N(I)JN(I)N(I)1.?I:NN1:16135. ?J.>?C/H?:"CORRECT AND THEN PRESS :DF$"":WI%9:200.->EX2(DF$)016190[->DP0:CH1(DF$):(DF$,CH,1)"-"DPCH->CH:(DF$,1)"-"NSN(0)1:NE((DF$,(DF$)1)):16127->DP(DF$)NS(DF$):NEN:16127->DP0NS(DF$):NENS:16127 .>NS((DF$,DP)):NE((DF$,(DFE # NOT IN DATA TABLE; TRY AGAIN":->:"ENTER THE LINE NUMBER(S) TO BE EDITED."::"TO EDIT A SINGLE DATA PAIR, ENTER ITS":"LINE NUMBER AND PRESS ."::"TO EDIT A RANGE OF DATA, ENTER ":"THE FIRST LINE # - LAST LINE #":"AND PRESS .":"SORT DATA":L$(9)"T":S$(9)"DISPLAY DATA TABLE":L$(10)"X":S$(10)"RETURN TO MAIN MENU":SE10:YU5:NS10:300:SE10SE016990+>:SE16100,16100,16400,16500,16800,16200,16700,16300,16600:16000+>P0:SE1NSN(0)1:NEN:16131+>16108%,>"LIN)"I":S$(2)"EDIT INDIVIDUAL DATA PAIR(S)":L$(3)"D":S$(3)"DELETE DATA PAIR(S)":L$(4)"Z":S$(4)"DELETE A DATA SERIES":L$(5)"A":S$(5)"ADD NEW DATA TO TABLE"+>L$(6)"L":S$(6)"EDIT AXIS LABELS OR UNITS":L$(7)"E":S$(7)"EXCHANGE AXES":L$(8)"S":S$(8)PR)D4800:832)l42270Q)6(8)1Ĺ41859,3:D$;"CHAIN/RAM/PART.TWO,@20000")9"LOADING PART TWO OF THE PROGRAM..."::41859,3:D$;"CHAIN ";PS$;"PART.TWO,@20000"*>:"CHANGE DATA OPTIONS:"::"SELECT:":L$(1)"O":S$(1)"EDIT ENTIRE DATA TABLE":L$(2$:"AXIS UNITS: ";VU$:I$"Y":1200::SE013420F(3VMSE:YE(DF$)(31000:::"ENTER SLOT NUMBER OF PRINTER TO BE":"USED OR PRESS TO SEE THE":"DATA TABLE ON THE VIDEO MONITOR"::DF$"":WI%1:200:EX213420)04PR(DF$):PR0ĺD$;"PR#";SED:":DF$(PB):200:EX213420B'2PH(DF$):PH1PHPB13025',3:"HORIZONTAL AXIS DATA MODIFICATION:"::"AXIS LABEL: ";HL$:"AXIS UNITS: ";HU$:I$"X":1200:SE0134202(h3:HMSE:XE(DF$)::"VERTICAL AXIS DATA MODIFICATION:"::"AXIS LABEL: ";VL1)9999:Y(N1)9999:N(PB)N(&t12270P&2M$"T"HM1:VM1:PL1:PHPB:13280k&2PB1PL1:PH1:13100&2:"SELECT THE LOWEST SERIES TO BE USED:":DF$"1":WI%1:200:EX213420&2PL(DF$):PL1PLPB13023"'2:"SELECT THE HIGHEST SERIES TO BE U:EX212660h%f0HU$DF$:::"ENTER LABEL FOR VERTICAL AXIS DATA:"::" ";:DF$VL$:200:EX212660%0VL$DF$:::"ENTER UNITS FOR VERTICAL AXIS DATA:"::" ";:DF$VU$:200:EX212660%1VU$DF$&1HM1:VM1:1000:800:NE512:CF0:500:NJ1:X(N2660%$X/NSN1:PBPB1:PPB:12560$l/I04:N(I)0:I:NS1:PB1:P1:N0::"DATA INPUT:"::"ENTER LABEL FOR HORIZONTAL AXIS DATA:"::" ";:DF$HL$:WI%13:200:EX212660%0HL$DF$:::"ENTER UNITS FOR HORIZONTAL AXIS DATA:"::" ";:DF$HU$:200URN> TO":"CONTINUE ":Q$:Q$(27)126606#/12140#/:"SELECT: ":L$(1)"E":S$(1)"ERASE OLD DATA & START NEW TABLE":L$(2)"S":S$(2)"ADD DATA AS A NEW DATA SERIES":L$(3)"X":S$(3)"RETURN TO MAIN MENU":SE2:YU6:NS3:300:SE112140$:/SE3SE01351?Q116330Z1?:P:"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX216380`1?k1@164091@"LINE # NOT IN DATA TABLE; TRY AGAIN":2@:"ENTER THE LINE NUMBER(S) TO BE DELETED."::"TO DELETE A SINGLE DATA PAIR, ENTER ITS":"LINE NUMBER AND PRESS ."::"TO DELETE A RANGE OF DATA, ENTER ":"THE FIRST LINE # - LAST LINE #":"AND PRESS ."::DF$"":WI%9:2002@EX2(DF$)01649321@:DP0:CH1(DF$):(DF$,CH,1)"-"DPCH3:@CH:(DF$,1)"-"DLN(0)1:DH((DF$,)s)--ޛRI-*-ۓJ-*-ۓJM13--6ޛRI--.--ۓJ).-s-ےI-->mےI)s-s-ےI)s-ۓJJIJNڛRIIJMڛRIIےII??N??NۓJMڛRI)Nmopq--ےImwi:MےI .s-ےI 6SIڛRII6ےI6MڛRI ?--? ޛRI *-3ۓJ MڛRI--SۓJIћiڛRIIMےI)3 ;-ےII>6-ޛ >-ےId"4ES`l%6EXjz /As(:K]}!-<L\j$&(*,.02468:<>@BDFHJLNPRTVXZ\^` 6SiڛRIinJۓJi?? ?? ےI)ERROR ON LINE ";EL;" *"::J13000:J::768:EL2000ġD;2270u;:216,0:D$;"CLOSE":D$;"-";PS$;"RELEASE":"PART.THREE,@30000"s:`D$;"PR#0":EL(219)256(218):EC(222)::::"* ";:EC53ĺ"ILLEGAL QUANTITY";:60040:EC69ĺ"OVERFLOW";:60040:EC133ĺ"DIVISION BY ZERO";:60040:EC255ĺ"CONTROL C";:60040:"CODE  ";EC;:;" :DF$"Q"DF$"q"16880I9ANN1:IPPB:N(I)N(I)1:I:NSNS1:16848r9AINSN1:X(I)X(I1):Y(I)Y(I1):Ix9A9^B227090u:(8)1Ĺ41859,3:D$;"CHAIN/RAM/PART.THREE,@30000":v"LOADING PART THREE OF THE PROGRAM...":41859,3:D$;"CHAIN ";PS$;6840z8A:"ENTER NUMBER OF THE DATA SERIES TO WHICH";:"DATA IS TO BE ADDED (1-";PB;"):":DF$"":WI%1:200:EX2168848AP(DF$):P1PPBĺ:168128AHM1:VM1:1000:DF$""9A800:NSN(P)1:NENS:IN2NS11:X(I)X(I1):Y(I)Y(I1):I:CF0:500"":WI%1:200:EX216576"7@M7@PL1:PHPB:HM1:VM1:1000:800:832:7 TO CONTINUE ";:DF$E DATA? ":SE0:YU5:400:SE11657665y@P1:16532<5|@:5@:"ENTER NUMBER OF THE DATA SERIES TO BE":"DELETED (1-";PB;"):":DF$"":WI%1:200:EX2165765@P(DF$):P1PPBĺ:165125@DLN(P1)1:DHN(P):DLDH165606@N20ĺ:"DELETING DATA.1):I:I04:N(I)IIN(I)N(I)1a4X@I:NN1:II::DLDHĺ"DATA LINE #"DL" DELETED.":164904g@"DATA LINES ";DL" TO ";DH;" DELETED."4j@:"PRESS TO CONTINUE ";:"";Q$4m@4t@PB116508'5x@"ARE YOU SURE YOU WANT TO DELETE ALL":"OF TH(DF$)1)):1645733@@DP0DL(DF$):DHDL:16457X3C@DP(DF$)DL(DF$):DHN:164573F@DL((DF$,DP)):DH((DF$,(DF$)DP))3I@DLN(0)DLN164063L@DHN(0)DHN164063N@N20ĺ:"DELETING DATA..."$4O@IIDHDL1:IIIN:X(I)X(I1):Y(I)Y(ISۓJ)3 --ےI M1??n ޛRI-3-3-ۓJ)6-ޓII-3M13--3M13-ۓJ--.3--ޛRI--.3MےI)n)-ےIM13--n ޛRI)6-ےII16s-ےIM.nۓJ66-ۓJM17 n ޛRIM17 >n ޛRI)3M1s-ےI-3-nۓJ)3M1s-J-3-5n ޛRI)---ۓJ--6nڛRIM13M1s-ےIM13MۓJM13M1 ےIMMےIM1s-nڛRI----ޛRVERNIER uwxyz{|      L LLL! ` ` ` (` hh` LH LhLLɾ 46` ` !!""##( (!!(""(##P P!!P""P## )D ) ) )JJJJ)  `l)` ) 8=5 + ) 1 )Z ) )` "ȱXȱ0`I)p2h`h4 ,ȱH% `HI)ph`rtLSi0LLS,LL0L(L_,0   )F ) 8i   )G ) L_   . 8  $ .  `    ) L`  *  . .  0 ` )A ) ) )LLɀ΀ ; )> )jjj) ) )n ) )T )1 )6 )ϩυ 34i$%f$fʊ iL$pI, )LL$, ) I $0Lc,0L8LL_ ) ) I)757-ےIޛRI)575-ےI MIڛRIISIڛ--ޛRIJۓJ--n .-ۛ  >?wIۓ  >?wIۓ)3 -ۛ  Mے----nM1nm5NIۛIIۓhAhBA^ ȱA_ ȱA` Aia Bib _ A` B^ L L L Lc b Ha H` (&AA] ȱA] LS  S     | ; } < ~ =  > LS S ALS SA LS LN     VERNIER~ NU$(NU):CE1(NU$):(NU$,CE,1)"E"ĂR CD1CE1:(NU$,CD,1)"."Ă NE$(NU$,CE):NM$(NU$,CE1):CDCE180 (NM$)RO184 NM$NM$".":180 (NM$)RO1NM$NM$"0":180 NU$SN$NM$NE$: GE:SB,WI%:SI:EX0:(DF$)X "GRAPHICAL ANALYSIS III":"COPYRIGHT 1986":"VERNIER SOFTWARE":"VERSION 1/22/87"{dSN$"":NUZZSN$"-":NU(NU)lNUZZ140pPW1:NU1128xNUPWPWPWTT:120|132NUPWTTPWPWTT:128 FCTTPW1000:NU(NUFCHH)FC/MORY BU```   ɛ Lɍ Lɘ  L'ɚ   L'ɄɈ  L' L'ɟ L'  L' ) L'` L`  :` `  ` a b `AA @)L( A`ABA @)LF ̦AB`202   2`??I  `  ` .  ? E Ȍ9 7 8 Q`:  CF `  G` 7 8 `7 8 ` 0  Lq) `  @` O9 L O  @E C`{0$8%"` e!e 88 {$e"##8% "`( " L1F E : G C5 6 Q "9 L19 E  xhhL1`A : 9 L %9 CȑCLa: F : E E 9 A CE E  A @9 A G`? Cm9 eD8E 9 i@ @ .?  G  eCmE eD8 E @ @  !  L 9 L.` x <G `9  xL1 O9  @ @L1 6 O9 L19  xL1 O @ @9 9 F LCCL: E : E F C L1 6L  L1E : 9 5 6 Q " L19 E : T; < L_M @= > H I  @G `H I H H I `9 C  L ` E 9  Lk} < @} `:Xdd  O @ < a{)ߠ & ? 9 ? L? ` ~ ABlAmK 8@ A B C J B mA B C iC 8B ? B C C B  F  CE  E 9 9 G ` G5 6 E : F CG  "9 ` " `G 03, *m O @ ; < L= > H I L& *A < L 9 E  ' _CDF 7 8 Q  4L  ~  L  [  ` 0 ʽ! LL I <L  ? @ O  J K ? @  5 6 ? @ 0ī245/ I1(DF$):DBI,((DF$,I,1)):\ DB,(DF$):RE:GE:EX(SB9):EX2ī285u (DB)0DF$"":285 DF$"":I1(DB):DF$DF$((DBI)):  ,YU18YU18 0SENSSE1 2SE0SE1 4NSYU19NS19YU 6Q1NS:XL2:Q TO BE ADDED: ":1257zSE9ĺ"MULTIPLY AXIS VALUES BY A CONSTANT"::"ENTER NUMBER TO BE USED AS MULTIPLIER: ":1257DF$"":WI%13:200:EX222700`SN0:X10:Y10:X20:Y20:PS0:JN(P1)1N(P):SNSN1:X1X1HM(X(J)):Y1Y1VM(Y(J A CONSTANT ("I$"+C)":L$(9)"*":S$(9)"TIMES A CONSTANT ("I$"*C)":YU6:NS9:SE1:300:(1):(18):958SE2ĺ"RAISE AXIS VALUES TO A POWER"::"ENTER NUMBER TO BE USED AS THE POWER":1257SE8ĺ"ADD A CONSTANT TO AXIS VALUES"::"ENTER NUMBERAISE TO A POWER ("I$"^N)":L$(3)"L":S$(3)"LOG TO BASE E (LN "I$")":L$(4)"D":S$(4)"LOG TO BASE 10 (LOG "I$")":L$(5)"S"lS$(5)"SINE (SIN "I$")":L$(6)"C":S$(6)"COSINE (COS "I$")":L$(7)"T":S$(7)"TANGENT (TAN "I$")":L$(8)"+":S$(8)"PLUSVM(Y)(YRR):VM$"COS "VL$:E0VM(Y)(YRR):VM$"TAN "VL$:l4VM(Y)YYE:VM$VL$" + "(YE):8VM(Y)YYE:VM$VL$" * "(YE):<:"SELECT TYPE OF MODIFICATION:":QSE:L$(1)"N":S$(1)"NO MODIFICATION ("I$")":L$(2)"P":S$(2)"RHM(X)XXE:HM$HL$" * "(XE):JVM(Y)Y:VM$VL$" ("VU$")":|VM(Y)YYE:VM$VL$" TO THE POWER "(YE): VM(Y)(Y):VM$"LOG (BASE E) "VL$:$VM(Y)(Y)LL:VM$"LOG (BASE 10) "VL$:(VM(Y)(YRR):VM$"SIN "VL$: ,ER "(XE):9HM(X)(X):HM$"LOG (BASE E) "HL$:hHM(X)(X)LL:HM$"LOG (BASE 10) "HL$:HM(X)(XRR):HM$"SIN "HL$:HM(X)(XRR):HM$"COS "HL$:HM(X)(XRR):HM$"TAN "HL$: HM(X)XXE:HM$HL$" + "(XE):%31Q96Q32.Q31H,VWW:O$"V"VVLWAO$"H"HHLWKCH:HM1008,1012,1016,1020,1024,1028,1032,1036,1040:VM1048,1052,1056,1060,1064,1068,1072,1076,1080:1084HM(X)X:HM$HL$" ("HU$")":HM(X)XXE:HM$HL$" TO THE POWTY(J)(100VB)100ETB176((VM(VT)VS)YSHH):TB176TB176uXPWW,TBXPWW,TB:TBYP1ēXP,TBXP,YPWW{0:O$"V"Ę48CH1(PR$):H0H0V188V188VWWVWWH275H10Q((PR$,CH,1)):Q96QQ32QHH)HL:TBHRTBHRETB,YPWWTB,YPWW:TBXP1ēTB,YPXPWW,YPSVB0690mVP0VTY(J)VB:675VTY(J)(100VB)100TB176((VM(VT)VS)YSHH):TB6TB6XPWW,TBXPWW,TB:YPTB1ēXP,TBXP,YPWWVP0VTY(J)VB:681VWWSE(2)1690%HB0672?HP0HTX(J)HB:663XHTX(J)(100HB)100TB((HM(HT)HS)XSHH)HL:TBHLTBHLTB,YPWWTB,YPWW:XPTB1ēTB,YPXPWW,YPHP0HTX(J)HB:669HTX(J)(100HB)100TB((HM(HT)HS)XS7FrIBLBRBS:I,YPI,176:I:BL,176BL,YP:BR,YP:BR,176:631sIYP176BS:BL,IBR,I:I:BL,YPBL,176:BR,YPBR,176wSE(1)0648xP1Ĕ66XPWW,YPWW:648|P2Ĕ67XPWW,YPWW:648P3Ĕ68XPWW,YPWW:648P4Ĕ69XPWW,YP(Y(J))VS)YSHH):YP3YP188XP277XP10Č198:OS1:690k dXP,YP:JN(P1)1OS1XL(P)XP:YL(P)YP lSE(4)1ēXL(P),YL(P)XP,YP:XL(P)XP:YL(P)YP:OS0 mSE(7)0ī631 oBLXPBX:BLHL3BLHL3 pBRXPBX:BRHRBRHRqJWW(JWW)ī62 \Q13ī372 ^Q32ī362@ `Q8Q11SESE1:SE0SENSj bQ21Q10Q32SESE1:SENS1SE1 dYUOS:XL:L$(OS);" - ";S$(OS):330 jQ$(13)372 nQ1NS:Q$L$(Q)SEQ pQ:356 t= XXP((HM(X(J))HS)XSHH)HL:YP176((VMYU:XL:L$(Q);" - ";S$(Q):Q:20::"---------------------------------------":"TYPE A LETTER OR USE THE ARROW KEYS":" THEN PRESS " JYUSE:XL::L$(SE);::" - ";::S$(SE);::OSSE:Q$:Q(Q$):Q96QQ32:Q$(Q) ZQ27SE0:372)):X2X2HM(X(J))HM(X(J)):Y2Y2VM(Y(J))VM(Y(J)):PSPSHM(X(J))VM(Y(J)):J:SN213648XAX1SN:YAY1SN:M(PSSNXAYA)(X2SNXA2):BYAMXA:SX((X2SNXA2)(SN1)):SY((Y2SNYA2)(SN1)):((SN1)SXSY)0RX1:1364PRX(PSSNXAYA)((SN1)SXSY)T.xEX0:YU18YU18E|NSYU19NS19YUs~Q1NS:XL5:QYU:XL4:SE(Q)1ĺ"--> "UQYU:XL:L$(Q);" - ";S$(Q):Q:18::"---------------------------------------":"TYPE A LETTER OR USE THE ARROW KEYS.":"USE X: ";PF$::"ENTER NAME TO BE USED FOR THIS FILE"::DF$"":WI%65:200:EX22050(DF$""ĺD$;"BSAVE ";PF$;DF$;",A$2000,L$1FFF"("GRAPH IMAGE SAVED AS A FILE NAMED:":PF$;DF$::"PRESS TO CONTINUE ";Q$(1900m)@:"SELECT:"::L$(1)"0N'nSE1Ĺ49232,0:49234,0:49236,0:49239,0:DF$"":WI%1:200:EX21990]'SE58000l'SE62000'SE0(SE1SE5)SE71999'1900'S(:"THIS OPTION SAVES THE CURRENT GRAPH AS A HIGH-RESOLUTION, PAGE-TWO PICTURE"::"CURRENT PREFI"R":S$(2)"REGRAPH - SAME SCALE":L$(3)"S":S$(3)"CHANGE SCALE AND REGRAPH":L$(4)"M"'mS$(4)"MODIFY DATA AND REGRAPH":L$(5)"O":S$(5)"PRINT GRAPH ON PRINTER":L$(6)"F":S$(6)"SAVE GRAPH ON DISK":L$(7)"X":S$(7)"RETURN TO MAIN MENU":SE2:NS7:YU9:30(PR$).5LWi%3700:OS0:NU100XS:100:NU(NU$)HS:PR$(NU):O$"H":HHL100(PR$).5LW:V181:700o%kW&lD$;"FRE":KP,0:::"GRAPH FOLLOW-UP OPTIONS:":::"CURRENT GRAPH:"::VM$:" VERSUS":HM$::L$(1)"D":S$(1)"DISPLAY PREVIOUS GRAPH":L$(2)5ĹKP,0:22700 %249232,0:49234,0:49236,0:49239,0:V181:100:PR$(HS):O$"H":HHL(PR$).5LW:700:PR$((VS),8):H3:V174:700:NU100YS:100:NU(NU$)VS:O$"H":H7:V76:PR$(NU):700:NU200XS:100:NU(NU$)HS:O$"H":V181:PR$(NU):H200HLQ#I:VS0V176VSYS:V0V176ēHL,VHR,V:VV5:H270:O$"H":PR$"0":700#HS0HHLHSXS:HHLH(HRHL)ēH,6H,176:V172:HH7:O$"H":PR$"0":700#!I166010:(176I)50((176I)50)ēHL,IHL10,I$+HL,IHL5,I:I:(KC)27(KC)15NTINUE":O$"V":PR$VM$:V92.5(PR$)LW:H0:700:PR$HM$:V188:H90:O$"H":700:PR$TI$:H(10HR)2LW.5(PR$):V2:700:HL,6HR,6HR,176HL,176HL,6"IHLHR10:(IHL)50((IHL)50)ēI,176I,164# I,176I,169:SE(3)1āII166010:I,II:II PROTECTOR KEY:"::PL1ĺ"SERIES 1 - SQUARE "X!PL2PH2ĺ"SERIES 2 - TRIANGLE"~!PL3PH3ĺ"SERIES 3 - CIRCLE"!PH4ĺ"SERIES 4 - DIAMOND"":"THE GRAPH IS NOW BEING DRAWN. WHEN YOU":"ARE FINISHED VIEWING IT, PRESS ":"TO CO200:EX21899C (DF$,1)"%"VB((DF$,(DF$)1)):VP1:1691V VB(DF$):VP0h SE(7)01700 :"ENTER WIDTH OF BARS TO BE USED ON GRAPH":"IN PIXELS: ":DF$(BX2):WI%13:200:EX21899 BX(DF$)2 ::PB2SE(1)017300!"POINT;"%";QM$:"FOR RELATIVE SIZE."::"HORIZONTAL ERROR BAR SIZE: ":DF$(HB):HP1DF$DF$"%"xWI%13:200:EX21899(DF$,1)"%"HB((DF$,(DF$)1)):HP1:1687HB(DF$):HP0:"VERTICAL ERROR BAR SIZE:":DF$(VB):VP1DF$DF$"%" "R":S$(5)"REGRESSION LINE":L$(6)"S":S$(6)"STATISTICS":L$(7)"B"zAS$(7)"BAR GRAPH":NS7:YU3:SE1:1400:EX21899:SE(2)01691]:"SELECT THE SIZES OF THE ERROR BARS"::"ENTER A NUMBER FOR ABSOLUTE SIZE":"OR A NUMBER FOLLOWED BY A ";QM$Q:1464H100:NUNUPW:NU(22(NU2)(NU4)5(NU5))PW:D@:3::::"SELECT GRAPH STYLE:":L$(1)"P":S$(1)"POINT PROTECTORS":L$(2)"E":S$(2)"ERROR BARS":L$(3)"G":S$(3)"GRID ON THE GRAPH":L$(4)"L":S$(4)"LINE CONNECTING POINTS":L$(5)(SE)1:1456SE(SE)0=Q8Q11SESE1:SE0SENSbQ21Q10SESE1:SENS1SE1SE(OS)1ĢYUOS:XL4:"-->"SE(OS)0ĢYUOS:XL4:" "YUOS:XL:L$(OS);" - ";S$(OS):1430Q$(13)1480Q1NS:Q$L$(Q)SEQ  TO TOGGLE OPTIONS":"PRESS WHEN THE OPTIONS ARE":"SET AS YOU WANT THEM."YUSE:XL::L$(SE);::" - ";::S$(SE);::OSSE:Q$:Q(Q$):Q96QQ32:Q$(Q)Q131480Q27EX2:1480Q321470Q32ī1456SE(SE)0SEI":S$(1)"IMAGEWRITER":L$(2)"G":S$(2)"GRAPPLER+":L$(3)"P":S$(3)"PKASO/U":NS3:YU2:SE1:300:SE08300)|PTSE:15::"ENTER SLOT NUMBER FOR PRINTER"::DF$"":WI%1:200:EX28300)PR(DF$):PR1PR78300*:"SELECT PRINTOUT FORMAT:":L$(1)"1":S$(1)"SMALL GRAPH - NO FORM FEED":L$(2)"2":S$(2)"LARGE GRAPH - NO FORM FEED":L$(3)"3":S$(3)"SMALL GRAPH FOLLOWED BY FORM FEED":L$(4)"4":S$(4)"LARGE GRAPH FOLLOWED BY FORM FEED":NS4:YU2:SE2:300*SE08300*SZ3:SE1SE3SZ1/+176(Y0176):Y9176(BM(HS(HRHL)XS)VS)YS:Y9Y9(Y9176Y90)176(Y9176):HHL:VY0:X0H(V0V176)(V0V176)((((176V)YSVSB)MHS)XSHL):HHR:VY99SX9H(V0V176)(V0V176)((((176V)YSVSB)MHS)XSHL):X00X0HRX90X9HR2134ĺ"THIS VALUE CANNOT BE ZERO":21010<7R1600:EX222700\7RPPLPH:N(P1)N(P)214057RJN(P1)1N(P):600:(KC)27(KC)155JN:KP,07RJ:KP,0:SE(5)0SE(6)0214007R1300:SE(5)0213408SY0176(BMHSVS)YS:Y0Y0(Y0176Y00)17::"THE GRAPH IS 160 PIXELS HIGH"::"ENTER STARTING VALUE FOR VERT. AXIS ":NUMY:100:DF$NU$:WI%13:200:EX2227006RVS(DF$)6R:"ENTER VALUE FOR EACH PIXEL VERTICALLY":NU(YMVS)155:1500:NU$(NU):DF$NU$:200:EX222700&7!RYS(DF$):YS0S)LL):S10LS:PGS.5QPG(YMMY)1020950B5QPGPG10:20940d5QPGPG10:MY0VS(VSPG)PG5QMY0VS1(VSPG)PGPG5QNU(YMVS)160:1500:YSNU:21150y6Q958:::"RANGE OF VALUES TO BE PLOTTED:":NUMY:100:NU$;" TO ";:NUYM:100:NU$ING WITH ORIGIN AT 0":L$(2)"B":S$(2)"AUTOMATIC SCALING, VARIABLE ORIGIN":L$(3)"C":S$(3)"MANUAL SCALING":NS3:YU16:SE1:300:SE0227004QSE20890,20910,209754QVS0:YS(YM)155:NUYS:1500:YSNU:211504QMY0MYYM208905QVS(MY):LS((V70HL):1500:NU$(NU)a3P:"ENTER VALUE OF EACH PIXEL HORIZONTALLY":DF$NU$:200:EX2227003QXS(DF$):XS0ĺ"THIS VALUE CANNOT BE ZERO":207253mQ4rQ10:::"SELECT VERTICAL AXIS SCALING:"::"AXIS LABEL:":VM$:L$(1)"A":S$(1)"AUTOMATIC SCALNU:208502P958:::"RANGE OF HORIZONTAL VALUES TO BE PLOTTED":NUMX:100:NU$;" TO ";:NUXM:100:NU$:"THE GRAPH IS 250 PIXELS WIDE"::"ENTER STARTING VALUE FOR HORZ. AXIS":NUMX:100:DF$NU$:WI%13:2002PEX2227003PHS(DF$):NU(XMHS)(21}PHS0:XS(XM)(270HL):NUXS:1500:XSNU:20850I1PMX0MXXM20605r1PHS(MX):LS((HS)LL):S10LS:PGS1PPG(XMMX)10206651PPGPG10:206551PPGPG10:MX0HS(HSPG)PG1PMX0HS1(HSPG)PGPG 2PNU(XMHS)(270HL):1500:XS:"SELECT HORIZONTAL AXIS SCALING:"::"AXIS LABEL:":HM$:L$(1)"A":S$(1)"AUTOMATIC SCALING WITH ORIGIN AT 0":L$(2)"B":S$(2)"AUTOMATIC SCALING, VARIABLE ORIGIN":L$(3)"C":S$(3)"MANUAL SCALING":SE1:NS3:YU6:300:SE0227001xPSE20605,20625,206903PM"TI$VM$" VS. "HM$N:BS2:BX5:HB0:VB10:HP0:VP1:"GRAPH DATA TABLE:"::M$"P"HM1:VM1:TI$VL$" VS. "HL$:PL1:PHPB:20400,VO:PB1PL1:PH1:20319--XO:"SELECT THE LOWEST SERIES :958::"NOW PRINTING GRAPH...":PT18230p+ Q(8):7168,PR,SZ:8,Q:SE2ĺD$;"PR#";PR:(12):D$;"PR#0"z+ 8300+& D$;"PR#"PR:PT2ĺ(9)"GE";:SZ3ĺ"DR":8280+: :SZ1ĺ(9)"H"+N SZ3ĺ(9)"6H"+X SE2ĺ(12)+b :D$;"PR#0",l 190009RSX0,Y0X9,Y9'9\SSE(6)0214009fSNUM:100:PR$"M= "NU$" ":NUB:100:PR$PR$"B= "NU$" ":NURX:100:PR$PR$"R= "NU$:V10(P1)8:H(HLHR)2LW((PR$)2):7009S:9SP:D$;"FRE":DF$"":WI%1:200:EX222700:X1900:SE2đ:21150/:XSE3::"ANALYZING DATA TABLE...":20470H:YSE4M$"PM":20030}:Y(8)1Ĺ41859,3:D$;"CHAIN /RAM/PART.ONE,@2210":Y::"LOADING MAIN PORTION OF THE PROGRAM...":41859,3:D$;"CHAIN ";PS$;"PART.ONE,@2210"1;`EL(219)256(218):EC(222):::&HM(X)(XRR):VM$"COS "HL$:KHM(X)(XRR):VM$"TAN "HL$:r HM(X)XXE:HM$HL$" + "(XE):HM(X)XXE:HM$HL$" * "(XE):VM(Y)Y:VM$VL$" ("VU$")":VM(Y)YYE:VM$VL$" TO THE POWER "(YE): VM(Y)(Y):,1056,1060,1064,1068,1072,1076,1080:1084PHM(X)X:HM$HL$" ("HU$")":HM(X)XXE:HM$HL$" TO THE POWER "(XE):HM(X)(X):HM$"LOG (BASE E) "HL$:HM(X)(X)LL:HM$"LOG (BASE 10) "HL$:HM(X)(XRR):HM$"SIN "HL$:1:SE0ĝ:"YES ";::"NO":;SE1Ğ:"YES";::" NO"bYU:4:Q$:X(Q$):X27SE2:442nX13ıQ$"Y"Q$"y"SE1:400Q$"N"Q$"n"SE0:400SE1SE:400+HM1008,1012,1016,1020,1024,1028,1032,1036,1040:VM1048,105213ī376 ^Q32ī364: `Q8Q11SESE1:SE0SENSd bQ21Q10Q32SESE1:SENS1SE1 dYUOS:XL:(L$(OS))2ĺL$(OS);"- ";S$(OS):362 hL$(OS);" - ";S$(OS) j330 lQ$(13)ı rQ1NS:Q$L$(Q)SEQ tQ:356 xYU:------------------":" TYPE LETTER OR USE THE ARROW KEYS":" THEN PRESS " JYUSE:XL::L$(SE);:(L$(SE))2ĝ:"- ";::S$(SE);::338 P:" - ";::S$(SE);: ROSSE:Q$:Q(Q$):Q96QQ32:Q$(Q) ZQ27SE0:376 \QF$"":2857 DF$"":I1(DB):DF$DF$((DBI)):= N ,YU18YU18^ 0SENSSE1m 2SE0SE1 4NSYU19NS19YU 6Q1NS:XL4:QYU:(L$(Q))2ĖXL:L$(Q);"- ";S$(Q):320 >XL:L$(Q);" - ";S$(Q)^ @Q:20::"---------------------80 CECDRO184@ I1RO1(CECD):NM$NM$"0":I:184b (NM$)RO1NM$NM$"0":180x NU$SN$NM$NE$: GE:SB,WI%:SI:EX0:(DF$)0ī245 I1(DF$):DBI,((DF$,I,1)): DB,(DF$):RE:GE:EX(SB9):EX2ī285 (DB)0DNU(NUFCHH)FCC NU$(NU):CE1(NU$):(NU$,CE,1)"E"Ăf CD1CE1:(NU$,CD,1)"."Ă NE$(NU$,CE):NM$(NU$,CE1):CDCE177 RD$"D"NM$NM$".":I1RO:NM$NM$"0":I:184 (NM$)RO184 NM$NM$".":180 RD$"D"1X "GRAPHICAL ANALYSIS III":"VERNIER SOFTWARE":"COPYRIGHT 1986":"VERSION 1/22/87"|dSN$" ":NUZZSN$"-":NU(NU)lNUZZ140nRD$"D"136pPW1:NU1128xNUPWPWPWTT:120|132NUPWTTPWPWTT:128FCTTPWDE 0:::"* ";:EC53ĺ"ILLEGAL QUANTITY";:60040P;EC69ĺ"OVERFLOW";:60040x;EC133ĺ"DIVISION BY ZERO";:60040;EC255ĺ"CONTROL C";:60040;"CODE  ";EC;;" ERROR ON LINE ";EL;" *"::J13000:J::768:EL2000ġ<2270VM$"LOG (BASE E) "VL$:J$VM(Y)(Y)LL:VM$"LOG (BASE 10) "VL$:o(VM(Y)(YRR):VM$"SIN "VL$:,VM(Y)(YRR):VM$"COS "VL$:0VM(Y)(YRR):VM$"TAN "VL$:4VM(Y)YYE:VM$VL$" + "(YE):8VM(Y)YYE:VM$VL$" * "(YE): <cL:"CURRENT PREFIX: ";PF$::"ENTER NAME OF FILE"::DF$N$:WI%65:200:EX21192vN$DF$::1195N$""n:"SELECT TYPE OF MODIFICATION:":QSE:L$(1)"N":S$(1)"NO MODIFICATION ("I$")":L$(2)"P":S$(2)"RAISE TO A POWER ("(P)N:PBP:X(N1)9999:Y(N1)9999c zD$;"CLOSE ";N$::"FILE NAMED: ";N$:"LOADED INTO MEMORY" z::"PRESS TO CONTINUE ";:Q$ z30003 }Q$N$:1100:N$""N$Q$:33395b!:"SAVE A FILE"::"SELECT FILE TYPE:"::L$(1)"N":S$(1)"NORL$QQ$%:zQ,QQ:QQ$:FO2VL$QQ$LDzQ,QQ:Q$:Q,QQ:QQ$:FO2HU$QQ$iXzQ,QQ:QQ$:FO2VU$QQ$sbzJN1vzQ,QQ:Q$:Q$"EOD"31400zI,QQ:Q$:X(J)QQ:Q,QQ:Q$:Y(J)QQ:I0JJ1:31350zJ1N(P)J1:PP1:31350z31350$ zNJ1:NN:N(2)0:N(3)0:N(4)0:PB1:31220ByFO2ĄPB:I04:N(I):IyFO3ĄPP:I04:NN(I):I:I1PP:N(PBI)N(PB)NN(I):I:PBPBPP:PB4PB4y31410y:zQ$:Q,QQ:QQ$:Q$"TUPLES"NRQQzQ$"DATA"31240&zQ,QQ:Q$:Q,QQ:QQ$:FO2HHERE ARE ALREADY FOUR SERIES IN MEMORY"::31442shyD$;"VERIFY ";N$:D$;"OPEN ";N$:D$;"READ ";N$:SE231230yFO3ĄQ$:Q$:Q$:Q$:31160yHL$:HU$:VL$:VU$yJN1513:X(J):Y(J):X(J)9999Y(J)9999NJ1:J513$yJ:SE3N(0)0:N(1)NORMAL":L$(2)"D":S$(2)"DIF(FOR TRANSFER FROM APPLEWORKS)":L$(3)"C":S$(3)"CONVERTED DOS3.3 DATA FILE":SE1:(N$,4)".DIF"(N$,4)".dif"SE2TyYU16:NS3:300:SE0SE1:N$QQ$:31460^yFO2āI04:N(I)0:I:PB1:P1:N02cyFO3PPB:P4ė:"T"DATA CURRENTLY IN MEMORY. "::"PRESS TO CONTINUE, OR":" TO EXIT."j!y(KC)12831009"yKP,0:(KC)2731460$y:"LOAD DATA FILE OPTION:"::(yQQ$N$:N$"":1100:N$""N$QQ$:31460,y:"SELECT FILE TYPE: ":L$(1)"N":S$(1)"3:D$;"CHAIN/RAM/PART.ONE,@2210"tx"LOADING MAIN PART OF PROGRAM...":41859,3:D$;"CHAIN ";PS$;"PART.ONE,@2210"yFO3ĺ:"MERGE DATA FILE:":31016y"LOAD DATA FILE OPTION:":N031016Uy:"WARNING!":"LOADING A NEW DATA FILE WILL ERASE THE":)"D":S$(5)"DELETE FILE":L$(6)"P":S$(6)"SET PREFIX":L$(7)"R"6uS$(7)"CREATE SUBDIRECTORY":L$(8)"X":S$(8)"RETURN TO MAIN MENU":YU2:NS8:SE8:300:FOSE::SE37000,31000,31000,32000,35000,36000,38000:SE8SE030900\v30003"x(8)1Ĺ41859,X1X1)):BDQQ(X2(NX2X1X1)))U>0u41859,7:60000S3u:M$"F"40000B5uD$;"FRE":"FILE OPTIONS:":L$(1)"C":S$(1)"CATALOG":L$(2)"L":S$(2)"LOAD DATA FROM DISK":L$(3)"M":S$(3)"MERGE DATA FROM DISK":L$(4)"S":S$(4)"SAVE DATA ON DISK":L$(5658XAX1SN:YAY1SN:M(PSSNXAYA)(X2SNXA2):BYAMXA:SX((X2SNXA2)(SN1)):SY((Y2SNYA2)(SN1)):((SN1)SXSY)0RX1:1362PRX(PSSNXAYA)((SN1)SXSY)#RQQ(((Y22MPS2BY1MMX22MBX1NBB)(N2))):MDQQ(N(NX2X(J))&HM(X(J))MXMXHM(X(J))EVM(Y(J))MYMYVM(Y(J))dVM(Y(J))YMYMVM(Y(J)) SNSN1:X1X1HM(X(J)):Y1Y1VM(Y(J)):X2X2HM(X(J))HM(X(J)):Y2Y2VM(Y(J))VM(Y(J)):PSPSHM(X(J))VM(Y(J)):J:SN2M0:B0:RX0:MD0:BD0:131257mSE9ĺ"MULTIPLY THE AXIS VALUES BY A CONSTANT"::"ENTER NUMBER TO BE USED AS MULTIPLIER: ":1257sDF$"":WI%13:200:EX21275SN0:X10:Y10:X20:Y20:PS0:XM1E3:YM1E3:MX1E3:MY1E3:JN(P1)1N(P):HM(X(J))XMXMHM(+C)":L$(9)"*":S$(9)"TIMES A CONSTANT ("I$"*C)":YU6:NS9:SE1:300:(1):(16):958:SE2ĺ"RAISE AXIS VALUES TO A POWER"::"ENTER NUMBER TO BE USED AS THE POWER":1257SE8ĺ"ADD A CONSTANT TO AXIS VALUES"::"ENTER NUMBER TO BE ADDED: ":I$"^N)":L$(3)"L":S$(3)"LOG TO BASE E (LN "I$")":L$(4)"D":S$(4)"LOG TO BASE 10 (LOG "I$")":L$(5)"S"[S$(5)"SINE (SIN "I$")":L$(6)"C":S$(6)"COSINE (COS "I$")":L$(7)"T":S$(7)"TANGENT (TAN "I$")":L$(8)"+":S$(8)"PLUS A CONSTANT ("I$"MAL":L$(2)"D":S$(2)"DIF (FOR TRANSFER TO APPLEWORKS)":SE1:(N$,4)".DIF"(N$,4)".dif"SE2!$NS2:YU4:300:SE0SE1:N$Q$:33395!.D$;"OPEN ";N$:D$;"WRITE ";N$:SE233200"GHL$:HU$:VL$:VU$:J1N1:X(J):Y(J):J:PB:I04:N(I):I:33370#"TABLE":0;",";1:QM$;QM$:"VECTORS":0;",";2:QM$;QM$:"TUPLES":0;",";N1PB:QM$;QM$:"DATA":0;",";0:QM$;QM$:1;",";0:"BOT":1;",";0:QM$;HL$;QM$:1;",";0:QM$;VL$;QM$:1;",";0:"BOT":1;",";0:QM$;HU$;QM$:1;",";0:QM$;VU$;QM$:P1PBTION ":DF$(N):WI%3:200:EX244120D0:QQ(DF$):QQ0449900Q1QNQ1QQNQQQĺ:"IMPROPER LINE NUMBER, SELECT AGAIN "::440001A0:JQQQ1:AA(VM(Y(J))VM(Y(J1)))2(HM(X(J1))HM(X(J))):J::"INTEGRATION FROM ";:NUHM(X(Q))TA)";/竺::"HORIZONTAL AXIS: ":HM$::"VERTICAL AXIS: ":VM$::"ENTER LINE NUMBER FOR THE STARTING":"POINT OF THE INTEGRATION ":DF$"1":WI%3:200:EX244120/Q(DF$):Q044990(0::"ENTER LINE NUMBER FOR THE ENDING":"POINT OF THE INTEGRATD. DEV. OF VERT. INTERCEPT: ";:NUBD:100:NU$:.["CORRELATION COEFFICIENT: ";:NURX:100:NU$::PR0ĺ"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX242900.:P:.34,0:D$;"PR#0":41000/ૺ"INTEGRATE: ";:HM1VM1ĺ"(MODIFIED DA00:NU$:S-PR0ĺ"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX2429003.Z:"SERIES ";P;":"::NUM:100:"LINEAR REGRESSION LINE STATISTICS:"::"SLOPE: ";NU$:"STD. DEV. OF SLOPE: ";:NUMD:100:NU$:NUB:100::"VERTICAL INTERCEPT: ";NU$:"SIMUM: ";:NUMX:100:NU$:"HORIZONTAL AXIS MAXIMUM: ";:NUXM:100 -NU$:"VERTICAL AXIS MEAN: ";:NUY1(N(P)N(P1)):100:NU$:"VERTICAL AXIS STD. DEV.: ";:NUSY:100:NU$:"VERTICAL AXIS MINIMUM: ";:NUMY:100:NU$:"VERTICAL AXIS MAXIMUM: ";:NUYM:1ATA SERIES: ";PB:P1PB::"SERIES ";P;":":PR0ĺ:"CALCULATING..."C,1300:"NUMBER OF DATA PAIRS IN SERIES: ";N(P)N(P1)::"HORIZONTAL AXIS MEAN: ";:NUX1(N(P)N(P1)):100:NU$:"HORIZONTAL AXIS STD. DEV.: ";:NUSX:100:NU$:"HORIZONTAL AXIS MINCS ON THE VIDEO MONITOR"::DF$"":WI%1:200:EX241000\*qPR(DF$):PR0ĺD$;"PR#";PR*r:"STATISTICS: ";:HM1VM1ĺ"(MODIFIED DATA)";G+::"HORIZONTAL AXIS: ":HM$::"VERTICAL AXIS: ":VM$::"NUMBER OF DATA PAIRS: ";N:34,8:"NUMBER OF D"M":S$(4)"CHANGE DATA MODIFICATION":L$(5)"X":S$(5)"RETURN TO MAIN MENU":SE5:NS5y)?YU10:300::SE5SE030900)SE42000,44000,46000,40030:41000:*::"ENTER SLOT NUMBER OF THE PRINTER TO BE":"USED OR PRESS TO SEE THE":"STATISTIE(DF$)(1000\((:"NUMERICAL ANALYSIS OPTIONS: ":HM1VM1ĺ"(MODIFIED DATA)":W)>:"HORIZONTAL AXIS: ":HM$::"VERTICAL AXIS: ":VM$:L$(1)"S":S$(1)"STATISTICS":L$(2)"I":S$(2)"INTEGRATE":L$(3)"E":S$(3)"EXTRAPOLATE OR INTERPOLATE":L$(4)0200u'^:"HORIZONTAL AXIS DATA MODIFICATION:"::"AXIS LABEL: ";HL$:"AXIS UNITS: ";HU$:I$"X":1200:SE041000':HMSE:XE(DF$)::"VERTICAL AXIS DATA MODIFICATION:"::"AXIS LABEL: ";VL$:"AXIS UNITS: ";VU$:I$"Y":1200::SE041000 (VMSE:Y&30003B&p"CREATE SUBDIRECTORY:"::Q$N$:1100:N$""38155&D$;"CREATE";PF$;N$::"NEW SUBDIRECTORY CREATED WITH THE NAME:":PF$;N$:"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX238155& N$Q$:30003'@M$"N"HM1:VM1:PL1:PHPB:4$:WI%65:200:EX236060%όPF$DF$:D$;"PREFIX ";PF$:D$;"PREFIX":PF$::"NEW PREFIX: ";PF$::"PRESS TO CONTINUE ";:Q$%܌30003&"CATALOG:"::D$;"CAT,TDIR":D$;"CAT,TTXT":"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX237020 TO CONTINUE. ";:Q$ $s30003P$"DELETE FILE:"::QQ$N$:1100:N$""35055$̈:"ARE YOU SURE YOU WANT TO DELETE THE FILE";:PF$;N$;" ?":SE0:YU5:400:SE1SE2:35055$ꈺD$;"DELETE ";PF$;N$$N$QQ$:30003%"SELECT NEW PREFIX : "::DF$PF#1;",";0:"BOT":Q$"SERIES "(P)":":1;",";0:QM$;Q$;QM$:1;",";0:QM$;" ";QM$:JN(P1)1N(P):1;",";0:"BOT":0;",";X(J):"V":0;",";Y(J):"V":J:P:1;",";0:"EOD"$ZD$;"CLOSE ";N$::"DATA SAVED IN A FILE NAMED: ":N$:::"PRESS :100:NU$;" TO ";:NUHM(X(QQ)):100:NU$::"TRAPEZOIDS USED IN THE INTEGRATION: ";QQQ::"TOTAL AREA: ";:NUA:100:NU$:1"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX2441201X410002"EXTRAPOLATE OR INTERPOLATE: ":HM1VM1ĺ"(MODIFIED DATA)";2:"HORIZONTAL AXIS: ":HM$::"VERTICAL AXIS: ":VM$::"THIS PROGRAM USES THE LINEAR REGRESSION":"LINE TO DO THE CALCULATION."::"THE RESULTS WILL NOT BE MEANINGFUL IF":"THE DATA IS NOT LINEAR."::PB1P1:46028N3ij"ENTER THE TIME TOCKS VELOCITY CM/TOC 1 1.55 2 2.29 3 2.85 4 3.49 5 4.06 6 4.6 1 2.73 2 3.71 3 5.01 4 6.49 5 7.3 6 8.73 1 3.92 2 5.2 3 7.55 4 9.5 5 11.2 6 13.41 1 3.02 2 5.72 3 8.09 4 10.96 5 12.48 6 15.54 9999 9999 4 0 6 12 18 24 TIME SEC. DISTANCE CM. .42 4.1 .84 10.4 1.26 19.2 1.68 30.4 2.1 44 2.52 60.1 2.94 78.6 9999 9999 1 0 7 0 0 0 8 0 TIME SEC. DISTANCE CM. 2.7 20 3.3 30 3.7 40 4.2 50 4.5 60 4.9 70 1.9 20 2.5 30 2.8 40 3.1 50 3.5 60 3.8 70 1.1 20 1.4 30 1.6 40 1.8 50 2 60 2.1 70 9999 9999 3 0 6 12 18 0 TIME ML H20 DISTANCE FT 90 15 84 13 72 10 62 7 52 5 40 3 23.5 1 9999 9999 1 0 7 7 7 7 OT 0,.16 V 0,2.1 V -1,0 BOT 0,.2 V 0,2.6 V -1,0 BOT 0,.23 V 0,3 V -1,0 BOT 0,.26 V 0,3.2 V -1,0 BOT 0,.3 V 0,3.3 V -1,0 BOT 0,.33 V 0,3.8 V -1,0 EOD TIME SEC. SPEED M/SEC .033 .9 .067 1.2 .1 1.6 .13 2 .16 2.1 .2 2.6 .23 3 .26 3.2 .3 3.3 .33 3.8 9999 9999 1 0 10 10 10 10 0 BOT 1,0 "SERIES 1:" 1,0 " " -1,0 BOT 0,.033 V 0,.9 V -1,0 BOT 0,.067 V 0,1.2 V -1,0 BOT 0,.1 V 0,1.6 V -1,0 BOT 0,.13 V 0,2 V -1,0 BITY";:60040-6EC69ĺ"OVERFLOW";:60040U6EC133ĺ"DIVISION BY ZERO";:60040v6EC255ĺ"CONTROL C";:600406"CODE  ";EC;6" ERROR ON LINE ";EL;" *"::J13000:J::768:EL2000ġ6D$;"CLOSE":M$"F"30000641000PROTECTED";:60040=5rEC6EC7ĺ"PATH NOT FOUND";:60040\5tEC8ĺ"I/O ERROR";:60040{5vEC9ĺ"DISK FULL";:600405wEC10ĺ"FILE LOCKED";:600405xEC17ĺ"DIRECTORY FULL";:600405zEC19ĺ"DUPLICATE NAME";:600406~EC53ĺ"ILLEGAL QUANTUM(DF$)B:100::"CALCULATED VERTICAL AXIS VALUE: ";NU$::"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX2469904410004`D$;"PR#0"::EL(219)256(218):EC(222)::::"* ";:EC3ĺ"NO DEVICE CONNECTED";:600405pEC4ĺ"DISK WRITE NUMBER OF THE SERIES TO":"BE USED (1-";PB;")":DF$"":WI%1:200:EX246990j3ɳ::P(DF$):P0469903˳P1PPBĺ:460003̳"CALCULATING REGRESSION LINE STATISTICS..";::1300:"ENTER HORIZONTAL AXIS VALUE: ";:DF$" ":WI%13:200:EX246990}4NVOLUME IN. PRESSURE IN. HG 12 29.125 11.5 30.562 11 31.937 10.5 33.5 10 35.312 9.5 37 9 39.312 8.5 41.625 8 44.187 7.5 47.062 7 50.312 6.5 54.312 6 58.812 5.75 61.312 5.5 64.062 5.25 67.062 5 70.687 4.75 74.125 4.5 77.875 4.25 82.75 4 87.875 3.75 93.062 3.TEMP DEG. C TEMP DEG. F 0 32 100 212 9999 9999 1 0 2 0 0 0 RADIUS EARTH RADII PERIOD HOURS .38859 2111.111 .72483 5388.889 1 8777.778 1.5302 16500 5.22147 103888.88 9.59731 258333.33 19.2617 738888.89 30.2013 1444444.4 39.5973 2172222.2 9999 9999 1 0 9 0 0 0 9999 1 0 9 0 0 0 ANGLE I DEG. ANGLE R DEG. 10 6.7 20 13.3 30 19.6 40 25.2 50 30.7 60 35.1 70 38.6 80 40.6 9999 9999 1 0 8 0 0 0 TIME MIN RATE CTS./SEC 4 392.2 12 315.1 20 251.1 28 202.9 36 161.4 44 128.3 52 102.7 60 82.1 68 65.5 76 52.6 84 41.6 92 33.9 100 26.8 108 21.5 116 17.6 124 14 9999 9999 1 0 16 16 16 16 DIAMETER CM TIME SECONDS 1.5 73 2 41.2 3 18.4 5 6.8 1.5 43.5 2 23.7 3 10.5 5 3.9 1.5 26.7 2 15 3 6.8 5 2.2 1.5 13.5 2 7.2 3 3.7 5 1.5 9999 9999 4 0 4 8 12 16 HEIGHT CM. TIME SEC. 30 73 10 43.5 4 26.7 1 13.5 30 41.2 10 23.7 4 15 1 7.2 30 18.4 10 10.5 4 6.8 1 3.7 30 6.8 10 3.9 4 2.2 1.5 1 9999 9999 4 0 4 8 12 16 DISTANCE CM FORCE HOOKS 30 0 7.7 1 6 2 5 3 4.2 4 9999 9999 1 0 5 5 5 5 5 100.437 3.25 107.812 3 117.562 9999 9999 1 0 25 25 25 25 LENGTH CM. MASS GM 6.5 1.72 5.48 1.51 4 1.23 1.51 .79 9999 9999 1 0 4 0 0 0 88 89 89 90 90 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99 9999 9999 1 0 99 99 99 99 9 5 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 58 59 59 60 60 61 61 62 62 63 63 64 64 65 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 87 87 88X X 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 4DIAMETER CM. PERIOD SEC. 3.535 .376 7.218 .532 14.63 .778 29.07 1.086 44.71 1.35 3.535 .394 7.218 .554 14.63 .766 29.07 1.098 44.71 1.342 9999 9999 2 0 5 10 0 0 TIME DAYS GRAINS 1 1 2 2 3 4 4 8 5 16 6 32 7 64 8 128 9 256 10 512 11 1024 12 2048 9999 9999 1 0 12 0 0 0 TIME YEARS COST/OZ. CENTS 0 2 32.36 3 34.02 2 47.04 3 73.13 4 78.07 5 83.07 6 85.93 8 88.73 10 90.56 13 92.97 15 95.79 18 96.4 20 99.8 22 9999 9999 1 0 14 0 0 0 TIME YEARS COST/OZ. CENTS 0 4 4.94 5 9.94 6 12.9 8 15.6 10 17.43 13 19.84 15 22.66 18 23.27 20 26.7 22 9999 9999 1 0 10 0 0 0 X X 10 10 20 20 30 30 40 40 50 50 60 60 70 70 80 80 90 90 100 100 110 110 120 120 130 130 140 140 150 150 160 160 170 170 180 180 190 190 200 200 210 210 220 220 230 230 240 240 250 250 260 260 270 270 280 280 290 290 300 300 310 310 320 320 330 330 340 ^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`WF";N$E8D$;"WRITE ";N$#ELHL$,EVHU$5E`VL$>EjVU$KEtJ1N1UE~X(J)_EY(J)fEJEPB: NUMBER OF SERIESEI04:N(I):I: END OF SERIES MARKERSED$;"CLOSE ";N$E:"DATA FILE SAVED"EЄINPUTJMP..0800.2048.LER OF DATA PAIRS4DPB1: ONLY ONE DATA SERIESrDN(0)0:N(1)N:N(2)0:N(3)0:N(4)0: SERIES END MARKERSDL GET DATA FILE NAMEDVD`"ENTER NAME OF DATA FILE"DjN$D} STORE DATA ON DISK:D$D$(4): CONTROL DE.D$;"OPEN SVEVST.CJJ1: NUMBER OF DATA PAIRSRCX(J)X: HORIZONTAL AXIS VALUEdCY(J)Y(X(J))CJ;10);X(J);25);Y(J)CJ512250: EXIT EARLY IF 512 PAIRS HAVE BEEN CREATEDCXCX(J1)9999:Y(J1)9999: EOF MARKERSDNJ: NUMBGE THIS LINE FOR A NEW FUNCTIONKB CALCULATE VERTICAL AXIS VALUES:xBJ0: INITIALIZE NUMBER OF DATA PAIRSBHL$"X":HU$" ":VL$"Y":VU$" ": DATA AXIS LABELSB"J";10);"X";25);"Y"B"--------------------------------------" CXS$A7SV(IS$)AA<"ENTER 'STEP' FOR HORIZONTAL AXIS DATA: "JA>IS$XAAST(IS$)AF"ENTER ENDING VALUE FOR HORIZONTAL":"AXIS DATA: "AHIS$AKEV(IS$)Ac DETERMINE FUNCTION TO CALCULATE VERTICAL AXIS VALUES:!BdY(X)X23: CHAN-@ FILEMAKER FOR GRAPHICAL ANALYSIS IIIE@ VERNIER SOFTWARE\@ COPYRIGHT 1986u@( VERSION 12/18/86@*X(513),Y(513)@- SELECT VALUES CONTROLING HORIZONTAL AXIS DATA:@2"ENTER STARTING VALUE FOR HORIZONTAL":"AXIS DATA: "A4I980 990 990 9999 9999 1 0 99 99 99 99 9 660 670 670 680 680 690 690 700 700 710 710 720 720 730 730 740 740 750 750 760 760 770 770 780 780 790 790 800 800 810 810 820 820 830 830 840 840 850 850 860 860 870 870 880 880 890 890 900 900 910 910 920 920 930 930 940 940 950 950 960 960 970 970 980 340 350 350 360 360 370 370 380 380 390 390 400 400 410 410 420 420 430 430 440 440 450 450 460 460 470 470 480 480 490 490 500 500 510 510 520 520 530 530 540 540 550 550 560 560 570 570 580 580 590 590 600 600 610 610 620 620 630 630 640 640 650 650 660  "GRAPHICAL ANALYSIS III"7"VERNIER SOFTWARE"M"COPYRIGHT 1986"d("VERSION 1/22/87"vc ROUNDINGdSN$" "hNUZZSN$"-":NU(NU)lNUZZ140: SKIP ROUNDINGnRD$"D"136: ROUND DECIMALpPW1tNU1128 xNUѱ*HM(X)XXE:HM$HL$" * "(XE):E VERTICAL FUNCTIONSjVM(Y)Y:VM$VL$" ("VU$")":VM(Y)YYE:VM$VL$" TO THE POWER "(YE): VM(Y)(Y):VM$"LOG (BASE E) "VL$:$VM(Y)(Y)LL:VM$"LOG (BASE 10) "VL$:(VM(Y) AND MODIFY LABLE>HM(X)(X):HM$"LOG (BASE E) "HL$:mHM(X)(X)LL:HM$"LOG (BASE 10) "HL$:HM(X)(XRR):HM$"SIN "HL$:HM(X)(XRR):VM$"COS "HL$:HM(X)(XRR):VM$"TAN "HL$: HM(X)XXE:HM$HL$" + "(XE):6,1060,1064,1068,1072,1076,1080: GO SET APPROPRIATE FUNCTION FOR VERT.]1084: EXITz HORIZONTAL FUNCTIONSHM(X)X:HM$HL$" ("HU$")":: NO MODIFICATIONHM(X)XXE:HM$HL$" TO THE POWER "(XE):: SET MODIFICATION FUNCTIONSCAPEX13ı0Q$"Y"Q$"y"SE1:400MQ$"N"Q$"n"SE0:400YSE1SEb400h GET MODIFICATION FUNCTIONSHM1008,1012,1016,1020,1024,1028,1032,1036,1040: GO SET APPROPRIATE FUNCTION FOR HORZ.LVM1048,1052,105j330"l ACCEPT A LETTER2pQ$(13)ıMrQ1NS:Q$L$(Q)SEQTtQ]v356cx{ YES/NO QUESTIONYU1SE0ĝ:"YES ";::"NO":SE1Ğ:"YES";::" NO"YU:4Q$X(Q$)X27SE2:442: EQQ32:Q$(Q): LOWER CASE INPUTCZQ27SE0:376: EXITR\Q13ī376a^Q32ī364`Q8Q11SESE1:SE0SENSbQ21Q10Q32SESE1:SENS1SE1dYUOS:XLf(L$(OS))2ĺL$(OS);"- ";S$(OS):362hL$(OS);" - ";S$(OS)--------------------------------"OF" TYPE LETTER OR USE THE ARROW KEYS"tH" THEN PRESS "JYUSELXL::L$(SE);N(L$(SE))2ĝ:"- ";::S$(SE);::338P:" - ";::S$(SE);:ROSSETQ$VQ(Q$)'XQ96 I1(DB):DF$DF$((DBI)):* 7 , MENUH .YU18YU18X 0SENSSE1g 2SE0SE1~ 4NSYU19NS19YU 6Q1NS 8XL4 :QYU <(L$(Q))2ĖXL:L$(Q);"- ";S$(Q):320 >XL:L$(Q);" - ";S$(Q) @Q B20#D:"-------ATUS SB,WI%0 SI: SET INPUT STATUS9 EX0L (DF$)0ī245\ I1(DF$)t DBI,((DF$,I,1))z DB,(DF$) RE: READ INPUT GE: GET INPUT STATUS EX(SB9) EX2ī285 (DB)0DF$"":285 DF$""$NO ADDITIONS NEEDEDP I1RO1(CECD):NM$NM$"0":I:184: ADD ZEROES } (NM$)RO1NM$NM$"0":180: ADD ZERO NU$SN$NM$NE$ INPUT SUBROUTINE ENTER WITH DF$, AND WI%; EXIT WITH DF$ AND EX GE: GET INPUT ST DECIMAL POINT INCLUDED 2 NO DECIMAL POINT| RD$"D"NM$NM$".":I1RO:NM$NM$"0":I:184: ADD "." AND ZEROS (NM$)RO184: NO FILL NEEDED NM$NM$".":180: ADD "." & SEE IF 0'S ARE NEEDED RD$"D"180 CECDRO184: PWPWPWTT:120 |1328 NUPWTTPWPWTT:128H FCTTPWDEp NU(NUFCHH)FC: SIG. FIGS.~ NU$(NU) CE1(NU$) (NU$,CE,1)"E"Ă CD1CE1 (NU$,CD,1)"."Ă NE$(NU$,CE):NM$(NU$,CE1) CDCE177:(YRR):VM$"SIN "VL$:@,VM(Y)(YRR):VM$"COS "VL$:e0VM(Y)(YRR):VM$"TAN "VL$:4VM(Y)YYE:VM$VL$" + "(YE):8VM(Y)YYE:VM$VL$" * "(YE):<L GET DATA FILE NAMEV["CURRENT PREFIX: ";PF$:`"ENTER NAME OF FILE"naDF$N$:WI%65:200:EX21192: INPUT NAME (65 CHARACTERS ALLOWED)lN$DF$x:1195N$"": ON ESC SELECT MODIFICATION:"SELECT TYPE OF MODIFICATION:"QSE L$(1)"N":S$(1)"NO MODIFICATION TO CONTINUE, OR")$ y" TO EXIT."E$!y(KC)12831009: WAITh$"yKP,0:(KC)2731460: ESC$$y:"LOAD DATA FILE OPTION:"::$(yQQ$N$:N$"":1100: NOTE OLD FILE NAME AND THEN GET NEW FILE NAME (DEFAULT = NULL STRING)4%*yN$""N$QQ$:yFO3ĺ:"MERGE DATA FILE:":31016: MERGER#y"LOAD DATA FILE OPTION:"#yN031016: SKIP WARNING MESSAGE; NO DATA IN MEMORY#y:"WARNING!":"LOADING A NEW DATA FILE WILL ERASE THE"#y"DATA CURRENTLY IN MEMORY. "$y:"PRESS BACK TO MAIN MENU-"\v30003: PICK AGAINt"x(8)1Ĺ41859,3:D$;"CHAIN/RAM/PART.ONE,@2210": PART.ONE IN RAM"x"LOADING MAIN PART OF PROGRAM...""x41859,3:D$;"CHAIN ";PS$;"PART.ONE,@2210": PART.ONE ON DISK "y READ DATA FROM DISK4#$(6)"SET PREFIX"=!uL$(7)"R":S$(7)"CREATE SUBDIRECTORY"g!uL$(8)"X":S$(8)"RETURN TO MAIN MENU"!uYU2:NS8:SE8:300: MENU !uFOSE: REMEMBER FILE OPTION #!u!uSE37000,31000,31000,32000,35000,36000,38000"uSE8SE030900: FRE": HOUSEKEEPING OF STRINGS5 6u"FILE OPTIONS:"S uL$(1)"C":S$(1)"CATALOG"} uL$(2)"L":S$(2)"LOAD DATA FROM DISK" uL$(3)"M":S$(3)"MERGE DATA FROM DISK" uL$(4)"S":S$(4)"SAVE DATA ON DISK" uL$(5)"D":S$(5)"DELETE FILE"!uL$(6)"P":S(NX2X1X1)): STD. DEV. OF SLOPE xTBDQQ(X2(NX2X1X1)): STD. DEV. OF SLOPE ~U0u FILE OPTIONS MENU1u41859,7: APPLE BUG FIX2u600003u4uM$"F"40000: NUMERICAL ANALYSIS MODES 5uD$;"XSY)0RX1:1362: AVOID DIV BY 0 WITH CORR. COEFFT.nPRX(PSSNXAYA)((SN1)SXSY): CORR. COEFFT.RQQ(((Y22MPS2BY1MMX22MBX1NBB)(N2))): INTERMEDIATE VALUE USED IN CALCULATING STD. DEV OF SLOPE AND INTERCEPT6SMDQQ(N0:MD0:BD0:1365: PREVENT DIV BY ZEROL8XAX1SN:YAY1SN: MEANSy<M(PSSNXAYA)(X2SNXA2): SLOPE@BYAMXA: INTECPT.DSX((X2SNXA2)(SN1)): STD DEV OF XHSY((Y2SNYA2)(SN1)): STD DEV OF Y8L((SN1)S!VM(Y(J))YMYMVM(Y(J))@ SNSN1: NUMBER OF POINTSk$X1X1HM(X(J)):Y1Y1VM(Y(J)): SUMS(X2X2HM(X(J))HM(X(J)):Y2Y2VM(Y(J))VM(Y(J)): SUM OF THE SQUARES,PSPSHM(X(J))VM(Y(J)): PRODUCT SUMS0J.4SN2M0:B0:RXSN0:X10:Y10:X20:Y20:PS0: INIT COUNTERS_XM1E3:YM1E3: INITIALIZE MIN AND MAXqMX1E3:MY1E3JN(P1)1N(P): FOR EACH POINT IN THE SERIESHM(X(J))XMXMHM(X(J))HM(X(J))MXMXHM(X(J))VM(Y(J))MYMYVM(Y(J)) USED AS MULTIPLIER: ":1257$. ---k SUBROUTINE TO INPUT VALUES USED IN MODIFICATIONDF$"":WI%13:200:EX21275: INPUT REGRESSION CALCULATIONS THIS SUBROUTINE INCLUDES DETERMINATION OF MIN AND MAX2TER NUMBER TO BE USED AS THE POWER":1257: GET POWER TO BE USED SE8ĺ"ADD A CONSTANT TO AXIS VALUES"::"ENTER NUMBER TO BE ADDED: ":1257: GET CONSTANT TO BE ADDEDSE9ĺ"MULTIPLY THE AXIS VALUES BY A CONSTANT"::"ENTER NUMBER TO BE(7)"TANGENT (TAN "I$")"ML$(8)"+":S$(8)"PLUS A CONSTANT ("I$"+C)"L$(9)"*":S$(9)"TIMES A CONSTANT ("I$"*C)"YU6:NS9:SE1:300: DISPLAY MENU  ---(1):(16):958HSE2ĺ"RAISE AXIS VALUES TO A POWER"::"EN("I$")"=L$(2)"P":S$(2)"RAISE TO A POWER ("I$"^N)"mL$(3)"L":S$(3)"LOG TO BASE E (LN "I$")"L$(4)"D":S$(4)"LOG TO BASE 10 (LOG "I$")"L$(5)"S":S$(5)"SINE (SIN "I$")"L$(6)"C":S$(6)"COSINE (COS "I$")"L$(7)"T":S$31460: EXIT ON ESCAPE AFTER RESTORING FILE NAMEP%,y:"SELECT FILE TYPE: "m%@yL$(1)"N":S$(1)"NORMAL"%JyL$(2)"D":S$(2)"DIF(FOR TRANSFER FROM APPLEWORKS)"%LyL$(3)"C":S$(3)"CONVERTED DOS3.3 DATA FILE"&NySE1: DEFAULT NORMAL FILE, UNLESS...E&Oy(N$,4)".DIF"(N$,4)".dif"SE2: LIKELY A DIF FILEo&TyYU16:NS3:300: DISPLAY MENU 'YySE0SE1:N$QQ$:31460: ON , RESTORE FILE NAME AND EXIT, ALSO SET SE <>0 TO AVOID AUTOMATICALLY RETURNING TO MAIN MENU AFTER EXI 4FJ4KP%4P1;",";0:"EOD"94ZD$;"CLOSE ";N$?4dg4p"DATA SAVED IN A FILE NAMED: ":N$4r::"PRESS TO CONTINUE. ";:Q$4s30003: BACK TO MENU4 DELETE4"DELETE FILE:":5QQ$N$: SAVE CURRENT FILE NAME SO THAT I1;",";0:QM$;VU$;QM$"3P1PBM31;",";0:"BOT": SERIES LABEL TUBLEg3 Q$"SERIES "(P)":"3"1;",";0:QM$;Q$;QM$3%1;",";0:QM$;" ";QM$3&JN(P1)1N(P)3(1;",";0:"BOT": BEGINNING OF DATA320;",";X(J):"V"4<0;",";Y(J):"V" NUMBER OF ROWS IN DIF FORMA T M2؁"DATA":0;",";0:QM$;QM$~2⁺1;",";0:"BOT": BEGINNING OF LABLES TUPLE2쁺1;",";0:QM$;HL$;QM$21;",";0:QM$;VL$;QM$21;",";0:"BOT": BEGINNING OF UNITS TUPLE2 1;",";0:QM$;HU$;QM$3MBER OF SERIES=1I04:N(I):I: END OF SERIES MARKERSm133370: END OF NORMAL DATA SAVE ROUTINE1 DIF FILE SAVE 1"TABLE":0;",";1:QM$;QM$1ā"VECTORS":0;",";2:QM$;QM$: 2 COLUMNS/2΁"TUPLES":0;",";N1PB:QM$;QM$: ESC RESTORE FILE NAME AND EXIT40.D$;"OPEN ";N$H08D$;"WRITE ";N$i0BSE233200: DIF FILE{0G NORMAL FILE0LHL$0VHU$0`VL$0jVU$0tJ1N1: FOR EACH DATA PAIR PLUS END OF FILE MARKERS0~X(J)0Y(J)0J1PB: NU"NORMAL"A/L$(2)"D":S$(2)"DIF (FOR TRANSFER TO APPLEWORKS)"q/SE1: DEFAULT A NORMAL FILE, UNLESS.../(N$,4)".DIF"(N$,4)".dif"SE2: LIKELY A DIF FILE/$NS2:YU4:300: DISPLAY MENU 0)SE0SE1:N$Q$:33395: ON $.z30003: BACK TO MENU8.} STORE DATA ON DISK[.}Q$N$: REMEMBER OLD FILE NAMEu. }1100: GET FILE NAME.퀭N$""N$Q$:33395: EXIT ON NO ENTRY AFTER RESTORING FILE NAME.:"SAVE A FILE":."SELECT FILE TYPE:": /L$(1)"N":S$(1).-z31350: OPTIONAL LABEL FOR FIRST SERIESQ-zNJ1: NUMBER OF DATA PAIRS -zN(P)N:PBP:X(N1)9999:Y(N1)9999: SET END OF FILE MARKERS-zD$;"CLOSE ";N$-z:"FILE NAMED: ";N$:"LOADED INTO MEMORY".z::"PRESS TO CONTINUE ";:QQ,QQ:Q$: "BOT" MARKERD,zQ$"EOD"31400: END OF DATA{,zI,QQ:Q$:X(J)QQ: X DATA:NOTE FLAG HERE,zQ,QQ:Q$:Y(J)QQ: Y DATA,zI0JJ1:31350: MORE DATA-zJ1N(P)J1:PP1:31350: LABLE FOR NEW SERIES QQ$:FO2HL$QQ$: READ LABEL AND USE IT UNLESS IN MERGE OPTIONd+:zQ,QQ:QQ$:FO2VL$QQ$+DzQ,QQ:Q$: "BOT" MARKER+NzQ,QQ:QQ$:FO2HU$QQ$: UNITS+XzQ,QQ:QQ$:FO2VU$QQ$+bz DATA+lzJN1: START DATA LOOP HERE",vzALUES AND MARKERS:*y31410: END OF NORMAL FILE READP*y DIF FILE READt*zQ$:Q,QQ:QQ$: HEADER*zQ$"TUPLES"NRQQ: NUMBER OF ROWS*zQ$"DATA"31240: REPEAT TO FINISH HEADER*&zQ,QQ:Q$: "BOT" MARKERG+0zQ,QQ:IT )yJ^)ySE3N(0)0:N(1)N:N(2)0:N(3)0:N(4)0:PB1:31220: OLD DOS 3.3 FILE)yFO2ĄPB:I04:N(I):I: END OF SERIES MARKERS*yFO3ĄPP:I04:NN(I):I:I1PP:N(PBI)N(PB)NN(I):I:PBPBPP:PB4PB4: NEW V230: DIF FILE READ](yFO3ĄQ$:Q$:Q$:Q$:31160: DO NOT READ LABELS IF MERGE(yHL$:HU$:VL$:VU$: READ LABELS AND UNITS(yJN1513: FOR ALL POSSIBLE DATA PAIRS(yX(J)(yY(J))yX(J)9999Y(J)9999NJ1:J513: EXTA'^yFO2āI04:N(I)0:I:PB1:P1:N0: READ IN NEW FILE'cyFO3PPB:P4ė:"THERE ARE ALREADY FOUR SERIES IN MEMORY"::31442: MERGE 'hy NORMAL FILE READ'ryD$;"VERIFY ";N$'wyD$;"OPEN ";N$'|yD$;"READ ";N$(ySE231T CAN BE RESTORED.5ˆ1100: GET FILE NAME ?5LjN$""350555̈:"ARE YOU SURE YOU WANT TO DELETE THE FILE";:PF$;N$;" ?"5ֈSE0:YU5:400: YES/NO MENU<6SE1SE2:35055: DIDN'T WANT TO DELETE IT MAKE SURE SE<>0 OR ELSE YOU WILL RETURN TO THE MAIN MENU INSTEAD OF THE FILE OPTIONS MENUU6ꈺD$;"DELETE ";PF$;N$u6N$QQ$: RESTORE FILE NAME630003: BACK TO MENU6 SET PREFIX6"SELECT NEW PREFIX : ":6DF$PF$6WI%65:200:EX236060: INPUT PREFIX7όPU$8D:"CORRELATION COEFFICIENT: ";:NURX:100:NU$D̦:PR0ĺ"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX242900DD0PDD EXITD34,0: RESTORE WINDOWDD$;"PR#0": TURN OFF PRINTERE41000: BACK TO NUMERICAL ANAL2900 CZ#Cn"SERIES ";P;":":1CNUM:100]C"LINEAR REGRESSION LINE STATISTICS:":pC"SLOPE: ";NU$C"STD. DEV. OF SLOPE: ";:NUMD:100:NU$CNUB:100C:"VERTICAL INTERCEPT: ";NU$D"STD. DEV. OF VERT. INTERCEPT: ";:NUBD:100:NAN: ";:NUY1(N(P)N(P1)):100:NU$XB"VERTICAL AXIS STD. DEV.: ";:NUSY:100:NU$B"VERTICAL AXIS MINIMUM: ";:NUMY:100:NU$B "VERTICAL AXIS MAXIMUM: ";:NUYM:100:NU$BC TO CONTINUE ";:DF$"":WI%1:200:EX24IES: ";N(P)N(P1):SA"HORIZONTAL AXIS MEAN: ";:NUX1(N(P)N(P1)):100:NU$A"HORIZONTAL AXIS STD. DEV.: ";:NUSX:100:NU$A"HORIZONTAL AXIS MINIMUM: ";:NUMX:100:NU$A"HORIZONTAL AXIS MAXIMUM: ";:NUXM:100:NU$&B"VERTICAL AXIS MEOF WINDOW-@"NUMBER OF DATA SERIES: ";PBN@P1PB: FOR EACH SERIEST@i@"SERIES ";P;":"@PR0ĺ:"CALCULATING...": PRINT DELAY MESSAGE UNLESS A PRINTER IS BEING USED@1300: REGRESSION STATISTICSAĤ"NUMBER OF DATA PAIRS IN SER1:200:EX241000: CHOOSE PRINTERL?qPR(DF$):PR0ĺD$;"PR#";PRR?r?"STATISTICS: ";:HM1VM1ĺ"(MODIFIED DATA)";?::"HORIZONTAL AXIS: ":HM$?:"VERTICAL AXIS: ":VM$?:"NUMBER OF DATA PAIRS: ";N @34,8: SAVE TOP 0: BACK TO MAIN MENU R>SE42000,44000,46000,40030: OPTIONS ]>41000s> --- STATISTICS>n::"ENTER SLOT NUMBER OF THE PRINTER TO BE">o"USED OR PRESS TO SEE THE"*?p"STATISTICS ON THE VIDEO MONITOR"::DF$"":WI%":S$(1)"STATISTICS"6=PL$(2)"I":S$(2)"INTEGRATE"g=ZL$(3)"E":S$(3)"EXTRAPOLATE OR INTERPOLATE"=_L$(4)"M":S$(4)"CHANGE DATA MODIFICATION"=dL$(5)"X":S$(5)"RETURN TO MAIN MENU"=nSE5:NS5:YU10:300: MENU =x>SE5SE03090ESC IN SUBROUTINEC:"HORIZONTAL AXIS: ":HM$<@:"VERTICAL AXIS: ":VM$=FL$(1)"ST HORIZONTAL MODIFICATION TYPEW;XE(DF$): SET POWER OR CONSTANT FOR HORIZONTAL];n;œ VERTICAL;̜"VERTICAL AXIS DATA MODIFICATION:";֜:"AXIS LABEL: ";VL$:"AXIS UNITS: ";VU$;I$"Y": FOR VERTICAL;ꜰ1200:<SE041000: ON DATA3:^ ASK FOR TYPE OF MODIFICATION DESIRED9:hc:r"HORIZONTAL AXIS DATA MODIFICATION:":|:"AXIS LABEL: ";HL$:"AXIS UNITS: ";HU$:I$"X": FOR HORIZONTAL:1200: MODIFICATION MENU:SE041000: ON ESC: ;HMSE: SEED WITH THE NAME:":PF$;N$^9Ԕ"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX238155}9 N$Q$: RESTORE FILE NAME9830003: BACK TO MENU9@ NUMERICAL ANALYSIS:TM$"N"HM1:VM1:PL1:PHPB:40200: NO MODIFICATION, USE ALL";:DF$"":WI%1:200:EX237020>830003: BACK TO MENUS8p SUBDIRECTORYq8s"CREATE SUBDIRECTORY:":8uQ$N$: SAVE CURRENT FILE NAME SO THAT IT CAN BE RESTORED8z11008N$""381558D$;"CREATE";PF$;N$9:"NEW SUBDIRECTORY CREATF$DF$7ҌD$;"PREFIX ";PF$47ԌD$;"PREFIX":PF$N7֌:"NEW PREFIX: ";PF$x7،:"PRESS TO CONTINUE ";:Q$7܌30003: BACK TO MENU7 SHORT CATALOG7"CATALOG:":7D$;"CAT,TDIR"7D$;"CAT,TTXT""8"PRESS TO CONTINUE YSIS OPTIONS MENU(E૲ --- INTEGRATE]E嫺"INTEGRATE: ";:HM1VM1ĺ"(MODIFIED DATA)";E竺::"HORIZONTAL AXIS: ":HM$E諺:"VERTICAL AXIS: ":VM$E髺E꫺"ENTER LINE NUMBER FOR THE STARTING":"POINT OF THE INTEGRATION " FDF$"1":WI%3:200:EX244120%FQ(DF$):Q044990nF::"ENTER LINE NUMBER FOR THE ENDING":"POINT OF THE INTEGRATION "FDF$(N):WI%3:200:EX244120FFQQ(DF$):QQ044990FQ1QNQ1QQNQQQĺ:"IMPROPER LINE NUMBER, SELECT AGAIN "::44000GSCREENO)O768: CLEAR STACKvOEL2000ġ: IF ERROR OCCURS IN A SUBROUTINE, REMOVE ADDRESS FROM STACKOD$;"CLOSE": CLOSE ANY OPEN FILESOM$"F"30000: FILE OPTIONS MENU O41000: NUMERICAL ANALYSIS OPTIONS60040/N~EC53ĺ"ILLEGAL QUANTITY";:60040NNEC69ĺ"OVERFLOW";:60040vNEC133ĺ"DIVISION BY ZERO";:60040NEC255ĺ"CONTROL C";:60040N"CODE  ";EC;N" ERROR ON LINE ";EL;" *"NOJ13000:J: TIME DELAY TO READ ";:600405MpEC4ĺ"DISK WRITE PROTECTED";:60040^MrEC6EC7ĺ"PATH NOT FOUND";:60040}MtEC8ĺ"I/O ERROR";:60040MvEC9ĺ"DISK FULL";:60040MwEC10ĺ"FILE LOCKED";:60040MxEC17ĺ"DIRECTORY FULL";:60040NzEC19ĺ"DUPLICATE NAME";:CL"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX246990]L41000: BACK TO MENUuL` ERROR HANDLINGLcD$;"PR#0": TURN OFF PRINTERLd: RESTORE SCREENLeEL(219)256(218):EC(222)Lg:::"* "; MnEC3ĺ"NO DEVICE CONNECTED00: OUT OF RANGEFK̳"CALCULATING REGRESSION LINE STATISTICS..";:lKγ1300: REGRESSION CALCULATIONSK⳺"ENTER HORIZONTAL AXIS VALUE: ";:DF$" ":WI%13:200:EX246990KNUM(DF$)B:100KK"CALCULATED VERTICAL AXIS VALUE: ";NU$LMEANINGFUL IF"1J"THE DATA IS NOT LINEAR.":]JPB1P1:46028: ONLY ONE SERIESJij"ENTER THE NUMBER OF THE SERIES TO"JƳ"BE USED (1-";PB;")"JȳDF$"":WI%1:200:EX246990Jɳ:JʳP(DF$):P046990: ON K˳P1PPBĺ:460ERPOLATEOI"EXTRAPOLATE OR INTERPOLATE: ":HM1VM1ĺ"(MODIFIED DATA)";oI:"HORIZONTAL AXIS: ":HM$I:"VERTICAL AXIS: ":VM$:I"THIS PROGRAM USES THE LINEAR REGRESSION"I"LINE TO DO THE CALCULATION.":J"THE RESULTS WILL NOT BE 0:NU$;" TO ";:NUHM(X(QQ)):100:NU$[H::"TRAPEZOIDS USED IN THE INTEGRATION: ";QQQHD:"TOTAL AREA: ";:NUA:100:NU$HIHN"PRESS TO CONTINUE ";:DF$"":WI%1:200:EX244120HX41000: BACK TO MENU I --- EXTRAPOLATE OR INTA0: INIT FGJQQQ1: FOR EACH LEFT EDGE OF A TRAPEZOIDGAA(VM(Y(J))VM(Y(J1)))2(HM(X(J1))HM(X(J))): AREA OF TRAPEZOID, ABS IS USED SO THAT THE AREA HAS THE RIGHT SIGN G&JG0(H2"INTEGRATION FROM ";:NUHM(X(Q)):10