| |
Trucos para Rampart - Trucos y Guias |
-Cargador:
10 REM ---------------
20 REM RAMPART
30 REM ---------------
40 REM
50 N$ = "CARGRAMP": NB = 100: NL = NB / 20: DIM BYTE(NB): A = 10: B = 11: C = 12: D = 13: E = 14: F = 15
60 CLS
70 LOCATE 13, 36: PRINT "ESPERE ..."
80 CP = 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: A1 = ASC(B1$): A2 = ASC(B2$)
130 NIB1 = A1 + 48 * (A1 < 58) + 55 * (A1 > 57): NIB2 = A2 + 48 * (A2 < 58) + 55 * (A2 > 57)
140 BYTE(CP) = NIB1 * 16 + NIB2: CHECKSUM = CHECKSUM + BYTE(CP): CP = CP + 1
150 NEXT W2
160 IF CHECKSUM <> SUMA THEN CLS : PRINT "ERROR EN LINEA DATA "; W1: END
170 NEXT W1
180 CLS
190 PRINT "El fichero CARGRAMP.COM se grabar en disco. PULSA UNA TECLA..."
200 IF INKEY$ = "" THEN 200
210 FOR F = 0 TO NB - 1: COD$ = COD$ + CHR$(BYTE(F)): NEXT
220 OPEN "O", #1, N$ + ".COM", NB
230 PRINT #1, COD$
240 CLOSE 1
250 PRINT "Correcto. Teclea " + N$ + " (Intro) y ejecuta el juego. Conseguir s vida infinita."
260 END
64000 DATA "EB2C90FA1E558BEC8E5E06813E536FFE847513C7", 2511
64001 DATA "06536FEB02C706D271EB022EC7060301EB245D1F", 1852
64002 DATA "FBEA00000000FA1E50535129C98ED9A184008B1E", 2072
64003 DATA "86000E1FA32A01891E2C0129C98ED9C706840003", 1538
64004 DATA "018C0E8600BA2E01595B581FFBCD270000000000", 1316
Volver a Trucos PC
|