DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

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

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦6bb4412c8⟧ TextFile

    Length: 1408 (0x580)
    Types: TextFile
    Names: »HENTPOST.PAS«

Derivation

└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─ ⟦this⟧ »HENTPOST.PAS«

TextFile

        PROGRAM hentpost;
        
          TYPE
            medlemspost = RECORD
                            loebenr : INTEGER;
                            navn : STRING(.30.);
                            gade : STRING(.30.);
                            postnrby : STRING(.30.);
                            info : STRING(.100.);
                          END;
          
            register = FILE OF medlemspost;
            
          VAR
            medlem : medlemspost;
            registerfil : register;
            cpmnavn : STRING(.14.);
            
          BEGIN
            WRITE(CHR(12));
            WRITE('Hvad hedder kartoteket (CP/M navn): ');
            READLN(cpmnavn);
            ASSIGN(registerfil, cpmnavn);
            RESET(registerfil);
            WHILE NOT EOF(registerfil) DO
              BEGIN
                READ(registerfil, medlem);
                WITH medlem DO
                  BEGIN
                    WRITELN;
                    WRITELN('Medlemsnummer: ', loebenr);
                    WRITELN('Navn: ', navn);
                    WRITELN('Gade og nr: ', gade);
                    WRITELN('Postnr. og by: ', postnrby);
                    WRITELN('Oplysninger: ', info);
                  END;
              END;
            CLOSE(registerfil);
          END.
«eof»