Data update
This commit is contained in:
parent
35bcdeebf8
commit
74c69a0df6
2427 changed files with 31826 additions and 3468 deletions
|
|
@ -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
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
10 x$ = "big"
|
||||
20 print "Mary had a "; x$; " lamb"
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
10 x$ = "big"
|
||||
20 print "Mary had a "; x$; " lamb"
|
||||
|
|
@ -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
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
10 LET X$ = "BIG"
|
||||
20 PRINT "MARY HAD A "; X$; " LAMB"
|
||||
30 END
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
10 LET X$ = "BIG"
|
||||
20 PRINT "Mary had a "; x$; " lamb"
|
||||
|
|
@ -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
|
||||
Loading…
Add table
Add a link
Reference in a new issue