prgmPLAT12: An Experiment in Visuals

[Woodrow]

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


Any suggestions? My main goals for improvement are:

Find a way to get this to work with only one prgm

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

[mazhat]

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]

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]

You're welcome.

I hope your program works out well.

[_iPhoenix_]

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