home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Emulation / ZXAMSpectrum / ZXAM_Rexx / Español / SaveSCR.zxam < prev    next >
Text File  |  1995-07-31  |  798b  |  30 lines
  1. /* este script salva la pantalla actual de spectrum en formato */
  2. /* .SCR, o sea, los 6912 bytes de pantalla sin conversión */
  3.     
  4.     /* comprobar la presencia del emulador */
  5.     address command
  6.     
  7.     if ~show(ports,ZXAM_REXX) then do
  8.         requestchoice 'title "ZXAM Script error..." body "¡No encuentro el puerto ARexx del emulador!" gadgets "AARGH!"'
  9.         exit
  10.         end
  11.  
  12.     /* requester SAVE */
  13.     oldpath=zxamactsavepath()
  14.     oldpattern=zxamactpattern()
  15.     zxampattern('#?.scr')
  16.     nombre=zxamsaverequester('Nombre para el fichero SCR...')
  17.     zxamsavepath(oldpath)
  18.     zxampattern(oldpattern)
  19.     if nombre='' then exit 0    /* CANCEL */
  20.     
  21.     /* abre fichero */
  22.     if ~open('fichero',nombre,'W') then exit 0
  23.     
  24.     /* escribe los 6912 bytes de la pantalla */
  25.     dummy=writech('fichero',zxamgetmem(16384,6912))
  26.     
  27.     dummy=close('fichero')
  28.     
  29.     exit
  30.