-Cargador:
10 ' ----------------------------------------------------------------------
20 ' Cargador de MONTY PYTHON'S FLYING CIRCUS -EGA
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 = 7
200 D1 = &H11: D21 = &H21: D22 = &H22: D23 = &H27: D24 = &H28
210 B1 = 2
220 B21 = &HFE: B22 = &HE: B23 = &H15: B24 = &H29
240 LOCATE 1, 15: COLOR 7: PRINT "Cargador MONTY PYTHON'S FLYING CIRCUS - E G A -": COLOR 6
250 LOCATE 3, 21: COLOR 2: PRINT "(C) JESUS PEREZ SICILIA C˘rdoba 1991": COLOR 6
260 LOCATE 9, 19: PRINT "¨ Elegir n§ vidas iniciales (s/n) ? .. N"
270 LOCATE 11, 19: PRINT "¨ Vidas infinitas (s/n) ? ............ S"
290 GOSUB 440
300 IF X$ = "S" OR X$ = "s" THEN GOSUB 480: B1 = NGE ELSE Y$="N"
310 GOSUB 460: GOSUB 440
320 IF X$ = "N" OR X$ = "n" THEN Y$ = "N" ELSE B21 = &H90: B22 = &H90: B23 = &H90: B24 = &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 D1,B1
380 POKE D21,B21: POKE D22,B22: POKE D23,B23: POKE D24,B24
400 CLS: LOCATE 12, 1: PRINT "Introduce el disco 1 de MONTY en la unidad A: y pulsa una tecla...": X$ = INPUT$(1)
410 CALL OFFSET
420 PRINT: PRINT: PRINT: PRINT "El juego ya est modificado. Para jugar teclea 'PEGA' y pulsa <INTRO> ...": 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
480 Y$ = "S": GOSUB 460: LOCATE LIN, 63: PRINT "N§ (1-9): ": LOCATE LIN, 75: INPUT NGE: IF NGE < 1 OR NGE > 9 THEN 480
490 RETURN
500 '
64000 DATA "551E8CC88ED8BAD30052E82300C606C300035AE8", 2283
64001 DATA "2100BAB20052E81300C70611010000C706130100", 1178
64002 DATA "005AE80A001F5DCBE80B00CD259DC3E80400CD26", 1975
64003 DATA "9DC3B800928ED828C0B9010029DBC30000000000", 1913
10 ' ----------------------------------------------------------------------
20 ' Cargador de MONTY PYTHON'S FLYING CIRCUS -CGA
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 = 7
200 D1 = &H11: D21 = &H21: D22 = &H22: D23 = &H27: D24 = &H28
210 B1 = 2
220 B21 = &HFE: B22 = &HE: B23 = &HB: B24 = &H28
240 LOCATE 1, 15: COLOR 7: PRINT "Cargador MONTY PYTHON'S FLYING CIRCUS - C G A -": COLOR 6
250 LOCATE 3, 21: COLOR 2: PRINT "(C) JESUS PEREZ SICILIA C˘rdoba 1991": COLOR 6
260 LOCATE 9, 19: PRINT "¨ Elegir n§ vidas iniciales (s/n) ? .. N"
270 LOCATE 11, 19: PRINT "¨ Vidas infinitas (s/n) ? ............ S"
290 GOSUB 440
300 IF X$ = "S" OR X$ = "s" THEN GOSUB 480: B1 = NGE ELSE Y$="N"
310 GOSUB 460: GOSUB 440
320 IF X$ = "N" OR X$ = "n" THEN Y$ = "N" ELSE B21 = &H90: B22 = &H90: B23 = &H90: B24 = &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 D1,B1
380 POKE D21,B21: POKE D22,B22: POKE D23,B23: POKE D24,B24
400 CLS: LOCATE 12, 1: PRINT "Introduce el disco 1 de MONTY en la unidad A: y pulsa una tecla...": X$ = INPUT$(1)
410 CALL OFFSET
420 PRINT: PRINT: PRINT: PRINT "El juego ya est modificado. Para jugar teclea 'PCGA' y pulsa <INTRO> ...": 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
480 Y$ = "S": GOSUB 460: LOCATE LIN, 63: PRINT "N§ (1-9): ": LOCATE LIN, 75: INPUT NGE: IF NGE < 1 OR NGE > 9 THEN 480
490 RETURN
500 '
64000 DATA "551E8CC88ED8BA820152E82300C6060E01035AE8", 2023
64001 DATA "2100BA620152E81300C70664000000C706660000", 1263
64002 DATA "005AE80A001F5DCBE80B00CD259DC3E80400CD26", 1975
64003 DATA "9DC3B800928ED828C0B9010029DBC30000000000", 1913
Volver a Trucos PC