TIB: Basic '86- My Mistake (and another problem yet..)


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

TIB: Basic '86- My Mistake (and another problem yet..)




Thanks for your help find that bug so obvious I'd never had noticed
it(I'm not kidding. I never see things like that..). That was just a
little qwirk, but now, I ran into a slightly different problem. What's
wrong with this code? I tried it, but it doesn't do anything at all when
I press right or exit. What gives?

:ClLCD
:ClDrw
:45(storeto)Y
:yMin(storeto)YM
:yMax(storeto)YX
:-6(storeto)yMin
:6(storeto)yMax
:DispG
:Line(-5,-5,-5,5)
:Line(-5,5,5,5)
:Line(5,5,5,-5)
:Line(5,-5,-5,-5)
:Text(30,Y,"@")
:DispG
:getKy(storeto)A
:Lbl ABC
:If A==22
:Then
:Goto OFF
:End
:If A==26
:Then
:Text(30,Y," ")
:Y+5(storeto)X
:X(storeto)Y
:DelVar(X)
:Text(30,Y,"@")
:Goto ABC
:Else
:Goto ABC
:Lbl OFF
:ClDrw
:YM(storeto)yMin
:YX(storeto)yMax
:Stop