Download the PDF documentation - True BASIC

29
True BASIC Language System
REPSTR$ Function
Library:
Syntax:
Usage:
Summary:
Details:
Example:
STRLIB.TRC
REPSTR$ (strex, strex, strex)
LET a$ = REPSTR$ (text$, old$, new$)
Returns the value of text$ with all occurrences of the value of old$ replaced by the value
of new$.
The REPSTR$ function replaces occurrences of one substring with another. It returns the
value of text$ after having replaced any occurrences of the value of old$ with the value of
new$.
If the value of old$ does not appear within the value of text$, the REPSTR$ function
returns the value of text$ untouched.
The following program:
LIBRARY “STRLIB.TRC”
DECLARE DEF RepStr$
OPEN #1: NAME “InFile”, ORG BYTE
OPEN #2: NAME “OutFile”, CREATE NEW, ORG BYTE
LET cr$ = Chr$(13)
LET crlf$ = cr$ & Chr$(10)
DO WHILE MORE #1
READ #1, BYTES 10000: block$
WRITE #2: RepStr$(line$, cr$, crlf$)
LOOP
Exceptions:
See also:
END
copies the contents of the file named INFILE to the newly created file named OUTFILE,
changing all occurrences of a carriage return to a carriage return followed by a line feed.
None
REPMIX$, REPCHAR$, DELSTR$, PLUGSTR$
REVERSE$ Function
Library:
Syntax:
Usage:
Summary:
Details:
Example:
STRLIB.TRC
REVERSE$ (strex)
LET a$ = REVERSE$ (string$)
Returns the value of its argument string$ with all of its characters in reverse order.
The REVERSE$ function accepts a string argument, reverses the order of the characters
which it contains, and returns the result.
If the value of its argument is the null string, the REVERSE$ function will return the null
string.
The following program:
LIBRARY "StrLib.trc"
DECLARE DEF Reverse$
DIM text$(3)
MAT READ text$
DATA madam, im, adam
FOR i = 1 to 3
IF text$(i) = Reverse$(text$(i)) then
PRINT text$(i); " is a palindrome"
ELSE