SUB hp3458getntv (n%, v!())

'Generate test data
FOR i% = 1 TO n%
 v!(i%) = i% / n% + RND
NEXT i%

END SUB

SUB hp3458init

'****************************************************************************
'This is a dummy routine for testing.
'
'Zack Wolf
'11/23/94
'****************************************************************************

'Display a message
PRINT
PRINT "Resetting the HP3458 routine"

END SUB

SUB hp3458startntv (n%, t!)

'Dummy routine

END SUB