seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-25 01:14:21 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SAMPLE CODE/PLI PROG SAMPLE CODE/COPY.PLI Normal file
View File

@@ -0,0 +1,24 @@
/*****************************************************/
/* This program copies one file to another using */
/* buffered I/O. */
/*****************************************************/
copy:
procedure options(main);
declare
(input_file,output_file) file;
open file (input_file) stream
environment(b(8192)) title('$1.$1');
open file (output_file) stream output
environment(b(8192)) title('$2.$2');
declare
buff character(254) varying;
do while('1'b);
read file (input_file) into (buff);
write file (output_file) from (buff);
end;
end copy;