[*]Profan

Var Test$ = "Dies est un Test"
Imprimer Del$(Test$,1,5)
'cela serait ensuite "Dies ist ein" ausgeben
Imprimer Del$(Test$,1,-5)
WaitInput

Del$(Test$,n1,n2)' löscht n2 marque ab n1 (comment cela ursprünglich vorgesehen ist)
Del$(Test$,-n1,n2)' löscht n2 marque (direction Stringende) ab n1 de hinten gerechnet
Del$(Test$,n1,-n2)' löscht n2 marque (direction Stringanfang) ab n1 de vorne
Del$(Test$,-n1,-n2)' löscht n2 marque (direction Stringanfang) ab n1 de hinten