This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

TI-Basic => TI-BASIC
 » Goto page 1, 2, 3  Next
Author Message
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

 Posted: 28 May 2009 05:21:49 pm    Post subject: I've made a few 5-10 line programs that do nothing but are cool. If you have any, post them here. I'll start: Code: ```"12345 For(A,1,8 Output(A,1+int(A[sup]2[/sup]/5.5),Ans End```
tiuser1010

Member

Joined: 23 Apr 2009
Posts: 100

 Posted: 28 May 2009 06:56:44 pm    Post subject: Here's a little code Code: ```1->C 0->K 0->G 5->M 10->U Repeat K[s]=[/s]0(Does not equal) getkey->K randInt(1,16)->A randInt(1,8)->A If C=1:Then For(P,1,M Output(A,B,"HELLO" End End If C=2:Then For(P,1,M Output(A,B,"AND" End End If C=3:Then For(P,1,M Output(A,B,"GOODBYE" End End G+1->G If G=U:Then C+1->C 0->G End If C=4:1->C End``` If you change the varibles at the top of the code it will cahnge how long each word will stay on the screen
woodswolf

Joined: 26 Feb 2009
Posts: 53

 Posted: 29 May 2009 04:36:28 am    Post subject: 20-line code Code: ```:Delvar C :Output(1,1,"+--------------+!(  ) (  ) (  )!! )(   )(   )( !!(  ) (  ) (  )!! )(   )(   )( !!(  ) (  ) (  )!+--------------+!Score:      ! :Starttimer->D :Lbl 0 :Output(8,8,C :int(9rand->X :int(1+X/3->A :X-3A+3->B :Output(2A,3+5B,"{} :Repeat A-1=iPart(Ans) and B=10fPart(Ans :.1(getkey-72 :If 30=Checktimer(D :Goto 1 :End :Output(2A,3+5B,"  :C+1->C :Goto 0 :Lbl 1 :Output(8,13,"WIN :Pause``` Everybody knows this game... EDIT: 5-10 line codes are rare, I try to make something that follows that rule Last edited by Guest on 29 May 2009 04:38:40 am; edited 1 time in total
woodswolf

Joined: 26 Feb 2009
Posts: 53

 Posted: 29 May 2009 04:50:57 am    Post subject: Forgot I still had this one! Code: ```:Axesoff :FnOff :ClrDraw :For(A,1,94,2 :Line(Xmin+AΔX,Ymin+AΔY,Xmax-AΔX,Ymin+AΔY :Line(Xmin+AΔX,Ymin+AΔY,Xmin+AΔX,Ymax-AΔY :Line(Xmin+AΔX,Ymax-AΔY,Xmax-AΔX,Ymax-AΔY :Line(Xmax-AΔX,Ymax-AΔY,Xmax-AΔX,Ymin+AΔY :End``` Xvirus Last edited by Guest on 29 May 2009 04:51:24 am; edited 1 time in total
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

 Posted: 29 May 2009 05:24:29 pm    Post subject: woodswolf wrote:EDIT: 5-10 line codes are rare, I try to make something that follows that rule It's ok if they don't, but don't make them too long Here's another:Code: ```ZStandard ZSquare For(A,10,1,-1 Circle(0,0,A,{i End```(The i is from [2nd] [.]) Edit: I like Xvirus!Last edited by Guest on 29 May 2009 05:42:14 pm; edited 1 time in total
IAmACalculator
In a state of quasi-hiatus

Know-It-All

Joined: 21 Oct 2005
Posts: 1571

 Posted: 29 May 2009 06:00:17 pm    Post subject: I must have a billion of these useless little animations lying around, but they're mostly for the 89. This one's one of my favorites. scrltxt(s,n) Prgm Local x 0 -> x While getKey() = 0 Disp rotate(s,x) mod(x+n,dim(s)) -> x EndWhile Pause ClrIO DispHome EndPrgmLast edited by Guest on 11 Jul 2010 03:15:55 pm; edited 1 time in total
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

 Posted: 29 May 2009 07:06:42 pm    Post subject: I don't have a 89. Can you explain what it does? By the way, games might go better in 5 minute programs.
tiuser1010

Member

Joined: 23 Apr 2009
Posts: 100

 Posted: 29 May 2009 07:31:33 pm    Post subject: Quote:Forgot I still had this one! Code: ```:Axesoff :FnOff :ClrDraw :For(A,1,94,2 :Line(Xmin+AΔX,Ymin+AΔY,Xmax-AΔX,Ymin+AΔY :Line(Xmin+AΔX,Ymin+AΔY,Xmin+AΔX,Ymax-AΔY :Line(Xmin+AΔX,Ymax-AΔY,Xmax-AΔX,Ymax-AΔY :Line(Xmax-AΔX,Ymax-AΔY,Xmax-AΔX,Ymin+AΔY :End``` Xvirus How do you get the ΔY and ΔX on your calc or does the triangle mean times
dxfan101010

Member

Joined: 31 Mar 2008
Posts: 194

 Posted: 29 May 2009 11:38:42 pm    Post subject: its under the vars menu i think its here. Vars Window 8 is ΔX and 9 is ΔY
IAmACalculator
In a state of quasi-hiatus

Know-It-All

Joined: 21 Oct 2005
Posts: 1571

 Posted: 30 May 2009 06:31:14 am    Post subject: ztrumpet wrote:I don't have a 89. Can you explain what it does?It's easier to show you: scrltxt("ABCDEFG",1) would return ABCDEFG BCDEFGA CDEFGAB DEFGABC etc...Last edited by Guest on 11 Jul 2010 03:15:38 pm; edited 1 time in total
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

 Posted: 04 Jun 2009 09:41:39 am    Post subject: Here's another cool one:Code: ```For(A,Ymin,Ymax,ΔY Horizontal A End Repeat getKey {randInt(0,62),randInt(0,94),randInt(0,94 For(A,Ans(2),Ans(3),1-2(Ans(2)>Ans(3 Pxl-Change(Ans(1),A End End```
geekboy1011

Joined: 13 May 2009
Posts: 99

 Posted: 04 Jun 2009 03:47:50 pm    Post subject: What is x virus supposed to look like cool though i like all the ones i tried i ll try to make one
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

 Posted: 04 Jun 2009 04:01:14 pm    Post subject: I'll have an xvirus screenshot in 5 minutes... Here:Last edited by Guest on 04 Jun 2009 04:03:49 pm; edited 1 time in total
woodswolf

Joined: 26 Feb 2009
Posts: 53

 Posted: 04 Jun 2009 04:35:34 pm    Post subject: ztrumpet, I like the randomness of your last little piece of code. and yup, thats my Xvirus .
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

 Posted: 04 Jun 2009 05:21:59 pm    Post subject: Thanks! My favorite one here is Xvirus.
woodswolf

Joined: 26 Feb 2009
Posts: 53

 Posted: 18 Jun 2009 04:58:49 pm    Post subject: Don't know if you guys are gonna like this one: Code: ```:2→Xmin:1→ΔX :2→Ymin:1→ΔY :ClrDraw:Axesoff:CoordOn :For(A,2,96 :For(X,A,96,A :For(Y,A,64,A :Pt-On(X,Y :End :End :End interactive divide checker``` Run the program to see cool points who start covering the screen. You can check if a number is prime when you go down/left from that line that starts of in the left-corner and the number is prime when there are no points under or left of it
ztrumpet

Active Member

Joined: 06 May 2009
Posts: 555

 Posted: 21 Jun 2009 12:22:50 pm    Post subject: Cool, but it takes a while. I like xvirus better.
dxfan101010

Member

Joined: 31 Mar 2008
Posts: 194

 Posted: 21 Jun 2009 03:11:23 pm    Post subject: Xvirus is pretty cool
woodswolf

Joined: 26 Feb 2009
Posts: 53

 Posted: 21 Jun 2009 07:10:54 pm    Post subject: Yeah but, I can't seem to think of any program that can compete with Xvirus other then that prime checker
tiuser1010

Member

Joined: 23 Apr 2009
Posts: 100

 Posted: 22 Jun 2009 07:28:44 am    Post subject: Here's something else i came up with Code: ```:ZStandard :AxesOff :For(X,1,10 :Line(X,9,-X,-9 :End :For(X,-10,1 :Line(X,9,-X,-9 :End```Last edited by Guest on 22 Jun 2009 09:55:34 am; edited 1 time in total
 Display posts from previous: All Posts Oldest FirstNewest First
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

»
 » Goto page 1, 2, 3  Next Page 1 of 3 » All times are UTC - 5 Hours