Bobwiner

Truco 1

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

Si conoces algún dato más para el truco Bobwiner, por favor haz click aquí y añade los datos que sepas sobre este truco para poder seguir mejorando y ofreciendo mejores resultados en el mayor buscador de trucos de Internet.