[*]Profan

Var Test$ = "Dies ist ein Test"
Print Del$(Test$,1,5)
'das würde dann "Dies ist ein" ausgeben
Print Del$(Test$,1,-5)
WaitInput

Del$(Test$,n1,n2)' löscht n2 Zeichen ab n1 (wie das ursprünglich vorgesehen ist)
Del$(Test$,-n1,n2)' löscht n2 Zeichen (Richtung Stringende) ab n1 von hinten gerechnet
Del$(Test$,n1,-n2)' löscht n2 Zeichen (Richtung Stringanfang) ab n1 von vorne
Del$(Test$,-n1,-n2)' löscht n2 Zeichen (Richtung Stringanfang) ab n1 von hinten