DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen GIER Computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen GIER Computer

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦f40aa6248⟧ Bits:30000635 Kt.nr.: 44 Type: A Program: Styre tilbag (?) Romberg special me…, 8-hole paper tape

    Length: 636 (0x27c)
    Description: Bits:30000635 Kt.nr.: 44 Type: A Program: Styre tilbag (?) Romberg special me…
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

edit,ofree<
     _

[stop]
algol<

algol,n<
      _


begin integer i,j,k,m,n;
_____ _______

select(17);
B: n:=read integer;

begin array r[1:n];
_____ _____


procedure H(a,s); real a; array s; begin
_________         ____    _____    _____


s[1]:=1; end;
         ___


copyromberg<
____


A: k:=read integer; if k_0 then goto B;
                    __  <  ____ ____

m:=read integer;

for i:=1 step 1 until k do
___      ____   _____   __


begin j:=m; Romberg special(H,n,0,1,-1,j,r) end;
_____                                       ___


writechar(23); goto A
               ____


end
___


end
___

run<
[stop] res,sc<t<