Chauffe avec départ programmée

[Rémi39]

Bonjour à tous, je suis nouveau sur le forum et souhaite faire partager ce programme que j'ai créé pour lancer une chauffe à l'avance.
Il peut aussi être modifier pour lancer un programme simple. Bien sur il est loin d'être au top mais fonctionne.
MAlgré tout je suis à l'écoute de vos remarques pour améliorer celui-ci (première fois que j'utilise le paramétré)

0 BEGIN PGM CHAUFFE PROGRAMMEE MM
1 * - NE REMPLIR QUE Q1,Q2,Q3 ET Q4
2 * - HEURE EN HEURE,DIXIEME
3 * - LUNDI=1
4 * - MARDI=2
5 * - MERCREDI=3
6 * - JEUDI=4
7 * - VENDREDI=5
8 * - SAMEDI=6
9 * - DIMANCHE=7
10 * - Q1:JOUR ACTUEL
11 * - Q2:HEURE ACTUEL
12 * - Q3:JOUR DE DEMARRAGE CHAUFFE
13 * - Q4:HEURE DE DEMARRAGE CHAUFFE
14 Q1 = 3
15 Q2 = 15
16 Q3 = 3
17 Q4 = 15.001
18 L
19 L
20 L
21 L
22 L
23 L
24 FN 11: IF +Q1 GT +Q3 GOTO LBL 1
25 Q5 = Q3 - Q1
26 LBL 2
27 Q6 = Q5 - 1
28 Q7 = ( 24 - Q2 ) + Q4
29 Q8 = ( Q6 * 24 ) + Q7
30 Q9 = Q8 * 3600
31 CYCL DEF 9.0 TEMPORISATION
32 CYCL DEF 9.1 TEMP.Q9
33 LBL 0
34 CALL LBL 100
35 L M2
36 LBL 1
37 Q11 = Q3 + 7
38 Q5 = Q11 - Q1
39 FN 9: IF +1 EQU +1 GOTO LBL 2
40 LBL 0
41 LBL 100
42 TOOL CALL Z S1000
43 L M3
44 CYCL DEF 9.0 TEMPORISATION
45 CYCL DEF 9.1 TEMP.2
46 L Z-1 R0 FMAX M91
47 L X-1 Y-1 R0 FMAX M91
48 LBL 101
49 TOOL CALL Z S5000
50 L C+0 B+0 R0 FMAX M94
51 L IC-720 R0 F1500
52 L C+0 R0 FMAX M94
53 L IX-400 R0 F2000
54 L IY-400
55 L X-1 R0 FMAX M91
56 L Y-1 R0 FMAX M91
57 L IX-400 R0 FMAX
58 L IZ-10 R0 FMAX
59 L Z-1 R0 FMAX M91
60 L IZ-10 R0 FMAX
61 L Z-1 R0 FMAX M91
62 L IZ-10 R0 FMAX
63 L Z-1 R0 FMAX M91
64 L X-1 R0 FMAX M91
65 L C+0 B+180 R0 F1200
66 L IC+360
67 L IC-360
68 L C+0 B+0 R0 FMAX M94
69 L IX-400 R0 FMAX
70 L IZ-10 R0 FMAX
71 L IZ+10 R0 FMAX
72 L IY-400 R0 FMAX
73 L IZ-10 R0 FMAX
74 L IZ+10 R0 FMAX
75 L X-20 R0 FMAX M91
76 L IZ-10 R0 FMAX
77 L IX+10 R0
78 L IX-20
79 L IX+10
80 L IY+10
81 L IY-10
82 L Z-1 R0 FMAX M91
83 L X-1 R0 FMAX M91
84 L Y-1 R0 FMAX M91
85 CALL LBL 101 REP5000
86 LBL 0
87 LBL 0
88 END PGM CHAUFFE PROGRAMMEE MM