9-8 HP IBASIC Supplement
Using Subprograms
Built-In High-Speed Subprograms
Table 9-6 Example Illustrating Use of Built-In Subroutines
# Program Statement Description
10 LOADSUB Read_fdata FROM "XFER:MEM,0,0"
Appends Read_data sub
program to end of this program.
This subprogram can now be
called.
20
(Additional program statements here)30
40
50 REAL Trace_array(1:201)
Reads Channel 1 data into
Trace_array(*).
60 Read_fdata( 1, Trace_array(*))
70 LOADSUB ALL FROM "MATH:MEM,0,0"
Appends all math subprograms
defined in "MATH" to the end of
this program.
80 END
90 SUB Read_fdata(INTEGER Chan,REAL A(*))
Reads real formatted data.
100 SUB Cmplx_mag(REAL Cdata(*),Mag(*),INTEGER Sz)
Mag of complex array.
110 SUB Cmplx_arg(REAL Cdata(*),Arg(*),INTEGER Sz)
Arg of complex array.
120 ...(program continues)
To Next Page
Loading...
