Omnimaga

General Discussion => Other Discussions => Humour and Jokes => Topic started by: Yeong on October 04, 2011, 08:09:43 pm

Title: Let us make some random programs
Post by: Yeong on October 04, 2011, 08:09:43 pm

Rule: Must be TI-BASIC (Srry, AXE Fans  >:D )
add 1 line per post XD

Code: [Select]

prgmTHEGAME
:ClrHome

Title: Re: Let us make some random programs
Post by: NecroBumpist on October 04, 2011, 08:11:07 pm

Quote from: yeongJIN_COOL on October 04, 2011, 08:09:43 pm

Rule: Must be TI-BASIC (Srry, AXE Fans  >:D )

-1 for hating Axe, and excluding Lua.

Title: Re: Let us make some random programs
Post by: Yeong on October 04, 2011, 08:12:53 pm

Quote from: NecroBumpist on October 04, 2011, 08:11:07 pm

Quote from: yeongJIN_COOL on October 04, 2011, 08:09:43 pm

Rule: Must be TI-BASIC (Srry, AXE Fans  >:D )

-1 for hating Axe, and excluding Lua.

I never learned Lua(I don't have nspire cx either). Plus, I don't hate axe. I just program TI-BASIC more :P
Also, I think it's wrong to rate me down just because you think I hate axe.

Code: [Select]

prgmTHEGAME
:ClrHome
:1->A

Title: Re: Let us make some random programs
Post by: collechess on October 04, 2011, 08:23:35 pm

Return

Code: [Select]

prgmTHEGAME
:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAMEThe L is the little list thing.

Title: Re: Let us make some random programs
Post by: Yeong on October 04, 2011, 08:24:46 pm

Code: [Select]

prgmTHEGAME
:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME->Str1


Title: Re: Let us make some random programs
Post by: ztrumpet on October 04, 2011, 08:31:00 pm

Code: [Select]

prgmTHEGAME
:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME->Str1
:DelVar S8->B

Title: Re: Let us make some random programs
Post by: Yeong on October 04, 2011, 08:32:12 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME
:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME->Str1
:DelVar S8->B

Title: Re: Let us make some random programs
Post by: collechess on October 04, 2011, 08:32:20 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME
:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVar S8->B
:For (B,1,7)


Title: Re: Let us make some random programs
Post by: Yeong on October 04, 2011, 08:33:46 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME
:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B


Title: Re: Let us make some random programs
Post by: calcdude84se on October 04, 2011, 09:17:58 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME
:Stop:"HAMMER TIME
:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B


Title: Re: Let us make some random programs
Post by: Yeong on October 04, 2011, 09:30:14 pm

Quote from: calcdude84se on October 04, 2011, 09:17:58 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME
:Stop:"HAMMER TIME
:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B


no stopping prgm at beginning is not permitted :P

Title: Re: Let us make some random programs
Post by: yunhua98 on October 04, 2011, 10:40:57 pm

adding lines at the beginning should not be permitted.

Title: Re: Let us make some random programs
Post by: Hayleia on October 06, 2011, 03:38:30 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
ERR:Label !!!!! :w00t:

Title: Re: Let us make some random programs
Post by: Scipi on October 06, 2011, 03:48:28 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4


Title: Re: Let us make some random programs
Post by: Hayleia on October 06, 2011, 03:49:30 pm

NUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU !!!!
Try to fix this one

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 4444
:P

Title: Re: Let us make some random programs
Post by: Stefan Bauwens on October 06, 2011, 03:49:37 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 5


Title: Re: Let us make some random programs
Post by: ben_g on October 06, 2011, 03:53:50 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 5
:Lbl 5:Goto 5:"This line will freeze the calc untill you press on  >:D


Title: Re: Let us make some random programs
Post by: Stefan Bauwens on October 06, 2011, 03:57:35 pm

I don't think that's allowed. Besides, it counts as two lines!

Title: Re: Let us make some random programs
Post by: aeTIos on October 06, 2011, 03:57:44 pm

haha

Title: Re: Let us make some random programs
Post by: ben_g on October 06, 2011, 03:59:54 pm

Quote from: Stefan Bauwens on October 06, 2011, 03:57:35 pm

I don't think that's allowed.

too late  >:D

Title: Re: Let us make some random programs
Post by: aeTIos on October 06, 2011, 04:01:01 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 5
:Lbl 6
(teared some lines to shreds >:D)

Title: Re: Let us make some random programs
Post by: ben_g on October 06, 2011, 04:05:08 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 5
:Lbl 6
:RandInt(-9E99,9E99,999)->L1:SortA(L1
Do you like this better?

PS: Do NOT try the last line on your real calc, deffinately not when it's an 6MHz calc.

Title: Re: Let us make some random programs
Post by: Hot_Dog on October 06, 2011, 04:16:50 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 5
:Lbl 6
:RandInt(-9E99,9E99,999)->L1:SortA(L1
:If B>ln(5)


Title: Re: Let us make some random programs
Post by: Levak on October 06, 2011, 05:38:31 pm

Code: [Select]

While 1
Input "",A
Disp entAléat(-1,1)*nbrAléat()*20
End
Launch the program and give your calc to a friend when he wants to make some stuff :D

He will be surprised for example that sqrt(2) < 0 :D

EDIT : oops sorry I've just understood what the topic was about. The title is a bit confusing :D


EDIT 2

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 5
:Lbl 6
:RandInt(-9E99,9E99,999)->L1:SortA(L1)
:If B>ln(5)
: Disp `LGAME[1]*10 + `LGAME[1]/2


Title: Re: Let us make some random programs
Post by: Yeong on October 06, 2011, 05:57:29 pm

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 5
:Lbl 6
:RandInt(-9E99,9E99,999)->L1:SortA(L1)
:If B>ln(5)
: Disp `LGAME[1]*10 + `LGAME[1]/2
:If X


Title: Re: Let us make some random programs
Post by: Hayleia on October 07, 2011, 02:06:27 am

Quote from: Levak on October 06, 2011, 05:38:31 pm

Code: [Select]

While 1
Input "",A
Disp entAléat(-1,1)*nbrAléat()*20
End
Launch the program and give your calc to a friend when he wants to make some stuff :D

He will be surprised for example that sqrt(2) < 0 :D

Yeah, I do that :P but more like this:

French	English
Code: [Select] EffEcr While 1 Input "",A Disp A+entAléat(-2,2)+partDéc(A) End	Code: [Select] ClrHome While 1 Input "",A Disp A+randInt(-2,2)+fpart(A) End

So 2+2 doesn't say 4,3869471. Because if all of the calculus have a decimal part, the guy smell the bug.

Also,

Code: [Select]

prgmTHEGAME
::"YOU JUST LOST THE GAME

:Stop:"HAMMER TIME
"get this one out

:ClrHome
:1->A
:{4,7,5,8,5,6,5,7,5,9,4,8,4,9}->LGAME
:"THEGAME"->Str1
:DelVarS8->B
:For (B,1,7)
:2B->B
:Goto 4
:Lbl 4
:Goto 5
:Lbl 6
:RandInt(-9E99,9E99,999)->L1:SortA(L1)
:If B>ln(5)
: Disp `LGAME[1]*10 + `LGAME[1]/2
:If X
:prgmTHEGAME

EDIT: Sorry for my double post, I had a brain bug with the "modify", "quote", "post", "save" buttons and obviously clicked the wrong one. Fixed.