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
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
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
Comentarios
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
#6 Ostias!! jaja
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.
#1, y Carrillo fumando en el escaño
Ya podían hacer los de Final Fantasy una invocación así.
Nontiendo Spain
La cara del 'final boss' es la misma que la de Donkey Kong cuando sonríe
#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
#11 y subsiguientes, puntero al código, por favor, no todo el código inline.
#16 no sabía que era tan largo
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?
#7 Es del primer mario, los niveles del castillo.
¿King Koopa, o séase, Bowser?
Relacionado: http://www.relaxate.com/emuladores/sinclair/jugar-spectrum.php?id=3329&juego=Elecciones+Generales
perfecto
Aquí unas camisetas cachondas del 23 f.
http://www.latostadora.com/lawebchanante/1/1
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
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
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