|
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: 1536 (0x600)
Types: TextFile
Names: »tvisbplnavn «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »tvisbplnavn «
;visbplnavne
begin
integer max_antal_garager;
max_antal_garager:= 63;
begin
long array garagenavn(0:max_antal_garager);
zone z(128,1,stderror);
integer i;
garagenavn(0):= long<::>;
open(z,4,<:bplnavne:>,0);
inrec6(z,512);
tofrom(garagenavn,z,max_antal_garager*4);
close(z,true);
for i:= 1 step 1 until max_antal_garager do
garagenavn(i):= garagenavn(i) shift (-8) shift 8;
write(out,<:BETJENINGSPLADSER::>,"nl",1);
for i:= 1 step 1 until max_antal_garager do
begin
if garagenavn(i)<>long<::> then
write(out,<<ddd>,i,<:: :>,true,6,string garagenavn(i))
else
write(out,<<ddd>,i,<:: :>,<:- :>);
if i mod 5 = 0 then outchar(out,'nl') else write(out,"sp",3);
end;
write(out,"nl",1);
finis:
end;
trapmode:= 1 shift 10;
end
▶EOF◀