Agilent 33120A User's Guide

Chapter 6 Application ProgramsUsing the Low-Level Commands. . . continuedInfo1$ = "AM:INT:FUNC SIN" ’ Modulating waveshape is sine waveLength1% = LEN(Info1$)CALL IOOUTPUTS(Dev&, Info1$, Length1%)IF PCIB.ERR NOERR THEN ERROR PCIB.BASERRInfo1$ = "AM:INT:FREQ 200" ’ Modulating frequency is 200 HzLength1% = LEN(Info1$)CALL IOOUTPUTS(Dev&, Info1$, Length1%)IF PCIB.ERR NOERR THEN ERROR PCIB.BASERRInfo1$ = "AM:DEPT 80" ’ Modulating depth is 80%Length1% = LEN(Info1$)CALL IOOUTPUTS(Dev&, Info1$, Length1%)IF PCIB.ERR NOERR THEN ERROR PCIB.BASERRInfo1$ = "AM:STAT ON" ’ Turn AM modulation onLength1% = LEN(Info1$)CALL IOOUTPUTS(Dev&, Info1$, Length1%)IF PCIB.ERR NOERR THEN ERROR PCIB.BASERRInfo1$ = "*SAV 1" ’ Store state in memory location 1Length1% = LEN(Info1$)CALL IOOUTPUTS(Dev&, Info1$, Length1%)IF PCIB.ERR NOERR THEN ERROR PCIB.BASERR’’ Use the "*RCL 1" command to recall the stored state’ENDEnd of Program 2254