0 BEGIN PGM 8130-NL MM 1 ;Werkstukteller. 2 ;Aan het begin van het programma definieert 3 ;u het aantal gewenste herhalingen. 4 ;Bij de programmastart wordt het aantal 5 ;runs tot dan toe op het beeldscherm 6 ;weergegeven. Als het geprogrammeerde 7 ;aantal is bereikt, wordt ook dit gemeld 8 ;en wordt de teller op nul teruggezet. 9 ; 10 ; 11 ;Invoer van de gewenste herhalingen QR2 = 8 ;AANTAL HERHALINGEN 12 ; 13 ;Aantal herhalingen dat tot nu toe is 14 ;uitgevoerd weergeven 15 FN 16: F-PRINT 81301-nl.a / Screen: 16 ; QR1 = QR1 + 1 ;Teller naar volgende cyclus 17 ; 18 ; 19 ;Uitvoering van de gewenste bewerking, 20 ;eventueel met PGM CALL, maar dan mag 21 ;in het opgeroepen programma geen 22 ;M2 of M30 staan. 23 CALL PGM 81303-nl.h 24 STOP 25 ; 26 ; 27 ;Vergelijking of het aantal herhalingen is 28 ;bereikt. 29 FN 12: IF +QR1 LT +QR2 GOTO LBL 99 30 ;Weergave dat het aantal herhalingen is 31 ;bereikt. 32 FN 16: F-PRINT 81302-nl.a / Screen: 33 ; QR1 = 0 ;Terugzetten van de teller QR2 = 0 ;Terugzetten van de gewenste herhalingen 34 ; 35 ;Einde van programma 36 M30 37 ; 38 ;Spronglabel wanneer nog meer herhalingen 39 ;nodig zijn 40 LBL 99 41 ;Einde van programma 42 M30 43 END PGM 8130-NL MM