!*******************************************************************
! Id target-psw-xxx_xx.pako, v0.2 , Thu May 11 10:07:42 CEST 2006 , SL Exp$
!
!
!*******************************************************************
! Usage: @target-psw-xxx_xx number_of_loop
!
! Purpose: Carry out POSITION SWITCH on the target source
!
! Parameters: number_of_loop: Number of loops of the form:
!                             cal cold, start, start
! Variables: off1, off2:   reference position (here: (600,600) arcsec, in 
!                           basis coordinate system)
!                          (can be changed by editing the procedure below)
!             your-source: source name, has to be edited in procedure below
! 
! Sequence: Cal cold, the sky part of the calibration is performed
!                 at the reference position
!           start position switch with 12 subscans 
!                 each subscan has 30 sec duration 
!                 symmetric mode (off-on-on-off)
!                       -> number of subscans has to be multiple of 4  
!           start position switch 
!
! *****************************************************************
!
@backends-xxx_xx               ! set backends
!
define integer numberLoops
define integer numberSubscans

let numberLoops = &1
let numberSubscans = 12          ! Default is 12.

!
SET angleUnit arcsec

!
define real off1 off2
let off1 = 600.       ! reference position for off-source measure
let off2 = 600.       ! Be sure there is no emission line...


! Position Switching
!
OFFSET /CLEAR
for i 1 to numberLoops
    CALIBRATE /default
    START

    SWTOTAL
    ONOFF 0. 0. /NSUBSCANS numberSubscans /REFERENCE off1 off2 /TSUBSCAN 30. 
    START
    START
next

!! All the XML command files will be put in the queue.