Create selection file listing micrographs

; Create selection file listing micrographs

;
; 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
;