Type BewegungTyp
 Field X#,Y#
 Field StartX#
 Field StartY#

 Field Status

 Field Zeit#
 Field StartZeit#
 Field LastUpdate#

 Field ZielX#
 Field ZielY#
End Type

Type TxtTyp
 Field Txt$
 Field TxtColor
 Field HTxtColor
 Field Bewegung
End Type

Type ImageTyp
 Field Image
 Field Bewegung
End Type


Type AbspannTyp
 Field Schriftname$
 Field SchriftNr
 Field SchriftHoch

 Field StartZeit
End Type

Type AbspannOBJTyp
 Field Typ
 Field Beewegungszeit
 Field StartX
 Field StartY
 Field ZielX
 Field ZielY

 Field einblendenAb
 Field einblendet

 Field Imagename$

 Field Txt$
 Field TxtColor
 Field HTxtColor
End Type
 

Const KeineBewegung   =0
Const InBewegung      =1

Const TxtTyp=1
Const ImageTyp=2


Global Abspann.AbspannTyp
Global AbspannOBJ.AbspannOBJTyp

Global Bewegung.BewegungTyp
Global Image.ImageTyp
Global Txt.TxtTyp


SetBuffer BackBuffer()


Zeit=CreateTimer(10)

LoadAbspann "Abspann.txt","Arial",28



Repeat
 Cls 
 UpdateAbspann
 If KeyDown(1)=True Then Exit
 WaitTimer Zeit
 Flip
Forever

Function LoadAbspann(DateiName$,Schrift$,SchriftHoch)
 If Exist_Datei(DateiName$)=False Then
  Return False
 End If

 DateiNr=ReadFile(DateiName$)

 If DateiNr=0 Then
  Return False
 End If   

 Abspann=New AbspannTyp
 Abspann\SchriftName$=Schrift$
 Abspann\SchriftNr=LoadFont(Schrift$,SchriftHoch)
 SetFont Abspann\SchriftNr
 Abspann\SchriftHoch=FontHeight()
 Abspann\StartZeit=MilliSecs()

 While Not(Eof(DateiNr))
  Zeile$=ReadLine(DateiNr)
  If ArgTest(Zeile$)=False Then
   Return False
  End If
  ArgZahl=ArgC(Zeile$)
  If ArgZahl>0 Then
   If ArgTyp$(Zeile$,1)="$" Then
    Return False
   End If

   Select Lower$(ArgV$(Zeile$,1))
    Case "text"

     AbspannOBJ=New AbspannOBJTyp

     AbspannOBJ\Typ=TxtTyp
     AbspannOBJ\StartX=ArgV$(Zeile$,2)
     AbspannOBJ\StartY=ArgV$(Zeile$,3)
     AbspannOBJ\ZielX=ArgV$(Zeile$,4)
     AbspannOBJ\ZielY=ArgV$(Zeile$,5)
     AbspannOBJ\einblendenAb=ArgV$(Zeile$,6)
     AbspannOBJ\Beewegungszeit=ArgV$(Zeile$,7)
     AbspannOBJ\Txt$=ArgV$(Zeile$,8)



     AbspannOBJ\TxtColor=FarbInt(ArgV$(Zeile$,9))
     AbspannOBJ\HTxtColor =FarbInt(ArgV$(Zeile$,10))

    Case "image"
     AbspannOBJ=New AbspannOBJTyp

     AbspannOBJ\Typ=ImageTyp
     AbspannOBJ\StartX=ArgV$(Zeile$,2)
     AbspannOBJ\StartY=ArgV$(Zeile$,3)
     AbspannOBJ\ZielX=ArgV$(Zeile$,4)
     AbspannOBJ\ZielY=ArgV$(Zeile$,5)
     AbspannOBJ\einblendenAb=ArgV$(Zeile$,6)
     AbspannOBJ\Beewegungszeit=ArgV$(Zeile$,7)
     AbspannOBJ\ImageName$=ArgV$(Zeile$,8)


    Default
     Return False
   End Select 
  End If
 Wend

 CloseFile DateiNr
 Return True
End Function

Function FarbInt(Farbename$)
 If Mid$(Farbename$,1,1)="$" Or  Mid$(Farbename$,1,1)="#" Then
 ElseIf IntTest(Farbename$)
  Return Int(Farbename$)
 Else
  Return FarbWert(FarbRRGGBB$(Farbename$))
 End If
End Function

Function IntTest(S$)
 Slen=Len(S$)
 For P=1 To Slen
  If Instr("0123456789",Mid$(S$,P,1))=0 Then Return False
 Next
 Return True
End Function

Function UpdateAbspann()
 UpdateAbspannOBJ
 UpdateBewegungOBJ
 UpdateImage
 UpdateTxt
 DeleteImageOBJ
 DeleteImageTxt
End Function

Function UpdateAbspannOBJ()
 Millisekunden=MilliSecs() 
 For AbspannOBJ=Each AbspannOBJTyp
  If AbspannOBJ\einblendenAb+Millisekunden=>Abspann\StartZeit Then
   If AbspannOBJ\einblendet=False Then
    AbspannOBJ\einblendet=True
    Select AbspannOBJ\Typ
     Case TxtTyp
      CreateTxt AbspannOBJ\Txt$,AbspannOBJ\StartX,AbspannOBJ\StartY,AbspannOBJ\ZielX,AbspannOBJ\ZielY,AbspannOBJ\Beewegungszeit,AbspannOBJ\TxtColor,AbspannOBJ\HTxtColor
     Case ImageTyp
      ImageCreate AbspannOBJ\Imagename$,AbspannOBJ\StartX,AbspannOBJ\StartY,AbspannOBJ\ZielX,AbspannOBJ\ZielY,AbspannOBJ\Beewegungszeit
    End Select
   End If
  End If
 Next
End Function

Function DeleteImageOBJ()
 For Image=Each ImageTyp
  OBJ.BewegungTyp=Object.BewegungTyp(Image\Bewegung)
  If OBJ\Status=KeineBewegung Then
   Delete OBJ
  End If
  FreeImage Image\Image
  Delete Image 
 Next
End Function

Function DeleteImageTxt()
 For Txt=Each TxtTyp
  OBJ.BewegungTyp=Object.BewegungTyp(Txt\Bewegung)
 
  If OBJ\Status=KeineBewegung Then
   Delete OBJ
   Delete Txt 
  End If
 Next
End Function

Function CreateBewegungOBJ(X,Y,ZeilX,ZielY,Zeit)
 Bewegung=New BewegungTyp
 Bewegung\X=X
 Bewegung\Y=Y
 Bewegung\StartX=X
 Bewegung\StartY=Y

 Bewegung\ZielX=ZielX
 Bewegung\ZielY=ZielY
 Bewegung\Zeit =Zeit

 Millisekunden=MilliSecs()

 Bewegung\StartZeit =Millisekunden
 Bewegung\LastUpdate=Millisekunden

 Return Handle(Bewegung)
End Function

Function DeleteBewegungOBJ(ID)
 OBJ.BewegungTyp=Object.BewegungTyp(ID)
 Delete OBJ
End Function

Function UpdateBewegungOBJ()

 For Bewegung=Each BewegungTyp
  Millisekunden=MilliSecs()
  Zeit#=(Millisekunden-Bewegung\LastUpdate)
  If Bewegung\StartZeit+Bewegung\Zeit#=>Millisekunden Then

    Bewegung\Status=InBewegung

    BewegungX#= Bewegung\ZielX-Bewegung\StartX#
    BewegungY#= Bewegung\ZielY-Bewegung\StartY#

    BewegungZeit#=Zeit#/ Bewegung\Zeit
    Bewegung\X=Bewegung\X+BewegungX#*BewegungZeit#
    Bewegung\Y=Bewegung\Y+BewegungY#*BewegungZeit#

    Bewegung\LastUpdate=Millisekunden
   Else 
    Bewegung\Status=KeineBewegung
  End If
 Next
End Function

Function ImageCreate(ImageName$,X,Y,ZielX,ZielY,Zeit)
 Image.ImageTyp=New ImageTyp
 Image\Image=LoadImage(ImageName$)
 Image\bewegung=CreateBewegungOBJ(X,Y,ZeilX,ZielY,Zeit)
End Function

Function CreateTxt(Text$,X,Y,ZielX,ZielY,Zeit,Farbe,HFarbe)
 Txt.TxtTyp=New TxtTyp
 Txt\TXt$=Text$
 Txt\TxtColor=Farbe
 Txt\HTxtColor=HFarbe
 
 Txt\bewegung=CreateBewegungOBJ(X,Y,ZeilX,ZielY,Zeit)
End Function


Function UpdateImage()
 For Image=Each ImageTyp
  OBJ.BewegungTyp=Object.BewegungTyp(Image\Bewegung)
  DrawImage Image\Image,OBJ\X,OBJ\Y
 Next 
End Function

Function UpdateTxt()
 ;SetFont Abspann\SchriftNr
 For Txt=Each TxtTyp
  OBJ.BewegungTyp=Object.BewegungTyp(Txt\Bewegung)

  ColorI Txt\HTxtColor
  Rect OBJ\X,OBJ\Y,StringWidth(Txt\Txt$),Abspann\SchriftHoch;FontHeight()

  ColorI Txt\TxtColor
  Text OBJ\X,OBJ\Y,Txt\Txt$

 Next 
End Function

Function Exist_Datei(Dateiname$)
 If FileType(Dateiname$)=1 Then Return -1
End Function 

Function ArgTyp$(Zeile$,arg)
 LenZeile=Len(Zeile$)
 For X=1 To LenZeile
  Select Mid$(Zeile$,X,1)
   Case " "
    ParameterAn=False
   Case ";"
    If NeuerParameter=True Then
     Return  ;Error
    End If   
   
    Return ;Argument nicht gefunden

   Case ","
    If NeuerParameter=True Then
     Return ;Error
    End If 
   
    If Index<2 Then
     Return ;Error
    End If     

    ParameterAn=False
    NeuerParameter=True
   Case Chr$(34);"
    If Index=>2 And NeuerParameter=False Then
     Return ;Error
    End If 
    NeuerParameter=False

    index=index+1
    NeuerParameter=False
    If index=arg Then
      Return "$"     
     Else   
      For X=X+1 To LenZeile
       If Mid$(Zeile$,X,1)=Chr$(34) Then Exit
      Next
    End If 
   Default
    If ParameterAn=False Then
     If Index=>2 And NeuerParameter=False Then
      Return ;Error
     End If 
     NeuerParameter=False   

     ParameterAn=True
     index=index+1   
    End If

    If index=arg Then
     Return "Z"
    End If 
 
  End Select
 Next
End Function

Function ArgV$(Zeile$,arg)
 LenZeile=Len(Zeile$)
 For X=1 To LenZeile
  Select Mid$(Zeile$,X,1)
   Case " "
    ParameterAn=False
   Case ";"
    If NeuerParameter=True Then
     Return  ;Error
    End If   
   
    Return ;Argument nicht gefunden

   Case ","
    If NeuerParameter=True Then
     Return ;Error
    End If 
   
    If Index<2 Then
     Return ;Error
    End If     

    ParameterAn=False
    NeuerParameter=True
   Case Chr$(34);"
    If Index=>2 And NeuerParameter=False Then
     Return ;Error
    End If 
    NeuerParameter=False

    index=index+1
    NeuerParameter=False
    If index=arg Then
      For X=X+1 To LenZeile
       If Mid$(Zeile$,X,1)=Chr$(34) Then
         Exit
        Else
         Parameter$=Parameter$+ Mid$(Zeile$,X,1)
       End If
      Next
      Return Parameter$
     Else   
      For X=X+1 To LenZeile
       If Mid$(Zeile$,X,1)=Chr$(34) Then Exit
      Next
    End If 
   Default
    If ParameterAn=False Then
     If Index=>2 And NeuerParameter=False Then
      Return ;Error
     End If 
     NeuerParameter=False   

     ParameterAn=True
     index=index+1   
    End If

    If index=arg Then
     Parameter$=Parameter$+ Mid$(Zeile$,X,1)
    End If 
 
  End Select
 Next
 Return Parameter$
End Function

Function ArgC(Zeile$)
 LenZeile=Len(Zeile$)
 For X=1 To LenZeile
  Select Mid$(Zeile$,X,1)
   Case " "
    ParameterAn=False
   Case ";"
    If NeuerParameter=True Then
     Return   ;Error
    End If   
   
    Return Index
   Case ","
    If NeuerParameter=True Then
     Return ;Error
    End If 
   
    If Index<2 Then
     Return ;Error
    End If     

    ParameterAn=False
    NeuerParameter=True
   Case Chr$(34);"
    If Index=>2 And NeuerParameter=False Then
     Return ;Error
    End If 
    NeuerParameter=False

    index=index+1
    NeuerParameter=False
    For X=X+1 To LenZeile
     If Mid$(Zeile$,X,1)=Chr$(34) Then Exit
    Next
   Default
    If ParameterAn=False Then
     If Index=>2 And NeuerParameter=False Then
      Return ;Error
     End If 
     NeuerParameter=False   

     ParameterAn=True
     index=index+1
     
    End If 
  End Select
 Next
 Return Index
End Function

Function ArgTest(Zeile$)
 LenZeile=Len(Zeile$)
 For X=1 To LenZeile
  Select Mid$(Zeile$,X,1)
   Case " "
    ParameterAn=False
   Case ";"
    If NeuerParameter=True Then
     Return False
    End If   
   
    Return Index
   Case ","
    If NeuerParameter=True Then
     Return False
    End If 
   
    If Index<2 Then
     Return False
    End If     

    ParameterAn=False
    NeuerParameter=True
   Case Chr$(34);"
    If Index=>2 And NeuerParameter=False Then
     Return False
    End If 
    NeuerParameter=False

    index=index+1
    NeuerParameter=False
    For X=X+1 To LenZeile
     If Mid$(Zeile$,X,1)=Chr$(34) Then Exit
    Next
   Default
    If ParameterAn=False Then
     If Index=>2 And NeuerParameter=False Then
      Return False
     End If 
     NeuerParameter=False   

     ParameterAn=True
     index=index+1
     
    End If 
  End Select
 Next

 If NeuerParameter=True Then
   Return False
  Else
  Return True 
 End If 
End Function


Function Farbe(r,g,B)
 Return r*$10000 + g*$100 + b
End Function

Function ColorI(I)
 Color (I And $FF0000)/$10000,(I And $FF00)/$100,I And $FF
End Function

Function Lower$(S$)
 Slen=Len(S)
 If Slen>0 Then
  For P=1 To Slen
   ASCII=Asc(Mid$(S$,P,1))
   If Ascii>64 And Ascii<92 Then
     Ascii=Ascii+32
    ElseIf Ascii=220 Then ;ü
     Ascii=252     
    ElseIf Ascii=196 Then ;ä
     Ascii=228 
    ElseIf Ascii=214 Then ;ö
     Ascii=246
   End If
   R$=R$+Chr$(ASCII)
  Next
  Return R$
 End If
End Function

Function Upper$(S$)
 Slen=Len(S)
 If Slen>0 Then
  For P=1 To Slen
   ASCII=Asc(Mid$(S$,P,1))
   If Ascii>96 And Ascii<123 Then
     Ascii=Ascii-32
    ElseIf Ascii=252 Then ;ü
     Ascii=220     
    ElseIf Ascii=228 Then ;ä
     Ascii=196 
    ElseIf Ascii=246 Then ;ö
     Ascii=214
   End If
   R$=R$+Chr$(ASCII)
  Next
  Return R$
 End If
End Function

Function GetRed(I) 
 Return (I And $FF0000)/$10000
End Function

Function GetGreen(I)   
 Return (I And $FF00)/$100
End Function

Function GetBlue(I)
 Return I And $FF
End Function

Function FarbWert(FarbNummer$)
 If Mid$(FarbNummer$,1,1)="#" Or Mid$(FarbNummer$,1,1)="$" Then
  Zahl$=Bin16inAscii$(Mid$(FarbNummer$,2))
  r=Asc(Mid$(Zahl$,1,1))
  g=Asc(Mid$(Zahl$,2,1))
  b=Asc(Mid$(Zahl$,3,1))
  Return r*$10000 + g*$100 + b
 End If
End Function 

Function Bin16inAscii$(ZAHL$)
 lenZahl=Len(Zahl$)
 For X=1 To Lenzahl Step 2

  Select Mid$(ZAHL$,x+1,1)
   Case "0":W=  0
   Case "1":W= 16
   Case "2":W= 32
   Case "3":W= 48
   Case "4":W= 64
   Case "5":W= 80
   Case "6":W= 96
   Case "7":W= 112
   Case "8":W= 128
   Case "9":W= 144
   Case "A":W= 160
   Case "B":W= 167
   Case "C":W= 192
   Case "D":W= 208
   Case "E":W= 224
   Case "F":W= 240
  End Select

  Select Mid$(ZAHL$,x+2,1)
   Case "0":W= W+ 0
   Case "1":W= W+ 1
   Case "2":W= W+ 2
   Case "3":W= W+ 3
   Case "4":W= W+ 4
   Case "5":W= W+ 5
   Case "6":W= W+ 6
   Case "7":W= W+ 7
   Case "8":W= W+ 8
   Case "9":W= W+ 9
   Case "A":W= W+10
   Case "B":W= W+11
   Case "C":W= W+12
   Case "D":W= W+13
   Case "E":W= W+14
   Case "F":W= W+15
  End Select
  S$=S$+Chr$(W)
 Next
 Return S$
End Function

Function FarbRRGGBB$(Farbname$)
 Select Farbname$
  Case "aliceblue"
   Return "#F0F8FF"
  Case "antiquewhite"
   Return "#FAEBD7"
  Case "aquamarine"
   Return "#7FFFD4"
  Case"azure"
   Return "#F0FFFF"
  Case "beige"
   Return "#F5F5DC"
  Case "blueviolet"
   Return "#8A2BE2"
  Case "brown"
   Return "#A52A2A"
  Case "burlywood"
   Return "#DEB887"
  Case "cadetblue"
   Return "#5F9EA0"
  Case "chartreuse"
   Return "#7FFF00"
  Case "chocolate"
   Return "#D2691E"
  Case "coral"
   Return "#FF7F50"
  Case "cornflowerblue"
   Return "#6495ED"
  Case "cornsilk"
   Return "#FFF8DC"
  Case "crimson"
   Return "#DC143C"
  Case "darkblue"
   Return "#00008B"
  Case "darkcyan"
   Return "#008B8B"
  Case "darkgoldenrod"
   Return "#B8860B"
  Case "darkgray"
   Return "#A9A9A9"
  Case "darkgreen"
   Return "#006400"
  Case "darkkhaki"
   Return "#BDB76B"
  Case "darkmagenta"
   Return "#8B008B"
  Case "darkolivegreen"
   Return "#556B2F"
  Case "darkorange"
   Return "#FF8C00"
  Case "darkorchid"
   Return "#9932CC"
  Case "darkred"
   Return "#8B0000"
  Case "darksalmon"
   Return "#E9967A"
  Case "darkseagreen"
   Return "#8FBC8F"
  Case "darkslateblue"
   Return "#483D8B"
  Case "darkslategray"
   Return "#2F4F4F"
  Case "darkturquoise"
   Return "#00CED1"
  Case "darkviolet"
   Return "#9400D3"
  Case "deeppink"
   Return "#FF1493"
  Case "deepskyblue"
   Return "#00BFFF"
  Case "dimgray"
   Return "#696969"
  Case "dodgerblue"
   Return "#1E90FF"
  Case "firebrick"
   Return "#B22222"
  Case "floralwhite"
   Return "#FFFAF0"
  Case "forestgreen"
   Return "#228B22"
  Case "gainsboro"
   Return "#DCDCDC"
  Case "ghostwhite"
   Return "#F8F8FF"
  Case "gold"
   Return "#FFD700"
  Case "goldenrod"
   Return "#DAA520"
  Case "greenyellow"
   Return "#ADFF2F"
  Case "honeydew"
   Return "#F0FFF0"
  Case "hotpink"
   Return "#FF69B4"
  Case "indianred"
   Return "#CD5C5C"
  Case "indigo"
   Return "#4B0082"
  Case "ivory"
   Return "#FFFFF0"
  Case "khaki"
   Return "#F0E68C"
  Case "lavender"
   Return "#E6E6FA"
  Case "lavenderblush"
   Return "#FFF0F5"
  Case "lawngreen"
   Return "#7CFC00"
  Case "lemonchiffon"
   Return "#FFFACD"
  Case "lightblue"
   Return "#ADD8E6"
  Case "lightcoral"
   Return "#F08080"
  Case "lightcyan"
   Return "#E0FFFF"
  Case "lightgoldenrodyellow"
   Return "#FAFAD2"
  Case "lightgreen"
   Return "#90EE90"
  Case "lightgrey"
   Return "#D3D3D3"
  Case "lightpink"
   Return "#FFB6C1"
  Case "lightsalmon"
   Return "#FFA07A"
  Case "lightseagreen"
   Return "#20B2AA"
  Case "lightskyblue"
   Return "#87CEFA"
  Case "lightslategray"
   Return "#778899"
  Case "lightsteelblue"
   Return "#B0C4DE"
  Case "lightyellow"
   Return "#FFFFE0"
  Case "limegreen"
   Return "#32CD32"
  Case "linen"
   Return "#FAF0E6"
  Case "mediumaquamarine"
   Return "#66CDAA"
  Case "mediumblue"
   Return "#0000CD"
  Case "mediumorchid"
   Return "#BA55D3"
  Case "mediumpurple"
   Return "#9370DB"
  Case "mediumseagreen"
   Return "#3CB371"
  Case "mediumslateblue"
   Return "#7B68EE"
  Case "mediumspringgreen"
   Return "#00FA9A"
  Case "mediumturquoise"
   Return "#48D1CC"
  Case "mediumvioletred"
   Return "#C71585"
  Case "midnightblue"
   Return "#191970"
  Case "mintcream"
   Return "#F5FFFA"
  Case "mistyrose"
   Return "#FFE4E1"
  Case "moccasin"
   Return "#FFE4B5"
  Case "navajowhite"
   Return "#FFDEAD"
  Case "oldlace"
   Return "#FDF5E6"
  Case "olivedrab"
   Return "#6B8E23"
  Case "orange"
   Return "#FFA500"
  Case "orangered"
   Return "#FF4500"
  Case "orchid"
   Return "#DA70D6"
  Case "palegoldenrod"
   Return "#EEE8AA"
  Case "palegreen"
   Return "#98FB98"
  Case "paleturquoise"
   Return "#AFEEEE"
  Case "palevioletred"
   Return "#DB7093"
  Case "papayawhip"
   Return "#FFEFD5"
  Case "peachpuff"
   Return "#FFDAB9"
  Case "peru"
   Return "#CD853F"
  Case "pink"
   Return "#FFC0CB"
  Case "plum"
   Return "#DDA0DD"
  Case "powderblue"
   Return "#B0E0E6"
  Case "rosybrown"
   Return "#BC8F8F"
  Case "royalblue"
   Return "#4169E1"
  Case "saddlebrown"
   Return "#8B4513"
  Case "salmon"
   Return "#FA8072"
  Case "sandybrown"
   Return "#F4A460"
  Case "seagreen"
   Return "#2E8B57"
  Case "seashell"
   Return "#FFF5EE"
  Case "sienna"
   Return "#A0522D"
  Case "skyblue"
   Return "#87CEEB"
  Case "slateblue"
   Return "#6A5ACD"
  Case "slategray"
   Return "#708090"
  Case "snow"
   Return "#FFFAFA"
  Case "springgreen"
   Return "#00FF7F"
  Case "steelblue"
   Return "#4682B4"
  Case "Tan"
   Return "#D2B48C"
  Case "thistle"
   Return "#D8BFD8"
  Case "tomato"
   Return "#FF6347"
  Case "turquoise"
   Return "#40E0D0"
  Case "violet"
   Return "#EE82EE"
  Case "wheat"
   Return "#F5DEB3"
  Case "whitesmoke"
   Return "#F5F5F5"
  Case "yellowgreen"
   Return "#9ACD32"
 End Select
End Function   

text 200,200,100,100,1000,10000,"Dies ist ein Test",45343533,54545454
image Image.bmp,200,200,100,100,1000,10000