Re: TIB: challenge


[Prev][Next][Index][Thread]

Re: TIB: challenge




this is what i use..the enitre thing is long...and for the 83..but here 
goes..it may be a bit sloppy...but it runs faster that anything i have 
tried......i used to have a Domain test...but i forgot it..try to add one 
ifya can
.
:ClrHome
:4->A
:8->B
:Lbl  01
:ClrHome
:Output(A,B,"O"
:getkey->K
:While A/=\0
:getkey->K
:End
:If k=24
:Goto AA
:If K=25
:Goto BB
:If k=26
:Goto CC
:If K=34
:Goto DD
:
:Lbl AA
:(B-1)->b
:Goto 01

:LBL BB
:(A-1)->A
:GOTO 01

:LBL CC
:(B+1)->B
:GOTO 01

:LBL DD
:(A+1)->A
:GOTO 01


Follow-Ups: