 
  
  
  
  
 
 Previous:  Photometric sequences
 Up:  Appendices
 Next:  Extinction
 Previous Page:  References
 Next Page:  Extinction
 
Adam: PROC BIAS
Proc:> DECLARE X LOCAL
     Proc:> PRINT ``
     Proc:> PRINT ``HOW MANY BIAS RUNS?"
     Proc:> ACCEPT X
     Proc:> DO N = 1 TO X
     Proc:>    RUN 0 ``BIAS"
     Proc:>    PRINT ``"
     Proc:>    PRINT ``COMPLETED BIAS RUN ", N
     Proc:>    PRINT ``"
     Proc:> END DO
     Proc:> END PROC
PROC BIAS
Proc:> DECLARE X LOCAL
     Proc:> PRINT ``
     Proc:> PRINT ``HOW MANY BIAS RUNS?"
     Proc:> ACCEPT X
     Proc:> DO N = 1 TO X
     Proc:>    RUN 0 ``BIAS"
     Proc:>    PRINT ``"
     Proc:>    PRINT ``COMPLETED BIAS RUN ", N
     Proc:>    PRINT ``"
     Proc:> END DO
     Proc:> END PROC
 To run  Adam:
 
Adam: BIAS   and respond to question
BIAS   and respond to question
Adam: PROC F P1
     Proc:> DECLARE P1 CHAR 2
     Proc:> PRINT ``"
     Proc:> FILTER P1
     Proc:> FILTSTATUS
     Proc:> PRINT ``"
     Proc:> END PROC
PROC F P1
     Proc:> DECLARE P1 CHAR 2
     Proc:> PRINT ``"
     Proc:> FILTER P1
     Proc:> FILTSTATUS
     Proc:> PRINT ``"
     Proc:> END PROC
 To run  Adam:
 
Adam: F B   for the B filter, e.g.
F B   for the B filter, e.g.
Adam: PROC R
     Proc:> PRINT ``"
     Proc:> PRINT ``STATUS CHECK ........"
     Proc:> PRINT ``"
     Proc:> RUNSTATUS
     Proc:> PRINT ``"
     Proc:> FILTSTATUS
     Proc:> PRINT ``"
     Proc:> END PROC
PROC R
     Proc:> PRINT ``"
     Proc:> PRINT ``STATUS CHECK ........"
     Proc:> PRINT ``"
     Proc:> RUNSTATUS
     Proc:> PRINT ``"
     Proc:> FILTSTATUS
     Proc:> PRINT ``"
     Proc:> END PROC
 To run  ADAM:> R
ADAM:> R
Adam: PROC MULTEXP
     Proc:> DCL INDEX LOCAL
     Proc:> PRINT ``"
     Proc:> PRINT ``HAVE YOU KEPT THE PREVIOUS EXPOSURE?"
     Proc:> PRINT ``DO YOU WANT TO CONTINUE (Y/N)?"
     Proc:> COMMAND ``Y,N",INDEX
     Proc:> PRINT ``"
     Proc:> IF INDEX = 1
     Proc:>    MULTEXP
     Proc:> END IF
     Proc:> END PROC
PROC MULTEXP
     Proc:> DCL INDEX LOCAL
     Proc:> PRINT ``"
     Proc:> PRINT ``HAVE YOU KEPT THE PREVIOUS EXPOSURE?"
     Proc:> PRINT ``DO YOU WANT TO CONTINUE (Y/N)?"
     Proc:> COMMAND ``Y,N",INDEX
     Proc:> PRINT ``"
     Proc:> IF INDEX = 1
     Proc:>    MULTEXP
     Proc:> END IF
     Proc:> END PROC
 To run  Adam:> MULTEXP   and follow prompts
Adam:> MULTEXP   and follow prompts
Adam: Proc:> PROC P
     Proc:> PRINT
     Proc:> PRINT ``
     Proc:> PRINT ``IMAGE EXAMINATION WITH THE LEXIDATA > > > > > > >
> > > > > > > "
     Proc:> PRINT ``
     Proc:> PHOTOM
     Proc:> END PROC
Proc:> PROC P
     Proc:> PRINT
     Proc:> PRINT ``
     Proc:> PRINT ``IMAGE EXAMINATION WITH THE LEXIDATA > > > > > > >
> > > > > > > "
     Proc:> PRINT ``
     Proc:> PHOTOM
     Proc:> END PROC
 To run  Adam:
Adam: P         and use the controls on the LEXIDATA box
P         and use the controls on the LEXIDATA box