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: