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

13
Task/Read-entire-file/XPL0/read-entire-file.xpl0 Normal file
View file

@ -0,0 +1,13 @@
include c:\cxpl\codes; \intrinsic 'code' declarations
string 0; \use zero-terminated string convention
int I;
char Str;
[Str:= GetHp; \starting address of block of local "heap" memory
I:= 0; \ [does the exact same thing as Reserve(0)]
loop [Str(I):= ChIn(1);
if Str(I) = $1A\EOF\ then [Str(I):= 0; quit];
I:= I+1;
];
SetHp(Str+I+1); \set heap pointer beyond Str (not really needed here)
Text(0, Str); \show file as a string
]