|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1408 (0x580)
Types: TextFile
Names: »HENTPOST.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─ ⟦this⟧ »HENTPOST.PAS«
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
└─ ⟦this⟧ »HENTPOST.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─ ⟦this⟧ »HENTPOST.PAS«
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»