0  BEGIN PGM 8125-nl MM 
1  ;Werkstukteller
2  ;In dit programma wordt het aantal
3  ;gemaakte werkstukken in een tabel
4  ;opgeslagen, zodat de waarde ook
5  ;na het afsluiten blijft behouden.
6  ;Tijdens de programmastart moet in
7  ;de tabel regel 0 / kolom Q1 de
8  ;waarde 1 ingevoerd zijn.
9  ;Aan het begin van het programma
10 ;voert u het aantal gewenste
11 ;herhalingen in. Als het programma
12 ;wordt gestart, wordt het aantal
13 ;runs tot dan toe op het beeldscherm
14 ;weergegeven.
15 ;Als het aantal geprogrammeerde
16 ;herhalingen is bereikt, wordt dit
17 ;ook op het scherm weergegeven en
18 ;vervolgens wordt de waarde in de
19 ;tabel op 1 teruggezet.
20 ;
21 ;
22 ;Invoer van de gewenste herhalingen
23 Q10 = 8 ;AANTAL HERHALINGEN
24 ;
25 ;Openen van de tabel
26 FN 26: TABOPEN 81251-nl.tab
27 ;Actuele waarde uit de tabel lezen
28 FN 28: TABREAD Q1 =0 /"Q1"
29 ;
30 FN 0: Q2 =+Q1 ;Waarde kopiren
31 Q5 = Q1 - 1 ;Aantal tot nu toe berekenen
32 ;
33 ;Aantal herhalingen dat tot nu toe is uitgevoerd weergeven
34 FN 16: F-PRINT 81252-nl.a / Screen:
35 ;
36 Q1 = Q1 + 1 ;Teller naar volgende cyclus
37 ;
38 ;
39 ;Doorloop van de gewenste bewerking.
40 ;Mogelijk met PGM CALL, maar dan mag
41 ;het opgeroepen programma geen M2
42 ;of M30 bevatten
43 CALL PGM 81254-nl.h
44 STOP
45 ;
46 ;
47 ;Vergelijking of het aantal herhalingen
48 ;is bereikt
49 FN 12: IF +Q2 LT +Q10 GOTO LBL 99
50 ;Weergave dat het aantal herhalingen is
51 ;bereikt.
52 FN 16: F-PRINT 81253-nl.a / Screen:
53 ;
54 Q1 = 1 ;Teller terugzetten
55 ;Waarde van de teller in de tabel schrijven
56 FN 27: TABWRITE 0 /"Q1" = Q1
57 ;Einde van programma
58 STOP
59 M30
60 ;
61 ;Spronglabel wanneer nog meer herhalingen
62 ;nodig zijn
63 LBL 99
64 ;Waarde van de teller in de tabel schrijven
65 FN 27: TABWRITE 0 /"Q1" = Q1
66 ;Einde van programma
67 M30
68 END PGM 8125-nl MM