Program LC334A;

const LC334A = 4;   // Assign address 4 to scope
      Time_Out=50;

VAR answer:string;
    
begin
    ezgpib_screenclear;                  	// Clear output console screen
    ezgpib_FileClearBuffer;			//Clear The Filebuffer
    ezgpib_BusWriteData(LC334A, 'TA:WAVEFORM?');  // give command to scope to read waveform
//  ezgpib_BusWriteData(LC334A, 'C1:WAVEFORM?');  // another possible command 
//  ezgpib_BusWriteData(LC334A, 'INSPECT? "SIMPLE"');   // another possible command 
    ezgpib_BusWaitForDataBlock(LC334A,answer,Time_Out); // Prepare to read data block into file buffer
    ezgpib_FileAddToBuffer(answer); 	// add block to buffer
    ezgpib_FileWrite('C:\DataFiles\');  // write waveform to file
    ezgpib_BusIFC;			// clears bus interface, so address is freed up
  end.