5 REM PATRULLA ESPACIAL VC64-02
10 GOSUB3000:GOTO100
30 PRINT"[147]QUIERES INSTRUCCIONES(S/N)?: ";
40 GETA$:IFA$=""THEN40
50 IFA$="S"THEN10
60 IFA$="N"THEN100
70 GOTO40
100 GOSUB1000
300 PRINT"[147]PULSA 'SPACE' PARA CARGAR EL PROXIMO PROGRAMA"
310 GETA$:IFA$<>"[160]"THEN310
400 LOAD
410 END
1000 REM JUEGO
1260 DIM M(100)
1350 Z=0:Q=0:PRINT"[147]"
1380 C=INT(RND(1)*25)+1
1390 D=INT(RND(1)*25)+1
1400 E=INT(RND(1)*25)+1
1410 F=INT(RND(1)*25)+1
1420 IF C=D THEN1390
1430 IF C=E THEN1400
1440 IF C=F THEN1410
1450 IF D=E THEN1400
1460 IF D=F THEN1410
1470 IF E=F THEN1410
1480 PRINT "CUALES SON TUS 4 POSICIONES:";
1490 INPUT G,H,K,L
1495 PRINT
1500 PRINT "DONDE QUIERES DISPARAR TU MISSIL:";
1510 INPUT Y:PRINT
1520 IF Y=C THEN1710
1530 IF Y=D THEN1710
1540 IF Y=E THEN1710
1550 IF Y=F THEN1710
1560 GOTO1630
1570 M=INT(RND(1)*25)+1
1575 GOTO 2160
1580 IF X=G THEN1920
1590 IF X=H THEN1920
1600 IF X=L THEN1920
1610 IF X=K THEN1920
1620 GOTO1670
1630 PRINT"FALLASTE !!!":FORI=1TO200:NEXT:PRINT:PRINT"AHORA ES MI TURNO":PRINT
1640 GOTO1570
1670 PRINT"ELEGI LA BASE";M;"Y FALLE.":FORI=1TO200:NEXT
1680 PRINT:PRINT"ES TU TURNO.":FORI=1TO200:NEXT:PRINT:GOTO1500
1710 Q=Q+1
1720 IF Q=4 THEN1890
1730 PRINT:PRINT "ALCANZASTE UNA DE MIS BASES !!!":FORI=1TO200:NEXT:PRINT
1740 IF Q=1 THEN1770
1750 IF Q=2 THEN1810
1760 IF Q=3 THEN1850
1770 PRINT "HAS DESTRUIDO UNA BASE !!!":PRINT:PRINT"QUEDAN TRES BASES OCULTAS."
1780 PRINT: PRINT:FORI=1TO200:NEXT:GOTO1570
1810 PRINT "HAS DESTRUIDO DOS BASES !!!":PRINT:PRINT"QUEDAN DOS BASES OCULTAS."
1820 PRINT: PRINT:FORI=1TO200:NEXT:GOTO1570
1850 PRINT "HAS DESTRUIDO TRES BASES !!!":PRINT:PRINT"QUEDA UNA BASE OCULTA."
1860 PRINT: PRINT:FORI=1TO200:NEXT:GOTO1570
1890 PRINT "HAN SIDO DESTRUIDAS TODAS LAS BASES":PRINT
1910 FORI=1TO200:NEXT:GOTO 2235
1920 Z=Z+1
1930 IF Z=4 THEN 2110
1940 PRINT "ALCANZADA Y DESTRUIDA LA BASE";X;"!!!":FORI=1TO200:NEXT:PRINT
1950 IF Z=1 THEN1990
1960 IF Z=2 THEN 2030
1970 IF Z=3 THEN 2070
1990 PRINT "SOLO TE QUEDAN TRES BASES"
2000 PRINT: PRINT:FORI=1TO200:NEXT:GOTO1500
2030 PRINT "SOLO TE QUEDAN DOS BASES"
2040 PRINT: PRINT:FORI=1TO200:NEXT:GOTO1500
2070 PRINT "SOLO TE QUEDA UNA BASE"
2080 PRINT: PRINT:FORI=1TO200:NEXT:GOTO1500
2110 PRINT "ACABE CONTIGO !!!":PRINT
2112 PRINT "TU ULTIMA BASE ESTABA EN ";X;"."
2115 PRINT:FORI=1TO200:NEXT
2120 PRINT "ESPERO QUE LA PROXIMA"
2130 PRINT "VEZ TENGAS MAS SUERTE"
2140 FORI=1TO200:NEXT
2150 GOTO 2235
2160 P=P+1
2170 N=P-1
2180 FOR T=1 TO M
2190 IF M=M(T) THEN1570
2200 NEXT T
2210 X=M
2220 M(P)=M
2230 GOTO1580
2235 PRINT"QUIERES JUGAR OTRA PARTIDA?":PRINT""
2240 GETA$:IFA$=""THEN2240
2250 IFA$="N"THEN2999
2260 IFA$="S"THEN1350
2270 GOTO2240
2999 RETURN
3000 POKE53281,14:POKE53280,15:PRINT"[147]";
3010 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3020 PRINT"[180]           B O M B A R D E O          [170]";
3030 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3040 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3050 PRINT"[180]       EN EL CENTRO DE ENTRENAMIEN-   [170]";
3060 PRINT"[180]    TO ESPACIAL DE LA CONFEDERACION   [170]";
3070 PRINT"[180]    EN GANIMEDES, TE PREPARAS PARA    [170]";
3080 PRINT"[180]    LUCHAR CONTRA EL IMPERIO GALAC-   [170]";
3090 PRINT"[180]    TICO. LA LUCHA ES DURA...IGUAL    [170]";
3100 PRINT"[180]    QUE LOS ENTRENAMIENTOS.           [170]";
3110 PRINT"[180]        EN ESTE DEBES DESTRUIR LAS    [170]";
3120 PRINT"[180]    CUATRO BASES CAMUFLADAS POR EL    [170]";
3130 PRINT"[180]    ORDENADOR GIGANTE DEL CENTRO DE   [170]";
3140 PRINT"[180]    ENTRENAMIENTO, ANTES DE QUE EL    [170]";
3150 PRINT"[180]    DESCUBRA Y DESTRUYA LAS TUYAS.    [170]";
3160 PRINT"[180]        HAY 25 POSICIONES POSIBLES    [170]";
3170 PRINT"[180]    Y DEBES ACERTAR LAS 4 POSICIO-    [170]";
3180 PRINT"[180]    NES CORRECTAS ANTES DE QUE EL     [170]";
3190 PRINT"[180]    SUPER-ORDENADOR DESTRUYA LAS 4    [170]";
3200 PRINT"[180]    TUYAS.                            [170]";
3210 PRINT"[180]                                      [170]";
3220 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3230 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3240 PRINT"[180]      PULSA 'SPACE' PARA CONTINUAR    [170]";
3250 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3255 GETA$:IFA$<>" "THEN3255
3260 PRINT"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3270 PRINT"[180]           B O M B A R D E O          [170]";
3280 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3290 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3300 PRINT"[180]       COPIA ESTA MATRIZ CON LA NU-   [170]";
3310 PRINT"[180]    MERACION DE LAS POSICIONES INDI-  [170]";
3320 PRINT"[180]    CADA Y UTILIZALA PARA APUNTAR     [170]";
3330 PRINT"[180]    LAS JUGADAS:                      [170]";
3340 PRINT"[180]                                      [170]";
3350 PRINT"[180]            [176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]          [170]";
3360 PRINT"[180]            [194] 1[221] 2[221] 3[221] 4[221] 5[200]          [170]";
3370 PRINT"[180]            [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]          [170]";
3380 PRINT"[180]            [194] 6[221] 7[221] 8[221] 9[221]10[200]          [170]";
3390 PRINT"[180]            [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]          [170]";
3400 PRINT"[180]            [194]11[221]12[221]13[221]14[221]15[200]          [170]";
3410 PRINT"[180]            [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]          [170]";
3420 PRINT"[180]            [194]16[221]17[221]18[221]19[221]20[200]          [170]";
3430 PRINT"[180]            [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]          [170]";
3440 PRINT"[180]            [194]21[221]22[221]23[221]24[221]25[200]          [170]";
3450 PRINT"[180]            [173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189]          [170]";
3460 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3470 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3480 PRINT"[180]      PULSA 'SPACE' PARA CONTINUAR    [170]";
3490 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3950 GETA$:IFA$<>" "THEN3950
3999 RETURN