0  BEGIN PGM WARM_UP MM 
1  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+1101 ; NUMBER NC MACRO ON
2  M5
3  * - START ---------------------
4  FN 18: SYSREAD Q1451 = ID1000 NR3515 IDX0
5  FN 18: SYSREAD Q1452 = ID1000 NR3515 IDX1
6  FN 12: IF +Q1452 LT +Q1451 GOTO LBL 1
7  FN 0: Q1451 =+Q1452
8  LBL 1
9  * - ***************************
10 * - Daily procedure -----------
11 Q1453 = Q1451 / 4
12 TOOL CALL  SQ1453
13 M3
14 CYCL DEF 9.0 TEMPO DI SOSTA
15 CYCL DEF 9.1 SOSTA200
16 Q1453 = Q1451 / 2
17 TOOL CALL  SQ1453
18 M3
19 CYCL DEF 9.0 TEMPO DI SOSTA
20 CYCL DEF 9.1 SOSTA200
21 Q1453 = Q1451 * 8 / 10
22 TOOL CALL  SQ1453
23 M3
24 CYCL DEF 9.0 TEMPO DI SOSTA
25 CYCL DEF 9.1 SOSTA200
26 * - ***************************
27 FN 17: SYSWRITE ID 2000 NR10 IDX7385 =+0
28 FN 20: WAIT FOR  SYNC
29 M5
30 FN 16: F-PRINT PLC:\WARM_UP\W_FINISH.A / SCREEN:
31 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
32 END PGM WARM_UP MM