MC: Ping-Pong Cubes

[Didier Lachieze]

A version of the mini-challenge for the 42S in 39 steps / 79 bytes:

Code:

00 { 79-Byte Prgm }
01▸LBL "PPC"
02 ALL
03 CF 29
04 SF 21
05 9
06 STO "N"
07▸LBL 00
08 1
09 STO+ "N"
10 1ᴇ4
11 RCL "N"
12 X=Y?
13 RTN
14 XEQ 01
15 X≠0?
16 GTO 00
17 RCL "N"
18 RCL× "N"
19 RCL× "N"
20 XEQ 01
21 X=0?
22 VIEW "N"
23 GTO 00
24▸LBL 01
25 CLA
26 ARCL ST X
27 ATOX
28 2
29 MOD
30▸LBL 02
31 ATOX
32 X=0?
33 RTN
34 2
35 MOD
36 X≠Y?
37 GTO 02
38 1
39 END

After XEQ "PPC" the program will stop at each Ping-Pong Cube found, press R/S so see the next one. If a printer is enabled (PON) the program will print the Ping-Pong Cubes without stopping.

A .raw file is also attached so you can load it in Free42 or your DM42.

  ppc.zip (Size: 230 bytes / Downloads: 7)