14 lines
301 B
Text
14 lines
301 B
Text
PROGRAM "progname"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
s$ = " \tRosetta Code \v\f\r\n"
|
|
|
|
PRINT LTRIM$(s$) ' remove leading whitespace
|
|
PRINT RTRIM$(s$) ' remove trailing whitespace
|
|
PRINT TRIM$(s$) ' remove both leading and trailing whitespace
|
|
|
|
END FUNCTION
|
|
END PROGRAM
|