DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦ebb16674b⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »CALJUL.CMD«

Derivation

└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette
    └─ ⟦this⟧ »CALJUL.CMD«

TextFile

ACCEPT 'ENTER DATE AS MM/DD/YY' TO DATE
STORE VAL($(DATE,1,2)) TO M
STORE VAL($(DATE,4,2)) TO D
STORE VAL($(DATE,7,2))+1900 TO Y
STORE INT(30.57*M)+INT(365.25*Y-395.25)+D TO X
IF M>2
  IF INT(Y/4)=Y/4
    STORE X-1 TO X
  ELSE
    STORE X-2 TO X
  ENDIF
ENDIF
? ' START DATE = '
?? DATE
RETURN
«eof»