_________________________________________________________________________

           Title: Straight Line equation (spelling?)
          Author: Mats Forsén
      Written by: Mats Forsén

     Description: Calculates Y=KX+M...
                  Either enter k and 1 point in Coord-system or 2 points...
                  It then calculates equation and graphs it!

         Remarks: Version 1.0 for fx7700-GE. 

            Size: XX Bytes

_________________________________________________________________________

Command translation:

->              Single arrow (located on the keyboard)
=>              Double arrow (press: [shift] [prgm] [f1] [f1])
_               Display, -Disp- (press: [shift] [prgm] [f4])
<=              Less or equal (A <= B)
>=              Greater or equal (A >= B)
<>              Not equal (A <> B)
^               Raised to the power of
/               Division or fraction (explain which with a comment)
2rt()           Root (2rt(7) is the square root of 7)
_________________________________________________________________________

Refer to the command standard used in R20_CASIO and set by Magnus
Werner on SilverSTone BBS (2:201/345@fidonet.org).

Everything after a ; is a comment and should not be in the code.
_________________________________________________________________________

Program:
'Y = kX + m'            ;I used some special symbols to get small chars, not necessary..
Prog XX                 ; XX = some type of clear program! (ie, mine if you dont have any)
"k"?->K
"X1"?->A
"Y1"?->B
K=0=>"X2"?->C
K=0=>"Y2"?->D
K=0=>"Y ="
K=0=>K_                 ; Disp!
K=0=>"X +"
K=0=>(-K*A)+B->V
K=0=>V_                 ; Disp!
K=0=>Goto 9
"Y ="
(D-B)/(C-A)->K          ; Division...
K_                      ; Disp!
"X +"
(-G*A)+B->V
V_                      ; Disp!
Lbl 9
" "
"GRAPH:"_               ; Disp!
V<=0=>-V->V             ; hack to make range work
V<=0=>1->W
Range -V-5,V+5,1,-V-5,V+5,1
W=1=>-V->V
Graph Y=KX+V            ; X = the one two down from the shift button!!


_________________________________________________________________________

If you need help or information concerning this file, please contact 
Mats Forsén at one of the following adresses.

E-Mail :  t95forsm@ava.taby.se
   WWW :  http://elev.ava.taby.se/~t95forsm/programming/
_________________________________________________________________________