( CASA TC-BaseF.Drl - Spot drilling array for Tub-Cutter Front end
( drills matrix of holes per front 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 2000	( move y 20mm
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 5715
y-305
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 2171
y-1187
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 1000
y 1100
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 3129
y-293
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 2385
y-315
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 500
y 2200
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-2000
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 1500
y 6800
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-230
y-3095
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-2270
y 3095
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-1540
y-2665
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-960
y 2665
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
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
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-2000          ( return to y = 000.00
c 0             ( turn motor current off
g
q