|
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: »topskærm «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »topskærm «
begin
procedure cursor(z,linie,pos);
value linie,pos;
zone z;
integer linie,pos;
begin
if linie>0 and linie<25
and pos>0 and pos<81 then
begin
write(z,"esc" add 128,1,<:Æ:>,
<<d>,linie,<:;:>,pos,<:H:>);
end;
end cursor;
procedure skriv_skærm_maske(nr);
value nr;
integer nr;
begin
integer i;
<*V*> setposition(out,0,0);
write(out,"esc" add 128,1,<:ÆH:>,"esc" add 128,1,<:ÆJ:>,
"sp",29,"*",5,<: operatør :>,<<d_>,nr,
"*",5,"nl",1,"-",80);
for i:= 3 step 1 until 21 do
begin
cursor(out,i,26);
outchar(out,'!');
end;
cursor(out,22,1);
write(out,"-",80);
cursor(out,1,1);
<*V*> setposition(out,0,0);
end skriv_skærm_maske;
skriv_skærm_maske(0);
cursor(out,23,1);
outchar(out,'>');
setposition(out,0,0);
trapmode:= 1 shift 10;
end
▶EOF◀