'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                               EFECTO DE CUADROS QUE PARECEN ARRUGADOS
DECLARE SUB cuadro (h!, v!, d!, f!)
SCREEN 13

FOR hh = 0 TO 320 STEP 17
FOR vv = 0 TO 200 STEP 17

cuadro hh, vv, INT(RND * 2), 0

NEXT
NEXT
SLEEP

SUB cuadro (h, v, d, f)
LINE (h + 1, v + 1)-STEP(14, 14), 26, BF

SELECT CASE d
CASE 0
FOR n = 0 TO 15
IF POINT(h + n + 1, v) = f THEN PSET (h + n + 1, v), 16 + n
IF POINT(h + n, v + 16) = f THEN PSET (h + n, v + 16), 31 - n
IF POINT(h, v + n) = f THEN PSET (h, v + n), 16 + n
IF POINT(h + 16, v + n + 1) = f THEN PSET (h + 16, v + n + 1), 31 - n
NEXT
CASE ELSE
FOR n = 0 TO 15
IF POINT(h + n + 1, v) = f THEN PSET (h + n + 1, v), 31 - n
IF POINT(h + n, v + 16) = f THEN PSET (h + n, v + 16), 16 + n
IF POINT(h, v + n) = f THEN PSET (h, v + n), 31 - n
IF POINT(h + 16, v + n + 1) = f THEN PSET (h + 16, v + n + 1), 16 + n
NEXT
END SELECT
END SUB