Author Topic: prgmPLAT12: An Experiment in Visuals (Read 1976 times)

Woodrow · « **on:** January 18, 2018, 09:58:28 pm »

I've been programming on my dad's old TI-83+ for about a year now. I've had some troubles. Case in point: prgmERMINE, my chatbot and my personal favorite, got deleted at least six different times due to the calculator freezing up, forcing me to replace the battery, which clears the RAM for some reason. I don't have a link cable, so I can't back up my prgms. I've managed to code (for the second time, since the original got deleted) a prgm that takes advantage of the way the Disp command scrolls through its strings if it is used enough times in one prgm. This took two separate prgms and about twenty minutes. "PLATINUM: " is what the prgm uses to ask you how many times you would like to "put up a stick". I suggest a number between 25 and 50.

prgmPLATMKR (needed to make prgmPLAT12 work) (do not run directly)

Code: [Select]

randInt(1,7→R
If R=1:Disp "-
If R=2:Disp "--
If R=3:Disp "---
If R=4:Disp "----
If R=5:Disp "-----
If R=6:Disp "------
If R=7:Disp "-------

prgmPLAT12 (actual prgm) (run directly)

Code: [Select]

Input "Platinum: ",N
N-1→K
For(N,1,K):prgmPLATMKR:End:prgmPLATMKR

~~Shorten the code in prgmPLATMKR~~ (Thanks, Phoenix!)[/list]

mazhat · « **Reply #1 on:** January 18, 2018, 10:10:49 pm »

You can archive programs to your calculator:
Make a copy of an existing program by using RCL in a new program file.
Go to the memory management screen and select the new file to archive it (an asterisk will appear beside it).

Archived programs are stored in the flash memory and not the RAM.

Woodrow · « **Reply #2 on:** January 18, 2018, 10:22:24 pm »

Quote from: mazhat on January 18, 2018, 10:10:49 pm

You can archive programs to your calculator:
Make a copy of an existing program by using RCL in a new program file.
Go to the memory management screen and select the new file to archive it (an asterisk will appear beside it).

Archived programs are stored in the flash memory and not the RAM.

o m g t h a n k y o u

mazhat · « **Reply #3 on:** January 18, 2018, 10:34:41 pm »

You're welcome.

I hope your program works out well.

_iPhoenix_ · « **Reply #4 on:** January 19, 2018, 12:13:42 pm »

Here's something cool.

The sub( command lets you take a substring of a provided string.
The syntax is sub(string,starting character,length
We can compact prgmPLATMKR down to one line with this!

Code: [Select]

Disp sub("-------",1,randInt(1,7