Tripartite Palindromic Partition of Integer (HP 50g) Challenge

[Gerald H]

Edit: The programme as below causes errors, some, believe it or not, introduced by me.
Please do not use - remains here for documentary considerations.

I have shortened ALGO4

CKSUM 3914h
SiIZE 9277.5

Code:

« → d p1 p2 p3
   « p1 SIZE ZEROLST
p1 SIZE 2 / IP p1
SIZE p2 SIZE p3
SIZE p1 1 GET p2 1
GET p3 1 GET 0 0 0
 c m l1 l2 l3 x y
z d1 d2 ci
  → « x y + z + 10
/ IP 'ci' STO c 1
ci PUT 'c' STO d 2
m * 3 - GET 'd1'
STO d 2 m * 2 - GET
'd2' STO
      IF z d1 <
      THEN d2 y -
10 MOD 'x' STO
      ELSE d2 y - 1
- 10 MOD 'x' STO
      END p1 3 x
PUT l1 2 - x PUT
'p1' STO d1 z - 1 -
10 MOD 'y' STO p2 2
y PUT l2 1 - y PUT
'p2' STO d 2 GET p1
2 GET - y - ci - 10
MOD 'z' STO p3 2 z
PUT l3 1 - z PUT
'p3' STO p1 2 GET y
+ z + ci + d 2 GET
- 10 / IP 'ci' STO
c 2 ci PUT 'c' STO
      IF m 4 >
      THEN 3 m 2 -
        FOR i d 2 m
* i - 1 - GET 'd1'
STO d i GET 'd2'
STO
          IF z d1 <
          THEN 1
'x' STO
          ELSE 0
'x' STO
          END p1 i
1 + x PUT 'p1' STO
p1 l1 i - x PUT
'p1' STO d1 z - 1 -
10 MOD 'y' STO p2 i
y PUT l2 i - 1 + y
PUT 'p2' STO d2 p1
i GET - y - ci - 10
MOD 'z' STO p3 i z
PUT 'p3' STO p3 l3
i - 1 + z PUT 'p3'
STO p1 i GET y + z
+ ci + d2 - 10 / IP
'ci' STO c i ci PUT
'c' STO
        NEXT
      END d m GET
'd1' STO d m 1 -
GET 'd2' STO
      IF z d1 <
      THEN p1 m 1
PUT 'p1' STO p1 m 1
+ 1 PUT 'p1' STO
      ELSE p1 m 0
PUT 'p1' STO p1 m 1
+ 0 PUT 'p1' STO
      END d1 z - 1
- 10 MOD 'y' STO p2
m 1 - y PUT m y PUT
'p2' STO d2 p1 m 1
- GET - y - ci - 10
MOD 'z' STO p3 m 1
- z PUT 'p3' STO x
y + z + ci + 10 /
IP 'ci' STO c m 1 -
ci PUT 'c' STO
      IF p1 m GET c
m 1 - GET + 0 == p2
m 1 - GET 9 ‹ AND
      THEN
        IF p3 m 1 -
GET 0 ‹
        THEN p2 m
GET 1 + 'y' STO p2
m y PUT m 1 - y PUT
'p2' STO p3 m 1 -
GET 1 - 'z' STO p3
m 1 - z PUT 'p3'
STO
        ELSE
          IF p2 m 2
- GET 0 ‹
          THEN p2 m
1 + GET 1 - 'y' STO
p2 m 1 + y PUT 'p2'
STO p2 m 2 - y PUT
'p2' STO
            IF p2 m
1 - GET 1 ‹ p3 m 2
- GET 9 ‹ AND
            THEN p1
m 1 + 1 PUT 'p1'
STO p1 m 1 PUT 'p1'
STO p2 m GET 1 -
'y' STO p2 m y PUT
m 1 - y PUT 'p2'
STO p3 m GET 1 +
'z' STO p3 m z PUT
m 2 - z PUT m 1 - 1
PUT 'p3' STO
            ELSE
              IF p2
m 1 - GET 1 ‹
              THEN
p1 m 1 + 2 PUT 'p1'
STO p1 m 2 PUT 'p1'
STO p2 m GET 2 -
'y' STO p2 m y PUT
m 1 - y PUT 'p2'
STO p3 m 0 PUT m 2
- 0 PUT 'p3' STO p3
m 1 - 3 PUT 'p3'
STO
              ELSE
p1 m 1 + 1 PUT 'p1'
STO p1 m 1 PUT 'p1'
STO p2 m 9 PUT m 1
- 9 PUT 'p2' STO p3
m 0 PUT m 2 - 0 PUT
m 1 - 3 PUT 'p3'
STO
              END
            END
          ELSE
            IF p3 m
1 - GET 0 == p2 m 2
- GET - == AND
            THEN p1
m 2 + GET 1 - 'x'
STO p1 m 2 + x PUT
'p1' STO p1 m 1 - x
PUT 'p1' STO
              IF p3
m 2 - GET 9 ‹
              THEN
p1 m 1 + 1 PUT 'p1'
STO p1 m 1 PUT 'p1'
STO p2 m 1 + 9 PUT
m 2 - 9 PUT m GET 1
- 'y' STO p2 m y
PUT m 1 - y PUT
'p2' STO p3 m GET 1
+ 'z' STO p3 m z
PUT m 2 - z PUT m 1
- 1 PUT 'p3' STO
              ELSE
IF p2 m 1 - GET 1 ‹
THEN p1 m 1 + 2 PUT
'p1' STO p1 m 2 PUT
'p1' STO p2 m 1 + 9
PUT m 2 - 9 PUT m
GET 2 - 'y' STO p2
m y PUT m 1 - y PUT
'p2' STO p3 m 0 PUT
'p3' STO p3 m 1 - 3
PUT m 2 - 0 PUT
'p3' STO
ELSE p1 m 1 + 1 PUT
'p1' STO p1 m 1 PUT
'p1' STO p2 m 1 + 9
PUT m 9 PUT m 1 - 9
PUT 'p2' STO p2 m 2
- 9 PUT 'p2' STO p3
m 0 PUT m 1 - 3 PUT
m 2 - 0 PUT 'p3'
STO
END
              END
            END
          END
        END
      ELSE
        IF p1 m GET
c m 1 - GET + 0 ==
        THEN p1 m 1
+ 1 PUT 'p1' STO p1
m 1 PUT 'p1' STO p2
m 1 + GET 1 - 'y'
STO p2 m 1 + y PUT
m 2 - y PUT 'p2'
STO p2 m 8 PUT m 1
- 8 PUT 'p2' STO p3
m GET 1 + 'z' STO
p3 m z PUT m 2 - z
PUT m 1 - 1 PUT
'p3' STO
        ELSE
          IF p1 m
GET c m 1 - GET + 2
== p1 m GET 0 ==
AND
          THEN
            IF p3 m
1 - GET 9 ‹
            THEN p2
m GET 1 - 'y' STO
p2 m y PUT m 1 - y
PUT 'p2' STO p3 m 1
- GET 1 + 'z' STO
p3 m 1 - z PUT 'p3'
STO
            ELSE
              IF p3
m 2 - GET 9 ‹
              THEN
p1 m 1 PUT m 1 + 1
PUT 'p1' STO p2 m
GET 2 - 'y' STO p2
m y PUT m 1 - y PUT
'p2' STO p3 m GET 1
+ 'z' STO p3 m z
PUT m 2 - z PUT m 1
- 1 PUT 'p3' STO
IF p2 m 2 - GET 0 ‹
THEN p2 m 1 + GET 1
- 'y' STO p2 m 1 +
y PUT m 2 - y PUT
'p2' STO
ELSE p1 m 1 - GET 1
- 'x' STO p1 m 2 +
x PUT m 1 - x PUT
'p1' STO p2 m 1 + 9
PUT m 2 - 9 PUT
'p2' STO
END
              ELSE
IF p2 m 1 - GET 7 ‰
THEN p1 m 1 + 8 PUT
'p1' STO p1 m 8 PUT
'p1' STO p2 m GET 2
+ 'y' STO p2 m y
PUT m 1 - y PUT
'p2' STO p3 m 8 PUT
m 1 - 8 PUT 'p3'
STO p3 m 2 - 8 PUT
'p3' STO
  IF p2 m 2 - GET 9
‹
  THEN p1 m 2 + GET
1 - 'x' STO p1 m 2
+ x PUT m 1 - x PUT
'p1' STO p2 m 1 +
GET 1 + 'y' STO p2
m 1 + y PUT 'p2'
STO p2 m 2 - y PUT
'p2' STO
  ELSE p2 m 1 + 0
PUT m 2 - 0 PUT
'p2' STO
  END
ELSE p1 m 1 + 2 PUT
'p1' STO p1 m 2 PUT
'p1' STO p2 m GET 3
- 'y' STO p2 m y
PUT m 1 - y PUT
'p2' STO p3 m 0 PUT
m 1 - 3 PUT 'p3'
STO p3 m 2 - 0 PUT
'p3' STO
  IF p3 m 2 - GET 1
Š
  THEN p2 m 1 + GET
1 - 'y' STO p2 m 1
+ y PUT m 2 - y PUT
'p2' STO
  ELSE p1 m 2 + GET
1 - 'x' STO p1 m 2
+ x PUT m 1 - x PUT
'p1' STO p2 m 1 + 9
PUT m 2 - 9 PUT
'p2' STO
  END
END
              END
            END
          ELSE
            IF p1 m
GET c m 1 - GET + 2
== p1 m GET 1 ==
AND
            THEN
              IF p3
m 1 - GET 9 ‹ p2 m
1 - GET 0 ‹ AND
              THEN
p2 m GET 1 - 'y'
STO p2 m y PUT m 1
- y PUT 'p2' STO p3
m 1 - GET 1 + 'z'
STO p3 m 1 - z PUT
'p3' STO
              ELSE
IF p3 m 1 - GET 9 ‹
p2 m 1 - GET 0 ==
AND
THEN p1 m 0 PUT
'p1' STO p1 m 1 + 0
PUT 'p1' STO p2 m 9
PUT m 1 - 9 PUT
'p2' STO p3 m 1 -
GET 1 + 'z' STO p3
m 1 - z PUT 'p3'
STO
ELSE
  IF p3 m 1 - GET 9
== p3 m 2 - GET 0 ‹
AND
  THEN
    IF p2 m 2 - GET
9 ‹
    THEN p1 m 1 + 0
PUT m 0 PUT 'p1'
STO p2 m 1 + GET 1
+ 'y' STO p2 m 1 +
y PUT m 2 - y PUT
'p2' STO p2 m GET 1
+ 'y' STO p2 m y
PUT m 1 - y PUT
'p2' STO p3 m GET 1
- 'z' STO p3 m z
PUT m 2 - z PUT m 1
- 8 PUT 'p3' STO
    ELSE
      IF p2 m 1 -
GET 1 >
      THEN p1 m 1 +
2 PUT m 2 PUT 'p1'
STO p2 m GET 2 -
'y' STO p2 m y PUT
'p2' STO p2 m 1 - y
PUT m 1 + 8 PUT m 2
- 8 PUT 'p2' STO p3
m GET 1 + 'z' STO
p3 m z PUT m 2 - z
PUT m 1 - 1 PUT
'p3' STO
      ELSE
        IF p2 m 1 -
GET 1 ==
        THEN p1 m 1
+ 1 PUT m 1 PUT
'p1' STO p2 m 1 + 8
PUT m 8 PUT m 1 - 8
PUT 'p2' STO p2 m 2
- 8 PUT 'p2' STO p3
m GET 1 + 'z' STO
p3 m z PUT m 2 - z
PUT 'p3' STO p3 m 1
- 1 PUT 'p3' STO
        ELSE p1 m 1
+ 1 PUT m 1 PUT
'p1' STO p2 m 1 + 8
PUT m 9 PUT m 1 - 9
PUT 'p2' STO p2 m 2
- 8 PUT 'p2' STO p3
m GET 1 + 'z' STO
p3 m z PUT m 2 - z
PUT 'p3' STO p3 m 1
- 1 PUT 'p3' STO
        END
      END
    END
  ELSE
    IF p3 m 1 - GET
9 == p3 m 2 - GET 0
== AND p2 m 2 - GET
0 ‹ AND
    THEN p2 m 1 +
GET 1 - 'y' STO p2
m 1 + y PUT m 2 - y
PUT 'p2' STO p3 m 1
PUT m 1 - 1 PUT
'p3' STO p3 m 2 - 1
PUT 'p3' STO
      IF p2 m 1 -
GET 1 >
      THEN p1 m 1 +
2 PUT m 2 PUT 'p1'
STO p2 m GET 2 -
'y' STO p2 m y PUT
'p2' STO p2 m 1 - y
PUT 'p2' STO
      ELSE
        IF p2 m 1 -
GET 1 ==
        THEN p1 m 1
+ 1 PUT m 1 PUT
'p1' STO p2 m 8 PUT
m 1 - 8 PUT 'p2'
STO
        ELSE p1 m 1
+ 1 PUT m 1 PUT
'p1' STO p2 m 9 PUT
m 1 - 9 PUT 'p2'
STO
        END
      END
    ELSE p1 m 2 +
GET 1 - 'x' STO p1
m 2 + x PUT m 1 - x
PUT 'p1' STO p3 m 1
PUT m 1 - 1 PUT
'p3' STO p3 m 2 - 1
PUT 'p3' STO
      IF p2 m 1 -
GET 1 >
      THEN p1 m 1 +
2 PUT m 2 PUT 'p1'
STO p2 m 1 + 9 PUT
m 2 - 9 PUT m GET 2
- 'y' STO p2 m y
PUT m 1 - y PUT
'p2' STO
      ELSE
        IF p2 m 1 -
GET 0 ==
        THEN p1 m 1
+ 1 PUT m 1 PUT
'p1' STO p2 m 1 + 9
PUT m 2 - 9 PUT m 8
PUT 'p2' STO p2 m 1
- 8 PUT 'p2' STO
        ELSE p1 m 1
+ 1 PUT m 1 PUT
'p1' STO p2 m 1 + 9
PUT m 2 - 9 PUT m 9
PUT 'p2' STO p2 m 1
- 9 PUT 'p2' STO
        END
      END
    END
  END
END
              END
            ELSE
              IF p1
m GET c m 1 - GET +
3 ==
              THEN
p2 m GET 1 - 'y'
STO p2 m y PUT m 1
- y PUT 'p2' STO p3
m 1 - 0 PUT 'p3'
STO
              END
            END
          END
        END
      END p1 NL→I
p2 NL→I p3 NL→I
    »
  »
»