|
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: »worddefotx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »worddefotx «
mode list.yes
worddefo=algol survey.yes
begin
zone z ((4*512)//4, 1, worddef);
integer t, i, j;
real abc;
procedure worddef (z, s, b);
value s, b ;
zone z ;
integer s, b ;
begin
if s extract 1 = 1 then
stderror (z, s, b);
end;
t := 1; <*track*>
abc := real <:abcab:> add 'c';
open (z, t shift 16 + 0 shift 12 + 18, <:mtfg2741:>, 1 shift 7);
setposition (z, 1, 0);
for j := 1 step 1 until 5 do
begin
outrec (z, 512);
for i := 1 step 1 until 4 * 128 do
z (i) := abc;
end;
close (z, true);
end;
▶EOF◀