' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB kilometro (h!, v!) SCREEN 12 LINE (0, 0)-(640, 380), 9, BF LINE (0, 240)-(640, 480), 10, BF LINE (0, 310)-(640, 460), 8, BF LINE (0, 323)-(640, 325), 15, BF LINE (0, 442)-(640, 445), 15, BF FOR h = 3 TO 620 STEP 50 LINE (h + 2, 378)-STEP(30, 0), 15 LINE (h + 1, 379)-STEP(30, 0), 15 LINE (h, 380)-STEP(30, 0), 15 LINE (h - 1, 381)-STEP(30, 0), 15 NEXT FOR h = 20 TO 620 STEP 100 kilometro h, 300 kilometro h, 440 NEXT SLEEP ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB kilometro (h, v) CONST pi = 3.1415926539# PALETTE 1, 60 PALETTE 2, 50 PALETTE 3, 40 cf = POINT(h + 11, v) LINE (h - 10, v)-STEP(20, 0), 2 CIRCLE (h, v), 10, 2, , pi, .8 PAINT (h, v - 1), 2, 2 LINE (h, v)-STEP(-10, 0), 1 LINE (h + 1, v)-STEP(10, 0), 3 CIRCLE (h - 5, v), 5, 1, , pi PAINT (h - 5, v - 1), 1, 1 CIRCLE (h + 5, v), 5, 3, , pi PAINT (h + 5, v - 1), 3, 3 LINE (h - 10, v + 1)-STEP(9, 15), 15, BF LINE (h, v + 1)-STEP(10, 15), 7, BF PSET (h + 11, v), cf END SUB