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

⟦a6e902069⟧ Bits:30000639 Kt.nr.: 44 Type: A Program: Styring af Sommerfeld cox. Dato: 20…, 8-hole paper tape

    Length: 535 (0x217)
    Description: Bits:30000639 Kt.nr.: 44 Type: A Program: Styring af Sommerfeld cox. Dato: 20…
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

algol<

begin real a,b,c,d;
_____ ____

[end]

select(8); writechar(42); writetext(|<
                                    <

Sommerfeld cox
pr,pi,gr,gi

|);
>

A: a:=read real; b:=read real;

writecr; write(|__-pd.ddd|,a,b);
               <,,       >


if Sommerfeld cox(a,b,c,d) then
__                         ____


write(|__-pd.ddd_dd|,c,d) else
      <,,       ,  >      ____


writetext(|<udenfor|);
          <        >


goto A
____


end
___

[stop]