S := "hello world";
D := OpenIString("", S); -- open the string S for input to CoCoA
-- the first argument is just a name for the device
L := Get(D,7); -- read 7 characters from the string
L; -- ASCII code
[104, 101, 108, 108, 111, 32, 119]
-------------------------------
ascii(L); -- convert ASCII code to characters
hello w
-------------------------------
Close(D); -- close device D
D := OpenOString(""); -- open a string for output from CoCoA
L := [1,2,3]; -- a list
Print L On D; -- print to D
D;
record[Name := "", Type := "OString", Protocol := "CoCoALanguage"]
-------------------------------
S := Cast(D, STRING); -- S is the string output printed on D
S; -- a string
[1, 2, 3]
Print " more characters" On D; -- append to the existing output string
Cast(D, STRING);
[1, 2, 3] more characters
-------------------------------
|