100  REM
110  REM  3480D/3484A SUBSYSTEM RTE-B VERIFICATION TEST 
120  REM  LISTING: A-09601-18017-2
130  REM  ERS:     A-09601-18017-1
140  REM  SOURCE:    09601-18017
150  REM
160  REM  M. SCHOENDORF 
170  REM
180  PRINT  
190  PRINT "3480D/3484A SUBSYSTEM VERIFICATION" 
200  PRINT  
210  PRINT "CONNECT DC VOLTAGE SUPPLY SET AT" 
220  PRINT "2 VOLTS TO INPUT OF 3484A"
230  PRINT  
240  PRINT "CHECK MEASUREMENT SETUP CALL" 
250  PRINT  
260  PRINT "ENTER TRIGGER SOURCE (0=DSI CARD, 1=EXTERNAL PACER)"
270  PRINT "AND DMA TRANSFER (0=NO, 1=YES)" 
290  PRINT  
300  INPUT T,D
310  REM FUNCTION SET TO DC, RANGE 10 VOLTS AND FILTER OUT
320  DVMSU(1,10,0,T,D)
330  PRINT  
340  PRINT "CHECK MEASUREMENT CALL" 
350  PRINT  
360  PRINT "ENTER NUMBER OF READINGS DESIRED (1-10)"
370  PRINT  
380  INPUT N
390  DVMMV(N,A[1])
400  FOR X=1 TO N 
410  PRINT "DC VOLTAGE =";A[X]
430  NEXT X 
440  END  
                                                                                              