SUB hp3458getntv (n%, v!())

'Generate test data
FOR i% = 0 TO n% - 1
 v!(i%) = 1!
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 hp3458setpar (gpibinP%, gpiboutP%, hp3458addrP$)
END SUB

SUB hp3458startntv (n%, t!)

'Dummy routine

END SUB