This is my first (real) game on the TI-84, please give me feedback and try it out :)

Here it is (<> These marks mean I want to say something about the code, don't take these into your calculator) :

```
ClrHome
Output(1,1,"****************"
Output(4,5,"ASTROIDS"
Output(5,3,"BY WHOCARROT"
Output(8,1,"****************"
Pause
Lbl 9
ClrHome
prgmDELVAR
<You need to have a program DELVAR, it just sets all variables to 1 except the circle with the line trough it (alpha 3)>
Lbl 0
ClrHome
A->R
randInt(4,16->T
randInt(1,8->G
randInt(4,16->H
randInt(1,8->I
randInt(4,16->J
randInt(1,8->K
randInt(4,16->L
Output(R,T,"*"
Output(G,H,"*"
Output(I,J,"*"
Output(K,L,"*"
While D<17
If A=R and D=T or A=g and D=H or A=I and D=J or A=k and D=L
Then
ClrHome
If N>0
then
N->Ø
Output(2,2,"NEW HIGH SCORE:"
Output(3,3,Ø
Pause
Goto 9
Else
Output(2,2,"YOUR SCORE:"
Output(3,3,N
Output(5,2,"HIGH SCORE:"
Output(6,3,Ø
Pause
Goto 9
End
Pause
Goto 9
End
GetKey->B
A-((B=25)-(B=34))->A
Output(A,D,"-"
D+1->D
If N<11
Then
(1sin(cos(tan(2)
<Above this u can see sin cos tan, I only use that to slow the line down a bit, if u have another way to do that (easy), please tell me>
Goto 5
Else
Goto 5
End
Lbl 5
End
End
(1sin(cos(tan(sin(cos(tan(2)
ClrHome
1->D
N+1->N
Goto 0
```

Edit:

I made an improvement to the ship, here is the code to do so yourself (again, not the best piece of code but it works :D)

```
ClrHome
Output(1,1,"****************"
Output(4,5,"ASTROIDS"
Output(5,3,"BY WHOCARROT"
Output(8,1,"****************"
Pause
Lbl 9
ClrHome
prgmDELVAR
Lbl 0
ClrHome
A->R
randInt(5,16->T
randInt(1,8->G
randInt(5,16->H
randInt(1,8->I
randInt(5,16->J
randInt(1,8->K
randInt(5,16->L
Output(R,T,"*"
Output(G,H,"*"
Output(I,J,"*"
Output(K,L,"*"
While D<17
If A=R and D=T or A=G and D=H or A=I and D=J or A=k and D=L
Then
ClrHome
If N>0
then
N->θ
Output(2,2,"NEW HIGH SCORE:"
Output(3,3,θ
Pause
Goto 9
Else
Output(2,2,"YOUR SCORE:"
Output(3,3,N
Output(5,2,"HIGH SCORE:"
Output(6,3,Ø
Pause
Goto 9
End
Pause
Goto 9
End
GetKey->B
A->U
A-((B=25)-(B=34))->A
Output(A,D,">"
Output(U,D-1," "
D+1->D
If N<11
Then
(1sin(cos(tan(2)
Goto 5
Else
Goto 5
End
Lbl 5
End
End
(1sin(cos(tan(sin(cos(tan(2)
ClrHome
1->D
N+1->N
Goto 0
```

It is a bit nooby, but it works and I like it :]

Btw, it speeds up after 10 points, so dont worry because it goes so slow!

Things I want to do:

1. Make it so that there come more astroids over time.

2. Make the astroids come to you. I have worked on this lately and here is what I've got so far:

```
prgmDELVAR
5->F
ClrHome
Lbl0
15->D
randInt(0,8->B
While D>=2
getKey->E
F-((E=25)-(E=34))->F
Output(F,2,">"
Output(F+1,2," "
Output(F-1,2," "
Output(B,D,"*"
(1sin(cos(tan(sin(cos(tan(2)
Output(B,D+1," "
D-1->D
End
Z+1->Z
Goto 0
```

Far from finished but u can see the idea right here :]

3. Make your ship cooler (With a sprite if that is possible in some way).

4. Make you pause the game and see your score while paused.

Thanks for coming by, hope you liked it, and please tell me what things I could fix in the code.

ClrHome:Lbl 0:GetKey->A:If A>0:Then:ClrHome:Output(2,2,A:Goto 0:Else:End:Goto 0