0  BEGIN PGM 8130-DE MM 
1  ;Werkstueckzaehler.
2  ;Am Programmanfang definieren Sie die Anzahl
3  ;der gewünschten Wiederholungen.
4  ;Beim Programmstart wird die Anzahl der
5  ;bisherigen Durchlaeufe auf dem Bildschirm
6  ;angezeigt. Wenn die programmierte Anzahl
7  ;erreicht ist wird auch dies gemeldet,
8  ;und der Zähler wird auf Null zurückgesetzt.
9  ;
10 ;
11 ;Eingabe der gewünschten Wiederholungen
12 QR2 = 8 ;ANZAHL DER WIEDERHOLUNGEN
13 ;
14 ;Anzahl der bisherigen Wiederholungen anzeigen
15 FN 16: F-PRINT TNC:\Database\81301-de.a / Screen:
16 ;
17 QR1 = QR1 + 1 ;Zaehler weiter takten
18 ;
19 ;
20 ;Durchlauf der gewuenschten Bearbeitung
21 ;evtl. mit PGM CALL, dann darf im gerufenen
22 ;Programm kein M2 oder M30 stehen.
23 CALL PGM TNC:\Database\81303-de.h
24 STOP
25 ;
26 ;
27 ;Vergleich ob die Anzahl der Wiederholungen
28 ;erreicht ist.
29 FN 12: IF +QR1 LT +QR2 GOTO LBL 99
30 ;Anzeige, dass die Anzahl der Wiederholungen
31 ;erreicht ist.
32 FN 16: F-PRINT TNC:\Database\81302-de.a / Screen:
33 ;
34 QR1 = 0 ;Ruecksetzen des Zaehlers
35 QR2 = 0 ;Ruecksetzen der gewünschten Wiederholungen
36 ;
37 ;Programmende
38 M30
39 ;
40 ;Sprungmarke, wenn weitere Wiederholungen
41 ;noetig sind
42 LBL 99
43 ;Programmende
44 M30
45 END PGM 8130-DE MM