'
'  © 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