El cargador del juego:
10 ' CARGADOR PARA EL CONQUEROR (HERCULES-CGA-EGA-VGA-TANDY)
20 ' *** POR JAVIER SANCHEZ FRANSESCH ***
30 CLS:KEY OFF:DIM D(272)
40 READ C:IF C=-1 THEN 60
50 S=S+C:PO=PO+1:D(PO)=C:GOTO 40
60 IF S<>19610 THEN PRINT "ERROR EN LOS DATAS!":END
70 LOCATE 1,10:PRINT "Selecciona tu tarjeta grafica:"
80 LOCATE 3,10:PRINT " 1 ........ CGA - HERCULES"
90 LOCATE 5,10:PRINT " 2 ........ EGA - VGA"
100 LOCATE 7,10:PRINT " 3 ........ TANDY"
110 LOCATE 10,10:INPUT "Cual tienes (1-2-3)";A:IF A<1 OR A>3 THEN 110
120 D(4)=2^(A-1)
130 PRINT " INTRODUCE EL DISCO DONDE QUIERAS GRABAR EL CARGADOR Y PULSA
UNA TECLA"
140 IF INKEY$="" THEN 140
150 OPEN "R",#1,"ctank.com",1
160 FIELD #1,1 AS A$
170 FOR T=1 TO PO:LSET A$=CHR$(D(T)):PUT #1,T:NEXT
180 CLOSE 1
190 PRINT:PRINT "CREADO EL FICHERO CTANK.COM, CARGALO ANTES DEL 'CONQUEROR' Y CONSEGUIRAS JUGAR CON TANQUES INFINITOS."
200 END
210 DATA 233, 186, 0, 0, 130, 252, 15, 116, 3, 233, 129, 0
220 DATA 46, 163, 146, 1, 46, 137, 30, 148, 1, 88, 91, 83
230 DATA 80, 30, 142, 219, 46, 160, 3, 1, 208, 216, 115, 23
240 DATA 129, 62, 89, 4, 254, 14, 117, 15, 199, 6, 89, 4
250 DATA 144, 144, 199, 6, 91, 4, 144, 144, 233, 51, 0, 208
260 DATA 216, 115, 23, 129, 62, 58, 4, 254, 14, 117, 15, 199
270 DATA 6, 58, 4, 144, 144, 199, 6, 60, 4, 144, 144, 233
280 DATA 24, 0, 208, 216, 115, 41, 129, 62, 19, 4, 254, 14
290 DATA 117, 33, 199, 6, 19, 4, 144, 144, 199, 6, 21, 4
300 DATA 144, 144, 250, 184, 0, 0, 142, 216, 46, 161, 142, 1
310 DATA 163, 64, 0, 46, 161, 144, 1, 163, 66, 0, 251, 31
320 DATA 46, 161, 146, 1, 46, 139, 30, 148, 1, 234, 0, 0
330 DATA 0, 0, 0, 0, 0, 0, 67, 97, 114, 103, 97, 32
340 DATA 97, 104, 111, 114, 97, 32, 101, 108, 32, 67, 79, 78
350 DATA 81, 85, 69, 82, 79, 82, 46, 10, 13, 40, 67, 41
360 DATA 32, 74, 46, 83, 46, 70, 46, 36, 0, 14, 31, 184
370 DATA 16, 53, 205, 33, 137, 30, 142, 1, 140, 6, 144, 1
380 DATA 184, 16, 37, 186, 4, 1, 14, 31, 205, 33, 180, 9
390 DATA 14, 31, 186, 150, 1, 205, 33, 186, 188, 1, 205, 39, -1
|
|
|
