/* Este script carga un snapshot de disco */

/* Usado originalmente para arrancar juegos */
/* desde el DirOpus a través de un FileType */

/* Necesita el emulador arrancado, a menos que modifiques el script para */
/* que arranque el emulador desde el directorio donde se encuentra */

parse arg nombre    /* recoge argumento */

/* Usa los conversores internos del emulador */

	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


/* Almacenar el estado inicial del emulador */

	running=zxamactrun()	/* 1=en marcha */
	zxamstop()              /* lo paramos */


/* cargar el fichero */
	
	bloque=zxampploadfile(nombre)	/* cargamos TODO el fichero */
	
	formato=zxamparseloaded(bloque)		/* reconoce y carga el fichero */
	
	if formato~='' then do
		zxamnameformat(zxamfilepart(nombre),formato)
		zxamloadpath(zxampathpart(nombre))
		zxamenablereload()
		end
	
	if running=1 then zxamrun()

	exit