I've seen a similar thread related to my problem, https://www.dell.com/community/Monitors/Dell-P2213-monitor-not-working-via-displayport/td-p/5111285

but does not solve my problem. I did see however on the bottom that VGA seems to work with this monitor. But I do not own such a cable (nor I have the money for it). How can I fix this?

I've added this same thread on the Dell website, to increase chances of help

]]>I have some experience in HTML, CSS, PHP, and databases. I always found the GDC very interesting to use, especially for purposes outside my Maths class. I installed games like PacMan and Flappy Bird from TI84CalcWiz. Afterwards some people heard about it, and I was blown with questions 'How did you do that?' and 'Can you that on my calculator?!'. So I did, only to do it again later, after everybody had to reset their calculators for exams. But now I would like to learn how to make my own games, or perhaps programs that could come useful in Econometrics and Physics, or Chemistry.

Once again, thanks for having me here! SO cool!

]]>I own a Ti-84 Plus CE and was wondering if there was a way to attach a raspberry pi to it through a mini usb and have the raspberry pi translate information from the web into a form the calculator would be able to read. This seems as if it would be difficult but possible.

I’m curious whether the calculator is able to communicate with the raspberry pi and actually search the internet. Does it have the ability to send and receive? Would I have to supply the Raspberry Pi with an external power supply?

I hope that this project will evolve over time and if I make any progress I’ll keep you all up to date.

Thanks,

Mr. Fotto ]]>

` ``ClrDraw ClrList ⌊Y ClrList ⌊X Degree BackgroundOn BLACK prgmPRGMPXL Xmax/2→X Ymin/2→Y {X}→⌊X {Y}→⌊Y 10→R 90→θ 0→G 0→Z While Z=0 and G≠45 getKey→G X+cos(θ)→X Y+sin(θ)→Y θ-15(G=26)+15(G=24)→θ TextColor(BLACK Text(0,0,θ," X:",X," Y:",Y," LENGTH:",dim(⌊X)," " Pt-On(X,Y,1,GREEN) TextColor(RED Text(15,0,"PROB",R augment({X},⌊X) augment({Y},⌊Y) TextColor(GREEN Text(15,0,"PROB",R If dim(⌊X)≥R+1 Then Pt-Off(⌊X(R+1),⌊Y(R+1)) Pt-On(⌊X(R),⌊Y(R)) seq(⌊X(X),X,1,R,1) seq(⌊Y(X),X,1,R,1) End End ClrDraw`

The problem code is

` ``augment({X},⌊X) augment({Y},⌊Y)`

please help

]]>` ``:Lbl Y :Clrhome :AxesOff :ZStandard :ZSquare :Vertical 4 :Vertical -4 :Line(-11,3.7,11,3.7 :Line(-11,-3.7,11,-3.7 :0→T :0→G :0→H :DelVar [A]{3,3→dim([A] :Repeat T=9 :0→A :Repeat A>7.1 and A<9.5 :.1getKey→A :If A=1.1 :Goto A :End :10fPart(A)-1→C :iPart(A)-6→D :If [A](D,C)=0 :Then :T+1→T :7.5C-15→X :-7D+14→Y :If fPart(T/2 :Then :Line(X-2,Y-2,X+2,Y+2,18 :Line(X-2,Y+2,X+2,Y-2,18 :→[A](D,C :Else :Circle(X, Y, 2, 15 :-1→[A](D, C :End :If T>4 :Then :If abs([A](1,C)+[A](2,C)+[A](3,C))=3 :Then :Line(X,8,X,-8,11 :1→H :End :If abs([A](D,1)+[A](D,2)+[A](D,3))=3 :Then :Line(-8.5,Y,8.5,Y,11 :1→H :End :If abs([A](2,2))=1 :Then :If abs([A](1,1)+[A](2,2)+[A](3,3))=3 :Then :Line(-7.5,7,7.5,-7,11 :1→H :End :If abs([A](3,1)+[A](2,2)+[A](1,3))=3 :Then :Line(-7.5,-7,7.5,7,11 :1→H :End :End :If H :Then :Text(-1,10,10,sub("XO",(fPart(T/2)=0)+1,1)+" WINS!!! :9→T :Pause :End :End :End :End :Lbl A :Menu("PLAY AGAIN?","YES",Y,"NO",N :Lbl N :ClrDraw :ClrHome :"`

I opted for a nicer-looking program (at least in my opinion), though it does result in it being larger ]]>

:"piecewise(Y1, X≤0, Y2,X>0)”→Y3

:DispGraph

works fine but I would like to replace the "X≤0" and "X>0" with string inputs. However this results in a data type error. Any suggestions?

]]>As for myself, I live on the island of Papua New Guinea, love playing music, reading, math. Programming is sorta new to me (started about 6-ish months ago). I know TI-Basic (mostly), and also a little JavaScript.

I hope that by being a member here I can refine my skills, through your advice, and maybe someday even be the one giving out advice =)>

Looking forward to working with you all! ]]>

Is there a way to do this on the TI-89 Titanium?

On the TI-84 it's a simple

` ``AxesOff`

Is there an equivalent command/code snippet to do the same thing? ]]>

Today, I would present you my project: a Ti-Basic text editor (name: Leviathan)

Actually, the project exist, the foundation is create and this require to add the most important: the Ti-Basic and Python (the news calculators use this) compatibility …

It's open-source and a uwp app, but if people can help me, manifest you ^^

(Sorry, I'm french, my english is not perfect <(＿ ＿)> but I work about this ^^)

I can add more informations about the project is your interest, else, no ^^

And if you don't understand, I can re-explain …

Thx for your attention

Fj ]]>

most RPGs have boring combat system where you hit enemy then get hit etc

i want to make a system where you need skill to dodge the attacks (something like undertale)

this system must be fast to make some boss fights hard

btw it needs to be TI basic (assembly fast but hard)

if you have any suggestions pls let me know

(btw i need multiple types of attacks to dodge to keep boss fights interresting) ]]>

The specific line of code is:

:Disp "Too "+sub("HighLow ",1+4(A>B),4

I’m using a Ti-84 Plus CE-T thats running 5.3.1 if that helps too

Thanks

]]>i just found my old ti 84 pro from school and tried to download some games for old time`s sake.

I downloaded the ti connect ce software but i realised after some time, that my calculator is too old to download any games/I cant even update the os via the ti connect. The program says the following about my calulator: ti 84 plus (3DD4) [Os 2.55.0]

is it even possible to download games with that OS?

any tips are greatly appreciated :)

note: as you probably noticed i dont really know anything about programming but I just thought i`d see if anyone can help me with this here :)

]]>:0→P

:For(X,1,1E6

:P+X^-2→P

:End

:\sqrt\(6P→P

:Disp P

Or, If you want one that displays pi while you generate it:

:0→P

:For(X,1,1E6

:P+X^-2→P

:\sqrt\(6P→θ

:Output(1,1,θ

:End

If any of you know JavaScript and want to "translate" it— Go ahead!

:D

` ``Prompt A Prompt B Prompt C Prompt D ((A+C)/2)=E ((B+D)/2)=F Disp E Disp F End`

So I wrote out this code for a midpoint formula and I was wondering how I could get the answer to display I don't think that

` ``((A+C)/2)=E`

Will work. Could any of you guys help me out? ]]>

You can see it in action at youtube address Su0MpwFSWFE

I'll fisrt explain quickly how to make a qr code:

Firstly, you choose with which text type (kanji, numeric, etc) you're gonna encode the data (here, it's always alphanumeric : numbers and uppercase letters).

Secondly, you encode text in binary following the step matching the text type.

Thirdly, you generate the error correction codewords (that's the difficult part), basically (if I understand well), you divide two equations in a galois field (one is generate with your data string, the other depends on your qr size and error correction level), there are 4 level of correction (L, M, Q and H) here I use level M.

Fourth, you put the error codewords after your binary data string from before (it's different for larger qr code, though)

Fifth, you place the string in your matrix (black square for 1 and white square for 0)

Sixth, you "mask" some squares (it mean changing it's color by the opposite), there are 8 masking pattern, you are supposed to choose the optimal one (here I use only the mask pattern 1)

Last, you add the format string, which correspond to your error correction level and your mask pattern

I divided the entire program in 6 progams.

Posts merged and formatted by a moderator

]]>Disp f ]]>

The code looks like this:

ClrList L1,L2

:Input "VERT ASYMP? ",L1

:Input "HOLES? ",L2

Let's say a function doesn't have any holes. In that case the user wants to input an empty list. I've tried {} and { } and neither works. Both receive a syntax error.

]]>And while I’m here, are there any good TI-83+ Tetris scripts?

]]>also, on a different note, the number-to-string method (which used to work) now doesnt. its a problem with LinReg(ax+b), clearing the ram would fix it for one use and then after that it would go back to giving the error "DATA TYPE" this happens inside the program, and from the home screen.

]]>` ``PROGRAM:XROOTOFθ :ClrHome :Disp "ˣ√θ :Prompt X,θ :round(Xˣ√θ,0→N :If not(N :Return :While fPart(θ/N^X :DS<(N,2 :End :ClrHome :Disp "Nˣ√θ","N=",N,"θ= :θ/N^X→θ`

Just in case anyone was wondering about the last line's "→θ", that's so it actually stores θ as θ in case the user wants to use θ later ]]>

` ``ClrDraw BackgroundOn WHITE Vertical 0,WHITE -30ΔY→Y Repeat Y=Ymin Horizontal Y, MEDGRAY Y-2ΔY→Y End`

You might notice I have a random "Vertical 0, WHITE" in there that serves no purpose. However, without it, the program resets Y to zero after the Repeat loop runs for the first time, so that the box of color goes from the center of the screen to the bottom. Seems like a bug. ]]>

:D

Here's the plaintext:

` ``15→A 100→B 0→C 1100→ D 12000→E 130000→F 1400000→G 0→H C→M 0→P Lbl 1 0→Z ClrDraw While Z65 //(This will keep happening until “M” is pressed, then it will show the heavenly cookies / prestige option.This will come up later.) C+P→C M+P→M //This gives 1 second (or frame, more exactly) of cookies to C, the cookie indicator, and gives it to M, the “This Prestige” cookies made all time marker (It’s reset when prestige is bought, but until then, it just increases with cookies) Text(0,1,”COOKIES:” Text(0,32,int(C Text(0,60,”CPS:” Text(10,75,int(P*10)/10 getKey→Z //(Z is the variable used for all getKey purposes, and checks once every frame to see what button was pressed since the previous check. It gets slower once the framerate gets slower, typically later in the game, as their speeds are about the same.) If Z=53 or Z=83 Then C+max(1,int(P/100)→C M+max(1,int(P/100)→M End //The above If-Then statement basically states that if you press 5 or cos( , then it will give you one cookie or 1/100 of your CPS, or cookies per second, whichever is greater. Text(8,1,”ITEM: Text(9,40,”COST Text(9,75,”CPS //For all you perfectionists out there (no offense), I have it so the “ITEM:” figure is slightly higher than the others so if someone takes the idea, they can have them all at the same level or at different levels, but they cannot do exactly what I did. Text(16,1,”CURSOR Text(22,1,”GRANDMA Text(28,1,”FARM Text(34,1,”MINE Text(40,1,”FACTORY Text(46,1,”BANK //That was the item display code... Text(16,40,A Text(22,40,B Text(28,40,D Text(34,40,E Text(40,40,F Text(46,40,G //That was the price display code… Text(16,75,int(0.1(1.01^H)*10/10 //This is the only CPS block that has a decimal, as it represents the cursor. Text(22,75,int(1(1.01^H)) Text(28,75,int(8(1.01^H)) Text(34,75,int(40(1.01^H)) Text(40,75,int(250(1.01^H)) Text(46,75,int(1000(1.01^H)) //Those were the CPS per item blocks, by the way. If Z=11 and C>=A Then C-A→C int(1.2A→A P+0.1(1.01^H)→P ClrDraw End //That was basically saying if the Y= button was pressed it would buy a cursor, increase cursor price by 20%, and add Cursor CPS to P, the CPS marker. If Z=12 and C>=B Then C-B→C int(1.2B→B P+1(1.01^H)→P ClrDraw End //It’s basically the same with all the other buildings, but with Window, Zoom, Trace, Graph, and Up. If Z=13 and C>=D Then C-D→C int(1.2D→D P+8(1.01^H)→P ClrDraw End If Z=14 and C>=E Then C-E→C int(1.2E→E P+40(1.01^H)→P ClrDraw End If Z=15 and C>=F Then C-F C int(1.2F F P+250(1.01^H)→P ClrDraw End If Z=25 and C>=G Then C-G→C int(1.2G→G P+1000(1.01^H)→P ClrDraw End End //(If this is gotten to, then it shows prestige.) ClrDraw Text(1,1,”RESET NOW AND GET” Text(20,1,”HEAVENLY CHIPS?” //That was all the static prestige elements before the Menu( element. Text(10,6,int(.01\sqrt\M))) //If you don’t know already, the \sqrt\ is just a square root symbol. Pause Menu(“RESET?”,”YES”,A,”NO”,B Lbl B Goto 1 Lbl A 15→A 100→B 0→C 1100→D 12000→E 130000→F 1400000→G 0→P H+int(0.01√(M)))→H 0 M ClrDraw Goto 1`

//And that’s it! Please let me know if you have any suggestions for making it faster! Your input is appreciated! ]]>

If someone knows how to find the answer, that would be great!

-mathsman502

EDIT: By the way, D represents the number of digits so the program can check for the size of a number without slow If-Then statements, which can get confusing. ]]>

-mathsman502 ]]>

*Note: I am using the Variable A as a replacement for Y due to some bugs when opening the graph screen*

The code:

` ``For(A,1,20 For(X,1,30 If [A](A,X) Then For(S,0,2 For(T,0,2 Pxl-On(T+3A,S+3X End End End If [A](A,X)<0:Text(3A-2([A](A,X)=-1)),3X,sub("}- ",[A](A,X)+3,1 //This code basically makes a door that players can go through, with doors on walls being "}" and doors on the floors being "-" End End`

Any help is appreciated!

*Please forgive me if I made any mistakes with this post, I am new to the forum*

` ``det(5,"program_name",read_this_line,[read_this_many]) ;For app vars, add the rowSwap( command`

This is the code I have so far, but here are the problems I'm having with it. When the For( loop completes, the amount of lines in the temporary program has *more* than the source. The temporary program seems to have a lot of duplicate lines of code in it, compared to the original. How can I change this so it finishes copying correctly?

` ``ClrHome Repeat 9>length(Str9) and Ans!=".P:NT:FN ;Checks to see if the string length is less than 9, and to make sure the file exists Input "prgm",Str9 End "COPY→Str8 For(I,4,5 det(0,I,Str8 ;Deletes the program (if the copy exists) and re-creates it with no code End det(5,Str9→R ;det(5,Str9 reads how many lines are in that program and stores that real number to R. For(I,I,R R-I If Ans>9:Then det(6,Str8,det(5,Str9,10),I ;det(6,"program_name","line_to_write","location") writes the line of code in the string in an UNARCHIVED program. If there is a line in that location already, move all the code after it and paste the new line in that location I+10→I Else det(6,Str8,det(5,Str9,Ans),I R→I:End:End`

If you can help with this, I'd be highly appreciated! This helps with a tool I'm making

]]>AxesOff

0->Xmin:256->Xmax

0->Ymin:256->Ymax

10->A

10->B

While 1

Lbl S

DispGraph

Pxl-On(A,B)

getKey->K

If K=105

Then

Stop

End

If K=45

Then

ClrDraw

End

If K=24

Then

B-1->B

Pxl-On(A,B

End

If K=25

Then

A-1->A

Pxl-On(A,B

End

If K=26

Then

B+1->B

Pxl-On(A,B

End

If K=34

Then

A+1->A

Pxl-On(A,B

End

If K=85

Then

While K=85

getKey->L

Pxl-On(A,B

If L=24

Then

B-1->B

Pxl-Off(A,B

Pxl-Off(A,B+1

End

If L=25

Then

A-1->A

Pxl-Off(A,B

Pxl-Off(A+1,B

End

If L=26

Then

B+1->B

Pxl-Off(A,B

Pxl-Off(A,B-1

End

If L=34

Then

A+1->A

Pxl-Off(A,B

Pxl-Off(A-1,B

End

If L=45

Then

ClrDraw

End

If L=95

11->K

End

End

End

End

End ]]>

Just a quick little update on quadratic formula, as I didn't want to necropost, but I was able to make it smaller. The code:

` ``Prompt A,B,C √(B²-4AC Disp (B+Ans)/2A,(B-Ans)/2A //the / should be a fractoral bar, comes from MATH button, NUM category, option D`

Thanks ]]>

L₁ has a dimension of `{0,0,0,0,0}`

**If user score is greater then the minimum of L₁**

**Initials are in Str0. Initials are "BHZ"**

**Score is 50**

` ``If S>L₁(5:Then S:For(X,1,3 Ans+inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ",sub(Str0,X,1))/50^X End:Ans->L₁(6 SortD(L₁ 5->dim(L₁ End`

**Displays scores**

` ``Disp "High Scores: For(Y,1,5 L₁(Y Output(Y+1,1,int(Ans For(X,0,2 Output(Y+1,X+5,sub("-ABCDEFGHIJKLMNOPQRSTUVWXYZ",1+int(50fPart(Ans50^X)),1 End:End`

Output is `50.043408,0,0,0,0`

Create an over-complicated equation that has…

- At least 4 different commands
- Length of equation must be 28 or longer (Check by using the length( command by placing it in a string)
- Must equal two
- Must be different than other participants

Example:

` ``.14+.1int((10fPart(π)))+.5+.2(.6²)+.008(2(10fPart(.3abs(-9))))+.86+(10fPart(.216))-1.944+0fPart(π)+imag(e`

Best equation gets a code for $5 Jamba Juice gift card!

Bonus points if coded in z80 assembly.

**Rules:**

- NO COPY AND PASTING
- MAKE YOUR OWN CODE/PROGRAM
- MUST BE ON ONE LINE
- CREATE YOUR OWN ALGORITHMS AND METHODS

Any rules that are broken is an automatic disqualification.

]]>Some years ago, I watch a tutorial about ti basic, then it asks me to make a snake (so I made one). Then I thought I could make a 3d maze (so I made one). However the tutorial I followed was very basic, so my programs works… and aren't optimized at all (the maze one is so big), and then I remembered this site, I saw there was tutorials and here I am.

Languages:French (native), English (not that much though), and ti-basic (that's all, even if I want to try Python) ]]>

I have problems with the connection of my TI 84 plus to a PC.

I use TI connect 5.4.0.1181 and a PC with Windows 7.

When I connect the TI 84 Plus to the computer after some seconds/minutes the TI appears as "Unknown device 7CC0 OS 2.22.0" in the TI Connect.

After I pull the new OS (TI84Plus_OS255.8Xu) on the "Unknown device 7CC0 OS 2.22.0" appears a new menu with "Calculator select". However, at this time, the connection is usually already interrupted. Sometimes it does not abort, but then I get the message: Hello, it seems that the connection between the Unknown Device 7CC0 and TI Connect is interrupted "

I have tried several different computers, also with Windows 10. Also I have tried different cables and delete the RAM without success.

Thanks for help ]]>

` ``ClrHome 0->A .3->B .7->F Lbl 6 Disp "BUZZ FOR?-(0 NOT" Input "T0 BUZZ):",C Disp "FIZZ FOR?-(0 NOT" Input "TO FIZZ):",D If (C<0)+(C>9)+(D<0)+(D>9)>0 Goto 6 ClrHome If C!=0 Disp "B FOR BUZZ" If D!=0 Disp "F FOR FIZZ" Disp "START COUNTING","GO!" Lbl 1 A+1->A Input E 0->G If C=0 Goto 3 If A/C=int((A/C) B->G A/10->H Lbl 2 If fPart(H=C/10 B->G iPart(H->I If I=0 Goto 3 I/10->H Goto 2 Lbl 3 0->H If D=0 Goto 5 If A/D=int((A/D) F->H A/10->I Lbl 4 If fPart(I=D/10 F->H iPart(I->J If J=0 Goto 5 J/10->I Goto 4 Lbl 5 A->I If G=B G->I If H=F H->I If GH=BF GH->I If I=E Goto 1 Disp "WRONG!","YOU LOSE!" Stop`

What I would add to the language:

`getBattery`- Gets the battery level of the calculator (0-4)`getOS`- Reads the current OS version and puts the string in Ans`readLine(`- Reads any line or multiple lines from a program`chngLine(`- Replaces a line in an unarchived program`delLine(`- Deletes a line or multiple lines from a program`sprite(`- Displays a sprite with a hex string, given the x and y coords`lockPrgm(`- Toggles lock status of program`hidePrgm(`- Toggles lock status of program`getCalc(`- An existing command, but takes 1-3 seconds in receiving a variable, would be better if receive time was instant`shiftScreen(`- Shifts the graph screen in a certain direction and a certain amount of steps`TextInvOn``TextInvOff`- Toggles text inversion on the home screen`Token(`- Outputs a token in a string in Ans based on the input hex value`toString(`- Wish for 84+`Wait`- Wish for 84+ ass well`PrgmToAppv`- Converts program to an app var`AppVtoPrgm`- Opposite of previous command`sound(`- Plays sound through the I/O port`CopyEntry(`- Copies a saved entry from the home screen and pastes it to Ans`getRAM`- Reads current RAM storage`getROM`- Reads current Archive storage

If you have any other commands, post them here!

]]>"S"→A

If A="S"

"A"→A

If A="A"

"S"→A

But, I got an error saying invalid data type. Is there a way to use strings in conditions in if commands? ]]>

https://pasteboard.co/IDuzeHH.png ]]>

rmd(i:9)=rmd(i:9)-qd(1:10-i); % this is the syntax I need an equivalent for

polynomial fraction

0.2/(z^4-0.4z^3+0.646z^2-0.243z+0.024)

this is the code for the power series up to 9 terms.

rmd= [0.2 0 0 0 0 0 0 0 0]; %numerator coefficient

q= [0 0 0 0 0 0 0 0 0 0]; %quotient

qd=[0 0 0 0 0 0 0 0 0 0]; % product of quotient term with denominator

d=[1 -0.4 0.6465 -0.2426 .02426 0 0 0 0];%denominator

rmd(i:9)=rmd(i:9)-qd(1:10-i);

r= [0.2 0 0 0 0 0 0 0 0];

q= [0 0 0 0 0 0 0 0 0 0];

qd=[0 0 0 0 0 0 0 0 0 0];

d=[1 -0.4 0.6465 -0.2426 .02426 0 0 0 0];

rmd=r;

i=1;

for i=1:9

q(i)=rmd(i)/d(1);

qd=q(i)*d;

rmd(i:9)=rmd(i:9)-qd(1:10-i);

end

` ``:ClrDraw :DelVar A15→B :Text(1,82," :Text(0,82," LET :" →Str1 :Repeat max(M={45,105,21 :‾5→C :Repeat M=23 or max(Ans={21,45,105}) or (not(A)M>40 and not(A)M<95 and M≠44) or max(AAns={92,93,94,102,82,83,84,72,73,74 :C+1-10(C>4→C :Text(29,B,sub(" [",1+(Ans>0),1 :Text(29,B+1," :If M=31 :Then :not(A→A :Text(0,83,sub("LETNUM",3A+1,3 :End :getKey→M :End :If min(M≠{21,105,45,23 :Then :If A :Then :sub("0123456789",27-3int(.1M)+10fPart(.1M)+2(M=102),1 :Text(29,B,Ans :Str1+Ans→Str1 :B+4→B :Else :sub("ABC DEFGHIJKLMNOPQRSTUVWXYZθ",M-5int(.1M)-20,1 :Text(29,B,Ans :Str1+Ans→Str1 :B+4→B :End :Else :If M=23 and 1<length(Str1 :Then :B-4→B :Text(29,Ans," :sub(Str1,1,length(Str1)-1→Str1 :End :End :End`

works very well but doesn't support decimals and requires you to switch to numlock if you want to input numbers. This other routine:

` ``DelVar A" →Str1 Repeat K=55 Output(1,16,sub("A1",A+1,1 Output(2,16,Str1+"^ //one space afterwards Repeat Ans getKey End Ans-5int(.1Ans→K "* If K-20>16A sub("789**456**123**0.‾**ABC**DEFGHIJKLMNOPQRSTUVWXYZθ'* :?*",K-36A,1 If Ans≠"* Str1+Ans→Str1 A xor K=16→A length(Str1 If Ans≠1 sub(Str1,(K=55)+1,1+(K≠25)(Ans-1-(21=abs(K-34→Str1 If K=25 ClrHome End ClrHome Str1`

supports decimals but is very ugly, brings me to the home screen (which I want to avoid) and also requires numlock. Is there any way to simplify the first routine so that it doesnt require numlock (only number input is possible) but also supports decimals? I don't have coding experience so any help would be much appreciated thank you :)

ps. I tried to provide links to the respective code but im too new to the forum for that. the first routine is off the techniques page and the second is from an old thread I found.

]]>` ``DelVar [A]{6,7→dim([A] //sets [A] to 6x7 all 0's Disp" Disp"+-+-+-+-+-+-+-+ For(A,1,5 Disp"] End Output(8,1,"] For(A,3,8 Output(A,15,"[ End For(A,1,8 Output(A,16,sub("PLAYER_ _",A,1 //"_" is a space End DelVar θ2→P 7→dim(L₂ Fill(6,L₂ For(Z,1,42 If θ Goto 1 (P=1)2+(P=2)→P Output(8,16,P 2→V Repeat K=105 and L₂(.5V Output(1,V,"v Repeat K getKey→K End Output(1,V,"_ V+2(K=26 and V≤12)-2(K=24 and V≥4→V End .5V→V P(P=1)+(P-3)(P=2→[A](L₂(V),V) If P=1 Output(2+L₂(V),2V,"0 //zero If P=2 Output(2+L₂(V),2V,"O //letter O 0→θ If L₂(V)≤3 Then For(A,7,5,-1 cumSum(seq([A](A-I,V),I,1,4 If Ans(4)=4 1→θ If Ans(4)=-4 -1→θ End End For(A,0,3 cumSum(seq([A](L₂(V),A+I),I,1,4 If Ans(4)=4 1→θ If Ans(4)=-4 -1→θ End V+L₂(V->B If B≥5 and B≤10 Then seq([A](1,B-I),I,(B≤7)(B-1)+6(B≥8),(B≤7)+(B≥8)(B-7),-1→L₁ For(A,1,dim(L₁)-3 cumSum(seq(L₁(M),M,A,A+3 If Ans(4)=4 1→θ If Ans(4)=-4 -1→θ End End L2(V)-V→B If B≤2 and B≥-3 Then seq([A](I,I-B),I,(B≤-1)+(B+1)(B≥0),6(B≥0)+(B+7)(B≤-1→L₁ For(A,1,dim(L₁)-3 cumSum(seq(L1(M),M,A,A+3 If Ans(4)=4 1→θ If Ans(4)=-4 -1→θ End End L₂(V)-1→L₂(V End Lbl 1 ClrHome "PLAYER_ If θ=1 Ans+"1 If θ≠1 Ans+"2 Ans+" WINS! If Z=42 "CAT GOT THE GAME Ans I had some problems with the code especially`

L2(V)-V→B

[[/code]]

I was Just wondering if there were some things wrong with this code because I don't know much about coding

also, this was brought from http://tibasicdev.wikidot.com/connect-4-2-player

]]>Has anyone else knew about this before I did, or is this new find?

]]>The competition ends on November 1, 2019

The objective is simple: Create a program that can someone can quickly create on another person's TI-84+ CE calculator that overloads the memory when run. The program must result in the calculator resetting. (Specifically, removing all programs, settings, etc.) The easiest program to make that also does the job in the shortest amount of time wins!

**And the prize:** A warm fuzzy feeling!

Rules:

1. No use of assembly

2. The program must be able to be built on any TI-84+CE calculator, regardless of any special features that the calculator has.

**Good Luck!**