TIB: Re: Basic '86- My Mistake (and another problem yet..)
[Prev][Next][Index][Thread]
TIB: Re: Basic '86- My Mistake (and another problem yet..)
it is the same thing
************************************
dave
ICQ:16817590
E-mail: scheltem@aaps.k12.mi.us
TI86 Basic Programming Center
http://www.geocities.com/TimesSquare/Ring/8708/
-----Original Message-----
From: Nick Clark <roachnik@home.com>
To: ti-basic@lists.ticalc.org <ti-basic@lists.ticalc.org>
Date: Sunday, August 30, 1998 7:11 PM
Subject: 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
>