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

To: <ti-basic@lists.ticalc.org>
Subject: TIB: Re: Basic '86 -Why doesn't this Work?
From: "J. Smith" <agent700@usa.net>
Date: Mon, 31 Aug 1998 17:16:10 -0500
Delivered-To: ti-basic-outgoing@towerguard.unix.edu.sollentuna.se
Reply-To: ti-basic@lists.ticalc.org



SORRY. I screwed up the first one... this is the right syntax

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
:Goto ABC
: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

Prev: TIB: Re: Basic '86 -Why doesn't this Work?
Index(es):
- Main
- Thread