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

s$ = "Rosetta Code"

PRINT s$
PRINT MID$(s$, 2)               'strip first
PRINT LEFT$(s$, LEN(s$) - 1)    'strip last
PRINT MID$(s$, 2, LEN(s$) - 2)  'strip first and last