0 BEGIN PGM 8090-en MM 
1 ;Program for determining coordinate
2 ;points.
3 ;
4 BLK FORM 0.1 Z  X+0  Y+0  Z-20
5 BLK FORM 0.2  X+100  Y+100  Z+0
6 ;
7 ;Write BeginPGM into the log
8 FN 16: F-PRINT TNC:\Database\BeginPGM.A / surface_data.txt
9 ;
10 ;Tool call: touch probe
11 TOOL CALL 32 Z
12 ;
13 ;Pre-position
14 FN 0: Q1 =+0 ;STARTING COORDINATE IN X FOR PRE-POSITIONING
15 FN 0: Q2 =+0.5 ;STARTING COORDINATE IN Y
16 LBL 1
17 FN 1: Q1 =+Q1 + +5 ;New value in X=current value+step
18 TCH PROBE 0.0 REF. PLANE Q3 Z-
19 TCH PROBE 0.1  X+Q1  Y+Q2  Z+5
20 ;
21 ;Write values into the log
22 FN 16: F-PRINT TNC:\Database\measure.A / surface_data.txt
23 CALL LBL 1 REP18 ;18 repetitions, last coordinate is X+95
24 FN 1: Q2 =+Q2 + +1 ;Step in Y
25 LBL 2
26 TCH PROBE 0.0 REF. PLANE Q3 Z-
27 TCH PROBE 0.1  X+Q1  Y+Q2  Z+5
28 ;
29 ;Write values into the log
30 FN 16: F-PRINT TNC:\Database\measure.A / surface_data.txt
31 FN 2: Q1 =+Q1 - +5 ;Step in X
32 CALL LBL 2 REP18 ;18 repetitions, last coordinate is X+5
33 FN 1: Q2 =+Q2 + +1 ;Step in Y
34 CALL LBL 1 REP49 ;49 repetitions, last row is Y+99.5
35 ;
36 ;Write EndPGM into the log
37 FN 16: F-PRINT TNC:\Database\ENDPGM.A / surface_data.txt
38 ;
39 ;End of program
40 L  Z+100 R0 FMAX M30
41 END PGM 8090-en MM