Time for an 2014 update…
This commit is contained in:
parent
372c577f83
commit
09687c4926
2520 changed files with 34227 additions and 7318 deletions
28
Task/Binary-strings/BASIC/binary-strings-1.basic
Normal file
28
Task/Binary-strings/BASIC/binary-strings-1.basic
Normal file
|
|
@ -0,0 +1,28 @@
|
|||
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 +
|
||||
Loading…
Add table
Add a link
Reference in a new issue