' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/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- ( Q  Ϡ@跻~!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`CHOICE(S). DO YOU WANT T0:"###:U##:"1. REENTER PROBE IDENTIFICATION NUMBERS."u##:"2. RETURN TO MAIN MENU"##::12:"ENTER <1> OR <2>":AN$##AN$"1"ī100##AN$"2"ė:1980##9180$T$216,0:12:"PLEASE CHECK PROBES, CONNECTIONS,  ERROR MESSAGES i"'#---------------------------------"(#:12:"ENTRY ERROR.......PLEASE RE-ENTER....""2#W13000::100"#QW2:216,0::6:"I CAN'T FIND CALIBRATION FILE FOR "##:"YOUR PROBE !W@!X216,0::12:"THE COMPUTER CANNOT CALCULATE WITH THE"q!b14:"DATA GIVEN. PLEASE RECALIBRATE ......"!lW13500:!v600!@L(P$):L39ĺP$:!JLL2:(20L):P$:!%#---------------------------------2"&# ---------------------------------y  SUBROUTINE SECTION --------------------------------- S140:"*";:S:  p23:6:"HIT ANY KEY TO CONTINUE ":A$ zDULE =3---------------------------------G4C768S>N1PRpHC:P(N)(9)256.36(8)RT(N)B(N)TF(B(N)TF(P(N)Y(N)))273.15\T(N)(T(N).5)fF(N)((95T(N)))32pF(N)(F(N).5)zCC23N512:"PROCEEDING TO MENU ...................."G:(4);"RUN MENU"z12:"PROCEEDING TO TEMPERATURE GRAPH........":(4);"RUN TEMP GRAPH"1---------------------------------2 TEMPERATURE CALCULATION MO ;k---------------------------------Kl7:1:958rv12:"TO RETURN TO MENU, TYPE <1>"14:"TO RUN TEMPERATURE GRAPH, TYPE <2>"16:20:AN$AN$"1"AN$"2"19601930:AN$"1"1980:AN$"2"20000--------------------$7:1:958X12:"ARE YOU SATISFIED WITH THE CALIBRATION ?"m14:18:""&A$:A$"Y"19000A$"N"1i---------------------------------j CALIBRATION WAS O.K. "HIT TO EXIT":8000<KEY(49152):KEY27ī1750I49168,0S1650g216,0:49168,0--------------------------------- WAS CALIBRATION O.K. -------------------------@9300/J:2:5000:6:5000UT4:P$"TEMPERATURE DISPLAY":8000x^8:"PROBE#","DEG. C","DEG. F"h9:"------","------","------"r2100|V11N1PRV:2:PR$(N)18)T(N)34)F(N)37)" "VV2N23:P$)D$(4):D$;"OPEN";F$-D$;"READ";F$N"TF,Y(N),B(N):D$;"CLOSE";F$U,N`6216,0=---------------------------------> DISPLAY TEMPERATURE ?---------------------ISK G---------------------------------_:2:5000:6:50004:P$"TEMPERATURE DISPLAY":8000910010:P$"GETTING CALIBRATION DATA FROM TEXT FILES":8000N1PRF$"CAL TEXT FILE FOR PROBE "PR$(N:5000>L13:P$"THE CALIBRATION DATA TEXT FILES ARE:":8000GVV13S`N1PR]jVV2tV:P$"CAL TEXT FILE FOR "PR$(N):8000~N6000--------------------------------- GET CAL FILES FROM D =o--------------------------------rp:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::100--------------------------------kn ERROR MESSAGES o--------------------------------p:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::1000ESSAGES C------------------------------v&# PRESS ANY KEY TO CONTINUE '#---------------------------------(#23:7:"PRESS ANY KEY TO CONTINUE":24:20:A$:------------------------W<X::12:"PLEASE CHECK PROBES, CONNECTIONS, ETC."Fb9000Rl216,0[v900a:y@L(S$):L39ĺS$:JLL2:(20L):S$:(#23:7:"PRESS ANY KEY TO CONTINUE":24:20:A$:$"2"6400AN$"3"66006AN$"4 THEN HOME:ENDJ8:D$;"CATALOG"vB::7:"PRESS ANY KEY TO CONTINUE":A$L:2:ST140:"*";::6:ST140:"*";:V4:8:"TEMPERATURE GRAPHIC MODULE"`60101:D$;"RUN ALL-TEMP PROBE CAL"ISK"515:"<2> TO RETURN TO BEGINNING OF PROGRAM"_17:"<3> TO RUN CALIBRATION ROUTINE"s19:"<4> QUIT"22:4:"ENTER THE NUMBER OF YOUR CHOICE"23:20:AN$AN$"1"AN$"2"AN$"3"AN$"4"61106090AN$"1"6200 AN.15T(N)(T(N)10.5)10(CC23/N:216,0@Fl:Vp7:1:958lu:D$;"DELETE";F$wz216,08:1:"THERE ARE NO CALIBRATION FILES ON THIS"10:6:"DISK FOR THE PROBES CHOSEN."13:"<1> TO SEE THE CATALOG OF THIS DE "B$",A$2000,L$2000"%`7:1:958We8:S$"REPLACE THE PROGRAM DISK IN THE":8000vj10:S$"DISK DRIVE.":8000o9000t1100:7000C768N1PRC:P(N)(9)256.36(8)T(N)B(N)TF(B(N)TF(P(N)Y(N)))273L ] Ҡ V  VL8  ܠ V  VL] ]  V O     V L} V % L, V LI V X  c   c  V  c Р    V  c  ]    ک V V ,砕 L ,  V  砕 V ̠   3 : A HLc  LI V Π   3 : A HL V  } ⠕ +면 V O     VL V  VL  Ƞ V  V   ک V U c Z ] Ƞ 7 V  d V n V Xx V } V   L~  c     V i V    V  ߩ n 정 +멢 V 정  V 砕 L % AIN MENU".Z#::12:"ENTER <1> OR <2>":AN$>d#AN$"1"ī1Sn#AN$"2"ė:1200]x#9050%216,0:12:"PLEASE CHECK PROBES, CONNECTIONS, ETC."&%14:"HIT ANY KEY WHEN ALL IS O.K.........":AZ$:800D: J'#---------------------------------(#216,0::6:"I CAN'T FIND CALIBRATION FILE FOR "2#:"YOUR PROBE CHOICE(S). DO YOU WANT T0:"<#:F#:"1. REENTER PROBE IDENTIFICATION NUMBERS." P#:"2. RETURN TO M-------------------------------6S140:"*";:S:bp23:6:"HIT ANY KEY TO CONTINUE ":A$hz@L(P$):L39Ė1:P$:JLL2:(20L):P$:%#---------------------------------&# ERROR MESSAGESP(N)Y(N)))273.15,<T(N)(T(N)10.5)10EFF(N)((95T(N)))32_PF(N)(F(N)10.5)10jCC23qNw--------------------------------- SUBROUTINE SECTION --EMP GRAPH"A---------------------------------y TEMPERATURE CALCULATION MODULE ---------------------------------C768N1PR(C:P(N)(9)256.36(8)2T(N)B(N)TF(B(N)TF(RE GRAPH, TYPE <2>"$j16:20:AN$>tAN$"1"AN$"2"1160H~1130ZAN$"1"1200lAN$"2"1250:12:"PROCEEDING TO MENU ....................":(4);"RUN MENU":12:"PROCEEDING TO TEMPERATURE GRAPH........" :(4);"RUN TETC."@$^$14:"HIT ANY KEY WHEN ALL IS O.K.........":AZ$:1600@"@"""6@@@H@@"@"@"@@@@@"b"@@@@@>@@&" "@>@@>@@>@"@&@ @ @H@@@@&f@@@>@@@@** @@@@@@@*@@@@@@ 20:A$:ACONTINUE":24:20:A$:T2:(20L):S$:b%#---------------------------------&# PRESS ANY KEY TO CONTINUE '#--------------------------------- (#23:7:"PRESS ANY KEY TO CONTINUE":24:---------!@L(S$):L39ĺS$:9JLL2:(20L):S$:p%#---------------------------------&# PRESS ANY KEY TO CONTINUE '#---------------------------------(#23:7:"PRESS ANY KEY TO TO"4X23:"DECREASE SENSITIVITY. RETURN TO END."EbY159Y159OlX,YcvX275X0:530uKEY(16384)KEY139M2MM2KEY139M2MM.1KEY138M2MM2KEY138M2MM.1KEY141ī72016368,0M.01E PROGRAM BY":8000?T14:P$"PRESSING THE RETURN KEY.":8000I|6000VM25:X1\D$;"BLOAD SIXTEEN BIT PADDLE":36:0,60279,60&300,159:768:Y(9)255.36(8)DYYMN22:"UP ARROW TO INCREASE, DOWN ARROW 8:P$"THE RESPONSE LINE SHOULD DROP TO THE":8000Z20:P$"BOTTOM OF THE SCREEN.":8000d6000t,7:1:95868:P$"WHEN YOU ARE PLEASED WITH GRIP":8000@10:P$"RESPONSE, YOU WILL BE LED INTO THE":8000J12:P$"EXPERIMENTAL PHASE OF THZONTAL LINE IN THE":8000Q 10:P$"UPPER PORTION OF THE SCREEN. SQUEEZE":8000 12:P$"THE GRIP AND USE THE ARROWS TO CAUSE":8000 14:P$"THE GRIP RESPONSE LINE TO MEET THE":8000 16:P$"HORIZONTAL. BY THEN RELAXING THE GRIP,":800011SPLAY WILL ALLOW YOU TO":8000T 16:P$"INCREASE THE GRIP'S SENSITIVITY BY":8000 18:P$"PRESSING THE UP ARROW, OR DECREASE THE":8000 20:P$"SENSITIVITY BY USING THE DOWN ARROW.":8000 6000 7:1:958 8:P$"YOU WILL SEE AN HORI---- d:2:5000:6:5000F n4:P$"MUSCLE GRIP CALIBRATION":8000} x8:P$"BEFORE CONDUCTING AN EXPERIMENT, YOU":8000 10:P$"MUST ADJUST THE SENSITIVITY OF THE":8000 12:P$"PROGRAM TO YOUR PARTICULAR GRIP.":8000 14:P$"A GRAPHIC DI---------------------------------b b MAIN DISPLAY MODULE b PAGE 1 c--------------------------------- c----------------------------- 35 CONCORD ROAD z  BOOTHWYN PA 19061 --------------------------------- D$(4) Z a---------------------------------* a 5---------------------------------n 16-BIT PADDLE 0 PROGRAM  PROGRAM BY  LABORATORY COMPUTER INTERFACING 7   ROGRAM ----->"*(4)"RUN BREATH GRAPH"0f-------------------------------- ROW OF 40 STARS --------------------------------N140:"*";:N,m@"H">>*@@@@@@"@@"@@@"@@ '5'P0P0PX%'SNSEN(P0RISE)4'SN1SN1G'SN159SN159Q'X,SN_'I0TIMEf'Im'Xs'S--------------------------------]' GRAPHIC MODULE c'i$'~.'RISE150:100808'RISE95:10080B'RISE20:10080V'`':j'SEN.8k'P0(0)l'PX190P0t'TIME30~'X1279'P0(0)000zAN$:E=---------------------------------> CENTER SENTENCE ?---------------------------------@L(S$):L39ĺS$:JLL2:(20L):S$:  '----------------------+ S140:"*";::b m--------------------------------- n PRESS ANY KEY o---------------------------------p23:S$"PRESS ANY KEY TO CONTINUE":86:20:AN$% AN$"1"AN$"2"ī1000. 200= AN$"1"1O AN$"2"1020f :(4);"RUN MENU"l  ---------------------------------  ROW OF 40 STARS  ------------ PAGE 2 ` ---------------------------------z ::2:5000:6:5000 4:S$"BREATHING PROFILE PROGRAM":8000 12:"TO RERUN THIS PROGRAM, TYPE <1>" 14:"TO RETURN TO MENU, TYPE <2>" 1--------------------------------8 d:2:5000:6:5000C iRISE0o n4:S$"BREATHING PROFILE PROGRAM":8000 x12:S$"PLUG SENSOR INTO PDL(0)":8000 6000 10000 6000 ---------------------------------*  35 CONCORD ROAD }  BOOTHWYN PA 19061 --------------------------------- b PAGE 1 c-t5---------------------------------q BREATHING PROFILE  PROGRAM BY  LABORATORY COMPUTER INTERFACING :      R MUSCLE MENU":10200(A$= (::(4);"RUN MUSCLE MENU" o'-----------SUBROUTINES---------- 'S140:"*";::'L(S$):L40ĺS$:'LL2:(20L):S$:'23:6:"PRESS ANY KEY TO CONTINUE":A$:'23:S$"PRESS ANY KEY FO"V'X1279!`'Y(0)1582551j'X1,Y1X,Y:t'Y1YK~'STY1STY1'Z2Y110STė:21:"EXPERIMENT ENDED - "Z3" SCREENS ENDURED":W12000::10230'X'Z2FTST'Z2SCSC1'Z: ' TO BEGIN ?":10200:A$. @A$"Y"100007 J310I ':SC1:ST100V 'Z1200_ $':7s .'Y1(0)158255 8'Z1Ģ21:"TEST MUSCLE SENSOR DURING THIS SCREEN" B'Z2ė:21:16:"SCREEN ";SCL'Z2ė:21:" ESTABLISH MAX CONTRACTION NOW !!T THE BOTTOM"@ 12:"OF THE SCREEN. THE EXPERIMENT WILL END "s 14:"WHEN A DROP IN THE GRAPH INDICATES THAT" 16:S$"FATIGUE HAS OCCURRED.":10200 19:S$"HOW LONG CAN YOU ENDURE??":10200 10220 ,7:1:958 612:S$"ARE YOU READYDRAW A CONTINUOUS":10200L 18:"LINE ON THE SCREEN, THE HEIGHT OF WHICH" 20:S$"WILL INDICATE STRENGTH OF CONTRACTION.":10200 10220 7:1:958 8:S$"THE TIME WHICH HAS ELAPSED DURING THE":10200 10:"EXPERIMENT WILL BE SHOWN A00: x8:S$"IN THIS EXPERIMENT THE COMPUTER WILL":10200s 10:S$"MONITOR THE DURATION OF MAXIMUM HAND":10200 12:S$"GRIP CONTRACTION. YOU WILL BE ASKED TO":10200 14:"EXERT MAXIMUM FORCE ON THE GRIP SENSOR." 16:S$"THE COMPUTER WILL -------------------------- Q Z s a b INTRO PAGE d:2:10190:6:10190 n4:S$"DURATION OF CONTRACTION MODULE":102 0,a0 0 `2 Y"190 AN$"N"ī10 1606 :D$;"RUN HELLO"< R 2:9000:6:9000z 4:8:"TO PRINT OR SAVE A PICTURE"  (#S140:"^";::>VE."8 x20:"CAUTION: DO NOT TURN OFF YOUR COMPUTER!"` 23:7:"PRESS ANY KEY TO CONTINUE"q 23:20:AN$ 7:1:958 10:"HAVE YOU PLACED THE PRINT AND SAVE A" 12:"PICTURE DISK IN YOUR DISK DRIVE ?" 13:20:AN$ AN$"  D$(4)5000OZ8:" ALL GRAPHS PRODUCED BY THESE PROGRAMS"d10:"CAN BE PRINTED TO A HARD COPY. HOWEVER"f12:"YOU MUST REMOVE THE PROGRAM DISK AND"h14:"PLACE THE PRINT AND SAVE A PICTURE" n16:"DISK IN YOUR DISK DRI -,a0   `L    Lbp V r  y ̠ L> r  Lbz V ̠ f y̠ Z ] r  Lb  V X  c   c  V  c m    V  c |    V  c     V d c ʠ    V k c    $ V  c    . V L V %Ѡ +멹 ֠ +۠  5  V 5 d c  ]    ک V k c  ] #   ک& V Ơ 0 V D   3F   L: V H  LD V L7X V   b V کʠ  J   ک V  c S   Ơ V   Р V L V "PRESS ANY KEY TO CONTINUE":24:20:A$:t1100:7000C768N1PRC:P(N)(9)256.36(8)D"*";:/V4:8:"TEMPERATURE GRAPHIC MODULE"9`6010@1c:D$;"RUN ALL-TEMP PROBE CAL"iWX::12:"PLEASE CHECK PROBES, CONNECTIONS, ETC."b9000l216,0v900:@L(S$):L39ĺS$:JLL2:(20L):S$:*(#23:7:ICE"23:20:AN$?AN$"1"AN$"2"AN$"3"AN$"4"6110I6090[AN$"1"6200mAN$"2"6400AN$"3"6600AN$"4 THEN HOME:END8:D$;"CATALOG"B::7:"PRESS ANY KEY TO CONTINUE":A$L:2:ST140:"*";::6:ST140:FILES ON THIS"810:6:"DISK FOR THE PROBES CHOSEN."g13:"<1> TO SEE THE CATALOG OF THIS DISK"15:"<2> TO RETURN TO BEGINNING OF PROGRAM"17:"<3> TO RUN CALIBRATION ROUTINE"19:"<4> QUIT"22:4:"ENTER THE NUMBER OF YOUR CHO 7000C768 N1PR=C:P(N)(9)256.36(8)lT(N)B(N)TF(B(N)TF(P(N)Y(N)))273.15T(N)(T(N)10.5)10CC23N216,0p7:1:958u:D$;"DELETE";F$z216,08:1:"THERE ARE NO CALIBRATION NU, TYPE <3>" 16:20:AN$/ AN$"1"100A AN$"2"1000 &AN$"3"Ģ18:1:"RETURNING TO REACTION TIME MENU ----->":560 '530 0:D$;"RUN REACT INTRO"   2:5000:6:5000 4:7:"REACTION TIME CALCULATION"# 8:"HOW , 20:6:"PRESS ANY KEY TO CONTINUE":A$7 ""O :2:5000:6:5000~ 4:" VISUAL REACTION TIMER USING PB(0)" 10:"TO REPEAT THIS EXPERIMENT, TYPE <1>" 12:"TO CALCULATE REACTION TIME, TYPE <2>" 14:"TO RETURN TO REACTION ME12:15::" ":P 768: CALL MACHINE LANGUAGE PROGRAM TO COUNT TIME C(973)256(974)65536(975): CALCULATE COUNT TC341.023E6: CONVERT COUNTS TO TIME P103:T(TP0.5)P 7:"REACTION TIME: ";T;" SECONDS""PB(0) CIRCUIT. YOUR REACTION TIME WILL"[ 16:"BE IMMEDIATELY DISPLAYED ON THE SCREEN" 23:" PRESS ANY KEY WHEN READY TO BEGIN" 23:20:AN$ hR(1)10000: SELECT A RANDOM NUMBER BETWEEN 0 AND 10000 |J1R J: STALL  VISUAL REACT TIME +D$(4)I(D$;"BLOAD TIMER.R,A$300"ad:2:5000:6:5000n4:" VISUAL REACTION TIMER USING PB(0)"x10:"WHEN A FLASHING RECTANGLE APPEARS ON THE"12:"SCREEN, PUSH THE BUTTON ATTACHED TO THE") 14:   3 16:3:"ENTER VALUE "V" THEN PRESS ."F *18:18:SQ(V)W 416:1:958^ >Vn H7:1:958 f8:5:"THE VALUES YOU ENTERED WERE:" p: zV1SQ 15:SQ(V) V 22:9:"ARE THESE CORRECT? " 23:20:A$ A00: 650 / :D$;"RUN REACT INTRO"; :5000K 4:1:868r 4:7:"REACTION TIME CALCULATION" 8:"HOW MANY TIME MEASUREMENTS DO YOU WISH" 10:9:"TO AVERAGE? (9 MAXIMUM)" 12:20:SQ$: SQ(SQ$):SQ02000 V1SQCULATE REACTION TIME, TYPE <2>"O 14:"TO RETURN TO REACTION MENU, TYPE <3>"` 16:20:AN$p AN$"1"10 AN$"3"Ģ18:1:"RETURNING TO REACTION TIME MENU ----->":1000 AN$"2"2000 650 :"YOU'RE TOO SLOW, TRY AGAIN." W120(9)09000 bTIME(11(9)2824(8))1022714P lP103:TIME(TIMEP0.5)P v"YOUR REACTION TIME IS 0";TIME;" SECONDS." 23:6:"PRESS ANY KEY TO CONTINUE":23:20:A$ :5000 10:"TO REPEAT THIS EXPERIMENT, TYPE <1>" 12:"TO CALPONSE"8 18:" TIME WILL BE DISPLAYED ON THE SCREEN."d 23:6:" PRESS ANY KEY TO BEGIN":A$l :r | &:10 0"PRESS BUTTON ZERO WHEN YOU HEAR TONE!": :J101(5000(1)) DP1J:P N4096: RUN MACHINEAUDIO PROGRAM X(8)e !(4);"BLOAD MACHINE AUDIO"- D$(4)3=5000n10:" THIS PROGRAM MEASURES YOUR REACTION"12:" TO AN AUDIO STIMULUS. YOU WILL HEAR A"14:"BEEP AT WHICH TIME YOU SHOULD PRESS THE" 16:"BUTTON ATTACHED TO PB(0). YOUR RES      @"@@@@2@>@@@"@@2r"@>@@@@@"@"6"@@H"@@@@"H@@@@@@<#:::D$;"RUN MUSCLE MENU"RP"  #N140:"*";:N)`:12:S$"THE GRIP HAS NOT BEEN CALIBRATED.":8000j9000p23:6:"PRESS ANY KEY TO CONTINUE":A$:@L(S$):L38ĺS$:JLL2:(20L):S$:(#23:S$"PRESS ANY KEY TO CONTINUE":80002#A$CLE MENU, TYPE <2>"?R14:"TO RETURN TO MAIN MENU, TYPE <3>"O\A$:A(A$)`fA1A3860kpA11zA2ĺ:D$;"RUN MUSCLE MENU"A3ĺ:D$;"RUN MENU"   5000 D$;"OPEN GRIP" D$;"READ GRIP" SN D$;"CLOSE GRI2:H:" ":22:H:Y Y1Y& XEC D116:XD,159XD,Z:J WQ E_ 23:6000e %q &D$(4) *:2:4000:6:4000 44:S$"MUSCLE STRENGTH EXPERIMENT":8000 >10:"TO REPEAT THIS EXPERIMENT, TYPE <1>"H12:"TO RETURN TO MUSACTIONS.":8000 hW15000:W& / :3G E1(D28)28:Y10Q HH4] W140y &768:Y(9)255.36(8) 0YYSN :ZY DY255Y:Y(Y) NY255Y0690 XY255Y0 bZ0Z255 lZZ159255 vZ(Z) YY1690 2W MANY TRIALS DO YOU WISH TO RUN?":8000E 20:1:958:20:20:D$_ D(D$):D1D10270i "6000y ,7:1:958 @12:S$"ARE YOU READY TO BEGIN ?":8000:A$ JA$"Y"350 T320 ^7:1:958 c12:S$"BEGIN SUCCESSIVE GRIP CONTR7:1:958F 8:S$"BELOW EACH BAR GRAPH, A NUMBER WILL BE":8000~ 10:S$"PRINTED WHICH REPRESENTS THE HIGHEST":8000 12:S$"AMOUNT OF CONTRACTION DURING THAT TRIAL.":8000 16:S$"YOU MAY CHOOSE FROM 1 TO 10 TRIALS.":8000( 18:S$"HOCCESSIVE":8000I 12:S$"GRIP CONTRACTIONS. THE SCREEN DISPLAY":8000 14:S$"WILL SHOW A SERIES OF BAR GRAPHS, THE":8000 16:S$"HEIGHT OF WHICH INDICATES YOUR MAXIMUM":8000 18:S$"STRENGTH OF GRIP DURING THAT TRIAL.":8000 6000 :  D$(4)#3000)(2-H3U2D$;"BLOAD SIXTEEN BIT PADDLE"[Zqd2:4000:6:4000n4:S$"MUSCLE STRENGTH EXPERIMENT":8000x8:S$"IN THIS EXPERIMENT, YOU WILL MEASURE":8000 10:S$"YOUR MUSCLE STRENGTH DURING SU     SAVE":8000>310:S$"DISK IN YOUR DISK DRIVE.":8000:9000N57:1:95888:S$"IS THE PRINT AND SAVE PICTURE DISK":8000=10:S$"IN YOUR DISK DRIVE ?":8000B12:20:AN$GAN$"Y"4950LAN$"N"4900Q4930V:D$;"BSAV7:1:958H8:S$"IN ORDER TO SAVE GRAPH, YOU MUST FIRST":8000s10:S$"GIVE YOUR GRAPH A NAME.":800012:S$"FOLLOW ENTRY WITH .":8000 16:"ENTER PICTURE NAME ";B$$7:1:958 .8:S$"YOU MUST NOW PLACE THE PRINT ANDNN$"N"400 2050&47:1:958H:D$;"RUN SINGLE TEMP GRAPH"N^7:1:95810:"TO PRINT GRAPH, TYPE <1>"12:"TO SAVE GRAPH, TYPE <2>"14:20:AN$AN$"1"4860AN$"2"48704830:D$;"RUN PRINT DISK"~1120:(4);"RUN MENU"/7:1:958`8:" DO YOU WISH TO PLOT MORE THAN 1 GRAPH"10:" WITH THIS PROBE, LEAVING EACH LINE ON"12:" SCREEN WHILE PLOTTING THE NEXT LINE?"14:18:""16:20:NN$ NN$"Y"2100 SEE GRAPH AGAIN, TYPE <2>"IV14:5:"TO RETURN TO MAIN MENU, TYPE <3>"x[16:5:"TO PRINT OR SAVE GRAPH, TYPE <4>"`18:20:AN$jAN$"1"730oAN$"2"Ĺ16297,0:16302,0:16304,0:16300,0:FR$:1100tAN$"3"1155yAN$"4"4800PRCC01030P1Ē3)P2Ē65P3Ē5AP4Ē2cY(EYT(P))(170(1(EYBY)))tT(P)EYY0 T(P)BYY170 A,YPW1PACE:A$23:20:A$L::10:5:"TO REPEAT EXPERIMENT, TYPE <1>"Q12:5:"TO FOR GRAPH !"C18:1:"(PRESS ANY KEY WHEN GRAPH IS FINISHED)."S22:20:A$iPR1PACE200EXPR2PACE192EXPR3PACE184EXPR4PACE176EX16300,0:16302,0:16297,0:16304,03A202795000P16000*N1PR<4F$"CAL TEXT FILE FOR PROBE "PR$(N)N>D$;"OPEN";F$`HD$;"READ";F$rRTF,Y(N),B(N)\D$;"CLOSE";F$fNp216,0---------------------------------7:958 12:1:"PRESS ANY KEY WHEN READYlAN$"N"700v100)7:1:958W12:5:"LOADING MACHINE LANGUAGE DRIVER"z(4);"BLOAD COMBINED DRIVER2":(4);"BLOAD TEMP CON GRAPH, A$2000"D$(4)D$;"OPEN TIME"D$;"READ TIME"EX,BY,EYD$;"CLOSE TIME" 7:1:9581 10:7:"PDL SOCKET"10)"CODE #"V 11:7:"----------"10)"------"c V13:U0o N1PR &V:12:U15)PR$(N) 0VV2:UU1 :N D23:4:"ANY CORRECTIONS NECESSARY " N24:20:AN$ XAN$"Y"AN$"N"620 b590USED IN THIS") @14:14:"EXPERIMENT ?": J18:20:AN$c TAN$"1"AN$"2"AN$"3"AN$"4"360l ^330z hPR(AN$) rPR12000 7:1:958 V10:U0 N1PR V:"CODE # OF PROBE IN PDL("U") SOCKET ";:PR$(N) VV2:UU1:N S EXPERIMENT ?":8000, 16:20:CA$= CA$"Y"300u 16:S$"DO YOU WISH TO CALIBRATE NOW ?":8000 18:20:NY$ :NY$"Y"ĺD$;"RUN ALL-TEMP PROBE CAL" NY$"N"1 "260 ,7:1:958 612:2:"HOW MANY PROBES WILL BE D$;"RUN TEMP GRAPH CON"( 7:1:958a 10:S$"ARE YOU USING A COLOR MONITOR ?":8000q 12:20:A$ A$"Y"CC1:209 A$"N"209 204 7:1:958 10:S$"HAVE YOU CALIBRATED THE PROBES TO BE":8000 12:S$"USED IN THIROBES. YOU MAY CONSTRUCT":8000X 14:S$"A GRAPH SPECIFYING A TEMPERATURE SPAN":8000 16:S$"AND AN APPROXIMATE TIME INTERVAL.":8000 9000 7:1:958 10:S$"HAVE YOU CONSTRUCTED A GRAPH ?":8000 14:20:CA$ CA$"N"ĺ: CC0D$(4) (::Nd:2:ST140:"*";::6:ST140:"*";:{n4:S$"TEMPERATURE GRAPHIC MODULE":8000x8:S$"THIS PROGRAM WILL DISPLAY GRAPHIC":800010:S$"READINGS OF FROM ONE TO FOUR LCI-AT":8000 12:S$"TEMPERATURE P            (::(4);"RUN MUSCLE MENU"D ?":8000B12:20:AN$1GAN$"Y"4950CLAN$"N"4900MQ4930rV:D$;"BSAVE "B$",A$2000,L$2000"`7:1:958e8:S$"REPLACE THE PROGRAM DISK IN THE":8000j10:S$"DISK DRIVE.":8000o9000t3000::! 16:"ENTER PICTURE NAME ";B$1$7:1:958i.8:S$"YOU MUST NOW PLACE THE PRINT AND SAVE":8000310:S$"DISK IN YOUR DISK DRIVE.":8000:900057:1:95888:S$"IS THE PRINT AND SAVE PICTURE DISK":8000=10:S$"IN YOUR DISK DRIVE >"14:20:AN$%AN$"1"48607AN$"2"4870A4830\:D$;"RUN PRINT DISK"l7:1:9588:S$"IN ORDER TO SAVE GRAPH, YOU MUST FIRST":800010:S$"GIVE YOUR GRAPH A NAME.":800012:S$"FOLLOW ENTRY WITH .":8000 10:4:"TO RETURN TO MAIN MENU, TYPE <1>"Z 12:4:"TO PRINT OR SAVE GRAPH, TYPE <2>"j 22:20:A${ A$"1"3080 A$"2"4800 3030 :D$;"RUN MENU"7:1:95810:"TO PRINT GRAPH, TYPE <1>"12:"TO SAVE GRAPH, TYPE <2PW1PACE:A#$S$S::2:ST140:"*";::6:ST140:"*";:4:S$"TEMPERATURE GRAPHIC MODULE":800012:"DO YOU WISH TO PLOT ANOTHER LINE ":14:20:ZN$ZN$"N"3000ZN$"Y"9002020 7:1:958+1 20:"(PRESS ANY KEY WHEN GRAPH IS FINISHED)"A 22:20:A$W PR1PACE200EX 16300,0:16302,0:16297,0:16304,0 3 A20279 5000 P1PR Y(EYT(P))(170(1(EYBY))) T(P)EYY0 T(P)BYY170 A,Y" EX,BY,EY$ D$;"CLOSE TIME"/ 6000; *N1PRd 4F$"CAL TEXT FILE FOR PROBE "PR$(N)v >D$;"OPEN";F$ HD$;"READ";F$ RTF,Y(N),B(N) \D$;"CLOSE";F$ fN p216,0 7:958 12:1:"PRESS ANY KEY WHEN READY FOR GRAPH !"20:AN$ XAN$"Y"AN$"N"620) b590: lAN$"N"700C v100S 7:1:958 12:5:"LOADING MACHINE LANGUAGE DRIVER" (4);"BLOAD COMBINED DRIVER2" (4);"BLOAD TEMP CON GRAPH, A$2000" D$(4) D$;"OPEN TIME" D$;"READ TIME) SOCKET ";:PR$(N)& VV2:UU1:N6 7:1:958[ 10:7:"PDL SOCKET"10)"CODE #" 11:7:"----------"10)"------" V13:U0 N1PR &V:12:U15)PR$(N) 0VV2:UU1 :N D23:4:"ANY CORRECTIONS NECESSARY " N24:CA$"Y"300D 16:S$"DO YOU WISH TO CALIBRATE NOW ?":8000U 18:20:NY$ :NY$"Y"ĺD$;"RUN ALL-TEMP PROBE CAL" NY$"N"30 "260 ,7:1:958 rPR1 7:1:958 V10:U0 N1PR V:"CODE # OF PROBE IN PDL("U" D$(4)(::Cd:2:K140:"*";::6:K140:"*";:pn4:S$"TEMPERATURE GRAPHIC MODULE":80007:1:95810:S$"HAVE YOU CALIBRATED THE PROBE TO BE":800012:S$"USED IN THIS EXPERIMENT ?":800016:20:CA$           140  2:9000:6:9000G 4:" REACTION TIMER MENU"M c (#S140:"^";::D58:12:"PROCEEDING TO AUDIO STIMULUS REACTION !":D$;"RUN AUDIO REACT" AN$"2"Ģ7:1:958:12:"PROCEEDING TO VISUAL STIMULUS REACTION":D$;"RUN VISUAL REACT" AN$"3"Ģ7:1:958:12:"PROCEEDING TO MAIN MENU ------------->":D$;"RUN MENU" d  D$(4)5000Nd10:" WHICH VARIATION DO YOU WISH TO TRY?"wn14:"1. RESPONSE TO AUDIO STIMULUS"x16:"2. RESPONSE TO VISUAL STIMULUS"18:"3. RETURN TO MAIN MENU"22:" YOUR CHOICE":AN$G AN$"1"Ģ7:1:9  --------------Mn ERROR MESSAGES o---------------------------------p:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::100D::100D(4);"RUN MENU"F ---------------------------------  ROW OF 40 STARS --------------------------------- N140:"*";:N m---------------------------, 16368,0:::2:5000:6:5000O 4:10:"SINGLE GRAPH PROGRAM"z 12:"TO RERUN THIS PROGRAM, TYPE <1>" 14:"TO RETURN TO MENU, TYPE <2>" 16:20:AN$ AN$"1"AN$"2"ī1000 940 AN$"1"1 AN$"2"1020 :SE) 22:18:(0)# I0PACE* I< KEY(16384)V 16368,0:KEY32900b X:150 )--------------------------------- * GO BACK TO MENU  +------------------------- MAIN DISPLAY PAGE e c---------------------------------k dv nSEN.5 xRISE50 PACE10 24:8:"HIT SPACEBAR TO EXIT " X1279 22:18:" " P0(0) 6 X,SEN(P0RI 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- D$(4) (16368,0 a---------------------------------0 b5---------------------------------i SINGLE GRAPH DISPLAY OF PDL(0)  PROGRAM BY  LABORATORY COMPUTER INTERFACING 2      z# ??  ̠ԠŠҠŠ˱̠ԠŠҠŠ˲̠ԠŠҠŠڠ Ԡˠ Ҡ Р Š̠  ̠ԠŠҠŠĠРȠΠ РΠȠ" ̠ԠŠҠŠ˰  ̠ԠŠҠŠ̠̠ԠŠҠŠˠŠȠ  ŠРȠ РȠɠ ϠԠ ̠Ԡ ҮҠŠϠ  ̠ԠŠҠŠı Š ΠԠŠ ̠ԠŠҠŠױ"˱ŠȠԠϠϠȠȠ ՠĠҲ̭РŠ̠̭РŠˠ̠ ٠  (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 #1":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   űű˨ ŠЧűű ŮĺƲƠĠàƠàƍŰĠŰùàİàòŹóôĠ ð İİĠðŰŸŹdzİ ԠŧŷŊ԰ܢŮàéΠΠֳ"G ˨˨6Рŧ˨+ ɛɓ 8I,I+ې婍,- -N-۝ ,LHH:LVԩHIHh( }ڬIۈI۹ۤ$`h ,LHHݶhܶhLضHuH,0`,,HHɓ4ɛ0ɐ,HɃI ɘIۍI ULڙیHhh`Ԡƌج77ۭ=ٙ7ۭ>ٙ?ې 8) x,10c EL=>٭` 40 H77۹7ۍ=ٹ?ۍ> 4h`hN6N/ɝ`=٩ۍ>`? m 4 ? 40`-ۍ1ۥ? 4H h0ED LԽɠj,LH)? >h`,5 3ɍN5ɖ HH hh`,/0ɍ3+`(,LФ$(H,0 @))(N- h`,,۩,0۩+ ,6L Y,*,00Ɂͬ,,,c0 ې II ,*Pɛ,00@L,*?ɛ&,!& 5ؠ0 >ڤ$LԤ$,0pɕ -`( }8n6N- @2ɧ @)ɧ/ɝ$LC >ڈL  2N5۩ >کEE I LE ֦CL$8f< 8N-E$<CC CE?AC8A 8L-$>I  8LӥE? ע L ֩? >?L CC >` LԘH@ɠ$@ ɢE@@EE=hEA`C ֩ LE `N/ 5؆CEEɛ@ T֝ LԠ $ T`DH UhhhN-ۦCLԹHH$`ʩ >Lԩ@ :ɠE T֦CH դ$h  $> 2 ٦EH.ۥ3ɾɪ$@.ɢE@@$@0 )ߝh` 8L֤EEՠɮ ڙt` Ԑ ԰t`n4۩ ,5iۙ`Wՠ ɢɢ J`8 հ Z۝`2 ՐEH۰ȹIɿh`2 Րh` ԰Eɠ`AɀeE*EEA ʽAIE ɺ>F=E&ۍ'۩$3pDмɍH'h`C$3P톸Eɍ$3p C 'ۢL#ED צC` ԰N5L$= ԭ Ր4 0 `հ հ3L E Ԑ $L F>'J&ۢL ɠɰɺ8``ɯɍ`tՌ#) ٩ ٩ 4H hߦ$! ٩$`tuۘۍ5ێ 0N5 +0z ԍ5 mJ AՌۘ [Z AՌ۽I]Iƍ3I2ۭu$3p ڙtۈL (ɬ ɮ ɬ ɢ Ԑ`ʨ`hh UN5 2ѢE$` )L  )ՠ ɠiPɗ*ɘɍL=Ʌ-ɖ5 I 2ѩ$`$3p.ۆE  Lԥ3ɾ` >1ۭնHED 3 3,hնN1,1pd x٭=م<>م=EM 40 4ّ<<=18<=L E Uڊ<)<L>+ m 4L,Hh)hRhذdfۈ ,ѩHHLԶ 2L L@  QѠ67'`N/۠89&`(ۍ)ۮ'۽HH)ۮ(`((ۺwn*ۮ(,3L ©éĭ&@JLLl&3jَϹB@/ u,5L 5,* P'-----------SUBROUTINES---------- f'S140:"*";::~'L(S$):L40ĺS$:'LL2:(20L):S$:'23:6:"PRESS ANY KEY TO CONTINUE":A$:'23:S$"PRESS ANY KEY FOR MUSCLE MENU":10200(A$S HZ---------------------------------]dN140:"*";:Ncn1:18:"RETURNING TO MUSCLE MENU------------->":D$;"RUN MUSCLE MENU"'  GOTO TRIPLE GRAPH jK---------------------------------L:12:"PRODEEDING TO TRIPLE GRAPH DISPLAY.."e16368,0j""t(4);"RUN TRIPLE GRAPH"---------------------------OTO MUSCLE TEST MENU W---------------------------------:12:"PROCEEDING TO MUSCLE EXERCISE MENU --->"16368,0""(4);"RUN MUSCLE MENU"I---------------------------------3JPH DISPLAY I---------------------------------|:12:"PROCEEDING TO SINGLE GRAPH DISPLAY..."""49168,0(4);"RUN SIMPLE GRAPH"---------------------------------! G =---------------------------------r :12:"PROCEEDING TO CONDUCTANCE MENU ------->"%16368,0*(4);"RUN INTRO CONDUCTANCE"--------------------------------- GOTO SINGLE GRA 7---------------------------------f:12:6:"PROCEEDING TO PDL & PB DISPLAY"t16368,0(4);"RUN PDL & PB DISPLAY"--------------------------------- GOTO CONDUCTANCE DISPLAY W---------------------------------hX:12:"PROCEEDING TO CALIBRATION CHECK ROUTINE"b(4);"RUN ALL-TEMP PROBE CHECK"--------------------------------- GOTO PDL & PB DISPLAY 14:20:A$A$"Y"ī570,&A$"N"ī10050500h::12:"PROCEEDING TO TEMP CALIBRATION MODULE"D(4);"RUN ALL-TEMP PROBE CAL"U---------------------------------V GOTO CHECK CALIBRATION 3 GOTO CALIBRATION b---------------------------------:4:"CAUTION!!! TEMPERATURE CALIBRATION WILL"6:"DESTROY PREVIOUS CALIBRATION DATA FILE."10:"SHALL I RUN CALIBRATION ROUTINE ? S 'RETURN'"^Z$hZ(Z$):rZ13Ģ4:1:958:100N|Z65Z806000216,0:ZZ64:Z500,600,700,800,900,1000,1800,1200,1300,1400Z111500Z121450100---------------------------------,------------------------------O ,5:"TO DISPLAY TEMPERATURE GRAPH, TYPE "} 67:"TO RUN REACTION TIME EXP., TYPE " @9:"TO RUN RESPIRATION EXP., TYPE " P11:"TO DISPLAY HEARTBEAT/VOICE, TYPE " T4:23:"TO SEE MORE CHOICES, PRES4:23:"TO SEE MORE CHOICES, PRESS 'RETURN'"5 Z$A Z(Z$)\ Z13Ģ4:1:958:300p Z65Z806000y 390 )--------------------------------- * PAGE 2 OF MENU  +---SPLAY, TYPE "= 11:"TO RUN CONDUCTANCE MENU, TYPE "e 13:"TO RUN SINGLE GRAPH, TYPE 15:"TO RUN MUSCLE EXERCISE MENU, TYPE " 17:"TO RUN PB(0) BASIC STOPWATCH, TYPE " 19:"TO RUN SKIN TEMP. EXPERIMENT, PRESS "- p,d ` o---------------------------------jp:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "zW13000::100` ROW OF 40 STARS m---------------------------------N140:"*";:Nm---------------------------------n ERROR MESSAGES 5N PEND INTRO"16368,0P:12:"GETTING PB(0) STOPWATCH PROGRAM ------>"i(4)"RUN STOPWATCH"::12:"GETTING GRAVITY ACCELERATION PROGRAM ->"D(4)"RUN GRAVITY ACC."---------------------------------6"RUN BREATH GRAPH"I--------------------------------- GOTO PENDULUM EXP. ---------------------------------:12:"GETTING PENDULUM EXPERIMENT ---------->" (4)"RUUN RESPIRATION INTRO"L=---------------------------------> GOTO BREATH GRAPH ?---------------------------------@:12:"GETTING BREATH GRAPH PROGRAM --------->"J(4)N FORK1"?---------------------------------y GOTO RESPIRATION EXPER. ---------------------------------:12:"GETTING RESPIRATION EXPERIMENT -------->"16368,0(4)"R0:S$"PRESS ANY KEY TO CONTINUE":DR1:50104AN$nVT10:HT10:S$"PRESS ANY KEY TO CONTINUE":DR0:5010SWITCH TO SECOND SCREEN :DR1:Q1VT4:HT4:S$"CHOOSE ONE OF THE FOLLOWING:":5010VT6:HT6:S$"1. SEE THIS GRAPH ?":DR0:50108"VT12:HT20:S$"?":DR0:5010J(AN$"N"1700]2AN$"Y"1312k<PL250EXwFZ1EXPTI16703Z20(PLZ),TIdTI:ZnPL180EYxZEY201T2222723T2,(ZPL)7T2:Z+VT10:HT1ELETE KEY!!":5010MDR0:VT14:HT8:S$"PRESS AFTER ENTRY!":5010S:g CREATE GRID??VT10:HT6:S$"DO YOU WANT A GRID ON THIS GRAPH ?":DR1:5010VT12:HT20:S$"?":DR1:5010 AN$!VT10:HT6:S$"DO YOU WANT A GRID ON TH(EYBY)5:15,(ZPL):16,(ZPL):ZW REMOVE INSTRUCTIONS DR0:VT2:HT10:S$"GRAPH CONSTRUCTION PROGRAM":5010DR0:VT17:HT4:S$"NOTE - MAKE CORRECTIONS AFTER ENTRY!":5010DR0:VT19:HT8:S$"DO NOT USE <- OR D PUT TICS ON AXES 7V20,173E[EX(EX$)S`PL250EXptZ1EX:20(PLZ),173:yEX51150~Z0EX5:20(PLZ),174:20(PLZ),175:EY(EY$):BY(BY$)PL170(EYBY)Z0(EYBY):17,(ZPL):Z#Z0$:DR0:VT10:HT6:5010:DR1XAN$"N"DR0:VT7:HT11:S$EY$:5010:EY$"":X11:1030jAN$"Y"1050t1035VT1:HT1:S$EY$:5010$Q1:VT5:HT5:S$"ENTER HIGHEST VALUE FOR TEMPERATURE":DR0:5010)VT7:HT10:S$"?"EY$:DR0:5010+L $Q1:X11jQ1:VT5:HT5:S$"ENTER HIGHEST VALUE FOR TEMPERATURE":DR1:5010VT7:HT10:S$"?":5010VT7:HTX:S$:S$(13)EY$EY$S$:5010:XX1:216,0:1030 VT10:HT6:S$"IS "EY$" CORRECT ? ":5010:AN10:DR1BAN$"N"DR0:VT7:HT11:S$BY$:5010:BY$"":X11:940SAN$"Y"960\945xVT22:HT1:S$BY$:5010Q1:VT5:HT5:S$"ENTER LOWEST VALUE FOR TEMPERATURE":DR0:5010VT7:HT10:S$"?"BY$:DR0:5010 GET END OF Y-AXIS Q1X11VQ1:VT5:HT5:S$"ENTER LOWEST VALUE FOR TEMPERATURE":DR1:5010rVT7:HT10:S$"?":5010VT7:HTX:S$:S$(13)BY$BY$S$:5010:XX1:216,0:940VT10:HT6:S$"IS "BY$" CORRECT ? ":5010:AN$:DR0:VT10:HT6:50:VT7:HT11:S$EX$:5010:EX$"":X11:730: AN$"Y"790C 750` VT23:HT38:S$EX$:5010 Q1:VT5:HT9:S$"ENTER HIGHEST VALUE FOR TIME":DR0:5010 *VT7:HT10:S$"?"EX$:DR0:5010 4: GET START OF Y-AXIS "ENTER HIGHEST VALUE FOR TIME":DR1:5010F VT7:HT10:S$"?":5010O X11Y 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"DR0DR1 LY$"TEMPERATURE"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$:5010E 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"8 x232,0:233,96> :j DRAW X AND Y AXIS ::16302,0:3:1:0 20,020,170272,170 ": + GIVE CAUTIONS  ,VT2:HT10:S$"GRAPH CONSTRUCTION PROGRAM"2 GRAPH CONSTRUCTION c E. E. DOWDEN  5-8-86  INITIALIZE VARIABLES Q1:D1D$(4)(: c BLOAD LCI          o---------------------------------ip:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "~zW13000::100D` ROW OF 40 STARS l---------------------------------N140:"*";:Nm---------------------------------n ERROR MESSAGES 4zW13000::100D-----------------------cp:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "xzW13000::100: GRAVITY ACCELERATION PROGRAM ->"D(4)"RUN GRAVITY ACC."---------------------------------5STORING TIME CHOICE IN DISK FILE------"3zD$(4)GD$;"OPEN TIME"]D$;"DELETE TIME"qD$;"OPEN TIME"D$;"WRITE TIME"EX:BY:EYD$;"CLOSE TIME"GRAPH,A$2000,L$2000":&6000.:I(4);"RUN TEMP GRAPH"OiHT7(HT1):VT8VT1xI1(S$)CH((S$,I,1))32CH05070DR1ĔCHHT,VTDR0ĕCHHT,VTQ0VTVT8Q1HTHT7I'p12:"AN$"2"1900-AN$"3"S$"":EX$"":1sAN$"4"Đ:VT12:HT4:S$"GOODBYE. HOPE YOU USE ME AGAIN !":5010 W13:W:(4);"RUN MENU"l:VT12:HT4:S$"SAVING THIS GRAPH ON DISK --->":5010(4);"BSAVE TEMP CON E GRAPH AGAIN":5010GVT8: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$AN$"1"Ĺ16297,0:16302,0:16304,0:16300,0:AN$:1700"GETTING REACTION TIME PROGRAM ------->"CV(4)"RUN REACT INTRO"y-------------------------------- GOTO HEARTBEAT/VOICE --------------------------------:12:"GETTING H:12:"GETTING TEMPERATURE GRAPH ------------>"J(4)"RUN TEMP GRAPH"I--------------------------------J GOTO REACTION TIME K--------------------------------(L:12:USCLE EXERCISE MENU Q----------------------------------------------------------------- GOTO TEMPERATURE GRAPH ---------------------------------0PH G--------------------------------z :12:"PROCEEDING TO SINGLE GRAPH DISPLAY..."*""449168,0>(4);"RUN SINGLE GRAPH"-------------------------------- GOTO M C--------------------------------r:12:6:"PROCEEDING TO PDL & PB DISPLAY"16368,0(4);"RUN PDL & PB DISPLAY"-------------------------------- GOTO SINGLE GRAN AW--------------------------------vX:12:"PROCEEDING TO CALIBRATION CHECK ROUTINE"b(4);"RUN ALL-TEMP PROBE CHECK"-------------------------------- GOTO PDL & PB DISPLAYNE ?14:20:A$+A$"Y"ī570<&A$"N"ī100E0500x::12:"PROCEEDING TO TEMP CALIBRATION MODULE"D(4);"RUN ALL-TEMP PROBE CAL"U-------------------------------- V GOTO CHECK CALIBRATIO----= GOTO CALIBRATION r--------------------------------:4:"CAUTION!!! TEMPERATURE CALIBRATION WILL"6:"DESTROY PREVIOUS CALIBRATION DATA FILE." 10:"SHALL I RUN CALIBRATION ROUTI)w14:7:"PRESS ANY KEY TO CONTINUE.":x14:20:AN$nz:12:"GETTING DISK SIDE 2 MENU ------------>"|D$;"RUN MENU"216,0:ZZ64:Z500,600,700,800,1000,1100,1200,1300100-----------------------------------------------------) ,7:1:958O 610:"FOR MORE CHOICES, TYPE <1>"{ @12:"TO RETURN TO LAST MENU, TYPE <2>" J14:20:AN$ OAN$"1"AN$"2"350 T300 ^AN$"2"100 h7:1:958r12:" REMOVE DISK AND INSERT SIDE 2, THEN" SEE MORE CHOICES, PRESS 'RETURN'"2 23:20:Z$> Z(Z$)Y Z13Ģ4:1:958:300m Z65Z736000v 390 )-------------------------------- * GET MORE CHOICES  +------- TYPE "2 11:"TO RUN SINGLE GRAPH, TYPE d 13:"TO DISPLAY TEMPERATURE GRAPH, TYPE " 15:"TO RUN REACTION TIME EXP., TYPE " 17:"TO DISPLAY HEARTBEAT/VOICE, TYPE " 19:"TO DISPLAY BREATH GRAPH, TYPE "" 4:23:"TO PAGE 1 OF MENU Q c--------------------------------W dm n1:5000:3:5000 x2:18:"MENU" 5:"TO CALIBRATE TEMPERATURE PROBE, TYPE " 7:"TO CHECK CALIBRATION, TYPE " 9:"TO RUN INTERFACE BOX TEST, 35 CONCORD ROAD r  BOOTHWYN PA 19061 -------------------------------- D$(4) a-------------------------------- b 4--------------------------------k MENU FOR VERSION 2.5 DISK  PROGRAM BY  LABORATORY COMPUTER INTERFACING 1       ~1120:(4);"RUN MENU"/7:1:958`8:" DO YOU WISH TO PLOT MORE THAN 1 GRAPH"10:" WITH THIS PROBE, LEAVING EACH LINE ON"12:" SCREEN WHILE PLOTTING THE NEXT LINE?"14:18:""16:20:NN$ NN$"Y"2100 SEE GRAPH AGAIN, TYPE <2>"IV14:5:"TO RETURN TO MAIN MENU, TYPE <3>"x[16:5:"TO PRINT OR SAVE GRAPH, TYPE <4>"`18:20:AN$jAN$"1"730oAN$"2"Ĺ16297,0:16302,0:16304,0:16300,0:FR$:1100tAN$"3"1155yAN$"4"4800PRCC01030P1Ē3)P2Ē65P3Ē5AP4Ē2cY(EYT(P))(170(1(EYBY)))tT(P)EYY0 T(P)BYY170 A,YPW1PACE:A$23:20:A$L::10:5:"TO REPEAT EXPERIMENT, TYPE <1>"Q12:5:"TO FOR GRAPH !"C18:1:"(PRESS ANY KEY WHEN GRAPH IS FINISHED)."S22:20:A$iPR1PACE200EXPR2PACE192EXPR3PACE184EXPR4PACE176EX16300,0:16302,0:16297,0:16304,03A202795000P16000*N1PR<4F$"CAL TEXT FILE FOR PROBE "PR$(N)N>D$;"OPEN";F$`HD$;"READ";F$rRTF,Y(N),B(N)\D$;"CLOSE";F$fNp216,0---------------------------------7:958 12:1:"PRESS ANY KEY WHEN READYlAN$"N"700v100)7:1:958W12:5:"LOADING MACHINE LANGUAGE DRIVER"z(4);"BLOAD COMBINED DRIVER2":(4);"BLOAD TEMP CON GRAPH, A$2000"D$(4)D$;"OPEN TIME"D$;"READ TIME"EX,BY,EYD$;"CLOSE TIME" 7:1:9581 10:7:"PDL SOCKET"10)"CODE #"V 11:7:"----------"10)"------"c V13:U0o N1PR &V:12:U15)PR$(N) 0VV2:UU1 :N D23:4:"ANY CORRECTIONS NECESSARY " N24:20:AN$ XAN$"Y"AN$"N"620 b590USED IN THIS") @14:14:"EXPERIMENT ?": J18:20:AN$c TAN$"1"AN$"2"AN$"3"AN$"4"360l ^330z hPR(AN$) rPR12000 7:1:958 V10:U0 N1PR V:"CODE # OF PROBE IN PDL("U") SOCKET ";:PR$(N) VV2:UU1:N S EXPERIMENT ?":8000, 16:20:CA$= CA$"Y"300u 16:S$"DO YOU WISH TO CALIBRATE NOW ?":8000 18:20:NY$ :NY$"Y"ĺD$;"RUN ALL-TEMP PROBE CAL" NY$"N"1 "260 ,7:1:958 612:2:"HOW MANY PROBES WILL BE D$;"RUN TEMP GRAPH CON"( 7:1:958a 10:S$"ARE YOU USING A COLOR MONITOR ?":8000q 12:20:A$ A$"Y"CC1:209 A$"N"209 204 7:1:958 10:S$"HAVE YOU CALIBRATED THE PROBES TO BE":8000 12:S$"USED IN THIROBES. YOU MAY CONSTRUCT":8000X 14:S$"A GRAPH SPECIFYING A TEMPERATURE SPAN":8000 16:S$"AND AN APPROXIMATE TIME INTERVAL.":8000 9000 7:1:958 10:S$"HAVE YOU CONSTRUCTED A GRAPH ?":8000 14:20:CA$ CA$"N"ĺ: CC0D$(4) (::Nd:2:ST140:"*";::6:ST140:"*";:{n4:S$"TEMPERATURE GRAPHIC MODULE":8000x8:S$"THIS PROGRAM WILL DISPLAY GRAPHIC":800010:S$"READINGS OF FROM ONE TO FOUR LCI-AT":8000 12:S$"TEMPERATURE P     EARTBEAT/VOICE PROGRAM ----->"3(4)"RUN FORK1"i-------------------------------- GOTO BREATH GRAPH --------------------------------:12:"GETTING BREATH GRAPH PW<X::12:"PLEASE CHECK PROBES, CONNECTIONS, ETC."Fb9000Rl216,0[v900a:y@L(S$):L39ĺS$:JLL2:(20L):S$:(#23:7:"PRESS ANY KEY TO CONTINUE":24:20:A$:$"2"6400AN$"3"66006AN$"4 THEN HOME:ENDJ8:D$;"CATALOG"vB::7:"PRESS ANY KEY TO CONTINUE":A$L:2:ST140:"*";::6:ST140:"*";:V4:8:"TEMPERATURE GRAPHIC MODULE"`60101:D$;"RUN ALL-TEMP PROBE CAL"ISK"515:"<2> TO RETURN TO BEGINNING OF PROGRAM"_17:"<3> TO RUN CALIBRATION ROUTINE"s19:"<4> QUIT"22:4:"ENTER THE NUMBER OF YOUR CHOICE"23:20:AN$AN$"1"AN$"2"AN$"3"AN$"4"61106090AN$"1"6200 AN.15T(N)(T(N)10.5)10(CC23/N:216,0@Fl:Vp7:1:958lu:D$;"DELETE";F$wz216,08:1:"THERE ARE NO CALIBRATION FILES ON THIS"10:6:"DISK FOR THE PROBES CHOSEN."13:"<1> TO SEE THE CATALOG OF THIS DE "B$",A$2000,L$2000"%`7:1:958We8:S$"REPLACE THE PROGRAM DISK IN THE":8000vj10:S$"DISK DRIVE.":8000o9000t1100:7000C768N1PRC:P(N)(9)256.36(8)T(N)B(N)TF(B(N)TF(P(N)Y(N)))273 SAVE":8000>310:S$"DISK IN YOUR DISK DRIVE.":8000:9000N57:1:95888:S$"IS THE PRINT AND SAVE PICTURE DISK":8000=10:S$"IN YOUR DISK DRIVE ?":8000B12:20:AN$GAN$"Y"4950LAN$"N"4900Q4930V:D$;"BSAV7:1:958H8:S$"IN ORDER TO SAVE GRAPH, YOU MUST FIRST":8000s10:S$"GIVE YOUR GRAPH A NAME.":800012:S$"FOLLOW ENTRY WITH .":8000 16:"ENTER PICTURE NAME ";B$$7:1:958 .8:S$"YOU MUST NOW PLACE THE PRINT ANDNN$"N"400 2050&47:1:958H:D$;"RUN SINGLE TEMP GRAPH"N^7:1:95810:"TO PRINT GRAPH, TYPE <1>"12:"TO SAVE GRAPH, TYPE <2>"14:20:AN$AN$"1"4860AN$"2"48704830:D$;"RUN PRINT DISK"ȘeiȑLe&1 && &!ee)ei `hhLȪs0,a0 0 `ԆsՆtֆstsưƯsgůh尐giihijg` Lӆ Ԇ8stijRLghLABCՆ>ֆ?s? ":A$A$"N"QW21500A$"N"500A$"Y"200390---------------------------------?--------------------M* PAGE 3 +---------------------------------,7:1:95868:P$"*** YOUR INPUT SUMMARY ***":8000@L10JL:5:"PDL. #"13)"PROBE CODE#"TL1:5:"-------- 7:1:958M 8:P$"NOTE.. FOLLOW EACH ENTRY BELOW WITH":8000l 10:P$"!!!":8000u L12 N1PR L:"CODE # OF PROBE CONNECTED TO PDL("N1")??" L2:18:PR$(N) L:958 N)-------------0:6:"HOW MANY PROBES ???? ";:PR4 20:29:PRX PR1PR2PR3PR4İ6000:200b 9000 ---------------------------------  PAGE 2  --------------------------":80009 x8:"THIS CALIBRATION ROUTINE CAN BE USED TO"q 10:P$"SIMULTANEOUSLY CALIBRATE ONE TO FOUR":8000 12:"PROBES. YOU MUST NOW SPECIFY THE NUMBER" 14:P$"OF PROBES TO BE CALIBRATED IN THIS":8000 16:P$"EXPERIMENT.":8000$ 2 D$(4) (16368,0" 2QW0W a--------------------------------- b PAGE 1 c--------------------------------- d:2:5000:6:5000 n4:P$"MULTI-CALIBRATION MODULE E  LABORATORY COMPUTER INTERFACING  35 CONCORD ROAD  BOOTHWYN PA 19061 ---------------------------------A5---------------------------------{ ALL-TEMP PROBE  CALIBRATION MODULE   PROGRAM BY          AL":I---------------------------------wJ CALIBRATION WAS O.K. K---------------------------------L7:1:958V12:"TO RETURN TO MENU, TYPE <1>"`14:"TO RUN TEMPERATU WAS CALIBRATION O.K. h---------------------------------x7:1:95812:"ARE YOU SATISFIED WITH THE CALIBRATION ?"14:18:""A$:A$"Y"1100A$"N"ĺ:(4);"RUN ALL-TEMP PROBE C\V11fN1PR=pV:2:PR$(N)18)T(N)34)F(N)37)" "GzVV2NNv23:P$"HIT TO EXIT":8000KEY(49152):KEY27ī95049168,0850216,0:49168,0---------------------------------2 DISPLAY TEMPERATURE e---------------------------------p 9500*:2:5000:6:500044:P$"TEMPERATURE DISPLAY":8000>8:"PROBE#","DEG. C","DEG. F"H9:"------","------","------"R1300 CALIBRATION DATA FROM TEXT FILES":80004N1PR]F$"CAL TEXT FILE FOR PROBE "PR$(N)wD$(4):D$;"OPEN";F$D$;"READ";F$TF,Y(N),B(N):D$;"CLOSE";F$ N216,0---------------------------------/NE DRIVER IS IN MEMORY":8000'6000]--------------------------------- GET CAL FILES FROM DISK ---------------------------------7:1:9589000(10:P$"GETTING-----------------QV LOAD ML DRIVER (A$0300, L$005C) W---------------------------------X7:1:958b12:P$"LOADING MACHINE LANGUAGE DRIVER":8000l:(4)"BLOAD COMBINED DRIVER2"v14:P$"MACHI"PDL. #"13)"PROBE CODE#"@L1:5:"------"13)"-----------"IL11UN1PRpL:8:(N1)18)PR$(N)}LL2:N22:4:"ANY CORRECTIONS NECESSARY ? ":A$A$"N"600A$"Y"100490U-------------------------------------------------k WERE ANSWERS CORRECT? ---------------------------------7:1:9584:1:868:4:P$"*** YOUR INPUT SUMMARY ***":8000L8L:5:---------------------------------5 ,7:1:958k 68:P$"NOTE.. FOLLOW EACH ENTRY BELOW WITH":8000 @10:P$"!!!":8000 JL14 TN1PR ^L:"CODE # OF PROBE CONNECTED TO PDL("N1")??" hL2:18:PR$(N) rL:958 |N2ANY PROBES ???? ";:PR5 PR1PR2PR3PR4300h :12:"ENTRY ERROR.......PLEASE RE-ENTER...."} W14000::100 )--------------------------------- * PAGE 2 % +:P$"THIS CALIBRATION CHECKING ROUTINE CAN":8000d 10:"SIMULTANEOUSLY CHECK THE CALIBRATION OF" 12:"UP TO FOUR PROBES. YOU MUST NOW SPECIFY" 14:P$"THE PROBES AND THEIR CODE NUMBERS":8000 16:P$"AT THIS TIME.":8000 20:6:"HOW M D$(4)@ a---------------------------------z b PAGE 1 c--------------------------------- d n2:5000:6:5000 x4:P$"ALL-TEMP PROBE CHECK MODULE":80001 8 E  LABORATORY COMPUTER INTERFACING  35 CONCORD ROAD  BOOTHWYN PA 19061 ---------------------------------5---------------------------------} PROBE CALIBRATION  CHECK   PROGRAM BY           1:1:958>21:"YOUR AVERAGE REACTION TIME IS "GK$" SEC."f23:7:"PRESS ANY KEY TO CONTINUE"w23:20:UR$500S140:"^";::ALUES YOU ENTERED WERE:" e:,jV1SQ;t15:SQ(V)B~Vi22:9:"ARE THESE CORRECT? "y23:20:A$A$"N"1000A$"Y"12001170SM0V1SQSMSMSQ(V)VGKSMSQ:GK$(GK)GK$(GK$,4) 2MANY TIME MEASUREMENTS DO YOU WISH"I 10:9:"TO AVERAGE? (9 MAXIMUM)"[ 12:20:SQ$:t $SQ(SQ$):SQ01000 .V1SQ 816:3:"ENTER VALUE "V" THEN PRESS ." =18:18:SQ(V) B16:1:958 LV V7:1:958`8:5:"THE VH:D ERROR MESSAGES e ---------------------------------*:12:"***** PLEASE FOLLOW DIRECTIONS!! ***** "4W13000::100>H:D* PLEASE FOLLOW DIRECTIONS!! ***** "4W13000::100>---------------------------------f ROW OF 40 STARS ---------------------------------N140:"*";:N ---------------------------------.:"FOUR PADDLE DISPLAY PROGRAM"J 12:"TO RERUN THIS PROGRAM, TYPE <1>"r 14:"TO RETURN TO MENU, TYPE <2>" 16368,0:16:20:AN$ AN$"1"AN$"2"ī690 660 AN$"1"30 AN$"2"710 :(4);"RUN MENU" X1' " OPEN "; XX17 S& :0 KEY0B &KEY(16384)c 016368,0:KEY32KEY160600l :149 N--------------------------------- X b--------------------------------- l::2:760:6:760 v4:6L(0)"5)"PDL(1)"5)"PDL(2)"5)"PDL(3)"K 16:8:"PB(0) PB(1)"Q Y X1d P03t PD$((P)) (PD$)3PD$" "PD$" " 12:(X):""PD$"" XX11 X8 S01 18:(X) (49249S)127ĺ"CLOSED";:225---------------------------S b MAIN DISPLAY PAGE c--------------------------------- d:2:760:6:760 n4:" DISPLAY OF ALL PADDLE & SWITCH PORTS" 22:10:"HIT SPACEBAR TO EXIT"& 10:"PDING U  35 CONCORD ROAD  BOOTHWYN PA 19061 --------------------------------- D$(4) (16368,0 a------D DISPLAY ALL  SWITCH & PADDLE PORTS  PROGRAM BY   LABORATORY COMPUTER INTERFAC     )-%'%'%'?@a )-%!$$,-? -%<"$d-%!$$ -%$2& -$$< - $$$!$$l I ??$$$!$$f`666!$$$$$ - $$?66!$$,-? % $?66!$$,-?- <8d-I$$$?M% - $$66&I $$36!$$l 666#! l &I$l I ??d "8 16:"TO CALIBRATE GRIP, TYPE <3>"_ 18:"TO RETURN TO MENU, TYPE <4>"o 20:20:A$ A$"1"A$"2"A$"3"A$"4"200 150 :A$"1"ĺ(4);"RUN MUSCLE DURATION" :A$"2"ĺ(4);"RUN MUSCLE STRENGTH" :A$"3" MAIN DISPLAY PAGE e c--------------------------------- d::2:5000:6:5000 n4:" MENU FOR MUSCLE FUNCTION EXPERIMENT" x12:"FOR DURATION OF CONTRACTION, TYPE <1>" 14:"FOR STRENGTH OF CONTR 35 CONCORD ROAD u  BOOTHWYN PA 19061 --------------------------------- D$(4) (16368,0 a---------------------------------0 b5---------------------------------i MUSCLE MENU  PROGRAM BY  LABORATORY COMPUTER INTERFACING 2      H"@@NN n@@@@@@ "@"@@@@@@"@>">""@ @@>HH@@\H@@H HH>@"@@@@@@"@@@@"@@@@@@HH@@@ N*@@HHH             !!!!!! 5@  L7ee '`HH@H"Hb@"@@@@@""@"@@@@@>@@&""2 >"@>@@>@H>@"@f NN@HHH &@@@@>@@@@**** @@@@@@@>*@@N@@@*HH@HHHH@2**& >H"H@"@@@@2@>@@@"@@2@"@>H@@@@"H"66"@@H"H">""*NN@@@@"@\@"@@@"@@@"@@@@@@"@""""6@@1:18:"RETURNING TO MENU ------------------->"D:D$;"RUN MENU"J^ D$;"OPEN GRIP"rD$;"READ GRIP"zSN(D$;"CLOSE GRIP"2<F---------------------------------P ROW OF 40 STAR49168,0-10:"TO RERUN PROGRAM, TYPE <1>"[12:"TO RETURN TO MUSCLE MENU, TYPE <2>"14:"TO RETURN TO MAIN MENU, TYPE <3>"16:20:AN$AN$"1"AN$"2"AN$"3"12501220AN$"1"540AN$"2"ī5000AN$"3"1260/60NN1:S0:23:9:958NV23:5:"TIME = "(N)" MINUTES "(S)" SECONDS"X`SSMbjM.13lt1030~24:S$"EXPERIMENT ENDED. PRESS ANY KEY":10200:A$:N0:2:10190:6:101904:S$"DURATION OF CONTRACTION MODULE":10200(8) YYSN Y160Y1590 X1,Y1X,Y9 Y1Y@ XL S0:M0U :3[ d 1,Ym YTYu X1 768:Y(9)255.36(8) YYSN S0Y1591030 $S0Y1591150 )YYT51150 .X,Y 8XX1 BX2751002LS MAIN DISPLAY MODULE [ ---------------------------------a  :D$;"BLOAD SIXTEEN BIT PADDLE" X:SC1:ST100 l:7 {Y1159 :21:" ESTABLISH MAX CONTRACTION NOW !!" X1279 768:Y(9)255.3619:S$"HOW LONG CAN YOU ENDURE??":102003 10220C ,7:1:958y 612:S$"ARE YOU READY TO BEGIN ?":10200:A$ @A$"Y"İ1280:540 J310 D$(4)  16368,0 ---------------------------------& 8 8:S$"THE TIME WHICH HAS ELAPSED DURING THE":10200j 10:"EXPERIMENT WILL BE SHOWN AT THE BOTTOM" 12:"OF THE SCREEN. THE EXPERIMENT WILL END " 14:"WHEN A DROP IN THE GRAPH INDICATES THAT" 16:S$"FATIGUE HAS OCCURRED.":10200(  TO":10200> 14:"EXERT MAXIMUM FORCE ON THE GRIP SENSOR."v 16:S$"THE COMPUTER WILL DRAW A CONTINUOUS":10200 18:"LINE ON THE SCREEN, THE HEIGHT OF WHICH" 20:S$"WILL INDICATE STRENGTH OF CONTRACTION.":10200 10220 7:1:958 (D$(4)-d:2:10190:6:10190_n4:S$"DURATION OF CONTRACTION MODULE":10200x8:S$"IN THIS EXPERIMENT THE COMPUTER WILL":1020010:S$"MONITOR THE DURATION OF MAXIMUM HAND":10200 12:S$"GRIP CONTRACTION. YOU WILL BE ASKED!! ! ! ! ! !!!  LL+ƠLdLĠL砕L+sLxLꢧL+}LLLL⠕LLꩪLꩯLĠL̠L+ V    V L V <  V   V X  c =   ک V  c e   ک V  c ARROWS WILL ADJUSTTHE SENSITIVITY OF THE MICROPHONE.*H@  8`>   @` 7LʠLL+ALL+FLKLPL_>FOR SINGLE PAGE DISPLAY, TYPE <2>TO RETURN TO MAIN MENU, TYPE <3>123RUN MENUPRESS ANY KEY TO CONTINUEMICROPHONE USETO ALTER THE DISPLAY OF THE MICROPHONE,YOU MAY USE THE UP AND DOWN ARROWS TOADJUST THE HEIGHT OF THE DISPLAY.THE LEFT AND RIGHT L! L9̕<<@˕    fLINSERT MIKE CORD INTO PDL(0) SOCKET ...DEPRESS SPACE BAR FOR MICROPHONE MENUDEPRESS ANY OTHER KEY TO BEGIN DISPLAY!1PRESS SPACEBAR TO EXIT12MICROPHONE MENUFOR CONTINUOUS DISPLAY, TYPE <1ȑ` ^_ } SՠZȑZ L   VW {, 6,A" 湱 :,Z목Z"ȱ :,L e B `Z^[ȑ^L*+` P J ' # f ] X$*umoswRxc Ii [Z䢐š eȨ̣̏ͦ͢`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪoo` | \` S80 `   - L'  L L L Lȱ[Z`  i` $ { PZ` $ { 8PPL.` $ { P L8PPPL.  H S L `hL9@˕ Lo` Z[5ŝ ȅ`^_^ȑ^` ^_ ^^( eZZ[`_^  { _^  Z%ﭨ Z[` ` |ȱL- |L7 4  }L  |L LJ  |``` L L Ϫ$IQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i Lh^h_HHvHuHpHoHTHSHop_H^HLhohphuhvhh` PL GL  ` $l Q\%,`\]hhHH &L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q La L ` 0` ee`   f`  j %`hh &HH & &hhlHH / hh , qL- lL aL PL4 GL4 ߚLphh : ȱ T+,'E -+.Я JϦΥ +L. ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL- " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` б^`PQ`^_^^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & G # " 3` :` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^t 4864 ΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з  "" " " " " """""""""