DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦d00da7444⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SETTIME.K«

Derivation

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

Mikados K File

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);
        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);
END.

Mikados K File

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…143 Line {l1=0x17, l2=»        DAT:STRING(10);«, l3=0x17}
0x143…14a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x14a…166 Line {l1=0x1a, l2=»WRITELN('TID: HH.MM.SS ');«, l3=0x1a}
0x166…16f Line {l1=0x07, l2=»READLN;«, l3=0x07}
0x16f…18e Line {l1=0x1d, l2=»WRITELN('DATO: DD.MM.YYYY ');«, l3=0x1d}
0x18e…19c Line {l1=0x0c, l2=»READLN(TIM);«, l3=0x0c}
0x19c…1a8 Line {l1=0x0a, l2=»READ(DAT);«, l3=0x0a}
0x1a8…1b6 Line {l1=0x0c, l2=»CLEARSCREEN;«, l3=0x0c}
0x1b6…1c8 Line {l1=0x10, l2=»FOR I:=1 TO 8 DO«, l3=0x10}
0x1c8…1e2 Line {l1=0x18, l2=»CLOCK^.TIME(I):=TIM(I) ;«, l3=0x18}
0x1e2…20d Line {l1=0x29, l2=»FOR I:=1 TO 10 DO CLOCK^.DATE(I):=DAT(I);«, l3=0x29}
0x20d…213 Line {l1=0x04, l2=»END.«, l3=0x04}
0x213…220 00 00 63 63 63 63 63 63 63 63 63 63 63                                                            ┆  ccccccccccc┆
0x220…240 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┆
          […0xc…]
0x3c0…3e0 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 ┆

TextFile

\f

PROGRAM NIC;\f

,TYPE PARMARRAY=PACKED ARRAY (1..40) OF CHAR;,▶14◀CLOCKRECORD = RECORD▶14◀1               DATE:PACKED ARRAY (1..10) OF CHAR;1/               TIME:PACKED ARRAY (1..8) OF CHAR/▶12◀              END;▶12◀▶17◀VAR    PARM:^PARMARRAY;▶17◀▶1a◀       CLOCK:^CLOCKRECORD;▶1a◀▶11◀       I:INTEGER;▶11◀▶16◀        TIM:STRING(8);▶16◀▶17◀        DAT:STRING(10);▶17◀▶05◀BEGIN▶05◀▶1a◀WRITELN('TID: HH.MM.SS ');▶1a◀▶07◀READLN;▶07◀▶1d◀WRITELN('DATO: DD.MM.YYYY ');▶1d◀\f

READLN(TIM);\f


READ(DAT);
\f

CLEARSCREEN;\f

▶10◀FOR I:=1 TO 8 DO▶10◀▶18◀CLOCK^.TIME(I):=TIM(I) ;▶18◀)FOR I:=1 TO 10 DO CLOCK^.DATE(I):=DAT(I);)▶04◀END.▶04◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc▶00◀

Reduced view