RosettaCodeData/Task/Substring-Top-and-tail/MSX-Basic/substring-top-and-tail.basic

10 S$ = "Rosetta Code"
20 PRINT S$
30 PRINT MID$(S$, 2)              'strip first
40 PRINT LEFT$(S$, LEN(S$) - 1)   'strip last
50 PRINT MID$(S$, 2, LEN(S$) - 2) 'strip first and last