' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB loseta (n!) SCREEN 12 RANDOMIZE TIMER FOR h = 240 TO 480 STEP 40 LINE (h + 150, 90)-(h - 210, 450), 1 NEXT PAINT (1, 1), 11, 1 FOR v = 90 TO 460 STEP 30 LINE (480 - v, v)-(720 - v, v), 1 NEXT PAINT (1, 1), 0, 1 LINE (30, 450)-(270, 475), 7, BF LINE (30, 450)-(270, 475), 1, B LINE (270, 475)-(630, 115), 1 LINE (630, 115)-(630, 90), 1 PAINT (625, 115), 8, 1 DO FOR delay = 1 TO 1000: NEXT loseta INT(RND * 72) + 1 LOOP WHILE INKEY$ = "" SLEEP ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB loseta (n) STATIC p = 0 h = 350 v = 90 hh = 590 DO p = p + 1 h = h + 40 IF h > hh THEN : h = h - 270: v = v + 30: hh = h + 200 LOOP UNTIL p = n LINE (h, v)-(h, v + 25), 1 DRAW "c1ng5r15" PAINT (h, v + 27), 0, 1 PAINT (h + 5, v + 20), 7, 1 PAINT (h - 5, v + 20), 8, 1 END SUB