|
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: 960 (0x3c0)
Types: TextFile
Notes: Mikados_K
Names: »STARTOP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »STARTOP.K«
PROGRAM NIC;
TYPE PARMARRAY=PACKED ARRAY (1..40) OF CHAR;
CLOCKRECORD = RECORD
DATE:PACKED ARRAY (1..10) OF CHAR;
TIME:PACKED ARRAY (1..8) OF CHAR
END;
VAR PARM:^PARMARRAY;
CLOCK:^CLOCKRECORD;
I:INTEGER;
TIM:STRING(8);
QUQ:^INTEGER;
DAT:STRING(10);
BEGIN
WRITELN('TID: HH.MM.SS ');
READLN;
WRITELN('DATO: DD.MM.YYYY ');
READLN(TIM);
READ(DAT);
CLEARSCREEN;
FOR I:=1 TO 8 DO
CLOCK^.TIME(I):=TIM(I) ;
FOR I:=1 TO 10 DO CLOCK^.DATE(I):=DAT(I);
CHAIN('INTRE *1','FORMULA:P2',QUQ);
WRITELN(QUQ^)
END.
0x000…00e Line {l1=0x0c, l2=»PROGRAM NIC;«, l3=0x0c}
0x00e…03c Line {l1=0x2c, l2=»TYPE PARMARRAY=PACKED ARRAY (1..40) OF CHAR;«, l3=0x2c}
0x03c…052 Line {l1=0x14, l2=»CLOCKRECORD = RECORD«, l3=0x14}
0x052…085 Line {l1=0x31, l2=» DATE:PACKED ARRAY (1..10) OF CHAR;«, l3=0x31}
0x085…0b6 Line {l1=0x2f, l2=» TIME:PACKED ARRAY (1..8) OF CHAR«, l3=0x2f}
0x0b6…0ca Line {l1=0x12, l2=» END;«, l3=0x12}
0x0ca…0e3 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0e3…0ff Line {l1=0x1a, l2=» CLOCK:^CLOCKRECORD;«, l3=0x1a}
0x0ff…112 Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x112…12a Line {l1=0x16, l2=» TIM:STRING(8);«, l3=0x16}
0x12a…141 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x141…15a Line {l1=0x17, l2=» DAT:STRING(10);«, l3=0x17}
0x15a…161 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x161…17d Line {l1=0x1a, l2=»WRITELN('TID: HH.MM.SS ');«, l3=0x1a}
0x17d…186 Line {l1=0x07, l2=»READLN;«, l3=0x07}
0x186…1a5 Line {l1=0x1d, l2=»WRITELN('DATO: DD.MM.YYYY ');«, l3=0x1d}
0x1a5…1b3 Line {l1=0x0c, l2=»READLN(TIM);«, l3=0x0c}
0x1b3…1bf Line {l1=0x0a, l2=»READ(DAT);«, l3=0x0a}
0x1bf…1cd Line {l1=0x0c, l2=»CLEARSCREEN;«, l3=0x0c}
0x1cd…1df Line {l1=0x10, l2=»FOR I:=1 TO 8 DO«, l3=0x10}
0x1df…1f9 Line {l1=0x18, l2=»CLOCK^.TIME(I):=TIM(I) ;«, l3=0x18}
0x1f9…224 Line {l1=0x29, l2=»FOR I:=1 TO 10 DO CLOCK^.DATE(I):=DAT(I);«, l3=0x29}
0x224…24b Line {l1=0x25, l2=»CHAIN('INTRE *1','FORMULA:P2',QUQ);«, l3=0x25}
0x24b…25a Line {l1=0x0d, l2=»WRITELN(QUQ^)«, l3=0x0d}
0x25a…260 Line {l1=0x04, l2=»END.«, l3=0x04}
0x260…280 00 00 52 3b 31 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 49 4d 45 3a 50 41 43 4b 45 44 ┆ R;1/ TIME:PACKED┆
0x280…2a0 20 41 52 52 41 59 20 28 31 2e 2e 38 29 20 4f 46 20 43 48 41 52 2f 12 20 20 20 20 20 20 20 20 20 ┆ ARRAY (1..8) OF CHAR/ ┆
0x2a0…2c0 20 20 20 20 20 45 4e 44 3b 12 17 56 41 52 20 20 20 20 50 41 52 4d 3a 5e 50 41 52 4d 41 52 52 41 ┆ END; VAR PARM:^PARMARRA┆
0x2c0…2e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x7…]