_________________________________________________________________________

           Title: Misc Stuff in swedish! *NEW*
          Author: Mats Forsén
      Written by: Mats Forsén

     Description: Some swedish Stuff I´ve programmed.

         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.
_________________________________________________________________________

Press X when it asks for the unknown variable!!

 Program 1: MOL

'MOL'
0->A~C
0->X      ;The X 2 below the SHIFT button, NOT the ALPHA X one...
" m = M * n"
" "
"MASSA (G)"?->A
"MOLMASSA (G/MOL)"?->B
"SUBSTANSMANGD (MOL)"?->C
" "
A=0=>"MASSA:"
A=0=>B*C_              ;Disp!
B=0=>"MOLMASSA:"
B=0=>A/C_              ;Division, Disp!
C=0=>"SUBSTANSMANGD:"
C=0=>A/B_              ;Division, Disp!
A<>0=>B<>0=>C<>0=>"DU VET REDAN ALLT!"    ;Not equal to, =/=

________________________________________________________________________

 Program 2: Ohms lag (el)
 Press X when it asks for the unknown variable!!

"OHMS LAG"
Prog XX                 ; XX = number of Clean program!
"STROM [A]"?->A
"SPANNING [V]"?->B
"RESISTANS [OHM]"?->C
Eng
A=0=>"STROM:"
A=0=>B/C_               ; Division, Disp!
B=0=>"SPANNING:"
B=0=>C*A_               ; Disp!
C=0=>"RESISTANS:"
C=0=>B/A_               ; DIsp!
Eng


_________________________________________________________________________

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/
_________________________________________________________________________