DataMuseum.dk

top - metrics - download

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

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦2ed16a21a⟧ »cappli« 
            └─⟦this⟧ 

TextFile

<se *<
*pl 297,18,250,4,3**pn 0,0*
*lw 175**ps 0**sj*
*ld8*
*sj*
Anders Lindgård
Edb-afdelingen
H. C. Ørsted Institutet
Københavns Universitet
Universitetsparken 5
2100 København Ø
(01) 35 31 33
*qr*
1979-12-10
*nl2*
*sj*
Tyge Lehmann
Udenrigsministeriet
*rj**nl1**np*
Kære Tyge Lehmann
*nl1**np*
Ad Davids fond
*nl**np*
*nl**np*
Til brug for atomfysiske beregninger mangler jeg meget en edb-terminal,
som det er svært at få bevilget gennem forskningsrådende, idet de ikke bevilger
udstyr af mere generel karakter.
*nl**np*
Terminalen skal anvendes i forbindelse med opgaver indenfor atomfysikken,
som har relevans for kærnefusions forskningen. Man arbejder meget intenst på
at få sammensmeltning af lette atomkærner (kærnefusion) til
at blive fremtidens uudtømmelige where(<:initnextjob:>,0,0,0,0);
<*
if bandd then BatesandDamgård;
*>
readsfp(<:data:>,FP);
if bsdata then getandcalc(FP);
START:
lin:=0;
if stxs>0 then begin
  stxb:=1000*stxb;
  stxe:=1000*stxe+1000;
  stxs:=1000*stxs;
  for extype:=stxb+1000 step stxs until stxe do begin
  nyR:=first:=true; <* bery(R,n1,n2,l1,l2); rydiag(n1,n2,l1,l2); *> end;
  goto ENDP
  end;
  r:=100*R;
  for extype:=extype step 1 until noex do begin
  for scfc:=1 step 1 until scfitr do begin
  connectprim;
  write(out,nl,1,<:iteration  :>,scfc,<:  extype  :>,extype);
  DATO;
  endprim;
  nyR:=first:=true;
<*
  bery(R,n1,n2,l1,l2);
  rydiag(n1,n2,l1,l2);
*>
  extype:=extype+10;
  end iteration;
  extype:=extype mod 10;
end exchange loop;
ENDP:
writestat;
func:=true;
if next then begin