###################################
### (C) 2004, Tilo Kühn, v1.0
###################################
### BS : Laufschrift generator
###################################

#5000|"Text"|Remanent(1/0)|Anz.Eingänge|.n.|Anzahl Ausgänge|.n.|.n.
#5001|Anzahl Eingänge|Ausgänge|Offset|Speicher|Berechnung bei Start
#5002|Index Eingang|Default Wert
#5003|Speicher|Initwert|Remanent
#5004|ausgang|Initwert|runden binär (0/1)|typ (1-send/2-sbc)
#5012|abbruch bei bed. (0/1)|bedingung|formel|zeit|pin-ausgang|pin-offset|pin-speicher|pin-neg.ausgang

5000|"#14-Byte-Texte\Laufschrift"|1|6|"Text"|"Update (sec.)"|"Schrittweite (Zeichen)"|"Scrolltext Breite"|"Start Pos."|"An/Aus"|1|"Text"

5001|6|1|1|3|1

# EN[x]

# Text
5002|1|""|1
5002|2|1|0              # Update (sec.)
5002|3|1|0              # Schrittweite in Zeichen
5002|4|14|0             # Breite des Scrolltextes
5002|5|-14|0            # Startpos
5002|6|0|0    	    		# An/Aus

# Ausgänge
# Scrolltext
5004|1|""|0|2|1

# Speicher
5003|1|0|0							# Text
5003|2|0|0							# TempString
5003|3|0|0							# ScrollPos

# Logik

# init
5012|0|"EI==1"|"'12345678901234567890 - Hallo Welt! ... Das ist eine Laufschrift mit einer Breite von 14 Byte 12345678901234'"|""|0|0|1|0
5012|0|"EI==1"|"'                                        '"|""|0|0|2|0
5012|0|"EI==1 or (EC[6] and EN[6]==0)"|"EN[5]"|""|0|0|3|0

# wenn neuer text reinkommt, dann string setzen und pos auf EN[5]
5012|0|"EC[1] and EN[1]"|"EN[1]"|""|0|0|1|0
5012|0|"EC[1] and EN[1]"|"EN[5]"|""|0|0|3|0

# timer angekommen
5012|0|"EN[6] and OC[1]"|"SN[3]+EN[3]"|""|0|0|3|0

# wenn textende erreicht
5012|0|"SN[3]>len(SN[1])"|"EN[5]"|""|0|0|3|0

# text berechnen
5012|0|"(EI==1 or OC[1]) and SN[3]<0"|"__import__('string').join([SN[2][0:-SN[3]],SN[1][0:EN[4]+1+SN[3]]])"|""|1|0|0|0
5012|0|"(EI==1 or OC[1]) and SN[3]>=0"|"SN[1][SN[3]:SN[3]+EN[4]]"|""|1|0|0|0

5012|0|"EN[6] and (EI==1 or OC[1])"|""|"EN[2]"|0|1|0|0