DataMuseum.dk

top - metrics - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »tstduscat«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tstduscat« 

TextFile

(mode list.yes
stduscat=set 40 disc3
scope user stduscat
stduscat=algol blocks.yes list.yes
if warning.no
osstd=stduscat
scope user osstd
mode list.no
)
1982.03.16
begin
integer i,j,projno,user,plow,pupper,c,char,userb;
real fac,efac;
boolean userlimit,delete,size;
long array name,pname,disc,disc1,usl(1:3);

procedure writeuser(name,user);
value user; integer user;
long array name;
begin
if delete then
write(out,"nl",2,<:usercatup delete.:>,true,11,name); 
write(out,<:
usercatup insert.:>,true,11,name,<:,
,*****************************
:>);
if size then
write(out,<:comm.      size,
:>);
if user=0 and userb<0 then write(out,<:user.:>,<< dddddd>,
   if plow<0    then <:n.:> else <::>,abs plow,<:.:>,
   if pupper<0  then <:n.:> else <::>,abs pupper,<:,
:>);
if userb>=0 and user<>0 then write(out,<:user.:>,<< dddddd>,userb+(user-1)*10,
    <:.:>,userb+user*10-1,<:,
:>);
write(out,<:max.:>,<< dddddd>,if plow<0 then <:n.:> else <::>, abs plow,
<:.:>,if pupper<0 then <:n.:> else <::>,abs pupper,<:,
project.:>,projno,<:.:>,user,<:,
:>);
if user=0 then write(out,<:drum.0.50.drum :>,
  disc,<:.150.75.disc :>,disc1,<:.150.75.disc1:>)
else write(out,<:drum.0.:>,<<ddd>,25*efac,<:.drum :>,
   disc,<:.:>,<<dddd>,150*fac,<:.:>,75*efac,<:.disc :>,
   disc1,<:.:>,<<dddd>,150*fac,<:.:>,75*efac,<:.disc1:>);
write(out,"nl",1);
end writeuser;

connectlso;
readbfp(<:delete:>,delete,false);
readstring(in,name,1);

repeat <*project*>
if name(1)=long <:proje:> add 'c' then
begin
  readstring(in,pname,1);
  read(in,projno,plow,pupper);
  readchar(in,char);
  repeatchar(in);
  userb:=-1;
  if char>='0' and char<='9' then
      read(in,userb);
  readstring(in,disc,1);
  readstring(in,disc1,1);
  repeatchar(in); readchar(in,char);
  size:=userlimit:=false;
  if char='sp' then
  begin
    readstring(in,usl,1);
    userlimit:=usl(1)=long <:userl:> add 'i';
    if userlimit then userb:=plow;
    size:=usl(1)=long <:size:>;
  end;
  user:=0;
  writeuser(pname,0);

  repeat <*user*>
  readstring(in,name,1);
  if name(1)<>long <:proje:> add 'c' and name(1)<>long <:end:> then
  begin
    read(in,user);
    efac:=fac:=1;
    repeatchar(in);
    c:=readchar(in,char);
    if char='sp' then
    begin
     read(in,fac);
     repeatchar(in); readchar(in,char);
     if char='sp' then read(in,efac);
    end;
    if userlimit then
    begin
     plow:=userb+(user-1)*10;
     pupper:=userb+user*10-1;
    end;
    writeuser(name,user);
  end write user;

  until name(1)=long <:proje:> add 'c' or name(1)=long <:end:>;

end project;

until name(1)=long <:end:>;
if fpout then closeout;

end;
project op 11 -8388607 8388605 0 disc1 disc3 size
opsys 205 2
mux 208
project compiler 12 0 1999 disc1 disc3 size
algsys 61
forsys 62
passys 63
nextsys 64

project mon 13 0 8388604 2000 disc1 disc3

project lib 14 2060 2999 2060 disc4 disc5
alef 1
helena 2
project edb 21 0 1999 disc2 disc3 size
gc 1
xnh 3
ape 5
cg 7 2 2
jo 9
psl 11
al 13 2
tws 15
esq 17
vk 19
kak 21

project edb1 22 0 9999 disc2 disc3

project hcøadm 25 2000 2999 disc4 disc5
hcø 1 0.5 0.5


project basicop 30 3000 3999 disc4 disc5
basic 1

project kl1 100 10000 19999 disc disc5
seh 1
asb 2
ask 3
bsr 4
fhj 5
mbn 6
mhh 7
mjb 8
omm 9
omp 10
pot 11
sol 12
thd 13

project kl2 200 20000 29999 disc disc5
bsa 1
fin 2
jhj 3
rmj 4

project kl3 300 30000 39999 disc disc5
pgs 1
met 2
rm 3
ojh 5
ka 6
fh 7
lu 8
jsr 9
chr 10 0.5 0.5
enp 11 0.5 0.5
esb 12 0.5 0.5
ger 13 0.5 0.5
jvb 14
kai 15 0.5 0.5
khe 16 0.5 0.5
mar 17 0.5 0.5
shv 18 0.5 0.5

project kl4 400 40000 49999 disc disc5
orm 1
asp 2
dan 3
fgr 4
ksl 5
kva 6
pjm 7

project kl5 500 50000 59999 disc disc5
led 1
ofn 2
pal 3
dhc 4
nwl 5
gos 6

project fl1 700 70000 79999 disc4 disc5
klr 1
jbn 2
jfa 3
mos 4

project fl2 800 80000 89999 disc4 disc5
eve 1
noa 2
sst 3
ba 4
apo 5
jso 6
project lpk 1200 120000 129999 disc4 disc5 userlimit
pka 1 0.4 0.4
pkb 2 0.4 0.4
pkc 3 0.4 0.4
pkd 4 0.4 0.4
pke 5 0.4 0.4
pkf 6 0.4 0.4
pkg 7 0.4 0.4
pkh 8 0.4 0.4
project div 1500 150000 159999 disc4 disc5 size
gsp 1
end
▶EOF◀