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