' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `((`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  @(@Ϡ@跻~!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`RCURSUR8:540'?TIME(STCURSUR)DTUDTIME.0001(.510000TIME): ROUND OFF gHTIME$(TIME)zNSTOLDST500S1TCURS,0:505:::310 :::"PROGRAM STOPPED."*RCURSUR8:540'?TIME(STCURSUR)DTUDTIME.0001(.510000TIME): ROUND OFF gHTIME$(TIME)zNSTOLDST500S1TCURS,0:505:::310 :::"PROGRAM STOPPED."*ĭ(TIME$,1)"1"TIME$(TIME$,(TIME$)1):587BNSTOLDST500VS1TCURS,0:505e:::310m :*5:"PROGRAM STOPPED."410:Cĭ(TIME$,1)"1"TIME$(TIME$,(TIME$)1):587BNSTOLDST500VS1TCURS,0:505e:::310m :*5:"PROGRAM STOPPED."410:P`FpdeL>DLBDLZDLzDɛ0`e0LDL>Dd0LDL>DLDꠠ'@DAD J @i0頨 @$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@//@`  `FpdeL>DLBDLZDLzDɛ0`e0LDL>Dd0LDL>DLDꠠ'@DAD J @i0頨 @$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@//@`  )STST100:540,A$(8)STST100:540<A$"R"700LA$"Q"800]STE2STE2l&ST0ST00CURSUR0STST8:CURSURCURSUR8:540:CURSUR255STST8:CURSURCURSUR8:540?TIME(STCURSUR)DT DTIME.0001(.510000TIME): R(TIME$,(TIME$)1):507L1:24:" TIME AT CURSOR LINE = ";TIME;" ";^16384,0:A$oTCURSCURSURA$"."CURSURCURSUR1:540 A$">"CURSURCURSUR8:540 A$","CURSURCURSUR1:540 A$"<"CURSURCURSUR8:540 A$(2156(1):POINTER TO START OF DATA TO BE PLOTTED ON THE SCREENJOLDSTST17664: CLEAR AND PLOT ALL DATA FROM START TO ST+2551CURSUR,0TIME$(TIME)(TIME$,1)"0"TIME$(TIME$,(TIME$)1):507(TIME$)7ĭ(TIME$,1)"1"TIME$RROWS MOVE THE WHOLE SCREEN FAST.":"<, CURSOR LEFT >. CURSOR RIGHT":"R - READ MORE DATA Q - QUIT ST0:CURSUR100TIME(STCURSUR)DT:TIME.00001(.510000TIME)I179204ST: START OF STORED PHOTO DATA IN MEMORY=1,I256:0,I2 STOP EARLY. PEEK(0,1) IS THE POINTER TO THE LAST DATA LOCATION AND 17920 POINTS TO THE FIRST DATA LOCATION OE2EN256:E20E20 P E2 IS 256 BELOW THE LAST DATA POINT AND HELPS MARK THE LEFT SIDE OF THE SCREEN :75:3:0 k1:21:"ATOTAL TIME TO TAKE 5056 DATA POINTSV @17408: TAKE THE DATA UNTIL ESCAPE IS PRESSED JEN(0)256(1)17920:ENEN4: EN IS THE NUMBER OF DATA POINTS TAKENm K END IS THE HIGHEST NUMBER DATA POINT TAKEN, NORMALLY 5056 UNLESS ESCAPE WAS PRESSED TOING. PRESS ESCAPE TO STOP EARLY."W =3,63:MAX ALLOWED PHOTO COUNT ** AFFECTS DT ** >T.84.166(3): TIME TO CALL 17408, READ 5056 SETS OF 4 TRANSISTORS, AND RETURN NORMALLY # ?DTT5056: DT IS THE TIME TO READ ALL 4 TRANSISTORS ONCE: T IS THE ATA AREA8 I17648:I,1:I1,0:I2,4:I3,0: I=$44F0i I4,54:I5,0:LINE STRAIGHT DOWN TWO UNITS 232,240:233,68: START OF SHAPE TABLE 6:"PRESS ANY KEY TO READ" 710 8"THE PHOTOTRANSISTORS. "; ;16384,0:A$" <:::"READ0 - 3." CI11767:IF F:"THIS PROGRAM WILL READ THEM AND PLOT"l K"ABOUT 5 OR 10 SECONDS OF DATA."} PI11967:I Z:"USE THE DATA TO MEASURE TIMES & SPEEDS." (4);"BLOAD BREAD PDL 0123 C00:I1792018944:I,C0:: CLEAR OUT THE Df I MOTION EXPERIMENT WITH FOUR PHOTOTRANSISTORS BY DR MARK CROSS v 8191:THE HGR SCREEN IS JUST ABOVE THIS::255:25:" PHOTO - TIMER PROGRAM"<10:"YOU NEED 4 PHOTO-TRANSISTORS CONNECTED" A"IN THE PLACE OF GAME PADDLES      )STST100:540,A$(8)STST100:540<A$"R"700LA$"Q"800]STE2STE2l&ST0ST00CURSUR0STST8:CURSURCURSUR8:540:CURSUR255STST8:CURSURCURSUR8:540?TIME(STCURSUR)DT DTIME.0001(.510000TIME): R(TIME$,(TIME$)1):507L1:24:" TIME AT CURSOR LINE = ";TIME;" ";^16384,0:A$oTCURSCURSURA$"."CURSURCURSUR1:540 A$">"CURSURCURSUR8:540 A$","CURSURCURSUR1:540 A$"<"CURSURCURSUR8:540 A$(2156(1):POINTER TO START OF DATA TO BE PLOTTED ON THE SCREENJOLDSTST17664: CLEAR AND PLOT ALL DATA FROM START TO ST+2551CURSUR,0TIME$(TIME)(TIME$,1)"0"TIME$(TIME$,(TIME$)1):507(TIME$)7ĭ(TIME$,1)"1"TIME$RROWS MOVE THE WHOLE SCREEN FAST.":"<, CURSOR LEFT >. CURSOR RIGHT":"R - READ MORE DATA Q - QUIT ST0:CURSUR100TIME(STCURSUR)DT:TIME.00001(.510000TIME)I179204ST: START OF STORED PHOTO DATA IN MEMORY=1,I256:0,I2 STOP EARLY. PEEK(0,1) IS THE POINTER TO THE LAST DATA LOCATION AND 17920 POINTS TO THE FIRST DATA LOCATION OE2EN256:E20E20 P E2 IS 256 BELOW THE LAST DATA POINT AND HELPS MARK THE LEFT SIDE OF THE SCREEN :75:3:0 k1:21:"ATOTAL TIME TO TAKE 5056 DATA POINTSV @17408: TAKE THE DATA UNTIL ESCAPE IS PRESSED JEN(0)256(1)17920:ENEN4: EN IS THE NUMBER OF DATA POINTS TAKENm K END IS THE HIGHEST NUMBER DATA POINT TAKEN, NORMALLY 5056 UNLESS ESCAPE WAS PRESSED TOING. PRESS ESCAPE TO STOP EARLY."W =3,63:MAX ALLOWED PHOTO COUNT ** AFFECTS DT ** >T.84.166(3): TIME TO CALL 17408, READ 5056 SETS OF 4 TRANSISTORS, AND RETURN NORMALLY # ?DTT5056: DT IS THE TIME TO READ ALL 4 TRANSISTORS ONCE: T IS THE ATA AREA8 I17648:I,1:I1,0:I2,4:I3,0: I=$44F0i I4,54:I5,0:LINE STRAIGHT DOWN TWO UNITS 232,240:233,68: START OF SHAPE TABLE 6:"PRESS ANY KEY TO READ" 710 8"THE PHOTOTRANSISTORS. "; ;16384,0:A$" <:::"READ0 - 3." CI11767:IF F:"THIS PROGRAM WILL READ THEM AND PLOT"l K"ABOUT 5 OR 10 SECONDS OF DATA."} PI11967:I Z:"USE THE DATA TO MEASURE TIMES & SPEEDS." (4);"BLOAD BREAD PDL 0123 C00:I1792018944:I,C0:: CLEAR OUT THE Df I MOTION EXPERIMENT WITH FOUR PHOTOTRANSISTORS BY DR MARK CROSS v 8191:THE HGR SCREEN IS JUST ABOVE THIS::255:25:" PHOTO - TIMER PROGRAM"<10:"YOU NEED 4 PHOTO-TRANSISTORS CONNECTED" A"IN THE PLACE OF GAME PADDLES      5(@EAE JJ @JJi @JJi@ @JJi` @а`@0@@@3@@/@@5@@@- @@5@@.@@@4@@/@@2@@@2@@0@@ 3@@@.@6@@-@@@FpdOeZfbgkD DD D#D D(D DLDDDLDDD"D#Dߩ'D(DѠ`dDȌDȌ"DȌ'DDD#D(D ɛLD`6$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@>>@`  5(@EAE JJ @JJi @JJi@ @JJi` @а`@0@@@3@@/@@5@@@- @@5@@.@@@4@@/@@2@@@2@@0@@ 3@@@.@6@@-@@@FpdOeZfbgkD DD D#D D(D DLDDDLDDD"D#Dߩ'D(DѠ`dDȌDȌ"DȌ'DDD#D(D ɛLD`6$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@>>@`     A$","CURSURCURSUR1:540> A$"<"CURSURCURSUR8:540[ A$(21)STST100:540wA$(8)STST100:540A$"R"700A$"Q"800STE2STE2&ST0ST00CURSUR0STST8:CURSURCURSUR8:540:CURSUR255STST8:CURSU)7ĭ(TIME$,1)"1"TIME$(TIME$,(TIME$)1):506: KILL TRAILING ONE FROM APPLE ROUND-OFF ERROR1:24:" TIME AT CURSOR LINE = ";TIME$;" ";16384,0:A$TCURSCURSURA$"."CURSURCURSUR1:540 A$">"CURSURCURSUR8:540 RYS1,I256:0,I256(1):POINTER TO START OF DATA TO BE PLOTTED ON THE SCREEN`OLDSTST17664: CLEAR AND PLOT ALL DATA FROM START TO ST+2551CURSUR,0(TIME$,1)"0"TIME$(TIME$,(TIME$)1):506: KILL TRAILING ZEROSa(TIME$RROWS MOVE THE WHOLE SCREEN FAST.":"<, CURSOR LEFT >. CURSOR RIGHT":"R - READ MORE DATA Q - QUIT ST0:CURSUR100TIME(STCURSUR)DT:TIME.0001(.510000TIME)TIME$(TIME)I17920STSTST: START OF STORED PHOTO DATA IN MEMOO STOP EARLY. PEEK(0,1) IS THE POINTER TO THE LAST DATA LOCATION AND 17920 POINTS TO THE FIRST DATA LOCATION OE2EN256:E20E20 P E2 IS 256 BELOW THE LAST DATA POINT AND HELPS MARK THE LEFT SIDE OF THE SCREEN :75:3:0 k1:21:"ATAL TIME TO TAKE 6741 DATA POINTS U @17408: TAKE THE DATA UNTIL ESCAPE IS PRESSED JEN(0)256(1)17920:ENEN3: EN IS THE NUMBER OF DATA POINTS TAKENm K END IS THE HIGHEST NUMBER DATA POINT TAKEN, NORMALLY 6741 UNLESS ESCAPE WAS PRESSED TRESS ESCAPE TO STOP EARLY."P =3,63:MAX ALLOWED PHOTO COUNT ** AFFECTS DT ** >T1.625.17375(3): TIME TO CALL 17408, READ 6741 SETS OF 3 TRANSISTORS, AND RETURN NORMALLY" ?DTT6741: DT IS THE TIME TO READ ALL 3 TRANSISTORS ONCE: T IS THE TOA1 I17648:I,1:I1,0:I2,4:I3,0: I=$44F0b I4,54:I5,0:LINE STRAIGHT DOWN TWO UNITS 232,240:233,68: START OF SHAPE TABLE 6:"PRESS ANY KEY TO READ" 710 8"THE PHOTOTRANSISTORS. "; ;16384,0:A$ <:::"READING. P2." CI11767:IB F:"THIS PROGRAM WILL READ THEM AND PLOT"f K"ABOUT TEN SECONDS OF DATA."w PI11967:I Z:"USE THE DATA TO MEASURE TIMES & SPEEDS." (4);"BLOAD BREAD PDL 012" C00:I1792018688:I,C0::CLEAR OUT THE DATA ARE EMOTION EXPERIMENT WITH THREE PHOTOTRANSISTORS BY DR MARK CROSSr 8191:THE HGR SCREEN IS JUST ABOVE THIS::255:25:" PHOTO - TIMER PROGRAM"<10:"YOU NEED 3 PHOTO-TRANSISTORS CONNECTED" A"IN THE PLACE OF GAME PADDLES 0 -      A$","CURSURCURSUR1:540> A$"<"CURSURCURSUR8:540[ A$(21)STST100:540wA$(8)STST100:540A$"R"700A$"Q"800STE2STE2&ST0ST00CURSUR0STST8:CURSURCURSUR8:540:CURSUR255STST8:CURSU)7ĭ(TIME$,1)"1"TIME$(TIME$,(TIME$)1):506: KILL TRAILING ONE FROM APPLE ROUND-OFF ERROR1:24:" TIME AT CURSOR LINE = ";TIME$;" ";16384,0:A$TCURSCURSURA$"."CURSURCURSUR1:540 A$">"CURSURCURSUR8:540 RYS1,I256:0,I256(1):POINTER TO START OF DATA TO BE PLOTTED ON THE SCREEN`OLDSTST17664: CLEAR AND PLOT ALL DATA FROM START TO ST+2551CURSUR,0(TIME$,1)"0"TIME$(TIME$,(TIME$)1):506: KILL TRAILING ZEROSa(TIME$RROWS MOVE THE WHOLE SCREEN FAST.":"<, CURSOR LEFT >. CURSOR RIGHT":"R - READ MORE DATA Q - QUIT ST0:CURSUR100TIME(STCURSUR)DT:TIME.0001(.510000TIME)TIME$(TIME)I17920STSTST: START OF STORED PHOTO DATA IN MEMOO STOP EARLY. PEEK(0,1) IS THE POINTER TO THE LAST DATA LOCATION AND 17920 POINTS TO THE FIRST DATA LOCATION OE2EN256:E20E20 P E2 IS 256 BELOW THE LAST DATA POINT AND HELPS MARK THE LEFT SIDE OF THE SCREEN :75:3:0 k1:21:"ATAL TIME TO TAKE 6741 DATA POINTS U @17408: TAKE THE DATA UNTIL ESCAPE IS PRESSED JEN(0)256(1)17920:ENEN3: EN IS THE NUMBER OF DATA POINTS TAKENm K END IS THE HIGHEST NUMBER DATA POINT TAKEN, NORMALLY 6741 UNLESS ESCAPE WAS PRESSED TRESS ESCAPE TO STOP EARLY."P =3,63:MAX ALLOWED PHOTO COUNT ** AFFECTS DT ** >T1.625.17375(3): TIME TO CALL 17408, READ 6741 SETS OF 3 TRANSISTORS, AND RETURN NORMALLY" ?DTT6741: DT IS THE TIME TO READ ALL 3 TRANSISTORS ONCE: T IS THE TOA1 I17648:I,1:I1,0:I2,4:I3,0: I=$44F0b I4,54:I5,0:LINE STRAIGHT DOWN TWO UNITS 232,240:233,68: START OF SHAPE TABLE 6:"PRESS ANY KEY TO READ" 710 8"THE PHOTOTRANSISTORS. "; ;16384,0:A$ <:::"READING. P2." CI11767:IB F:"THIS PROGRAM WILL READ THEM AND PLOT"f K"ABOUT TEN SECONDS OF DATA."w PI11967:I Z:"USE THE DATA TO MEASURE TIMES & SPEEDS." (4);"BLOAD BREAD PDL 012" C00:I1792018688:I,C0::CLEAR OUT THE DATA ARE EMOTION EXPERIMENT WITH THREE PHOTOTRANSISTORS BY DR MARK CROSSr 8191:THE HGR SCREEN IS JUST ABOVE THIS::255:25:" PHOTO - TIMER PROGRAM"<10:"YOU NEED 3 PHOTO-TRANSISTORS CONNECTED" A"IN THE PLACE OF GAME PADDLES 0 -      (z#??   Ġ̠٠  Ġ̠٠ "Ġ̠٠Ġ̠ Ġ̠٠ Ġ̠ Ġ̠٠ Ġ̠ Ġ̠ٲ  Ġ̠Ġ̠٠ Ġ̠٠Ġ̠ Ġ̠ Ġ̠٠ !Ġ̠Ϡՠ٠٠٠̠à̠̠à̠٠Ġ̠ OUND OFF NSTOLDST5001S1TCURS,0:505@:::310^ :::"PROGRAM STOPPED."d*zA2ĺ"TWO TIMERS":D$;"RUN READ PDL 01V A3ĺ"THREE TIMERS":D$;"RUN READ PDL 012 A4ĺ"FOUR TIMERS":D$;"RUN READ PDL 0123 A5ĺ"LIGHT INTENSITY":D$;"RUN INTENSITY" FOUR PHOTOTRANSISTORS5 P:" 5. INTENSITY OF LIGHTK Z:" 6. NOTHING"n d::" PRESS YOUR CHOICE. "; n16368,0:A$:A$::" "; xA(A$):A1A6ĺ(7);" MISTAKE":I1555:I: D$(4) A1ĺ"ONE TIMER":D$;"RUN READ PDL 0"' ) MENU PROGRAM FOR PHOTOTRANSISTORS8:::255e:" WAYS TO READ THE PHOTOTRANSISTORS:(::" 1. TIME FOR ONE PHOTOTRANSISTOR2:" 2. TIME FOR TWO PHOTOTRANSISTORS<:" 3. TIME FOR THREE PHOTOTRANSISTORS F:" 4. TIME FOR   OUND OFF NSTOLDST5001S1TCURS,0:505@:::310^ :::"PROGRAM STOPPED."d*zA2ĺ"TWO TIMERS":D$;"RUN READ PDL 01V A3ĺ"THREE TIMERS":D$;"RUN READ PDL 012 A4ĺ"FOUR TIMERS":D$;"RUN READ PDL 0123 A5ĺ"LIGHT INTENSITY":D$;"RUN INTENSITY" FOUR PHOTOTRANSISTORS5 P:" 5. INTENSITY OF LIGHTK Z:" 6. NOTHING"n d::" PRESS YOUR CHOICE. "; n16368,0:A$:A$::" "; xA(A$):A1A6ĺ(7);" MISTAKE":I1555:I: D$(4) A1ĺ"ONE TIMER":D$;"RUN READ PDL 0"' ) MENU PROGRAM FOR PHOTOTRANSISTORS8:::255e:" WAYS TO READ THE PHOTOTRANSISTORS:(::" 1. TIME FOR ONE PHOTOTRANSISTOR2:" 2. TIME FOR TWO PHOTOTRANSISTORS<:" 3. TIME FOR THREE PHOTOTRANSISTORS F:" 4. TIME FOR   |310! 10:958::16368,0:| LINE 400 CLEARS THE BOTTOM OF THE SCREEN AND DESTROYS THE 'S' IN THE KEYBOARD BUFFER. 8LEAR THE KEYBOARD( 4S12883:ASC("S")L 6768: READ THE PHOTOTRANSISTORs 8DATA APPEARS IN LOCATIONS 0 AND 1 @R(0)256(1) J(KB)S400 T5:" LIGHT INTENSITY = "; ^R0L1R hR0ĺL;" " rR0ĺ"**************" 5:"******************************"6 #I1999:If (12:"THIS PROGRAM READS A PHOTOTRANSISTOR" 2"CONNECTED TO APPLE'S GAME SOCKET." <I1999:I d(4);"BLOAD DBL PREC PDL 0 , 118:" PRESS S TO STOP. 316368,0:KB16384: C~GREAD THE LIGHT INTENSITY FROM A PHOTOTRANSISTOR IN GAME PADDLE 0V :::2552:5:"******************************"5:"* *"5:"* LIGHT INTENSITY *"5:"* *"&    LEAR THE KEYBOARD( 4S12883:ASC("S")L 6768: READ THE PHOTOTRANSISTORs 8DATA APPEARS IN LOCATIONS 0 AND 1 @R(0)256(1) J(KB)S400 T5:" LIGHT INTENSITY = "; ^R0L1R hR0ĺL;" " rR0ĺ"**************" 5:"******************************"6 #I1999:If (12:"THIS PROGRAM READS A PHOTOTRANSISTOR" 2"CONNECTED TO APPLE'S GAME SOCKET." <I1999:I d(4);"BLOAD DBL PREC PDL 0 , 118:" PRESS S TO STOP. 316368,0:KB16384: C~GREAD THE LIGHT INTENSITY FROM A PHOTOTRANSISTOR IN GAME PADDLE 0V :::2552:5:"******************************"5:"* *"5:"* LIGHT INTENSITY *"5:"* *"&    pd`pd`TIME(STCURSUR)DTITIME(10000TIME.5)10000: ROUND OF TO 4 PLACES AFTER THE DECIMAL BECAUSE THIS IS ONE DELTA T UNIT OF PRECISION: DT = .00098 NSTOLDST500S1TCURS,0:505:::310 ::5:" PROGRAM STOPPED.":10*SUR1:540+ A$"<"CURSURCURSUR8:540H A$(21)STST100:540dA$(8)STST100:540tA$"R"700A$"Q"800STE2STE2&ST0ST00CURSUR0STST8:CURSURCURSUR8:540:CURSUR255STST8:CURSURCURSUR8:540DDSTST?17578:CLEAR AND PLOT ALL DATA FROM START TO ST+255O1CURSUR,024:1:" TIME AT CURSOR LINE = ";TIME;" ";16384,0:A$TCURSCURSURA$"."CURSURCURSUR1:540 A$">"CURSURCURSUR8:540  A$","CURSURCURSOR RIGHT":"R - READ MORE DATA Q - QUIT@ST0:CURSUR100rTIMEDT(CURSURST):TIME.001(.51000TIME)I17920ST: START OF STORED PHOTO DATA IN MEMORY1,I256:0,I256(1):POINTER TO START OF DATA TO BE PLOTTED ON THE SCREENOLTION AND 17920 POINTS TO THE FIRST DATA LOCATIONIOE2EN256:E20E20P E2 IS 256 BELOW THE LAST DATA POINT AND HELPS MARK THE LEFT SIDE OF THE SCREEN:75:3:0,1:21:"ARROWS MOVE THE WHOLE SCREEN FAST.":"<, CURSOR LEFT >. CUR ESCAPE TO STOP EARLY."J @17408: TAKE THE DATA UNTIL ESCAPE IS PRESSEDe JEN(0)256(1)179200K EN IS THE HIGHEST NUMBER DATA POINT TAKEN, NORMALLY 20224 UNLESS ESCAPE WAS PRESSED TO STOP EARLY. PEEK(0,1) IS THE POINTER TO THE LAST DATA LOCAEN (SECONDS) TO MEASURE AND SAVE 20224 PHOTOTRANSISTOR READINGS 4 FORMULA IN LINE 306 IS ACCURATE WITHIN 1% FOR 8 < POKE(3) < 110 6:"PRESS ANY KEY TO READ" 710 8"THE PHOTOTRANSISTOR. "; ;16384,0:A$ <:::"READING. PRESSTHE PHOTOTRANSISTORS TIME OUT; CAN BE CHANGEDy . FOR FAST READINGS, POKE A SMALL NUMBER IN HERE AND USE BRIGHT LIGHT. 0 FOR SLOW THINGS LIKE A PENDULUM, POKE A LARGE NUMBER IN LOCATION 3D 2DT((3).3121.0)20224:IN PARENTHESES IS THE TIME TAKBREAD PDL 0"& I1792018444:I,0:] LINES 270-274 MAKE THE SHAPE TABLE FOR THE CURSOR I69256:I,1:I1,0:I2,4:I3,0 I4,54:I5,0:LINE STRAIGHT DOWN TWO UNITS 232,0:233,69:START OF SHAPE TABLE- ,3,63: MAXIMUM COUNT BEFORE ONE PHOTO-TRANSISTOR CONNECTED"I A"IN THE PLACE OF GAME PADDLE ZERO."Z CI11767:I F:"THIS PROGRAM WILL READ IT AND PLOT" K"ABOUT 5 TO 50 SECONDS OF DATA." PI11967:I Z:"USE THE DATA TO MEASURE TIMES & SPEEDS." (4);"BLOAD ATHIS PROGRAM READS ONE PHOTOTRANSISTOR IN GAME PADDLE ZEROUSE IT FOR TIMING A PENDULUM OR ONE WIDE OBJECT PASSING IN FRONT OF THE SENSOR. 8191:THE HGR SCREEN IS JUST ABOVE THIS2::5:" PHOTO - TIMER PROGRAM" <10:"YOU NEED      6$66FpdL>DꊠLDɛ0`<LDL>DLDꠠ'@DAD J @`$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ !A !A !A !A  @ @ @ @ @ @ @ @#A !A !A !A "@ @ @ @ @ @ @    !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@$$@`     TIME(STCURSUR)DTITIME(10000TIME.5)10000: ROUND OF TO 4 PLACES AFTER THE DECIMAL BECAUSE THIS IS ONE DELTA T UNIT OF PRECISION: DT = .00098 NSTOLDST500S1TCURS,0:505:::310 ::5:" PROGRAM STOPPED.":10*SUR1:540+ A$"<"CURSURCURSUR8:540H A$(21)STST100:540dA$(8)STST100:540tA$"R"700A$"Q"800STE2STE2&ST0ST00CURSUR0STST8:CURSURCURSUR8:540:CURSUR255STST8:CURSURCURSUR8:540DDSTST?17578:CLEAR AND PLOT ALL DATA FROM START TO ST+255O1CURSUR,024:1:" TIME AT CURSOR LINE = ";TIME;" ";16384,0:A$TCURSCURSURA$"."CURSURCURSUR1:540 A$">"CURSURCURSUR8:540  A$","CURSURCURSOR RIGHT":"R - READ MORE DATA Q - QUIT@ST0:CURSUR100rTIMEDT(CURSURST):TIME.001(.51000TIME)I17920ST: START OF STORED PHOTO DATA IN MEMORY1,I256:0,I256(1):POINTER TO START OF DATA TO BE PLOTTED ON THE SCREENOLTION AND 17920 POINTS TO THE FIRST DATA LOCATIONIOE2EN256:E20E20P E2 IS 256 BELOW THE LAST DATA POINT AND HELPS MARK THE LEFT SIDE OF THE SCREEN:75:3:0,1:21:"ARROWS MOVE THE WHOLE SCREEN FAST.":"<, CURSOR LEFT >. CUR ESCAPE TO STOP EARLY."J @17408: TAKE THE DATA UNTIL ESCAPE IS PRESSEDe JEN(0)256(1)179200K EN IS THE HIGHEST NUMBER DATA POINT TAKEN, NORMALLY 20224 UNLESS ESCAPE WAS PRESSED TO STOP EARLY. PEEK(0,1) IS THE POINTER TO THE LAST DATA LOCAEN (SECONDS) TO MEASURE AND SAVE 20224 PHOTOTRANSISTOR READINGS 4 FORMULA IN LINE 306 IS ACCURATE WITHIN 1% FOR 8 < POKE(3) < 110 6:"PRESS ANY KEY TO READ" 710 8"THE PHOTOTRANSISTOR. "; ;16384,0:A$ <:::"READING. PRESSTHE PHOTOTRANSISTORS TIME OUT; CAN BE CHANGEDy . FOR FAST READINGS, POKE A SMALL NUMBER IN HERE AND USE BRIGHT LIGHT. 0 FOR SLOW THINGS LIKE A PENDULUM, POKE A LARGE NUMBER IN LOCATION 3D 2DT((3).3121.0)20224:IN PARENTHESES IS THE TIME TAKBREAD PDL 0"& I1792018444:I,0:] LINES 270-274 MAKE THE SHAPE TABLE FOR THE CURSOR I69256:I,1:I1,0:I2,4:I3,0 I4,54:I5,0:LINE STRAIGHT DOWN TWO UNITS 232,0:233,69:START OF SHAPE TABLE- ,3,63: MAXIMUM COUNT BEFORE ONE PHOTO-TRANSISTOR CONNECTED"I A"IN THE PLACE OF GAME PADDLE ZERO."Z CI11767:I F:"THIS PROGRAM WILL READ IT AND PLOT" K"ABOUT 5 TO 50 SECONDS OF DATA." PI11967:I Z:"USE THE DATA TO MEASURE TIMES & SPEEDS." (4);"BLOAD ATHIS PROGRAM READS ONE PHOTOTRANSISTOR IN GAME PADDLE ZEROUSE IT FOR TIMING A PENDULUM OR ONE WIDE OBJECT PASSING IN FRONT OF THE SENSOR. 8191:THE HGR SCREEN IS JUST ABOVE THIS2::5:" PHOTO - TIMER PROGRAM" <10:"YOU NEED      6$66FpdL>DꊠLDɛ0`<LDL>DLDꠠ'@DAD J @`$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@--@`     FpdL>D L0Dɛ0`ꠠ'@DAD J @`$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@ @`     FpdL>D L0Dɛ0`ꠠ'@DAD J @`$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@ @`     STE2STE2&ST0ST0F0CURSUR0STST8:CURSURCURSUR8:540s:CURSUR255STST8:CURSURCURSUR8:540DTIME(STCURSUR)DTITIME.0001(10000TIME.5)JTIME$(TIME)K(TIME$,1)"0"TIME$(TIME$,(TIME$)1):587/L(TIME$)716384,0:A$TCURSCURSUR?A$"."CURSURCURSUR1:540` A$">"CURSURCURSUR8:540 A$","CURSURCURSUR1:540 A$"<"CURSURCURSUR8:540 A$(21)STST100:540A$(8)STST100:540A$"R"700A$"Q"800 LDSTST@17578:CLEAR AND PLOT ALL DATA FROM START TO ST+255P1CURSUR,01:21:"ARROWS MOVE THE WHOLE SCREEN FAST.":"<, CURSOR LEFT >. CURSOR RIGHT":"R - READ MORE DATA Q - QUIT24:" TIME AT CURSOR LINE = ";TIME$;" "; 01(10000TIME.5):TIME$(TIME):(TIME$)8500qA$(TIME$,1):A$"0"A$"1"TIME$(TIME$,(TIME$)1):498I17920STST:START OF STORED PHOTO DATA IN MEMORY1,I256:0,I256(1):POINTER TO START OF DATA TO BE PLOTTED ON THE SCREENOR TO THE LAST DATA LOCATION AND 17920 POINTS TO THE FIRST DATA LOCATION` OE2EN256:E20E20 P E2 IS 256 BELOW THE LAST DATA POINT AND HELPS MARK THE LEFT SIDE OF THE SCREEN :75:3:0  ST0:CURSUR1001TIME(STCURSUR)DT:TIME.00"READING. PRESS ESCAPE TO STOP EARLY."Z @17408: TAKE THE DATA UNTIL ESCAPE IS PRESSED} JEN(0)256(1)17920:ENEN2G K END IS THE HIGHEST NUMBER DATA POINT TAKEN, NORMALLY 10112 UNLESS ESCAPE WAS PRESSED TO STOP EARLY. PEEK(0,1) IS THE POINTEISTOR READINGS, OBTIANED FROM A STOPWATCH 1DTT10112:TIME FOR ONE PHOTOTRANSISTOR READING; 10112 IS TOTAL NUMBER OF POINTS TAKEN BY A CALL TO 17408. 6:"PRESS ANY KEY TO READ" 710 8"THE PHOTOTRANSISTORS. "; ;16384,0:A$' <:::9256:I,1:I1,0:I2,4:I3,0P I4,54:I5,0:LINE STRAIGHT DOWN TWO UNITSy 232,0:233,69:START OF SHAPE TABLE ,3,63:MAXIMUM ALLOWED COUNT AT EACH DATA POINT ** AFECTS DT **) 0T1.112.1894(3): TIME TO TAKE 10112 PAIRS OF PHOTOTRANSND 1."? CC00:I1792018444:I,C0::CLEAR OUT THE DATA AREAm F:"THIS PROGRAM WILL READ THEM AND PLOT" K:"ABOUT 10 TO 20 SECONDS OF DATA." PI11967:I Z:"USE THE DATA TO MEASURE TIMES & SPEEDS." (4);"BLOAD BREAD PDL 01 I6 DMOTION EXPERIMENT WITH TWO PHOTOTRANSISTORS BY DR MARK CROSS q 8191:THE HGR SCREEN IS JUST ABOVE THIS::255:25:" PHOTO - TIMER PROGRAM"<10:"YOU NEED TWO PHOTO-TRANSISTORS CONNECTED" A"IN THE PLACE OF GAME PADDLES 0 A     `FpdeL>DLBDLZDLzDɛ0`e0LDL>Dd0LDL>DLDꠠ'@DAD J @i0頨 @$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@//@`     STE2STE2&ST0ST0F0CURSUR0STST8:CURSURCURSUR8:540s:CURSUR255STST8:CURSURCURSUR8:540DTIME(STCURSUR)DTITIME.0001(10000TIME.5)JTIME$(TIME)K(TIME$,1)"0"TIME$(TIME$,(TIME$)1):587/L(TIME$)716384,0:A$TCURSCURSUR?A$"."CURSURCURSUR1:540` A$">"CURSURCURSUR8:540 A$","CURSURCURSUR1:540 A$"<"CURSURCURSUR8:540 A$(21)STST100:540A$(8)STST100:540A$"R"700A$"Q"800 LDSTST@17578:CLEAR AND PLOT ALL DATA FROM START TO ST+255P1CURSUR,01:21:"ARROWS MOVE THE WHOLE SCREEN FAST.":"<, CURSOR LEFT >. CURSOR RIGHT":"R - READ MORE DATA Q - QUIT24:" TIME AT CURSOR LINE = ";TIME$;" "; 01(10000TIME.5):TIME$(TIME):(TIME$)8500qA$(TIME$,1):A$"0"A$"1"TIME$(TIME$,(TIME$)1):498I17920STST:START OF STORED PHOTO DATA IN MEMORY1,I256:0,I256(1):POINTER TO START OF DATA TO BE PLOTTED ON THE SCREENOR TO THE LAST DATA LOCATION AND 17920 POINTS TO THE FIRST DATA LOCATION` OE2EN256:E20E20 P E2 IS 256 BELOW THE LAST DATA POINT AND HELPS MARK THE LEFT SIDE OF THE SCREEN :75:3:0  ST0:CURSUR1001TIME(STCURSUR)DT:TIME.00"READING. PRESS ESCAPE TO STOP EARLY."Z @17408: TAKE THE DATA UNTIL ESCAPE IS PRESSED} JEN(0)256(1)17920:ENEN2G K END IS THE HIGHEST NUMBER DATA POINT TAKEN, NORMALLY 10112 UNLESS ESCAPE WAS PRESSED TO STOP EARLY. PEEK(0,1) IS THE POINTEISTOR READINGS, OBTIANED FROM A STOPWATCH 1DTT10112:TIME FOR ONE PHOTOTRANSISTOR READING; 10112 IS TOTAL NUMBER OF POINTS TAKEN BY A CALL TO 17408. 6:"PRESS ANY KEY TO READ" 710 8"THE PHOTOTRANSISTORS. "; ;16384,0:A$' <:::9256:I,1:I1,0:I2,4:I3,0P I4,54:I5,0:LINE STRAIGHT DOWN TWO UNITSy 232,0:233,69:START OF SHAPE TABLE ,3,63:MAXIMUM ALLOWED COUNT AT EACH DATA POINT ** AFECTS DT **) 0T1.112.1894(3): TIME TO TAKE 10112 PAIRS OF PHOTOTRANSND 1."? CC00:I1792018444:I,C0::CLEAR OUT THE DATA AREAm F:"THIS PROGRAM WILL READ THEM AND PLOT" K:"ABOUT 10 TO 20 SECONDS OF DATA." PI11967:I Z:"USE THE DATA TO MEASURE TIMES & SPEEDS." (4);"BLOAD BREAD PDL 01 I6 DMOTION EXPERIMENT WITH TWO PHOTOTRANSISTORS BY DR MARK CROSS q 8191:THE HGR SCREEN IS JUST ABOVE THIS::255:25:" PHOTO - TIMER PROGRAM"<10:"YOU NEED TWO PHOTO-TRANSISTORS CONNECTED" A"IN THE PLACE OF GAME PADDLES 0 A     5(@EAE J @Ji @Ji@ @`@@/@@5@@@- @@5@@.@@@4@@/@@2@@@2@@0@@ 3@@@.@6@@-@@@FpdOeZfbD DD D#D D(D DLDDDLDDD"D#D`dDȌDȌ"DDD#D ɛLD`6$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@(/(/@`!! ! ! ! ! !5(@EAE J @Ji @Ji@ @`@@/@@5@@@- @@5@@.@@@4@@/@@2@@@2@@0@@ 3@@@.@6@@-@@@FpdOeZfbD DD D#D D(D DLDDDLDDD"D#D`dDȌDȌ"DDD#D ɛLD`6$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPТ m @  L ` ` L@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@C@@@@A@@B@(/(/@`"" " " " " "