29 lines
890 B
Plaintext
29 lines
890 B
Plaintext
REM STRING CREATION AND DESTRUCTION (WHEN NEEDED AND IF THERE'S NO GARBAGE COLLECTION OR SIMILAR MECHANISM)
|
|
A$ = "STRING" : REM CREATION
|
|
A$ = "" : REM DESTRUCTION
|
|
PRINT FRE(0) : REM GARBAGE COLLECTION
|
|
|
|
REM STRING ASSIGNMENT
|
|
A$ = "STRING" : R$ = "DEUX"
|
|
|
|
REM STRING COMPARISON
|
|
PRINT A$ = B$; A$ <> B$; A$ < B$; A$ > B$; A$ <= B$; A$ >= B$
|
|
|
|
REM STRING CLONING AND COPYING
|
|
B$ = A$
|
|
|
|
REM CHECK IF A STRING IS EMPTY
|
|
PRINT LEN(A$) = 0
|
|
|
|
REM APPEND A BYTE TO A STRING
|
|
A$ = A$ + CHR$(0)
|
|
|
|
REM EXTRACT A SUBSTRING FROM A STRING
|
|
S$ = MID$(A$, 2, 3)
|
|
|
|
REM REPLACE EVERY OCCURRENCE OF A BYTE (OR A STRING) IN A STRING WITH ANOTHER STRING
|
|
S = LEN(S$) : R = LEN(R$) : A = LEN(A$) : IF A > S THEN B$ = "" : FOR I = 1 TO A : F = MID$(A$, I, S) = S$ : B$ = B$ + MID$(R$, 1, R * F) + MID$(A$, I, F = 0) : NEXT I : A$ = B$ : PRINT A$
|
|
|
|
REM JOIN STRINGS
|
|
J$ = A$ + STR$(42) + " PUDDLES " + B$ + CHR$(255) : REM USE +
|