|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
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«
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.
0x000…011 Line {l1=0x0f, l2=»PROGRAM SPRINT;«, l3=0x0f}
0x011…017 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x017…024 Line {l1=0x0b, l2=»POST=RECORD«, l3=0x0b}
0x024…03d Line {l1=0x17, l2=» NR1,NR2:INTEGER;«, l3=0x17}
0x03d…068 Line {l1=0x29, l2=» FNAVN:PACKED ARRAY (1..4) OF CHAR;«, l3=0x29}
0x068…092 Line {l1=0x28, l2=» KEY:PACKED ARRAY (1..26) OF CHAR;«, l3=0x28}
0x092…0be Line {l1=0x2a, l2=» UNAVN:PACKED ARRAY (1..30) OF CHAR;«, l3=0x2a}
0x0be…0e8 Line {l1=0x28, l2=» ADR:PACKED ARRAY (1..30) OF CHAR;«, l3=0x28}
0x0e8…116 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x116…143 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x143…16c Line {l1=0x27, l2=» TLF:PACKED ARRAY (1..10) OF CHAR«, l3=0x27}
0x16c…172 Line {l1=0x04, l2=»END;«, l3=0x04}
0x172…18a Line {l1=0x16, l2=»VAR FIL:STRING(20);«, l3=0x16}
0x18a…1a2 Line {l1=0x16, l2=» T:FILE OF POST;«, l3=0x16}
0x1a2…1b8 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x1b8…1bb Line {l1=0x01, l2=» «, l3=0x01}
0x1bb…1cd Line {l1=0x10, l2=»PROCEDURE PRINT;«, l3=0x10}
0x1cd…1d4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d4…1df Line {l1=0x09, l2=» GET(T);«, l3=0x09}
0x1df…1f6 Line {l1=0x15, l2=» WHILE NOT EOF(T) DO«, l3=0x15}
0x1f6…1ff Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1ff…24d Line {l1=0x4c, l2=» WRITELN(LIST,T^.KEY:26,' , ',T^.FNAVN:4,' ':30,T^.NR1*10000.0+T^.NR2:8:-2);«, l3=0x4c}
0x24d…271 Line {l1=0x22, l2=» WRITELN(LIST,' ':29,T^.UNAVN);«, l3=0x22}
0x271…293 Line {l1=0x20, l2=» WRITELN(LIST,' ':29,T^.ADR);«, l3=0x20}
0x293…2b9 Line {l1=0x24, l2=» WRITELN(LIST,' ':29,T^.LANDSBY);«, l3=0x24}
0x2b9…2ef Line {l1=0x34, l2=» WRITELN(LIST,' ':29,T^.POSTNR,'TLF: ':8,T^.TLF);«, l3=0x34}
0x2ef…307 Line {l1=0x16, l2=» WRITELN(LIST,' ');«, l3=0x16}
[…0x2…]
0x337…343 Line {l1=0x0a, l2=» GET(T)«, l3=0x0a}
0x343…34a Line {l1=0x05, l2=» END«, l3=0x05}
0x34a…350 Line {l1=0x04, l2=»END;«, l3=0x04}
0x350…357 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x357…372 Line {l1=0x19, l2=» FIL:='A1LISTE:P1:30:K';«, l3=0x19}
0x372…383 Line {l1=0x0f, l2=» RESET(T,FIL);«, l3=0x0f}
0x383…38d Line {l1=0x08, l2=» PRINT;«, l3=0x08}
0x38d…393 Line {l1=0x04, l2=»END.«, l3=0x04}
0x393…3a0 00 00 53 54 2c 27 20 27 29 3b 16 0a 20 ┆ ST,' '); ┆
0x3a0…3c0 20 20 20 47 45 54 28 54 29 0a 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 19 20 ┆ GET(T) END END; BEGIN ┆
0x3c0…3e0 20 46 49 4c 3a 3d 27 41 31 4c 49 53 54 45 3a 50 31 3a 33 30 3a 4b 27 3b 19 0f 20 20 52 45 53 45 ┆ FIL:='A1LISTE:P1:30:K'; RESE┆
0x3e0…400 54 28 54 2c 46 49 4c 29 3b 0f 08 20 20 50 52 49 4e 54 3b 08 19 20 20 46 49 4c 3a 3d 27 50 52 4f ┆T(T,FIL); PRINT; FIL:='PRO┆
0x400…420 43 53 54 41 54 3a 50 32 3a 30 3a 49 27 3b 19 07 28 2a 24 43 2d 2a 29 07 08 20 20 52 45 50 45 41 ┆CSTAT:P2:0:I'; (*$C-*) REPEA┆
0x420…440 54 08 16 20 20 20 20 52 45 57 52 49 54 45 28 4e 52 50 46 2c 46 49 4c 29 3b 16 10 20 20 20 20 53 ┆T REWRITE(NRPF,FIL); S┆
0x440…460 45 45 4b 28 4e 52 50 46 2c 31 29 10 13 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b ┆EEK(NRPF,1) UNTIL IORESULT=0;┆
0x460…480 13 07 28 2a 24 43 2b 2a 29 07 0c 20 20 47 45 54 28 4e 52 50 46 29 3b 0c 0e 20 20 4e 52 50 46 5e ┆ (*$C+*) GET(NRPF); NRPF^┆
0x480…4a0 2e 4e 50 3a 3d 31 3b 0e 0f 20 20 53 45 45 4b 28 4e 52 50 46 2c 31 29 3b 0f 0c 20 20 50 55 54 28 ┆.NP:=1; SEEK(NRPF,1); PUT(┆
0x4a0…4c0 4e 52 50 46 29 3b 0c 08 20 20 52 45 50 45 41 54 08 11 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 ┆NRPF); REPEAT GOTOXY(1,2┆
0x4c0…4e0 30 29 3b 11 33 20 20 20 20 57 52 49 54 45 4c 4e 28 27 53 7b 74 20 70 6c 61 64 65 20 31 20 69 20 ┆0); 3 WRITELN('Sæt plade 1 i ┆
0x4e0…500 64 72 65 76 20 31 20 6f 67 20 74 72 79 6b 20 52 45 54 55 52 4e 27 29 3b 33 0b 20 20 20 20 52 45 ┆drev 1 og tryk RETURN');3 RE┆
0x500…520 41 44 4c 4e 3b 0b 07 28 2a 24 43 2d 2a 29 07 1c 20 20 20 20 52 45 57 52 49 54 45 28 43 46 2c 27 ┆ADLN; (*$C-*) REWRITE(CF,'┆
0x520…540 43 31 3a 50 31 3a 30 3a 4a 27 29 3b 1c 0e 20 20 20 20 53 45 45 4b 28 43 46 2c 31 29 0e 07 28 2a ┆C1:P1:0:J'); SEEK(CF,1) (*┆
0x540…560 24 43 2b 2a 29 07 13 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 13 0c 20 20 43 4c ┆$C+*) UNTIL IORESULT=0; CL┆
0x560…580 4f 53 45 28 43 46 29 3b 0c 0e 20 20 43 4c 4f 53 45 28 4e 52 50 46 29 3b 0e 24 20 20 43 48 41 49 ┆OSE(CF); CLOSE(NRPF); $ CHAI┆
0x580…5a0 4e 28 27 49 4e 54 52 45 20 20 20 2a 31 27 2c 27 48 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 ┆N('INTRE *1','HOVSA:P1',QUQ)$ ┆
0x5a0…5c0 45 4e 44 2e 04 00 00 20 41 44 52 3a 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 33 30 29 ┆END. ADR:PACKED ARRAY (1..30)┆
0x5c0…5e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1e…]
0x9a0…9c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆