DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦ac210cf5a⟧ TextFile

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

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦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;
            ccpmnavn : STRING(.14.);
            
          BEGIN
            WRITE(CLRHOM);
            WRITE('Hvad hedder kartoteket (CCP/M navn): ');
            READLN(ccpmnavn);
            ASSIGN(registerfil, ccpmnavn);
            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»