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

⟦d46089624⟧ TextFile

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

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



;       datetime_tx           * page 1   26 09 77,  9.47;  

;  date_time
;  *********

if listing.yes
char 10 12 10

date_time=set 1 disc

date_time=algol

external long procedure date_time;  
__________________________________

comment

datetime      (return, long) the actual date and time given as
_                            the decimal nmb dd mm yy hh mm;  

begin
  real     date, time;  
  long     d;  
  systime(1, 0, date);  
  d := systime(2, date, time);  
  date_time := 10000*d + round(time/100);  
end date_time;  

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