A bunch of junk programs

Forum Attachments

A bunch of junk programs

(account deleted) 23 Feb 2018 16:30

Prank some friends by putting TONS of programs on your/their calculator and watch their reaction!* Celtic 3 is required to execute… May not be compatible with the TI-83+ and lower. If you have any suggestions or comments, feel free to post them. Any comments/suggestions are widely excepted.

PROGRAM:JUNKPRGM
ClrHome
If det([[1:Then
Disp "Enable Celtic 3.
Return
End
Disp "Junk Programs!
Input "Amount=",Z     //Make sure Z<1000
ClrHome
Output(1,1,"0  %      //2 spaces between the 0 and %
For(A,1,Z
For(B,1,randInt(1,8
sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",randInt(1,26),1
If B=1
Ans→Str1
If B>1
Str1+Ans→Str1
End
det(0,5,Str1      //Create a new program with the name (In the string)
Output(1,1,iPart(A/Z*100
End
ClrHome
"Enjoy!

Just don't get caught!

Edited by Battlesquid, changed Outout to Output

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Last edited on 26 Feb 2018 15:44 by (account deleted) Show more

Re: A bunch of junk programs

xavi6 24 Feb 2018 15:28

Hello

How it works … Thank you

---

http://nody.ir/ - http://fiammco.ir/ups

Re: A bunch of junk programs

(account deleted) 06 Mar 2018 15:12

At the beginning of the program, it checks if Celtic 3 is installed. If it is, continue the program. If it is not, then display an error saying it needs to be installed.

If det([[1:Then
Disp "Enable Celtic 3.
Return
End

It will then prompt you how many empty programs you would like to add.

Disp "Junk Programs!
Input "Amount=",Z     //Make sure Z<1000

Make sure Z<1000, or it will give you a ERR:MEMORY error.

Output(1,1,"0  %      //2 spaces between the 0 and %
For(A,1,Z
For(B,1,randInt(1,8
sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",randInt(1,26),1
If B=1
Ans→Str1
If B>1
Str1+Ans→Str1
End
det(0,5,Str1      //Create a new program with the name (In the string)
Output(1,1,iPart(A/Z*100
End

This code above will go through a For( loop randomizing a number between 1 and 8, thanks to the randInt( command. In the second For( loop, it will generate the program name, as a string with a length of 1-8. Now, if it creates a name that already exists, it will ignore it and skip it. If you were to output the Ans at 8,1, (Using the Output( command of coarse) after the det(0,5,Str1 line, if it does exist, it will say ".P:NT:FN", which means it already exists (in this program anyways).

det(0,5,Str1

This line will create a program from the string. And the code below it, it will say the progress of the loop (How much the program has got done), and will output it a coordinates 1,1. If you tell it to make over 1,000 programs, either it will say ERR:MEMORY, or your calculator will crash (The calculator shuts off, then either saying "RAM cleared", or "Waiting… Please install operating system now" (ONLY if your calculator crashed several times, but this situation is rather rare).

EDIT: I will soon add a Celtic 3 reference list to the Wiki. Hope this helps!

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Last edited on 06 Mar 2018 18:43 by (account deleted) Show more