The third printed line, REMAINDER :DEGREES 10, should be appended to the second line in both procedures so that they read:
TO ARCR :RADIUS :DEGREES
ARCR1 .174532 * :RADIUS :DEGREES / 10 REMAINDER :DEGREES 10
END
TO ARCL :RADIUS :DEGREES
ARCL1 .174532 * :RADIUS :DEGREES / 10 REMAINDER :DEGREES 10
END
When you're in the editor, your screen will show:
TO ARCR :RADIUS :DEGREES
ARCR1 .174532 * :RADIUS :DEGREES / 10 RE!
MAINDER :DEGREES 10
END
TO ARCL :RADIUS :DEGREES
ARCL1 .174532 * :RADIUS :DEGREES / 10 RE!
MAINDER :DEGREES 10
END