'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                       PELIGRO PRLIGRO
DIM mat(1 TO 500)
DIM mat2(1 TO 5000)
SCREEN 12
PAINT (1, 1), 1
LINE (0, 455)-(39, 474), 8, BF
DRAW "c14bm19,455g19r19e19l19bdp14,14bm0,455c7r19c0g19brc15e19r19c6g19nl19brc7ne19c0r19"
GET (0, 455)-(39, 474), mat
FOR h = 40 TO 600 STEP 40
   PUT (h, 455), mat, PSET
NEXT
DO
   GET (0, 455)-(0, 474), mat
   GET (1, 455)-(639, 474), mat2
   PUT (0, 455), mat2, PSET
   PUT (639, 455), mat, PSET
LOOP WHILE INKEY$ = ""