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.

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◀

Full view