Re: LZ: **VERY** wierd idea. Be careful...


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

Re: LZ: **VERY** wierd idea. Be careful...



huh? i thought i posted that yesterday... oh well here it is again.


===================================================================
Lynx / CTBx
===========
Lynx 2.0 for the TI-85 Calculator
CTBx 1.5 for the TI-85 Calculator


Lynx is a two part communication system for the TI-85 Graphics Calculator.
It is implemented as a Communications Library, which provides something
like UN*X sockets, along with a Driver/ Shell.  This package is similar to
UN*X "talk".


Lynx is the actual driver application.  It calls the routines in CTBx. As
you may have guessed, CTBx is short for Comm ToolBoX. It works by making
repeated calls to CBLGET, and comparing the reply to a buffer of the last
response. This has the effect of updating only one line on the display as
opposed to filling the entire display needlessly with copies of the last
response.


CTBX is invoked by storing 1 or 2 into the variable "x".  In mode 1, D
must be defined, and should contain the data to be sent, preferably as a
string.  Mode 2 will cause the contents of D to be overwritten if any new
data is received. These requirements are automatically fulfilled by the
Lynx program.  CTBx does not provide a true socket library, but it's a
good place to start for building network applications.  By using the CTBx
library, all your programs have a well defined place to go fetch net data.


This program may be distributed anywhere as long as this file accompanies
it in either printed or electronic form. If you have any bugs, questions,
comments,  feature requests, or anything else that doesn't fit in any of
these catagories, you can send e-mail to ckuethe@gpu.srv.ualberta.ca






==========Licence=====================================================


Very simply, I wrote these two programs, so please don't say you did. It
worked on my calculators, but I cannot guarantee it will work on yours.
What else is new? I will do what I can to help you get the program
working, but I will not take the blame for anything that goes wrong.
Finally, if it works for you, give it to your friends. Just don't change
it and pass it on.  It make it hard for me to do tech support that way.
And if you really want to, you can use parts of my code to write the next
killer network game on the TI-85.  A little credit in your documentation
would be nice, though. Something like "Portions created by Mindwerks
Digital" will do.


==========Binary Distribution=========================================
----begin uue----
begin 664 CTBx.85p
M*BI423@U*BH:#`!#0DP@4V]C:V5T(%-E<G9I8V5S````````````````````
M``````````"\``@`L``2!$-40GBP`*X``$EF*'@]/3$I.E1H96[61&amp;ES<"`B
M0T),4%54(BQ$UD-L3$-$UD5N9-9)9B`H>#T],BDZ5&amp;AE;M9);G!U="`B0T),
M1T54(BQ$UDEF("A$/3TB*D)912HB*3I4:&amp;5NUD-L3$-$UD1I<W`@(B`@($QI
M;FL@5&amp;5R;6EN871E9"!B>2(L(B`@("`@4F5M;W1E($AO<W0BUB(@(AQ$.E-T
4;W`Z16YDUD5N9#I2971U<F[6KSR0
end
end 


----begin uue----
begin 664 Lynx.85p
M*BI423@U*BH:#`!-86EL("\@5&amp;%L:R!C;&amp;EE;G0`````````````````````
M``````````#P``@`Y``2!$QY;GCD`.(``$-L3$-$UC`<0=8R''@Z0U1">-9$
M'$+61&amp;ES<"!"UE=H:6QE("A!(#T@,C(IUC(<>#I#5$)XUDEF("A"/40I.D]U
M='!T*$0L,2PQ*=9$'$+6268@*$$]/3,Q*3I4:&amp;5NUDEN<%-T(")$871A.B(L
M1-8Q''@Z0U1">-90875S92`B6T5.5$5272+60VQ,0T0Z16YDUF=E=$MY'$'6
M16YDUB(J0EE%*B(<1#HQ''@Z0U1">-8B("(<1#HQ''@Z0U1">-9#;$Q#1#I$
;:7-P("(@("!,:6YK(%1E<FUI;F%T960BUGQ.
end
end 


==========Source Distribution=========================================


\START\
\COMMENT=CBL Socket Services
\NAME=CTBx
\FILE=CTBx.85p
If(x==1):Then
Disp "CBLPUT",D
ClLCD
End
If (x==2):Then
Input "CBLGET",D
If (D=="*BYE*"):Then
ClLCD
Disp "   Link Terminated by","     Remote Host"
" "\->\D:Stop:End
End:Return
\STOP\


\START\
\COMMENT=Mail / Talk client
\NAME=Lynx
\FILE=Lynx.85p
ClLCD
0\->\A
2\->\x:CTBx
D\->\B
Disp B
While (A = 22)
2\->\x:CTBx
If (B=D):Outpt(D,1,1)
D\->\B
If (A==31):Then
InpSt "Data:",D
1\->\x:CTBx
Pause "[ENTER]"
ClLCD:End
getKy\->\A
End
"*BYE*"\->\D:1\->\x:CTBx
" "\->\D:1\->\x:CTBx
ClLCD:Disp "   Link Terminated"
\STOP\




<pre>
--
Chris Kuethe <ckuethe@gpu.srv.ualberta.ca> LPGV Electronics and Controls


RSA in 3 lines of PERL:
#!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj
$/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1
lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=pack('H*',/((..)*)$/)
</pre>


References: