Bobwiner

Aquí tienes el cargador del juego:

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 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 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 esta 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