Operating instructions

More Complex Programming Examples R&S ESCI
1166.6004.12 7.48 E-1
SelectDevice:
'------------ Select device, printer language and output interface ---------
CALL IBWRT(receiver%,"SYST:COMM:PRIN:SEL "+ Devices(6))'Select printer #6
8 CALL IBWRT(receiver%,"HCOP:DEST 'SYST:COMM:PRIN'") 'Configuration:
'"Output to
'printer interface"
CALL IBWRT(receiver%,"HCOP:DEV:LANG GDI") 'Output language 'GDI'
'----- Select orientation (portrait/landscape) and colour/BW ---------------
CALL IBWRT(receiver%,"HCOP:PAGE:ORI PORTrait") 'Portrait
CALL IBWRT(receiver%,"HCOP:DEV:COL OFF") 'Black and white
'----- Configure and start print out ---------------------------------------
CALL IBWRT (receiver%,"HCOP:ITEM:ALL") 'Select complete screen
'CALL IBWRT (receiver%,"HCOP:ITEM:WIND1:TRAC:STAT ON") 'alternative: only
'CALL IBWRT (receiver%,"HCOP:ITEM:WIND2:TRAC:STAT ON") 'traces in
'screen A/B
CALL IBWRT (receiver%,"*CLS") 'Reset status registers
CALL IBWRT (receiver%,"HCOP:IMMediate;*OPC") 'Start print out
CALL WaitSRQ(boardID%,result%) 'Wait for service request
IF (result% = 1) THEN CALL Srq 'If SRQ is recognized =>
'Subroutine for evaluation
'---- Print out into file in WMF format (BMP format) -----------------------
CALL IBWRT(receiver%,"HCOP:DEST 'MMEM'") 'Configuration:
'"Print to file"
CALL IBWRT(receiver%,"HCOP:DEV:LANG WMF") 'File format WMF
'CALL IBWRT(receiver%,"HCOP:DEV:LANG BMP") 'File format BMP
CALL IBWRT(receiver%,"MMEM:NAME 'D:\USER\DATA\PRINT1.WMF'") 'Determine
'file name
CALL IBWRT (receiver%,"*CLS") 'Reset status registers
CALL IBWRT (receiver%,"HCOP:IMMediate;*OPC") 'Start print out
CALL WaitSRQ(boardID%,result%) 'Wait for service request
IF (result% = 1) THEN CALL Srq 'If SRQ is recognized =>
'Subroutines for evaluation
END SUB
REM
************************************************************************