|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »tcontest«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tcontest«
mode list.yes
connn=set 1
connn=edit
i/
111111111111111111
222222222222222222
333333333333333333
/,f
conout=set 30
scope user conout
;wa
;o u80
edit connn
p b,f
;o conout
testcon=pascal list.yes codesize.200 heap.100
(*$C-*)
program testcon(input,output);
var
ch: char;
i,j,k,l: integer;
name: alfa;
begin
name:='connn ';
for k:=1 to 2 do
begin
i:=connectcuri(name);
writeln;
j:=0;
reset(input);
if i<>0 then writeln('**** connect ',i)
else
repeat
read(ch);
if ch=nl then j:=0 else j:=j+1;
if ord(ch)<>25 then write(ch);
if j mod 20=0 then writeln;
until eof(input);
writeln;
unstackcuri;
end;
end.
;
testcon
mode list.no
finis
▶EOF◀