' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' RELLENO CARACTERES SEMIGRAFICOS DECLARE FUNCTION ea! (v!, h!) DECLARE FUNCTION el! (h!, v!) DIM SHARED s$(1 TO 12) RANDOMIZE TIMER SCREEN 0 CLS d = 10 IF RND < .1 THEN s$(1) = " " s$(2) = "³" s$(3) = "Ä" s$(4) = "Ù" s$(5) = "Ú" s$(6) = "Á" s$(7) = "À" s$(8) = "¿" s$(9) = "Â" s$(10) = "Ã" s$(11) = "Å" s$(12) = "´" ELSE s$(1) = " " s$(2) = "º" s$(3) = "Í" s$(4) = "¼" s$(5) = "É" s$(6) = "Ê" s$(7) = "È" s$(8) = "»" s$(9) = "Ë" s$(10) = "Ì" s$(11) = "Î" s$(12) = "¹" END IF LOCATE 1, 1 PRINT s$(INT(RND * 12) + 1); FOR h = 2 TO 80 LOCATE 1, h IF el(1, h - 1) = 0 THEN SELECT CASE INT(RND * (4 * d)) CASE 0: PRINT s$(2); CASE 1: PRINT s$(5); CASE 2: PRINT s$(7); CASE 3: PRINT s$(10); CASE ELSE: PRINT s$(1); END SELECT ELSE SELECT CASE INT(RND * 6) CASE 0: PRINT s$(3); CASE 1: PRINT s$(8); CASE 2: PRINT s$(4); CASE 3: PRINT s$(6); CASE 4: PRINT s$(11); CASE 5: PRINT s$(12); CASE 6: PRINT s$(9); END SELECT END IF NEXT FOR v = 2 TO 25 LOCATE v, 1 IF ea(v - 1, 1) = 0 THEN SELECT CASE INT(RND * (4 * d)) CASE 0: PRINT s$(3); CASE 1: PRINT s$(8); CASE 2: PRINT s$(5); CASE 3: PRINT s$(9); CASE ELSE: PRINT s$(1); END SELECT ELSE SELECT CASE INT(RND * (6 * d)) CASE 0: PRINT s$(7); CASE 1: PRINT s$(10); CASE 2: PRINT s$(2); CASE 3: PRINT s$(6); CASE 4: PRINT s$(11); CASE 5: PRINT s$(12); CASE ELSE: PRINT s$(4); END SELECT END IF NEXT FOR h = 2 TO 80 FOR v = 2 TO 25 LOCATE v, h aa = ea(v - 1, h) ll = el(v, h - 1) IF aa = 0 AND ll = 0 THEN SELECT CASE INT(RND * (2 * d)) CASE 0: PRINT s$(5); CASE ELSE: PRINT s$(1); END SELECT ELSE IF aa = 0 AND ll = 1 THEN SELECT CASE INT(RND * 3) CASE 0: PRINT s$(8); CASE 1: PRINT s$(9); CASE 2: PRINT s$(3); END SELECT ELSE IF aa = 1 AND ll = 0 THEN SELECT CASE INT(RND * 3) CASE 0: PRINT s$(2); CASE 1: PRINT s$(7); CASE 2: PRINT s$(10); END SELECT ELSE SELECT CASE INT(RND * (4 * d)) CASE 0: PRINT s$(6); CASE 1: PRINT s$(11); CASE 2: PRINT s$(12); CASE ELSE: PRINT s$(4); END SELECT END IF END IF END IF NEXT NEXT SLEEP FUNCTION ea (v, h) SELECT CASE CHR$(SCREEN(v, h)) CASE s$(1): ea = 0 CASE s$(2): ea = 1 CASE s$(3): ea = 0 CASE s$(4): ea = 0 CASE s$(5): ea = 1 CASE s$(6): ea = 0 CASE s$(7): ea = 0 CASE s$(8): ea = 1 CASE s$(9): ea = 1 CASE s$(10): ea = 1 CASE s$(11): ea = 1 CASE s$(12): ea = 1 END SELECT END FUNCTION FUNCTION el (v, h) SELECT CASE CHR$(SCREEN(v, h)) CASE s$(1): el = 0 CASE s$(2): el = 0 CASE s$(3): el = 1 CASE s$(8): el = 0 CASE s$(4): el = 0 CASE s$(9): el = 1 CASE s$(6): el = 1 CASE s$(5): el = 1 CASE s$(7): el = 1 CASE s$(10): el = 1 CASE s$(12): el = 0 CASE s$(11): el = 1 CASE ELSE: BEEP END SELECT END FUNCTION