Re: TIB: Basic '86 -Why doesn't this Work?
[Prev][Next][Index][Thread]
Re: TIB: Basic '86 -Why doesn't this Work?
Put "getky(storeto)a" after the Lbl ABC
<<Why doesn't this work? This picture draws OK, and places the @ symbol,
and I think it waits for the getky, but when I hit exit(key 22) it
doesn't quit. What am I doing wrong?
By (storeto), I mean the store variable arrow.
:ClLCD
:ClDrw
:yMin(storeto)YM
:yMax(storeto)YX
:-6(storeto)Min
:6(storeto)Max
:DispG
:Line(-5,-5,-5,5)
:Line(-5,5,5,5)
:Line(5,5,5,-5)
:Line(5,-5,-5,-5)
:Text(30,45,"@")
:DispG
:getKy(storeto)A
:Lbl ABC
:If A==22
:Then
:Goto OFF
:Else
:Goto ABC
:Lbl OFF
:ClDrw
:YM(storeto)Min
:YX(storeto)Max
:Stop>>