0  BEGIN PGM 8250_de MM 
1  ;NC-Programm, um die Abmasse einer Normtoleranz,
2  ;im System Einheitswelle und Einheitsbohrung,
3  ;in einem Fenster auf dem Bildschirm
4  ;anzuzeigen.
5  ;In diesem NC-Programm definieren Sie das
6  ;Passmass und die Toleranz. Die Steuerung
7  ;ruft danach ein NC-Programm, mit dem sie die
8  ;Abmasse berechnet und auf dem Bildschirm
9  ;anzeigt.
10 ;Den Inhalt dieses NC-Programms koennen Sie 
11 ;zum Beispiel in ein Bearbeitungsprogramm
12 ;an die Stelle kopieren die Abmasse angezeigt
13 ;werden sollen.
14 ;
15 ;
16 ;Parametereingabe
17 ;;;;;;;;;;;;;;TOLERANZ;;;;;;;;;;;;;
18 Q1 = 40 ;PASSMASS
19 QS1 = "H7" ;TOLERANZ
20 ;Parametereingabe Ende
21 ;
22 ;Programmaufruf zum Ermitteln der Abmasse und  
23 ;zur Anzeige auf dem Bildschirm
24 CALL PGM 82501_de.H
25 ;
26 ;
27 STOP
28 ;Programmende
29 END PGM 8250_de MM