home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Emulation / ZXAMSpectrum / ZXAM_Rexx / Español / ZXAMRun.dopus < prev    next >
Text File  |  1995-07-31  |  1KB  |  42 lines
  1. /* Este script carga un snapshot de disco */
  2.  
  3. /* Usado originalmente para arrancar juegos */
  4. /* desde el DirOpus a través de un FileType */
  5.  
  6. /* Necesita el emulador arrancado, a menos que modifiques el script para */
  7. /* que arranque el emulador desde el directorio donde se encuentra */
  8.  
  9. parse arg nombre    /* recoge argumento */
  10.  
  11. /* Usa los conversores internos del emulador */
  12.  
  13.     address command
  14.  
  15.     if ~show(ports,ZXAM_REXX) then do
  16.         requestchoice 'title "ZXAM Script error..." body "No encuentro el puerto del emulador!!" gadgets "AARGH!"'
  17.         exit
  18.         end
  19.  
  20.  
  21. /* Almacenar el estado inicial del emulador */
  22.  
  23.     running=zxamactrun()    /* 1=en marcha */
  24.     zxamstop()              /* lo paramos */
  25.  
  26.  
  27. /* cargar el fichero */
  28.     
  29.     bloque=zxampploadfile(nombre)    /* cargamos TODO el fichero */
  30.     
  31.     formato=zxamparseloaded(bloque)        /* reconoce y carga el fichero */
  32.     
  33.     if formato~='' then do
  34.         zxamnameformat(zxamfilepart(nombre),formato)
  35.         zxamloadpath(zxampathpart(nombre))
  36.         zxamenablereload()
  37.         end
  38.     
  39.     if running=1 then zxamrun()
  40.  
  41.     exit
  42.