Omnimaga

Calculator Community => TI Calculators => TI-BASIC => Topic started by: Ding_Programs on October 02, 2008, 06:03:09 pm

Title: Discuss
Post by: Ding_Programs on October 02, 2008, 06:03:09 pm

ClrDraw
:DelVar A15→B
:Text(1,82,"             
:Text(0,82," LET
:" →Str1
:Repeat max(M={45,105,21
:‾5→C
:Repeat M=23 or max(Ans={21,45,105}) or (not(A)M>40 and not(A)M<95 and M≠44) or max(AAns={92,93,94,102,82,83,84,72,73,74
:C+1-10(C>4→C
:Text(29,B,sub(" [",1+(Ans>0),1
:Text(29,B+1,"
:If M=31
:Then
:not(A→A
:Text(0,83,sub("LETNUM",3A+1,3
:End
:getKey→M
:End
:If min(M≠{21,105,45,23
:Then
:If A
:Then
:sub("0123456789",27-3int(.1M)+10fPart(.1M)+2(M=102),1
:Text(29,B,Ans
:Str1+Ans→Str1
:B+4→B
:Else
:sub("ABC  DEFGHIJKLMNOPQRSTUVWXYZθ",M-5int(.1M)-20,1
:Text(29,B,Ans
:Str1+Ans→Str1
:B+4→B
:End
:Else
:If M=23 and 1<length(Str1
:Then
:B-4→B
:Text(29,Ans,"     
:sub(Str1,1,length(Str1)-1→Str1
:End
:End
:End

Discuss

Title: Re: Discuss
Post by: DJ Omnimaga on October 03, 2008, 01:57:21 am

mhmm I don't understand the meaning of this topic, is it a game where we must optimize this program or are you asking for optimizing help? If it's the later I'll move the topic in the Calc help and support section

Title: Re: Discuss
Post by: Ding_Programs on October 03, 2008, 07:17:18 am

no, it's a bit of code that display inputs text on the graph screen. and yes, i put this in the wrong section sorry... Oh, and yes please help optimize

Title: Re: Discuss
Post by: tifreak on October 03, 2008, 03:38:48 pm

:C+1-10(C>4→C

to

:C-9(C>4->C

Otherwise, things look ok on a simple pass through... I created something like this myself.. http://www.ticalc.org/archives/files/fileinfo/363/36335.html  I know it is not heavily optimized, though it might give you some ideas on how to possibly do something different?

Title: Re: Discuss
Post by: Ding_Programs on October 03, 2008, 03:55:15 pm

oh, oops lol thanks