'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                  TABLERO DEL MONOPOLY          
SCREEN 12
PALETTE 12, 63
PAINT (1, 1), 7

LINE (5, 5)-(475, 475), 15, BF
LINE (7, 7)-(473, 473), 8, B

LINE (60, 50)-(100, 60), 4, BF
LINE (140, 50)-(220, 60), 4, BF
LINE (260, 50)-(340, 60), 2, BF
LINE (380, 50)-(420, 60), 2, BF
LINE (60, 420)-(140, 430), 9, BF
LINE (180, 420)-(220, 430), 9, BF
LINE (300, 420)-(340, 430), 13, BF
LINE (380, 420)-(420, 430), 13, BF
LINE (50, 60)-(60, 140), 6, BF
LINE (50, 180)-(60, 220), 6, BF
LINE (50, 260)-(60, 340), 1, BF
LINE (50, 380)-(60, 420), 1, BF
LINE (420, 60)-(430, 140), 12, BF
LINE (420, 180)-(430, 220), 12, BF
LINE (420, 300)-(430, 340), 5, BF
LINE (420, 380)-(430, 420), 5, BF

FOR n = 10 TO 470 STEP 40
IF n = 50 THEN n = 60
IF n = 460 THEN n = 470
LINE (n, 10)-(n, 470), 0
LINE (10, n)-(470, n), 0
NEXT

LINE (61, 61)-(419, 419), 15, BF

LINE (60, 50)-(100, 60), 0, B
LINE (140, 50)-(220, 60), 0, B
LINE (260, 50)-(340, 60), 0, B
LINE (380, 50)-(420, 60), 0, B
LINE (60, 420)-(140, 430), 0, B
LINE (180, 420)-(220, 430), 0, B
LINE (300, 420)-(340, 430), 0, B
LINE (380, 420)-(420, 430), 0, B
LINE (50, 60)-(60, 140), 0, B
LINE (50, 180)-(60, 220), 0, B
LINE (50, 260)-(60, 340), 0, B
LINE (50, 380)-(60, 420), 0, B
LINE (420, 60)-(430, 140), 0, B
LINE (420, 180)-(430, 220), 0, B
LINE (420, 300)-(430, 340), 0, B
LINE (420, 380)-(430, 420), 0, B



SLEEP