'MID$-Demo COLOR 15, 1 CLS PRINT "Gib eine Zeichenkette ein!" COLOR 14 LINE INPUT Zeichenkette$ PRINT COLOR 15 PRINT "Die ersten sechs Zeichen der eingegebenen Zeichenkette lauten "; COLOR 14 PRINT MID$(Zeichenkette$, 1, 6); COLOR 15 PRINT "." PRINT PRINT "Die Zeichen 2 bis 4 lauten "; COLOR 14 PRINT MID$(Zeichenkette$, 2, 3); COLOR 15 PRINT "."