RosettaCodeData/Task/Draw-a-cuboid/BBC-BASIC/draw-a-cuboid.basic

      ORIGIN 100, 100
      PROCcuboid(200, 300, 400)
      END

      DEF PROCcuboid(x, y, z)
      MOVE 0, 0 : MOVE 0, y
      GCOL 1 : PLOT 117, x, y
      GCOL 2 : PLOT 117, x + z * 0.4, y + z * 0.4
      GCOL 4 : PLOT 117, x + z * 0.4, z * 0.4
      ENDPROC