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

⟦d6557efeb⟧ Bits:30000615 PIFFO II, 8-hole paper tape

    Length: 1744 (0x6d0)
    Description: Bits:30000615 PIFFO II
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

begin real pris,ubet;
_____ ____


integer dato,maaned,aar,kvartal;
_______


switch A:=a,b,c,d,e,f,g,h,i,j,k,l;
______


switch B:=m,n,o,p;
______


writetext(|<
          <


dato= |); dato:=typein; writetext(|<
      >                           <


maaned= |); maaned:=typein; writetext(|<
        >                             <


aar= |); aar:=typein; writetext(|<
     >                          <


kvartal= |); kvartal:=typein; writetext(|<
         >                              <


pris= |); pris:=typein; writetext(|<
      >                           <


klar|); ubet:=typein;
    >


Q:writetext(|<
            <

_

RCs PERSONALEFORENING                      Præstø den.|);
                                                      >


write(|ndd|,dato);
      <   >


go to A[maaned];
__ __


C:write(|ndddd|,aar);
        <     >


writecopy(|<,|);
          <  >


writetext(|<
          <


Betalt kontingent for |); go to B[kvartal];
                      >   __ __


D:writetext(|< kvartal kr.|); write(|ndd.dd|,pris);
            <             >         <      >


writetext(|<
          <

SLUT OP OM PERSONALEFORENINGENS                   K. Bruun

      ARRANGEMENTER                             pt. kasserer|);
                                                            >


go to Q;
__ __


a: writetext(|< jan|); go to C;
             <     >   __ __


b:writetext(|< feb|); go to C;
            <     >   __ __


c:writetext(|< mar|); go to C;
            <     >   __ __


d:writetext(|< apr|); go to C;
            <     >   __ __


e:writetext(|< maj|); go to C;
            <     >   __ __


f:writetext(|< jun|); go to C;
            <     >   __ __


g:writetext(|< jul|); go to C;
            <     >   __ __


h:writetext(|< aug|); go to c;
            <     >   __ __


i:writetext(|< sep|); go to C;
            <     >   __ __


j:writetext(|< okt|); go to C;
            <     >   __ __


k:writetext(|< nov|); go to C;
            <     >   __ __


l:writetext(|< dec|); go to C;
            <     >   __ __


m:writetext(|< januar|); go to D;
            <        >   __ __


n:writetext(|< april|); go to D;
            <       >   __ __


o:writetext(|< juli|); go to D;
            <      >   __ __


p:writetext(|< oktober|); go to D;
            <         >   __ __


end;
___

K.Bruun,