TIB: Re: Re: New to this but.....


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

TIB: Re: Re: New to this but.....




Here's the file...

Run it on your calculator and you'll see...


----- Original Message -----
From: Miles Raymond <m_rayman@bigfoot.com>
To: <ti-basic@lists.ticalc.org>
Sent: Saturday, April 03, 1999 11:36 AM
Subject: TIB: Re: New to this but.....


>
> I don't understand a lot of your code...  I assume that this is for
89/92/+,
> right?  Anyway, I though that Define was only for a subroutine, and it has
> to be either a program or a function...  I could be wrong...
>
> -Miles Raymond      EML: m_rayman@bigfoot.com
> ICQ: 13217756       IRC: Killer2        AIM: MRayMan
> http://www.bigfoot.com/~m_rayman/
>
> -----Original Message-----
> From: Andon Coleman <gizmo98@earthlink.net>
> To: ti-basic@lists.ticalc.org <ti-basic@lists.ticalc.org>
> Date: Saturday, April 03, 1999 12:22 AM
> Subject: TIB: New to this but.....
>
>
> >I have a WEEEE little problem here...
> >Don't mind my Source it's a little F'ed up right now because I've been
> >trying to get it to fit on the screen any way possible...
> >
> >Here
> >
> >Take a look...
> >
> >()
> >Prgm
> >Define ?=""
> >ClrIO
> >Disp "","","","","   Andon13's Encryption","  Toolkit Version 0.7.1c"
> >Dialog
> >Title "     EnCrYpTiOn ToOlZ"
> >DropDown "Use your own Encryption KEY?",{"Yes","No"},
> >EndDlog
> >If =2 Then
> >Goto default
> >DelVar 
> >EndIf
> >Goto custm
> >Lbl default
> >Define ?=3
> >Define =6
> >Define .=9
> >Define ?=4
> >Goto test
> >Lbl custm
> >ClrIO
> >Disp "Enter 'KEY MATRIX'"
> >Disp "Enter 1st Variable:"
> >[[0,0][0,0]]mat1
> >Disp mat1T
> >Input ?
> >ClrIO
> >[[?,0][0,0]]mat2
> >Disp mat2T
> >Disp "Enter 2nd Variable:"
> >Input 
> >ClrIO
> >[[?,0][,0]]mat3
> >Disp mat3T
> >Disp "Enter 3rd Variable:"
> >Input .
> >ClrIO
> >[[?,.][,0]]mat4
> >Disp mat4T
> >Disp "Enter 4th Variable:"
> >Input ?
> >ClrIO
> >[[?,.][,?]]mat5
> >Disp mat5T,"","This will be your","encryption KEY MATRIX"
> >Pause
> >Lbl test
> >[[?,.][,?]]mat0
> >If ?*-.*?=0 Then
> >ClrIO
> >Disp mat0T," Has no inverse"
> >Disp "Sorry, but that KEY MATRIX","is not workable"
> >Pause
> >Goto custm
> >EndIf
> >---SUB-ROUTINE---
> >ClrIO
> >Dialog
> >Title "Encryption test"
> >Text ""
> >Text "Enter what you wish to encrypt below"
> >Text ""
> >Request "ENCRYPT THIS?",e
> >EndDlog
> >dim(e)g
> >Loop
> >ClrIO
> >ord(e)y
> >Define a=char(y)
> >g-1g
> >Disp g
> >shift(e,1)e
> >ord(e)x
> >Define c=char(x)
> >y*+x*?S
> >y*?+x*.'
> >[[S,']]i
> >?&string(i)&","?
> >g-1g
> >If go0 Then
> >Goto encrypt
> >EndIf
> >Disp g
> >shift(e,1)e
> >EndLoop
> >Lbl encrypt
> >ClrIO
> >label
> >[[y*+x*?][y*?+x*.]]mat3
> >Disp "","","","","Encoded Matrix:"
> >Disp mat3T
> >ClrIO
> >Disp "Remember your 'KEY MATRIX'",""
> >Disp mat0T,""
> >Disp "Hit ENTER to view results"
> >Pause
> >Disp "End Results"
> >Disp ?
> >Pause
> >Pause
> >EndPrgm
> >
> >I went as far as to do an
> >If dim(?)>=15 Then
> >.... .... .... But that didn't even seem to help... Any suggestions on
how
> >to word wrap?
>
>
>


begin 666 TEST.89p
M*BI423DR4"H!`&UA:6X````````````````R`!A4CUDPV]] YTJ8`X=*6 >'
M2C(`6 =(VUQ!YTH85 $`4@```'1E<W0`````$@```"D&``"E6@`````%SR@I
M#5!R9VT-1&5F:6YE((<](B(-0VQR24\-1&ES<" B(BPB(BPB(BPB(BPB(" @
M06YD;VXQ,R=S($5N8W)Y<'1I;VXB+"(@(%1O;VQK:70@5F5R<VEO;B P+C<N
M,6,B#41I86QO9PU4:71L92 B(" @("!%;D-R67!4:4]N(%1O3VQ:(@U$<F]P
M1&]W;B B57-E('EO=7(@;W=N($5N8W)Y<'1I;VX@2T59/R(L>R)997,B+").
M;R)]+) -16YD1&QO9PU)9B"0/3(@5&AE;@U';W1O(&1E9F%U;'0-1&5L5F%R
M() -16YD268-1V]T;R!C=7-T;0U,8FP@9&5F875L= U$969I;F4@@#TS#41E
M9FEN92"!/38-1&5F:6YE((4].0U$969I;F4@ACTT#4=O=&\@=&5S= U,8FP@
M8W5S=&T-0VQR24\-1&ES<" B16YT97(@)TM%62!-051225@G(@U$:7-P(")%
M;G1E<B Q<W0@5F%R:6%B;&4Z(@U;6S L,%U;,"PP75T6;6%T,0U$:7-P(&UA
M=#&9#4EN<'5T(( -0VQR24\-6UN +#!=6S L,%U=%FUA=#(-1&ES<"!M870R
MF0U$:7-P(")%;G1E<B R;F0@5F%R:6%B;&4Z(@U);G!U=""!#4-L<DE/#5M;
M@"PP75N!+#!=719M870S#41I<W @;6%T,YD-1&ES<" B16YT97(@,W)D(%9A
M<FEA8FQE.B(-26YP=70@A0U#;'))3PU;6X LA5U;@2PP75T6;6%T- U$:7-P
M(&UA=#29#41I<W @(D5N=&5R(#1T:"!687)I86)L93HB#4EN<'5T((8-0VQR
M24\-6UN +(5=6X$LAEU=%FUA=#4-1&ES<"!M870UF2PB(BPB5&AI<R!W:6QL
M(&)E('EO=7(B+")E;F-R>7!T:6]N($M%62!-051225@B#5!A=7-E( U,8FP@
M=&5S= U;6X LA5U;@2R&75T6;6%T, U)9B" *H$MA2J&/3 @5&AE;@U#;'))
M3PU$:7-P(&UA=#"9+"(@2&%S(&YO(&EN=F5R<V4B#41I<W @(E-O<G)Y+"!B
M=70@=&AA="!+15D@34%44DE8(BPB:7,@;F]T('=O<FMA8FQE(@U0875S92 -
M1V]T;R!C=7-T;0U%;F1)9@VI+2TM4U5"+5)/551)3D4M+2VI#4-L<DE/#41I
M86QO9PU4:71L92 B16YC<GEP=&EO;B!T97-T(@U497AT("(B#51E>'0@(D5N
M=&5R('=H870@>6]U('=I<V@@=&\@96YC<GEP="!B96QO=R(-5&5X=" B(@U2
M97%U97-T("(214Y#4EE05"!42$E3/R(L90U%;F1$;&]G#61I;2AE*19G#4QO
M;W -0VQR24\-;W)D*&4I%GD-1&5F:6YE(&$]8VAA<BAY*0UG+3$69PU$:7-P
M(&<-<VAI9G0H92PQ*19E#6]R9"AE*19X#41E9FEN92!C/6-H87(H>"D->2J!
M*W@JAA:*#7DJ@"MX*H46D@U;6XHLDEU=%FD-AR9S=')I;F<H:2DF(BPB%H<-
M9RTQ%F<-268@9YPP(%1H96X-1V]T;R!E;F-R>7!T#45N9$EF#41I<W @9PUS
M:&EF="AE+#$I%F4-16YD3&]O< U,8FP@96YC<GEP= U#;'))3PUL86)E; U;
M6WDJ@2MX*H9=6WDJ@"MX*H5=719M870S#41I<W @(B(L(B(L(B(L(B(L(D5N
M8V]D960@36%T<FEX.B(-1&ES<"!M870SF0U#;'))3PU$:7-P(")296UE;6)E
M<B!Y;W5R("=+15D@34%44DE8)R(L(B(-1&ES<"!M870PF2PB(@U$:7-P(")(
M:70@14Y415(@=&\@=FEE=R!R97-U;'1S(@U0875S92 -1&ES<" B16YD(%)E
M<W5L=',B#41I<W @APU0875S92 -4&%U<V4@#45N9%!R9VT````9Y.4```C<
"_=,`
`
end



References: