Data update

This commit is contained in:
Ingy döt Net 2023-12-16 21:33:55 -08:00
parent 35bcdeebf8
commit 74c69a0df6
2427 changed files with 31826 additions and 3468 deletions

View file

@ -0,0 +1,21 @@
BEGIN
FILE str file;
STRING mhl;
associate( str file, mhl );
STRING extra := "little";
TO 2 DO
putf( str file, ( $"Mary had a "g" lamb."$, extra ) );
print( ( "1 result is: {{", mhl, "}}", newline ) );
mhl := "";
"supposedlly-" +=: extra
OD;
FORMAT extraf := $"little"$;
TO 2 DO
putf( str file, ( $"Mary had a "f(extraf)" lamb."$ ) );
print( ( "2 result is: {{", mhl, "}}", newline ) );
mhl := "";
extraf := $"medium-sized"$
OD
END

View file

@ -0,0 +1,2 @@
10 x$ = "big"
20 print "Mary had a "; x$; " lamb"

View file

@ -0,0 +1,2 @@
10 x$ = "big"
20 print "Mary had a "; x$; " lamb"

View file

@ -0,0 +1,5 @@
10 X$ = "big"
20 PRINT "Mary had a "; X$; " lamb"
30 X$ = "little"
40 PRINT USING "Mary also had a & lamb"; X$
50 END

View file

@ -0,0 +1,3 @@
10 LET X$ = "BIG"
20 PRINT "MARY HAD A "; X$; " LAMB"
30 END

View file

@ -0,0 +1,2 @@
10 LET X$ = "BIG"
20 PRINT "Mary had a "; x$; " lamb"

View file

@ -0,0 +1,9 @@
PROGRAM "String append"
VERSION "0.0000"
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
X$ = "big"
PRINT "Mary had a "; X$; " lamb"
END FUNCTION
END PROGRAN