Initial data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions

View file

@ -0,0 +1,5 @@
print_all: procedure /* [↓] is the # of args passed.*/
do j=1 for arg()
say arg(j)
end /*j*/
return

View file

@ -0,0 +1,5 @@
print_all: procedure /* [↓] is the # of args passed.*/
do j=1 for arg()
say '[argument' j"]: " arg(j)
end /*j*/
return

View file

@ -0,0 +1,10 @@
call print_all .1,5,2,4,-3, 4.7e1, 013.000 ,, 8**2 -3, sign(-66), abs(-71.00), 8 || 9, 'seven numbers are prime, 8th is null'
call print_all "One ringy-dingy,",
"two ringy-dingy,",
"three ringy-dingy...",
"Hello? This is Ma Bell.",
"Have you been misusing your instrument?",
"(Lily Tomlin routine)"
/* [↑] example showing multi-line arguments.*/

View file

@ -0,0 +1,13 @@
/* REXX */
list=''
Do i=1 To 6
list=list||'"arg"'i','
End
list=list||'"end"'
Interpret 'call show' list
Exit
show: procedure
do j=1 for arg()
say arg(j)
end /*j*/
return