' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , C,:/8` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 7  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`I     p@@@@@@ @*@@@@H           ;"RUN MENU".S140:2:"^";:ES140:6:"^";:kS$"STOPWATCH PROGRAM":4:8000:@L(S$):LL2:(20L):S$:DOF THE FOLLOWING OPTIONS:":8000G 12:"<1> RUN THIS PROGRAM AGAIN."t 14:"<2> CHANGE PB CIRCUIT AND REPEAT." 16:"<3> RETURN TO MAIN MENU." 18:20:A$ A$"1"A$"2"A$"3"750 710 A$"1"200 A$"2"40 A$"3"ĺ:D$ DT(J)(1000DT(J)0.5)10000 X7:1:958Z b12:S$"ELAPSED TIME (SECONDS)":8000 l13:S$"----------------------":8000 v15:17:DT(1) 22:S$"PRESS ANY KEY TO CONTINUE":8000 23:20:PRESS$ 7:1:958 10:S$"CHOOSE ONE   :D$;"BLOAD "F$+ 7:1:958` 14:S$"PRESS PUSHBUTTON TO START TIMING!":8000h N1q 8,Nz 768 INDEXN11 JNINDEX1 DT(J)2128816(1280INDEX)4105(1536INDEX)1050889(1792INDEX) DT(J)DT(J)1022714000 20:20:AN$5 AN$"0"AN$"1"AN$"2"180> 150L AN(AN$)\ 7:1:958 10:S$"PLUG SENSOR INTO PB "AN$".":8000 12:S$"PRESS ANY KEY WHEN READY TO PROCEED:":8000 14:20:PRESS$ 7:1:958 F$"LCI TIMER "AN$) ( d5000D n8:"THIS PROGRAM WILL GIVE A PRECISE READING"y x10:S$"OF ELAPSED TIME FROM WHEN A PB IS":8000 12:S$"FIRST CLOSED UNTIL IT IS AGAIN CLOSED.":8000 16:S$"WHICH PB DO YOU WISH TO USE?":8000 18:S$" <0, 1 OR 2>":84 PA-STEP COURSE II ` STOPWATCH PROGRAM  USES CALCULATIONS FROM  DEJONG & NELSON PROGRAM  FROM AAPT WORKSHOP D$(4) DT(256 W,a0 Q,a Q,a Q,a0``@@ @`psbrq@@HI$I$I$I$I$I$I$I$I$I$I$I$"@@ @"@ @&@HI$I$I$Y$I&I$I$I$RI$I$I%I4@@@"@ @@\I$I$I$I$I$I$I$I$I$I$I$I$@ @@@@@ @@"@""@ @@@ @@@"@"@ @"@@ @@@"@@ @"b@@ @@ @@@>@ @@&rP&@@ @@@ @@@"@&@ @@>@@ @@ @@@&f @@@@@ @@@@ @*`RrpPRrqq*@@@@@ @@ @@*@ @@@@@ @@*j@ @@@@@ @"@"@2R0R2>@ @@@ @"@@@"@ @2@@ @@@@@ @2r>@@ @@ @@@@ @"@""12 "@"@ @@@ @@@"@"H@@@ @@ @@HI$I$I$I$I$I$I$I$I$I$I$I$ "b @@@@@ @@ @2@ @`Arprqs@ HI$I$I$I$I$I$I$I$I$I$I$I$@ @@ @@ @>HI$I$I$I$I$I$I$I$I$I$I$I$@@ @@@@@ @@\@ @@@@HI$I$I$Y$I&I$I$I$RI$I$I%I4@*@HI$I$I$Y$I&I$I$I$RI$I$I%I4@@ @@@@"@ @@@@ @@@HI$I$I$I$I$I$I$I$I$I$I$I$@ @ @@@ @@ @HI$I$I$I$I$I$I$I$I$I$I$I$@            "@"@2@@PPB0>@@@@@"@0@@"@0 2@@0@@.@0@2r>@GD@@@0@@"@"@@0 0C @@"@ "8050(#3'S140:"*";::K*L(S$):L39ĺS$:c+LL2:(20L):S$:S POTENTIOMETER ON WOODTRONIC TO 25"Y^12:S$"WITH LIGHTEST REAGENT SOLUTION IN":11000th14:S$"PLACE.":11000r17:15:"** "(0)" **"tKEY(16384)v16368,0:KEY328090|23:S$"PRESS SPACEBAR TO CONTINUE":11000}17:15:"  ERROR MESSAGES bo---------------------------------p:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::100@:2:10000:6:10000J4:S$"REACTION RATE EXPERIMENT":11000#T10:"SET---------------------------------c ROW OF 40 STARS ---------------------------------N140:"*";:Nm---------------------------------+nENU"AN$"1"Ģ7:1:958H10:"TO SUPERIMPOSE TRIALS, TYPE <1>"u12:"TO CLEAR PREVIOUS GRAPH, TYPE <2>"16:20:AN$AN$"1"AN$"2"ī600&530XAN$"2"1b16297,0:16302,0:16304,0:16299,0l100$   W,c0 Q,c Q,c Q,c0`` 0:"*";::#*L(S$):L39ĺS$:;+LL2:(20L):S$:D12:S$"WITH MOST CONCENTRATED SOLUTION IN":11000Lh14:S$"PLACE.":11000hr17:15:"** "(0)" **"ztKEY(16384)v16368,0:KEY328090|23:S$"PRESS SPACEBAR TO CONTINUE":11000}17:15:" "8050(# 'S14SE FOLLOW DIRECTIONS!! ***** "3zW13000::100IXD$;"OPEN SAMPLE"_bD$;"READ SAMPLE"hlEX$vD$;"CLOSE SAMPLE"@:2:10000:6:10000J4:S$"BEER'S LAW EXPERIMENT":11000T10:"SET POTENTIOMETER ON WOODTRONIC TO 235"1^---------------------------------6N140:"*";:N<sm---------------------------------n ERROR MESSAGES o---------------------------------p:12:"***** PLEAPE <2>"16:20:AN$3AN$"1"AN$"2"ī1000<940KAN$"1"1]AN$"2"1020t:(4);"RUN MENU"--------------------------------- ROW OF 40 STARS !23:S$"PRESS ANY KEY TO CONTINUE":11000:23:20:A$d16304,0:16299,0:19297,0:16302,0m&14016368,0:::2:5000:6:50004:10:"SINGLE GRAPH PROGRAM"12:"TO RERUN THIS PROGRAM, TYPE <1>"14:"TO RETURN TO MENU, TY"1"AN$"2"400 h340* AN$"1"500: 7:1:958l 12:"RETURNING TO MENU ------------------>" (4);"RUN MENU" ::2:10000:6:10000 4:S$"BEER'S LAW EXPERIMENT":11000 12:S$"INSERT UNKNOWN SAMPLE IN WOODTRONIC":110008 TO MENU K +---------------------------------g ,::2:10000:6:10000 64:S$"BEER'S LAW EXPERIMENT":11000 @10:"TO INSERT AN UNKNOWN, TYPE <1>" J12:"TO RETURN TO MAIN MENU, TYPE <2>" T16:20:AN$ ^AN$ 3 20,(SEN(PRISE))1 X20279279NUF 22:18:" "R P0(0)Y 6o X,SEN(P0RISE) 22:18:(0) I0PACE I A$ X )--------------------------------- * GO BACKLOCK GRAPH, A$4000"! U16368,0V a--------------------------------- b MAIN DISPLAY PAGE c--------------------------------- d nSEN.5 xRISE50 PACE100 : P(0) 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- D$(4) 27000 <NU(EX$) ANUNU1 D8000 E F PD$;"BLOAD B< 5---------------------------------i SINGLE GRAPH DISPLAY OF PDL(0)  PROGRAM BY  LABORATORY COMPUTER INTERFACING 2      "STORING SAMPLE NUMBER--------------->"4zD$(4)JD$;"OPEN SAMPLE"bD$;"DELETE SAMPLE"xD$;"OPEN SAMPLE"D$;"WRITE SAMPLE"EX$D$;"CLOSE SAMPLE"VE BLOCK GRAPH,A$2000,L$2000"%:/60007:K(4);"RUN ABS"QkHT7(HT1):VT8VT1zI1(S$)CH((S$,I,1))32CH05070DR1ĔCHHT,VTDR0ĕCHHT,VTQ0VTVT8Q1HTHT7I(p12:N$"1"Ĺ16297,0:16302,0:16304,0:16300,0:AN$:1700KAN$"2"1900hAN$"3"S$"":EX$"":1AN$"4"Đ:VT12:HT4:S$"GOODBYE. HOPE YOU USE ME AGAIN !":5010:l:VT12:HT4:S$"SAVING THIS GRAPH ON DISK --->":5010(4);"BSASE ONE OF THE FOLLOWING:":5010OVT6:HT6:S$"1. SEE THE GRAPH AGAIN":5010VT8:HT6:S$"2. SAVE THE GRAPH TO DISK":5010VT10:HT6:S$"3. DESTROY GRAPH AND START OVER":5010VT12:HT6:S$"4. DESTROY GRAPH AND QUIT":5010AN$9AT2222723!T2,(ZPL)7,T2:ZfVT10:HT10:S$"PRESS ANY KEY TO CONTINUE":DR1:5010oAN$VT10:HT10:S$"PRESS ANY KEY TO CONTINUE":DR0:5010SWITCH TO SECOND SCREEN :DR1:Q1VT4:HT4:S$"CHOO:5010 AN$Q!VT10:HT6:S$"DO YOU WANT A GRID ON THIS GRAPH ?":DR0:5010s"VT12:HT20:S$"?":DR0:5010(AN$"N"17002AN$"Y"1312<PL250EXFZ1EXPTI16703Z20(PLZ),TIdTI:ZnPL180EYxZEY201ER ENTRY!":5010MDR0:VT19:HT8:S$"DO NOT USE <- OR DELETE KEY!!":5010DR0:VT14:HT8:S$"PRESS AFTER ENTRY!":5010: CREATE GRID??VT10:HT6:S$"DO YOU WANT A GRID ON THIS GRAPH ?":DR1:5010VT12:HT20:S$"?":DR1250EX!tZ1EX:20(PLZ),173'~1EY11?PL180EY^ZEY01:17,(ZPL)7:Z REMOVE INSTRUCTIONS DR0:VT2:HT10:S$"GRAPH CONSTRUCTION PROGRAM":5010DR0:VT17:HT4:S$"NOTE - MAKE CORRECTIONS AFT X11BY$"0"1VT22:HT1:S$BY$:50107:l GET END OF Y-AXIS uX11EY$"100"L(EY$):HT1:VT1:S$EY$:5010:L PUT TICS ON AXES V20,173[EX(EX$)`PL7:HT11:S$EX$:5010:EX$"":X11:7307 AN$"Y"790@ 750] VT23:HT38:S$EX$:5010 Q1:VT5:HT9:S$"ENTER NUMBER OF SAMPLES":DR0:5010 *VT7:HT10:S$"?"EX$:DR0:5010 4:  GET START OF Y-AXIS Q1S$"ENTER NUMBER OF SAMPLES":DR1:5010C VT7:HT10:S$"?":5010L X11V 740 VT7:HTX:S$:S$(13)EX$EX$S$:5010:XX1:216,0:740 VT10:HT6:S$"IS "EX$" CORRECT ? ":5010:AN$:DR0:VT10:HT6:5010:DR1& AN$"N"DR0:VT DR1 LY$"REL. TRANS."K Q0:L(LY$):S$LY$:VT12L2:HT1:5010Q V: W GET START OF X-AXIS XX11 bBX$"0" lVT23:HT3:S$BX$:5010 v:  GET END OF X-AXIS ' Q1:VT5:HT9:5010D 6VT17:HT4:S$"NOTE - MAKE CORRECTIONS AFTER ENTRY!":5010| @VT19:HT8:S$"DO NOT USE <- OR DELETE KEY!!":5010 JVT14:HT8:S$"PRESS AFTER ENTRY!":5010 X11 LX$"SAMPLE NUMBER" L(LX$):S$LX$:VT23:HT(20L2):5010 $ dD$;"BLOAD LCI,A$6000"7 x232,0:233,96= :i DRAW X AND Y AXIS ::16302,0:3:1:0 20,020,170272,170 ": + GIVE CAUTIONS  ,VT2:HT10:S$"GRAPH CONSTRUCTION PROGRAM":1 GRAPH CONSTRUCTION b E. E. DOWDEN  5-8-86  INITIALIZE VARIABLES Q1:D1D$(4)(: c BLOAD LCI          " xRISE20 }DDSEN(PRISE): PACE117((NU1)145)B A$M P(0)T 3c DD0DD0v DD170DD170 20,DD X202791 22:18:" " P0(0) 6 DESEN(P0RISE) DE0DE0 DE170DE170 X,DE TIME" KNU(EX$) N= PD$;"BLOAD REACT GRAPH, A$4000"K U16302,0 a--------------------------------- b MAIN DISPLAY PAGE c--------------------------------- d nSEN4.5 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- 8000 D$(4) 2D$;"OPEN TIME" <D$;"READ TIME" AEX$ FD$;"CLOSE W,b0 Q,b Q,b Q,b0`` @@@`r@bB@@@H"@@"@&@H@@@"@@:S$"HAVE YOU CONSTRUCTED A GRAPH YET?":11000H 14:S$"":11000X 16:20:A$^ x A$"Y"ĺD$;"RUN ABS" A$"N"ĺD$;"RUN MAKE BLOCK GRAPH" 140 'S140:"*";:: *L(S$):L39ĺS$: +LL2:(20L):S$: 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- D$(4) d:2:10000:6:10000 n4:S$"BEER'S LAW EXPERIMENT":11000. x125---------------------------------i SINGLE GRAPH DISPLAY OF PDL(0)  PROGRAM BY  LABORATORY COMPUTER INTERFACING 2   \@@@@@@"@"@@ B"@@@@@"@"@"@@@@"@@"b@@@@@>@@&@@B @@@@@@"@&@@ @ @>@@@@@&f@@@@@@@*@@PrPBP @@@@@@@*@@@@@@*j@@@@@"@"@2@@PPB0>@@W,b0 Q,b Q,a Q,a0`` @"@@@"@2@@@@@@2r>@@@@@@"@"@@0 0C @"@@@@@"@"H@@@@@H "b@@@@@ @2@pcr@b@>@ H@ @@@>H@@@@@@@\@@@@H@*@H@@@@@"@@@@@@H@ @@@@H@                  @y@i@ @@@@@@@@ Y@I@@@@@@@@By@`i@@sBcB@@0:"*";::#*L(S$):L39ĺS$:;+LL2:(20L):S$:D12:S$"WITH MOST CONCENTRATED SOLUTION IN":11000Lh14:S$"PLACE.":11000hr17:15:"** "(0)" **"ztKEY(16384)v16368,0:KEY328090|23:S$"PRESS SPACEBAR TO CONTINUE":11000}17:15:" "8050(# 'S14SE FOLLOW DIRECTIONS!! ***** "3zW13000::100IXD$;"OPEN SAMPLE"_bD$;"READ SAMPLE"hlEX$vD$;"CLOSE SAMPLE"@:2:10000:6:10000J4:S$"BEER'S LAW EXPERIMENT":11000T10:"SET POTENTIOMETER ON WOODTRONIC TO 235"1^---------------------------------6N140:"*";:N<sm---------------------------------n ERROR MESSAGES o---------------------------------p:12:"***** PLEAPE <2>"16:20:AN$3AN$"1"AN$"2"ī1000<940KAN$"1"1]AN$"2"1020t:(4);"RUN MENU"--------------------------------- ROW OF 40 STARS ! W,a0 Q,a Q,b Q,b0`` @@@`r@bB@@@H"@@"@&@H@@@"@@\@@@@@@"@"@@ B"@@@@@"@"@"@@@@"@@"b@@@@@>@@&@@B @@@@@@"@&@@>@@@@@&f@@@@@@@*@@PrPBP @@@@@@@*@@@@@@*j@@@@@"@"@2@@PPB0>@@@"@@@"@2@@@@@@2r>@@@@@@"@"@@0 0C@"@@@@@"@"H@@@@@H "b@@@@@ @2@pcr@b@>@ H@ @@@>H@@@@@@@\@@@@H@*@H@@@@@"@@@@@@H@ @@@@H@             TO MENU K +---------------------------------g ,::2:10000:6:10000 64:S$"BEER'S LAW EXPERIMENT":11000 @10:"TO INSERT AN UNKNOWN, TYPE <1>" J12:"TO RETURN TO MAIN MENU, TYPE <2>" T16:20:AN$ ^AN$ 3 20,(SEN(PRISE))1 X20279279NUF 22:18:" "R P0(0)Y 6o X,SEN(P0RISE) 22:18:(0) I0PACE I A$ X )--------------------------------- * GO BACKLOCK GRAPH, A$4000"! U16368,0V a--------------------------------- b MAIN DISPLAY PAGE c--------------------------------- d nSEN.5 xRISE50 PACE100 : P(0) 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- D$(4) 27000 <NU(EX$) ANUNU1 D8000 E F PD$;"BLOAD B "8050(#3'S140:"*";::K*L(S$):L39ĺS$:c+LL2:(20L):S$:S POTENTIOMETER ON WOODTRONIC TO 25"Y^12:S$"WITH LIGHTEST REAGENT SOLUTION IN":11000th14:S$"PLACE.":11000r17:15:"** "(0)" **"tKEY(16384)v16368,0:KEY328090|23:S$"PRESS SPACEBAR TO CONTINUE":11000}17:15:" W,b0 Q,b Q,b Q,b0`` )-%'%'%'?@a )-%!$$,-? -%<"$d-%!$$ -%$2& -$$< - $$$!$$l I ??$$$!$$f`666!$$$$$ - $$?66!$$,-? % $?66!$$,-?- <8d-I$$$?M% - $$66&I $$36!$$l 666#! l &I$l I ??d ??! ŠԠҠ ӠԠŠ" ԠŠ"̠  ɠҠŠԠ °Ϡ°ɠҠɠҠ Ƞ̠Ҡ  ˠȠ"ɠ " ŠŠ ĠŠ  ±Ϡ± °Ϡ± ±Ϡ° ɠԠȠ"Š ˠϠ ŠˠȠӠ  Š ŠҠ٠î Š͠ԠԠ ԠϠ !ŠԠȠ"ԠԠ ϠՠĠϠŠŠǠŠ"͠Ҡ1:958; 8:S$"THEREFORE THE ARRANGEMENT CAN BE:":8000c 11:" START STOP" 12:" ----- ----" 13:" PB0 PB0" 14:" PB1 PB1" 15:" PB1 PED TIME FROM WHEN ONE PB IS":8000Y 12:S$"CLOSED UNTIL A SECOND PB IS CLOSED.":8000 14:S$"IT CAN USE PB0 AND/OR PB1 CIRCUITS IN":8000 16:S$"ANY COMBINATION.":8000 22:S$"PRESS ANY KEY TO CONTINUE":8000 23:20:PRESS$ 7:` 4 PA-STEP COURSE II a DEJONG & NELSON PROGRAM  FROM AAPT WORKSHOP D$(4)DT(256)(d5000n8:"THIS PROGRAM WILL GIVE A PRECISE READING"" x10:S$"OF ELAPS"""TIMER 1"? 8:S$"PLEASE INPUT THE NUMBER OF INTERVALS":8000v 10:S$"WHICH YOU WISH TO MEASURE (9 MAX.).":8000 12:20:N$ N(N$) N9250 7:1:958 8,N 768 INDEXN11 JNINDEX1. DT(J)2128816(1280IEEN THE PASSAGE OF":8000L 16:"TWO OBJECTS, FOR EXAMPLE. IT USES PB(0)" 18:S$"CIRCUIT AND ONE PHOTOGATE APPARATUS.":8000 22:S$"PRESS ANY KEY TO CONTINUE":8000 23:20:PRESS$ DT(256) 7:1:958 :D$;"BLOAD MACHINE INT BY E. DOWDEN 7 D$(4)A d5000y n8:S$"THIS PROGRAM WILL MEASURE A SERIES OF":8000 x10:S$"TIMES PRODUCED BY FLAGS PASSING A":8000 12:"PHOTOGATE. IT CAN THEREFORE MEASURE THE" 14:S$"TIME INTERVAL BETW% *** PA-STEP WORKSHOP *** C MULTI INTERVAL TIMER ` THIS PROGRAM MEASURES~ TIME INTERVALS USING A SERIES OF FLAGS MOVING PAST A PHOTOGATE. BY MARVIN DE JONG AND JIM NELSON+ MODIFIED @"@@@ @"@@@@@(4);"RUN MENU"% pS140:"*";::= @L(S$):L38ĺS$:U JLL2:(20L):S$: YW X:2:6000:6:6000T b4:S$"SECONDARY I - INTERFACE DISK - VER. 2.85":8000n g9:S$"DISK #2":8000 l12:"NOTE - DEPRESS 'CAPS LOCK' KEY ON IIE," q14:14:"IIC OR IIGS!" v22:10:"PRESS ANY KEY FOR MENU" 23:20:Q$ ~:  X ,Y2332 634,Y% @Y2 JX3137< TX,33C ^XT hJ11000:J "L A B O R A T O R Y C O M P U T E R" " I N T E R F A C I N G, I N C." J15000: : 12:7:" * * * P R E S E N T S * * *" W12500:W(4);"NOMON C,I,O"% -139Y110B5,YI#YYdX610:Y7cnX,10jxXwX1822Y11X,YX18,12:22,12Y132018,YYX1822X,21X22,20X3137 X,22   68,0!(4);"RUN SAVE PICTURE"X--------------------------------- GOTO LOAD A PICTURE ---------------------------------:12:"PROCEEDING TO LOAD PICTURE MENU ----->`(4);"RUN INTERVAL TIMER"V--------------------------------- GOTO SAVE A PICTURE ---------------------------------:12:6:"PROCEEDING TO SAVE PROGRAM"163RUN PHOTOGATE EXPERIMENT"PI---------------------------------J GOTO INTERVAL TIMER K---------------------------------L:V:12:"GETTING INTERVAL TIMER PROGRAM ------->"(4)"RUN STOPWATCH"K--------------------------------- GOTO PHOTOGATE PROGRAM ---------------------------------::12:"GETTING PHOTOGATE EXPERIMENT --------->"(4);"UN REACT START"E---------------------------------} GOTO STOPWATCH PROGRAM ---------------------------------:16368,0:12:"GETTING PB(0) STOPWATCH PROGRAM ------>"(4)"RUN GRAVITY ACC."K--------------------------------- GOTO REACTION RATE --------------------------------- :>:12:"PROCEEDING TO REACTION RATE EXPERIMENT"H(4);"Rl(4)"RUN PEND INTRO"P--------------------------------- GOTO GRAVITY ACC. ---------------------------------::12:"GETTING GRAVITY ACCELERATION PROGRAM ->"T--" D(4);"RUN BLOCK INTRO"VU---------------------------------V GOTO PENDULUM W---------------------------------X:b:12:"GETTING PENDULUM EXPERIMENT ---------->"ETURN>" AN$::D$"RUN MENU"&\--------------------------------- GOTO BEER'S LAW ---------------------------------:::12:"PROCEEDING TO BEER'S LAW EXPERIMEN6:"CHOOSE ONE OF THE FOLLOWING:"M 12:7:"<1> RETURN TO PREVIOUS MENU."s 14:7:"<2> SEE MENU ON SIDE 1." 16:20:AN$ AN$"1"100 AN$"2"460 435 5:1:958 12:6:"REVERSE DISK IN DRIVE 1 AND"14:13:"PRESS 2 21:"TO LOAD A PICTURE FROM DISK, TYPE "^ 23:5:"PRESS RETURN FOR MORE CHOICES"n 23:20:Z$z Z(Z$) Z13400 Z65Z806000 216,0:ZZ64:Z500,600,700,800,900,1000,1100,1200,1300 100  5:1:958" 8:CCELERATION, TYPE (C)"E 11:"TO RUN REACTION RATE EXP., TYPE "r 13:"TO RUN STOPWATCH PROGRAM, TYPE 15:"TO RUN PHOTOGATE PROGRAM, TYPE 17:"TO RUN INTERVAL TIMER PROGRAM, TYPE  19:"TO SAVE A PICTURE IN MEMORY, TYPE " 7:"TO RUN PENDULUM PROGRAM, TYPE " 9:"TO RUN GRAVITY A 35 CONCORD ROAD x  BOOTHWYN PA 19061 --------------------------------- D$(4) a---------------------------------% b5---------------------------------l MENU FOR VERSION 2.1 DISK  PROGRAM BY  LABORATORY COMPUTER INTERFACING 5           H@@@ @H\"@@`@@@ ":100015:2@D$;"BLOAD MULTI INTERVAL TIMER DIAGRAM"b16297,0:16304,0:16302,0kK9$t230:2:S140:"^";:6:S140:"^";:4:S$"MULTI INTERVAL TIMER":8000@L(S$):LL2:(20L):S$:S TO MAIN MENU -------------->"3>:D$;"RUN MENU"9?X:2:S140:"^";:o6:S140:"^";:4:S$"MULTI INTERVAL TIMER":8000@L(S$):LL2:(20L):S$:(P$))2:P$:::12::P$" PLEASE WAIT FOR DIAGRAM TO LOADPRESS$7:1:958G10:S$"CHOOSE ONE OF THE FOLLOWING:":8000i12:"<1> RERUN THIS PROGRAM"14:"<2> RETURN TO MAIN MENU"16:20:PRESS$PRESS$"1"PRESS$"2"800740 PRESS$"1"210*7:1:958412:"RETURNINGAL(";INDEX;") : 0";DT(INDEX);:27:"SECOND":640 lDT(INDEX)1ĖHT:"INTERVAL(";INDEX;") : ";DT(INDEX);".000";:27:"SECOND":640 vHT:"INTERVAL(";INDEX;") : ";DT(INDEX);:27:"SECONDS"  22:S$"PRESS ANY KEY TO CONTINUE":800023:20:NDEX)4105(1536INDEX)1050889(1792INDEX)F DT(J)DT(J)1022714c DT(J)(103DT(J))103i s 0VT12| 5HT7 :9:S$"TABLE OF TIMES INTERVALS":8000 ?10:S$"------------------------":8000 NINDEX1N0 XDT(INDEX)1ĖHT:"INTERV---------------------------------Xp:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "mzW13000::100D100D:100D:100W13000::100- ROW OF 40 STARS [---------------------------------pN140:"*";:Nvm---------------------------------n ERROR MESSAGES #o16368,0>:12:"GETTING PB(0) STOPWATCH PROGRAM ------>"W(4)"RUN STOPWATCH"::12:"GETTING GRAVITY ACCELERATION PROGRAM ->"D(4)"RUN GRAVITY ACC."---------------------------------$ 7---------------------------------u GOTO PENDULUM EXP. ---------------------------------:12:"GETTING PENDULUM EXPERIMENT ---------->"(4)"RUN PEND INTRO" RO":=---------------------------------x> GOTO BREATH GRAPH ?---------------------------------@:12:"GETTING BREATH GRAPH PROGRAM --------->"J(4)"RUN BREATH GRAPH"---------------------------------g GOTO RESPIRATION EXPER. ---------------------------------:12:"GETTING RESPIRATION EXPERIMENT -------->"16368,0(4)"RUN RESPIRATION INT GOTO REACTION TIME `w---------------------------------x:12:"GETTING REACTION TIME PROGRAM ------->"(4)"RUN REACT INTRO":12:"GETTING TUNING FORK PROGRAM ------->"(4)"RUN FORK1"----------------------------------bn ERROR MESSAGES o---------------------------------p:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::100----)v"(4);"RUN LOAD PICTURE"$[--------------------------------- ROW OF 40 STARS ---------------------------------N140:"*";:N#m-------------C(#::12:"I AM NOW SAVING SOME IMPORTANT NUMBERS"O2#D$(4)h<#F$"PENDULUM NUMBER"yF#D$"OPEN";F$P#D$"WRITE";F$Z#X1279d#Z(X)n#Xx#D$"CLOSE";F$ '---------------------------------/'?---------------------------------M@L(P$):L39ĺP$:eJLL2:(20L):P$:%#---------------------------------&# SAVE NUMBERS ON DISK '#-------------------- PRESS ANY KEY RW---------------------------------X23:P$"PRESS ANY KEY TO CONTINUE":8000:23:20:A$:=---------------------------------> CENTER SENTENCE ON TEXT 5 8o---------------------------------\p22:10:"HIT TO EXIT"mzKEY(49152)~KEY27605049168,0601049168,09000U---------------------------------V -------------E ROW OF 40 STARS |---------------------------------S140:"*";::m---------------------------------n HIT ESCAPE TO EXIT  SECOND AND THIRD HGR DISPLAY dK---------------------------------nL936yVSEN.5`X1279eTIME7jP0(0)t5~X,SEN(P0RISE)I1TIME:X -------------------- >*********************************H936SSEN.5`X1279kTIME7yZ(X)(0)P0(0)5$X,SEN(P0RISE))I1TIME:.X8I----------------------------------J EXPERIMENT X*********************************^pRISE20:1000RISE120:1100RISE220:11006000********************************* FIRST HGR GRAPH S THE KEY. RELEASE THE":8000X^16:P$"PENDULUM AND WATCH WHAT HAPPENS !!!":8000mhA$:A$"G"ī500r20::P$"YOU ARE NOT PAYING ATTENTION":8000:|W12000:300*********************************( 2 +*********************************B ,7:1:958w 68:P$"I ASSUME THAT YOU HAVE FOLLOWED MY":8000 @10:P$"DIRECTIONS AND HAVE THE APPARATUS READY.":8000 J12:P$"NOW SWING THE PENDULUM TO THE LEFT AND":8000!T14:P$"DEPRES 11:"1. SET UP THE PENDULUM APPARATUS."^ 13:"2. CONNECT INPUT PLUG TO SLOT PDL(0) ON" 15:P$"L.C.I. INTERFACE MODULE.":8000 7000 )********************************* * PAGE 3 IMENT MODULE.":8000* W11500::7000Z *********************************  PAGE 2 ********************************* 7:1:958 9:" ** DIRECTIONS **"+ : c*********************************R d:2:5000:6:5000x n4:P$"PENDULUM EXPERIMENT":8000 x10:P$"WE WILL NOW DO AN ACTUAL PENDULUM":8000 12:P$"EXPERIMENT USING AN L.C.I. INTERFACE":8000 14:P$"PENDULUM EXPER PA 19061 7  COPYRIGHT 1987 b  ********************************* Z(300) a********************************* b PAGE 1 ( PENDULUM EXPERIMENTO MODULE s  LABORATORY COMPUTER INTERFACING INC. 35 CONCORD ROAD.  BOOTHWYN     @@@@@*@@@@@@*jH@~|@@@H@02* >@"@@"@@@@@2@>@@@"@ @2r"@>@@@@@"@"6"@@0H"@@@@"H@@@@@@ "b"@@`@@@@"@>">>@ @@>@@@@ @W,a0 Q,a Q,a Q,a0``  GOTO TRIG MODULE f'---------------------------------'D$;"RUN CALCULATE MODULE"'R---------------------------------j> CENTER SENTENCE ON TEXT ?---------------------------------@L(P$):L39ĺP$:@L(P$):L39ĺP$:JLL2:(20L):P$:JLL2:(20L):P$:---------------------MV PRESS ANY KEY W---------------------------------X23:P$"PRESS ANY KEY TO CONTINUE":8000:23:20:A$:X23:P$"PRESS ANY KEY TO CONTINUE":8000:23:20:AN$0= HIT ESCAPE TO EXIT jo---------------------------------p22:10:"HIT TO EXIT"zKEY(49152)KEY27605049168,0601049168,09000U---------------------------------------------` ROW OF 40 STARS ---------------------------------S140:"*";::ST140:"*";::m---------------------------------3n GOTO TRIG MODULE l*********************************rD$;"RUN TRIG"LZ(X)(Z(Y)2)ıVXX1`YY1j1100tZ(X)(Z(Y)2)ı~XX1YY11140(E RESULTS T*********************************Z:nF$"AVE NUMBER"tD$;"OPEN"F$D$"WRITE";F$AVD$"CLOSE";F$*********************************0Q9(Q3Q4Q5)3$ Q9(Q9.5)421:19:Q9? AVQ9J%216,0*23:P$"PRESS TO CONTINUE ":8000:23:20:A$4A$"G"ī810>********************************* STORE THS3)))2*11:"4 <------ ":11:30:Q4CQ5((Z(E3)Z(S3)))2f13:"5 ------> ":13:30:Q515:"6 <------ ":15:30:((Z(E3)Z(S4)))217:"WE WILL USE THE AVERAGE DEGREES OF SWING"19:"BEFORE FRICTIONAL DAMPING. THIS VALUE IS"5:"DEGREES OF SWING"@v3:"-----":3:25:"----------------"Y{Q1((Z(E1)Z(S1)))2z5:"1 ------> ":5:30:Q1Q2((Z(E1)Z(S2)))27:"2 <------ ":7:30:Q2Q3((Z(E2)Z(S2)))29:"3 ------> ":9:30:Q3Q4((Z(E2)Z(S4X S4X:YX1 1140* E4Xf U********************************* V SHOW THE RESULTS W********************************* Xl2:"ARC #":2:2*******************! ,X2:YX1+ 611005 @S1XD JS1X:YX1N T1140X ^E1Xg hXE1:YX1q r1100{ |S2X XS2:YX1 1140 E2X E2X:YX1 1100 S3X S3X:YX1 1140 E3X E4X:YX1 1100 NUMBER" D$"OPEN";F$) D$"READ";F$6 X1279@ Z(X)G XY D$"CLOSE";F$ )********************************* * CALCULATION MODULE  +************** PAGE 1 S c*********************************m d::2:5000:6:5000 n4:P$"CALCULATION MODULE":8000 x12:P$"I AM CALCULATING THE DEGREES OF SWING OF":8000 14:P$"THE PENDULUM":8000 F$"PENDULUM N PA 19061 8  COPYRIGHT 1987 c  ********************************* Z(300) 11000 (D$(4) a*********************************$ b o) PENDULUM CALCULATIONP MODULE t  LABORATORY COMPUTER INTERFACING INC. 35 CONCORD ROAD.  BOOTHWY     (S$):L39ĺS$:*+LL2:(20L):S$::4:S$"SAVE A PICTURE MENU"11000DT10:"TO SEE CATALOG, TYPE <1>"k^12:"TO LOAD A PICTURE, TYPE <2>"|r16:20:AN$|AN$"1"AN$"2"ī81008050D$;"CATALOG"::" PRESS ANY KEY TO CONTINUE":7000'S140:"*";::*L--------------------------Yn ERROR MESSAGES o---------------------------------p:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::100X:@:2:10000:6:10000 J1020:(4);"RUN MENU"R--------------------------------- ROW OF 40 STARS ---------------------------------N140:"*";:Nm-------0/A0:23:20:A$@16304,0:16299,0:19297,0:16302,0I&140m16368,0:::2:5000:6:50004:10:"SINGLE GRAPH PROGRAM"12:"TO RERUN THIS PROGRAM, TYPE <1>"14:"TO RETURN TO MENU, TYPE <2>"AN$"1"1AN$"2"THE DISK":11000+ .12:S$"DRIVE.":11000e /18:S$"PLACE AN INITIALIZED DISK IN THE DISK":11000 /20:S$"DRIVE AT THIS TIME.":11000 &/23:S$"PRESS ANY KEY TO CONTINUE.":11000:A$ 0/D &/23:S$"PRESS ANY KEY TO CONTINUE.":11000:A$:"PRESS ANY KEY FOR MAIN MENU"/ 20:20:Z$F :(4);"RUN MENU"L 'b 'S140:"*";::z *L(S$):L39ĺS$: +LL2:(20L):S$: .7:1:958 .8:S$"TO SAVE A PICTURE, YOU MUST FIRST":11000 .10:S$"PLACE AN INITALIZED DISK IN 1:958*  12:"ENTER PICTURE NAME ";F$W  :D$;"BSAVE "F$" PAGE 1,A$2000, L$2000" & :D$;"BSAVE "F$" PAGE 2,A$4000, L$2000" l 7:1:958 v 10:S$"REPLACE THE PROGRAM DISK IN THE DISK":11000 12:S$"DRIVE AT THIS TIME.":11000 18:500 O12000 P7:1:958A T10:"TO SEE CATALOG, TYPE <1>"h ^12:"TO SAVE A PICTURE, TYPE <2>"y r16:20:AN$ |AN$"1"ī8100 }AN$"2"ī8200 8050  :D$;"CATALOG" ::" PRESS ANY KEY TO CONTINUE":A$:7000  7: 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- D$(4) XD$(4) @:2:10000:6:10000 J4:S$"SAVE A PICTURE MENU":1105---------------------------------i SINGLE GRAPH DISPLAY OF PDL(0)  PROGRAM BY  LABORATORY COMPUTER INTERFACING 2     IMENT. THEREFORE WE MUST"C +16:P$"REPEAT THE EXPERIMENT.":8000M+7000U +:n*+D$;"RUN EXPERIMENT"A8 '---------------------------------u' ERROR MESSAGES '---------------------------------*216,0::12:"I CANNOT DETERMINE THE DEGREES OF SWING"+14:"IN THIS EXPER  -@L(P$):L39ĺP$:1JLL2:(20L):P$:E(#W15000::: ----------------------------YX23:P$"PRESS ANY KEY TO CONTINUE":8000:23:20:A$::=---------------------------------> CENTER SENTENCE ON TEXT ?-------------------------------- ROW OF 40 STARS `---------------------------------vS140:"*";::U---------------------------------V PRESS ANY KEY W-----`D$"RUN PEND INTRO"jt14:"THERE IS SIGNIFIGANT DIFFERENCE BETWEEN YOUR VALUE AND MINE. SINCE I AM RIGHT, YOU HAD BETTER REPEAT THIS SEGMENT"~W15000:W200---------------------------------)ANGE THE PENDULUM LENGTH AND REPEAT THE EXPERIMENT. IF YOU WANT TO DO THIS, TYPE <1>; IF NOT, THEN TYPE <5>"u$A.A1ī11008A5ė:"SEE YOU LATER. GETTING MENU -------->"9D$;"RUN MENU"BLD$(4)V23:"O.K. LETS DO IT AGAIN"INCE I AM RIGHT!!!!. IF SO, TYPE <1>. IF YOU ARE SATISFIED, TYPE <5>";AUA1ī200A5ė:"SEE YOU LATER. GETTING MENU --------->"D$;"RUN MENU"n14:"CONGRATULATIONS!!! YOU HAVE COMPREHENDED THIS EXPERIMENT!! I SUGGEST THAT YOU CH00.5)10000210:"I CALCULATED P.E TO BE ";MPGPEMP.10ī1140\PEMP.10ī1140qPEMP.04ī1000PEMP.04ī10001050G14:"THERE IS A SLIGHT DIFFERENCE BETWEEN OUR VALUES OF PE.. YOU MIGHT WANT TO REPEAT YOUR CALCULATIONS, SENTER L (METERS) = ";LEW\:21:"CALCULATE AND ENTER P.E. (JOULES) = "{f23:" = ";PE::2:P$"********** GRADE REPORT **********":8000MPMG(LELEC)6:"YOUR CALCULATED P.E. = ";PE MP(MP100METERS/SEC^2) = ";GS :21:"WE MEASURED DEGREES OF ARC TO BE ";AN 23:"THEREFORE I CALCULATE 0 TO BE ";AN2 9000 R(AN114.6) C(R) *C(C100.5)100 421:6:"THE COSINE OF ";AN2;" IS ";C >7000%H21:"YOU ARE READY TO CALCULATE THE P.E."M v23:P$"OF THE PENDULUM":8000:7000 21:"USING THE EQUATION P.E.= M G (L-L COS 0)" 7000 21:"ENTER THE VALUES AS THEY ARE REQUESTED:" 9000 21:"M (KGMS) = ";M! :21:"G (01,0:16304,0I :21:P$"IN THE ABOVE : L= LENGTH OF PENDULUM,":8000 23:P$"THETA= 1/2 OF FULL SWING OF PENDULUM":8000 9000 021:P$"AND L COS 0 + H = L":8000 :7000 N21:P$"THEREFORE H = L - L COS 0":8000:7000$ l21:"NOW 2:5000:6:50007 n4:P$"CALCULATION OF P.E.":8000h x12:P$"I AM LOADING DATA INTO MEMORY":8000| F$"AVE NUMBER" D$"OPEN";F$ D$"READ";F$ AN D$"CLOSE";F$ D$;"BLOAD PICTURE, A$2000" 7000 16297,0:16300,0:163 G *********************************S Z(300)_ (D$(4) a********************************* b GET AVE. DEGREES OF SWING c********************************* d:F ) PENDULUM TRIG MODULEV LABORATORY COMPUTER INTERFACINGu INC. 35 CONCORD ROAD. BOOTHWYN PA 19061  COPYRIGHT 1987         I   ժժժՂ I           00 7:1:9584 12:"ENTER PICTURE NAME ";F$: X :D$;"BLOAD "F$",A$4000"^'t'S140:"*";::*L(S$):L39ĺS$:+LL2:(20L):S$:'J4:S$"SAVE A PICTURE MENU":11000KT10:"TO SEE CATALOG, TYPE <1>"r^12:"TO LOAD A PICTURE, TYPE <2>"r16:20:AN$|AN$"1"ī8100}AN$"2"ī82008050:D$;"CATALOG"::" PRESS ANY KEY TO CONTINUE":A$:70--------------------------Yn ERROR MESSAGES o---------------------------------p:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::100XD$(4)@:2:10000:6:100001020:(4);"RUN MENU"R--------------------------------- ROW OF 40 STARS ---------------------------------N140:"*";:Nm-------":11000:23:20:A$@16304,0:16299,0:19297,0:16302,0I&140m16368,0:::2:5000:6:50004:10:"SINGLE GRAPH PROGRAM"12:"TO RERUN THIS PROGRAM, TYPE <1>"14:"TO RETURN TO MENU, TYPE <2>"AN$"1"1AN$"2"1"500 7:1:958H 12:"RETURNING TO MENU ------------------>"] (4);"RUN MENU"y ::2:10000:6:10000 4:S$"BEER'S LAW EXPERIMENT":11000 12:S$"INSERT UNKNOWN SAMPLE IN WOODTRONIC":1100023:S$"PRESS ANY KEY TO CONTINUE---------------------------------C ,::2:10000:6:10000l 64:S$"BEER'S LAW EXPERIMENT":11000 @10:"TO INSERT AN UNKNOWN, TYPE <1>" J12:"TO RETURN TO MAIN MENU, TYPE <2>" T16:20:AN$ ^AN$"1"AN$"2"400 h340 AN$"CTURE NAME ";F$  3  :D$;"BLOAD "F$",A$4000"9 'O 'S140:"*";::g *L(S$):L39ĺS$: +LL2:(20L):S$:D )--------------------------------- * GO BACK TO MENU ' +00& T10:"TO SEE CATALOG, TYPE <1>"M ^12:"TO LOAD A PICTURE, TYPE <2>"^ r16:20:AN$q |AN$"1"ī8100 }AN$"2"ī8200 8050  :D$;"CATALOG" ::" PRESS ANY KEY TO CONTINUE":A$:7000  7:1:958  12:"ENTER PI 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- D$(4) XD$(4) @:2:10000:6:10000 J4:S$"LOAD A PICTURE MENU":1105---------------------------------i SINGLE GRAPH DISPLAY OF PDL(0)  PROGRAM BY  LABORATORY COMPUTER INTERFACING 2    4b14:S$"PRESS PUSHBUTTON TO START TIMING!":8000<lN1Ev8,NN768`INDEXN11pJNINDEX1DT(J)2128816(1280INDEX)4105(1536INDEX)1050889(1792INDEX)DT(J)DT(J)1022714DT(J)(1000DT(J)0.5)10007:1::S$"IS PRESSED!":8000Q 16:S$"PLUG SENSORS INTO CORRECT PB CIRCUITS.":8000 19:S$"PRESS ANY KEY WHEN READY TO PROCEED:":8000 21:20:PRESS$ 7:1:958 F$"PB"(START)" TO PB"(CEASE) D N:D$;"BLOAD "F$ X7:1:958 ^200 h:" rCEASE(CEASE$)6 |START(START$)F 7:1:958 10:S$"THE TIMING CYCLE WILL START WHEN PB "(ST):8000 12:S$"IS PRESSED. IT WILL END WHEN PB "(CE):8000 12:S$"IS PRESSED. IT WILL END WHEN PB "(CE):8000 14B0"+ 16:" PB0 PB1"Z 18:S$"WHICH PB WILL START TIMING?":8000n "20:20:START$ ,18:1:958 618:S$"WHICH PB WILL STOP TIMING?":8000 @20:20:CEASE$ JSTART$"0"START$"1"340 TCEASE$"0"CEASE$"1"360\"@@@@`@@"@"""6@@@H@@"@"@"@@@@@"b"@@@@x@>@@@&" "@>@<@>@@>@"@&@ @ @H@@@@@ @"H">>*@@@6:"PRESS ANY KEY TO CONTINUE":AN$:ATINUE":AN$:ATO BREAK THE"@R12:" PHOTOGATE WILL BE L1 AND THE SECOND IS"s\14:" L2. WHEN PROMPTED BY THE PROGRAM, DROP"f16:"THE 8 THROUGH THE PHOTOGATE SO THAT THE"p18:" BEAM IS BROKEN TWICE."6000:S140:"^";::&p23: 16:"PROGRAM WILL CALCULATE AND DISPLAY THE"`18:"ACCELERATION DUE TO GRAVITY ON THE 8." 20:" CONSTRUCT AN 8 OUT OF CARDBOARD."*600047:1:958>8:" MEASURE THE LENGTHS OF THE CUTOUTS ON" H10:" THE FIGURE 8. THE FIRST 0024:" ACCELERATION DUE TO GRAVITY PROGRAM"c8:" THIS EXPERIMENT USES A BLOCK FIGURE 8"10:" WITH HOLES OF KNOWN DIMENSION. THE 8 IS"12:"DROPPED SO AS TO INTERRUPT A LIGHT BEAM"14:"WHOSE SENSOR IS CONNECTED TO PB(0). THE"/LLOWING:"/13:"1. RUN THIS PROGRAM AGAIN."R15:"2. RETURN TO MAIN MENU."c 18:20:AN$rAN$"1"1 AN$"2"850*780R7:1:958\12:"RETURNING TO MAIN MENU --------------->"f(4);"RUN MENU":2:5000:6:50J);" METERS/SEC./SEC." J% :P " AVERAGE ACCELERATION RESULTS:"V z 11:AVERAGE;" METERS/SEC./SEC. : 24:9:"PRESS RETURN TO CONTINUE" AN$ AN$(13)745 735 7:1:958 10:7:"CHOOSE ONE OF THE FO00G0.5)100 7:1:958% 10= "TRIAL ";J;" : ";a "G = ";G;" METERS/SEC./SEC. "q &EVENT(J)G 0SUMSUMEVENT(J) :J DAVERAGE(SUMTRIALS1000.5)100 X: b: l v J1TRIALS "TEST ";J; " ";EVENT(DATA :": J1TRIALS" 768Z T21288215(1316)3848(1315)985096(1314)12 T11288215(1319)3848(1318)985096(1317)12 T1T11022714:T2T21022714 TAVERAGE(T1T2)2 V1Y1T1:V2Y2T2 G(V2V1)TAVERAGE G(1S(TRIALS)210, TRIALS0TRIALS11240b 20::" PLEASE ENTER BETWEEN 1 AND 10 TRIALS ":{ PAUSE12000:PAUSE 120 (4);"BLOAD MACHINE PENDULUM" 7:1:958 :"DROP THE FIGURE THROUGH PHOTOGATE":: "EXPERIMENTAL TRIAL DOWDEN, LCI. d n2000, x7:1:958] 9:"ENTER DIMENSIONS L1 & L2 OF HOLES IN 8"c " IN METERS." ::" DIMENSIONS OF L1 ?";Y1 ::" DIMENSIONS OF L2 ?";Y2 ::"HOW MANY EXPERIMENTAL TRIALS? ";TRIALS TRIAL' -*** PA-STEP WORKSHOP *** G * ACCELERATION *a * *{ * DUE TO FORCE * * * * OF GRAVITY * * * ******************* REVISION- ED       '&%$#",a0 ~,a ~,a'&% ~,a0'&% ~,a$#" ~,a0$#"``JLL2:(20L):S$:^320 7:1:958I 12:"PROCEEDING TO EXPERIMENTAL MODULE ====>"| 12:"PROCEEDING TO EXPERIMENTAL MODULE ====>" D$;"RUN REACT INTRO"  S140:"*";:: p23:S$"PRESS ANY KEY TO CONTINUE":8000:A$: @L(S$):L38ĺS$:DITIONAL TRIALS MAY BE RUN BY VARYING":8000` 18:S$"CONCENTRATIONS OF THE REACTANTS.":8000j "6000p (: ******** PAGE 3 ********* ,7:1:958 612:S$"ARE YOU READY TO BEGIN? ":8000 @14:20:A$ JA$"Y"400 TA$"N"1 2 ********* 7:1:958R 8:S$"WHEN READY TO START THE EXPERIMENT,":8000 10:S$"PLACE 3 ML. OF EACH SOLUTION IN A":8000 12:S$"WOODTRONIC TESTTUBE. THE PROGRAM WILL":8000 14:S$"DIRECT YOU TO THE NEXT STEP.":8000, 16:S$"ADFOR THE REACTION BETWEEN":8000M 12:S$".04 M POTASSIUM IODIDE AND":8000 14:S$".02 M IRON(III) NITRATE. THE FIRST STEP":8000 16:S$"IS TO CONSTRUCT A GRAPH TO RUN FOR 20":8000 18:S$"MINUTES.":8000 6000 : ******* PAGE****** INTRO MODULE ******: **************************F D$(4)L `:k b******** PAGE 1 ********* d:2:5000:6:5000 n4:S$"REACTION RATE EXPERIMENT":8000 x8:S$"THIS EXPERIMENT WILL INVESTIGATE THE":8000 10:S$"REACTION RATE !**************************Z**REACTION EXPERIMENT ** z********** BY *************** LABORATORY COMPUTER ***** INTERFACING, INC. ********* E. E. DOWDEN ************* JANUARY, 1985 *****      (S$):L38ĺS$:)JLL2:(20L):S$:/'09m---------------------------------xn ERROR MESSAGES o---------------------------------p:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::120@L MAKE REACT GRAPH": AN$"Y"ĺD$;"RUN REACT EXPERIMENT"q ---------------------------------  ROW OF 40 STARS --------------------------------- N140:"*";:N---------------------------------c ,10:S$"HAVE YOU CONSTRUCTED A REACTION GRAPH":8000 612:S$"AND STORED IT ON THIS DISK AS YET??":8000 @16:18:"" J18:20:AN$ TAN$"Y"AN$"N"400 ^330 : AN$"N"ĺD$;"RUNTYPE <2>":8000 22:20:A$. CHOICE$A$E A$"1"A$"2"200N 160V :q A$"2"ĺD$;"RUN MENU" 7:1:958 )--------------------------------- * IS GRAPH ON DISK? * + MAIN DISPLAY PAGE i c--------------------------------- d:2:5000:6:5000 n4:" PRELIMINARY REACTION MENU" x10:S$"TO RUN REACTION PROGRAM, TYPE <1>":8000 12:S$"TO RETURN TO MENU,  35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- D$(4) (16368,0 a---------------------------------4 b05---------------------------------i PRELIMINARY CONDUCTANCE MENU  PROGRAM BY  LABORATORY COMPUTER INTERFACING 2    3p12:"STORING TIME------------------------>"?zD$(4)SD$;"OPEN TIME"iD$;"DELETE TIME"}D$;"OPEN TIME"D$;"WRITE TIME"EX$D$;"CLOSE TIME" REACT GRAPH,A$2000,L$2000"#:-60005:V(4);"RUN REACT EXPERIMENT"\vHT7(HT1):VT8VT1I1(S$)CH((S$,I,1))32CH05070DR1ĔCHHT,VTDR0ĕCHHT,VTQ0VTVT8Q1HTHT7I"1"Ĺ16297,0:16302,0:16304,0:16300,0:AN$:1700IAN$"2"1900fAN$"3"S$"":EX$"":1AN$"4"Đ:VT12:HT4:S$"GOODBYE. HOPE YOU USE ME AGAIN !":5010:l:VT12:HT4:S$"SAVING THIS GRAPH ON DISK --->":5010(4);"BSAVE ONE OF THE FOLLOWING:":5010MVT6:HT6:S$"1. SEE THE GRAPH AGAIN":5010VT8:HT6:S$"2. SAVE THE GRAPH TO DISK":5010VT10:HT6:S$"3. DESTROY GRAPH AND START OVER":5010VT12:HT6:S$"4. DESTROY GRAPH AND QUIT":5010AN$7AN$T2222723T2,(ZPL)7*T2:ZdVT10:HT10:S$"PRESS ANY KEY TO CONTINUE":DR1:5010mAN$VT10:HT10:S$"PRESS ANY KEY TO CONTINUE":DR0:5010SWITCH TO SECOND SCREEN :DR1:Q1VT4:HT4:S$"CHOOSE5010  AN$O!VT10:HT6:S$"DO YOU WANT A GRID ON THIS GRAPH ?":DR0:5010q"VT12:HT20:S$"?":DR0:5010(AN$"N"17002AN$"Y"1312<PL250EXFZ1EXPTI16703Z20(PLZ),TIdTI:ZnPL180EYxZEY201 ENTRY!":5010KDR0:VT19:HT8:S$"DO NOT USE <- OR DELETE KEY!!":5010DR0:VT14:HT8:S$"PRESS AFTER ENTRY!":5010: CREATE GRID??VT10:HT6:S$"DO YOU WANT A GRID ON THIS GRAPH ?":DR1:5010VT12:HT20:S$"?":DR1:0EXtZ1EX:20(PLZ),173%~/EY11=PL180EY\ZEY01:17,(ZPL)7:Z REMOVE INSTRUCTIONS DR0:VT2:HT10:S$"GRAPH CONSTRUCTION PROGRAM":5010DR0:VT17:HT4:S$"NOTE - MAKE CORRECTIONS AFTERX11BY$"0"/VT22:HT1:S$BY$:50105:j GET END OF Y-AXIS sX11EY$"100"L(EY$):HT1:VT1:S$EY$:5010:L PUT TICS ON AXES V20,173[EX(EX$)`PL25:HT11:S$EX$:5010:EX$"":X11:7305 AN$"Y"790> 750[ VT23:HT38:S$EX$:5010 Q1:VT5:HT9:S$"ENTER NUMBER OF MINUTES":DR0:5010 *VT7:HT10:S$"?"EX$:DR0:5010 4:  GET START OF Y-AXIS Q1"ENTER NUMBER OF MINUTES":DR1:5010A VT7:HT10:S$"?":5010J X11T 740 VT7:HTX:S$:S$(13)EX$EX$S$:5010:XX1:216,0:740 VT10:HT6:S$"IS "EX$" CORRECT ? ":5010:AN$:DR0:VT10:HT6:5010:DR1$ AN$"N"DR0:VT7DR1 LY$"REL. TRANS."I Q0:L(LY$):S$LY$:VT12L2:HT1:5010O V: W GET START OF X-AXIS XX11 bBX$"0" lVT23:HT3:S$BX$:5010 v:  GET END OF X-AXIS % Q1:VT5:HT9:S$5010D 6VT17:HT4:S$"NOTE - MAKE CORRECTIONS AFTER ENTRY!":5010| @VT19:HT8:S$"DO NOT USE <- OR DELETE KEY!!":5010 JVT14:HT8:S$"PRESS AFTER ENTRY!":5010 X11 LX$"TIME (MIN.)" L(LX$):S$LX$:VT23:HT(20L2):5010 $ dD$;"BLOAD LCI,A$6000"7 x232,0:233,96= :i DRAW X AND Y AXIS ::16302,0:3:1:0 20,020,170272,170 ": + GIVE CAUTIONS  ,VT2:HT10:S$"GRAPH CONSTRUCTION PROGRAM":1 GRAPH CONSTRUCTION b E. E. DOWDEN  5-8-86  INITIALIZE VARIABLES Q1:D1D$(4)(: c BLOAD LCI !! ! ! ! ! !!!!!!!!!W,a0 Q,a Q,a Q,a0``:S140:6:"^";:?S$"PHOTOGATE PROGRAM":4:8000:_@L(S$):LL2:(20L):S$:1> RUN THIS PROGRAM AGAIN."H14:"<2> CHANGE PB CIRCUIT AND REPEAT."l 16:"<3> RETURN TO MAIN MENU."|*18:20:A$4A$"1"A$"2"A$"3"840>810HA$"1"600RA$"2"40\A$"3"ĺ:D$;"RUN MENU"fS140:2:"^";958.12:S$"ELAPSED TIME (SECONDS)":8000X13:S$"----------------------":8000k15:17:DT(1)22:S$"PRESS ANY KEY TO CONTINUE":800023:20:PRESS$7:1:95810:S$"CHOOSE ONE OF THE FOLLOWING OPTIONS:":8000 12:"< ERROR MESSAGES bo---------------------------------p:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::100@:2:10000:6:10000J4:S$"REACTION RATE EXPERIMENT":11000#T10:"SET---------------------------------c ROW OF 40 STARS ---------------------------------N140:"*";:Nm---------------------------------+nENU"AN$"1"Ģ7:1:958H10:"TO SUPERIMPOSE TRIALS, TYPE <1>"u12:"TO CLEAR PREVIOUS GRAPH, TYPE <2>"16:20:AN$AN$"1"AN$"2"ī600&530XAN$"2"1b16297,0:16302,0:16304,0:16299,0l100$ACTION RATE EXPERIMENT"> @12:"FOR ANOTHER TRIAL, TYPE <1>"f J14:"TO RETURN TO MENU, TYPE <2>"w T16:20:AN$ ^AN$"1"AN$"2"ī400 h340 AN$"1"500 7:1:958 12:"RETURNING TO MAIN MENU--------------->":(4);"RUN M22:18:(0) I0PACE" I) X1 "A$g )--------------------------------- * GO BACK TO MENU +--------------------------------- ,::2:5000:6:5000 64:8:"RE xRISE20 }DDSEN(PRISE): PACE117((NU1)145)B A$M P(0)T 3c DD0DD0v DD170DD170 20,DD X202791 22:18:" " P0(0) 6 DESEN(P0RISE) DE0DE0 DE170DE170 X,DE TIME" KNU(EX$) N= PD$;"BLOAD REACT GRAPH, A$4000"K U16302,0 a--------------------------------- b MAIN DISPLAY PAGE c--------------------------------- d nSEN4.5 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- 8000 D$(4) 2D$;"OPEN TIME" <D$;"READ TIME" AEX$ FD$;"CLOSE d 5---------------------------------i SINGLE GRAPH DISPLAY OF PDL(0)  PROGRAM BY  LABORATORY COMPUTER INTERFACING 2 "" " " " " """