DataMuseum.dk

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« 

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