BOB WINNER

10 ' ----------------------------------------------
20 ' Cargador de BOB WINNER por Jesus Perez Sicilia
30 ' ----------------------------------------------
40 '
50 NB = 80: NL = NB / 20: A=10: B=11: C=12: D=13: E=14: F=15
60 COLOR 6, 0, 0: CLS
70 LOCATE 13, 36: PRINT "ESPERE ..."
80 DIR = 0: DEF SEG = &H9000: OFFSET = 0
90 FOR W1 = 1 TO NL
100 CHECKSUM = 0: Z = 1: READ L$, SUMA
110 FOR W2 = 1 TO 39 STEP 2
120 B1$ = MID$ (L$,Z,1): B2$ = MID$ (L$,Z+1,1): Z = Z + 2
130 A1 = ASC(B1$): A2 = ASC(B2$)
140 NIB1 = A1+48*(A1<58)+55*(A1>57): NIB2 = A2+48*(A2<58)+55*(A2>57)
150 BYTE = NIB1 * 16 + NIB2: CHECKSUM = CHECKSUM + BYTE: POKE DIR, BYTE: DIR = DIR + 1
160 NEXT W2
170 IF CHECKSUM <> SUMA THEN CLS: LOCATE 12, 29: PRINT "ERROR EN LINEA DATA "; W1: LOCATE
22, 1: STOP
180 NEXT W1
190 CLS: LIN = 9
200 D11 = &H11: D12 = &H12: D13 = &H17: D21 = &H27: D22 = &H28: D23 = &H2D
220 B11 = &HA2: B12 = &H93: B13 = &H38
230 B21 = &HA2: B22 = &H94: B23 = &H38
240 LOCATE 1, 25: COLOR 7: PRINT "Cargador B O B W I N N E R": COLOR 6
250 LOCATE 3, 21: COLOR 2: PRINT "(C) Jesus Perez Sicilia Cordoba 1989": COLOR 6
270 LOCATE 11, 19: PRINT "¨ Vidas infinitas (s/n) ? ............ S"
280 LOCATE 13, 19: PRINT "¨ Inmunidad (s/n) ? .................. S"
290 GOSUB 440
320 IF X$ = "N" OR X$ = "n" THEN Y$ = "N" ELSE B11 = &H90: B12 = &H90: B13 = &H90: Y$ = "S"
330 GOSUB 460: GOSUB 440
331 IF X$ = "N" OR X$ = "n" THEN Y$ = "N" ELSE B21 = &H90: B22 = &H90: B23 = &H90: Y$ = "S"
350 GOSUB 460
360 LOCATE 20, 23: COLOR 0,3: PRINT " Pulsa <Intro> si es correcto ": COLOR 6,0: X$ = INPUT$(1): IF X$ <>
CHR$(13) THEN 190
370 POKE D11,B11: POKE D12,B12: POKE D13,B13
380 POKE D21,B21: POKE D22,B22: POKE D23,B23
400 CLS: LOCATE 12, 1: PRINT "Introduce el disco de BOB WINNER en la unidad A: y pulsa una tecla...": X$ =
INPUT$(1)
410 CALL OFFSET
420 PRINT: PRINT: PRINT: PRINT "La modificaci¢n est efectuada. Ejecuta el juego normalmente ...": PRINT:
PRINT
430 SYSTEM
440 LIN = LIN + 2: Y$ = "s": LOCATE LIN, 60: COLOR 4: PRINT CHR$(17): COLOR 6: X$ = INPUT$(1)
450 RETURN
460 LOCATE LIN, 58: PRINT Y$;" "
470 RETURN
500 '
64000 DATA "551E8CC88ED8BA990252E82800C7066D019090C6", 2309
64001 DATA "066F01905AE82000BA990252E81200C706880190", 1775
64002 DATA "90C6068A01905AE80A001F5DCBE80B00CD259DC3", 2127
64003 DATA "E80400CD269DC3B800918ED828C0B9010029DBC3", 2391