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

LET s$ = "Rosetta Code"
PRINT s$
PRINT (s$)[2:maxnum]              !strip first
PRINT (s$)[1:len(s$)-1]           !strip last
PRINT (s$)[2:2+len(s$)-2-1]       !strip first and last
END