|
PROGRAM "Substring"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
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
|
|
|
|
END FUNCTION
|
|
END PROGRAM
|