HP E1440A - Page 41

! but always good style.
READ Lseq$,No-of-int
!
FOR 1=1 TO No-of-int
READ Lstart(1) ,Lstop(I) ,Lspac$(I) ,Ltime(I)
NEXT I
!
! To start with, we put instrument into known state.
CLEAR El440
OUTPUT El440
; " *RST ; : STATUS :PRESET ; *CLStl
!
! Setup the list
!
OUTPUT El440 ; I' :LIST : FREQ : START I' ; ! mind the ';'! it suppresses
! the <CR/LF> at the end of
! the output statement.
! also watch the space ' '
! after START
! now output the parameters in a loop
FOR 1=1 TO No-of-int
OUTPUT
E1440;Lstart (I)
;
IF I<No-of-int THEN OUTPUT E1440;","; ! insert ' ,' if not last param.
NEXT I
OUTPUT
El440
; I' ; " ! output ' ; <CR/LF> ' at end of list
I
!
now we do the same as above for stop, spacing and dwell list.
I
OUTPUT El440 ; I' :LIST : FREQ : STOP " ;
FOR I=1 TO No-of-int
OUTPUT E1440;Lstop(I)
;
IF I<No,of -int THEN OUTPUT El44O; ,I1;
NEXT I
OUTPUT El440
; " ; I'
!
OUTPUT El440;":LIST:FREQ:SPAC ";
FOR I=1 TO No-of-int
OUTPUT El44O; Lspac$ (I)
;
IF I<No-of-int THEN OUTPUT E1440;1f,tl;
NEXT I
OUTPUT El440
; " ; "
!
OUTPUT El440 ; " :LIST : DWELL " ;
FOR I=l TO No-of-int
OUTPUT E1440;Ltime(I)
;
IF I<No-of -int THEN OUTPUT El44O; ,I8;
NEXT I
OUTPUT
El440
; " ; "
!
! last but not least the sequence
!
OUTPUT El440 ; " :LIST : SEQ I' ; Lseq$
Using the HP E1440A 3-9
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com