'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                CARRETERA VIDEOJUEGOS TIPICOS ANTIGUOS
SCREEN 13
DIM SHARED m1(1 TO 110)
DIM SHARED m2(1 TO 510)

PAINT (1, 1), 194
LINE (90, 0)-(229, 199), 18, BF

FOR v = 0 TO 150 STEP 50
   LINE (80, v)-STEP(9, 25), 15, BF
   LINE (230, v)-STEP(9, 25), 15, BF
   LINE (80, v + 25)-STEP(9, 25), 40, BF
   LINE (230, v + 25)-STEP(9, 25), 40, BF

   LINE (92, v)-STEP(1, 50), 43, B
   LINE (159, v + 10)-STEP(1, 30), 43, B
   LINE (226, v)-STEP(1, 50), 43, B
NEXT

DO
   PSET (159, 0), POINT(159, 199)
   PSET (160, 0), POINT(160, 199)
   GET (159, 0)-(160, 198), m1
   PUT (159, 1), m1, PSET

   LINE (80, 0)-STEP(9, 0), POINT(80, 199)
   LINE (230, 0)-STEP(9, 0), POINT(230, 199)

   GET (80, 0)-(89, 198), m2
   PUT (80, 1), m2, PSET
   PUT (230, 1), m2, PSET
LOOP WHILE INKEY$ = ""