AMSTRAD CPC 6128 Manual Del Usario página 422

2120 PAPER 0:LOCATE
2130 ruido<10
IF OR
2140 retardo=retardo-50
2150 aux=REMAIN(1)
2160 AFTER retardo*4,1
2170 GOTO 1640
2180 '
2190 'Dibujar puertas
2200 '
2210 READ no,pu$
2220 IF pu$="V" THEN
2230 PEN 2
2240 pic$=puerta$(pu):GOSUB
2250 GOTO 1290
2260 '
2270 'Dibujar ventanas
2280 '
2290 READ no,ve$
2300 IF ve$="V" THEN
2310 PEN 4
2320 pic$=vent$(ve):GOSUB
2330 GOTO 1290
2340 '
2350 'Dibujar rectas
2360 '
2370 READ x1,y1,x2,y2
2380 MOVE x1,y1,0
2390 DRAW x1,y2,0:DRAW
2400 DRAW x2,y1,0:DRAW
2410 GOTO 1290
2420 '
2430 'Dibujar interruptores
2440 '
2450 READ no,co$
2460 IF co$="L" THEN
2470 PEN 3
2480 pic$=conm$(co,0):GOSUB
2490 GOTO 1290
2500 '
2510 'Escribir car
2520 '
2530 READ x,y:LOCATE x,y:PRINT
2540 no=no-1:IF no>0
2550 RETURN
2560 PEN 1:LOCATE
2570 hombre$=CHR$(225)
2580 IF (perrox=xp AND
2590 IF perrox<xp THEN
2600 IF perrox>xp THEN
2610 IF perroy<yp THEN
2620 IF perroy>yp THEN
2630 LOCATE perrox,perroy:PRINT
2640 SOUND 1,0,RND*40,10,1,2,31
2650 GOTO 1520
2660 PRINT"MORDIDO";
4,24:PRINT"Choque
retardo=50
THEN
GOSUB 310
pu=2 ELSE pu=1
2510
ve=2 ELSE ve=1
2510
x2, y2,0
x1,y1,0
co=1 ELSE co=2
2510
pic$;
THEN 2530
perrox,perroy:PRINT"
perroy=yp) OR (perrox=xp+xf AND
perrox=perrox+1
perrox=perrox-1
perroy=perroy+1
perroy=perroy-1
perro$;
Manual de Amstrad CPC 6128 (revisión 2008) - Página 421
";:PAPER 8
1640
";
perroy=yp+yf) THEN 2660