Hi,

Here is one of the first programs I made to learn TI BASIC. Thought it would be nice to share it with others… It was written for the TI Voyage 200, so if you have a different model, you may need to adjust the screen settings.

```
()
Prgm
ClrIO
20->x
10->y
5->xx
5->yy
40->p
0->s
Loop
x+xx->x
y+yy->y
If x<20 Then
If abs(p-y)<=10 Then
-xx->xx
s+1->s
Else
ClrIO
Disp "Game Over"
Stop
EndIf
EndIf
If x<0 or x>220 Then
-xx->xx
EndIf
If y<0 or y>85 Then
-yy->yy
EndIf
ClrIO
Disp s
Output y,x,"o"
getKey()->k
If k=344 Then
p+5->p
EndIf
If k=338 Then
p-5->p
EndIf
Output p-5,15,"#"
Output p,15,"#"
Output p+5,15,"#"
EndLoop
EndPrgm
```

Cheers,

vma