Main Menu
Main Page
Forums
New pages
Recent changes
Random page
Help

Glitches
Arbitrary code execution
Pokémon cloning
Pomeg glitch and Glitzer Popping
Tweaking and voiding
Glitches by generation
Glitch categories

References/Resources
Databases
Disassembly projects
The Big HEX List
Pokémon cheat codes
Pokémon glitch terminology
Useful tools
More

Affiliates
Legendary Star Blob 2 (Hakuda) (日本語/Japanese)
Pokémon Speedruns wiki (English)
PRAMA Initiative (Français/French)
MissingNo. Glitch City (Italiano/Italian)
Become an affiliate!

Technical
Site source code

Search Wiki

 

Search Forums

 

Author Topic: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC) NOW TAKING REQ  (Read 1938 times)

0 Members and 1 Guest are viewing this topic.

Sherkel

  • Ringsome on the aquaface
  • Administrator
  • *****
  • Offline Offline
  • Gender: Male
    • View Profile
So anyway, one of my main pastimes at school is "fiddling" with my "calculator" (TI-84+). So I've decided to post a few of the tons of programs I have. Maybe you could even learn a bit about the programming if you didn't know. I don't want anybody saying "come on this stuff's simple and pointless!" I know some of them are, but one's actually an awesome (I guess) game called DX. So anyway, I'll post source codes and all. Once I find my link I'll be able to upload them as files.
NOW TAKING REQUESTS!
prgmBLACKJA2 - This is called "Blackjack2" as it being made after the original BLACKJAC, which just wasn't good at all. The code for this is pretty long, but anyway:
0->(arrow, store to)J
0->K
0->L
0->O
0->P
0->Q
randInt(2,11)->H
randInt(2,11)->I
randInt(2,11)->M
If H+I=21 and H=11
1->H
If H+I=21 and I=11
1->I
H+I->R
Pause {H,I,J,K,L,R}
If H+I=21
Disp "BLACKJACK!"
If H+I=21
Goto Y
Disp "HIT?"
Prompt S
If S≠0 and S≠1
Goto X
If S=1
randInt(2,11)->J
If S=0
Goto Y
If H+I+J>21 and J=11
1->J
H+I+J->R
Pause {H,I,J,K,L,R}
If R>21
Disp "BUST"
If R>21
Goto Y
Disp "HIT?"
Prompt S
If S≠1 and S≠0
Goto X
If S=1
randInt(2,11)->K
If S=0
Goto Y
If H+I+J+K>21 and K=11
1->K
H+I+J+K->R
Pause {H,I,J,K,L,R}
If R>21
Disp "BUST"
If R>21
Goto Y
Disp "HIT?"
Prompt S
If S≠1 and S≠0
Goto X
If S=1
randInt(2,11)->L
If S=0
Goto Y
If H+I+J+K+L>21 and L=11
1->L
H+I+J+K+L->R
If R>21
Disp "BUST"
If R>21
Goto Y
Lbl Y
randInt(2,11)->M
randInt(2,11)->N
If M+N>21 and M=11
1->M
M+N->T
If M+N≤16
randInt(2,11)->o
If M+N+O->21 and O=11
1->O
M+N+O->T
If M+N+O≤16
randInt(2,11)->P
If M+N+O+P>21 and P=11
1->P
M+N+O+P->T
If M+N+O+P≤16
randInt(2,11)->Q
If M+N+O+P+Q>21 and Q=11
1->Q
M+N+O+P+Q->T
Lbl Y
Pause {H,I,J,K,L,R}
Pause {M,N,O,P,Q,T}
If R>21 and T>21
Disp "TIE"
If R=T
Disp "TIE"
If R>T and R<22 and T<22
Disp "YOU WN"
If T>R and R<22 and T<22
Disp "YOU LOSE"
If R<22 and T>21
Disp "YOU WIN"
If T<22 and R>21
Disp "YOU LOSE"
Lbl X
If S≠0 and S≠1
Disp "ERROR"

There are a few messy things in the coding in this I realized, such as two "Lbl Y"s, but they haven't seemed to ever affect the programming. Also I programmed it to say "BUST" on the first turn if the total was over 21, but that's not possible in Blackjack, so it never comes into effect. This was also before my knowledge of "Output(", but it looks cleaner without overlapping things on the screen. When it prompts you to hit (S), choose 1 to hit and 0 not to. This was before I thought of "1 or anything else" so I wasted my time on an error thing. The way the AI works is it keeps hitting until it is over 16. Anyway, hope you enjoy! (if you have a compatible calculator!)
EDIT: Nothing! :???: Seriously I didn't change anything!
« Last Edit: April 24, 2008, 05:18:21 pm by Prof. Sherkel »

Sticking to quality control and moderation until I sort some IRL matters out. I check in here almost daily and will answer questions, but not all of them.
I don't have a habit of keeping Discord open, so direct inquiries are preferred through here.

SCf3

  • Member+
  • *
  • Offline Offline
  • Gender: Female
  • I like shorts! They're comfy and easy to wear.
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #1 on: February 25, 2008, 04:53:38 pm »
Damn the teacher took all the games outta ours.
We use Navigator...for school stuff :P
but its pretty intense.
I <3 the Alpha function
Posts:  1,023 (1.746 per day) Date Registered:  May 08, 2006, 02:54:50 am


Sherkel

  • Ringsome on the aquaface
  • Administrator
  • *****
  • Offline Offline
  • Gender: Male
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #2 on: February 26, 2008, 04:49:06 pm »
What? The delete your hard work every time you finish? Or do you mean Apps like PuzzPack? Did you put Blackjack by the way?
Also that gives me an idea. What about a fake memory menu to fool them? I suck at custom menus, but it could work!

Sticking to quality control and moderation until I sort some IRL matters out. I check in here almost daily and will answer questions, but not all of them.
I don't have a habit of keeping Discord open, so direct inquiries are preferred through here.

Sherkel

  • Ringsome on the aquaface
  • Administrator
  • *****
  • Offline Offline
  • Gender: Male
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #3 on: March 01, 2008, 05:42:36 pm »
I'm bored...here's more, if anybody wants...
prgmCOUNTDON - This counts down seconds! This probaly won't work on any below 84+, as you do need the time support. Good if you're bored in class or something I guess.
Menu("   Countdown    ","Start",A) (you will need to have somehow gotten lowercase for this. Also, there's 3 spaces before Countdown and 4 after)
Lbl A
ClrHome
Disp "Minutes?"
Prompt M
Disp "Seconds?"
Prompt S
60M+S->S
S
Ans->A
Lbl D
ClrHome
If Ans≠A
S-1->S
Lbl B
Output(1,1,S)
If S=0
Goto E
startTmr->A
Lbl C
startTmr
If Ans≠A
Goto D
If Ans=A
Goto C
Lbl E
If you don't got lowercase, simply use uppercase instead.
And here's another we may like...Decamark invasion!
prgmDECAMARK
ClrDraw
0->Xmin
0->Ymin
94->Xmax
62->Ymax
For(A,0,10)
randInt(0,94)->B
randInt(0,62)->C
Circle(B,C,5)
Circle(B,C,8)
B-1->D
62-(C+3)->E
Text(E,D,"?")
End
If it appears too near the edgeof the screen it causes an error :( so that's why it only does it 10 times. Still pretty cool though!
« Last Edit: March 01, 2008, 05:47:55 pm by Prof. Sherkel »

Sticking to quality control and moderation until I sort some IRL matters out. I check in here almost daily and will answer questions, but not all of them.
I don't have a habit of keeping Discord open, so direct inquiries are preferred through here.

Jolteon

  • DESU~
  • Member+
  • *
  • Offline Offline
  • Gender: Male
  • DESU~
    • View Profile
    • DESU~
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #4 on: April 19, 2008, 11:29:39 am »
errr... Makes no sense to me.. :???: :???: :???:
« Last Edit: April 19, 2008, 11:30:03 am by ?????(000) »
DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~? DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~.

DESU~ DESU~ DESU~

SCf3

  • Member+
  • *
  • Offline Offline
  • Gender: Female
  • I like shorts! They're comfy and easy to wear.
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #5 on: April 19, 2008, 06:22:15 pm »
Haha I wanna find out how to screw one of these calculators up xD
Lol.
GLITCHEZZ FOO!
Posts:  1,023 (1.746 per day) Date Registered:  May 08, 2006, 02:54:50 am


Zach the Glitch Buster

  • Scientist
  • Veteran Contributor
  • *
  • Offline Offline
  • Gender: Male
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #6 on: April 20, 2008, 12:35:06 pm »
Haha I wanna find out how to screw one of these calculators up xD
Lol.
GLITCHEZZ FOO!

Um, yeah about that. If you asked the question in a slightly formal way, then there would be no problem. But seeing as you ended with unintelligent words, your look like an idiot.
Warn O Meter 2.0 + 5
« Last Edit: April 25, 2008, 01:22:57 am by zach the glitch buster »

I have a Youtube account, pass it on
     http://www.youtube.com/user/zachtheglitchbuster
I have a twitter as well
@ZacGlitchBuster
I'm a Mac user.

Sherkel

  • Ringsome on the aquaface
  • Administrator
  • *****
  • Offline Offline
  • Gender: Male
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #7 on: April 24, 2008, 05:16:30 pm »
Now taking requests! Please post here people!
EDIT: Bored, meh I'll post more:
prgmSECURIT2
This is a security program that prompts a password. It is made to run on startup (there is an App you can get somewhere that lets you do that). The starting password is 4824, the key being "TI84" (T is on 9, on the I is x squared to get a 2 from, and then 84). If you want to change it then just change the number to something else (it appears a couple of times in the code). Note, it has to be a number.
Lbl B
ClrHome
Disp "Enter password"
Prompt A
If A=4284
Goto A
ClrHome
Disp "Invalid password"
Pause
Disp "Stop using this"
Disp "calculator"
Disp "immediately!"
Pause
Goto B
Lbl A
Simple, but effective. Perfect for those people that are all over you for your progs!
Anyway, you were wondering about SECURIT1? Hahahahaha!
prgmSECURITY
This is a prank program! Good for people who don't know much about the TI's capabilities. Note it doesn't actually scan your finger! XD
Lbl C
ClrHome
Disp "CALCULATOR IDLE"
Disp "SECURITY" (you're meant to run it when you leave the table)
Disp "PRESS ENTER TO"
Disp "START SCAN"
Pause
ClrHome
Disp "PUT FINGER IN"
Disp "MIDDLE OF SCREEN"
Pause
ClrDraw
0->Xmin:0->Ymin
94->Xmax
62->Ymax
Circle(47,31,13)
0->A
Lbl A
If A=62
Goto B
Line(0,62-A,94,62-A)
A+1->A
Goto A
Lbl B
ClrHome
Disp "INVALID USER"
Pause
Disp "STOP USING THIS"
Disp "CALCULATOR"
Disp "IMMEDIATELY!"
Pause
Goto C
There is actually no way to get out of it, just use on to get a Break error.
« Last Edit: April 24, 2008, 05:32:05 pm by Prof. Sherkel »

Sticking to quality control and moderation until I sort some IRL matters out. I check in here almost daily and will answer questions, but not all of them.
I don't have a habit of keeping Discord open, so direct inquiries are preferred through here.