;
;
; PURPOSE: Interactively create a micrograph selection doc file listing
; micrograph numbers.
;
; SOURCE: makefilelist.spi
;
; --------------------- Output files -------------------------------
FR G
[out-file]sel_micrograph
; -------------- END BATCH HEADER ---------------------------------
RR [num]
?Starting file number?
RR [end]
?Ending file number?
[n]= ([end] - [num]) + 1
; If output doc file already exists, delete it
IQ FI [exists]
[out-file]
IF ([exists].EQ.1) THEN
DE
[out-file]
ENDIF
DO LB1 [key] = 1,[n]
SD [key],[num]
[out-file]
[num] = [num] + 1
LB1
EN D
;