euclids-pizza-2.solution.txt

PB003B
DISCO
NOTE =================XA
GRAB 300
COPY F M
COPY F M
COPY F M
COPY F M
COPY F M
WIPE
HALT
NOTE =================XB
LINK 800
GRAB 200
SEEK 9999
COPY M F
COPY M F
COPY M F
COPY M F
COPY M F
DROP
HALT
NOTE =================XC
LINK 800
LINK 800
LINK 805
MARK LOOP
MODI X 2 #POWR
ADDI 1 X X
JUMP LOOP
NOTE =================XD
LINK 800
LINK 800
LINK 804
MARK LOOP
MODI X 2 #POWR
ADDI 1 X X
JUMP LOOP