Re: TI-M: Faster Basic
[Prev][Next][Index][Thread]
Re: TI-M: Faster Basic
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