# STACK
SX: 876
SY: 8
SZ: 8
SL: 1

# REGS
Ri: 1
RA: 8
RB: 4
RC: 1
RD: 3
RE: 6
RF: 2
RG: 7
RH: 5
RR: 8
RS: 876
RX: 8

# FLAGS

# SEED

# MODE
MTRIG: DEG
MFMT: FIX 6

# EQUATION LIST
EQNPTR: 0
EQN
EQNEND

# PROGRAM
PTR: 0
PGM
  LBL Q
  CLVARS
  8
  STO R
  LBL A
  RCL X
  RCL R
  x=y?
  GTO E
  1
  STO+ X
  RCL X
  STO i
  RCL R
  STO\blpar;i\brpar;
  LBL B
  1
  STO+ S
  RCL X
  STO Y
  LBL C
  1
  STO- Y
  RCL Y
  x=0?
  GTO A
  RCL X
  STO i
  RCL\blpar;i\brpar;
  RCL Y
  STO i
  R\down;
  RCL\blpar;i\brpar;
  -
  x=0?
  GTO D
  ABS
  RCL X
  RCL Y
  -
  x\neq;y?
  GTO C
  LBL D
  RCL X
  STO i
  1
  STO-\blpar;i\brpar;
  RCL\blpar;i\brpar;
  x\neq;0?
  GTO B
  1
  STO- X
  RCL X
  x\neq;0?
  GTO D
  LBL E
  RCL S
  RTN
PGMEND