En el foro de MRC, Bifi escribio esta solucion:
10 OPEN "program" AS #1 LEN=1: FIELD #1,1 AS A$
20 GET #1,1: IF A$<>CHR$(254) THEN CLOSE #1: PRINT "No binary": STOP
30 GET #1: B$=A$: GET #1: IAD=ASC("&h"+A$)*256+ASC("&h"+B$)
40 PRINT "Start: "; RIGHT$("0000"+HEX$(AD),4)
50 GET #1: B$=A$: GET #1: FAD=ASC("&h"+A$)*256+ASC("&h"+B$)
60 PRINT "End: "; RIGHT$("0000"+HEX$(AD),4)
70 GET #1: B$=A$: GET #1: EAD=ASC("&h"+A$)*256+ASC("&h"+B$)
80 PRINT "Exec: "; RIGHT$("0000"+HEX$(AD),4)
90 CLOSE #1: END
solo tendrias que añadir la linea:
90 CLOSE #1:BLOAD "CAS:NOMBRE",IAD,FAD,EAD
Rafa <rafajm(_en_)supercable(_punto_)es> wrote:
Hola, pues que estoy interesado en pasar un programa de disco a
cinta, y hace bastante tiempo tenia un programita que automaticamente,
diciendole cual era el fichero ejecutable en el disco, te daba las
direcciones que necesitaba para grabarlo a cinta usando Bsave"cas:....., y
ahora lo estoy buscando como loco y no doy con el, si a alguien le suena
algo asi y lo tiene me haria un gran favor mandandomelo, o si recuerda la
forma de obtener esas direccones de otra forma, le estaria muy agradecido.
Saludos y gracias.
*HispaMSX. La mailing-list de MSX en castellano*
Para cualquier duda: hispamsx-owner(_en_)yahoogroups(_punto_)com
Web de lista: http://www.hispamsx.org
Patrocinio de Yahoo! Grupos
---------------------------------
Enlaces a Yahoo! Grupos
Para visitar tu grupo en la web, accede a :
http://es.groups.yahoo.com/group/hispamsx/
Para cancelar tu suscripción a este grupo, envía un mensaje a:
hispamsx-unsubscribe(_en_)yahoogroups(_punto_)com
El uso que hagas de Yahoo! Grupos está sujeto a las Condiciones del servicio
de Yahoo!.
---------------------------------
[Se han eliminado los trozos de este mensaje que no contenían texto]
