Factorization 1.0
Copyright (C) 1996 H†kon Stordahl

E-mail  : stordahl@usa.net
Homepage: http://stordahl.home.ml.org/
Date    : 23.08.96
Model   : CASIO CFX-9850G Calculator

Notes
--------------------------------------------------------------------------------
This program will print all the factors of a number. If the number has no
factors except 1 and the number itself, then the given number is returned.

Symbol:    Description:                         Key(s):
--------------------------------------------------------------------------------
->         Assginment operator                  Above [AC/ON]
*          Multiplication                       Below [DEL]
/          Division                             Below [AC/ON]
(-)        Unary minus                          Below [+]
=          Equal to                             [SHIFT] [.]
<>         Not equal to                         [SHIFT] [VARS] [F6] [F3] [F2]
>=         Greater than or equal to             [SHIFT] [VARS] [F6] [F3] [F5]
<=         Less than or equal to                [SHIFT] [VARS] [F6] [F3] [F6]
=>         If-Then                              [SHIFT] [VARS] [F3] [F3]
\sqrt      Square root                          [SHIFT] [X^2]
\slash     / (slash)                            [F6] [F5]
\{i}       \sqrt(-1)                            [OPTN] [F3] [F1]
Frac       Returns fractional part of argument  [OPTN] [F6] [F4] [F3]
ClrText    Clear the text screen                [SHIFT] [VARS] [F6] [F1] [F1]
Getkey     Determine keypress                   [SHIFT] [VARS] [F6] [F4] [F2]
Locate     Display variable at the given coords [SHIFT] [VARS] [F6] [F4] [F1]
{          Left brace                           [SHIFT] [*]
}          Right brace                          [SHIFT] [/]
[          Left bracket                         [SHIFT] [+]
]          Right bracket                        [SHIFT] [-]
List       List-variable                        [OPTN] [F1] [F1]
Sum        The sum of all entries in the list   [OPTN] [F1] [F6] [F6] [F1]
And        Logical And operator                 [OPTN] [F6] [F6] [F4] [F1]
Or         Logical Or operator                  [OPTN] [F6] [F6] [F4] [F2]
Not        Logical Not operator                 [OPTN] [F6] [F6] [F4] [F3]

File name: FACTOR
Variables: I, N, X, Y
--------------------------------------------------------------------------------
ClrText
"ENTER NUMBER: "?->N
ClrText
1->X
1->Y
2->I
Do
If Frac (N/I)=0
Then Locate X,Y,I
N/I->N
Y+1->Y
If Y=8
Then X+4->X
1->Y
IfEnd
Else I+1->I
IfEnd
LpWhile I<=\sqrtN
N>1=>Locate X,Y,N
--------------------------------------------------------------------------------