' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' LETRAS QUE CAEN CLS text$ = "JMGB - Hecho en Ronda - Programado en QBasic" ini = 20 FOR n = 1 TO LEN(text$) c = INT(RND * 7) + 9 car$ = MID$(text$, n, 1) IF car$ <> " " THEN FOR v = 2 TO 20 LOCATE v, ini: COLOR c: PRINT car$ LOCATE v - 1, ini: PRINT " " FOR delay = 1 TO 400: NEXT NEXT END IF ini = ini + 1 NEXT