aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Write-entire-file/REXX/write-entire-file-1.rexx Normal file
View file

@ -0,0 +1,8 @@
/*REXX*/
of='file.txt'
'erase' of
s=copies('1234567890',10000)
Call charout of,s
Call lineout of
Say chars(of) length(s)

8
Task/Write-entire-file/REXX/write-entire-file-2.rexx Normal file
View file

@ -0,0 +1,8 @@
/*REXX program writes an entire file with a single write (a long text record). */
oFID= 'OUTPUT.DAT' /*name of the output file to be used. */
/* [↓] 50 bytes, including the fences.*/
$ = '<<<This is the text that is written to a file. >>>'
/* [↓] COPIES creates a 50k byte str.*/
call charout oFID, copies($,1000), 1 /*write the longish text to the file. */
/* [↑] the "1" writes text ──► rec #1*/
/*stick a fork in it, we're all done. */