' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB diagonalsube (h!, v!) DECLARE SUB vertical (h!, v!) DECLARE SUB horizontal (h!, v!) SCREEN 13 horizontal 100, 100 vertical 126, 74 diagonalsube 126, 100 horizontal 152, 100 vertical 126, 126 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB diagonalsube (h, v) vv = v c = 27 a = 1 DO c = c + a IF c = 30 THEN : a = -1 IF c = 25 THEN : a = 1 SELECT CASE vv - v CASE IS < 25: LINE (h, vv)-STEP(vv - v, -(vv - v)), c CASE IS >= 25: LINE (h + (vv - v) - 25, v + 24)-(h + 24, v + (vv - v) - 25), c END SELECT vv = vv + 1 LOOP UNTIL vv = v + 50 END SUB SUB horizontal (h, v) vv = v c = 27 a = 1 DO c = c + a IF c = 30 THEN : a = -1 IF c = 25 THEN : a = 1 LINE (h, vv)-STEP(24, 0), c vv = vv + 1 LOOP UNTIL vv = v + 25 END SUB SUB vertical (h, v) hh = h c = 27 a = 1 DO c = c + a IF c = 30 THEN : a = -1 IF c = 25 THEN : a = 1 LINE (hh, v)-STEP(0, 24), c hh = hh + 1 LOOP UNTIL hh = h + 25 END SUB