100 REMark *--------------------------------------------------------------------
110 REMark * FILE:   DataSpac_bas
120 REMark * GOAL:   To assign the dataspace of UnZip_exe
130 REMark * AUTHOR: Pedro Reina
140 REMark * DATE:   S.31.1.1998
150 REMark * NOTE:   Toolkit II required
160 REMark *--------------------------------------------------------------------
170 :
180 REMark Constants and variables
190 FileName$ = "FLP1_UnZip_exe"
200 FileSize = 60034
210 Dataspace = 37216
220 Memory = 0
230 :
240 REMark We ask for memory to hold the file
250 PRINT #0, "Asking for memory..."
260 Memory = ALCHP (FileSize)
270 :
280 REMark We read the file
290 PRINT #0, "Reading " & FileName$ & "..."
300 LBYTES FileName$, Memory
310 :
320 REMark We wait a little
330 PAUSE 25
340 :
350 REMark We write the file
360 PRINT #0, "Writing " & FileName$ & "..."
370 SEXEC_O FileName$, Memory, FileSize, Dataspace
380 :
390 REMark We free the memory
400 PRINT #0, "Freeing memory..."
410 RECHP Memory
420 :
430 REMark It's finished
440 PRINT #0, "Done"