Re: A82: Basic Conversion

To: assembly-82@lists.ticalc.org
Subject: Re: A82: Basic Conversion
From: GeradS711 <GeradS711@aol.com>
Date: Wed, 28 Jan 1998 18:23:39 EST
Organization: AOL (http://www.aol.com)
Reply-To: assembly-82@lists.ticalc.org
In a message dated 98-01-27 20:15:27 EST, you write:

> Subj:	 Re: A82: Basic Conversion
>  Date:	98-01-27 20:15:27 EST
>  From:	n3ynd@bellatlantic.net (Creasy)
>  Sender:	owner-assembly-82@lists.ticalc.org
>  Reply-to:	assembly-82@lists.ticalc.org
>  To:	assembly-82@lists.ticalc.org
>  
>  
>  GeradS711 wrote:
>  > 
>  > Yeah, yeah I know this is the wrong place to send this to, but I wrote 
> this
>  > program for rotating 2nd degree equations for my 82, and it soon became 
> pretty
>  > popular in my math class, but I couldn't port it to the 85 for some
reason
>  > dealing with the
>  > 'sto->' command, do you have to define vars in 85 basic? Anyway, could
>  > somebody port this for me.... Thanx
>  > I had to use long hand a lot because of the way the font doesn't support 
> the
>  > signs on email.... also // is a comment.
>  > Thanks again,
>  > Gerad
>  > :ClrDraw
>  > :Degree
>  > :Func
>  > :StoreGDB GDB1
>  > :""-->Y1  //as in the Y= screen
>  > :""-->Y2
>  > :""-->Y3
>  > :""-->Y4
>  > :AxesOff
>  > :LabelOff
>  > :ZStandard
>  > :Prompt A,B,C,D,E,F
>  > :B/(A-C)
>  
>    :tan(^ -1) Ans  // This does not work!!
>  
>  > :Ans/2-->Z
>  
>    :Text(1,1,"<Theta>=",Z  // There is no Text command on the TI-85
>  
>    :Acos Zcos Z+Bcos Zsin Z+Csin Zsin Z  // This does not work
>  
>    :Ans-->G  //it errors here  /// I didn't get this far!!
>  
>    :Text(8,1,"A'=",G  // There is no Text command on the TI-85
>  
>    :Asin Zsin Z-Bsin Zcos Z+Ccos Zcos Z  // This does not work
>  
>  > :Ans-->H
>  
>    :Text(15,1,"C'=",H  // There is no Text command on the TI-85
>  
>    :Text(22,1,round(G,2),"X'(^2)+",round(H,2),"Y'(^2)=",-round(F,2)  //
>  There is no Text command on the TI-85
>  
>  > :Pause
>  
>    :RecallGDB GDB1  // RcGDB GDB1
>  
>    :ClrDraw  // ClDrw
>  
>  > :AxesOn
>  
>    :ClrHome  // ClLCD
>  
>  
>  Why don't you send the TI-82 file!  I tried to fix it but I don't know
>  what parts are soposed to be!!!
>  
>  I have a solution:
>  
>  
>  
>  :ClDrw
>  :Degree
>  :Func
>  :StGDB GDB1
>  :""->Y1
>  :""->Y2
>  :""->Y3
>  :""->Y4
>  :AxesOff
>  :LabelOff
>  :ZStd
>  :Prompt A,B,C,D,E,F
>  :B/(A-C)
>  :Ans/2->Z
>  :Disp "<Theta>=",Z
>  :Ans->G
>  :Disp "A'=",G
>  :Ans->H
>  :Disp "C'=",H
>  :Disp round(G,2),"X'(^2)+",round(H,2),"Y'(^2)=",-round(F,2)
>  :Pause 
>  :RcGDB GDB1
>  :ClDrw
>  :AxesOn
>  :ClLCD
>  
Sorry, you are right, the programming is very unclear... and modifications I
made make it incompatible with the 85, but the original program still works,
so I am sending the orginal program in a zipped file. The problem is the
'sto->' command. For some reason when ever it gets to the part where That I
commented, it says err: variable is undefined or
 something to that effect, and I don't know why
ROTATE.ZIP