DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦083bcdf47⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »initgnavntx «

Derivation

└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
    └─⟦6a563b143⟧ 
        └─⟦this⟧ »initgnavntx « 
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─⟦this⟧ »initgnavntx «

TextFile

external
procedure initgnavn(garagenavn);
long array garagenavn;
begin
integer i,low,up;

low:=system(3,up,garagenavn);

for i:= 0 step 1 until up do
  garagenavn(i):= long( case i+1 of (
<:___:>,<:DSV:>,<:UNI:>,<:CIT:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,
<:___:>,<:TCT:>,<:IRL:>,<:ART:>,<:RYV:>,<:ØRV:>,<:ISL:>,<:VAL:>,<:HUS:>,<:___:>,
<:___:>,<:HHL:>,<:DHB:>,<:BIB:>,<:KOK:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,
<:___:>,<:GLX:>,<:DBB:>,<:HCS:>,<:THR:>,<:BAB:>,<:___:>,<:___:>,<:___:>,<:___:>,
<:___:>,<:KJ:> ,<:THO:>,<:HVR:>,<:STT:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,
<:___:>,<:HI:> ,<:HIB:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,
<:___:>,<:HG:> ,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,
<:___:>,<:BA:> ,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,
<:___:>,<:RO:> ,<:ROT:>,<:ALJ:>,<:TÅB:>,<:ROM:>,<:KWK:>,<:___:>,<:___:>,<:___:>,
<:___:>,<:FS:> ,<:CHS:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,<:___:>,
<::>));
end;
end
▶EOF◀