Detective barato (del Libro Gigante de Juegos para Amstrad)

[6128]

Esto ocurre con frecuencia. Archivos subidos al foro como adjuntos que con el paso de los años se corrompen.
La única opción es lo que comenta Rober. Que alguien lo vuelva a subir.

[shamen]

Gracias a todos por el interés, estaba usando el Retro Virtual Machine pero entiendo que llego tarde y el problema ya se ha localizado. A ver si hay suerte y alguen tiene guardado en algún `baúl` el dsk correcto o en cdt. Curiosamente me llega esta semana el libro, que lo tuve de niño y ando un poco `recuperando` recuerdos

[sudoku]

Gracias a todos por el interés, estaba usando el Retro Virtual Machine pero entiendo que llego tarde y el problema ya se ha localizado. A ver si hay suerte y alguen tiene guardado en algún `baúl` el dsk correcto o en cdt. Curiosamente me llega esta semana el libro, que lo tuve de niño y ando un poco `recuperando` recuerdos

Yo también estoy esperando recibirlo. Lo compré hará 2-3 semanas y lo marcaron como enviado ayer ¬¬, aunque no las tengo todas conmigo

[litos.net]

Gracias Hmm, el 7zip me da archivos corruptos. A alguien más le pasa?

¿El que está en https://amstrad.es/doku.php?id=publicac ... ice_libros , tiene algún problema?

[MiguelSky]

No, pero el mensaje que citas es de 2015

[litos.net]

[shamen]

hola!. rescato el asunto, a ver si algún forero que entre lo tiene guardado en algún soporte una pena que se pierda, con el trabajo que debió dar teclarlo.

[shamen]

Up!

[Urusergi]

Hola!

En este hilo shamen lleva un rato pidiendo este archivo y como veo que ningún programador se ha prestado pues me decidí hoy y me puse a ello, y eso que no tengo ni PI de programación.
Según explicó robcfg el tema consiste en meter $0d antes de los $0a pero no en todos los casos y al final salió este engendro en wxbasic:

Código: Seleccionar todo

// 0d0a.wx
//
// 0d0a.exe <sourcefile> <destfile>

source = command(3)
dest = command(4)

if dest ="" then
print"Uso:"
print"0d0a.exe <sourcefile> <destfile>"

else
print"Procesando "; source

outfile = freefile()
open dest for output as #outfile

infile = freefile()
open source for input as #infile

n = 0

while n < lof(infile)

dato = readbyte(infile)
n = n + 1

if n = 21 then
writebyte(outfile,13)
end if

if n = 31 then
writebyte(outfile,13)
end if

if dato = 224 then
writebyte(outfile,dato)
dato = readbyte(infile)
n = n + 1
if dato = 240 then
writebyte(outfile,dato)
dato = readbyte(infile)
n = n + 1
if dato = 10 then
writebyte(outfile,dato)
dato = readbyte(infile)
n = n + 1
end if
end if
end if

if dato = 10 then
dato = readbyte(infile)
n = n + 1

if (dato > 47 and dato < 58) or dato = 26 then
writebyte(outfile,13)
writebyte(outfile,10)
else
writebyte(outfile,10)
end if

end if

writebyte(outfile,dato)

if dato = 107 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 45 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 73 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 110 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 102 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 111 then
writebyte(outfile,13)
end if
end if
end if
end if
end if
end if
wend

Close infile
Close outfile
print "Generado "; dest
end if

Eso si, este programa genera un $0d de más en un caso particular que no he sido capaz de salvar, pero pude eliminarlo manualmente con un editor hexadecimal, y el dsk final ha quedado perfecto

Saludos.

[robcfg]

Muchas gracias!

[Artaburu]

Muchas gracias!

[MiguelSky]

Recovery Sergio ataca de nuevo!

[shamen]

Muchas gracias!. He tenido premio a la constancia

Hola!

En este hilo shamen lleva un rato pidiendo este archivo y como veo que ningún programador se ha prestado pues me decidí hoy y me puse a ello, y eso que no tengo ni PI de programación.
Según explicó robcfg el tema consiste en meter $0d antes de los $0a pero no en todos los casos y al final salió este engendro en wxbasic:

Código: Seleccionar todo

// 0d0a.wx
//
// 0d0a.exe <sourcefile> <destfile>

source = command(3)
dest = command(4)

if dest ="" then
print"Uso:"
print"0d0a.exe <sourcefile> <destfile>"

else
print"Procesando "; source

outfile = freefile()
open dest for output as #outfile

infile = freefile()
open source for input as #infile

n = 0

while n < lof(infile)

dato = readbyte(infile)
n = n + 1

if n = 21 then
writebyte(outfile,13)
end if

if n = 31 then
writebyte(outfile,13)
end if

if dato = 224 then
writebyte(outfile,dato)
dato = readbyte(infile)
n = n + 1
if dato = 240 then
writebyte(outfile,dato)
dato = readbyte(infile)
n = n + 1
if dato = 10 then
writebyte(outfile,dato)
dato = readbyte(infile)
n = n + 1
end if
end if
end if

if dato = 10 then
dato = readbyte(infile)
n = n + 1

if (dato > 47 and dato < 58) or dato = 26 then
writebyte(outfile,13)
writebyte(outfile,10)
else
writebyte(outfile,10)
end if

end if

writebyte(outfile,dato)

if dato = 107 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 45 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 73 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 110 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 102 then
dato = readbyte(infile)
n = n + 1
writebyte(outfile,dato)
if dato = 111 then
writebyte(outfile,13)
end if
end if
end if
end if
end if
end if
wend

Close infile
Close outfile
print "Generado "; dest
end if

Eso si, este programa genera un $0d de más en un caso particular que no he sido capaz de salvar, pero pude eliminarlo manualmente con un editor hexadecimal, y el dsk final ha quedado perfecto

Saludos.

[6128]

En este hilo shamen lleva un rato pidiendo este archivo y como veo que ningún programador se ha prestado pues me decidí hoy y me puse a ello, y eso que no tengo ni PI de programación.

Tengo curiosidad. Todavía no he probado este DSK pero he visto la ficha en Amstrad.es
La pantalla de carga, ¿la has hecho tú o estaba en el programa originalmente?

[Urusergi]

Tengo curiosidad. Todavía no he probado este DSK pero he visto la ficha en Amstrad.es
La pantalla de carga, ¿la has hecho tú o estaba en el programa originalmente?

Yo sólo me he limitado a meter los "&0d" así que debe ser cosa de quién lo subió (adrdesign) por que veo que el original en inglés no la lleva, aunque lo más curioso es que existe una película con ese título y casualmente está protagonizada por Peter Falk

https://es.wikipedia.org/wiki/The_Cheap_Detective