Re: TI-M: Faster Basic

To: ti-math@lists.ticalc.org
Subject: Re: TI-M: Faster Basic
From: PieMan2000@aol.com
Date: Tue, 23 May 2000 18:14:09 EDT
Reply-To: ti-math@lists.ticalc.org


ok, so far none of the ones have been the best/fasted/smallest, here it is, 
strait from my brain ;):
1->C 
1->R 
Repeat 0 
ClrHome 
Output(R,C,'X' 
Repeat Ans 
getKey->K 
End 
R+(K=34)(R<8)-(K=25)(R>1->R 
C+(K=26)(C<16)-(K=24)(C>1->C 
End 
-Jonathon Capps
the original program:
> ClrHome
>  1->R
>  1->C
>  Lbl A
>  Output(R,C," ")
>  getKey->K
>  If K=24
>  C-1->C
>  If K=26
>  C+1->C
>  If K=25
>  R-1->R
>  If K=34
>  R+1->R
>  If R=0
>  1->R
>  If R=9
>  8->R
>  If C=0
>  1->C
>  If C=17
>  16->C
>  Output(R,C,"X")
>  Goto A

Prev: Re: TI-M: Even Square
Next: Re: TI-M: Even Square
Index(es):
- Main
- Thread