10 DEFINT a-z:POKE &BDEE,201:ON BREAK CONT:KEY DEF 66,0,0
20 GOTO 1250
30 bx(1)=19:by(1)=2:bx(2)=2:by(2)=2
40 FOR a=1 TO 2:LOCATE bx(a),by(a):PEN 0:PRINT CHR$(143):NEXT:bx(1)=19:by(1)=2:bx(2)=2:by(2)=2
50 LOCATE x,y:PEN 9:PRINT CHR$(231):LOCATE x,y:PEN 10:PRINT CHR$(235)
60 contd=0
70 contd=contd+1:IF contd=8 THEN 660
80 IF JOY(0)=120 AND JOY(1)=120 THEN PEN 1:MODE 1:END
90 IF bx(1)=x AND by(1)=y OR bx(2)=x AND by(2)=y THEN 1540
100 mo$="":mo$=INKEY$:IF mo$="" THEN 70 
110 mo$=UPPER$(mo$)
120 IF mo$="" OR mo$="o" THEN SOUND 1,40,10,5,,,6:GOTO 180
130 IF mo$="	" OR mo$="p" THEN SOUND 1,40,10,5,,,6:GOTO 260
140 IF mo$="" OR mo$="q" THEN SOUND 1,40,10,5,,,6:GOTO 340
150 IF mo$="

" OR mo$="a" THEN SOUND 1,40,10,5,,,6:GOTO 420
160 IF mo$="X" OR mo$=" " THEN 500
170 GOTO 70
180 ' IZQUIERDA
190 x2=x:mp=1:LOCATE x-1,y:c$=COPYCHR$(#0):IF c$="" THEN c=4 ELSE c=ASC(c$)
200 IF c=241 OR c=242 THEN 230
210 x=x-1
220 IF c=245 THEN 1440 
230 LOCATE x2,y:PEN 0:PRINT CHR$(143)
240 LOCATE x,y:PEN 9:PRINT CHR$(229):PEN 10:LOCATE x,y:PRINT CHR$(233)
250 GOTO 70
260 ' DERECHA
270 x2=x:mp=2:LOCATE x+1,y:c$=COPYCHR$(#0):IF c$="" THEN c=4 ELSE c=ASC(c$)
280 IF c=241 OR c=242 THEN 310
290 x=x+1
300 IF c=245 THEN 1440
310 LOCATE x2,y:PEN 0:PRINT CHR$(143)
320 LOCATE x,y:PEN 9:PRINT CHR$(230):PEN 10:LOCATE x,y:PRINT CHR$(234)
330 GOTO 70
340 ' ARRIBA
350 y2=y:mp=3:LOCATE x,y-1:c$=COPYCHR$(#0):IF c$="" THEN c=4 ELSE c=ASC(c$)
360 IF c=240 OR c=242 THEN 390
370 y=y-1
380 IF c=245 THEN 1440
390 LOCATE x,y2:PEN 0:PRINT CHR$(143)
400 LOCATE x,y:PEN 9:PRINT CHR$(231):PEN 10:LOCATE x,y:PRINT CHR$(235)
410 GOTO 70
420 ' ABAJO
430 y2=y:mp=4:LOCATE x,y+1:c$=COPYCHR$(#0):IF c$="" THEN c=4 ELSE c=ASC(c$)
440 IF c=240 OR c=242 THEN 470
450 y=y+1
460 IF c=245 THEN 1440
470 LOCATE x,y2:PEN 0:PRINT CHR$(143)
480 LOCATE x,y:PEN 9:PRINT CHR$(232):PEN 10:LOCATE x,y:PRINT CHR$(236)
490 GOTO 70
500 ' DISPARO
510 ON mp GOTO 520,540,560,580
520 LOCATE x-1,y:a$=COPYCHR$(#0):IF a$="" THEN a=5 ELSE a=ASC(a$)
530 IF a=242 THEN dx=x-1:dy=y:GOTO 600 ELSE GOTO 70
540 LOCATE x+1,y:a$=COPYCHR$(#0):IF a$="" THEN a=5 ELSE a=ASC(a$)
550 IF a=242 THEN dx=x+1:dy=y:GOTO 600 ELSE GOTO 70
560 LOCATE x,y-1:a$=COPYCHR$(#0):IF a$="" THEN a=5 ELSE a=ASC(a$)
570 IF a=242 THEN dx=x:dy=y-1:GOTO 600 ELSE GOTO 70
580 LOCATE x,y+1:a$=COPYCHR$(#0):IF a$="" THEN a=5 ELSE a=ASC(a$)
590 IF a=242 THEN dx=x:dy=y+1:GOTO 600 ELSE GOTO 70
600 crd=crd+1
610 PEN 0:FOR cop=239 TO 237 STEP -1:LOCATE dx,dy:PRINT CHR$(cop)
620 FOR cop2=1 TO 10:SOUND 1,500,1,10,,,30:NEXT cop2:NEXT cop
630 PEN 0:LOCATE dx,dy:PRINT CHR$(143)
640 PEN 6:s=INT(RND*4):IF s=0 THEN LOCATE dx,dy:PRINT CHR$(245)
650 IF crd=270 THEN 1630 ELSE GOTO 70
660 ' bichos
670 num=243:FOR nm=1 TO 2
680 IF bx(nm)<x AND by(nm)<y THEN d(nm)=1:GOTO 760
690 IF bx(nm)<x AND by(nm)>y THEN d(nm)=2:GOTO 840
700 IF bx(nm)>x AND by(nm)<y THEN d(nm)=3:GOTO 920
710 IF bx(nm)>x AND by(nm)>y THEN d(nm)=4:GOTO 1000
720 IF bx(nm)=x AND by(nm)<y THEN d(nm)=5:GOTO 1080
730 IF bx(nm)=x AND by(nm)>y THEN d(nm)=6:GOTO 1120
740 IF bx(nm)<x AND by(nm)=y THEN d(nm)=7:GOTO 1160
750 IF bx(nm)>x AND by(nm)=y THEN d(nm)=8:GOTO 1200
760 'D-A
770 IF comar(nm)=1 THEN 810
780 comar(nm)=1:LOCATE bx(nm)+1,by(nm):cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$) 
790 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):bx(nm)=bx(nm)+1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(n
um) 
800 GOTO 1240
810 comar(nm)=0:LOCATE bx(nm),by(nm)+1:cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
820 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):by(nm)=by(nm)+1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(n
um)
830 GOTO 1240
840 'D-AR
850 IF comar(nm)=1 THEN 890
860 comar(nm)=1:LOCATE bx(nm)+1,by(nm):cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
870 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):bx(nm)=bx(nm)+1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(n
um)
880 GOTO 1240
890 comar(nm)=0:LOCATE bx(nm),by(nm)-1:cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
900 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):by(nm)=by(nm)-1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(n
um)
910 GOTO 1240
920 ' I-AB
930 IF comar(nm)=1 THEN 970
940 comar(nm)=1:LOCATE bx(nm)-1,by(nm):cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
950 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):bx(nm)=bx(nm)-1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(n
um)
960 GOTO 1240
970 comar(nm)=0:LOCATE bx(nm),by(nm)+1:cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
980 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):by(nm)=by(nm)+1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(n
um)
990 GOTO 1240
1000 ' I-AR
1010 IF comar(nm)=1 THEN 1050
1020 comar(nm)=1:LOCATE bx(nm)-1,by(nm):cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
1030 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):bx(nm)=bx(nm)-1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(
num)
1040 GOTO 1240
1050 comar(nm)=0:LOCATE bx(nm),by(nm)-1:cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
1060 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):by(nm)=by(nm)-1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(
num)
1070 GOTO 1240
1080 ' ABAJO
1090 LOCATE bx(nm),by(nm)+1:cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
1100 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):by(nm)=by(nm)+1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(
num)
1110 GOTO 1240
1120 ' ARRIBA
1130 LOCATE bx(nm),by(nm)-1:cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
1140 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):by(nm)=by(nm)-1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(
num)
1150 GOTO 1240
1160 ' DERECHA
1170 LOCATE bx(nm)+1,by(nm):cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
1180 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):bx(nm)=bx(nm)+1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(
num)
1190 GOTO 1240
1200 ' IZQUIERDA
1210 LOCATE bx(nm)-1,by(nm):cm$=COPYCHR$(#0):IF cm$="" THEN cm=0 ELSE cm=ASC(cm$)
1220 IF cm=32 THEN LOCATE bx(nm),by(nm):PEN 0:PRINT CHR$(143):bx(nm)=bx(nm)-1:PEN nm:LOCATE bx(nm),by(nm):SOUND 3,50,5,5:PRINT CHR$(
num)
1230 GOTO 1240
1240 num=num+1:NEXT  nm:GOTO 60
1250 '  INICIAR
1260 SYMBOL AFTER 229
1270 FOR bu=1 TO 18:READ a,b,c,d,e,f,g,h,i
1280 SYMBOL a,b,c,d,e,f,g,h,i:NEXT:MODE 0
1290 DATA 229,255,2,30,99,99,30,2,255,230,255,64,120,198,198,120,64,255,231,129,153,153,165,165,165,255,153,232,153,255,165,165,165,
153,153,129,233,0,0,0,28,28,0,0,0,234,0,0,0,56,56,0,0,0,235,0,0,0,24,24,24,0,0,236,0,0,24,24,24,0,0,0
1300 DATA 237,0,170,254,52,94,230,80,186,238,0,42,88,36,12,98,0,178,239,0,0,144,4,64,8,36,128,240,238,238,238,0,187,187,187,0,241,14
,238,224,238,14,238,224,238,242,254,254,254,254,254,254,254,0,243,66,153,165,219,219,165,153,66
1310 DATA 244,36,66,219,126,102,219,66,36,245,153,126,126,255,231,126,126,153,246,146,84,56,254,56,84,146,16
1320 ' PANTALLA
1330 ENT 1,5,-1,1,50,1,1:ENV 1,15,-1,4:ENV 2,15,-1,2
1340 BORDER 0:INK 0,10:INK 1,0:INK 2,24:INK 4,4:INK 6,0:INK 7,3:INK 8,1:INK 9,6:INK 10,11:INK 11,0:INK 12,24
1350 PRINT CHR$(22);CHR$(1):GRAPHICS PEN 6,0:GRAPHICS PEN 10,1:x=2:y=24:lives=4:crd=0:SPEED KEY 23,23
1360 LOCATE 1,1:GOSUB 1410:GOSUB 1420:FOR A=1 TO 5:GOSUB 1430:NEXT
1370 FOR B=1 TO 2:GOSUB 1420:FOR A=1 TO 4:GOSUB 1430:NEXT A,B
1380 GOSUB 1420:FOR A=1 TO 5:GOSUB 1430:NEXT:GOSUB 1420
1390 PRINT STRING$(19,240):TAG:MOVE 608,16:GRAPHICS PEN 8:PRINT CHR$(241);:TAGOFF
1400 GOTO 30
1410 PEN 8:PRINT STRING$(20,240);:RETURN:'TODO
1420 PEN 8:PRINT CHR$(241);STRING$(18,32);CHR$(241);:RETURN:'BLANCO
1430 PEN 8:PRINT CHR$(241);:PEN 7:PRINT CHR$(32);STRING$(7,242);CHR$(32);STRING$(8,242);CHR$(32);:PEN 8:PRINT CHR$(241);:RETURN
1440 ' MUERTE
1450 SOUND 4,900,70,15,1,,30:LOCATE x,y:PEN 9
1460 ON mp GOSUB 1500,1510,1520,1530
1470 LOCATE x,y:PEN 0:PRINT CHR$(143):LOCATE x,y:PEN 2:PRINT CHR$(246):FOR c=1 TO 600:NEXT c:LOCATE x,y:PEN 0:PRINT CHR$(143)
1480 LOCATE x,y:PEN 9:ON mp GOSUB 1500,1510,1520,1530
1490 lives=lives-1:IF lives=0 THEN RUN ELSE 60
1500 PRINT CHR$(229):LOCATE x,y:PEN 10:PRINT CHR$(233):PEN 0:LOCATE x+1,y:PRINT CHR$(143):RETURN
1510 PRINT CHR$(230):LOCATE x,y:PEN 10:PRINT CHR$(234):PEN 0:LOCATE x-1,y:PRINT CHR$(143):RETURN
1520 PRINT CHR$(231):LOCATE x,y:PEN 10:PRINT CHR$(235):PEN 0:LOCATE x,y+1:PRINT CHR$(143):RETURN
1530 PRINT CHR$(232):LOCATE x,y:PEN 10:PRINT CHR$(236):PEN 0:LOCATE x,y-1:PRINT CHR$(143):RETURN
1540 'co
1550 SOUND 1,50,100,15,1,1:FOR A=1 TO 2:FOR B=1 TO 4:FOR C=1 TO 100:NEXT c
1560 LOCATE x,y:PEN 0:PRINT CHR$(143):LOCATE x,y:PEN 9
1570 IF b=4 THEN PRINT CHR$(231):LOCATE x,y:PEN 10:PRINT CHR$(235)
1580 IF b=1 THEN PRINT CHR$(230):LOCATE x,y:PEN 10:PRINT CHR$(234)
1590 IF b=2 THEN PRINT CHR$(232):LOCATE x,y:PEN 10:PRINT CHR$(236)
1600 IF b=3 THEN PRINT CHR$(229):LOCATE x,y:PEN 10:PRINT CHR$(233)
1610 NEXT b,a
1620 lives=lives-1:IF lives=0 THEN RUN ELSE 40
1630 ' FIN
1640 FOR y=2 TO 24:FOR x=2 TO 19:READ a
1650 IF a=0 THEN PEN 4
1660 IF a=1 THEN PEN 6
1670 IF a=2 THEN PEN 9
1680 IF a=3 THEN PEN 10
1690 IF a=4 THEN PEN 12
1700 LOCATE x,y:PRINT CHR$(143):NEXT x,y:FOR a=1 TO 2000:NEXT:RUN
1710 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1720 DATA 0,1,1,1,1,0,1,1,0,0,1,0,1,1,1,1,0,0
1730 DATA 0,1,1,0,0,0,1,1,1,0,1,0,1,1,0,0,1,0
1740 DATA 0,1,1,1,0,0,1,1,0,1,1,0,1,1,0,0,1,0
1750 DATA 0,1,1,0,0,0,1,1,0,0,1,0,1,1,0,0,1,0
1760 DATA 0,1,1,1,1,0,1,1,0,0,1,0,1,1,1,1,0,0
1770 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1780 DATA 0,0,2,2,0,0,0,0,2,2,0,0,0,0,2,2,0,0
1790 DATA 0,0,2,2,0,0,0,0,2,2,0,0,0,0,2,2,0,0
1800 DATA 0,0,2,2,0,0,0,2,2,2,2,0,0,0,2,2,0,0
1810 DATA 0,0,2,2,0,0,2,2,2,2,2,2,0,0,2,2,0,0
1820 DATA 0,0,2,2,0,0,2,2,3,3,2,2,0,0,2,2,0,0
1830 DATA 0,0,2,2,0,0,2,2,3,3,2,2,0,0,2,2,0,0
1840 DATA 0,0,2,2,0,0,2,2,3,3,2,2,0,0,2,2,0,0
1850 DATA 0,0,2,2,0,0,2,2,3,3,2,2,0,0,2,2,0,0
1860 DATA 0,0,2,2,0,0,2,2,2,2,2,2,0,0,2,2,0,0
1870 DATA 0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0
1880 DATA 0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0
1890 DATA 0,0,2,2,0,0,0,2,2,2,2,0,0,0,2,2,0,0
1900 DATA 0,0,0,0,0,0,0,4,4,4,4,0,0,0,0,0,0,0
1910 DATA 0,0,0,0,0,0,4,4,4,4,4,4,0,0,0,0,0,0
1920 DATA 0,0,0,0,0,0,0,4,4,4,4,0,0,0,0,0,0,0
1930 DATA 0,0,0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,0