AppTitle "Mathe, 10. Klasse"
Graphics 800, 600, 16, 2

SetBuffer BackBuffer()


; Variablen und Felder
Global t_anzahl2

; Text
Dim t_width(25)
Dim t_anzahl(25)
Dim t_inhalt3(26, 15)
Dim t_inhalt2$(50, 15)
Dim t_um(25)
Dim t_Y(25)

Global t_X


; Laden
Global con_1 = LoadFont("Verdana", 20, 1)
Global con_2 = LoadFont("Verdana", 17, 1)
Global con_3 = LoadFont("verdana", 15, 0)


; #####  Hauptschleife
Repeat
Cls




Create_Text(1, 1, "CREDITS", "Verbreitung", "Dieses Programm darf kostenlos verbreitet werden. Eine komerzielle Nutzung ohne Genehmigung des Autors, sowie die Verlinkung, Bewerbung oder Präsentation auf Dialer Sites ist nicht gestattet. Und irgendwie sollte das jetzt langsam mal funktionieren! Ich bin dumm!")
Create_Text(1, 2, "CREDITS", "Kontakt", "http://www.teeecke.de.hm -teeesoft info@aol.com")
;Create_Text(1, 3, "CREDITS", "usw. test", "just a slob like one of us")


For I = 1 To 25
  Text 020, 10 + 20*I, t_inhalt3(I, 1)
  Text 100, 10 + 20*I, t_anzahl(I)
Next




Flip
Until KeyHit(1)
End




Function Create_Text(t_id, t_id2, t_head$, t_head2$, t_inhalt$)
 

  ; Haupt
  SetFont con_1
  Color 0, 0, 0
  Text 291 + 240, 154 + 20, t_head, 1, 1

  For I = 1 To 25

    t_width(I) = 66

    t_inhalt2(I, t_id) = Mid$(t_inhalt$, (I-1)*t_width(I) + 1,  t_width(I))

    ; Bei "-" abbrechen und in nächster Zeile weiterführen
    ;t_um(I) = Instr(t_inhalt2(I-1), "-", 1)
    ;If t_um(I) > 0 Then
    ;  t_inhalt2(I, t_id) = Mid$(t_inhalt2(I-1), t_um(I)+1) + t_inhalt2(I, t_id)
    ;  t_inhalt2(I-1) = LSet(t_inhalt2(I-1), t_um(I)-1)
    ;EndIf

   ; Leerzeichen am Anfang entfernen
    ;If Mid$(t_inhalt2(I, t_id), 1, 1) = " " Then t_inhalt2(I, t_id) = Trim(t_inhalt2(I, t_id))

    ; Kennzeichnung
    If Len(t_inhalt2(I, t_id)) > 0 Then t_inhalt3(I, t_id) = 1
    t_X = 305
    t_anzahl2 = t_inhalt3(1, t_id) + t_inhalt3(2, t_id) + t_inhalt3(3, t_id) + t_inhalt3(4, t_id) + t_inhalt3(5, t_id) + t_inhalt3(6, t_id) + t_inhalt3(7, t_id) + t_inhalt3(8, t_id) + t_inhalt3(9, t_id) + t_inhalt3(10, t_id) + t_inhalt3(11, t_id)
    t_anzahl(t_id2+1) = t_anzahl(t_id2) + t_anzahl2
    t_Y(t_id2) = 209 + t_anzahl(t_id2)*20 + (-1 + t_id2)*40

  ; Content
    SetFont con_2
    Color 0, 0, 0
    Text t_X, t_Y(t_id2) + ((I-(I)) * 20), t_head2

  ; 2. Haupt
    SetFont con_3
    Color 0, 0, 0
    Text t_X, t_Y(t_id2) + ((I-1) * 20), t_inhalt2(I-1, t_id)


  Next

End Function

for i= 0 to number_of_rows Step -1 ;Rückwärts zählen

      zeile$(i)=zeile$(i-1)

next

zeile$(0) = new_string$.

;Text zeichen
for i= 0 to number_of_rows

text 0,i*font_height + 2,zeile$(i)

next