8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !C}" %"" &)#M8( Y% ) LH""" &)jB, )7(P0 ( @X p 8 " ! +}""0 &"0 R%"" &)?) ;",")ɂ """ &) R%LH"? @*,DISTANCE.SRCV w%CHAOSK w!%TIMERm  v $MDDT @Ҵ, INPUT m /IM.HIRES.1C00.0[ 64MISC.300k F $FONT ,(DISTANCE w;DISTANCE.OBJE 1 %SOUND wSOUND.0 |))SOUND.SRC x  &MOTION !MC' 4MOTION.OBJ Cܴ4)PB.TESTERaX s 'LP.1200d 5&VISIONg  %COLORoy ,COLOR.TESTERw w )COLOR.USRz w XP  w PDL.TESTERQ s THERM.CALR. ( THERM.CAL.2S[ 9PDL.CHECKTU 8-PDL.CHECK.SRCV w% $QUIZ[1 CHAOS1 ' #&PRODOS"}@ !(,BASIC.SYSTEM*( ! STARTUP>; &UPDATE^  *THERMISTORA w ,THERMISTOR.2I? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R)0I0hx H( , R%Щ ߩ"L! )L! 8'  )ɀ)4,- U JNT) "L"" &) !` |"M)  !"#$%&'(<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?/<ʆ>-=?BC8 é&'112`? ( <x0HH1HH "hh+("i 0Ꮻ\Ꮸ0hh8(`hhh8kee` `+ *+ *` * * *`hh8`8`+++`}+`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *L7'JJJJ`Ϡ3(8`&h)hrȱȱȱȱ0]cȱeem+ȱ+ȱ++ȱ++ȱ+ )+ C* )L2)`Ly* U*L) ) L2) )L)8e` ,$`)ɀ  );( ` (Xp< @;( )m;(;(.;(>( M;(i  ``) '(j21 & &!` )&&(i(&(( CBDFGE !)&$ m(,&& … m(ŅJ 81(&2(& m((ʎ1ζ&ζ&&3223 ')L&18&"m11 2H22h2舌&&12H)M0 h10200I20h2 C(`L%12 `_3("L  <8# ȱ X?&G& e&&q&P&0`ŠӠֱ̭ԠŠҬî̠ӠĮʎ1&… )n&Dž )\%T&L()8= ) ͍B B(8`<YYZLYLYLY뿭` 8!@8` R%MNЩUMߩ  L 5   8 0 8  `0 / i  a Y n ɟg   VR6  .X ɛL " e ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ }FELT#> ȏ6 . ) ɟ"     Lb#b#ŠϠĠԠ  m# m# J Qڨ)̰}]! нȱ ̀𩠙Fi/ ƀ"3 """ " iL X\"LY"ίΠ`"""""(#*(% F%Z]eRQ!0SB}RBiBB}`آ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@pvȱ@Hȱ@Ah@@cpe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a ,FإGؐ.` ,JHIH۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` 1 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥GȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K08`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ݰJK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 0NN` G8`F@ 0 F LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mJHi 뎁`C8` @)0 3N0" K莭0 ⭪i` ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA C'KI؍0lhh8` Q)T'P") ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,`B f-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпlll IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFȱJL8`GBJ R FإG`BH RFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL)J  8"L zH  8 9ؙ` @ P8`K8`B8` H؈OJJJJ>K@J5 z9X(K zXXK تKo`V8`no` C on zI9XX`)HJJJh`OeNeO࿰ z9XАO`@ȭ@` ON `NJKO`H݅G ` } tͬ 밽܅F݅G ` }) t$ L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@BɼH GB`FaG 3%&N    ܮ `J HH hh` 0 @ LJL t_̴Xܝ ݝ0̴ȩFG  0` ܅F`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 F`aO)@LP8` `  zHOCDC h`yٙ٭yٙ٩`LL =@ -ȹP8` i` ;ם0 -B ;)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J -טyרםOO)׍OୱJJJJ Ȣ؝I؈ 6h(8H ; h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @ ) 9⬂Ȣ؝z@zݚ@ʈLN KIJHȢݚ h魚)Jn 8 δ ؍ ؍ `H8 ع)8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  H  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . Q#ع؍0 ]讁)`.@+ i ؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL& O, PeNNO N(` C  7 2JvHIwHI؊ LI  ,` A Hv ع Hw ؙ؊ؠIhHIhO`؝}}vIvؐ` hzؽ}؝v h ' h؝zv؈` ` H Rh)N@ 9; L  6$ )bJ ] ) H 6hL )  )حJjIwHIvHNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL9L-M O,p莝eNNO(`JNKOL 6/ $P L8 } [ؑJ`L@ȱ@ `@Nȱ@ LL L L 6 $pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8Nm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Qh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$%хhꭋILhH),ex8 (8` ԍ`@Ae Hk00YpmGIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-89APPLE` M )ЏL6  9 X [ ?  W" !# n. n'% n% n ɍ+Ɋɋɉɛݮʽ/ L6L[  Mȱ蝀ح o âXoύX1021ʆ ")i/ d+ M# L $0)0ei B = )n  ЭFby 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ӿ``LKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LR` ̭  ( 9 X L $ ` & & & &e`{8i [`0{2H* Ah2  Mȱ  L `κºú` GAB0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEJپھ pHJh` D!hgtp `tp8nnitpiͱtso8pinii>j?kͷ>pIiͯͷ l - `>i>LG8H933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B;8`W K  黐LK ҟ ҟ l KK`JJJJ8`轌K)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅3ݷ03پھ p +H־Ǿh۰8L־Jjjj2껽3뻭ɾ)Ⱦ8껰  OLӜ ΤLLX>(F﻽ﻝﻩ`ֻ־ؾپھ׾` bɄ KDEF vLl v lL5 bKɍKL?`  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O黩 puȾ ɾ-O c־Jjjj껝2뻝3 `O>0O v PODEF޾ p ޾ p($ذ v (0 ?( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ ?B94 l% bʽ  ՚,S` H H06172839h` v97L75v^a ?/( va?L5LLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b ,S0 @ lLޭBYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠ)+,-./0123456789:;<=JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""I򭭻LLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<?Ek?!>Q>>>Ͳͳ `` \>Ͳ ͳ `e>>?ʹ?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`;=:<:<=;`ͯm;>:8o>oȑ>ppȑ>> :op` DKpn͋ @p;틻=po:S -޻.߻$I2 U)VJ T)`l޻8`a HbIJhjǾȾɾ p٭b=a>m>` im8iŻnjƻkiljoŻi>?Ek?>Q>> L> \/ e>>?ʹ?ޱ>ȥ])Y 񩢍`Ⱦɾ0Ǿ p)ﻩ  v6 A= 9& 98Hh 9` 䱰6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ뻐 ɾɾ0m껐iȾ p pY)`lP c*,N!ǾȾɾʾ pǾ~H ?h8`8`,C ?  8` ȾɾM$ mHƻƻλǾ phϾ pH Lh8`ϾZ2d"CHAOS IN THE LABORATORY AND 13 OTHERZn"SCIENCE PROJECTS FOR THE APPLE IIax"" VERNIER SOFTWARE" 2920 S.W. 89TH STREET" PORTLAND, OR 97225"" UPDATE PROGRAM"# "THIS 2"BOOK: /CHAOS2, /S1, AND /S2. THE /S1"W <"AND /S2 DISKS ARE THE BACKS OF THE" F"ORIGINAL DISKS PACKAGED WITH THE BOOK." :5 "CHAOS IN THE LABORATORY AND 13 OTHER"`"SCIENCE PROGRAMS USING THE APPLE II"f" COPYRIGHT 1991"" VERNIER SOFTWARE""THIS DISK IS /CHAOS1. THERE ARE ("THREE OTHER DISKS FOR USE WITH THIS"-LLLLL58ﻀۻ)Iۻ `2Eۻ8`ﻀ ԠŬLL孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~T٩   LiLMTRüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>AIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDbzDl e|Ŭ-⭚ݴgaB<{P~VM@@ -!S    !C- !ABELSDFRV@@ !$(19@EȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHǾҾ,G 8`׾ؾ  p ۥs׾tؾE` c ( |о(־Ǿ,G 8`_`W)H־Jjjjh2׻3ػ p̭ػ׻ L%Ǿ廎滠 ..8׻ػ 廍⻈ۭ (׻8廪ػ滨mȾ>Ie f`8` cP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ŵ 춰5W) )W)@! pZ}ȾȾ󰹩 p` c־hƻλHλλhλ p' L,N HCNh`M`M Nλ 鴐`޾Lp ch־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`׻⻭ػ㻩仍廍ȾɾʾNfne}ȾȾI忩 pH Lh8`jGMǻоϻM  G1):_2`3蹀3:`V)8`MN;λ ;λ`;Cֻ N8` 1G)̀#:2׻3ػ蹀3:`V)R c޾ƻ,N0MHƻƻоֻ־ǾҾ_` /Ӿ pW) fLC`C Nλ `9V) ` V) c޾ p` c (8` 8`8`(W)`_V)Ij!؍Í`_ PjЭW)`_ ϾPROGRAM WILL LIST ALL CHANGES ANDO "ADDITIONS TO THE BOOK. THIS FILE WAS m "LAST UPDATED ON 4/5/92.s "INTRODUCTION: " "ON PAGE XXIV OF THE INTRODUCTION, WE "MIXED UP CELSIUS AND FAHRENHEIT "TEMPERATURES. THE MELTING PO * THERMISTOR` * FROM "CHAOS...", VERNIER SOFTWARE, 2920 SW 89TH, PORTLAND, OR 97225 * COPYRIGHT (C) 1991 VERNIER SOFTWAREd}SO(4,4),CT(3),T(3): CALIBRATION ARRAYSD$(4): CONTROL D (FOR DISK ACCESS): D$;"BLOAD PDL.CHECK"OPEN THERM.CAL"+>D$"WRITE THERM.CAL"RCA:B:C: CALIBRATION FOR PDL0kMD$"CLOSE THERM.CAL"qR *************************************************** DISPLAY COUNTS GS(49206):GS127Ĺ49206,GS128: SET GS TO 2,2)4II24: SUBTRACT TO CLEAR THE SECOND 0VSO(II,3)SO(II,3)CMSO(II,2)^II  BACK SUBSTITUTE TO FIND 3 CALIBRATION VALUES%CSO(4,3)SO(3,3)*B(SO(4,2)SO(3,2)C)SO(2,2)/A(SO(4,1)(SO(3,1)C)(SO(2,1)B))SO(1,1)9D$3000:J:200#SO(2,I)(CT(I))JSO(3,I)(CT(I))(CT(I))(CT(I))pSO(4,I)1(T(I)273): KELVINwIII14: SUBTRACT ROW 1 FROM ROWS 2 AND 3SO(II,2)SO(II,2)SO(II,1)SO(II,3)SO(II,3)SO(II,1)II CMSO(2,3)SO(URED%"WITH A THERMOMETER). ";K"";T(II): ACTUAL TEMPERATUREcCT(II)CN: COUNTkII SOLVE FOR THERMISTOR CONSTANTSI13: SET UP SOLUTION MATRIXSO(1,I)1.0CT(I)0ī740"CALIBRATION ERROR":J1)v"PRESS WHEN THE 'COUNTS'"@{"HAVE STABILIZED.Fk1020: READ COUNTSq(49152)14164549168,0: CLEAR KEYBOARD BUFFER"ENTER THE ACTUAL TEMPERATURE OF THE"WATER BATH IN CELSIUS (AS MEASI:"CALIBRATE PROBES"IN::"TO CALIBRATE THE PROBE, YOU WILL NEEDrS"TO PLACE THE PROBE IN THREE WATER"X"BATHS OF KNOWN TEMPERATURES. THEb"'COUNT' READING WILL BE DISPLAYED."lII13q::"PLACE THE PROBE IN WATER BATH #";II;".(CN)+TE1(ABLGC(LGLGLG))273.1h23:(TE100.5)100: PRINT COUNTS AND TEMPERTURE&(49152)141(49152)155520: REPEAT UNTIL KEY IS PRESSED0: ***********************************D CALIBRATE PROBES*****************2  DISPLAY TEMPERATURE 8 X "PRESS TO EXIT": " COUNTS TEMPERATURE (DEG. C)" 1020: SUBROUTINE WHICH ACTUALLY READS THE COUNTS CN0TE9999:540: INVALID COUNT RETURNED--SKIP ITLG | DISPLAY COUNTS ! ? "PRESS TO EXIT"E S "COUNTS"Y  1020: SUBROUTINE WHICH ACTUALLY READS THE COUNTS  (49152)141(49152)155430: REPEAT UNTIL KEY IS PRESSED   ******************ISPLAY TEMPERATURE/ "" Z - CALIBRATIONC ," Q - QUITM 6:M$i @(M$"Z")(M$"z")İ580 J(M$"T")(M$"t")İ470 T(M$"C")(M$"c")İ380 ^(M$"Q")(M$"q")Ā h210: REPEAT MAIN MENU  r ***********************************A:B:C: READ CALIBRATION CONSTANTS FOR PDL0 P D$"CLOSE THERM.CAL"\ MENU:r : CLEAR SCREEN 49168,0: CLEAR KEYBOARD BUFFER "THERMISTOR PROGRAM : "SELECT MODE:"  " C - DISPLAY COUNTS" " T - D@BCDEFG,A$300": LOAD THE MACHINE LANGUAGE PDL.CHECK ROUTINE\ READ CALIBRATION FILE D$"OPEN THERM.CAL": THIS IS THE FILE WHICH CONTAINS THE CALIBRATION CONSTANTS SO THAT COUNTS CAN BE CONVERTED TO TEMPERATURES D$"READ THERM.CAL"7 NORMAL SPEEDA768: RUN THE PDL CHECK PROGRAM TO READ PDL0CN(974)((975)96)256: READ COUNTS IN DECIMAL FORM5:CN;.GS(49206):GS128Ĺ49206,GS128: RESTORE GS TO FAST SPEEDG7 * THEMRMISTOR.2 (FOR USE WITH TWO THERMISTORS) * FROM "CHAOS...", VERNIER SOFTWARE, 2920 SW 89TH, PORTLAND OR 97225 * COPYRIGHT (C) 1991 VERNIER SOFTWARE}SO(4,4),CT(3,2),T(3,2),A(2),B(2),C(2): CALIBRATION ARRAYS D$(4): II CMSO(2,3)SO(2,2)HII24: SUBTRACT TO CLEAR THE SECOND 0jSO(II,3)SO(II,3)CMSO(II,2)rII  BACK SUBSTITUTE TO FIND 3 CALIBRATION VALUES%C(P)SO(4,3)SO(3,3)*B(P)(SO(4,2)(SO(3,2)C(P)))SO(2,2)!/A(P)(SO(4,1)(SO(3,1 ERROR":J13000:J:2002SO(2,I)(CT(I,P))_SO(3,I)(CT(I,P))(CT(I,P))(CT(I,P))SO(4,I)1(T(I,P)273): KELVINIII14: SUBTRACT ROW 1 FROM ROWS 2 AND 3SO(II,2)SO(II,2)SO(II,1)SO(II,3)SO(II,3)SO(II,1)TEMPERATUREET(II,2)T(II,1): MAKE ACTUAL TEMPERATURES THE SAMEwCT(II,1)CN(1):CT(II,2)CN(2): SET COUNTII SOLVE FOR THERMISTORS:P12I13: SET UP SOLUTION MATRIXSO(1,I)1.0CT(I,P)0ī740"CALIBRATION1020: READ COUNTS)N(49152)141(49152)155645s49168,0: CLEAR KEYBOARD BUFFERy"ENTER THE ACTUAL TEMPERATURE OF THE"WATER BATH IN CELSIUS (AS MEASURED"WITH A THERMOMETER). "; T(II,1): ACTUAL IN THREE WATER":X"BATHS OF KNOWN TEMPERATURES. THE`b"'COUNT' READING FROM EACH PROBEzg"WILL BE DISPLAYED. lII13q::"PLACE BOTH PROBES IN WATER BATH #";II;".v"PRESS WHEN THE 'COUNTS'"{"HAVE STABILIZED.#(49152)141(49152)155520: REPEAT UNTIL KEY IS PRESSSEDW0: ***********************************D CALIBRATE PROBESI:"CALIBRATE PROBES"N::"TO CALIBRATE THE PROBES, YOU WILL NEEDS"TO PLACE BOTH PROBESE WHICH ACTUALLY READS THE COUNTS. I12pCN(I)0TE9999:540: INVALID COUNT RETURN -- SKIP ITLG(CN(I))TE1(A(I)B(I)LGC(I)(LGLGLG))273.11010I:(TE1000.5)100;: PRINT COUNTS AND TEMPERATURE!I"Q&155(49152)141430: REPEAT UNTIL KEY IS PRESSSEDN y  ***********************************  DISPLAY TEMPERATURE  "PRESS TO EXIT": " COUNTS TEMPERATURE (DEG. C)"#1020: SUBROUTIN h210: REPEAT MAIN MENU I r ***********************************c | DISPLAY COUNTS i  "PRESS TO EXIT"  "COUNTS FROM:" "PDL0 PDL1" 1020: SUBROUTINE WHICH ACTUALLY READS THE COUNTS H (49152) "SELECT MODE:" 9 " C - DISPLAY COUNTS"\ " T - DISPLAY TEMPERATUREw "" Z - CALIBRATION ," Q - QUIT 6:M$ @(M$"Z")(M$"z")İ580 J(M$"T")(M$"t")İ470 T(M$"C")(M$"c")İ380 ^(M$"Q")(M$"q")Ā CONVERTED TO TEMPERATURES6 D$"READ THERM.CAL.2"A I12t A(I):B(I):C(I): READ CALIBRATION CONSTANTS{ I D$"CLOSE THERM.CAL.2" MENU: : CLEAR SCREEN 49168,0: CLEAR KEYBOARD BUFFER "THERMISTOR.2 PROGRAM :HJKLMNOPCONTROL D (FOR DISK ACCESS)m D$;"BLOAD PDL.CHECK,A$300": LOAD THE MACHINE LANGUAGE PDL.CHECK ROUTINE READ CALIBRATION FILE  D$"OPEN THERM.CAL.2": THIS IS THE FILE WHICH CONTAINS THE CALIBRATION CONSTANTS SO THAT COUNTS CAN BE)C(P))(SO(2,1)B(P)))SO(1,1)(4PB9D$"OPEN THERM.CAL.2"]>D$"WRITE THERM.CAL.2"CA(1):B(1):C(1): CALIBRATION FOR PDL0HA(2):B(2):C(2): CALIBRATION FOR PDL1MD$"CLOSE THERM.CAL.2"R ***************************************************8 DISPLAY COUNTS wGS(49206):GS127Ĺ49206,GS128: SET GS TO NORMAL SPEED768: RUN THE PDL CHECK PROGRAM TO READ PDL0CN(1)(974)((975)96)256: READ COUNTS IN DECIMAL FORMCN(YTE LDA PTRIG ; TURN OFF TRIGGER TRANSISTOR ********************* CHECK0 BIT PADDLE0 ; CHECK FOR CAPACITOR CHARGED BPL STORE ; IF CHARGED, GO STORE RESULTS INY ; INCREMENT LOW BYTE BNE STALL0 ; NO OVERFLOW, STALL A BIT INX ; INCREMENT HIGH BYTE BNUWXYSTOR STOREL EQU $3CE ; LOW BYTE OF COUNTS STOREH EQU $3CF ; HIGH BYTE OF COUNTS PADDLE0 EQU $C064 ; TO CHECK PDL0 PADDLE1 EQU $C065 ; TO CHECK PDL1 ******************** ; INITIALIZE 0 INIT0 LDX #$60 ; INITIALIZE HIGH BYTE LDY #$01 ; INITIALIZE LOW B************************** *PDL.SOURCE.CODE *BY DAVID L. VERNIER *COPYRIGHT (C) 1991 VERNIER SOFTWARE *VERNIER SOFTWARE *2920 S.W. 89TH ST. *PORTLAND, OR 97225 *************************** ORG $300 ; START AT 768 ($300) PTRIG EQU $C070 ; TRIGGER TRANSI`p,d1L4L`p,eL4L!LTLTLC`1.70324234E-03 1.94757255E-04 2.33111842E-07 1.70324234E-03 1.94757255E-04 2.33111842E-07 3.20564992E-03 -1.11674611E-04 2.1523229E-06 OR EACH PROBE3 P0Ė(P10): SPACE OVER > (P);V X1100:X: STALL] Pc (49152)128160: LOOP UNLESS A KEY IS PRESSED 34,0:: RESTORE TOP OF SCREEN AND ENDd * PDL TESTERbn * FROM "CHAOS...", VERNIER SOFTWARE, 2920 S.W. 89TH, PORTLAND, OR 97225s * COPYRIGHT (C) 1991 VERNIER SOFTWAREx:}"PDL.TESTER""PDL0 PDL1 PDL2 PDL3"34,2: SAVE TOP OF SCREEN P03: F1);7794: RUN THE PDL CHECK PROGRAM TO READ PDL1y$CN(2)(974)((975)96)256: READ COUNTS IN DECIMAL FORM)10:CN(2);.GS(49206):GS128Ĺ49206,GS128: RESTORE GS TO FAST SPEEDGE RELOOP0 ; START LOOP OVER JMP OVERFLOW ; OVERFLOW STALL0 NOP ; NO OPERATION NOP RELOOP0 JMP CHECK0 ******************** ; INITIALIZE 1 ; INITIALIZE FOR READING PDL1 INIT1 LDX #$60 LDY #$01 LDA PTRIG ; TURN OFF TRIGGER TRANSISTOR ********************* CHECK1 BIT PADDLE1 ; CHECK FOR CAPACITOR CHARGED BPL STORE INY ; INCREMENT LOW BYTE BNE STALL1 INX ; INCREMENT HIGH BYTE BNE RELOOP1 JMP OVERFLOW ; OVERFLOW STALL1 NOP NOP RELOOP1 JMP CHECK1 ******************** OVERFLOW STX STOREH ; STORE 39LW))gCH1(PR$)_lAC((PR$,CH,1)): DETERMINE THE ASCII CODE OF THE CHARACTER{HZ,H:VZ,V: TELL THE ML ROUTINE THE STARTING SPOT FOR CHARACTERAB,AC: POKE IN THE CHARACTERCA: CALL MACHINE LANGUAGE ROUTINE"HHLW:GE CHARACTERST0 110;X LARGE DIGIT DISPLAYY ENTER THIS ROUTINE WITH PR$ SET TO A STRING, V SET TO THE VERTICAL POSITION AND LW SET TO THE LETTER WIDTHZH1: START AT LEFT EDGE\: SWITCH TO LO-RES GRAPHICS bPR$(PR$,(49168,0: CLEAR KEYBOARD&Y$HY$"Q"Y$"q"ĉ:: QUIT(B0)127(B1)127ĺ"WAITING UNTIL BUTTONS RELEASED":258NTEAMS3(B2)127ĺ"WAITING UNTIL BUTTON 3 IS RELEASED":259 PR$" READY":V0600: DISPLAY IN LAR CLEAR KEYBOARD BUFFER3 (T1TNTEAMS)110P A BUTTON WAS PRESSED:{ (7): CONTROL GI, TO GENERATE BELL 600: DISPLAY IN LARGE CHARACTERS "PRESS WHEN YOU ARE" "READY FOR NEXT QUESTION""PRESS TO QUIT" B qNTEAMS2210: SKIP IF NO TEAM 3 r((B2)127)T3: T=3 , YELLOW DISPLAY TEAM WITH 1ST RESPONSE T1PR$"RED":V10 T2PR$"GREEN":V20 T3PR$"YELLOW":V30 49168,0: ";NTEAMS? P(4);"BLOAD LP.1200": LOAD MACHINE CODE V ZT0: INITIALIZEl d:"QUIZ PROGRAM" i:"READY FOR THE FIRST QUESTION" n((B0)127)T1: T=1 INDICATES RED  p((B1)127)T2: T=2 , GREEN DDRESS TO STORE CHARACTERF INITIALIZE ADDRESSES FOR PB INPUTSo B049249: ADDRESS USED TO READ PB0 B149250: ADDRESS USED TO READ PB1 B249251: ADDRESS USED TO READ PB2 : #"QUIZ SHOW" &: ("HOW MANY TEAMS ARE THERE?Z\]^_TO MAKE ROOM !!!M  INITIALIZE VARIABLES FOR THE LARGE DIGIT ROUTINE:q LW6: SETS WIDTH OF LETTERS HZ4612:VZ4613: ADDRESS TO STORE HORZ. & VERT. POSITIONS FOR LARGE PRINT CA4608: ADDRESS OF LARGE PRINT ROUTINE AB4611: A QUIZ SHOW PROGRAM i FROM "CHAOS...", VERNIER SOFTWARE, 2920 SW 89TH, PORTLAND, OR, 97225 COPYRIGHT (C) 1991 VERNIER SOFTWARE  !!! IF YOU MODIFY THIS PROGRAM AND MAKE IT LONGER, YOU WILL RUN INTO PROBLEMS. DELETE REM STATEMENTS ; CONTINUE LOOP INX ; INC HIGH BYTE BNE REPEAT JMP EXIT ; ALL COUNT CYCLE COMPLETED CONTINUE NOP NOP REPEAT JMP DELAY ******************* EXIT RTS HIGH BYTE STY STOREL ; STORE LOW BYTE JMP EXIT ;********************* ; STORE STORE STX STOREH ; STORE HIGH BYTE IN MEMORY STY STOREL ; STORE LOW BYTE IN MEMORY ********************** ; DELAY LOOP DELAY NOP NOP NOP INY ; INC LOW BYTE BNE CONTINUE STEP OVER TO NEXT CHARACTER*CH0d * PB TESTER bn * FROM "CHAOS...", VERNIER SOFTWARE, 2920 S.W. 89TH, PORTLAND, OR 97225s * COPYRIGHT (C) 1991 VERNIER SOFTWAREx"PB TESTER""THE STATUS OF EACH PB INPUT LINE IS""INDICATED IN THE CHART BELOW."% "fhijklm S(MT,4),N$(MT),CC(MT),P$(MT),F(4)? B00:B10:B20:B30e A0: NUMBER OF DIGITIZED OBJECTS W50: IMAGE AVERAGING VALUE ,: :  ***********************  MAIN LINE  *********************** :  * COMPUTER VISIONb * FROM "CHAOS...", VERNIER SOFTWARE, 2920 SW 89TH, PORT, OR 97225 # * VERSION 2.3 6/18/90 BY SATOSHI KINO( * COPYRIGHT (C) 1991 VERNIER SOFTWARE VARIABLE INITIALIZATION MT20: NUMBER OF ARRAY ELEMENTS' ||III6>AAA"AAA>IIIA >AAQqAA @@@?"A@@@@ >AAA> >AQ!^ )F&III2?@@@? @   ccxaQIECceG&H,I2J8K>LDMJNPOVP\QbRhSnTtUzVWXYZ(OIIyIIIAAcdTL|AAc"A III""">@@0AAyIIOIIIOIIyIIyII L   3L轤L mmm L8N dL d` dm8 L`=fu{ #+-./0123456789ABCDEF REPEAT LOOP UNLESS A KEY IS PRESSEDM 49168,0: CLEAR KEYBOARD W ::`bPRESS TO END THE PROGRAM."H 958: CLEAR SCREEN TO BOTTOMP 18s (49249)127ĺ"PB0 HIGH":220 "PB0 LOW " (49250)127ĺ"PB1 HIGH":240 "PB1 LOW " (49251)127ĺ"PB2 HIGH ":260 "PB2 LOW ", (16384)128180:1000: CALLS MAIN MENUE Q3ĺ::"COMPUTER VISION TERMINATED":w Q3000,10000: BRANCH TO SELECTED SUBROUTINE 500 :  ***********************  MAIN MENU  *********************** : ::"COMPUTER VISnpqrstu THE LIGHT GOING"B |"THROUGH A COLORED SOLUTION AND CONVERTS"n ~"THE LIGHT INTENSITY INTO ABSORBANCE." :"ABSORBANCE IS PROPORTIONAL TO THE "CONCENTRATION, THEREFORE WE CAN DO" "CHEMICAL ANALYSIS WITH THIS DEVICE." :::" PRESS < *COLORIMETER PROGRAMc *FROM "CHAOS...",VERNIER SOFTWARE, 2920 SW 89TH, PORT, OR, 97225 *COPYRIGHT (C) 1991 VERNIER SOFTWAREd49243,1:49245,1:49247,1: TURN OFF ALL LEDSn::"COLORIMETRY PROGRAM"x z"THIS PROGRAM MEASURESb/" ";CC(T),P$(T)l/"/:j/::"WOULD YOU LIKE TO IDENTIFY ANOTHER":"OBJECT? (Y/N) [Y] :";Q$/(Q$"Y")(Q$"y")(Q$"")ī10000/ )CC(J)TJ/Jn/TI1TEMPCC(T):CC(T)CC(I1):CC(I1)TEMP:TEMP$P$(T):P$(T)P$(I1):P$(I1)TEMP$u/I{&/:+/ DISPLAY CLOSEST MATCH0/::"I SEE ";P$(1)5/"WITH A DIFFERENCE VALUE OF: ";CC(1):/N/"COULD ALSO BE:"X/T2AIN MEMORY AND OBJECT IN QUESTION-f+V1A8z+I14W+CC(V)CC(V)(F(I)S(V,I))^+Ie+Vk+:+ BYPASS SORTING IF THERE IS ONLY ONE OBJECT IN MEMORY+A1ī12080+:+ SORT DIFFERENCE ARRAY.I2A.TI1.JIA .CC(T."0*F(1)B0W:F(2)B1W:F(3)B2W:F(4)B3W6X*:pb* TRANSFER OBJECT NAME ARRAY TO TEMPORARY ARRAY P$(){l*T1Av*P$(T)N$(T)**:B+ BYPASS SORTING\+ SUMMATION OF DIFFERENCE FORMULA"a+ CALCULATES DIFFERENCE BETWEEN OBJECTS MEMORY: ";A1V'" IMAGE AVERAGING VALUE: ";W9,):f6)"PRESS TO START DIGITIZING";Q$T):"DIGITIZING IMAGE..."^):) READ VALUES FROM CELLS)T1W)B0B0(0):B1B1(1):B2B2(2):B3B3(3))):)"CALCULATING..': ''' INITIALIZE VARIABLES<'T1A:CC(T)0:T'B00:B10:B20:B30'A0ĺ"NO TEMPLATES IN MEMORY - PRESS TO CONTINUE":C$:$':"COMPUTER VISION - IDENTIFY OBJECTS".'L'"CURRENT STATUS:"Q'" NUMBER OF TEMPLATES INS(A,3)B2W:S(A,4)B3W :C :"OBJECT HAS BEEN DIGITIZED."q "DIGITIZE ANOTHER OBJECT? (Y/N) [Y]:";Q$ (Q$"Y")(Q$"y")(Q$"")ī3000 &:& **********************& IDENTIFY OBJECT & ********************** "PRESS WHEN READY TO DIGITIZE";Q$4 : I D "DIGITIZING..."O N : S READ IN VALUES FROM THE FOUR CELLS AND TAKE THE AVERAGE X T1W l B0B0(0):B1B1(1):B2B2(2):B3B3(3) q t "CALCULATING..."v S(A,1)B0W:S(A,2)B1W: " **********************( :. J INITIALIZE VARIABLESb B00:B10:B20:B30 :"COMPUTER VISION - DIGITIZE OBJECTS" INCREMENT TEMPLATE COUNTER AA1 "OBJECT NUMBER:";A "ENTER OBJECT NAME:";N$(A)  . &ION - MAIN MENU" < " 1 - CREATE OBJECT TEMPLATES"Y " 2 - IDENTIFY OBJECTS"y " 3 - END COMPUTER VISION" $ ."ENTER SELECTION (1, 2, OR 3):";Q 8Q1Q3ı B1000 : ********************** DIGITIZE OBJECTS RETURN> TO CONTINUE.";Q$L :::"FOR THE INSTRUMENT TO WORK CORRECTLY"v "NEED TO RUN A BLANK. PLACE A WATER" "SAMPLE IN THE CUVETTE AND PRESS" "." "";C$:YY0:RR0:GG0 :12::"THE BLANK INFORMATION IS BEING COLLECTED":vx 49242,07 :" THE RED LED SHOULD BE ON NOW."@ !200j ("PRESS TO CONTINUE";:"";Q$ 249243,0: TURN THE RED OFF < CHECKING THE YELLOW F49244,0 P:" THE YELLOW LED SHOULD BE ON NOW." U200: TAKE READINGS! Z"PRES *COLOR.TESTER PROGRAMg *FROM "CHAOS...",VERNIER SOFTWARE, 2920 SW 89TH, PORTLAND, OR 97225 *COPYRIGHT (C) 1991 VERNIER SOFTWARE49243,1:49245,1:49247,1: TURN ALL LED OFF TO START "COLOR TESTER PROGRAM" CHECK THE RED LED9246,0MGMRC3 8504MYMGĹ49244,0CMYMGC2L860`MRMYĹ49242,0oMRMYC1x870MRMGī1000f:<pC1ĺ"RED IS THE COLOR SELECTED."ezC3ĺ"GREEN IS THE COLOR SELECTED."C2ĺ"YELLOW IS THE COLOR SELECTED.""AUTOMATIC MODE DID NOT WORK SO THE PROGRAM WILL RESTART":"PRESS ";Q$:100MGMRĹ4W1500:+I1100:J(2):XXJ:7MYXYYV49245,1: TURN OFF YELLOW^ X0y49246,0: TEST GREEN W1500:*I1100:J(3):XXJ:4MGXGG>49247,1: TURN OFF GREEN HMGMYī940RMYMRī970 \ BEST LED TO USE.B:"CHECKING TO SEE WHICH LED TO USE..."JX0y49242,0: TEST THE RED LED W1500:I1100:J(1):XXJ:MRXRR49243,1: TURN OFF RED LEDX049244,0: TEST YELLOW ANOTHER ANALYSIS?(Y/N)""DR$3NR$"N"ī640DSR$"n"ī640mX:"DO YOU NEED TO RUN A NEW BLANK?"vbBB$lBB$"Y"ī100qBB$"y"ī100v49243,1:49245,1:49247,1:27049243,1:49245,1:49247,1: THIS PART FINDS THE 55ĺR(R255ī4400)(7): WARNING BEEPf*:::"THE SOLUTION IS TOO DARK (CONCENTRATED)."+::"YOUR SOLUTION SHOULD BE DILUTED OR YOU COULD TRY THE PROGRAM ";::"COLOR.USR";::" ON THE CHAOS DISKETTE."0440::"DO YOU WANT TO DOABSORBANCE TRANSMITTANCE PADDLE #"6R20:A$CI1100NR(C)_A$"Q"ī570pA$"q"ī570|R2R2RIP100R2TPP0A(T)2.30258TT1000:T(T.5):TT1000AA1000:A(A.5):AA1000&A,T,'R2P0100GG?"NOW PLACE A SAMPLE OR STANDARD IN THE"j"INSTRUMENT AND TO READ THE""ABSORBANCE (PRESS 'Q' TO QUIT).":"NOW USING THE ";:C1ĺ"RED";C2ĺ"YELLOW";C3ĺ"GREEN";" LED":):" ' KEY."::B$( 'B$"R"Ĺ49242,0:C1A )B$"r"Ĺ49242,0:C1Z ,B$"Y"Ĺ49244,0:C2s .B$"y"Ĺ49244,0:C2 TB$"G"Ĺ49246,0:C3 YB$"g"Ĺ49246,0:C3 hB$"A"İ650 mB$"a"İ650 r::: C1P0100RR C2P0100YY C3E COLOR OF LIGHT TO BE USED.":"IT SHOULD BE THE COMPLIMENTARY COLOR":"OF THE SOLUTION." :" R)ED, Y)ELLOW, G)REEN OR A)UTOMATIC. ": ":"IN THE AUTOMATIC MODE, YOU SHOULD PLACE" #"YOUR SAMPLE IN THE INSTRUMENT BEFORE" $"YOU PRESS THE 'A YELLOW BLANK. 49244,0:I13500:R T1100:YYYY(2):T:49245,1b RED BLANK{ 49242,0:I13500: T1100:RRRR(1):T:49243,1 GREEN BLANK 49246,0:I13500: T1100:GGGG(3):T:49247,1[ ::"SELECT THS TO CONTINUE";:"";Q$J d49245,0: TURN THE YELLOW LED OFFd n CHECKING THE GREENq x49246,0 :" THE GREEN LED SHOULD BE ON NOW." 200: TAKE READINGS "PRESS TO REPEAT OR Q TO QUIT ";:Q$ 49247,0: TURN THE GRNK?"bBB$!lBB$"Y"ī1003qBB$"y"ī100Wv49243,1:49245,1:49247,1:270x49243,1:49245,1:49247,1: THIS PART FINDS THE BEST LED TO USE.X049242,0: TEST THE RED LED W1500:I1100:IP100R2TPP0/A(T)2.30258OTT1000:T(T.5):TT1000oAA1000:A(A.5):AA1000z&A,T,R0440:"DO YOU WANT TO DO ANOTHER ANALYSIS?(Y/N)"DR$NR$"N"ī640SR$"n"ī640X:"DO YOU NEED TO RUN A NEW BLA"NOW PLACE A SAMPLE OR STANDARD IN THE INSTRUMENT AND PRESS ANY KEY TO READ THEABSORBANCE (PRESS 'Q' TO QUIT).":" ABSORBANCE TRANSMITTANCE PADDLE #"R20:A$I1100R(C),X(C)A$"Q"ī570A$"q"ī570R2R2R$"R"Ĺ49242,0%EB$"r"Ĺ49242,05JB$"R"C1EOB$"r"C1ZTB$"G"Ĺ49246,0oYB$"g"Ĺ49246,0^B$"G"C3cB$"g"C3hB$"A"İ650mB$"a"İ650r:::|C2P0100YYC1P0100RRC3P0100GGsOLUTION)."?:" R)ED, Y)ELLOW, G)REEN OR A)UTOMATIC. ":":"IN THE AUTOMATIC MODE YOU SHOULD PLACE YOUR SAMPLE IN THE INSTRUMENT BEFORE YOUPRESS THE 'A' KEY."::B$,B$"Y"Ĺ49244,01B$"y"Ĺ49244,06B$"Y"C2;B$"y"C2@B:I11500:5 T1100:RRRR(1),RX:T:49243,1G GREEN BLANK` 49246,0:I11500: T1100:GGGG(3),GX:T:49247,1 ::"SELECT THE COLOR OF LIGHT THAT WILL BE GOING THROUGH THE SOLUTION (IT SHOULD BETHE COMPLIMENTARY COLOR OF THE SK. PLACE A WATER SAMPLE IN THE CUVETTE AND PRESS ANY KEY."X C$:YY0:RR0:GG0 :12::"THE BLANK INFORMATION IS BEING COLLECTED": YELLOW BLANK 49244,0:I11500: T1100:YYYY(2),YX:T:49245,1 RED BLANK 49242,0 A NUMBER (2-32)TO EXTEND THE YELLOW RANGE.";YXw :"INPUT A NUMBER (2-32)TO EXTEND THE GREEN RANGE.";GX X(1)RX:X(2)YX:X(3)GX :"PRESS ANY KEY TO CONTINUE.":A$A :::"FOR THE INSTRUMENT TO WORK CORRECTLY YOUNEED TO RUN A BLANY TO CONTINUE.":A$ :6u "THIS VERSION OF THE COLORIMETRY PROGRAM HAS PROVISIONS FOR EXTENDING THE RANGE." "DARKER SOLUTIONS CAN BE READ ACCURATELY." :"INPUT A NUMBER (2-32)TO EXTEND THE RED RANGE (32 IS THE MAXIMUM).";RX6 :"INPUTy{|}~ MEASURES THE LIGHT GOING THROUGH A COLORED SOLUTION AND CONVERTS THE LIGHT INTENSITY INTO ABSORBANCE." :"ABSORBANCE IS PROPORTIONAL TO THE CONCENTRATION, THEREFORE WE CAN DO CHEMICAL ANALYSIS WITH THIS DEVICE." :::" PRESS ANY KE *COLOR.USR\ *FROM "CHAOS...",VERNIER SOFTWARE, 2920 SW 89TH, PORTLAND, OR 97225 *COPYRIGHT (C) 1991 VERNIER SOFTWAREd49243,1:49245,1:49247,1fZ(11):Z9110h(4)"BRUN XP"n::"COLORIMETRY PROGRAM"k x:"THIS PROGRAMEEN OFF! Q$"Q"Ā:Q$"q"Ā5 :5: RELOOP; W "RED","YELLOW","GREEN"i XX1500:XXt J14 XX155 (1),: CHECK RED (2),: CHECK YELLOW (3),: CHECK GREEN J dJ(1),RX:XXJ:MRXRRL49243,1: TURN OFF RED LEDTX0o49244,0: TEST YELLOW~W1500:I1100:J(2),YX:XXJ:MYXYY49245,1: TURN OFF YELLOW X049246,0: TEST GREEN W1500:*I1100:J(3),GX:XXJ:%4MGXGGQ>49247,1: TURN OFF GREEN aHMGMYī940qRMYMRī970\MRMGī1000f:pC1ĺ"RED IS THE COLOR SELECTED."zC3ĺ"GREEN IS THE COLOR SELECTED."C2ĺ"YELLOW IS THE COLOR SELECTEDRTING SPOT OF WHERE WE WANT TO DRAW THE CHARACTER]AB,AC:POKE IN THE CHARACTER TO DRAWCA:CALL ROUTINE TO PRINT CHARACTERHHLW: STEP OVER FOR THE NEXT CHARACTERCH100*X LARGE PRINT DISPLAYQZH1: START AT LEFT EDGE OF SCREENibPR$(PR$,(39LW))zgCH1(PR$)lAC((PR$,CH,1)): DETERMINE THE ASCII CODE OF THE CHARACTER TO DRAW3{HZ,H:VZ,V: TELL THE MACHINE LANGUAGE ROUTINE THE STA ---STATUS CHECK6,@"STATUS CHECK"QJ14:" PB0 PB1"uT"(MIC #1) (MIC #2)"U"---------------------------"V" HIGH HIGH"X" LOW LOW"^34307: DO STATUS CHECKhKC,0 Q$,1)"y")284: SKIP LARGE PRINT= : CLEAR GRAPHICS` PR$(TI):V4:600: DRAW TIME PR$"MS":V14:600: DRAW UNITS (KB)127295 I1500:: DELAY "230 'KC,0: CLEAR KEYBOARD STROBE (34,0 *100:RETURN TO MAIN,(254): GET COUNT READING9 :"COUNT READING:";CTj TI((CTCPSCF)1E50.5)100: ROUNDED TIME (CT0)ĺ"TIME (MS):";TI (CT0)(((Q$,1)"Y")((Q$,1)"y"))V4:PR$" ":600:284: DRAW BLANK (INVALID TIME) & ((Q$,1)"Y")(()200" (L$"S")(L$"s")300= (L$"Q")(L$"q")198t GS(49206):GS128Ĺ49206,GS128: FAST SPEED GS| : ---READ TIMES ((Q$,1)"Y")((Q$,1)"y")Ĉ: SWITCH TO GRAPHICS 34,1 34304:DO TIMING CT(255)256THE LARGE"/ Z"CHARACTER DISPLAY? [N] ";Q$h _((Q$,1)"Y")((Q$,1)"y")Ģ21: TAB DOWN IF LP p d: i"SPEED OF SOUND PROGRAM": n"R - READ TIMES" x"S - STATUS CHECK" "Q - QUIT" "SELECT: ";:"";L$ (L$"R")(L$"r"D$;"BLOAD SOUND.0"- D$;"BLOAD LP.1200"f GS(49206):GS127Ĺ49206,GS128: NORMAL SPEED GS # INITIALIZE VARS FOR LARGE PRINT (HZ4612:VZ4613:AB4611:USED IN LARGE DIGIT -CA4608 FLW6: LETTER WIDTH P:"DO YOU WANT TO USE SPEED OF SOUND\ FROM "CHAOS...",VERNIER SOFTWARE,2920 SW 89TH,PORTLAND, OR 97225CPS63937.5:16 CYC PER SEC = 15.64027 MICROSEC PER COUNTKB49152:KC49168CF37.1E6: CORRECTION FACTOR D$(4)(21):D$"PR#0": 40-COL   ` id. , L!+*,p,d*+*L."I15000:c"AUTOMATIC MODE DID NOT WORK SO THE PROGRAM WILL RESTART":100wMGMRĹ49246,0MGMRC3850MYMGĹ49244,0MYMGC2860MRMYĹ49242,0MRMYC1870LpLߠ,b0LL `Hh``Hh``hhX`X`x E ,  hX`$`0#% $ $ L% $ $ ЧL`UPT DISABLE FLAG (SO THAT IIGS CAN USE ITS CONTROL PANEL, ETC.) RTS ****************************** *PRINT OUT STOP SIGNAL PRINT.S LDA #$AA ;ASC "*" LDY #$00 STA (POINTER),Y CLI ; ENABLE INTERUPTS AGAIN RTS ******************************** ******************************* *END ROUTINE END LDA #$AF ; ASC "/" TO INDICATE INTERRUPTED TIMING LDY #$00 STA (POINTER),Y PLA PLA ;PULL THE LATEST SUBROUTINE ADDRESS FROM THE STACK SO THAT NEXT STEP (RTS) WILL CAUSE RETURN TO BASIC PROGRAM CLI ; CLEAR INTERRTER),Y ;PRINT A COLON TO INDICATE WAITING FOR BEAM TO BE BLOCKED INC POINTER ;INCREMENT POSITION OF SCREEN POINTER PLA TAY ;RESTORE GATE # LDA #$7F CHECK.D CMP KEYBOARD ;CHECK TO SEE IF KEYBOARD HIT BCC END CMP SENSOR,Y BCC CHECK.D RTS *********** PLA TAY ; RESTORE GATE # LDA #$7F CHECK.C CMP KEYBOARD ;CHECK IF KEYBOARD HIT BCC END CMP SENSOR,Y BCS CHECK.C RTS ******************************* *WAIT TILL INPUT GOES HIGH WAIT.HI TYA PHA ;TEMPORARLY STORE GATE # LDY #$00 LDA #$BA STA (POINING COUNT RTS ************************ *WAIT TILL INPUT GOES LOW WAIT.LO TYA PHA ;TEMPORARLY STORE GATE # LDY #00 LDA #$AE STA (POINTER),Y ;PRINT A PERIOD TO INDICATE WAITING FOR BEAM TO BE BLOCKED INC POINTER ;INCREMENT POSITION OF SCREEN POINTER OF TEST IS IN SIGN BIT BMI EXIT.A INX ;INCREMENT LOW BYTE OF COUNT BEQ C.N JMP CC2 ;USED SO COUNT ALWAYS TAKES EQUAL TIME CC2 JMP CHECK.A C.N INY NOP ;DELAY TO BALANCE LOOP BNE CHECK.A JSR BELL EXIT.A STX COUNT.LO STY COUNT.HI ;SAVE THE RESULTG THIS *LOOP. GATE CHECKED IS ALWAYS PB1 COUNT.TIL.HI LDA #$DF ; PRINT UNDERLINE TO INDICATE COUNTING IN PROGRESS LDY #0 ;LOAD SCREEN POINTER STA (POINTER),Y INC POINTER ;INCREMENT POSITION OF SCREEN POINTER LDX #00 LDY #00 CHECK.A BIT PB1 ;RESULTU $FF ;COUNT READING (HI BYTE) VSTART EQU 15 PB0 EQU $C061 PB1 EQU $C062 ********************** ************************ * TIME UNTIL SOUND RECEIVED (LOGIC HI) *PROCEDURE TAKES 16 CYCLES PER COUNT *COUNT.HI & COUNT.LO NEED NOT BE INITIALIZED BEFORE ENTERINAME CONNECTOR-NO OTHER INPUTS AREUSED ON THIS PROGRAM COUT EQU $FDED KEYBOARD EQU $C000 VPOS EQU $25 ;VERTICAL CURSOR POSITION HPOS EQU $24 ;HORIZONTAL CURSOR POSITION G1 EQU 6 ; GATE 1 STATUS INDICATOR COUNT.LO EQU $FE ;COUNT READING (LO BYTE) COUNT.HI EQ00 ; START PROGRAM AT $C00 = 3072 JMP SOFS ; SPEED OF SOUND TIMING JMP STAT.CHK ; PHOTOGATE STATUS CHECK POINTER EQU $FA ; POINTS TO PAGE ONE TEXT SCREEN STARTING ADDRESS; USED TO PUT TIMING MARKS IN THE SCREEN BELL EQU $FBDD SENSOR EQU $C060 ;SW0 ON G********************** * SPEED OF SOUND TIMING PROGRAM * VERNIER SOFTWARE * VERSION 8/17/90 ********************** ********************** LST ON,CYC ; ASSEMBLER DIRECTIVE TO GENERATE CYCLE COUNT MSB ON ; SET MOST SIGNIFICANT BIT ON TEXT DISPLAYS ORG $86******************* * SPEED OF SOUND TIMING ***************************** SOFS SEI ; TURN OFF INTERRUPS SO THAT TIMING IS EXACT LDA #$00 ; SET POINTER TO TOP OF TEXT SCREEN STA POINTER LDA #$04 STA POINTER+1 LDY #0 ;CLEAR SOME SPACE AT TOP EDGE OF SCREEN FOR MARKS LDA #$A0 ;SPACE PLL.1 STA (POINTER),Y INY CPY #8 BNE PLL.1 LDX #$00 ;TIME #1 LDY #$01 ;GATE #1 JSR WAIT.HI ; PREVENT ENTERING ROUTINE W/ GATE BLOCKED JSR WAIT.LO JSR COUNT.TIL.HI ;DO THE ACTUAL TIMING UNTIL SOUND REACHES MIC #2 --------------------": USED TO SAVE SPACENcPX$"PRESS TO EXIT"zhPN$" PRESS TO CONTINUE"rES$" PRESS TO EXIT"|CC256:XX768: CONSTANTS TO SPEED UP MACHINE LANGUAGE OPERATIONS]HU3600:MM60:ZZ0:T ARRAYS USED IN MENUS 2 D$(4)x CA4608:AB4611:HZ4612:VZ4613: CONSTANTS USED IN LARGE PRINT KP49168:KC49152: KEYBOARD ADDRESSES N$"": FILE NAME TQM$(34): QUOTATION MARK-^DA$"-------------------S128: SET GS TO FASTC 860,1: DON'T USE THE RAM DISK NOW  SET VARIABLE DEFINITIONS& S$(13),L$(13),SE(9): INDICATES A 128K MACHINEU (49048)128Ĺ860,1:3060: INDICATE A II PLUS~ 860,0:3060: NOT 128K OR IIPLUS (64435)6(64448)2243060: IIE OR IIGS 843:(859)1Ĺ860,3: INDICATES IIGS GS(49206):GS128Ĺ49206,GLEASE BUFFERSK 16384,0:103,1:104,96: MOVE BASIC START TO $6000} (4)"RUN MOTION,@3000": RELOAD STARTUP DETERMINE AND SET MACHINE TYPE SOS343:OD0: SET SPEED OF SOUND AND OFFSET DISTANCE (49048)176Ĺ860,2:3040::12:"LOADING MAIN PART OF PROGRAM..."K D$"CHAIN ";PS$;"M,@14000"Q b  FIRST RUN (21);: TURN ON 40 COLUMNS (4);"PR#0": TURN ON 40 COLUMNS (MOST OTHER) ::"MOTION PROGRAM" (4);"BLOAD MISC.300,A$300" 861: RE 20003 ULTRASONIC RANGE FINDER PROGRAM H COPYRIGHT 1990[ VERSION 8/90r VERNIER SOFTWARE 2920 S.W. 89'TH ST. PORTLAND, OR 97225 (503) 297-5317l RUN THE MAIN PROGRAMnD$"FRE": CLEAR STRINGSq41859,3, K LDA #$7F CMP KEYBOARD ; CHECK FOR KEYPRESS BCC END.CHK JMP STAT.CHK END.CHK RTS ;QUIT **************************** START STA VPOS LDA #$8D JSR COUT ;DO A TO SET NEW POSITION LDA G1 STA HPOS LDA #$BE ;'>' JSR COUT LDA #$8D JSR COUT ;DO A TO SET NEW POSITION LDA G1 STA HPOS LDA #$A0 ;SPACE JSR COUT SC.2 CPX #2 BNE SCL.1 ;LOOP AGAIN FOR PB1 KEYCHEC1HI ;SENSOR IS HIGH S1LO LDA #VSTART STA VPOS LDA #$8D JSR COUT ;DO A TO ACTIVATE NEW POSITION LDA G1 STA HPOS LDA #$A0 JSR COUT LDA #$8D JSR COUT ;DO A TO SET NEW POSITION LDA G1 STA HPOS LDA #$BE ;'>' JSR COUT JMP SC.2 S1HI LDA #VJSR PRINT.S CLI ;CLEAR INTERRUPT DISABLE RTS **************************** * STATUS CHECK **************************** STAT.CHK LDA #0 LDX #0 SCL.1 LDA #0 INX CPX #2 BNE CHK.1 LDA #20 ;HPOS TO 20 IF MIC #2 CHK.1 STA HPOS STA G1 LDA SENSOR,X BMI ST10:HH.5:WW2:DD86400:OO1:CP1.023E6: GENERAL CONSTANTS USED TO SPEED UP OPERATION GS(1)0:GS(2)0:GS(3)0:GS(4)0:GS(5)0:GS(6)0: REAL TIME GRAPH STYLE OPTIONSPS(1)1:PS(2)0:PS(3)0:PS(4)0:PS(5)0:PS(6)0:PS(7)0:PS(8)0: PLOTTING STYLE OPTIONS<RE2048: READ ENTRY ENTRY PT. jSB2048CC: INPUT STATUS BUFFER DB2048512: DEFAULT BUFFER232,ZZ:233,21: SET SHAPETABLE POINTERS TO $15001: SET SCALE TO 1LW6*RS416161631616":285: NOTHING ENTEREDA DF$"": INITIALIZE ENTRY STRING{ I1(DB):DF$DF$((DBI)):: READ ENTRY INTO DF$  , MENU .YU18YU18: UPPER LINE USED BY MENU 0SENSSE1 2SEZZSE1 4NSYU19NS19YU 6Q1NS :), (DF$)ZZī245: NO DEFAULT STRINGT I1(DF$): SET UP DEFAULT STRINGl DBI,((DF$,I,1))r DB,(DF$): DEFAULT STRING LENGTH RE: READ INPUT EX(SB9): CHECK EXIT TYPE EX2285: IF ESCAPE (DB)ZZDF$"=41859,7:KP,0: APPLE BUG FIX & CLEAR KEYBOARD STROBEH 14000Z INPUT ENTER WITH DF$, AND WI%; EXIT WITH DF$ AND EXSB,WI%: NUMBER OF CHARACTERS TO BE ALLOWED IN INPUT EXZZ: EXIT TYPE (1 = , 2 = FFERS, AND END0J13000:J: TIME DELAY TO READ SCREEN6N865: CLEAR STACKEL2000ġ: IF ERROR OCURS IN A SUBROUTINE, REMOVE ADDRESS FROM STACK: QUIT PROGRAM:104,8:103,1:2048,0:216,0:D$"CLOSE":861::: RESET POINTERS, RELEASE BUERROR HANDLING2cD$"PR#0": TURN OFF PRINTERTeEL(219)CC(218):EC(222)eg:::"* ";tEC3ĺ"NO DEVICE CONNECTED";:60040EC69ĺ"OVERFLOW";:60040EC25560065"CODE  ";EC;" ERROR ON LINE ";EL;" *"E PRINT ROUTINE=D$"BLOAD FONT,A$1500": HI-RES FONT yD$"BLOAD IM.HIRES.1C00.0": IMAGEWRITER SCREEN DUMP$D$"PREFIX".PF$: GET PREFIX OF DISK 8PS$PF$: REMEMBER PREFIX OF PROGRAM1900: RUN THE MAIN PROGRAM` -------#:"LOADING FILES..."f THESE FILES ARE LOADED HERE JUST TO TAKE UP A LITTLE TIME:D$;"BLOAD MDDT,A$4000": LOAD DATA TABLES D$;"BLOAD MOTION.OBJ,A$4300": LOAD MOTION MACHINE CODED$"BLOAD LP.1200,A$1200": LOAD LARGCIMAL BYTE OF ABOVEC DETERMINE INPUT DEVICE AND INITIALIZEO60000D$"BLOAD INPUT,A$800": LOADED EARLY SO IT CAN BE USED IN INPUTSKP,0: CLEAR KEYBOARDp(860)16060: IF NO /RAM DISKz LOAD RAM DISK HERE  A LOCATIONFEY6: $06 IS THE END OF THE DATA POINTER LOW BYTE &EZ7: $07 IS THE END OF THE DATA POINTER HIGH BYTE 0SIRS6: THE INTEGER PIXELS TO SKIP BETWEEN READINGS:SHSI1: THE HIGH DECIMAL BYTE OF ABOVEDSLSI2: THE LOW DE: $4300 IS THE READ A SCREEN SUBROUTINE_RORS3: $4303 IS THE READ ONE POINT SUBROUTINETL255: $FF IS THE TIME LIMIT POKE LOCATION DL8: $8 IS THE SINGLE DATA POINT LOW DATA LOCATION DH9: $9 IS THE SINGLE DATA POINT HIGH DATQYU. <(L$(Q))2Ė4:L$(Q)"- "S$(Q):320F >4:L$(Q)" - "S$(Q)M @QU B20` D:DA$ F" TYPE LETTER OR USE THE ARROW KEYS" H" THEN PRESS " JYUSE L4::L$(SE); N(L$(SE))2ĝ:"- ";::S$(SE);::338 P:" - ";::S$(SE);: ROSSE' TQ$3 VQ(Q$)c XQ96QQ32:Q$(Q): LOWER CASE INPUT ZQ27SEZZ:376: EXIT \Q13ī376 ^Q32ī364 `Q8Q11SESE1:SEZZSENS bQ21Q10Q32SESE1:SENS1SE1 dYUOS:4! f(L# 5 PRINT HORIZONTAL UNITS[*5 ENTER WITH XA=X MAXIMUM UNITS, XB=X MINIMUM UNITSm45XGLGZGW4>5Y((XGL)GW)(XAXB)XBH5Y(Y100)100R5PR$(Y)\5O$"H"f5HX(PR$)LW2:VGB4:700p5Xu5PR$"TIME(SECONDS)":O$"H":H110:(X)4O$"H"05HGL2(PR$)LW:VY:7007 5Yn5PR$VU$:O$"V":H0:V(GBGU)2GULW(PR$)2:7005YAYBYGB(GBGU)YBYH: VERTICAL PIXEL WHICH IS THE REPRESENTS ZERO ON THE GRAPH5YGUYGBĒ1:GL,YGZ,Y:3: DRAW 0 LINE5 PRINT VERTICAL UNITSU4 ENTER WITH YA=Y MAXIMUM UNITS,YB=Y MINIMUM UNITS4YHYAYB: CALCULATED HERE TO SAVE TIME LATER4YGBGUGH44X((GBY)GH)YHYB4X(X100)1004X0YGBī13580: DON'T PRINT THE VERTICAL 04PR$GZ,GUGZ,GBGL,GBGL,GU5213400: DRAW TICKMARKS[313500: PRINT VERTICAL UNITS 313600: PRINT HORIZONTAL UNITS3X4 DRAW TICKMARKSb4YGBGUGH4l4GL4,YGL,Yv4Y4XGLGZGW44X,GBX,GB34X44OLLECTING DATA . . ."N/RSQS/GS(49206):GS128Ĺ49206,GS128: FAST GSoU/DR1: SET DATA READ TO 1V/DS5161616:DE(6)(7)256: SET D ATA START AND END W/XA0X/2 DRAW GRAPH22232GL,GU12TD324)/TD2MRMR21/TD1MRMR4U/SZGWMR: THE SCREEN SKIP _&/TESZm0/SI,(SZ):/SZSZ(SZ):SZSZ256:SH,(SZ)D/SZSZ(SZ):SZSZ256:SL,(SZ)I/GS(49206):GS127Ĺ49206,GS128: SLOW DOWN THE GSK/:22L/"C40 SEC, 40 SAMPLES/SEC, 4M"N4+L$(4)"4":S$(4)"80 SEC, 20 SAMPLES/SEC, 8M"W>+300cC+SE0ımH+TDSEs.. PLOT MOTION.TL,2TD: SET SAMPLES/SECOND TO /SECOND/TD3ĹTL,8: OVERRIDE SPEED INCREASE /MR(CP2TD102)(2561E CONSTANTS SETTING THE SIZE OF THE GRAPH1+s+:"RANGE FINDER PROGRAM"::"SELECT DATA COLLECTION RATE:": +YU6:NS4+SE2+L$(1)"1":S$(1)"10 SEC, 40 SAMPLES/SEC, 4M" +L$(2)"2":S$(2)"20 SEC, 40 SAMPLES/SEC, 4M"*+L$(3)"3":S$(3)"YA4!G'13000: SET UP GRAPH;L'12000: PLOT A GRAPHfQ' POKE KC,0: REM TO CLEAR THE KEYBOARDV':23:"PRESS TO CONTINUE...";X$`'* END*:* SET SPEEDS AND TIMES+*GL35:GZ271:GU10:GB138:GHGBGU:GWGZGL: THHLW: STEP OVERCH#TL$(3)"3":S$(3)"40 SEC, 40 SAMPLES/SEC, 4M"t' REAL TIME GRAPHING8'11000: SET SPEEDS AND TIMES9'SE0ı='VU$"DISTANCE(METERS)"B'YB0:XB0:YA2TD2:XAYA10: SET GRAPH PARAMETERSD'TD3NTEDH0H0$V188V1883VWWVWWCH275H10Q((PR$,CH,1)):Q96QQ32: CHARACTER AND CONVERT TO UPPER CASE IF NEEDEDQ31Q96Q32: SPACEQ31H,VWWO$"V"VVLW: STEP UPO$"H"HCH* HIRES PRINTINGO ENTER WITH O$, H, V, PR$z(PR$)0ī732: RETURN IF NO STRING0: ROTATION IS NORMALLY HORIZONTALO$"V"Ę48: ROTATE VERTICAL LETTERSCH1(PR$): FOR EACH LETTER TO BE PRIlAC((PR$,CH,1))UqAC35AC90AC32: TREAT EVERYTHING ELSE AS A SPACE}vAC69AC8: USE SPECIAL SMALL 'E'{HZ,H:VZ,V: STARTING SPOTAB,AC: POKE PROPER CHCA: PRINT CHARACTERHHLW: STEP OVER $(OS))2ĺL$(OS)"- "S$(OS):3628 hL$(OS)" - "S$(OS)A j330[ l ACCEPT A LETTER pQ$(13)376: RETURN PRESSED rQ1NS:Q$L$(Q)SEQ tQ v356 x X LARGE PRINT bPR$PR$" ":PR$(PR$,(39LW))gCH1(PR$)VGB12:700z585 ENTER GRAPH PARAMETERS [5::"ENTER GRAPH PARAMETERS:"c5:6"ENTER MINIMUM TIME TO GRAPH (SEC):";6DF$(XB):WI%6:200 6EX2ı 6XB(DF$)6XB0(XB(2TD210))ĺ:"ILLEGAL VALUE"::13830%6:"ENTER MAXIMUM TIME TO GRAPH (SEC):";<6XA0XA2TD210U6DF$(XA):WI%6:200a6EX2ıo6XA(DF$)6XAXBXA2TD210ĺ:"ILLEGAL VALUE"::1384066 MAIN MENU6600006::"RANGE FINDER OPTIONS:" 6L$(3)"D":S$(3)"DI*FGS(49206):GS128Ĺ49206,GS128: GS SPEEDUP >*I:T*@ PRINT GRAPH*J41859,7:KP,0::"PRINT GRAPH":::"SELECT:":L$(1)"I":S$(1)"IMAGEWRITER":L$(2)"G":S$(2)"GRAPPLER":L$(3)"P":S$(3)"PKASO/U":NS3:YU5:SEPT:300:SE040350+PTP)SOS)2OD: CALCULATE DISTANCE =)FX(X1000)1000J)FPR$(X)g)FX.4PR$"0.000":18060|)FX1PR$"0"PR$)FX(X)PR$PR$".000":18060)FPR$PR$"000":PR$(PR$,5))FH0:V22:600)F(KC)155(KC)141ĹKP,0:18900*F180206XIT" (SFA(TFGS(49206):GS127Ĺ49206,GS128: GS SLOWDOWNr(UFPR$"DIST":H0:V2:600: PRINT HEADING (VFPR$"METERS":H0:V12:600: PRINT HEADING (ZFTL,16: SLOW SPEED(dFRO: READ ONE DISTANCE(nFX(DL)(DH)256()xFX((X11C0:EX2ı'@YB(DF$)>'@:"MAXIMUM VELOCITY TO GRAPH:";`'@DF$"10.0":WI%6:200:EX2ın'@YA(DF$)'@VU$"VELOCITY(M/S)"'@13000: SET UP GRAPH'@'PF SHOW DISTANCE'QFKP,0: CLEAR KEYBOARD STROBE(RF::22:"PRESS TO EKC)155(KC)141ĹKP,0:16250'&R?X0&W?XZ0X&\?:22:"PRESS TO CONTINUE"~&f?(KC)155(KC)141ĹKP,0:16250&p?16230&z?ZI0:&t@13800: GET TIME MAX AND MIN&u@EX2ı&~@:"MINIMUM VELOCITY TO GRAPH:"; '@DF$"-10.0":WI%6:20CTOT)11)CP: CALCULATE TIME INTERVALD%?OTCT: UPDATE OLD CTS{% ?YYSOSWWOD: CALCULATE DELTA DISTANCE %?YY(TC((XOX)2)):OXX: CALCULATE VELOCITY% ?YGB((YYB)YHGH)%*?YGBYGB%,?YGUYGU%>?(XXL)XWGWGL,Y &H?(1$>TD3TC(256118324)CP: OVERRIDE TIMEm$>XL(DEDS)(XB(2TD5))DS:XR(DEDS)(XA(2TD5))DS$>XL((XL1)WW)WW$>OXXL:OT(XL)(XL1)256:XLXL2: SET INITIAL DATA VALUES$>XWXRXL$>XXLXRWW$>CT(X)(X1)256)%?Y((RAPH VELOCITYX#>DR0ĉ::"NO DATA IN MEMORY"::"PRESS TO CONTINUE":X$:s#>KP,0: CLEAR KEYBOARD#>16500: SET UP GRAPH#>EX2EX0:: ESCAPE#>:22#>"DRAWING GRAPH. . ."$>TC(256112TD324)CP: TIME BETWEEN READINGS : ESCAPE2"<:"MINIMUM DISTANCE TO GRAPH:";Q" G(YYB)YHGH)!:YGUYGU-!:YGBYGBD!:(XXL)XWGWGL,Yj!:(KC)155(KC)141ĹKP,0:15080q!:X!::22:"PRESS TO CONTINUE"!:(KC)155(KC)141ĹKP,0:15080!:15075!:ZI0:!<13800: GET TIME MAX AND MIN " TO CONTINUE":X$:S:15500: SET UP GRAPHn:EX2EX0:: ESCAPEx::22:"DRAWING GRAPH. . .":TC(256112TD324)CP: TIME BETWEEN READINGS :TD3TC(256118324)CP: OVERRIDE TIME4 :XL(D ON THE SCREEN")6NS6:YU3:SE1:300?6SE6SE0ī14090e7SE18000,10000,15000,16000,40000p714010 7:104,8:103,1:2048,0:216,0:D$"CLOSE":861::: GRACEFUL EXIT: GRAPH DISTANCE:KP,0: CLEAR KEYBOARD9:DR0ĉ::"NSTANCE GRAPH OF PREVIOUS DATA"V6L$(4)"V":S$(4)"VELOCITY GRAPH OF PREVIOUS DATA"6L$(5)"P":S$(5)"PRINT GRAPH ON PRINTER"6L$(2)"R":S$(2)"RECORD AND GRAPH DISTANCE DATA"6L$(6)"X":S$(6)"EXIT THE PROGRAM"6L$(1)"S":S$(1)"SHOW DISTANCESE::"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+300:SE040350,PZSE:SZ3:SE1SE3SZ1>,15::"ENTER PRINTER SLOT # :";PRt,&20:958::"NOW PRINTING GRAPH...":PT140280,:7168,PR,SZ:SE2ĺD$;"PR#";PR:(12):D$;"PR#0",N40350,XD$;"PR#"PR:PT2ĺ(9)"GE";:SZ3ĺ"DR",lPT2ĺ:40330-vSZ1ĺ(LL  ; )> )jjj) ) )n ) )T )1 )6 )ϩυ +,i$%f$fʊ iL$pI, )LL$, ) I $0Lc,0L8LL_ ) )    ɛ Lɍ Lɘ  L#ɚ   L#ɄɈ  L# L#ɟ L#  L# ) L#` L`  :` `  `  !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&'''''''!쫂8 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @l:/,s̀((((((((((((((((((((((((((((((((PPPPPPPP(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $C XC }C C C`P C`ɀL4Dɛhhhh``5DLsD tDLsD DLsD DLsD DLsD D`ɠ D`ɛ`hhhh` Daɀ Daɀ` Daɀ Daɀ` D C CLD C` D C CLD C`LCLC D 5D C`[i,cL;CiL7CZ` iLFCi,cLDCiL7Cee ee`F fF fF fLCF fIF`@@ CBA C`CmCC CmC C CmC C` !D :D$"CLOSE":861::: RESET POINTERS, RELEASE BUFFERS, AND END ";EC;*." ERROR ON LINE ";EL;" *"0.].J13000:J: TIME DELAY TO READ SCREENc.|.865: CLEAR STACK.EL2000ġ: IF ERROR OCURS IN A SUBROUTINE, REMOVE ADDRESS FROM STACK.14000: START OVERB/:104,8:103,1:2048,0:216,09)"H"-SZ3ĺ(9)"10H"--SE2ĺ(12)>-:D$;"PR#0"D-\-` ERROR HANDLING~-cD$"PR#0": TURN OFF PRINTER-eEL(219)CC(218):EC(222)-g:::"* ";-tEC3ĺ"NO DEVICE CONNECTED";:60040-EC25560065 ."CODE LSi0LLS,LL0L(L_,0   )F ) 8i   )G ) L_   . 8  $ .  `    ) L`  *  . .  0 ` )A ) ) )66666666666666666666666666666666666666666666666666666666666666666666666RI----ޛRI)757-ےIޛRI)575-ےI MIڛRIISIڛ--ޛRIJۓJ--n .-ۛ  >?wIۓ  >?wIۓ)3 -ۛ  Mے----nM1nm5NIۛIInۓJ66-ۓJM17 n ޛRIM17 >n ޛRI)3M1s-ےI-3-nۓJ)3M1s-J-3-5n ޛRI)---ۓJ--6nڛRIM13M1s-ےIM13MۓJM13M1 ےIMMےIM1s-nMڛRI)NSۓ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. >-ےI)s)--ޛRI-*-ۓJ-*-ۓJM13--6ޛRI--.--ۓJ).-s-ےI-->mےI)s-s-ےI)s-ۓJJIJNڛRIIJMڛRIIےII??N??NۓJ--ےImwi:MےI .s-ےI 6SIڛRII6ےI6MڛRI ?--? ޛRI *-3ۓJ MڛRI--SۓJIIMIMےIMےIMےI)3 ;-ےII>6-ޛd"4ES`l9JYl~1CU *<N_q5AP`p~8SUWY[]_acegikmoqsuwy{} 6SiڛRIinJۓJi?? ?? ےI)07"8 ߠȩ7ȩ7)7`2/ 6/88 4:03:13 PM8 [` `hhߚHH` LhLLɾ 46` ` !!""##( (!!(""(##P P!!P""P## )D ) ) )JJJJ)  `l)` ) 8  ) 1 )Z ) )` "ȱXȱ0`I)p2h`h4 ,ȱH% `HI)ph`hh` LH *DISTANCE PROGRAM` *FROM "CHAOS...",VERNIER SOFTWARE,2920 SW 89TH,PORTLAND,OR 97225 *COPYRIGHT (C) 1991 VERNIER SOFTWARE(4);"BLOAD DISTANCE.OBJ,A$4000" MACHINE16384: LOCATION OF MACHINE LANGUAGE PROGRAM" SOS343: SPEED OF 1 INX CPX TIMELIMIT ; CHECK IF TIME HAS RUN OUT BCC READJUMP2 JMP EXITREAD ; CHECK IF TIME HAS RUN OUT BCC READJUMP1 JMP EXITREAD EXITREAD LDA STOPPULSE RTS RECORD STA DATALOW STX DATAHIGH ADC #$02 JMP READJUMP3 READLOOP2 ADC #$01 READJUMP3 BCS INCHIGH2 READJUMP2 BIT STATUSBYTE JMP READLOOP2 INCHIGH2 ADC #$0 LDX #$00 ; ZERO HIGH COUNTS BYTE LDA #$00 ; ZERO LOW COUNTS BYTE CLC READLOOP1 ADC #$01 BCS INCHIGH READJUMP1 BIT STATUSBYTE BPL READLOOP1 ; KEEP READING, NOT DONE YET JMP RECORD ; SIGNAL IS BACK, RECORD IT INCHIGH ADC #$01 INX CPX TIMELIMIT LTRASONIC PULSE STOPPULSE EQU $C05A ; TURN OFF THE ULTRASONIC PULSE STATUSBYTE EQU $C063 ; MOTION DETECTOR STATUS BYTE TIMELIMIT EQU $FF ; THE COUNTS LIMIT * * READ ONE DISTANCE * * RETURNS DATA IN DATALOW AND DATAHIGH * READ LDA STARTPULSE ;SEND A PULSE * MOTION DETECTOR * SIMPLE VERSION * * VERNIER SOFTWARE * 2920 SW 89TH * PORTLAND, OR 97225 * COPYRIGHT (C) 1991 VERNIER SOFTWARE * ORG $4000 DATALOW EQU $08 ; SINGLE DATA LOW BYTE DATAHIGH EQU $09 ; SINGLE DATA HIGH BYTE STARTPULSE EQU $C05B ; BEGIN AN U[i,cL"@iL@Z` iL-@i,cL+@iL@ CTS(8)(9)2563 DCTS.5SOS1.0752E5a D(D1000)1000: TRUNCATE TO NEAREST MM~ "DISTANCE (METERS): ";D (KB)127Ā 110 SOUND (M/SEC) IN AIR AT 20 DEG CM 255,18: SET THE MAXIMUM TIME TO WAITr ZKB49152: THE KEYBOARD CHECK nGS(49206):GS127Ĺ49206,GS128: NORMAL SPEED GS xMACHINE: READ IN THE COUNTS }GS(49206):GS128Ĺ49206,GS128: FAST SPEED GS3(104)64Ĺ16384,0:104,64:(4)"RUN CHAOS"=(2000]dNU$((NU1000.5)1000):n,YU18YU18~0SENSSE12SE0SE14NSYU19NS19YU6Q1NS:XL2:QYU:(L$(Q))2ĖXL:L$(Q);"";S$(Q):320>XL:L$(Q);" - ";S$(Q)V @Q---------------------------------------":QM$(34):IE2048:REIE:SBIE256:DBIE512:KC49152:KP49168:T(MA1):PD0:D$;"PREFIX":PS$:PF$PS$:MO9:WW2:LL(10):TM4:HL37:HR207:LW5:TC1:2630F PB0_ D$;"FRE":KP,0:::"CHAOS PROGRAM"::::"SE0000I09:ZZ:768I,ZZ:I:104,168,104,166,223,154,72,152,72,96:D$;"BLOAD TIMER":D$;"BLOAD FONT,A$1500":D$;"BLOAD IM.HIRES.1C00.0":232,00:233,21:1:CE0:CD0:PW0:ZZ0:TT10:HH0.5:WW2:BC8192:BA3072:INBA2:CC256:BM8191:CPS15500DA$"R$).5LW:V181:700:NU150XSHS:100:PR$NU$:O$"H":HHL150(PR$).5LW:V181:700:NU100XSHS:100:PR$NU$:O$"H":HHL100(PR$).5LW:V181:700:NUHS:100:PR$NU$:O$"H"CHHL(PR$).5LW:V181:700kD$(4):L$(15),S$(15):MA1500:6HL,IHL3,I=+HL,IHL1,I:I:(KC)155EX2:KP,0:1899249232,0:49234,0:49236,0:49239,0:O$"H":I015050:NUIYSVS:100:PR$NU$:HHL(PR$)LW1:V176I:V176V174AHLWHLWB700:I:OS0:NU50XSHS:100:PR$NU$:O$"H":HHL50(P"V":PR$VM$:V92.5(PR$)LW:H0:700:PR$HM$:V188:H90:O$"H":700:PR$TI$:H(HLHR)2LW.5(PR$):V2:700AHL,6HR,6HR,176HL,176HL,6:IHLHR10:(IHL)50((IHL)50)ēI,176I,173  I,176I,175:I:I166010:(176I)50((176I)50)ēNU11506(NUPWRPWRPWRTT:150421510SNUPWRTTPWRPWRTT:1506100:NUNUPW:NU(22(NU2)(NU4)5(NU5))PW:r@:3::::"THE GRAPH IS NOW BEING DRAWN. WHEN YOU":"ARE FINISHED VIEWING IT, PRESS ":"TO CONTINUE.":O$:1300:8030zS(1)ZZ:Q(1)ZZ:MI(1)1E37:MA(1)1E37:J1N:S(1)S(1)T(J):Q(1)Q(1)T(J)T(J):T(J)MI(1)MI(1)T(J)LT(J)MA(1)MA(1)T(J)ZJ:M(1)S(1)N:N2D(1)0:1399vD(1)((Q(1)NM(1)M(1))(N1))wPWR1:NUZZ1510 N:GS(49206):GS127Ĺ49206,GS128O jTR:GS(49206):GS128Ĺ49206,GS128} vN((((254)(255)CC)8196)4):N02655{RM1:::"CALCULATING TIMES..."::" ";:J1N:QBC((J1)4):C(Q)(Q1)CC(Q2)CCCC(Q3)CCCCCC:T(J)CCPS:J:KP,031Q96Q32/ Q31H,VWW:O$"V"VVLWB O$"H"HHLWJ CHP % LTRBA5:TA1:SD4:227,PB1:RM0:GP0::10:"CHAOS TIMER"::9:23:"PRESS TO EXIT":14:" TIMING WILL BEGIN WHEN THE":" PHOTOGATE IS FIRST BLOCKED.":I)XSHH)HL:YP176((T(J1)VS)YSHH):YP6YP176XPHRWWXPHLČ198:OS(TC)1:680d ^XP,YPj | (PR$)0780 0:O$"V"Ę48 CH1(PR$):H0H0 V188V188 VWWVWW H275H10 Q((PR$,CH,1)):Q96QQ32 Q ^Q323640 `Q8Q11SESE1:SE0SENSZ bQ21Q10Q32SESE1:SENS1SE1 dYUOS:XL:(L$(OS))2ĺL$(OS);"- ";S$(OS):362 hL$(OS);" - ";S$(OS) j330 lQ$(13)376 rQ1NS:Q$L$(Q)SEQ tQ:356 xY XXP((T(J)HS:20::DA$:" 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 \Q13376LECT:":L$(1)"C":S$(1)"CHECK PHOTOGATE":L$(2)"N":S$(2)"GET NEW READINGS":L$(3)"L":S$(3)"LOAD DATA FROM DISK":L$(4)"G":S$(4)"GRAPH DATA - AUTOMATIC SCALING":L$(5)"S"` S$(5)"GRAPH DATA - MANUAL SCALING":L$(6)"T":S$(6)"DISPLAY DATA TABLE":L$(7)"D":S$(7)"SAVE DATA TO DISK":L$(8)"O":S$(8)"PRINT GRAPH":L$(9)"P":S$(9)"DISPLAY PREVIOUS GRAPH":NS4(GP2)(RM4):L$(NS)"Q":S$(NS)"QUIT":SE2:YU5:300a SENSĀ SE02655 SE9Ĺ49232,0:49234,0:49236,0:49239,0:"";DF$:26559 SE:SZ3:SE1SE3SZ1M$b17:958::"NOW PRINTING GRAPH...":PT125270$bQ(8):7168,PR,SZ:8,Q:SE2ĺD$;"PR#";PR:(12):D$;"PR#0"$b25340$bD$;"PR#"PR:PT2ĺ(9)"GE";:SZ3ĺ"DR":25320$bPT2ĺ:25320$bSZ1ĺ(9)"H"%bSZ3ĺ(9INTOUT 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:SEPF:300#!bSE025340$pbPFSE1300:2655"a:"SELECT:"::L$(1)"I":S$(1)"IMAGEWRITER":L$(2)"G":S$(2)"GRAPPLER":L$(3)"P":S$(3)"PKASO/U":NS3:YU2:SEPT:300:SE025340"aPTSE:15::"ENTER SLOT NUMBER FOR PRINTER"::"";DF$:PR(DF$):PDPR:PR1PR725340# b:"SELECT PR"THIS OPTION LOADS THE VALUES":"PREVIOUSLY SAVED TO DISK AS A":"TEXT FILE."::"CURRENT PREFIX: ";PF$::"ENTER NAME OF FILE TO LOAD:":"";DF$:D$;"OPEN ";DF$:D$;"READ ";DF$:J1!ZT(J):T(J)999923247!ZJJ1:23220 "ZD$"CLOSE ";DF$:NJ1:RM1: TO DISK":::"THIS OPTION SAVES THE VALUES":"TO DISK AS A TEXT FILE."::"CURRENT PREFIX: ";PF$::"ENTER NAME TO BE USED FOR THIS FILE:":"";DF$:D$;"OPEN ";DF$:D$;"WRITE ";DF$:J1N:T(J):J:9999:D$;"CLOSE ";DF$:2655!Y:"LOAD DATA FILE":::700:V61:H224:PR$"S.D.:":700:NUD(1):100:PR$NU$TV69:H224:700:V79:H224:PR$"MIN.:":700:NUMI(1):100:PR$NU$:V87:H224:700:V97:H224:PR$"MAX.:":700:NUMA(1):100:PR$NU$:V105:H224:700:D$;"FRE":"";DF$:GP1U2655 U:"SAVE DATA990;TOS1:J1N1:600:(KC)155JN:J:KP,0:219906TJ:KP,0:V15:H219:O$"H":PR$"STATISTICS":700:V25:H224:PR$"N:":700:NUN:100:PR$NU$:V33:H224:700:"NU$:";NU$;" N: ";N:V41:H224:PR$"MEAN:":700:NUM(1):100:PR$NU$:V51:H224:R:"FIRST TICKMARK VALUE:";:"";DF$:DF$""DF$(MX)|RQ(DF$)::"LAST TICKMARK VALUE:";:"";DF$:DF$""DF$(XM)RQQ((DF$)Q)150:QQ0ĺ:11:958:"THE MAXIMUM IS LESS THAN THE MINIMUM":21140RHSQ:XSQQ:YSXS:VSHST1600:EX221&RPG(XMMX)421050.0RPGPG10:21030P:RPGPG10:MX0HS(HSPG)PGpNRMX0HS1(HSPG)PGPGXRNU(XMHS)(HRHL):1500:XSNUbRYSXS:VSHS:21640lR::11:958:"RANGE OF VALUES TO PLOT:":NUMX:100:NU$;" TO ";:NUXM:100:NU$:$"RETURN PLOT":J1N:T(J)XMXMT(J):YMT(J)N6QT(J)MXMXT(J):MYT(J)gTQJ:HDSE:SE521100rQ20960QHS0:XS(XM)(HRHL):NUXS:1500:XSNU:21090QMX0MXXM20920QMX(XMMX).25MX020920QHS(MX):LS((HS)LL):S10LS:PGS0ĺD$"PR#0"A!KB155Ģ23:"PRESS TO CONTINUE";DF$T"KP,ZZ::26551 N:"GRAPH DATA":KP,0:EX0:LW6:TC1:HL$"TIME N ":HU$"SEC.":VL$"TIME N+1 ":VU$"SEC.":XM1E32:YM1E32:MX1E32:MY1E32:HM$HL$" ("HU$")":VM$VL$" ("VU$")":TI 22:" J;:P1TA:NJ8330GD NUT(J):100:(6(P1)11):NU$; P::J:DA$:"N";:(7):N;::"MEAN";:NUM(1):100:(6):NU$;::"S.D.";:NUD(1):100:(6):NU$;::"MIN.";:NUMI(1):100:(6):NU$;::"MAX.";:NUMA(1):100:(6):NU$;::!PRN:(KC)155JN:J:86901(KC)160KB160XPR0(37)22KB193KB225822024:1::" PRESS , OR ";:KB(KC):KP,ZZ:KB160KB193KB141KB155KB225KB138KB1498190 KB155JN:J:87005000,1100,23000,20000,20000,8000,22000,25000,24000,2655l:"PHOTOGATE CHECK:":::49168,0:3080:2655r@:^:"TABLE OF TIME DATA":M$:RD$"D":ROTM:FCTT(1RO):DE1:I1RO:DE10DE:I:"#";:6:"TIME ":DA$:35,23:KP,0:34,4:KB0:KP,0:J1)"10H"%bSE2ĺ(12)*%b:D$;"PR#0"4%b2655%`D$;"PR#0":::EL(219)256(218):EC(222)::::"* ";:EC3ĺ"NO DEVICE CONNECTED";:60040%pEC4ĺ"DISK WRITE PROTECTED";:60040%qEC5ĺ"CANNOT LOAD FILE";:60040&rEC6EC7ĺ"PATH NOT FOUND";:600400&tEC8ĺ"I/O ERROR";:60040O&vEC9ĺ"DISK FULL";:60040q&wEC10ĺ"FILE LOCKED";:60040&xEC17ĺ"DIRECTORY FULL";:60040&yEC16ĺ"SYNTAX ERROR";:60040&zEC19ĺ"DUPLICATE NAME";:60040'{EC13ĺ"FILE TYPE MISMATCH";:G 4-PERSON 9 "TEAM PROJECT EXTENSION ON PAGE 2-10, d "REMEMBER TO CONNECT THE POWER LEADS "FOR THE 74LS20. PIN 14 SHOULD BE "CONNECTED TO +5V AND PIN 7 SHOULD BE "CONNECTED TO GND.  "PRESS TO CONTINUE ";Q$ NG THE COMPUTER REPLACEMENT D h"PROJECT EXTENSION ON PAGE 2-8, o r"REMEMBER TO CONNECT THE POWER LEADS |"FOR THE 74LS10. PIN 14 SHOULD BE "CONNECTED TO +5V AND PIN 7 SHOULD BE "CONNECTED TO GND. " "WHEN BUILDING THE LATCHININTS "SHOULD BE:C "" TIN: 450 DEG. F OR 232 DEG. Co ," LEAD: 621 DEG. F OR 327 DEG. C 6" 60/40: 370 DEG. F OR 188 DEG. C ; @"PRESS TO CONTINUE ";Q$ E J"PROJECT 2, QUIZ SHOW: T" ^"WHEN BUILDI?$,c0 QL 8 $`0 QL- 8L `F P` 0b l`Ġ L ȱ芑L `Hh:``Hh ``Lg `  hhX`X`  3 0  = iޥ6 L } X`$,a QL 8 F $,b0 QL 8 -L L L x ?L `Hߑh`XLg 芑,LI ȱ芑LI ȱ芑LI ȱ芑LI ȱ芑LI `Hh`XLg 芑,L ȱ芑L ȱ芑L ȱ芑N LINE : ";EL3(::768:D$;"CLOSE":EL2000ġJ(J13000:J:265560040.'~EC53ĺ"ILLEGAL QUANTITY";:60040M'EC69ĺ"OVERFLOW";:60040u'EC133ĺ"DIVISION BY ZERO";:60040'EC254ĺ"CANNOT LOAD FILE";:60040'EC255ĺ"CONTROL-C INTERRUPT ON LINE #";EL:60050'"CODE  ";EC;(" ERROR O% "PROJECT 5, A-TO-D CONVERTER:, "Z "THERE ARE SOME PROBLEMS WITH USING THE "PLATINUM-COLORED APPLE IIE COMPUTERS "(THE ONES WITH THE BUILT-IN 10-KEY "PAD) WITH THIS PROJECT. THE PLATINUM &"IIE WILL WORK FINE USING THE A.TO.D 50"PROGRAM, BUT IT WILL NOT WORK PROPERLY b:"USING THE SCOPE PROGRAM. THIS PROBLEM D"IS CAUSED BY CAPACITORS THAT WERE N"ADDED TO THE INPUT LINES OF THESE X"COMPUTERS. THERE IS NO PROBLEM USING b"THE LIGHT BROWN COLORED APP DEPENDING ON THE=t" STATUS OF THE"\~" MICROPHONE" THE VOLTAGES "<"LISTED IN THE TROUBLESHOOTING CHART"a$"ARE INCORRECT. THEY SHOULD BE:g.8"PINS 4,10 ABOUT 2.6 VOLTS"B"PINS 1,13 ABOUT 0.5 VOLTS"L"PINS 5, 9 MAY BE EITHER "`" 0.2 OR 4.1 VOLTS"j" LM385-/"2.5 IS 10K, AND THE TOP OF THIS ]"RESISTOR SHOULD NOT BE CONNECTED AS IS "SHOWN. IT SHOULD BE CONNECTED TO +5V."PRESS TO CONTINUE ";Q$"PROJECT 12, SPEED OF SOUND:"""ON PAGE 12-10, SOME OF PLATINUM-COLORED APPLE IIE H>"(THE KIND WITH THE BUILT-IN 10-KEY TH"PAD).[R"\"ON PAGE 10-15, THE SCHEMATIC HAS A FEW f"ERRORS:p"- THE +5V CONNECTION OF THE LF353 IS z"PIN 8, NOT PIN 7."- THE RESISTOR CONNECTED TO THE S OF MERCURY FOR ="EVERY CENTIMETER BELOW THE SURFACE.Ci"PRESS TO CONTINUE ";Q$o "PROJECT 10, D-TO-A CONVERTER:" "ON PAGE 10-14, THE DIGITIZE YOUR OWN *"SOUNDS PROJECT EXTENSION WILL NOT WORK 4"USING AION WORKING 3"DIAGRAM ON PAGE 7-12, THE TWO a"RESISTORS THAT CONNECT TO PIN 3 OF THE "SOCKET HAVE THEIR VALUES REVERSED. THE "ONE ON THE RIGHT SHOULD BE 1K.""ON PAGE 7-14 THE PRESSURE INCREASE "SHOULD BE 0.2896 INCHELE IIE 6l"COMPUTERS AND OTHER MODELS. GIVE US A av"CALL IF YOU WANT TO DISCUSS WAYS TO "WORK AROUND THIS PROBLEM."PRESS TO CONTINUE ";Q$"PROJECT 7, BAROMETER/PRESSURE SENSOR:""IN THE PROJECT EXTENS