« previous next »
Pages: 1 [2]   Go Down

Author Topic: Let us make some random programs  (Read 8251 times)

0 Members and 2 Guests are viewing this topic.

Offline Stefan Bauwens

  • Creator of Myst 89 - סטיבן
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1799
  • Rating: +162/-24
  • 68k programmer
    • View Profile
    • Portfolio
Re: Let us make some random programs
« Reply #15 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
Logged


Very proud Ticalc.org POTY winner (2011 68k) with Myst 89!
Very proud TI-Planet.org DBZ winner(2013)

Interview with me

Offline ben_g

  • Hey cool I can set a custom title now :)
  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1002
  • Rating: +125/-4
  • Asm noob
    • View Profile
    • Our programmer's team: GameCommandoSquad
Re: Let us make some random programs
« Reply #16 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
« Last Edit: October 06, 2011, 03:54:24 pm by ben_g »
Logged
My projects
 - The Lost Survivors (Unreal Engine) ACTIVE [GameCommandoSquad main project]
 - Oxo, with single-calc multiplayer and AI (axe) RELEASED (screenshot) (topic)
 - An android version of oxo (java)  ACTIVE
 - A 3D collision detection library (axe) RELEASED! (topic)(screenshot)(more recent screenshot)(screenshot of it being used in a tilemapper)
Spoiler For inactive:
- A first person shooter with a polygon-based 3d engine. (z80, will probably be recoded in axe using GLib) ON HOLD (screenshot)
 - A java MORPG. (pc) DEEP COMA(read more)(screenshot)
 - a minecraft game in axe DEAD (source code available)
 - a 3D racing game (axe) ON HOLD (outdated screenshot of asm version)

This signature was last updated on 20/04/2015 and may be outdated

Offline Stefan Bauwens

  • Creator of Myst 89 - סטיבן
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1799
  • Rating: +162/-24
  • 68k programmer
    • View Profile
    • Portfolio
Re: Let us make some random programs
« Reply #17 on: October 06, 2011, 03:57:35 pm »
I don't think that's allowed. Besides, it counts as two lines!
« Last Edit: October 06, 2011, 03:58:50 pm by Stefan Bauwens »
Logged


Very proud Ticalc.org POTY winner (2011 68k) with Myst 89!
Very proud TI-Planet.org DBZ winner(2013)

Interview with me

Offline aeTIos

  • Nonbinary computing specialist
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3915
  • Rating: +184/-32
    • View Profile
    • wank.party
Re: Let us make some random programs
« Reply #18 on: October 06, 2011, 03:57:44 pm »
haha
Logged
I'm not a nerd but I pretend:

Offline ben_g

  • Hey cool I can set a custom title now :)
  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1002
  • Rating: +125/-4
  • Asm noob
    • View Profile
    • Our programmer's team: GameCommandoSquad
Re: Let us make some random programs
« Reply #19 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
Logged
My projects
 - The Lost Survivors (Unreal Engine) ACTIVE [GameCommandoSquad main project]
 - Oxo, with single-calc multiplayer and AI (axe) RELEASED (screenshot) (topic)
 - An android version of oxo (java)  ACTIVE
 - A 3D collision detection library (axe) RELEASED! (topic)(screenshot)(more recent screenshot)(screenshot of it being used in a tilemapper)
Spoiler For inactive:
- A first person shooter with a polygon-based 3d engine. (z80, will probably be recoded in axe using GLib) ON HOLD (screenshot)
 - A java MORPG. (pc) DEEP COMA(read more)(screenshot)
 - a minecraft game in axe DEAD (source code available)
 - a 3D racing game (axe) ON HOLD (outdated screenshot of asm version)

This signature was last updated on 20/04/2015 and may be outdated

Offline aeTIos

  • Nonbinary computing specialist
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3915
  • Rating: +184/-32
    • View Profile
    • wank.party
Re: Let us make some random programs
« Reply #20 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)
Logged
I'm not a nerd but I pretend:

Offline ben_g

  • Hey cool I can set a custom title now :)
  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1002
  • Rating: +125/-4
  • Asm noob
    • View Profile
    • Our programmer's team: GameCommandoSquad
Re: Let us make some random programs
« Reply #21 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.
Logged
My projects
 - The Lost Survivors (Unreal Engine) ACTIVE [GameCommandoSquad main project]
 - Oxo, with single-calc multiplayer and AI (axe) RELEASED (screenshot) (topic)
 - An android version of oxo (java)  ACTIVE
 - A 3D collision detection library (axe) RELEASED! (topic)(screenshot)(more recent screenshot)(screenshot of it being used in a tilemapper)
Spoiler For inactive:
- A first person shooter with a polygon-based 3d engine. (z80, will probably be recoded in axe using GLib) ON HOLD (screenshot)
 - A java MORPG. (pc) DEEP COMA(read more)(screenshot)
 - a minecraft game in axe DEAD (source code available)
 - a 3D racing game (axe) ON HOLD (outdated screenshot of asm version)

This signature was last updated on 20/04/2015 and may be outdated

Offline Hot_Dog

  • CoT Emeritus
  • LV12 Extreme Poster (Next: 5000)
  • *
  • Posts: 3006
  • Rating: +445/-10
    • View Profile
Re: Let us make some random programs
« Reply #22 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)
Logged

Offline Levak

  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1002
  • Rating: +208/-39
    • View Profile
    • My website
Re: Let us make some random programs
« Reply #23 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
« Last Edit: October 06, 2011, 05:45:06 pm by Levak »
Logged
I do not get mad at people, I just want them to learn the way I learnt.
My website - TI-Planet - iNspired-Lua

Offline Yeong

  • Not a bridge
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3739
  • Rating: +278/-12
  • Survivor of Apocalypse
    • View Profile
Re: Let us make some random programs
« Reply #24 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
Logged
Sig wipe!

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: Let us make some random programs
« Reply #25 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:

FrenchEnglish
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.
« Last Edit: October 07, 2011, 02:11:07 am by Hayleia »
Logged
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s
Pages: 1 [2]   Go Up
« previous next »