|
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: 768 (0x300)
Types: TextFile
Names: »swt«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦dd2c1b53f⟧ »tplot«
└─⟦this⟧
scope temp sss
clear temp sss
sss=set 200
scope user sss
sss=algol
begin
integer i;
real x;
write(out,<:<10>plotter (>0 houstona:>);outendcur(32);
read(in,i);
if i=0 then setplotname(<:tek4006a:>,0)
else setplotname(<:houstona:>,0);
plottstst:=false;
plotform(0,20,20);
plotend;
write(out,<:+:>);outendcur(32);
read(in,i);
if i<>0 then goto LEAVE;
plotadmini(-1,10,-1,10,0);
for x:=-1 step 0.5 until 10 do
begin
plotline(x,-1,x,10);
plotline(-1,x,10,x);
end;
writeplot(<:plottertest:>);
plotclose;
LEAVE:
end
▶EOF◀