; --------------------------------------------------------
;			Blinkende Anzeige
; --------------------------------------------------------
; Funktion :    der Text 'STARTPOS' blinkt
; 		U ist ein Grenzwert, der die Laufzeit bestimmt
2700 U=50:I=0:CLS
2710 P.U.(###.###),
2740   CUR 1,0: IF U>0 THEN P. "STARTPOS", ELSE P. "        ",
2750   I=I+1
2770	T=GET				; lese eine Taste
2775	IF T=27 THEN end
2780	IF T=13 THEN CLOCK0:GOTO 2850
2782 	CUR 0,0:?I,			; Laufvar.
2785	IF I<ABS(U) THEN 2750		; Schleife Tastenabfrage
2795 I=0:U=-U:GOTO 2740			; Schleife blinken
; ---- Enter gedrueckt
2850 P. "Enter"
2899 end

