( CASA TC-BaseR.Drl - Spot drilling array for Tub-Cutter REAR end
( drills matrix of holes per REAR 1/2 detail of the base plate drawing 
( .
( Install 4.0 mm centre drill
( Set start reference 0:0 corner 
( Spindle speed set to 2500~3000rpm
( 80% Kero+ 20% RTD used as cutting lubricant
( .
clr		( clear all existing programs/commands
p		( begin programme
m 1		( set motor to FULL step mode
t 200		( set start speed to 200 steps/sec
max 400	( set MAXimum motor speed to steps per sec. i.e. 400 steps/sec
a 500		( set acceleration to 500 steps/sec/sec
de 500      ( set deceleration to 1500 steps/sec/sec
k 50        ( sets step constant to 50
x 600		( move x 6mm
y 1000	( move y 10mm
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x 1900
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x 2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x 2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x 2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x 2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
y 9000
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-1900
y-1000
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-3480
y-2100
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x 3500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-6980
y-400
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
y-3000
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
y-2500
s 4 0           ( BDC switch OPEN
s 4 1           ( check that the TDC switch is closed
o 1 1           ( mist lubrication on
s 4 0           ( BDC switch OPEN
o 1 0           ( mist lubrication off
x-600		    ( return to x = 000.00 	
y-1000          ( return to y = 000.00
c 0             ( turn motor current off
g
q