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 - metrics - download

⟦1c7cff9bc⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »OMVEND.PAS«

Derivation

└─⟦49cd49952⟧ Bits:30009431 50004848
    └─⟦0c326962c⟧ 
        └─⟦this⟧ »OMVEND.PAS«

TextFile

PROGRAM OMVEND;
TYPE infp = ^inf;
     inf  = record
            lb : 100..99999;nr. : 100000..9999999;
            gift : BOOLEAN; NEXT : infp
            END;
         
VAR stand : 0..1;
    telefonnr : 1000000..9999999;
    mark , lbnr : -99999..99999;
    p , pf : infp;
BEGIN readln (pointh);
  read (lbnr); p := nil;
  while lbnr <> mark do
  BEGIN
    readln (telefonnr,stand);
    PF := P; new (p);
    with P^ do
    BEGIN
      lb := lbnr;nr : telefonnr; gift :=stand=0;next : PF
    END;
    read (lbnr)
  END
  while P <> nil do with P^ do
  BEGIN
    write ln (lb,nr,gift); P :=next
  END;
END.
«eof»