100 REMark *--------------------------------------------------------------------
110 REMark * FICHERO:  EspaDato_bas
120 REMark * OBJETIVO: Asignar el espacio de datos de UnZip_exe
130 REMark * AUTOR:    Pedro Reina
140 REMark * FECHA:    S.31.1.1998
150 REMark * NOTA:     Necesita Toolkit II
160 REMark *--------------------------------------------------------------------
170 :
180 REMark Constantes y variables
190 NombreFichero$ = "FLP1_UnZip_exe"
200 LongitudFichero = 60034
210 EspacioDato = 37216
220 Memoria = 0
230 :
240 REMark Pedimos memoria para almacenar el fichero
250 PRINT #0, "Pidiendo memoria..."
260 Memoria = ALCHP (LongitudFichero)
270 :
280 REMark Leemos el fichero
290 PRINT #0, "Leyendo " & NombreFichero$ & "..."
300 LBYTES NombreFichero$, Memoria
310 :
320 REMark Esperamos un poco
330 PAUSE 25
340 :
350 REMark Escribimos el fichero
360 PRINT #0, "Escribiendo " & NombreFichero$ & "..."
370 SEXEC_O NombreFichero$, Memoria, LongitudFichero, EspacioDato
380 :
390 REMark Devolvemos la memoria
400 PRINT #0, "Devolviendo memoria..."
410 RECHP Memoria
420 :
430 REMark Ya estŒ
440 PRINT #0, "Terminado"