|
El cargador del juego:
10 ' CARGADOR PARA STRIDER (CGA-EGA)
20 ' *** POR JAVIER SANCHEZ FRANSESCH *** '
30 CLS : KEY OFF: DIM D%(255)
40 READ C: S = S + C: IF C = -1 THEN 70
50 P = P + 1: D%(P) = C
60 GOTO 40
70 IF S <> 16820 THEN PRINT "ERROR EN LOS DATAS!": END
80 INPUT "Vidas infinitas"; A$: IF A$ <> "n" THEN T = T + 1
90 INPUT "Inmunidad"; A$: IF A$ <> "n" THEN T = T + 2
100 INPUT "Tiempo infinito"; A$: IF A$ <> "n" THEN T = T + 4
110 D%(4) = T
120 FOR T = 1 TO P: C$ = C$ + CHR$(D%(T)): NEXT T
130 PRINT " PULSA UNA TECLA PARA GRABAR EL CARGADOR EN DISCO"
140 IF INKEY$ = "" THEN 140
150 OPEN "cstrider.com" FOR OUTPUT AS #1
160 PRINT #1, C$
170 CLOSE 1
180 PRINT : PRINT "CREADO EL FICHERO CSTRIDER.COM CARGALO ANTES DE
STRIDER"
190 END
200 DATA
233,152,000,255,046,137,030,114,001,046,163,116,001,088,091,083,080,030
210 DATA
142,219,129,062,142,059,254,014,117,071,046,160,003,001,208,216,115,012
220 DATA
199,006,142,059,144,144,199,006,144,059,144,144,208,216,115,005,198,006
230 DATA
092,059,195,208,216,115,017,199,006,032,068,199,004,199,006,034,068,057
240 DATA
056,198,006,036,068,144,250,184,000,000,142,216,046,161,110,001,163,132
250 DATA
000,046,161,112,001,163,134,000,251,031,046,161,116,001,046,139,030,114
260 DATA
001,234,000,000,000,000,000,000,000,000,000,067,097,114,103,097,032,097
270 DATA
104,111,114,097,032,101,108,032,083,084,082,073,068,069,082,046,010,013
280 DATA
040,067,041,032,074,046,083,046,070,046,036,014,031,184,033,053,205,033
290 DATA
137,030,110,001,140,006,112,001,184,033,037,141,022,004,001,014,031,205
300 DATA
033,180,009,014,031,141,022,119,001,205,033,141,022,118,001,205,039,-1
|
|
|
