Trenly used to be active quite a lot while I was younger, but nowadays they have stopped interacting with this website. If you want a more active community, Cemetech.net is probably your best shot honestly. It has a larger community and has been more active

0→E:0→F Menu("GridHunt, made by Rishi C","Start",1,"How to Play",2,"View Highscores",3,"Exit",Z Lbl 2 ClrHome Output(1,1,"Buried treasure has been hidden somewhere in the 150x150 unit grid. Send drones to coordinates to uncover it. They are equipped with magnets that tell you the general distance they are from the treasure using hot, warm, cold, and ice. ->") 0→K:Repeat K≠0:getKey→K:End ClrHome Output(1,1,"Click the data button to see previous locations and the possible locations highlighted. Scroll through the guesses with 1 and 2. Press clear to return, and choose (-1,-1) to exit. Have fun!") 0→K:Repeat K≠0:getKey→K:End Menu("How will you continue?","Play",1,"Tell me again",2,"Exit",Z) Lbl 1 randInt(1,150)→A randInt(1,150)→B AxesOff GridDot 263→Xmax ­1→Xmin 163→Ymax ­1→Ymin {2,50}→dim([G]) Fill(0,[G]) For(T,1,50,1) Lbl A ClrDraw Vertical 152,BLACK For(C,151,163,2) Horizontal C,NAVY End TextColor(RED) Text(0,28,"View Guesses") For(C,153,263,2) Vertical C,WHITE End Text(140,200,"Try #"+toString(T) Text(150,13,"" Input If Y<1 and X<1:Goto Z If Y<1 or X>150 or X<1 or (Y>150 and T<2) Then ClrHome Disp "Choose a valid point","Points must have positive","coordinates less than 151","Choose a point with y>150","and >0 tries","to view past guesses" Wait 5 Goto A End If Y>150 and X<151 and T>1 Then 1→G Repeat K=45 ClrDraw Vertical 152,BLACK For(C,151,163,2) Horizontal C,NAVY End TextColor(RED) Text(0,26,"Clear to Exit") For(C,153,263,2) Vertical C,WHITE End Text(140,160,"Viewing try #"+toString(G) [G](1,G)→M [G](2,G)→N √(abs(M-A)^2+abs(N-B)^2)→D If D≤10 Then Text(5,200,"HOT!" 2→S For(R,0,10,S) For(θ,0,2π,0.05) getKey→K X+(R)*cos(θ)→E Y+(R)*sin(θ)→F If K=0:getKey→K If E≥0 and E≤150 and F≥0 and F≤150:Pt-On(E,F,RED) If K=0:getKey→K:If K=26:Then:9→R:0→θ:End:If K=45:Goto A End End End If D>10 and D≤20 Then Text(5,200,"Warm" 2.5→S For(R,10,20,S) For(θ,0,2π,0.1) getKey→K X+(R)*cos(θ)→E Y+(R)*sin(θ)→F If K=0:getKey→K If E≥0 and E≤150 and F≥0 and F≤150:Pt-On(E,F,ORANGE) If K=0:getKey→K:If K=26:Then:19→R:0→θ:End:If K=45:Goto A End End End If D>20 and D≤50 Then Text(5,200,"Cold" 2→S For(R,20,50,S) For(θ,0,2π,0.1) getKey→K X+(R)*cos(θ)→E Y+(R)*sin(θ)→F If K=0:getKey→K If E≥0 and E≤150 and F≥0 and F≤150:Pt-On(E,F,BLUE) If K=0:getKey→K:If K=26:Then:49→R:0→θ:End:If K=45:Goto A End End End If D>50 Then Text(5,200,"Ice..." 6→S For(R,50,211,S) For(θ,0,2π,0.1) getKey→K X+(R)*cos(θ)→E Y+(R)*sin(θ)→F If K=0:getKey→K If E≥0 and E≤150 and F≥0 and F≤150:Pt-On(E,F,LTBLUE) If K=0:getKey→K:If K=26:Then:210→R:0→θ:End:If K=45:Goto A End End End Repeat K=92 or K=93 or K=45:getKey→K:End If K=92 and G>1:G-1→G If K=93 and G<T-1:G+1→G End End If E≠0:Then:0→E:0→F:Goto A:End X→[G](1,T) Y→[G](2,T) 0→K Pt-On(X,Y,2,GREEN) √(abs(X-A)^2+abs(Y-B)^2)→D If D≤10 Then Text(5,200,"HOT!" 2→S For(R,0,10,S) For(θ,0,2π,0.05) getKey→K X+(R)*cos(θ)→E Y+(R)*sin(θ)→F If K=0:getKey→K If E≥0 and E≤150 and F≥0 and F≤150:Pt-On(E,F,RED) If K=0:getKey→K:If K=26:9→R End End End If D>10 and D≤20 Then Text(5,200,"Warm" 3→S For(R,10,20,S) For(θ,0,2π,0.1) getKey→K X+(R)*cos(θ)→E Y+(R)*sin(θ)→F If K=0:getKey→K If E≥0 and E≤150 and F≥0 and F≤150:Pt-On(E,F,ORANGE) If K=0:getKey→K:If K=26:19→R End End End If D>20 and D≤50 Then Text(5,200,"Cold" 2→S For(R,20,50,S) For(θ,0,2π,0.1) getKey→K X+(R)*cos(θ)→E Y+(R)*sin(θ)→F If K=0:getKey→K If E≥0 and E≤150 and F≥0 and F≤150:Pt-On(E,F,BLUE) If K=0:getKey→K:If K=26:49→R End End End If D>50 Then Text(5,200,"Ice..." 6→S For(R,50,211,S) For(θ,0,2π,0.1) getKey→K X+(R)*cos(θ)→E Y+(R)*sin(θ)→F If K=0:getKey→K If E≥0 and E≤150 and F≥0 and F≤150:Pt-On(E,F,LTBLUE) If K=0:getKey→K:If K=26:210→R End End End 0→K:Repeat K≠0:getKey→K:End If K=45:Goto Z End Lbl Z ClrDraw Disp "Bye!

bold text
: Input "function",g
:Define g(x)=g
(creates a partition of the interval of interest and stores it as list1)
:Define g(list1)=list2

So, the above doesn't work and I think it's the function's problem rather than the list's problem. I'm looking for the output in the list editor and list1 is fine but list2 has a "data type" error.
I tried using FUNC, ENDFUNC but it won't accept the numerical variable, it needs explicit direction. I don't want to apply a function that lives within the program… I want to apply the user's own function.

Thanks for any thoughts whatsoever!

The goal: To be able to take a variable, and then return a 1 (true) or 0 (false) based on if the variable type is the type we're checking for.

Strings (Unsolved)

Strings are the main reason this problem came up at all for me, and the reason I'm making this post. I've had a couple ideas for this, but so far they all lead to errors! My first thought was to try toString(Ans)=Ans, however this returns ERROR: DATA TYPE. I've tried some other ideas, such as checking for Length(, but without the Try command, we can't handle any of these solutions properly in TI-83 Basic.

Lists (Untested)

Matrices (Untested)

Numbers (Untested)

(Here's to hoping I'm able to edit this post, because I want to just post this now during a break)

It's not code

AsmPrgm

in the program?
Also: I dont have the

Asm(

in my Catalog. I already know how to and have jailbreaked it, and what do I do? Can I somehow "compile" it as an actual ASM program so I can run it from a shell, e.x. Cesium? When I run it, it just says "Error: Syntax".

Here is the full code if you need that too.

ClrHome
Disp ""
Disp " READY, SET,"
Disp " 3"
Disp " 2"
Disp " 1"
Disp ""
For(X,1,500):End
Disp " GO!"
Disp "":Disp "":Disp ""
0→D:0→C:13→X:8→W
int((28-W-1)/2)→R
{R,R,R,R}→L₁
0→S:8→M:0→N
While D=0
Output(10,R,"]")
Output(10,R+W,"[")
Disp "":Output(2,1,C)
Output(6,X,"=V=")
Output(5,X,"O+O")
Output(4,X," 0 ")
Output(3,X,"O^O")
Output(2,X," ")
If X≥L₁(1) and X≤L₁(1)+W-2:Then
N+1→N:If N=M:Then
If R=9:Then
randInt(­1,1)→S
Else
round((R-9)/W,0)*randInt(­1,0)→S
End
0→N
End
R+S→R
seq(L₁(I),I,2,4)→L₁
R→L₁(4)
C+1→C
getKey→K
If K=24:Then
Output(3,X+2," ")
Output(4,X+2," ")
Output(5,X+2," ")
Output(6,X+2," ")
X-1+(X=1)→X:Else:If K=26
Then
Output(3,X," ")
Output(4,X," ")
Output(5,X," ")
Output(6,X," ")
X+1-(X=24)→X:End:End
Else:1→D:End
End

AsmPrgm
2114
8A3E
08AE
77
C9

When done the program, write on the homescreen- Asm(prgm{What you called it})

Then press [Alpha] 2 times.

The code I used

{1^R, 2^R, 3^R,...}→L1