# STACK

# REGS

# FLAGS

# MODE
MTRIG: DEG
MFMT: FIX 4

# EQUATION LIST
EQNPTR: 0
EQN
EQNEND

# PROGRAM
PTR: 5
PGM
  LBL A
  1.012
  STO i
  LBL L
  INPUT\blpar;i\brpar;
  ISG i
  GTO L
  GTO A
  LBL I
  XEQ D
  STO W
  RCL A
  RCL\mul; I
  RCL C
  RCL\mul; G
  -
  STO X
  RCL C
  RCL\mul; D
  RCL A
  RCL\mul; F
  -
  STO Y
  RCL B
  RCL\mul; G
  RCL A
  RCL\mul; H
  -
  STO Z
  RCL A
  RCL\mul; E
  RCL B
  RCL\mul; D
  -
  STO i
  RCL E
  RCL\mul; I
  RCL F
  RCL\mul; H
  -
  STO A
  RCL C
  RCL\mul; H
  RCL B
  RCL\mul; I
  -
  RCL B
  RCL\mul; F
  RCL C
  RCL\mul; E
  -
  STO C
  R\down;
  STO B
  RCL F
  RCL\mul; G
  RCL D
  RCL\mul; I
  -
  RCL D
  RCL\mul; H
  RCL E
  RCL\mul; G
  -
  STO G
  R\down;
  STO D
  RCL i
  STO I
  RCL X
  STO E
  RCL Y
  STO F
  RCL Z
  STO H
  9
  STO i
  RCL W
  LBL J
  STO\div;\blpar;i\brpar;
  DSE i
  GTO J
  RTN
  LBL M
  7
  XEQ N
  8
  XEQ N
  9
  LBL N
  STO i
  RCL J
  RCL K
  RCL L
  RCL\mul;\blpar;i\brpar;
  XEQ P
  XEQ P
  23
  STO+ i
  R\down;
  STO\blpar;i\brpar;
  VIEW\blpar;i\brpar;
  RTN
  LBL P
  x<>y
  DSE i
  DSE i
  DSE i
  RCL\mul;\blpar;i\brpar;
  +
  RTN
  LBL D
  RCL A
  RCL\mul; E
  RCL\mul; I
  RCL D
  RCL\mul; H
  RCL\mul; C
  +
  RCL G
  RCL\mul; F
  RCL\mul; B
  +
  RCL G
  RCL\mul; E
  RCL\mul; C
  -
  RCL A
  RCL\mul; F
  RCL\mul; H
  -
  RCL D
  RCL\mul; B
  RCL\mul; I
  -
  RTN
PGMEND