' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB CAJAS (h!, v!, f!, c!) SCREEN 12 PAINT (0, 0), 11 CAJAS 10, 10, 12, 4 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DIBUJA UN MONTON DE CAJAS DE CARTON DE FRUTERIA ' ' h,v.........Posici¢n esquina superior izquierda ' f...........N£mero de filas (alto) ' c...........N£mero de columnas (ancho) ' SUB CAJAS (h, v, f, c) FOR cc = h TO h + (f * 25) - 1 STEP 25 FOR ff = v TO v + (c * 52) - 1 STEP 52 PSET (10 + ff, 10 + cc) LINE STEP(0, 0)-STEP(50, 20), 2, BF LINE STEP(-5, -4)-STEP(-40, -16), 0, BF LINE STEP(1, 1)-STEP(38, 14), 15, BF LINE STEP(-7, -4)-STEP(-24, -8), 0, BF LINE STEP(1, 1)-STEP(22, 6), 4, BF LINE STEP(14, -15)-STEP(-8, 4), 0, BF LINE STEP(-34, 0)-STEP(-8, -4), 0, BF PSET STEP(16, 10) DRAW "C15 r2 l1 d4 br3 u4 r2 d2 l2 f1 f1 br2 u4 r2 d4 l2 BR4 U4 R2 D2 L2 BR6 BU2 L2 D2 R2 D2 L2" NEXT NEXT END SUB