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