A85: linkport example


[Prev][Next][Index][Thread]

A85: linkport example




Here is a program I recompiled for ASH 3.0 on the ti-82.  It just tests
to see if the red and/or white wire is connected to the ground wire.  If
so, it returns a "1".  ASH 3.0 is virtually the same as ZSHELL 4.0, so I
don't think you'll have to change much to convert it to Zshell (except
the ti82 linkport is port 0)
~Larry C
Larry1492@juno.com

begin 664 lkprtash.zip
M4$L#!!0``@`(`">&#B-7]15*QP```!T!```,````3&EN:W!O;&0N.#)PT](*
M\;0PTM*2XF(`,10*BO+3BQ)S%=(R<U(5TE/S4HL22U)3%)(J%0*"W'V!"D#@
M"0,WPU4&5A]//^\`_Z"0JPR7&6XR*)R=UCO+0FM*KV``@R0C`\-;9YX&H-`O
MB]L,C$P\(-YI=P46.T,))CL#H+B%.2,S6/0VPVE_%/&S5QC_F9^0.*&KJZO@
MDYF7'9):7*(`XF"`(*#+PC.+4JW`O/",S))4)#XAX%2IX)B74I1:KA"265"2
MGZ>1K*E@:&EI#I5F6&L+`%!+`P04``(`"``EA@XC*DQ@$*D"``!O!0``#```
M`$QI;FMP;VQD+F%S;9U476_:,!1]#A+_X8JA*9%"%LI#6U`UI8%U5</*0B:V
MO2#C..`UQ)'C"-%?O^N$4/JQ39I?8ON><Z_/_<@(@MLO=]%D'CG>?`H]F$FQ
MEF0+2H!D)(:49P^0"ZF@4$25A=-NC>!Z#UX62[:#B.=*9,C[Q%@*B61,,\L"
M/QM>`,^`9'O8D3WL10EYRDC!T(-A@%Z3[_YD%@$5VRV3E)-4,QT86NU6N_6.
M9S0M8P8=Q2_.G$U'7SI"KL'5.R.\GRY]+PA,/YAX8>"/+6/D8P`)N$=[&L,F
MM<&<A?<WH3==>N-QB)!`$&V`W0>M"'6)!'*YWM:,F-DP)3R;4YD9![`6$:/:
MHM*CL9JC-@RVB(2"HNH,Z0C2$6.&Q!NF@*P*D9:*'=G(:GS7T5;4[KJXFDC5
M`8-4R5_S0C&)F!IK=B]<U[?L%6W0)Y":$XJ=[8L44"VD@A+%17::J/'R9[2<
M1SH+8U[D*5:E4))G:R#J2$`)[5:`50^$R(=(U_)MT[4P;*@[HFH&+(&!:W3-
M<6^&++;@/>A#WUQLN&(6$,G`O1))8D/_2IP*]MTSX^D%&!K?C=+/;-"/1[OQ
M6C'>K'0HF^#NEX3LT3XX"-T:3>SNH%\;(U8H?`N>CICA$PCQ#6!XFITH7/J?
MO7#V+<+\S$H%=$,DH3K!F)6X]O1,QN`M&8-_R&C2>5#4?ZUH\5K1'=OK<AP%
M+5X(.MC_2P\E:0HWDVAY-_G1="X\L#U.L]C"JDP2)C4LA^[@7-?\%N=`P=>2
MJX]X+Q'_6%TG4`@;NU*557_CLYLV0NL]SHO<\0+GBVX8?:A^+"?_%2!K'`T]
MV,V(:#%.O().K]>K/.FJ`1XZC0%>K!,#=B0LN&3#YX:J-]\R_,75'PPO_X%'
M@TDMZ%]>GC<$V]5E=U@6MUN_`5!+`P04``(`"`#S9<(DF%Z!2](````D`0``
M#````$QI;FMP;W)T+C@R<-/2"O&T,-+2DN)B""C*3R]*S%5(R\Q)54A)+$E-
M43`PTS<PTK>TT%$P-+(R,6=@%EKQO.F[^&L&;H8[#&P^GG[>`?Y!(7<8;C'<
M9##PR<S++DDM+E&P,%)09#A;TCO+0I&!08FG03%Z(I#WR^(V@R(3#Y!_VEV!
MQ<Y0@LG.`"AL8:[(#!*\S7#:'T7X[!7&?^8G)$[IZNHJ@(P.`1D-XF"`(*!+
MPS.+4JW`O/",S))4)#XAX%2IX)B74I1:KA"265"2GZ>1K*E@:&EI#I5F>&(+
M`%!+`P04``(`"`#K:<(DE'O%:3L#``"S!@``#````$QI;FMP;W)T+F%S;9U5
M46_:,!!^#A+_X<;0%*0T"C!I+:C;TL"VJNE@22:VO2"3&.(VV,AQQ-BOWSD)
M:>G6/<P2),?=?;[[[K,9@W_]^2::AI'MAK=P!G,I-I)L00F0E"20,7X/.R$5
MY(JH(K?;K3%<'<#EB:1[B-A."8YY'RC-8"TIU9E%CH^4Y<`X$'Z`/3G`012P
MRRC)*2(8!N@U_>9-YQ'$8KNE,F8DTYDVC'IZDX#N)5.*<@LK*4.XH@GB)96]
M8QF::R'!#3_!T'9`9P&L#N`3*0_@%5(R:E56__7%X/U=P86-J>U6N_62\3@K
M$@H=Q<X'=MIIMVPA-Q!&;A`MW<DDP!\F5]#QD0%%<P7G`WC1L<#1V48PNUUZ
MKN^;GC]U`]^;](RQA^U)P'?T9PFDF05=!Y=AC'V!7)8&<E)RNV&YHA*#JF#3
M^QJ$LV`YGX4]*\WJC$=A55X@]I8G,@C<6\A$3!03O-GMEC`>QI(?]U/TI]+C
M2%B^RW`$)4*Y85/]9/DC6H91@-5/ZJA<2<8W8*9B2_,8)\I+H!X0U6Q9HK1;
MFAI?B-T((?6H+=/IX>:!%DZI&>3*P#6^8OAN!C3IP2O01M]<I$Q1!)44G$NQ
M7EO0OWS42]?QG('Q4!5NCKTCA0,+-`'H-YYA+J38=4HA+F2.ZJA8^R-SI4NR
MB*[N.H?2`E.BHO9,8EV"O\.@.PG\EU77$.A!7J^!"V7!1B!NXZ@J(59WV,<8
M_$89S=X"J2`B5`\VK5T?==K1UA0V$*,'#*?$<!J,=NN8,7H\NRA8>I_<8/XU
MPNG-"P5Q2B2)M5QP0O703P@=_HW0X1^$=L\=QRNYK,CT&B([':@_IQ/?4*6T
M:'+4#!Y\?%M+L2TO#ZV#FN[^"=U],/=:`\\3OOA?PF_H0<M2%Z:S:K,A>W%"
M=KM5^_^+W)AD&7R<1LN;Z7<]7Z2+P#T]5`2LBO6:2AVV@^[P3=T]-O^E8$KW
M*S'^EU&UF0M]TZE"\JJ+X^E"[PSU+/<LQ]LL3FE\WS!;W\I`-GCVM5*.=X!N
MQDY6T#D[.RN1M(0`C8YU],"3]=B#1Q46.)?1$T]Y:O_J^1?:<YZG_R,/'C/N
M0?_BXDV3XJ`X;<J3=NLW4$L#!!0``@`(`,MJPB10^9S1A0(``"\$```*````
M<F5A9&UE+G1X=$U3RV[;,!"\&_`_#'()4-B"X^;0'`+42=W&:%Z-A;I76EQ+
M;&A2Y2.._KZ[4ISV((I+[F-V=HC;U?WW<KDNB\7Z#E,\!E\'M4?R"*0TK''/
M:'U(B$FE'(OQ:(JO1!:[0"1N.?*O,1'&0;D.!]6A\QFM)<57RU_7R\<2E=_O
M*51&60G@+./10S"U\8Y/KCHLG`YT0&G:Y!TP'N&)#L&D1&["2/IPETAS"3W8
MK;%L[GS`8GV#C\5,@H!MAUL50H?K'(*AR6"=G5_,/__.SA<<*<7+_.2P\4\:
MF[!H\>!P[S?CT96*IE+6=A/PBA6TT=Q11-4H5TNCA(9YH?`&I#8QL;&MA(K&
M%L`JG4:<[+L3[$R(":I*F7M4<8_V2&ZC$E:G+P3M'4G,<0\%ZQ/\#I_F3,:T
MQ\/^/M<-$US9K(VK\2VHMA&@[%--2\6?)YP7L\E_5YM&5<_3Q?3.6\*\N)C@
M1U8ZJ,09EW\R_SUS^]-$@7=/!R:>D>^)J^D)OIC8$M//.ZKF5SQ<_N:\[QN7
MLQMZY;&Z%PK,@`BC%!4<>SP8YB^1+,S9(![IJV0KO,WQT)A$[!E(U!.-'@CN
M-5>IK15J9I=^MYO@[%)D(<'>V4%D*TX?11(F]2/B`53!Q]CGD!*26$[%KH//
MCMN2LF+_*RT>PVTA!;B%'GIM>"2B8X4SKMD':>;$<F7&FN1Q<#LSF1ZX7\=C
M4SWT_K7L5:\+YT4H($M5"MZ9*B+FED)-SC`?T0_MT"N?&5$X%T_-.PM]*M8*
MXPCP!X=@XO,1YI'I-:O#:MP_\"L+*C:#-RN@*K#-B3&@SBHH?CXTC(E)?'][
M;UDB%%.A+",:9"8CBKCM05A=?!B/"G+Z+U!+`0(R"Q0``@`(`">&#B-7]15*
MQP```!T!```,````````````(`"V@0````!,:6YK<&]L9"XX,G!02P$",@L4
M``(`"``EA@XC*DQ@$*D"``!O!0``#``````````!`"``MH'Q````3&EN:W!O
M;&0N87-M4$L!`C(+%``"``@`\V7"))A>@4O2````)`$```P````````````@
M`+:!Q`,``$QI;FMP;W)T+C@R<%!+`0(R"Q0``@`(`.MIPB24>\5I.P,``+,&
M```,``````````$`(`"V@<`$``!,:6YK<&]R="YA<VU02P$",@L4``(`"`#+
M:L(D4/F<T84"```O!```"@`````````!`"``MH$E"```<F5A9&UE+G1X=%!+
4!08`````!0`%`"`!``#2"@``````
 
end 

_____________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]


References: