100 REMark Must have the location of the file as default directory
110 :
120 DATA_USE ram2_
130 :
140 REMark data_use flp2_ (if .sfx on flp2_)
150 REMark data_use win1_infozip_ (if .sfx in win1_infozip)
160 :
170 REMark the file name *MUST* match the original in regard to case and '.' or '_'
180 fnam$ = 'ram2_unz532xQ.sfx'
190 nl = FLEN(\fnam$)
200 a = ALCHP(nl)
210 LBYTES fnam$,a
220 IF PEEK_L(a+nl-8) = HEX("58546363") THEN
230  dspac = PEEK_L(a+nl-4)
240  SEXEC_O fnam$,a,nl,dspac
250  RECHP a
260  EX fnam$
270 ELSE
280  PRINT "No Magic number"
290 END IF

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.