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

⟦2d3715298⟧ Bits:30000694 Fred Flintstone program, 8-hole paper tape

    Length: 444 (0x1bc)
    Description: Bits:30000694 Fred Flintstone program
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

[tab] Plotter program
algol<

begin
_____


integer n,n1;
_______

select(32);
writecr;
n:=0;
fortsæt : n1:=read real;

if n1=-1 then writecr else begin
__       ____         ____ _____


if n1|0then for n:=0 step 1 until n1-1 do
__   = ____ ___      ____   _____      __


writetext(|< |);
          <  >


writetext(|<x|);end;
          <  >  ___


if n1|-2 then go to fortsæt;
__   =   ____ __ __

writecr;
writecr;
writecr;

writetext(|<Copyright Wisti Jensen|);
          <                       >


end
___

t<