DataMuseum.dk

top - metrics - download

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

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »hbepitext« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »hbepitext« 

TextFile

;nhp
clear hbepi
hbepi=set 130
permanent hbepi.22

hbepi=algol message.no
begin
      real r1,r2,t,s;
      integer k1,k2,i,j,nx,gx,ny,gy;
      boolean ramme;
      real array name(1:2);
      integer array svar,besked(1:8),buf(0:3);

   if system(4,1,name)=0 then
   begin
    name(1):=real<:tek40:> add 48;  name(2):=real<:6a:>;
   end;

      i:= getclock extract 22;
      r1:= 95+200*random(i);
      r2:= 390 - r1;
      random(i);
      k1:= 1+i mod 13;
      random(i);
      k2:= 1+i mod 13;
      j:= gcd(k1,k2);
      k1:= k1//j;
      k2:= k2//j;
      s:= r1*k1+r2*k2;
      t:= 4*r1*k1*r2*k2/(s*s);
      s:= s*(1-t/4-3/64*t*t-5/256*t**3-175/16484*t**4); 
      s:= 30/s;
      random(i);
      k1:= sgn(4194293-i)*k1;
   i:=1; setplotname(string name(increase(i)),0);

   if system(4,2,name)=0 then name(1):=3;
   ramme:= abs name(1)>=10;
   if ramme then name(1):= name(1)-10;
   if abs name(1)>3 then name(1):=3;
   saveplot(name(1),<::>,0);
   plotform(if ramme then 0 else 10,6,6);
  plotscale(0,600,0,600);
   plotcurve(600+r1*sin(k1*t)+r2*sin(k2*t),
            600+r1*cos(k1*t)+r2*cos(k2*t),
          t,0,2*pi,s);
plotclose;
endprogram(true);
end
▶EOF◀