;   --------------------------------------------------------------
;	   	 Position ausgeben
;   --------------------------------------------------------------
'Funktion : Anzeige des internen Positionszhlers
'Eingang  : SFAKT=Schritfaktor pro Anzeigeeinheit
'Ausgang  : --
'lokal    : 
'global   : POS in steps, POSM in mm
100 CALL 3018H : POP POS	; hole Pos
105 P.U.(###.###),		; Formatieren
110 Y=SFAKT-1
115 IF POS<0 THEN Y=0
120 POSM=INT((POS+Y)/SFAKT)/1000 ; darstellen als mm
125 CUR 0,8:P. POSM,		; ins Display obere Zeile 8. Stelle
130 P.U.(0),			; Print wieder unformatiert
135 RETURN

