|
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: 2304 (0x900)
Types: TextFile
Names: »ootx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »ootx «
mode list.yes
oo=algol survey.yes
begin
zone z (1, 1, squeeler);
integer i;
integer array zdescr (1:20);
integer array field name;
real array ra (1:1);
procedure squeeler (z, s, b);
zone z ;
integer s, b ;
begin
write (out,
"nl", 1, <:blockproc : z>:>, z, <: s>:>, s, <: b>:>, b);
setposition (out, 0, 0);
end;
movestring (ra, 1, <:abcdef:>);
name := 2;
getzone6 (out, zdescr);
open (z, 8, zdescr.name, 0);
write (out,
"nl", 1, <:write >:>);
setposition (out, 0, 0);
write (z, <:abcdef:>);
write (out,
"nl", 1, <:setposi.>:>);
setposition (out, 0, 0);
setposition (z, 0, 0);
write (out,
"nl", 1, <:outchar >:>);
setposition (out, 0, 0);
for i := 1 step 1 until 5 do
outchar (z, 'a' + i - 1);
write (out,
"nl", 1, <:setposi.>:>);
setposition (out, 0, 0);
setposition (z, 0, 0);
write (out,
"nl", 1, <:outchar >:>);
setposition (out, 0, 0);
for i := 1 step 1 until 6 do
outchar (z, 'a' + i - 1);
write (out,
"nl", 1, <:setposi.>:>);
setposition (out, 0, 0);
setposition (z, 0, 0);
write (out,
"nl", 1, <:outtext >:>);
setposition (out, 0, 0);
outtext (z, 6, ra, 1);
write (out,
"nl", 1, <:setposi.>:>);
setposition (out, 0, 0);
setposition (z, 0, 0);
write (out,
"nl", 1, <:outinte.>:>);
setposition (out, 0, 0);
outinteger (z, 6, 0, 123456);
write (out,
"nl", 1, <:setposi.>:>);
setposition (out, 0, 0);
setposition (z, 0, 0);
write (out,
"nl", 1, <:close >:>);
setposition (out, 0, 0);
close (z, true);
end;
▶EOF◀