DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tdanskærmta «

└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─ ⟦this⟧ »tdanskærmta « 

TextFile

danskærmtab=algol connect.no
begin
  integer max_antal_operatører;
  max_antal_operatører:= 28;

  begin
    zone stoptabel,skærmnavne,skærmdef(128,1,stderror);
    long array field laf;
    integer array field iaf;
    integer i;

    open(stoptabel,4,<:stoptabel:>,0);
    open(skærmnavne,4,<:skærmnavne:>,0);
    open(skærmdef,4,<:skærmdef:>,0);

    laf:= 4; iaf:= 2;
    outrec6(skærmnavne,512);
    skærmnavne.laf(0):= long<::>;
    tofrom(skærmnavne.laf,skærmnavne,508);
    laf:= 0;
    for i:= 1 step 1 until 23 do
      skærmnavne.laf(i):= long( case i of (
       <:NAT:>,<:BHI:>,<:IN1:>,<:BAR:>,<:BBA:>,<:BRY:>,<:BIS:>,<:BKG:>,
       <:IN2:>,<:FJB:>,<:LBA:>,<:PTB:>,<:DDB:>,<:DHU:>,<:BKO:>,<:LLH:>,
       <:DHH:>,<:UNI:>,<:UNS:>,<:LKH:>,<:LVA:>,<:LGL:>,<:LRO:>)) add 3;
    skærmnavne.laf(28):= long<:SVC:>;

    iaf:= 0; 
    for i:= 1 step 1 until 64 do
    begin
      outrec6(stoptabel,8);
      stoptabel.iaf(1):= i;
      stoptabel.iaf(2):= stoptabel.iaf(3):= stoptabel.iaf(4):= 0;
    end;

    for i:= 65 step 1 until 128 do
    begin
      outrec6(skærmdef,8);
      skærmdef(1):= skærmdef(2):= real<::>;
    end;

    close(stoptabel,true);
    close(skærmnavne,true);
    close(skærmdef,true);
  end;
end
▶EOF◀