AMSTRAD CPC 6128 Manual Del Usario página 421

1570 xf=0 yf=0
IF AND
1580 xp+xf,yp+yf:ht$=COPYCHR$(#0)
LOCATE
1590 IF ASC(ht$)>239
1600 IF ht$<>" " THEN
1610 LOCATE xp,yp:PRINT"
1620 PAPER 0:LOCATE
1630 xp=xp+xf:yp=yp+yf
1640 LOCATE xp,yp:PRINT
1650 IF perro>0 THEN perro=perro
1660 GOTO 1520
1670 gol=INSTR(gol$,ht$):car=ASC(MID$(gol$,gol,1))
1680 ON gol GOTO 1700,1700,1700,1700,1760,1760,1860,1910,1980,2100,2660
1690 GOTO 1610
1700 IF gol>2 AND
1710 gol<3
IF THEN
1720 PEN 3:LOCATE xp+xf,yp+yf:PRINT
1730 luces(rm)=luces(rm)
1740 IF luces(rm)
1750 GOTO 1520
1760 IF xf<>0 AND
1770 IF xf<0 THEN
1780 IF yf<0 THEN
1790 dir(rm,dir)=-1
IF
1800 IF perro>0 THEN GOSUB
1810 IF dir=1 THEN
1820 dir=2
IF THEN
1830 IF dir=3 THEN
1840 IF dir=4 THEN
1850 RETURN
1860 IF xp>5 AND xp<8
1870 IF xp<6 THEN
1880 GOTO 1790
1890 IF yp>13 THEN
1900 GOTO 1790
1910 PAPER 0:CLS:PEN
1920 LOCATE 3,3:PRINT"Usted ha
1930 LOCATE 8,5:PRINT"con";
1940 IF joyas=robado THEN LOCATE
1950 PRINT USING"
1960 PEN 5:LOCATE
1970 muerto=1:RETURN
1980 LOCATE xp,yp:PRINT"
1990 i=0
2000 i=i+1
2010 i>joyas(rm)
IF
2020 IF joyax(rm,i)<>xp OR joyay(rm,i)<>yp THEN
2030 IF i=joyas(rm)
2040 joyax(rm,i)=joyax(rm,joyas(rm))
2050 joyay(rm,i)=joyay(rm,joyas(rm))
2060 joyas(rm)=joyas(rm)-1:robado=robado+1
2070 MOVE 400,150+(robado*2),1,1:DRAW
2080 SOUND 129,248,10,12,0,1
2090 GOTO 1990
2100 ruido=INT(RND*15)
2110 SOUND 1,3000,10,ruido,0,0,10
1640
THEN
AND ASC(ht$)<246
1670
";
4,24:PRINT"
hombre$;
MOD
gol<5 THEN car=car-1
car=car+1
XOR 1
THEN INK 7,10:INK
yf<>0 THEN 1640
dir=4 ELSE IF xf>0
dir=1 ELSE IF yf>0
1640
THEN ELSE
310
xp=6:yp=maxy(rm)
xp=6:yp=miny(rm)
xp=minx(rm):yp=13
xp=maxx(rm):yp=13
THEN 1890
dir=4 ELSE dir=3
dir=2 ELSE dir=1
1
escapado";
8,7:PRINT"todas
##";robado;
8,9:PRINT"joyas";
";:xp=xp+xf:yp=yp+yf
1520
THEN
THEN 2060
Manual de Amstrad CPC 6128 (revisión 2008) - Página 420
THEN 1520
";:PAPER 8
2+1:IF perro=2 THEN
CHR$(car);
8,10 ELSE INK 7,0:INK
THEN dir=3
THEN dir=2
rm=dir(rm,dir)
las";ELSE LOCATE
2000
555,150+(robado*2),1,1
2560
8,0
8,7