RosettaCodeData/Task/Substring-Top-and-tail/GW-BASIC/substring-top-and-tail.gw-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)