AMSTRAD CPC 6128 Manual Del Usario página 419

500 251,28,20,20,20,20,20,20,28
SYMBOL
510 252,0,0,255,255,255,255,255,0
SYMBOL
520 SYMBOL 253,28,28,28,28,28,28,28,28
530 SYMBOL 255,195,165,60,126,90,60,36,24
540 ENT 1,12,-4,1
550 ENT -2,=1000,60,=3000,40
560 ENV 1,10,1,5,2,-4,1,2,-1,20
570 vent$(1)=STRING$(2,250):
vent$(2)=CHR$(251)+CHR$(8)+CHR$(10)+CHR$(251)+CHR$(8)+CHR$(10)+CHR$(251)
580 puerta$(1)=STRING$(2,252):
erta$(2)=CHR$(253)+CHR$(8)+CHR$(10)+CHR$(253)+CHR$(8)+CHR$(10)+CHR$(253)
590 conm$(1,0)=CHR$(246):conm$(1,1)=CHR$(247)
600 conm$(2,0)=CHR$(248):conm$(2,1)=CHR$(249)
610 joya$=CHR$(144):obj$=CHR$(233):perro$=CHR$(255)
620 gol$=CHR$(246)+CHR$(248)+CHR$(247)+CHR$(249)+CHR$(252)+
CHR$(253)+CHR$(250)+CHR$(251)+joya$+obj$+perro$
630 RESTORE 3020
640 FOR i=1 TO 5
650 READ minx(i),miny(i),maxx(i),maxy(i)
660 READ dir(i,1),dir(1,2),dir(i,3),dir(1,4)
670 NEXT
680 WINDOW #1,minx(rm)-1,maxx(rm)+1,miny(rm)-1,maxy(rm)+1
690 WINDOW #2,1,14,1,25
700 CLS#1:PAPER #0,8
710 RETURN
720 ORIGIN 50,50
730 INK 6,24,12
740 RESTORE 3070
750 GOSUB 1290
760 LOCATE 1,20
770 PEN 5:PRINT">";
780 PEN 1:PRINT"Puertas y
790 PEN 5:PRINT"<";:PEN
800 LOCATE 5,21:PRINT"para
810 LOCATE 9,1:PRINT"PASE":LOCATE 10,2:PRINT
820 pausa=300:GOSUB
830 CLS:LOCATE 1,3:INK
840 PEN 1:PRINT hombre$;" Usted, el
850 PEN 2:PRINT LEFT$(puerta$(1),1);LEFT$(puerta$(2),1);"Puertas":PRINT
860 PEN 3:PRINT conm$(1,0);conm$(2,0);" Luces
870 PEN 3:PRINT conm$(1,1);conm$(2,1);" Luces encendidas"
880 PEN 4:PRINT LEFT$(vent$(1),1);LEFT$(vent$(2),1);"
890 PEN 5:PRINT joya$;" Piedras
900 PAPER 1:PEN 0:PRINT
910 PEN 1:PRINT perro$;" El perro"
920 PEN 5:PRINT:PRINT:PRINT
930 PRINT"Utilice joystick":PRINT"o teclas de cursor"
940 aux=REMAIN(1)
950 AFTER retardo*4,1
960 RETURN
970 '
980 'Generar joyas y obstaculos
990 '
1000 hab=1
FOR TO
1010 joyar=INT(RND*8)+2:objr=INT(RND*10)+5
pu-
ventanas";
1
escapar";
340
6,0
preciosas":PRINT
obj$;" Obstaculos":PEN 1:PAPER 0:PRINT
GOSUB 340
5
Manual de Amstrad CPC 6128 (revisión 2008) - Página 418
CHR$(213)CHR$(212);
ladron":PRINT
apagadas":PRINT
Ventanas":PRINT
:PRINT