' ' © 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$ = ""