|
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: »qqtx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »qqtx «
mode list.yes
qq=algol survey.yes
begin
zone z (128, 1, snooper);
long array field laf;
integer i;
procedure snooper (z, s, b);
zone z ;
integer s, b ;
begin
integer array zdescr (1:20);
getzone6 (z, zdescr);
write (out, "nl", 1, <:*** snooper ::>);
writeshare (z, zdescr (17));
if s <> 2 then
stderror (z, s, b);
end;
laf := 0;
for i := 1 step 1 until 128 do
z (i) := real <::>;
open (z, 20, <:0henrik31:>, -1);
setstate (z, 0);
outrec6 (z, 8);
write (z.laf, "a", 6, "b", 5);
write (out, "nl", 1, <:*** after outrec ::>);
writezone (z, 1);
setposition (z, 0, 0);
write (out, "nl", 1, <:*** after setposition ::>);
writezone (z, 1);
end;
▶EOF◀