10 LET xx=x+dx: LET yy=y+dy: LET atr=ATTR (yy,xx): IF atr=56 THEN GO TO 40
  20 BEEP 0.01,20: LET score=score-40*(y=21): LET dy=dy-2*dy*(atr<>56 AND ATTR (yy,x)<>56): LET dx=dx-2*dx*(atr<>56 AND ATTR (y,xx)<>56)
  30 IF atr=2 THEN LET score=score+10: PRINT AT yy,xx;"\g": BEEP 0.1,0: PRINT AT yy,xx;" ": LET nn=nn-1: IF nn=0 THEN GO TO 100
  40 PRINT AT y,x;" ": LET x=x+(atr=33)+dx: LET y=y+dy: PRINT AT y,x;"\a";: PRINT #0,AT 0,3;" Quedan: ";nn;" ";AT 0,17;"SCORE: ";score;
  50 LET k$=INKEY$: PRINT PAPER 7; INK 0;AT yp,xp;("    " AND k$<>""): LET xp=xp+2*(K$="p" AND xp<26)-2*(K$="o" AND xp>1): LET yp=yp+(K$="a" AND yp<21)-(K$="q" AND yp>15): PRINT INK 1;AT yp,xp;"\b"; PAPER 4;"\c\d"; PAPER 7;"\e";: GO TO 10
  60 RANDOMIZE : BORDER 6: FOR F=65368 TO 65439: READ A: POKE F,A: NEXT F
  70 CLS : LET nn=80: PRINT INK 1;AT 1,0;" \f \i\f\f\i\f\h\i\f\h \f \f  \f \i\f\f \f\f\f \i\f\h  \f \i \f\i \f\i \f \f \f  \f \i \f  \i\h \f \f  \f \i\f\f\i \f\i\f\h \f \f  \f \i\f\f \i\h  \f \f  \f\f\i \f\i\f\h\i \f \f \f\f \f\f\i \f \f\f\f \i\f\h "; INK 0;AT 10,4;"Acaba con la especulacion";AT 11,4;"inmobiliaria destruyendo";AT 12,10;nn;" ladrillos";AT 20,2;"Pulsa una tecla para comenzar": PAUSE 0: LET score=0: BEEP 0.3,30
  80 LET x=10+10*RND: LET y=13: LET dx=1: LET dy=1: LET xp=9: LET yp=20
  90 CLS : PRINT #0,AT 1,7;"Eddie The Wild 2007";: FOR i=0 TO 21: PRINT PAPER 1;AT i,0;" "; INK (i=0)+2*(i=21); PAPER (i=0)+7*(i=21);("                              " AND i=0); PAPER 1;AT i,31;" "; PAPER 0; INK 2;AT i,1+10*RND;("\f\f\f\f\f" AND i>0 AND i<12);AT i,15+10*RND;("\f\f\f\f\f" AND i>0 AND i<12): NEXT i: GO TO 10
 100 PRINT PAPER 1; INK 7;AT 8,3;"Has conseguido ";score;" puntos ";AT 10,4;"Quieres jugar otra vez?": BEEP 1.5,10: PAUSE 0: IF INKEY$="s" THEN GO TO 70: DATA 60,110,223,255,255,255,126,60,63,63,122,106,234,234,255,255,255,255,132,74,49,74,255,255,255,255,33,82,140,82,255,255,252,252,94,86,87,87,255,255,223,223,0,253,253,0,223,223,85,138,0,84,169,0,138,85,208,208,0,240,240,0,208,208,15,15,0,13,13,0,15,15: REM Ladrillazo by Eddie The Wild 2007      Comenzar en linea 60