13 lines
515 B
Text
13 lines
515 B
Text
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
|
|
]
|