DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

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

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦703e67b68⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »wrdatetimtx«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦80900d603⟧ »giprocfile« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦80900d603⟧ »giprocfile« 
            └─⟦this⟧

TextFile



;       wr_date_tim_tx        * page 1   13 09 77, 11.12;  

;  wr_date_time
;  ************

if listing.yes
char 10 12 10

wr_date_time = set 1 disc

wr_date_time = algol

external integer procedure wr_date_time  
_______________________________________
_                (z, tmdt);  
value                tmdt;  
zone              z;  
long                 tmdt;  
wr_date_time := write(z, 
<<_-dd_dd_dd>, tmdt//10 000, <:, :>, 
<<dd.dd>, (tmdt  mod  10 000)/100);  
end

if warning.yes
(mode 0.yes
message wr_date_time not ok
lookup wr_date_time)
▶EOF◀