TO REDUP ;This procedure draws the first red stairstep ;going up at the top of the design SETPC RED REPEAT 10 [RT 90 FD 10 LT 90 FD 5] END