This Programs is from Silver Stone BBS
_________________________________________________________________________

                   SilverSTone BBS - Casio Support BBS

 SysOp: Magnus Werner, M.Werner@abc.se
                       Magnus.Werner@f345.n201.z2.fidonet.org
        Casio URL: http://www.abc.se/~m9935/casio.html
        Casio FTP: ftp://ftp.abc.se/pub/casio/
        FidoNet  : 2:201/345

 Open 24 hours/day on 28k8 V34/VFC, Phone +46-(0)8-6417838.
                                                                 951020
_________________________________________________________________________

           Titel: Diagram
          Author: Magnus Werner
      Written by: Magnus Werner

     Description: A utility to make diagrams.

         Remarks: Program mode SD (or REG).

_________________________________________________________________________

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)
4rt()           4th root
pi              pi (~3.14159265359, low case)
e()             e(1) (~2.7818281846, low case)
E               Exponent (5E4 gives 5*10^4) (located on the keyboard,
                [EXP])
_________________________________________________________________________

All commands which in ASCII-form are two or more characters are to be
seperated from other commands with a space (i.e. -> , => , <> or pi).
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:

 
"DIAGRAM"
Defm 10
"VALUE 1"? -> A
"VALUE 2"? -> B
"VALUE 3"? -> C
"VALUE 4"? -> D
"VALUE 5"? -> E
"VALUE 6"? -> F
"VALUE 7"? -> G
"VALUE 8"? -> H
"VALUE 9"? -> I
"VALUE 10"? -> J
Range 0,100,10,-10,30,2
Scl
0;Adt
10;Bdt
20;Cdt
30;Ddt
40;Edt
50;Fdt
60;Gdt
70;Hdt
80;Idt
90;Jdt
Graph Y=Line                  ; remove "Line" to get a block diagram


_________________________________________________________________________

 If you need help or information concerning this file, please contact
 Magnus Werner at the addresses above, or the author if possible.

_________________________________________________________________________