DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SPRINT.K«

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »SPRINT.K« 

Mikados K File

PROGRAM SPRINT;
TYPE
POST=RECORD
       NR1,NR2:INTEGER;
       FNAVN:PACKED ARRAY (1..4) OF CHAR;
       KEY:PACKED ARRAY (1..26) OF CHAR;
       UNAVN:PACKED ARRAY (1..30) OF CHAR;
       ADR:PACKED ARRAY (1..30) OF CHAR;
       LANDSBY:PACKED ARRAY (1..20) OF CHAR;
       POSTNR:PACKED ARRAY (1..25) OF CHAR;
       TLF:PACKED ARRAY (1..10) OF CHAR
END;
VAR    FIL:STRING(20);
       T:FILE OF POST;
       QUQ:^INTEGER;
 
PROCEDURE PRINT;
BEGIN
  GET(T);
  WHILE NOT EOF(T) DO
  BEGIN
 WRITELN(LIST,T^.KEY:26,' , ',T^.FNAVN:4,' ':30,T^.NR1*10000.0+T^.NR2:8:-2);
    WRITELN(LIST,' ':29,T^.UNAVN);
    WRITELN(LIST,' ':29,T^.ADR);
    WRITELN(LIST,' ':29,T^.LANDSBY);
    WRITELN(LIST,' ':29,T^.POSTNR,'TLF: ':8,T^.TLF);
    WRITELN(LIST,' ');
    WRITELN(LIST,' ');
    WRITELN(LIST,' ');
    GET(T)
  END
END;
BEGIN
  FIL:='A1LISTE:P1:30:K';
  RESET(T,FIL);
  PRINT;
END.