;   --------------------------------------------------------------
;	   	 Lauftext ausgeben
;   --------------------------------------------------------------
'Funktion : Ein langer Text als Lauftext
'Eingang  : --
'Ausgang  : --
'lokal    : TL	= Meldungslnge
'global   :
; 
5 STRING 1900,200		; Stringarray init
; zuerst die Textlnge feststellen
10 $(2)="Langtext mit vielen Buchstaben"
20 INIT OUT,1:CLS
120 ML=0:I=0:DO			; Zhler init und starten
130   I=I+1			; beginnt bei 1, 
140   IF ASC($(2),I)=0 THEN TL=-1	; endet bei I-1
150 WHILE TL=0
160 TL=I-2
170 ZEIT=150			; Laufgeschwindigkeit
200 GOSUB 900
210 INIT OUT,0:END
' --- Ausgabe einer SMS als Laufschrift ---
900  IF TL<=0 THEN TL=0 : RETURN		 ; SMS ohne Text oder Fehlerfaft
902 INIT OUT,1:CLS
905  CUR 1,0 : IF TL>16 THEN 910
906  P. "                ", : CUR 1,0		 ; Zeile loeschen
907   P. $(2),:RETURN 				; weniger 16 Zeichen

910  FOR I=1 TO 16 : CUR 1,16-I 		 ; Meldungsanfang einscrollen
920    FOR D=1 TO I : P. CHR(ASC($(2),D)), : NEXT D
930	FOR k=0 TO ZEIT:NEXT					; warten
940  NEXT I

950  FOR I=1 TO TL-16 : CUR 1,0  		 ; weiterscrollen
955    FOR D=1 TO 16 : P. CHR(ASC($(2),D+I)), : NEXT D
960	FOR k=0 TO ZEIT:NEXT			; warten
970  NEXT I
980  RETURN

