' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB CAJA () SCREEN 12 PAINT (1, 1), 9 LINE (0, 350)-(640, 480), 2, BF LINE (40, 100)-(600, 400), 15, BF LINE (70, 120)-(570, 400), 5, BF LINE (20, 100)-(620, 100), 4 LINE (20, 100)-(320, 30), 4 LINE (320, 30)-(620, 100), 4 PAINT (320, 60), 4, 4 '''''''''''' FOR A = 0 TO 240 LINE (320 - A, 122)-(320 + A, 400), 7, BF FOR delay = 1 TO 500: NEXT NEXT LINE (105, 121)-(535, 350), 15, BF LINE (105, 121)-(535, 350), 5, B LINE (75, 370)-(105, 350), 5 LINE (565, 370)-(535, 350), 5 PAINT (100, 300), 15, 5 PAINT (545, 300), 15, 5 LOCATE 28, 8: PRINT " HAY QUE PONER UN NUMERO DE CAJAS ENTRE 0 Y 10 EN CADA MONTON " DO LOOP WHILE INKEY$ = "" LOCATE 28, 8: COLOR 2: PRINT STRING$(70, "Û") COLOR 15 LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 1: ", PILA1 IF PILA1 > 10 OR PILA1 < 0 THEN : BEEP: PILA1 = 0 FOR A = 1 TO PILA1 PSET (88, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 2: ", PILA2 IF PILA2 > 10 OR PILA2 < 0 THEN : BEEP: PILA2 = 0 FOR A = 1 TO PILA2 PSET (140, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 3: ", PILA3 IF PILA3 > 10 OR PILA3 < 0 THEN : BEEP: PILA3 = 0 FOR A = 1 TO PILA3 PSET (192, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 4: ", PILA4 IF PILA4 > 10 OR PILA4 < 0 THEN : BEEP: PILA4 = 0 FOR A = 1 TO PILA4 PSET (244, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 5: ", PILA5 IF PILA5 > 10 OR PILA5 < 0 THEN : BEEP: PILA5 = 0 FOR A = 1 TO PILA5 PSET (296, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 6: ", PILA6 IF PILA6 > 10 OR PILA6 < 0 THEN : BEEP: PILA6 = 0 FOR A = 1 TO PILA6 PSET (348, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 7: ", PILA7 IF PILA7 > 10 OR PILA7 < 0 THEN : BEEP: PILA7 = 0 FOR A = 1 TO PILA7 PSET (400, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 8: ", PILA8 IF PILA8 > 10 OR PILA8 < 0 THEN : BEEP: PILA8 = 0 FOR A = 1 TO PILA8 PSET (452, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT SPACE$(15): LOCATE 28, 3: INPUT "MONTON 9: ", PILA9 IF PILA9 > 10 OR PILA9 < 0 THEN : BEEP: PILA9 = 0 FOR A = 1 TO PILA9 PSET (504, 388 - (A * 25)): CAJA NEXT LOCATE 28, 2: PRINT " VEA AHORA LA LISTA " DO LOOP WHILE INKEY$ = "" SCREEN 0: COLOR 8, 7: CLS LOCATE 4, 61: PRINT "Ü" FOR A = 5 TO 20 LOCATE A, 61: PRINT "Û" NEXT LOCATE 21, 21: PRINT STRING$(41, "ß") COLOR 15, 4 FOR C = 4 TO 20 LOCATE C, 20: PRINT SPACE$(41) NEXT LOCATE 4, 20: PRINT " ALMACEN "; DATE$; " "; TIME$ LOCATE 5, 20: PRINT STRING$(41, "Í") LOCATE 7, 22: PRINT "CAPACIDAD DEL ALMACEN: 90 cajas" LOCATE 8, 22: PRINT "CAJAS QUE HAY EN EL ALMACEN: " LOCATE 10, 22: PRINT " MONTON 1: "; PILA1; "Caja(s)" LOCATE 11, 22: PRINT " MONTON 2: "; PILA2; "Caja(s)" LOCATE 12, 22: PRINT " MONTON 3: "; PILA3; "Caja(s)" LOCATE 13, 22: PRINT " MONTON 4: "; PILA4; "Caja(s)" LOCATE 14, 22: PRINT " MONTON 5: "; PILA5; "Caja(s)" LOCATE 15, 22: PRINT " MONTON 6: "; PILA6; "Caja(s)" LOCATE 16, 22: PRINT " MONTON 7: "; PILA7; "Caja(s)" LOCATE 17, 22: PRINT " MONTON 8: "; PILA8; "Caja(s)" LOCATE 18, 22: PRINT " MONTON 9: "; PILA9; "Caja(s)" CAJAS = PILA1 + PILA2 + PILA3 + PILA4 + PILA5 + PILA6 + PILA7 + PILA8 + PILA9 LOCATE 8, 50: PRINT CAJAS 'Todav¡a no se hab¡a descubierto la existencia de los vectores ni del paso de par metros a los procedimientos ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB CAJA 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" END SUB