TIB: TI-89 Rough Sketch Code for a , Detection system for strings... Nee
[Prev][Next][Index][Thread]
TIB: TI-89 Rough Sketch Code for a , Detection system for strings... Needs some work, but seems promising.
Has a few problems though... Heck I spent maybe 5 minutes MAX on it...
Was hoping perhaps you could help?
Add this line without the parenthesis to the start of the Program :
( Define C=":" )...
Sample of a Program I'm trying to use it for is included... Pay no attention
to the other stuff in the Program, I'm trying to convert it from the old One
by One Entering method to the new code I'm using...
--- Cut Here ---
InputStr a
dim(a)»j
1»k
a»b
While j>0
j-1»j
k+1»k
shift(a,1)»a
If ord(a)=44 Then
Disp j
Disp k
Pause
If c=":" Then
ªj»h
shift(b,h)»c
Disp c
k»h
shift(b,h)»d
Disp d
Pause
Else
j»h
shift(b,h)»b
ªj»h
shift(b,h)»e
Disp e
k»h
shift(b,h)»f
Disp f
Pause
EndIf
EndIf
--- Cut Here ---
P.S.
If you play EverQuest and would be interested in my EverQuest calculator
Projects please E-Mail me... I'm working on several other calculation
helpers also, such as how many of what NPC type you need to kill per level,
etc...
begin 666 evrqst.89P
M*BI423@Y*BH!`&UA:6X`````````````````````````````````````````
M``````````````````$`4@```&5V<G%S= ``$@```+,%``"E6@`````%62@I
M#5!R9VT-0VQR24\-<V5T36]D92@B17AA8W0O07!P<F]X(BPB15A!0U0B*0U,
M;V-A;"!A+&(L8RQD+&4L9BQW+'@L>2QZ#41E9FEN92!C/2(Z(@U$969I;F4@
M=STBL+"PL+"PL+"PL+"PL+"PL+"PL+"PL+"PL+ B#41E9FEN92!X/2*P(" @
M(" @($5V97)1=65S=" @(" @(" @L"(-1&5F:6YE('D](K!"86YK($-A;&-U
M;&%T;W(@5BX@,"XS,6&P(@U$969I;F4@>CTBL+"PL+"PL+"PL+"PL+"PL+"P
ML+"PL+"PL+ B#41I<W @=PU$:7-P('@-1&ES<"!Y#41I<W @>@U$:7-P(")#
M=7)R96YT(%=E86QT:"(-26YP=713='(@80UD:6TH82D6:@TQ%FL-819B#5=H
M:6QE(&H^, UJ+3$6:@UK*S$6:PUS:&EF="AA+#$I%F$-268@;W)D*&$I/30T
M(%1H96X-1&ES<"!J#41I<W @:PU0875S92 -268@8STB.B(@5&AE;@VM:A9H
M#7-H:69T*&(L:"D68PU$:7-P(&,-:Q9H#7-H:69T*&(L:"D69 U$:7-P(&0-
M4&%U<V4@#45L<V4-:A9H#7-H:69T*&(L:"D68@VM:A9H#7-H:69T*&(L:"D6
M90U$:7-P(&4-:Q9H#7-H:69T*&(L:"D69@U$:7-P(&8-4&%U<V4@#45N9$EF
M#45N9$EF#45N9%=H:6QE#6$J,3 P,!9A#6(J,3 P%F(-8RHQ,!9C#4QB;"!C
M;VYV97)T#6$K8BMC*V0690U$:6%L;V<-5&ET;&4@(D-O;G9E<G-I;VXB#41R
M;W!$;W=N(")#;VYV97)T('1O('=H870B+'LB4&QA=&EN=6TB+")';VQD(BPB
M4VEL=F5R(BPB0V]P<&5R(BPB475I=")]+&8-16YD1&QO9PU)9B!F/3$@5&AE
M;@U';W1O('!L871I;G5M#45L<V5)9B!F/3(@5&AE;@U';W1O(&=O;&0-16QS
M94EF(&8],R!4:&5N#4=O=&\@<VEL=F5R#45L<V5)9B!F/34@5&AE;@U';W1O
M(&5X:70Q#45N9$EF#41I86QO9PU4:71L92 B0W5R<F5N="!796%L=&@B#51E
M>'0@(EEO=7(@=V5A;'1H(&EN($-O<'!E<B!C;VYV97)T<R!T;SHB#51E>'0@
M(B(-5&5X="!S=')I;F<H92D-16YD1&QO9PU';W1O(&5N9 U,8FP@<&QA=&EN
M=6T-92\Q,# P%F4-1&EA;&]G#51I=&QE(")#=7)R96YT(%=E86QT:"(-5&5X
M=" B66]U<B!W96%L=&@@:6X@4&QA=&EN=6T@8V]N=F5R=',@=&\Z(@U497AT
M("(B#51E>'0@<W1R:6YG*&4I#45N9$1L;V<-1V]T;R!E;F0-3&)L(&=O;&0-
M92\Q,# 690U$:6%L;V<-5&ET;&4@(D-U<G)E;G0@5V5A;'1H(@U497AT(")9
M;W5R('=E86QT:"!I;B!';VQD(&-O;G9E<G1S('1O.B(-5&5X=" B(@U497AT
M('-T<FEN9RAE*0U%;F1$;&]G#4=O=&\@96YD#4QB;"!S:6QV97(-92\Q,!9E
M#41I86QO9PU4:71L92 B0W5R<F5N="!796%L=&@B#51E>'0@(EEO=7(@=V5A
M;'1H(&EN(%-I;'9E<B!C;VYV97)T<R!T;SHB#51E>'0@(B(-5&5X="!S=')I
M;F<H92D-16YD1&QO9PU,8FP@96YD#4=O=&\@8V]N=F5R= U,8FP@97AI=#$-
316YD4')G;0`"$AGDY0``"-S3PP``
`
end
References: