# STACK

# REGS

# FLAGS

# MODE
MTRIG: DEG
MFMT: FIX 4

# EQUATION LIST
EQNPTR: 0
EQN
EQNEND

# PROGRAM
PTR: 28
PGM
  LBL P
  INPUT F
  STO i
  LBL I
  INPUT\blpar;i\brpar;
  DSE i
  GTO I
  RCL F
  STO i
  GTO\blpar;i\brpar;
  LBL H
  RCL H
  STO i
  1
  LBL J
  ENTER
  RCL\mul; X
  RCL+\blpar;i\brpar;
  DSE i
  GTO J
  RTN
  LBL S
  STO H
  250
  STO X
  +/-
  FN= H
  SOLVE X
  GTO H
  0
  \div;
  LBL Q
  x<>y
  2
  \div;
  +/-
  ENTER
  ENTER
  STO F
  x\sqr;
  R\up;
  -
  CF 0
  x<0?
  SF 0
  ABS
  SQRT
  STO G
  FS? 0
  RTN
  STO- F
  R\down;
  STO+ G
  RTN
  LBL B
  RCL B
  RCL A
  GTO T
  LBL C
  3
  XEQ S
  R\down;
  XEQ Q
  VIEW X
  GTO N
  LBL E
  5
  XEQ S
  R\down;
  STO A
  R\down;
  STO B
  R\down;
  STO C
  RCL E
  RCL+ X
  STO D
  VIEW X
  LBL D
  4
  RCL\mul; C
  RCL D
  x\sqr;
  -
  RCL\mul; A
  RCL B
  x\sqr;
  -
  STO E
  RCL C
  +/-
  STO G
  RCL D
  RCL\mul; B
  4
  RCL\mul; A
  -
  STO F
  4
  3
  10\powx;
  \div;
  7
  +
  XEQ S
  R\down;
  XEQ Q
  RCL X
  STO E
  FS? 0
  GTO F
  RCL F
  x<y?
  x<>y
  RCL G
  x<y?
  x<>y
  STO E
  LBL F
  2
  STO\div; D
  STO\div; E
  9
  10\powx;
  1/x
  RCL E
  x\sqr;
  RCL- A
  x<y?
  CLx
  SQRT
  STO A
  RCL D
  RCL\mul; E
  RCL B
  2
  \div;
  -
  x=0?
  1
  STO B
  ABS
  STO\div; B
  RCL D
  x\sqr;
  RCL- C
  RCL+ E
  RCL+ E
  SQRT
  STO\mul; B
  RCL D
  RCL+ B
  RCL E
  RCL+ A
  XEQ T
  RCL D
  RCL- B
  RCL E
  RCL- A
  LBL T
  XEQ Q
  LBL N
  RCL F
  STO X
  VIEW X
  RCL G
  FS? 0
  GTO U
  STO X
  VIEW X
  RTN
  LBL U
  STO i
  VIEW i
  VIEW X
  RCL i
  +/-
  STO i
  VIEW i
PGMEND