home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 6
/
AACD06.ISO
/
AACD
/
Emulation
/
ZXAMSpectrum
/
ZXAM_Rexx
/
Español
/
SaveROM.zxam
< prev
next >
Wrap
Text File
|
1995-07-31
|
751b
|
29 lines
/* este script saca la ROM del emulador y la graba como fichero */
/* comprobamos si el emulador está presente */
address command
if ~show(ports,ZXAM_REXX) then do
requestchoice 'title "ZXAM Script error..." body "No encuentro el puerto del emulador!!" gadgets "AARGH!"'
exit
end
/* requester de SAVE */
oldpath=zxamactsavepath()
oldpattern=zxamactpattern()
zxampattern('#?')
nombre=zxamsaverequester('Nombre para el fichero de ROM...')
zxamsavepath(oldpath)
zxampattern(oldpattern)
if nombre='' then exit 0 /* pulsado el CANCEL */
/* abrimos el fichero */
if ~open('fichero',nombre,'W') then exit 0
/* escribimos los 16k de ROM al fichero */
dummy=writech('fichero',zxamgetmem(0,16384))
dummy=close('fichero')
exit