' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SCREEN 13 FOR c = 0 TO 255 COLOR c: PRINT " "; c NEXT CLS h = 1 v = 0 n = 3 FOR c = 0 TO 255 v = v + 1 IF c = 101 THEN : n = 4 IF v > 25 THEN : v = 1: h = h + n LOCATE v, h: COLOR c: PRINT MID$(STR$(c), 2, LEN(c)); NEXT SLEEP h = -1 c = 24 A = 1 DO h = h + 1 c = c + A SELECT CASE c CASE 16: A = 1 CASE 31: A = -1 END SELECT LINE (h, 0)-(h, 200), c LOOP UNTIL h > 159 h = 160 c = 70 A = 1 DO h = h + 1 c = c + A SELECT CASE c CASE 64: A = 1 CASE 95: A = -1 END SELECT LINE (h, 0)-(h, 200), c LOOP UNTIL h > 319 FOR A = 0 TO 255 FOR B = 1 TO 10: NEXT LINE (A - 60, 0)-(A + 140, 200), A NEXT 'SLEEP c = 0 h = 0 v = 40 DO c = c + 1 h = h + 10 IF h > 310 THEN : h = 0: v = v + 10 LINE (h, v)-STEP(8, 8), c, BF LOOP UNTIL c > 255 COLOR 64: LOCATE 18, 6: PRINT "GRAFICOS DE 256 COLORES" COLOR 74: LOCATE 20, 10: PRINT "BAJA RESOLUCI˘N" h = 240 c = 32 A = 1 DO h = h + 1 c = c + A IF c > 55 THEN : c = 32 LINE (h, 140)-(h, 180), c LOOP UNTIL h > 295 COLOR 0 SLEEP