23-F en versión videojuego de 8 bits

El intento de golpe de estado de hace 30 años en forma de videojuego ochentero. Vía 'El Jueves'.

[#6 Desactivado]

Existió un juego para Spectrum

http://www.worldofspectrum.org/infoseekplay.cgi?title=Golpe%2c+El&pub=Software+Center+S.A.&year=1983&id=0014474&game=/games/g/GolpeEl.tap.zip&emu=3&aspect=3

[#15 KernelPanic]

#6 Ostias!! jaja

[#1 Desactivado]

El momento "king call" es buenísimo.
Lo hubieran dejado perfecto con un 'quieto todo el mundo' sintetizando voz a lo 'Robocop' en el Spectrum.

[#19 Gazza]

#1, y Carrillo fumando en el escaño

[#2 dacaji]

Ya podían hacer los de Final Fantasy una invocación así.

[#4 Desactivado]

Nontiendo Spain

[#5 Haiurame]

La cara del 'final boss' es la misma que la de Donkey Kong cuando sonríe

[#11 Desactivado]

#5 El código fuente

4 CLS : RUN 5
5 PRINT INK 2; FLASH 1;AT 1,7;"MUY IMPORTANTE"; INK 0; FLASH 0;AT 3,0;"NO UTI
LICE(BREAK)PUES DESTRUIRIA EL PROGRAMA."
10 PRINT AT 10,0;"PULSE [CAPS SHIFT] CONJUNTAMENTECON [CAPS LOCK](TECLA ''2'')
CUANDO OBTENGA "; FLASH 1;"C"; FLASH 0;" PULSE [ENTER]"
11 PLOT 123,70: DRAW 0,-68: DRAW 8,8: PLOT 123,2: DRAW -8,8
12 INPUT " ";A$
15 IF LEN A$>0 THEN GO TO 10
16 BORDER 1: PAPER 1: CLS
19 LET GRA=0: LET T$="''EL GOLPE'' NO PRETENDE SER MAS QUE UN PASATIEMPO , UN
JUEGO. NO QUIERA VER EN EL INTENCIONA- LIDAD POLITICA,PUES NO LA HAY .
VAYAN POR DELANTE EL MAS FERVO- ROSO RESPETO POR LA CONS
TITUCION ,LOS ORGANISMOS DEL ESTADO,Y LACORONA,ASI COMO PARA TODOS LOS PERSONAJ
ES REPRESENTADOS EN EL JUEGO."
20 FOR A=1 TO LEN T$: PRINT INK 7;T$(A);: BEEP .04,30: NEXT A
21 PRINT AT 19,2; INK 7; FLASH 1;"CUALQUIER TECLA PARA SEGUIR": PAUSE 0: CLS
22 LET T
23 FOR A=1 TO LEN T$: PRINT INK 7;T$(A);: BEEP .
04,20: NEXT A
24 PRINT AT 20,2; INK 7; FLASH 1;"CUALQUIER TECLA PARA SEGUIR": PAUSE 0: CLS
50 BORDER 7: PAPER 7: CLS
52 FOR A=0 TO 30: LET T=INT (RND*6): INK 2: INK 2: INK 6: INK 6: INK 2: INK 2:
INK 0
55 PRINT INK T;AT 0,3;"?? ? ??? ??? ? ??? ???"
56 PRINT INK T;AT 1,3;"? ? ? ? ? ? ??? ?"
57 PRINT INK T;AT 2,3;"? ? ??? ? ? ? ? ??"
58 PRINT INK T;AT 3,3;"?? ?? ??? ??? ??? ? ???"
59 NEXT A
60 BEEP .8,20
100 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
101 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
102 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
103 FOR B=0 TO 7: READ A: POKE USR " SPECTRUM "+B,A: NEXT B
104 FOR B=0 TO 7: READ A: POKE USR " PLAY "+B,A: NEXT B
105 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
106 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
107 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
108 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
109 DATA 0,0,0,3,7,15,31,63,0,0,0,255,129,255,223,223,0,0,0,192,224,240,248,252
,127,7,2,7,4,2,6,3,255,0,231,24,102,102,0,255,254,192,96,192,32,64,64,192,3,7,15
,30,28,0,0,0,255,255,129,129,129,126,24,60,192,224,240,120,56,0,0,0
110 BEEP .2,1: PRINT AT 10,5;"???";AT 11,5;" SPECTRUM PLAY ?";AT 12,5;"???"
111 RESTORE 113
113 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
114 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
115 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
116 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
117 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
118 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
120 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
121 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
122 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
200 DATA 0,0,3,7,15,31,127,63,0,227,255,255,255,249,224,0,0,128,192,224,240,240
,248,124,29,26,24,24,24,8,4,5,231,0,195,24,36,0,102,255,124,120,24,24,24,16,32,1
60,251,255,126,0,36,36,231,255
212 IF GRA=1 THEN GO TO 4280
215 IF GRA=0 THEN BEEP .2,2: PRINT AT 10,10;"???";AT 11,10;"???";AT 12,10;" ? "
220 RESTORE 221
221 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
222 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
223 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
224 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
225 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
226 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
227 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
228 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
229 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
230 DATA 0,0,0,1,2,4,9,9,0,126,129,0,0,0,195,231,0,0,0,128,64,32,144,144
231 DATA 10,55,36,36,36,19,16,8,0,231,60,165,36,195,0,165,80,236,36,36,36,200,8
,16
232 DATA 17,34,40,21,16,12,2,1,60,0,255,3,3,0,60,231,136,68,36,168,8,48,64,128
233 IF GRA=0 THEN BEEP .2,3: PRINT AT 10,15;"???";AT 11,15;"???";AT 12,15;"???"
: RESTORE 234
234 IF GRA=1 THEN GO TO 6001
243 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
244 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
245 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
246 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
247 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
248 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
249 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
250 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
251 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
260 DATA 0,3,7,8,8,8,25,16,85,255,60,0,0,0,231,0,0,192,224,16,16,16,152,8
261 DATA 16,24,4,8,16,32,33,32,195,195,24,36,66,36,0,255,8,24,32,16,8,4,132,4
262 DATA 32,16,8,4,2,1,102,102,0,0,66,126,0,129,126,0,4,8,16,32,64,128,102,102
300 IF GRA=0 THEN BEEP .2,4: PRINT AT 10,20;"???";AT 11,20;"???";AT 12,20;"???"
305 IF GRA=1 THEN GO TO 7043
310 RESTORE 350
350 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
351 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
352 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
353 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
354 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
355 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
356 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
357 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
358 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
360 DATA 0,1,3,7,7,14,14,12,127,191,223,239,255,60,0,0,128,224,240,248,152,24,2
4,56
361 DATA 12,12,8,8,4,4,4,2,231,0,231,0,66,66,36,24,48,16,16,16,32,32,32,64
362 DATA 2,2,2,1,1,0,0,0,0,60,66,60,0,129,126,0,64,64,64,128,128,0,0,0
400 IF GRA=0 THEN BEEP .2,5: PRINT AT 10,25;"???";AT 11,25;"???";AT 12,25;"???"
410 IF GRA=1 THEN GO TO 7502
900 RESTORE 1000
1000 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
1001 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
1002 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
1003 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
1004 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
1005 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
1006 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
1007 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
1010 DATA BIN 11001100,BIN 10110010,BIN 01101100,BIN 10000110,BIN 11111011,BIN 0
0111011,BIN 11010110,BIN 11101100
1011 DATA BIN 01111001,BIN 01111011,BIN 00000111,BIN 01111111,BIN 01111110,BIN 0
0000001,BIN 01111011,BIN 01111011
1012 DATA BIN 00001111,BIN 00011111,BIN 00110000,BIN 00110000,BIN 00110000,BIN 0
0110000,BIN 00011111,BIN 00001111
1013 DATA BIN 11110000,BIN 11111000,BIN 00001100,BIN 00001100,BIN 00001100,BIN 0
0001100,BIN 11111000,BIN 11110000
1014 DATA BIN 00111111,BIN 00000001,BIN 00000001,BIN 00111111,BIN 00100001,BIN 0
0100001,BIN 00111111,BIN 0,BIN 0,BIN 11111100,BIN 10000100,BIN 10000100,BIN 1111
1100,BIN 10000000,BIN 10000000,BIN 10000000
1015 DATA BIN 00001001,BIN 00010000,BIN 00110001,BIN 00110011,BIN 00110110,BIN 0
0011111,BIN 00111111,BIN 00110000,BIN 11111000,BIN 11111100,BIN 11111100,BIN 100
01100,BIN 11100000,BIN 11110000,BIN 00111100,BIN 00011100
1100 BEEP .2,10: PRINT AT 15,10; INK 2; PAPER 7;"?";AT 16,10; INK 0; PAPER 7;"?"
;AT 16,11;"?"
1110 BEEP .2,10: PRINT AT 15,25; INK 4;"?";AT 15,26; INK 2;"?"
1120 BEEP .2,10: PRINT AT 15,20; INK 3;"??"
1130 BEEP .2,10: PRINT AT 15,15; INK 2;"??"
1140 BEEP .2,10: PRINT AT 15,5; INK 6; PAPER 2;"***"
1150 PRINT AT 18,0; INK 2;"????????????????????????????????";AT 19,0; INK 6;"???
?????????????????????????????????????????????????????????????";AT 21,0; INK 2;"?
???????????????????????????????"
1160>PRINT INK 1; PAPER 6;AT 19,9;"23
00>PAUSE 200
2001 CLS : PRINT AT 10,0;"PARA EL JUEGO UTILICE: (A)-SUBIR
(Z)-BAJAR (O)-IZQUIERDA
(P)-DERECHA": FOR A=0 TO 20: BEEP .1,A: NEXT A: PAUSE 100
2003 BORDER 4: RESTORE 2100
2100 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2101 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2102 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2105 DATA BIN 0,BIN 10111011,BIN 10111011,BIN 10111011,BIN 0,BIN 11011101,BIN 11
011101,BIN 11011101
2106 DATA BIN 10101010,BIN 10101010,BIN 01010101,BIN 01010101,BIN 10101010,BIN 1
0101010,BIN 01010101,BIN 01010101
2107 DATA BIN 0,BIN 01111110,BIN 01111110,BIN 01111110,BIN 01111110,BIN 01111110
,BIN 01111110,BIN 0
2110 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2111 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2112 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2113 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2114 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2115 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2116 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2117 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2118 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
2120 DATA 0,0,0,1,3,3,3,7,0,0,0,254,230,230,230,0,0,0,0,128,192,192,192,224,7,3,
6,2,6,2,2,2,253,255,255,0,231,36,0,36,224,192,96,64,96,64,64,64,2,1,1,1,1,0,0,0,
36,24,0,60,129,66,126,0,64,128,128,128,128,0,0,0
2300 CLS : DIM L$(22,32)
2311 LET L$(1)="?????????????????????????????????"
2312 LET L$(2)="? ? ? ?"
2313 LET L$(3)="? ? ? ?"
2314 LET L$(4)="? ? ? ?"
2315 LET L$(5)="? ????????? ? ???? ? "
2316 LET L$(6)="? ? ? ?"
2317 LET L$(7)="? ? ? ? "
2318 LET L$(8)="? ? ? ? "
2319 LET L$(9)="?? ? ?? ?? ? ? ? "
2320 LET L$(10)=" ?? ? ? "
2321 LET L$(11)=" ?"
2322 LET L$(12)=" ?"
2323 LET L$(13)=" ? ? ?"
2324 LET L$(14)="?? ? ? ? ? ? "
2325 LET L$(15)="? ? ? ? ? ? "
2326 LET L$(16)="? ? ? ? ?"
2327 LET L$(17)="? ?? ? ?? ? ? "
2328 LET L$(18)="? ?? ? ? ? ? ?"
2329 LET L$(19)="? ? ? ? ?"
2330 LET L$(20)="? ? ? ? ?"
2331 LET L$(21)="? ? ? ? ?"
2332 LET L$(22)="?????????????????????????????????"
2340 PAPER 7: CLS
2350 FOR A=1 TO 22: PRINT INK 1; PAPER 7;L$(A): BEEP .01,A: NEXT A
2351 PRINT #0; INK 1; FLASH 1;" ENTRADA AL CONGRESO. "
2355 LET Z=1.2: LET H=1: LET I=4: LET B=8: LET G=4: LET M=10: LET N=28
2360 PRINT INK 0;AT M,N-1;"???";AT M+1,N-1;" SPECTRUM PLAY ?";AT M+2,N-1;"???"
2405 PRINT INK 0;AT M,N-1;"???";AT M+1,N-1;" SPECT

[#16 jrmagus]

#11 y subsiguientes, puntero al código, por favor, no todo el código inline.

[#18 Desactivado]

#16 no sabía que era tan largo

[#7 Desactivado]

La música que suena durante el "King Call" me suena muchísimo de un videojuego histórico, pero ahora no recuerdo cual es.

¿Puede ser del primer Mario?

[#8 keuper]

#7 Es del primer mario, los niveles del castillo.

[#9 Haiurame]

¿King Koopa, o séase, Bowser?

[#3 trekold]

Relacionado: http://www.relaxate.com/emuladores/sinclair/jugar-spectrum.php?id=3329&juego=Elecciones+Generales

[#10 kismet010]

perfecto

[#17 mierdafrita]

Aquí unas camisetas cachondas del 23 f.
http://www.latostadora.com/lawebchanante/1/1

[#12 Desactivado]

2410 IF INKEY$="A" AND M>=0 AND L$(M,N+2)"?" AND L$(M,N)"?" AND L$(M,N+1)"
?" THEN PRINT AT M+2,N-1;" ": LET M=M-1
2420 IF INKEY$="Z" AND M=0 AND L$(M+3,N-1)"?" AND L$(M+1,N-1)"?" AND L$(M+2
,N-1)"?" THEN PRINT AT M,N+1;" ";AT M+1,N+1;" ";AT M+2,N+1;" ": LET N=N-1
2440 IF INKEY$="P" AND NIF NM
) AND L$(B,G+2)"?" AND L$(B,G)"?" AND L$(B,G+1)"?" THEN PRINT AT B+2,G-1;"
": LET B=B-1
2520 PRINT AT B,G-1;"???";AT B+1,G-1;"???";AT B+2,G-1;"???": IF INT (RND*Z)+(BN
) AND L$(B+3,G-1)"?" AND L$(B+1,G-1)"?" AND L$(B+2,G-1)"?" THEN PRINT AT B
,G+1;" ";AT B+1,G+1;" ";AT B+2,G+1;" ": LET G=G-1
2540 PRINT AT B,G-1;"???";AT B+1,G-1;"???";AT B+2,G-1;"???": IF INT (RND*Z)+(GPRINT AT B,G-1;"???";AT
B+1,G-1;"???";AT B+2,G-1;"???"
2600 IF B+2=M AND G=N OR B-2=M AND G=N OR B=M AND G-2=N OR B=M AND G+2=N OR B+1=
M AND G=N OR B-1=M AND G=N OR B=M AND G=N THEN BEEP 1,2: PRINT INK 2;AT B,G-1;"?
??";AT B+1,G-1;"???";AT B+2,G-1;"???": PRINT INK 4;AT M,N-1;"???";AT M+1,N-1;" S
PECTRUM PLAY ?";AT M+2,N-1;"???": BEEP 2,-10: GO TO 9000
2610 PRINT AT H,I-1;"???";AT H+1,I-1;"???";AT H+2,I-1;"???": IF INT (RND*Z)+(H>M
) AND L$(H,I+2)"?" AND L$(H,I)"?" AND L$(H,I+1)"?" THEN PRINT AT H+2,I-1;"
": LET H=H-1
2620 PRINT AT H,I-1;"???";AT H+1,I-1;"???";AT H+2,I-1;"???": IF INT (RND*Z)+(HN
) AND L$(H+3,I-1)"?" AND L$(H+1,I-1)"?" AND L$(H+2,I-1)"?" THEN PRINT AT H
,I+1;" ";AT H+1,I+1;" ";AT H+2,I+1;" ": LET I=I-1
2640 PRINT AT H,I-1;"???";AT H+1,I-1;"???";AT H+2,I-1;"???": IF INT (RND*Z)+(IIF H+1=M AND I=N OR H-1
=M AND I=N OR H=M AND I=N OR H+2=M AND I=N OR H-2=M AND I=N OR H=M AND I-2=N OR
H=M AND I+2=N THEN BEEP 1,2: PRINT INK 2;AT H,I-1;"???";AT H+1,I-1;"???";AT H+2,
I-1;"???": PRINT INK 4;AT M,N-1;"???";AT M+1,N-1;" SPECTRUM PLAY ?";AT M+2,N-1;"
???": BEEP 2,-10: GO TO 9000
2790 PRINT AT H,I-1;"???";AT H+1,I-1;"???";AT H+2,I-1;"???"
2800 GO TO 2360
3000 LET SS=0: BORDER 3: CLS : BEEP 1,2
3900 DIM L$(21,32)
4001 LET L$(1)="?? ???????????????????????????"
4002 LET L$(2)=" "
4003 LET L$(3)=" "
4004 LET L$(4)=""
4005 LET L$(5)="?? ??????????? ????? ?????"
4006 LET L$(6)=" "
4007 LET L$(7)=""
4008 LET L$(8)=""
4009 LET L$(9)="???????? ????????? ?????????"
4010 LET L$(10)=" "
4011 LET L$(11)=""
4012 LET L$(12)=" "
4013 LET L$(13)="???? ????????? ?????????????"
4014 LET L$(14)=" "
4015 LET L$(15)=" "
4016 LET L$(16)=" "
4017 LET L$(17)="???????? ????????? ?????????"
4018 LET L$(18)=" "
4019 LET L$(19)=" "
4020 LET L$(20)=" "
4021 LET L$(21)="????????????????????????????????"
4100 FOR A=1 TO 21: PRINT INK 1;L$(A): BEEP .01,A: NEXT A
4240 LET M=1: LET N=4
4270 LET GRA=1: GO TO 111
4290 LET S$="KEE NAADIIEEE ZZEE MUUEEBBAA"
4365 LET S$="ZZEE ZZIIEENTEEN KOONYOO"
4370 PRINT #0; FLASH 1;"*****QUE NO SE MUEVA NADIE*****"
4380 LET V=3: LET XX=1: LET Z=1: LET B=5: LET G=9: LET M=1: LET N=3:
4405 LET QQ=0: LET SS=INT (RND*20): PRINT AT B,G-1;"???";AT B+1,G-1;"???";AT B+2
,G-1;" ? ": GO TO 4450
4451

01>IF V=0 THEN BEEP 1,-20:
GO TO 9000
4505 IF MIF M>17 THEN LET M=M-1
4530 IF INKEY$="O" AND N>=1 AND L$(M+3,N-1)=" " AND L$(M+1,N-1)=" " AND L$(M+2,N
-1)=" " THEN PRINT AT M,N+1;" ";AT M+1,N+1;" ";AT M+2,N+1;" ": LET N=N-1
4535 IF NIF N10 THEN GO SUB 5000
4650 LET G=G+1: PRINT AT B,G-2;" ";AT B+1,G-2;" "
4655 IF G>=31 THEN PRINT AT B,G-1;" ";AT B+1,G-1;" ";AT B+2,G-1;" ": LET G=
1: LET QQ=1
4660 IF QQ=1 AND B=1 AND SS4 AND SS>=11 AND SS1 AND L$(M+2,N-2)=" " AND L$(M+1,N-2)=" " AND L$(M,N-2)
=" " THEN PRINT AT M,N+1;" ";AT M+1,N+1;" ";AT M+2,N+1;" ": LET N=N-1
6115 IF N

[#13 Desactivado]

6230 IF M=18 AND N=4 AND K1=0 THEN LET LL=4: BEEP .1,30: LET K1=1: PRINT AT 18,4
;" ";AT 19,4;" ";AT 20,4;" "
6231 IF M=14 AND N=4 AND K2=0 THEN LET LL=3: BEEP .1,30: LET K2=1: PRINT AT 14,4
;" ";AT 15,4;" ";AT 16,4;" "
6232 IF M=10 AND N=4 AND K3=0 THEN LET LL=5: BEEP .1,30: LET K3=1: PRINT AT 10,4
;" ";AT 11,4;" ";AT 12,4;" "
6240 IF LL=4 THEN PRINT AT M+2,N; INK LL;"?";AT 18,4;" ";AT 19,4;" ";AT 20,4;"
"
6241 IF LL=3 THEN PRINT AT M+2,N; INK LL;"?";AT 14,4;" ";AT 15,4;" ";AT 16,4;"
"
6242 IF LL=5 THEN PRINT AT M+2,N; INK LL;"?";AT 10,4;" ";AT 11,4;" ";AT 12,4;"
"
6250 IF LL0 AND N=5 THEN LET N=N+1
6251 IF LL=4 THEN PRINT AT 20,3;" ";AT 19,3;" ";AT 18,3;" "
6252 IF LL=3 THEN PRINT AT 16,3;" "
6253 IF LL=5 THEN PRINT AT 12,3;" "
6300 IF LL=4 AND M=6 AND N=25 THEN BEEP .1,LL: BEEP .2,LL+1: BEEP .3,LL+2: PRINT
AT 5,24;" ": LET LL=0: LET TT=TT+1
6310 IF LL=3 AND M=6 AND N=25 THEN BEEP .1,LL: BEEP .2,LL+1: BEEP .3,LL+2: PRINT
AT 5,25;" ": LET LL=0: LET TT=TT+1
6320 IF LL=5 AND M=6 AND N=25 THEN BEEP .1,LL: BEEP .2,LL+1: BEEP .3,LL+2: PRINT
AT 5,26;" ": LET LL=0: LET TT=TT+1:
6400 IF TT=3 THEN LET L$(5)="???????????????????????? ?????"
6410 IF M=B AND N=G OR M=B AND N=G-1 OR M=B AND N=G+1 THEN LET FIN=1: PRINT AT M
,N-3;" ";AT M+1,N-3;" ";AT M+2,N-3;" ": FOR A=0 TO 10: PRINT IN
K 2;AT M,N;"???";AT M+1,N;"???";AT M+2,N;"???": BEEP .1,30: PRINT INK 4;AT M,N;"
???";AT M+1,N;" SPECTRUM PLAY ?";AT M+2,N;"???": BEEP .1,1: NEXT A
6420 IF FIN=1 THEN GO TO 7000
6422 IF A=30 THEN LET ZA=INT (RND*30)
6423 IF ZA=23 THEN LET D=1: LET W=23: PRINT AT 19,23;" "
7706 IF Q=3 AND W=23 THEN LET D=2
7707 IF Q=3 AND W=9 THEN LET D=3
7708 IF Q=19 AND W=8 THEN LET D=4
12 PRINT AT Q,W;" ": PRIN
T AT Y,H;" "
7715 IF D=1 THEN LET Q=Q-2:
7716 IF D=2 THEN LET W=W-2
7717 IF D=3 THEN LET Q=Q+2: LET W=8
7718 IF D=4 THEN LET W=W+2:
21>IF O=3 THEN LET Y=Y+2
7722 IF O=4 THEN LET H=H+2:
7723 IF O=2
24>IF O=1 THEN LET Y=Y-2
7730 IF INKEY$="O" AND N>1 AND L$(M+2,N-1)=" " AND L$(M+1,N-1)=" " AND L$(M,N-1)
=" " THEN PRINT AT M,N+1;" ";AT M+1,N+1;" ";AT M+2,N+1;" ": LET N=N-1
7740 IF INKEY$="P" AND N=64 THEN BEEP .5,20: LET V=V-1:
7757 IF ATTR (M+1,N)>=64 THEN
BEEP .5,20: LET V=V-1: PRINT INK 4;AT M,N-1;"???";AT M+1,N-1;" SPECTRUM PLAY ?";
AT M+2,N-1;"???": BEEP .5,-20
7758 IF ATTR (M+1,N-1)>=64 THEN BEEP .5,20: LET V=V-1: PRINT AT M,N-1; INK 4;"??
?";AT M+1,N-1;" SPECTRUM PLAY ?";AT M+2,N-1;"???": BEEP .5,-20
7760 IF M=13 AND N=13 AND LV=0 THEN LET LV=3: LET W1=1: BEEP .1,M: BEEP .1,N: LE
T L$(7)="??????? ? ? ?? ??"
7761 IF M=13 AND N=18 AND LV=0 THEN LET LV=6: LET W2=1: BEEP .1,M: BEEP .1,N: LE
T L$(7)="?? ?? ? ? ???????"
7762 IF M=7 AND N=18 AND LV=0 THEN LET LV=5: LET W3=1: BEEP .1,M: BEEP .1,N: LET
L$(15)="?? ?? ? ? ???????"
7763 IF M=7 AND N=13 AND LV=0 THEN LET LV=4: LET W4=1: BEEP .1,M: BEEP .1,N: LET
L$(15)="??????? ? ? ?? ??"
7770 IF LV=3 AND M=7 AND N=28 THEN BEEP .01,1: BEEP .01,2: BEEP .01,3: FOR A=2 T
O 6: PRINT INK 7;AT A,26;"?????": NEXT A: LET LV=0
7771 IF LV=4 AND M=13 AND N=28 THEN BEEP .01,1: BEEP .01,2: BEEP .01,3: FOR A=16
TO 20: PRINT INK 7;AT A,26;"?????": NEXT A: LET LV=0
7772 IF LV=5 AND M=13 AND N=3 THEN BEEP .01,1: BEEP .01,2: BEEP .01,3: FOR A=16
TO 20: PRINT INK 7;AT A,1;"?????": NEXT A: LET LV=0
7773 IF LV=6 AND M=7 AND N=3 THEN BEEP .01,1: BEEP .01,2: BEEP .01,3: FOR A=2 TO
6: PRINT INK 7;AT A,1;"?????": NEXT A: LET LV=0
7775 IF POS=0 AND M=7 AND N=3 THEN LET PA=7: PRINT AT B,G-1;"???";AT B+1,G-1;"??
?";AT B+2,G;"???"
7776 IF POS=1 AND M=7 AND N=28 THEN LET PA=7: PRINT AT B,G-1;"???";AT B+1,G-1;"?
??";AT B+2,G-1;"???"
7777 IF POS=2 AND M=13 AND N=3 THEN LET PA=7: PRINT AT B,G-1;"???";AT B+1,G-1;"?
??";AT B+2,G-1;"???"
7778 IF POS=3 AND M=13 AND N=28 THEN LET PA=7: PRINT AT B,G-1;"???";AT B+1,G-1;"
???";AT B+2,G-1;"???"
7780 IF W1=0 THEN PRINT INK 3;AT 13,13;"?"
7781 IF W2=0 THEN PRINT INK 6;AT 13,18;"?"
7782 IF W3=0 THEN PRINT INK 5;AT 9,18;"?"
7783 IF W4=0 THEN PRINT INK 4;AT 9,13;"?"
7785 IF M=B AND N=G THEN FOR A=0 TO 10: PRINT INK 2;AT B,G-1;"???";AT B+1,G-1;"?
??";AT B+2,G-1;"???": BEEP .1,A: PRINT INK 4;AT M,N-1;"???";AT M+1,N-1;" SPECTRU
M PLAY ?";AT M+2,N-1;"???": BEEP .1,A+10: NEXT A: GO TO 9900
7790 IF V=17 THEN PRINT AT M,N;" ";AT M+1,N;" ";AT M+2,N;" ": BEEP 1,-20:
GO TO 2003
9060 BEEP .2,N: PRINT AT M,N;" ";AT M+1,N;" ";AT M+2,N;" ": LET N=N+1: GO
TO 9050
9900 BEEP 1,20: PAPER 7: BORDER 1: CLS :
9901 PLOT 127,0: DRAW 0,20: DRAW -10,30: DRAW 30,20: DRAW -10,40: DRAW -20,20: D
RAW 40,20: DRAW -20,25
9903 PRINT INK 1;AT 2,3;"**MADRID**";AT 12,20;"**??????**"
9904 RESTORE 9905
9905 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
9906 FOR B=0 TO 7: READ A: POKE USR "?"+B,A: NEXT B
9910 DATA BIN 10000000,BIN 11100000,BIN 11110000,BIN 11111000,BIN 11111100,BIN

[#14 Desactivado]

9915 PRINT AT 17,24;"?"
9920 PRINT INK 0;AT 5,5;"???";AT 6,5;" SPECTRUM PLAY ??";AT 7,5;"????"
9923 PLOT 70,116: DRAW INK 2;140,-80
9925 PRINT AT 16,26;"?";AT 17,26;"?"
9950 PAUSE 50: BEEP .1,20: PRINT INK 4;AT 10,0;"-LOS TENGO A TODOS": PAUSE 50
9951 BEEP .1,20: PRINT INK 3;AT 2,19;"-PUES EL CASO";AT 3,20;"ES QUE NO ";AT 4,2
0;"PUEDO VENIR."
9952 PAUSE 50: BEEP .1,20: PRINT INK 4;AT 12,0;"-QUUUEEEE!!!!": PAUSE 30: PRINT
INK 4;AT 14,0;"-Y AHORA QUE HAGO"
9953 PAUSE 50: BEEP .1,20: PRINT INK 3;AT 6,20;"-USTED VERA..": PAUSE 50
9955 BEEP .1,20: PRINT INK 4;AT 16,0;"-MADRE MIA";AT 17,0;"QUE LIIIOOOO!!!"
9960 FOR A=0 TO 30: BEEP .1,-A: NEXT A
9970 FOR A=1 TO 5: PRINT INK A;AT 5,5;"???";AT 6,5;" SPECTRUM PLAY ?";AT 7,5;"??
?": BEEP .2,-A*8: NEXT A
9980 PAUSE 100: FOR A=0 TO 21: PRINT AT A,0; INK 1;"????????????????????????????
????": NEXT A
9985 PAUSE 50
9990 GO TO 9000
9999 SAVE "23*F" LINE 1