Programming instructions

Downloading and Using Files
ARB Waveform Data Downloads
Chapter 4158
Waveform Downloading Using HP BASIC for UNIX The following program shows you
how to download waveforms using HP BASIC for UNIX. The code is similar to that shown for
HP BASIC for Windows but there is a formatting difference in line 45 and line 50.
As discussed at the beginning of this section, I and Q waveform data is interleaved into one
file in 2’s compliment form and a marker file is associated with this IQ waveform file.
In the Output commands, USING “#,K” formats the data. The pound symbol (#) suppresses
the automatic EOL (End of Line) output. This allows multiple output commands to be
concatenated as if they were a single output. The “K” instructs HP BASIC to output the
following numbers or strings in the default format.
10 ! RE-SAVE "UNIX_file"
20 Num_points=200
30 ALLOCATE INTEGER Int_array(1:Num_points*2)
40 DEG
50 FOR I=1 TO Num_points*2 STEP 2
60 Int_array(I)=INT(32767*(SIN(I*360/Num_points)))
70 NEXT I
80 FOR I=2 TO Num_points*2 STEP 2
90 Int_array(I)=INT(32767*(COS(I*360/Num_points)))
100 NEXT I
110 PRINT "Data generated "
120 Nbytes=4*Num_points
130 ASSIGN @Esg TO 719;FORMAT ON
140 ASSIGN @Esgb TO 719;FORMAT OFF
150 Nbytes$=VAL$(Nbytes)
160 Ndigits=LEN(Nbytes$)
170 Ndigits$=VAL$(Ndigits)
180 WAIT 1
190 OUTPUT @Esg USING "#,K";"MMEM:DATA ""WFM1:data_file"",#"
200 OUTPUT @Esg USING "#,K";Ndigits$
210 OUTPUT @Esg USING "#,K";Nbytes$
220 WAIT 1
230 OUTPUT @Esgb;Int_array(*)
240 WAIT 2
241 OUTPUT @Esg;END
250 ASSIGN @Esg TO *
260 ASSIGN @Esgb TO *
270 PRINT
280 PRINT "*END*"
290 END