El cargador del juego:
10 ' CARGADOR PARA EL KARNOV
20 ' *** POR JAVIER SANCHEZ FRANSESCH ***
30 CLS:KEY OFF
40 READ C:S=S+C:IF C=-1 THEN 70
50 C$=C$+CHR$(C)
60 GOTO 40
70 IF S<>17225 THEN PRINT "ERROR EN LOS DATAS!":END
80 PRINT " INTRODUCE EL DISCO DONDE QUIERAS GRABAR EL CARGADOR Y PULSA
UNA TECLA"
90 IF INKEY$="" THEN 90
100 OPEN "ckarnov.com" FOR OUTPUT AS #1
110 PRINT #1,C$
120 CLOSE 1
130 PRINT:PRINT "CREADO EL FICHERO CKARNOV.COM, EJECUTALO Y SIGUE LAS
INSTRUCCIONES PARA JUGAR CON VIDAS INFINITAS."
140 END
150 DATA 14, 31, 184, 0, 0, 142, 192, 190, 123, 1, 191, 0
160 DATA 5, 252, 185, 128, 0, 243, 165, 6, 31, 184, 16, 53
170 DATA 205, 33, 137, 30, 73, 5, 140, 6, 75, 5, 186, 0
180 DATA 5, 184, 16, 37, 205, 33, 180, 9, 14, 31, 186, 57
190 DATA 1, 205, 33, 180, 8, 205, 33, 205, 25, 73, 110, 116
200 DATA 114, 111, 100, 117, 99, 101, 32, 101, 108, 32, 100, 105
210 DATA 115, 99, 111, 32, 101, 110, 32, 108, 97, 32, 117, 110
220 DATA 105, 100, 97, 100, 32, 65, 58, 32, 121, 32, 112, 117
230 DATA 108, 115, 97, 32, 117, 110, 97, 32, 116, 101, 99, 108
240 DATA 97, 46, 10, 13, 40, 67, 41, 32, 74, 46, 83, 46
250 DATA 70, 46, 36, 130, 252, 2, 117, 67, 46, 163, 77, 5
260 DATA 46, 137, 30, 79, 5, 88, 91, 83, 80, 30, 142, 219
270 DATA 129, 62, 105, 28, 255, 14, 117, 33, 199, 6, 105, 28
280 DATA 144, 144, 199, 6, 107, 28, 144, 144, 250, 184, 0, 0
290 DATA 142, 216, 46, 161, 73, 5, 163, 64, 0, 46, 161, 75
300 DATA 5, 163, 66, 0, 251, 31, 46, 161, 77, 5, 46, 139
310 DATA 30, 79, 5, 234, -1
|
|
|
