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

10 a$="knight":b$="socks":c$="brooms"
20 PRINT MID$(a$,2)
30 PRINT LEFT$(b$,LEN(b$)-1)
40 PRINT MID$(c$,2,LEN(c$)-2)