|
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: 23040 (0x5a00)
Types: TextFile
Names: »itestout«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »itestout«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »itestout«
*testcon=pascal list.yes codesize.200 heap.100
80.07.24. 11.08. pascal hcæ124æ version 1980.07.22
1
2 (*$C+*)
3 program testcon(input,output);
4 var
5 ch: char;
6 i,j,k,l: integer;
7 name: alfa;
8 0 begin
9 1 name:='connn ';
10 2 for k:=1 to 5 do
11 3 begin
12 4 i:=connectcuri(name);
13 5 if i<>0 then writeln('**** connect ',i)
14 6 else
15 7 repeat
16 8 read(ch);
17 9 if ord(ch)<>25 then write(chr(ord(ch)+k));
18 10 until ord(ch)=25;
19 11 unstackcuri;
********* ^131
20 12 end;
21 end.
\f
number of errors : 1
number of warnings: 0
error description
131: number of parameters does not agree with declaration
end
blocksread = 435
***fp name testcon
*mode list.no
▶EOF◀