TIB: Re: Basic '86 -Why doesn't this Work?


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

TIB: Re: Basic '86 -Why doesn't this Work?




It doesn't work because you have you getky repeat lbl in the wrong place.
This is what you want...

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
:Lbl ABC
:getKy(storeto)A
:If A==0
:If A==22
:Goto OFF
:Goto ABC
:Lbl OFF
:ClDrw
:YM(storeto)Min
:YX(storeto)Max
:Stop

 From the desk of:
  J. Smith
  Wride! Productions
  http://members.tripod.com/~wride_software




>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