DataMuseum.dk

top - download

    Length: 1024 (0x400)
    Types: TextFile
    Names: »YWTIM«

└─⟦45bd0f8dd⟧ Bits:30000464 DOMUS disk image
    └─ ⟦this⟧ »/YWTIM« 
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
    └─ ⟦this⟧ »/YWTIM« 
└─⟦a2e222af0⟧ Bits:30001626 DOMUS disk image
    └─ ⟦this⟧ »/YWTIM« 

TextFile

CONST
TXT = 'JANFEBMARAPRMAIJUNJULAUGSEPOKTNOVDEZ',
NUL = '<0><0><0>';

VAR
A: INTEGER;
B: INTEGER;
S: STRING(17);
Z: FILE 'TIME',1,1,18,U
OF STRING(18);

PROCEDURE DELAY(CONST DTIME : INTEGER);
CODEBODY P0023;

PROCEDURE READS(VAR CPUSW : INTEGER);
CODEBODY RSW;

BEGIN
 OPEN(Z,1);
 A:=18;
 INSERT(32,S,6);
 INSERT(32,S,7);
 INSERT(0,S,16);
 REPEAT
  READS(B);
  IF B AND 8'100000 <> 0 THEN 
  BEGIN
   GETREC(Z,A);
   MOVE(NUL,0,S,0,3);
   MOVE(Z^,3,S,0,2);
   DECBIN(S,B);
   MOVE(TXT,(B-1)*3,S,3,3);
   MOVE(Z^,6,S,0,2);
   MOVE(Z^,10,S,8,8);
   INSERT(32,S,2);
   OPMESS(S);
  END;
  DELAY(10)
 UNTIL A <> 18;
 CLOSE(Z,1);
END;
*▶11◀«ff»
«nul»